VALIP.prosthetic.Macros,VALIP.prosthetic.ClassMacros VALIP.REST.FS2.SAMLAuth 67779,39873.37398458 67277,57313.460131071 1 utf-8 1 1 VALIP.prosthetic.Spec 1.2.20260728 http://www.intersystems.com/urlmap ]]> VALIP.prosthetic.factory.IFactory factory:VALIP.prosthetic.factory.IFactory %Status 1 dao:%DynamicAbstractObject %String 1 response="" %Status 1),($Get(tHttpStatusCode(200)) > 0) Set tResponseStatus = 207 If (tResponseStatus = "") Set tResponseStatus = ..#HTTP200OK Do ##class(%REST.Impl).%SetStatusCode(tResponseStatus) Do ##class(%REST.Impl).%WriteResponse(response) Quit $$$OK ]]> Process request SwaggerSpec /_spec 1 %Status Process request post /barcode/multi 1 %Status Process request post /completenote/multi 1 %Status 1 Process request put /resetinventory/multi 1 %Status Process request post /stock/multi 1 %Status Process request put /stock/multi 1 %Status Process request post /suspensecomment/multi 1 %Status 1 params:VALIP.prosthetic.model.GetOrdersRequest %Status params:VALIP.prosthetic.model.GetOrdersRequest,result %Status VALIP.prosthetic.Macros,VALIP.prosthetic.ClassMacros 1 %CSP.REST 67703,58208.216427258 67170,77536.045843251 0 VALIP.prosthetic.factory.IFactory factory:VALIP.prosthetic.factory.IFactory %Status This method gets called prior to dispatch of the request. Put any common code here that you want to be executed for EVERY request. If pContinue is set to 0, the request will NOT be dispatched according to the UrlMap. In this case it's the responsibility of the user to return a response. 1 DILOCKTM,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOP,IOS,IOSL,IOST,IOT,MVIICN,POP,RET,U,VAL,X,XQUR,XQVOL,XUCI,XUF,XUNOW,XUSER,XUT,XUVOL,Y %Status 1 0 %Status 0 {return $$$NOTOK} set DUZ=+Y,DUZ("LANG")=$P($G(^(200)),U,7),DUZ(1)="",DUZ(2)=$O(^VA(200,DUZ,2,0)),DUZ(0)=$P(Y(0),"^",4) set DUZ("AG")=$P($G(^XTV(8989.3,1,0)),"^",8) S:'DUZ(2) DUZ(2)=+$P($G(^("XUS")),U,17) set:'$G(DUZ("LANG")) DUZ("LANG")=$P($G(^XTV(8989.3,1,"XUS")),U,7) } catch { Return $$$ERROR($$$GeneralError, $SYSTEM.Status.GetErrorText($$$InvalidUser)) } return $$$OK ]]> 1 header:%String="" %String 1 xmlstr:%String="" %String 1 xmlstr:%String="" %String 1 header:%String python %String 1 xmlstr:%String python %String 1 xmlstr:%String python %String 1 xmlstr:%String python %String = tNotOnOrAfter_dt: raise ValueError(f"Assertion expired (NotOnOrAfter={tNotOnOrAfter_dt})") print(f"✔ Assertion time window valid ({tNotBefore_dt} to {tNotOnOrAfter_dt})") ]]> params:%DynamicObject %Integer 1 %REST.Impl 67381,30212.603979331 67169,54038.448378018 Service implemntation for put /resetinventory/multi 1 messageRequest:VALIP.REST.Requests.resetinventorymultiPUT 0 %Status get location record from 661.5 1 0 %String 1 0 %String 1 pStationNumber:%String,pHCPCS:%String,pInventoryLocation:%String 0 %String get current stock 661.7 1 0 %String reset inventory file values 1 0 1 1 1 %REST.Impl 67718,36171.266250897 67148,47727.153986838 *** Implementation of LocalVistAUpdateOrder ClassMethods *** 1 messageRequest:VALIP.REST.Requests.barcodemultiPOST 0 %DynamicObject 1 messageRequest:VALIP.REST.Requests.completenotemultiPOST 0 %DynamicObject 1 messageRequest:VALIP.REST.Requests.stockmultiPOST 0 %DynamicObject 1 messageRequest:VALIP.REST.Requests.stockmultiPUT 0 %DynamicObject 1 messageRequest:VALIP.REST.Requests.suspensecommentmultiPOST 0 %DynamicObject 1 0 %String 1 0 %String *** Local VistA Calls Implementation *** 1 0 %String RMPR41("BALANCE QTY") { set RMPR41("ORDER QTY") = RMPR41("ORDER QTY")+(pMBR("quantity")-RMPR41("BALANCE QTY")) } set:$data(pMBR("vendor_ifcap")) RMPR6("VENDOR")=pMBR("vendor_ifcap") set:$data(pMBR("quantity")) RMPR6("QUANTITY")=pMBR("quantity") set:$data(pMBR("total_cost")) RMPR6("VALUE")=pMBR("total_cost") if $data(pMBR("unit_of_issue")) { set status = ..GetUOIIen(pMBR("unit_of_issue"),.pUOII) if pUOII = -1 return status set RMPR6("UNIT")=pUOII } set:$data(pMBR("comment")) RMPR6("COMMENT")=pMBR("comment") if pMBR("inventory_location")'?1.N { set X=pMBR("inventory_location") set DIC(0)="XZ",DIC="^RMPR(661.5," do ^DIC set pMBR("inventory_location")=+Y } if '$data(^RMPR(661.5,pMBR("inventory_location"))) { set status="Inventory Location does not exist." return status } set:$data(pMBR("inventory_location")) RMPR5("IEN")=pMBR("inventory_location") try { ; new if '$data(^RMPR(661.4,"ASLHI",RMPRSTN("IEN"),RMPR5("IEN"),RMPR11("HCPCS"),RMPR11("ITEM"))) { set RMPR4("RE-ORDER QTY")=0 set RMPRERR=$$CRE^RMPRPIX4(.RMPR4,.RMPR11,.RMPR5) } ; end new set status = $$REC^RMPRPIU8(.RMPR6,.RMPR11,.RMPR5,RMPRUPO,.RMPR41) } catch errobj { set status=errobj.Name_", "_errobj.Location_", error code "_errobj.Code return status } Set datetime = $Get(RMPR6("DATE&TIME")) Set pMBR("barcode_key") = pMBR("hcpcs")_"-"_$TRANSLATE(datetime,".") return status ]]> 1 SIEN:%String,AIEN:%String,CIEN:%String,PSSN:%String,COMMENT:%String,*RESULT:%String 0 %String 0 I $P(^RMPR(668,R68,10,RI,0),U,1) D .S RM660=$P(^RMPR(668,R68,10,RI,0),U,1) .I $G(RM660),$D(^RMPR(660,RM660,10)) D ..S RMINDT=$P(^RMPR(668,R68,0),U,9) ..S RMCODT=$P(^RMPR(668,R68,0),U,5) ..S RMDAT(660,RM660_",",8.3)=RMINDT ..S RMDAT(660,RM660_",",8.4)=RMCODT ..D FILE^DIE("","RMDAT","RMERROR") ..I $D(RMERROR) Q ; Continue processing but, failed to update dates in 660 file ; Adapted and continued from [CLNT^RMPRPCEL] - Cleanup and save the comment from the 668 file S DA=SIEN L -^RMPR(668,DA) K RMPREODT S GMRCO=$P(^RMPR(668,DA,0),U,15) I GMRCO="" S RESULT="Suspense records does not have a related consult entry" Return RESULT S RMPRCOM=0 F S RMPRCOM=$O(^RMPR(668,DA,4,RMPRCOM)) Q:RMPRCOM="" D .S GMRCOM(RMPRCOM)=^RMPR(668,DA,4,RMPRCOM,0) I $G(GMRCOM)="" S GMRCOM="not noted" S GMRCSF="U" S GMRCA=10 S GMRCALF="N" S GMRCATO="" S (GMRCORNP,GMRCDUZ)=DUZ ; Creates a completion note in the consult entry related to the suspense entry ; The completetion note will be identical to the note in the suspense file entry S BDC=$$SFILE^GMRCGUIB(.GMRCO,.GMRCA,.GMRCSF,.GMRCORNP,.GMRCDUZ,.GMRCOM,.GMRCALF,.GMRCATO,.GMRCAD) ;ICR #2980 I +BDC=1 S RESULT="Consult update error: "_$P(BDC,U,2) Return RESULT ; return error set in $P(BDC,U,2) K GMRCO,GMRCA,GMRCSF,GMRCORNP,GMRCDUZ,GMRCOM,GMRCALF,GMRCATO,GMRCAD S RESULT="" Return "" ]]> 1 0 %String ********************************** *** Utility ClassMethods Block *** ********************************** 1 mumpsArray %DynamicObject 1 1 pArray %DynamicAbstractObject 1 %RegisteredObject 67216,60642.757976312 67148,51539.506552263 %String %String %String ..#URL Authorization: SAML TokenString %String Use this property for body content with content-type = application/json. %Stream.Object Load object properties from %CSP.Request object. request:%CSP.Request=%request %Status Load object properties from %CSP.Request object. %Status post /barcode/multi 1 %RegisteredObject 67216,60737.992442221 67148,51539.509946335 %String %String %String ..#URL Authorization: SAML TokenString %String Use this property for body content with content-type = application/json. %Stream.Object Load object properties from %CSP.Request object. request:%CSP.Request=%request %Status Load object properties from %CSP.Request object. %Status post /completenote/multi 1 %RegisteredObject 67216,61078.401604332 67169,54271.069430939 %String %String %String ..#URL Authorization: SAML TokenString %String Use this property for body content with content-type = application/json. %Stream.Object Load object properties from %CSP.Request object. request:%CSP.Request=%request %Status Load object properties from %CSP.Request object. %Status put /resetinventory/multi 1 %RegisteredObject 67216,60786.554276584 67148,51539.513764494 %String %String %String ..#URL Authorization: SAML TokenString %String Use this property for body content with content-type = application/json. %Stream.Object Load object properties from %CSP.Request object. request:%CSP.Request=%request %Status Load object properties from %CSP.Request object. %Status post /stock/multi 1 %RegisteredObject 67216,60845.868163747 67148,51539.511920099 %String %String %String ..#URL Authorization: SAML TokenString %String Use this property for body content with content-type = application/json. %Stream.Object Load object properties from %CSP.Request object. request:%CSP.Request=%request %Status Load object properties from %CSP.Request object. %Status put /stock/multi 1 %RegisteredObject 67216,60922.06366259 67148,51539.515563319 %String %String %String ..#URL Authorization: SAML TokenString %String Use this property for body content with content-type = application/json. %Stream.Object Load object properties from %CSP.Request object. %Status Load object properties from %CSP.Request object. request:%CSP.Request=%request %Status 1 Load object properties from %CSP.Request object. %Status post /suspensecomment/multi VALIP.prosthetic.Macros,VALIP.prosthetic.ClassMacros 1 %CSP.REST 67408,41239.722929178 67170,77536.045843251 VALIP.prosthetic.factory.IFactory factory:VALIP.prosthetic.factory.IFactory %Status This method gets called prior to dispatch of the request. Put any common code here that you want to be executed for EVERY request. If pContinue is set to 0, the request will NOT be dispatched according to the UrlMap. In this case it's the responsibility of the user to return a response. 1 U,DT,X,Y,VAL,XUF,DUZ,DT,XUSER,XUSER,XQUR,XUNOW %Status 0) set obj.DUZ = 0 else set obj.DUZ = DUZ if (obj.DUZ > 0) set pContinue = 1 ;set DUZ(2) = $$STA^XUAF4($$KSP^XUPARAM("INST")) set pStat = ..mDUZBuilder(DUZ, .DUZ) } Return $$$OK ]]> 1 0 %Status 0 {return $$$NOTOK} set DUZ=+Y,DUZ("LANG")=$P($G(^(200)),U,7),DUZ(1)="",DUZ(2)=$O(^VA(200,DUZ,2,0)),DUZ(0)=$P(Y(0),"^",4) set DUZ("AG")=$P($G(^XTV(8989.3,1,0)),"^",8) S:'DUZ(2) DUZ(2)=+$P($G(^("XUS")),U,17) set:'$G(DUZ("LANG")) DUZ("LANG")=$P($G(^XTV(8989.3,1,"XUS")),U,7) } catch { Return $$$ERROR($$$GeneralError, $SYSTEM.Status.GetErrorText($$$InvalidUser)) } return $$$OK ]]> 1 header:%String="" %String 1 xmlstr:%String="" %String 1 xmlstr:%String="" %String 1 header:%String python %String 1 xmlstr:%String python %String 1 xmlstr:%String python %String params:%DynamicObject %Integer VALIP.prosthetic.Macros,VALIP.prosthetic.ClassMacros VALIP.prosthetic.Auth 67332,53513.288626304 67008,66653.241546205 URL map for routing requests http://www.intersystems.com/urlmap ]]> VALIP.prosthetic.factory.IFactory factory:VALIP.prosthetic.factory.IFactory %Status 1 1 %Status params:%DynamicObject,*result:%String %Status params:%DynamicObject %Integer 1 %Status params:%DynamicObject,*result:%String %Status 1 params:VALIP.prosthetic.model.GetOrdersRequest %Status params:VALIP.prosthetic.model.GetOrdersRequest,result %Status Process request put /resetinventory/multi 1 %Status 1 %RegisteredObject 67151,83877.618321976 67151,83877.607530615 application/json 0.", "post":{ "parameters":[ { "name":"Authorization", "in":"header", "description":"Authorization: SAML TokenString", "required":true, "style":"simple", "explode":false, "schema":{ "type":"string" } } ], "requestBody":{ "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/orders_body" }, "examples":{ "get_open_orders_example":{ "value":{ "status":"open", "request_service_name":"EYEGLASSES", "consult_descriptor":"EYEGLASSES AND FRAME", "start_date":"20240831" } }, "get_pending_orders_example":{ "value":{ "status":"pending", "request_service_name":"EYEGLASSES", "consult_descriptor":"EYEGLASSES AND FRAME", "start_date":"20240831" } } } } }, "required":true }, "responses":{ "200":{ "description":"Success!", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_200" }, "examples":{ "get_open_orders_example_response":{ "value":{ "orders":[ { "ien":"2", "patient":{ "ien":"15", "name":"ZZPATIENT,TEST 0001", "ssn":0, "address_1":"FIRST ST", "address_2":"APARTMENT 1", "address_3":"", "city":"PRIMEVILLE", "state":"ALASKA", "zip":11234 }, "station_number":"442", "service_name":"ZZ EYEGLASS REQUEST", "date_of_request":"20230101.1301", "reason":"Astigmatism", "entered_by_staff_name":"RMPVUSER,ENTERED", "entered_by_staff_email":"RMPVENTERED1@example.com", "responsible_staff_name":"RMPVUSER,RESPONSIBLE", "responsible_staff_email":"RMPVRESPONSIBLE1@example.com" } ] } }, "get_pending_orders_example_response":{ "value":{ "orders":[ { "ien":"7", "patient":{ "ien":"18", "name":"ZZPATIENT,TEST 0002", "ssn":0, "address_1":"SECOND ST", "address_2":"APARTMENT 3", "address_3":"", "city":"SUBPRIMEVILLE", "state":"ALASKA", "zip":11234 }, "station_number":"442", "service_name":"ZZ EYEGLASS REQUEST", "date_of_request":"20230101.1315", "reason":"Poor eyesight", "entered_by_staff_name":"RMPVUSER,ENTERED", "entered_by_staff_email":"RMPVENTERED1@example.com", "responsible_staff_name":"RMPVUSER,RESPONSIBLE", "responsible_staff_email":"RMPVRESPONSIBLE1@example.com", "transaction":{ "ien":"11111", "date_of_service":"20240325.1301", "suspense":{ "latest_comment":"Eyeglasses Ordered." } } } ] } } } } } }, "400":{ "description":"Invalid request. Returns error message explaining why request is invalid.", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "Bad Request":{ "value":{ "message":"Bad Request", "http_status_code":"400" } } } } } }, "401":{ "description":"Invalid Authentication Credentials", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "Unauthorized":{ "value":{ "message":"Invalid authorization credentials.", "http_status_code":"401" } } } } } }, "422":{ "description":"Invalid request: validation failure.", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "Validation Failure":{ "value":{ "message":"Validation failure. Required field ien missing.", "http_status_code":"422" } } } } } }, "500":{ "description":"Internal server error. Returns error message explaining the internal server error.", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "InternalServerError":{ "value":{ "message":"Internal server error.", "http_status_code":"500" } } } } } } } } } }, "components":{ "schemas":{ "HttpResponse":{ "type":"object", "properties":{ "message":{ "type":"string", "description":"Message explaining why something went wrong, or success if request processed without error." }, "http_status_code":{ "type":"integer", "description":"The HTTP Status Code for the request. Used primarily for batch responses." } }, "description":"HTTP Status Code and message" }, "GetOrdersResponse":{ "type":"object", "properties":{ "orders":{ "type":"array", "description":"The Orders in the Local VistA that match the Get Orders query parameters.", "items":{ "$ref":"#/components/schemas/GetOrdersResponse_orders" } } }, "description":"The Orders information returned by the query." }, "Patient":{ "type":"object", "properties":{ "ien":{ "type":"string", "description":"The Patient File 2 ien." }, "name":{ "type":"string", "description":"The Patient File 2 Field .01. The name of the patient." }, "ssn":{ "type":"string", "description":"The Patient File 2 Field .09. The social security number of the patient." }, "address_1":{ "type":"string", "description":"The Patient File 2 Field .111." }, "address_2":{ "type":"string", "description":"The Patient File 2 Field .112." }, "address_3":{ "type":"string", "description":"The Patient File 2 Field .113." }, "city":{ "type":"string", "description":"The Patient File 2 Field .114." }, "state":{ "type":"string", "description":"The Patient File 2 Field .115." }, "zip":{ "type":"string", "description":"The Patient File 2 Field .116." } }, "description":"The Patient File 2 associated with the medical care." }, "ProstheticSuspense":{ "type":"object", "properties":{ "latest_comment":{ "type":"string", "description":"File 668 Field 11 multiple pointer to subfile 668.011 Field 1 ACTION NOTE." } }, "description":"The Prosthetic Suspense File 668." }, "Consult":{ "type":"object", "properties":{ "ien":{ "type":"string", "description":"The Consult File 123 ien." }, "patient":{ "$ref":"#/components/schemas/GetOrdersResponse_patient" }, "station_number":{ "type":"string", "description":"File 123 Field .07 ROUTING FACILITY pointer to Institution File 4 Field 99. Not the path param." }, "service_name":{ "type":"string", "description":"File 123 Field 1 TO SERVICE pointer to Request Services subfile 123.5 Field .01." }, "date_of_request":{ "type":"string", "description":"File 123 Field 3." }, "reason":{ "type":"string", "description":"File 123 Field 20 REASON FOR REQUEST." }, "entered_by_staff_name":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .01." }, "entered_by_staff_email":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .151." }, "responsible_staff_name":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .01." }, "responsible_staff_email":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .151." }, "transaction":{ "$ref":"#/components/schemas/GetOrdersResponse_transaction" } }, "description":"Consult File 123." }, "RecordOfProstheticAppliance":{ "type":"object", "properties":{ "ien":{ "type":"string", "description":"The Appliance Repair File 660 ien." }, "date_of_service":{ "type":"string", "description":"File 660 Field 39." }, "suspense":{ "$ref":"#/components/schemas/GetOrdersResponse_transaction_suspense" } }, "description":"The Record of Prosthetic Appliance/Repair File 660. The main File of record for prosthetic purchasing transactions." }, "OrderStatus":{ "type":"string", "description":"The status of the order.", "enum":[ "open", "pending", "completed" ] }, "GetOrdersRequest":{ "required":[ "request_service_name", "start_date", "status" ], "type":"object", "properties":{ "status":{ "type":"string", "description":"The status of the order.", "enum":[ "open", "pending", "completed" ] }, "request_service_name":{ "type":"string", "description":"File 123.5 Field .01 SERVICE NAME. The type of prosthetics service. Normally EYEGLASSES." }, "consult_descriptor":{ "type":"string", "description":"File 123 Field 20 REASON FOR REQUEST line 1 (123.01 1st entry). Used to describe the consult prosthetics. For example, EYEGLASSES AND FRAME." }, "start_date":{ "type":"string", "description":"File 123 Field 3 DATE OF REQUEST. The starting date used to limit the query search. YYYYMMDD" } }, "description":"The properties used to parameterize the Get Orders query." }, "orders_body":{ "required":[ "request_service_name", "start_date", "status" ], "type":"object", "properties":{ "status":{ "type":"string", "description":"The status of the order.", "enum":[ "open", "pending", "completed" ] }, "request_service_name":{ "type":"string", "description":"File 123.5 Field .01 SERVICE NAME. The type of prosthetics service. Normally EYEGLASSES." }, "consult_descriptor":{ "type":"string", "description":"File 123 Field 20 REASON FOR REQUEST line 1 (123.01 1st entry). Used to describe the consult prosthetics. For example, EYEGLASSES AND FRAME." }, "start_date":{ "type":"string", "description":"File 123 Field 3 DATE OF REQUEST. The starting date used to limit the query search. YYYYMMDD" } }, "description":"The properties used to parameterize the Get Orders query." }, "inline_response_200":{ "type":"object", "properties":{ "orders":{ "type":"array", "description":"The Orders in the Local VistA that match the Get Orders query parameters.", "items":{ "$ref":"#/components/schemas/GetOrdersResponse_orders" } } }, "description":"The Orders information returned by the query." }, "inline_response_400":{ "type":"object", "properties":{ "message":{ "type":"string", "description":"Message explaining why something went wrong, or success if request processed without error." }, "http_status_code":{ "type":"integer", "description":"The HTTP Status Code for the request. Used primarily for batch responses." } }, "description":"HTTP Status Code and message" }, "GetOrdersResponse_patient":{ "type":"object", "properties":{ "ien":{ "type":"string", "description":"The Patient File 2 ien." }, "name":{ "type":"string", "description":"The Patient File 2 Field .01. The name of the patient." }, "ssn":{ "type":"string", "description":"The Patient File 2 Field .09. The social security number of the patient." }, "address_1":{ "type":"string", "description":"The Patient File 2 Field .111." }, "address_2":{ "type":"string", "description":"The Patient File 2 Field .112." }, "address_3":{ "type":"string", "description":"The Patient File 2 Field .113." }, "city":{ "type":"string", "description":"The Patient File 2 Field .114." }, "state":{ "type":"string", "description":"The Patient File 2 Field .115." }, "zip":{ "type":"string", "description":"The Patient File 2 Field .116." } }, "description":"The Patient File 2 associated with the medical care." }, "GetOrdersResponse_transaction_suspense":{ "type":"object", "properties":{ "latest_comment":{ "type":"string", "description":"File 668 Field 11 multiple pointer to subfile 668.011 Field 1 ACTION NOTE." } }, "description":"The Prosthetic Suspense File 668." }, "GetOrdersResponse_transaction":{ "type":"object", "properties":{ "ien":{ "type":"string", "description":"The Appliance Repair File 660 ien." }, "date_of_service":{ "type":"string", "description":"File 660 Field 39." }, "suspense":{ "$ref":"#/components/schemas/GetOrdersResponse_transaction_suspense" } }, "description":"The Record of Prosthetic Appliance/Repair File 660. The main File of record for prosthetic purchasing transactions." }, "GetOrdersResponse_orders":{ "type":"object", "properties":{ "ien":{ "type":"string", "description":"The Consult File 123 ien." }, "patient":{ "$ref":"#/components/schemas/GetOrdersResponse_patient" }, "station_number":{ "type":"string", "description":"File 123 Field .07 ROUTING FACILITY pointer to Institution File 4 Field 99. Not the path param." }, "service_name":{ "type":"string", "description":"File 123 Field 1 TO SERVICE pointer to Request Services subfile 123.5 Field .01." }, "date_of_request":{ "type":"string", "description":"File 123 Field 3." }, "reason":{ "type":"string", "description":"File 123 Field 20 REASON FOR REQUEST." }, "entered_by_staff_name":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .01." }, "entered_by_staff_email":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .151." }, "responsible_staff_name":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .01." }, "responsible_staff_email":{ "type":"string", "description":"File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .151." }, "transaction":{ "$ref":"#/components/schemas/GetOrdersResponse_transaction" } }, "description":"Consult File 123." } }, "responses":{ "Unauthorized":{ "description":"Invalid Authentication Credentials", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "Unauthorized":{ "value":{ "message":"Invalid authorization credentials.", "http_status_code":"401" } } } } } }, "InternalServerError":{ "description":"Internal server error. Returns error message explaining the internal server error.", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "InternalServerError":{ "value":{ "message":"Internal server error.", "http_status_code":"500" } } } } } }, "BadRequest":{ "description":"Invalid request. Returns error message explaining why request is invalid.", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "Bad Request":{ "value":{ "message":"Bad Request", "http_status_code":"400" } } } } } }, "ValidationFailure":{ "description":"Invalid request: validation failure.", "content":{ "application/json":{ "schema":{ "$ref":"#/components/schemas/inline_response_400" }, "examples":{ "Validation Failure":{ "value":{ "message":"Validation failure. Required field ien missing.", "http_status_code":"422" } } } } } } } } } ]]> %Persistent 67012,38739.012335491 66989,50976.324569138 1 element:%Numeric,list:%DynamicArray %Numeric 1 1 header:%String python %String 1 xmlstr:%String python %String 1 xmlstr:%String python %String %Storage.Persistent ^VALIP.prosthetic.UtilD UtilDefaultData ^VALIP.prosthetic.UtilD ^VALIP.prosthetic.UtilI ^VALIP.prosthetic.UtilS %%CLASSNAME 1 66989,50976.409170875 66989,50976.409170875 1 classname:%String,*result:%RegisteredObject %Status VALIP.prosthetic.ClassMacros VALIP.prosthetic.factory.IFactory,%RegisteredObject 67179,55738.457660974 67008,66652.686453986 classname:%String,*result:%RegisteredObject %Status Generated class for FileMan File Number: '2006.04' File Name: 'ACQUISITION DEVICE' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file is used to manage and track the various devices used to "Import" images into the Vista Imaging network. persistent _PUBLIC 0 RowId ACQUISITION_DEVICE_2006_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.226424471 67178,44703.967299818 right ACQUISITION DEVICE 2006.04 2.56 12/04/2024 12:25:03 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2006.04,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the IMPORT device that is used to interface newly captured diagnostic Images and procedures to the clinical database. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2006.04," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2006.04,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2006.04)") set %SkipFiling=1 if $d(%FMERR(2006.04,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2006.04)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2006.04,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2006.04)") set %SkipFiling=1 if $d(%FMERR(2006.04,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2006.04)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ACQUISITION94BDS data ^MAG 2006.04 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 index ^MAG nonnull 2006.04 "B" {NAME} {IEN} 0]]> Generated class for FileMan File Number: '4.11' File Name: 'AGENCY' Class generated by %fm2class version 2.56 This file replaces the set field that had been used for agency. persistent _PUBLIC 0 RowId AGENCY_4_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.388303623 67178,44704.039673054 right AGENCY 4.11 2.56 12/04/2024 12:25:04 1 1 IEN 1 FileMan Field Label: 'AGENCY CODE' FileMan Field Number: '.02' a short code for the agency. %Library.EnumString 4 AGENCY_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(4.11,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of the agency. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(4.11," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(4.11,"+1,",.01)={"NAME"} set:{AGENCY_CODE}'="" FDA(4.11,"+1,",.02)={"AGENCY_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(4.11)") set %SkipFiling=1 if $d(%FMERR(4.11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(4.11,IENS,.01)={NAME} set:{AGENCY_CODE*C} FDA(4.11,IENS,.02)={AGENCY_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.11)") set %SkipFiling=1 if $d(%FMERR(4.11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.AGENCY411S data ^DIC 4.11 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 index ^DIC nonnull 4.11 "B" {NAME} {IEN} 0]]> Generated class for FileMan File Number: '698.2' File Name: 'A LEAD IMPLANT' Class generated by %fm2class version 2.56 This holds the A Lead Implant/Explant information for Pacemaker. persistent _PUBLIC 0 RowId A_LEAD_IMPLANT_698_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.964657503 67178,44707.286712145 right A LEAD IMPLANT 698.2 2.56 12/04/2024 12:25:07 1 1 IEN 1 NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN REASON_MEDICINE_695_8]]> ALEADEXPLANTREASON VALIP.prosthetic.fm2cw.REASONMEDICINE6958 FKey_A_LEAD_EXPLANT_REASON PACEMAKER_MANUFACTURER_698_6]]> ALEADMANUFACTURER VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 FKey_A_LEAD_MANUFACTURER PACEMAKER_EQUIPMENT_698_4]]> ALEADMODEL VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 FKey_A_LEAD_MODEL PACEMAKER_EQUIPMENT_698_4]]> ALEADPSAUSED VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 FKey_A_LEAD_PSA_USED NEW_PERSON_200]]> FELLOW1ST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW1ST NEW_PERSON_200]]> FELLOW2ND VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW2ND REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '300' This field identifies the name of the Attending Physician for this A-Lead Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 15 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'A LEAD EXPLANT REASON' FileMan Field Number: '57' This allows documentation of explant rationale. VALIP.prosthetic.fm2cw.REASONMEDICINE6958 14 A_LEAD_EXPLANT_REASON NAME This field holds a list of Medical reasons for various areas of Medicine. Examples: Explain reasons for Pacemaker, Reason for stopping for PFT, etc.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {A_LEAD_EXPLANT_REASON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 A_LEAD_EXPLANT_REASON_NAME 1 FileMan Field Label: 'A LEAD MANUFACTURER' FileMan Field Number: '3' This field identifies the producer of the lead. VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 6 A_LEAD_MANUFACTURER NAME This field identifies the name of the manufacturer.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {A_LEAD_MANUFACTURER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 A_LEAD_MANUFACTURER_NAME 1 FileMan Field Label: 'A LEAD MODEL' FileMan Field Number: '2' This field identifies the device by the manufacturer's production name. VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 5 A_LEAD_MODEL MODEL NUMBER/NAME This field identifies the model identifier.]]> %Library.String 1 MODEL_NUMBERNAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {A_LEAD_MODEL_MODEL_NUMBERNAME}=$select(SQLCODE=0:val,1:"")]]> 1 A_LEAD_MODEL_MODEL_NUMBERNAME 1 FileMan Field Label: 'A LEAD PSA USED' FileMan Field Number: '15' This allows documentation of lead implementation. VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 12 A_LEAD_PSA_USED MODEL NUMBER/NAME This field identifies the model identifier.]]> %Library.String 1 MODEL_NUMBERNAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {A_LEAD_PSA_USED_MODEL_NUMBERNAME}=$select(SQLCODE=0:val,1:"")]]> 1 A_LEAD_PSA_USED_MODEL_NUMBERNAME 1 FileMan Field Label: 'A LEAD RESISTANCE (OHMS) AT 5V' FileMan Field Number: '13' This allows documentation of an initial resistance parameter. %Library.Numeric 10 A_LEAD_RESISTANCE_OHMS_AT_5V FileMan Field Label: 'A LEAD SERIAL NUMBER' FileMan Field Number: '4' This field identifies the specific device. %Library.String 7 A_LEAD_SERIAL_NUMBER FileMan Field Label: 'A LEAD THRESHOLD IN mA's AT .5' FileMan Field Number: '12' This allows documentation of an initial threshold parameter. %Library.Numeric 9 A_LEAD_THRESHOLD_IN_MAS_AT__5 FileMan Field Label: 'A LEAD THRESHOLD IN VOLTS' FileMan Field Number: '11' This allows documentation of an initial threshold parameter. %Library.Numeric 8 A_LEAD_THRESHOLD_IN_VOLTS FileMan Field Label: 'COMMENTS' FileMan Field Number: '500' This allows a documentation area of free form. %Library.String 18 COMMENTS FileMan Field Label: 'DATE/TIME OF IMPLANT' FileMan Field Number: '.01' This allows analysis based on time. %Library.FilemanTimeStamp 1 3 DATETIME_OF_IMPLANT FileMan Field Label: 'EXPLANT DATE' FileMan Field Number: '56' This allows documentation of lead removal. %Library.FilemanTimeStamp 13 EXPLANT_DATE FileMan Field Label: 'FELLOW-1st' FileMan Field Number: '301' This field identifies the name of a Cardiology Fellow for this A-Lead Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 16 FELLOW1ST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {FELLOW1ST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW1ST_NAME 1 FileMan Field Label: 'FELLOW-2nd' FileMan Field Number: '302' This field identifies the name of a second Cardiology Fellow for this A-Lead Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 17 FELLOW2ND NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {FELLOW2ND_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW2ND_NAME 1 FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 24 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(698.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' Patient's name. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 23 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 22 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 21 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.A_LEAD_IMPLANT_698_2 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This 1-79 character field will be displayed on the medical procedure summary report. %Library.String 19 PROCEDURE_SUMMARY FileMan Field Label: 'P WAVE AMPLITUDE (MV)' FileMan Field Number: '14' This allows documentation of the initial amplitude parameter. %Library.Numeric 11 P_WAVE_AMPLITUDE_MV Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69822 children ALEADIMPLANT6982 1 SUB_ICD_DIAGNOSIS_698_22 FileMan Field Label: 'SUMMARY' FileMan Field Number: '601' This field summarizes the results of the procedure. %Library.EnumString 20 SUMMARY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 25 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(698.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME_OF_IMPLANT}'="" FDA(698.2,"+1,",.01)={"DATETIME_OF_IMPLANT"} set:{MEDICAL_PATIENT}'="" FDA(698.2,"+1,",1)={"MEDICAL_PATIENT"} set:{A_LEAD_MODEL}'="" FDA(698.2,"+1,",2)={"A_LEAD_MODEL"} set:{A_LEAD_MANUFACTURER}'="" FDA(698.2,"+1,",3)={"A_LEAD_MANUFACTURER"} set:{A_LEAD_SERIAL_NUMBER}'="" FDA(698.2,"+1,",4)={"A_LEAD_SERIAL_NUMBER"} set:{A_LEAD_THRESHOLD_IN_VOLTS}'="" FDA(698.2,"+1,",11)={"A_LEAD_THRESHOLD_IN_VOLTS"} set:{A_LEAD_THRESHOLD_IN_MAS_AT__5}'="" FDA(698.2,"+1,",12)={"A_LEAD_THRESHOLD_IN_MAS_AT__5"} set:{A_LEAD_RESISTANCE_OHMS_AT_5V}'="" FDA(698.2,"+1,",13)={"A_LEAD_RESISTANCE_OHMS_AT_5V"} set:{P_WAVE_AMPLITUDE_MV}'="" FDA(698.2,"+1,",14)={"P_WAVE_AMPLITUDE_MV"} set:{A_LEAD_PSA_USED}'="" FDA(698.2,"+1,",15)={"A_LEAD_PSA_USED"} set:{EXPLANT_DATE}'="" FDA(698.2,"+1,",56)={"EXPLANT_DATE"} set:{A_LEAD_EXPLANT_REASON}'="" FDA(698.2,"+1,",57)={"A_LEAD_EXPLANT_REASON"} set:{ATTENDING_PHYSICIAN}'="" FDA(698.2,"+1,",300)={"ATTENDING_PHYSICIAN"} set:{FELLOW1ST}'="" FDA(698.2,"+1,",301)={"FELLOW1ST"} set:{FELLOW2ND}'="" FDA(698.2,"+1,",302)={"FELLOW2ND"} set:{PROCEDURE_SUMMARY}'="" FDA(698.2,"+1,",600)={"PROCEDURE_SUMMARY"} set:{SUMMARY}'="" FDA(698.2,"+1,",601)={"SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(698.2,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(698.2,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(698.2,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(698.2,"+1,",1001)={"GMRCO"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(698.2)") set %SkipFiling=1 if $d(%FMERR(698.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS}'="" { set D0={RowId} for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) } do WP^DIE(698.2,{RowId},500,,"wp","%FMERR(698.2)") if $d(%FMERR(698.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME_OF_IMPLANT*C} FDA(698.2,IENS,.01)={DATETIME_OF_IMPLANT} set:{MEDICAL_PATIENT*C} FDA(698.2,IENS,1)={MEDICAL_PATIENT} set:{A_LEAD_MODEL*C} FDA(698.2,IENS,2)={A_LEAD_MODEL} set:{A_LEAD_MANUFACTURER*C} FDA(698.2,IENS,3)={A_LEAD_MANUFACTURER} set:{A_LEAD_SERIAL_NUMBER*C} FDA(698.2,IENS,4)={A_LEAD_SERIAL_NUMBER} set:{A_LEAD_THRESHOLD_IN_VOLTS*C} FDA(698.2,IENS,11)={A_LEAD_THRESHOLD_IN_VOLTS} set:{A_LEAD_THRESHOLD_IN_MAS_AT__5*C} FDA(698.2,IENS,12)={A_LEAD_THRESHOLD_IN_MAS_AT__5} set:{A_LEAD_RESISTANCE_OHMS_AT_5V*C} FDA(698.2,IENS,13)={A_LEAD_RESISTANCE_OHMS_AT_5V} set:{P_WAVE_AMPLITUDE_MV*C} FDA(698.2,IENS,14)={P_WAVE_AMPLITUDE_MV} set:{A_LEAD_PSA_USED*C} FDA(698.2,IENS,15)={A_LEAD_PSA_USED} set:{EXPLANT_DATE*C} FDA(698.2,IENS,56)={EXPLANT_DATE} set:{A_LEAD_EXPLANT_REASON*C} FDA(698.2,IENS,57)={A_LEAD_EXPLANT_REASON} set:{ATTENDING_PHYSICIAN*C} FDA(698.2,IENS,300)={ATTENDING_PHYSICIAN} set:{FELLOW1ST*C} FDA(698.2,IENS,301)={FELLOW1ST} set:{FELLOW2ND*C} FDA(698.2,IENS,302)={FELLOW2ND} set:{PROCEDURE_SUMMARY*C} FDA(698.2,IENS,600)={PROCEDURE_SUMMARY} set:{SUMMARY*C} FDA(698.2,IENS,601)={SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(698.2,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(698.2,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(698.2,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(698.2,IENS,1001)={GMRCO} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.2)") set %SkipFiling=1 if $d(%FMERR(698.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS*C} { set D0={RowId} kill wp if {COMMENTS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(698.2,{RowId},500,,wproot,"%FMERR(698.2)") if $d(%FMERR(698.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ALEADIMPLANC2C6S data ^MCAR 698.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 3 1 "^" 1 2 "^" 0 4 "^" 0 3 "^" 0 10 "^" 0 8 "^" 0 5 "^" 0 7 "^" 0 6 10 new data,i,node set {COMMENTS}="" merge data=^MCAR(698.2,{S2},10) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS}={COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 1 1 "^" 3 2 "^" 3 3 "^" "OR" 2 "^" 0 2 "^" "OR" 1 "^" "PCC" 1 "^" "PROV" 1 "^" .2 2 "^" 0 9 "^" .2 1 index ^MCAR nonnull 698.2 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 698.2 "B" {DATETIME_OF_IMPLANT} {IEN} 0]]> index ^MCAR nonnull 698.2 "C" {MEDICAL_PATIENT} {IEN} 0]]> Generated class for FileMan File Number: '1.2' File Name: 'ALTERNATE EDITOR' Class generated by %fm2class version 2.56 This file stores information about the editors that can be used to edit VA FileMan WP fields. The LINE EDITOR and SCREEN EDITOR are exported with VA FileMan, but instructions are given to allow site managers to enter local editors of their choice. There is a pointer in the NEW PERSON File to this file. The pointed-to editor for that person is then used whenever the person edits a WP field. persistent _PUBLIC 0 RowId ALTERNATE_EDITOR_1_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.952204354 67178,44704.068568427 right ALTERNATE EDITOR 1.2 2.56 12/04/2024 12:25:04 1 1 IEN 1 FileMan Field Label: 'ACTIVATION CODE FROM DIWE' FileMan Field Number: '1' This field holds the MUMPS code to properly establish the environment that will allow use of this editor to edit any VA FileMan word-processing type field. Typically this code might move the text into another MUMPS global (like ^UTILITY) or to some other file format for editing. If the editor is written in MUMPS, it should either use variables that do not begin with the letter "D", or should NEW all its local variables to avoid problems on return to the FileMan editor. If the variable DIWE(1) is defined, it indicated that the user has switched to this editor from the standard FileMan Line Editor, and upon return, the control will be returned to the line editor. This editor may set the variable DIWESW to 1, if they wish to allow the user to switch to an alternate editor from this one. This editor is required to restore the edited text to standard FileMan word-processing format before exiting. %Library.String 1 5 s {ACTIVATION_CODE_FROM_DIWE}=$e({NODE_1},1,245) 1 ACTIVATION_CODE_FROM_DIWE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '7' This is a description of the editor that will be shown to the user if they enter ??? at the Select prompt. Not in use yet. %Library.String 10 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIST(1.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the alternate editor. It must start with a unique character. %Library.String 1 3 NAME Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^DIST(1.2,{IEN},1)) 1 NODE_1 Computed Field For Node 2 %Library.String 1 6 s {NODE_2}=$g(^DIST(1.2,{IEN},2)) 1 NODE_2 Computed Field For Node 3 %Library.String 1 8 s {NODE_3}=$g(^DIST(1.2,{IEN},3)) 1 NODE_3 FileMan Field Label: 'OK TO RUN TEST' FileMan Field Number: '2' This field holds MUMPS code used to pre-check the environment before allowing the user to enter this editor. This field should set the $TEST indicator. If $TEST is true then it is OK for this editor to run at this time. If $T is false, the user will be returned to the FileMan line editor. If the field is null, it will be the same as $T=true An example would be a mixed VAX-PDP site using a VMS editor. %Library.String 1 7 s {OK_TO_RUN_TEST}=$e({NODE_2},1,245) 1 OK_TO_RUN_TEST FileMan Field Label: 'RETURN TO CALLING EDITOR' FileMan Field Number: '3' If the user switched to this editor from the FileMan line editor, then DIWE(1) exists. This field should contain MUMPS code used to reset the environment needed by the Line Editor. %Library.String 1 9 s {RETURN_TO_CALLING_EDITOR}=$e({NODE_3},1,245) 1 RETURN_TO_CALLING_EDITOR SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIST(1.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(1.2,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(1.2)") set %SkipFiling=1 if $d(%FMERR(1.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(1.2,{RowId},7,,"wp","%FMERR(1.2)") if $d(%FMERR(1.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(1.2,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(1.2)") set %SkipFiling=1 if $d(%FMERR(1.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(1.2,{RowId},7,,wproot,"%FMERR(1.2)") if $d(%FMERR(1.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ALTERNATEED15AAS data ^DIST 1.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 7 new data,i,node set {DESCRIPTION}="" merge data=^DIST(1.2,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 index ^DIST nonnull 1.2 "B" {NAME} {IEN} 0]]> Generated class for FileMan File Number: '697' File Name: 'ANATOMY' Class generated by %fm2class version 2.56 THIS FILE HOLDS ANATOMICAL ENTRIES USED IN THE MEDICINE PACKAGE persistent _PUBLIC 0 RowId ANATOMY_697 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.950629426 67178,44704.101451265 right ANATOMY 697 2.56 12/04/2024 12:25:04 1 1 IEN 1 TOPOGRAPHY_FIELD_61]]> TOPOGRAPHY VALIP.prosthetic.fm2cw.TOPOGRAPHYFIELD61 FKey_TOPOGRAPHY Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(697,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a list of body locations for use by the various medical procedures. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name *PROCEDURE child VALIP.prosthetic.fm2cw.SUBPROCEDURE69701 children ANATOMY697 1 SUB_PROCEDURE_697_01 Relationship for Sub-File/Multiple to file name PROCEDURE NAME child VALIP.prosthetic.fm2cw.SUBPROCEDURENAME69702 children ANATOMY697 1 SUB_PROCEDURE_NAME_697_02 FileMan Field Label: 'TOPOGRAPHY' FileMan Field Number: '2' This field identifies a link to the Laboratory Topography Field file. VALIP.prosthetic.fm2cw.TOPOGRAPHYFIELD61 4 TOPOGRAPHY NAME The name of the specimen or source.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ANATOMY_697 where %ID=:id) set {TOPOGRAPHY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TOPOGRAPHY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(697," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(697,"+1,",.01)={"NAME"} set:{TOPOGRAPHY}'="" FDA(697,"+1,",2)={"TOPOGRAPHY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(697)") set %SkipFiling=1 if $d(%FMERR(697,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(697,IENS,.01)={NAME} set:{TOPOGRAPHY*C} FDA(697,IENS,2)={TOPOGRAPHY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697)") set %SkipFiling=1 if $d(%FMERR(697,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.ANATOMY697S data ^MCAR 697 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 index ^MCAR nonnull 697 "B" {NAME} {IEN} 0]]> Generated class for FileMan File Number: '132.95' File Name: 'ANESTHESIA SUPERVISOR CODES' Class generated by %fm2class version 2.56 This file is pointed to by the ANES SUPERVISE CODE in the Surgery file. It contains the codes representing the highest level of supervision for the anesthesiology supervisor. Sites should NOT make additional entries to this file. persistent _PUBLIC 0 RowId ANESTHESIA_SUPERVISOR_CODES_132_95 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.954458734 67178,44704.129548415 right ANESTHESIA SUPERVISOR CODES 132.95 2.56 12/04/2024 12:25:04 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the principal anesthetist's level of supervision. %Library.String 4 CODE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' This is a description of the anesthesia supervisor code. %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(132.95,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name of Anesthesia Supervisor Code This is the name of the Anesthesia Supervisor Code. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(132.95," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(132.95,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(132.95,"+1,",1)={"CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(132.95)") set %SkipFiling=1 if $d(%FMERR(132.95,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.95)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(132.95,{RowId},2,,"wp","%FMERR(132.95)") if $d(%FMERR(132.95,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.95)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(132.95,IENS,.01)={NAME} set:{CODE*C} FDA(132.95,IENS,1)={CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(132.95)") set %SkipFiling=1 if $d(%FMERR(132.95,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.95)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(132.95,{RowId},2,,wproot,"%FMERR(132.95)") if $d(%FMERR(132.95,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.95)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ANESTHESIASCEADS data ^SRO 132.95 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 1 new data,i,node set {DESCRIPTION}="" merge data=^SRO(132.95,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 index {NAME}'="" 1 ^SRO conditional 132.95 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^SRO nonnull 132.95 "C" {CODE} {IEN} 0]]> Generated class for FileMan File Number: '409.1' File Name: 'APPOINTMENT TYPE' Class generated by %fm2class version 2.56 These are the valid appointment types to be used in Scheduling as determined by the MAS SIUG. This file should not be altered in ANY fashion unless so directed by the ISC. persistent _PUBLIC 0 RowId APPOINTMENT_TYPE_409_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.984558925 67178,44704.163696801 right APPOINTMENT TYPE 409.1 2.56 12/04/2024 12:25:04 1 1 IEN 1 ELIGIBILITY_CODE_8]]> DEFAULTELIGIBILITY VALIP.prosthetic.fm2cw.ELIGIBILITYCODE8 FKey_DEFAULT_ELIGIBILITY FileMan Field Label: 'DEFAULT ELIGIBILITY' FileMan Field Number: '6' A specific eligibility code can be entered in this field as the default eligibility allowed for this appointment type. If a veteran is for example WWII and the default eligibility for appointment type is WWI, user will be unable to schedule this visit utilizing this appointment type. VALIP.prosthetic.fm2cw.ELIGIBILITYCODE8 9 DEFAULT_ELIGIBILITY NAME This field contains the site specific name for the eligibility. In most cases the name will be the same as the MAS ELIGIBILITY CODE pointed to by the MAS ELIGIBILITY CODE field of this file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.APPOINTMENT_TYPE_409_1 where %ID=:id) set {DEFAULT_ELIGIBILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEFAULT_ELIGIBILITY_NAME 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '10' A word-processing field describing the definition and/or use of each appointment type in this file. %Library.String 10 DESCRIPTION FileMan Field Label: 'DUAL ELIGIBILITY ALLOWED' FileMan Field Number: '5' If an appointment type will allow dual eligibility for this particular appointment type. Dual eligibility is when a veteran has a primary eligibility, i.e. NSC VETERAN, but is also a VA employee and will have a second or dual eligibility of EMPLOYEE. %Library.EnumString 8 DUAL_ELIGIBILITY_ALLOWED Internal Entry Number %Library.String $$next^%apiSQL("$p(^SD(409.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IGNORE MEANS TEST BILLING' FileMan Field Number: '2' A '1' placed in this field denotes that any veteran who is categorized by this particular appointment type will be exempt for having to complete and Means Test and from any form of billing for care received. %Library.EnumString 5 IGNORE_MEANS_TEST_BILLING FileMan Field Label: 'INACTIVE' FileMan Field Number: '3' A '1' indicates that this particular appointment type is inactive and no longer used per instructions from VA Central Office. %Library.EnumString 6 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name of the appointment type, i.e. Class II Dental is designated for veterans who are scheduling an appointment to be treated for a dental condition that was related to active duty. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' Internal reference number assigned automatically as each new entry is placed in the file. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'SYNONYM' FileMan Field Number: '4' A similar name or abbreviation to identify this appointment type. %Library.String 7 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SD(409.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(409.1,"+1,",.01)={"NAME"} set:{IGNORE_MEANS_TEST_BILLING}'="" FDA(409.1,"+1,",2)={"IGNORE_MEANS_TEST_BILLING"} set:{INACTIVE}'="" FDA(409.1,"+1,",3)={"INACTIVE"} set:{SYNONYM}'="" FDA(409.1,"+1,",4)={"SYNONYM"} set:{DUAL_ELIGIBILITY_ALLOWED}'="" FDA(409.1,"+1,",5)={"DUAL_ELIGIBILITY_ALLOWED"} set:{DEFAULT_ELIGIBILITY}'="" FDA(409.1,"+1,",6)={"DEFAULT_ELIGIBILITY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(409.1)") set %SkipFiling=1 if $d(%FMERR(409.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(409.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(409.1,{RowId},10,,"wp","%FMERR(409.1)") if $d(%FMERR(409.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(409.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(409.1,IENS,.01)={NAME} set:{IGNORE_MEANS_TEST_BILLING*C} FDA(409.1,IENS,2)={IGNORE_MEANS_TEST_BILLING} set:{INACTIVE*C} FDA(409.1,IENS,3)={INACTIVE} set:{SYNONYM*C} FDA(409.1,IENS,4)={SYNONYM} set:{DUAL_ELIGIBILITY_ALLOWED*C} FDA(409.1,IENS,5)={DUAL_ELIGIBILITY_ALLOWED} set:{DEFAULT_ELIGIBILITY*C} FDA(409.1,IENS,6)={DEFAULT_ELIGIBILITY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(409.1)") set %SkipFiling=1 if $d(%FMERR(409.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(409.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(409.1,{RowId},10,,wproot,"%FMERR(409.1)") if $d(%FMERR(409.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(409.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.APPOINTMENT76ACS data ^SD 409.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 6 1 new data,i,node set {DESCRIPTION}="" merge data=^SD(409.1,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 5 "^" 0 2 "^" 0 3 "^" 0 1 "^" 0 4 index ^SD nonnull 409.1 "B" {NAME} {IEN} 0]]> Generated class for FileMan File Number: '132.8' File Name: 'ASA CLASS' Class generated by %fm2class version 2.56 This file contains the American Society of Anesthesiologists physical status classification system, based on the presence and severity of disease in the patient. persistent _PUBLIC 0 RowId ASA_CLASS_132_8 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.982459256 67178,44704.203815218 right ASA CLASS 132.8 2.56 12/04/2024 12:25:04 1 1 IEN 1 FileMan Field Label: 'ASA CLASS' FileMan Field Number: '.01' ASA Class This is the American Society of Anesthesiologists class. It relates to the patient's physiologic status. Numbers followed by an 'E' indicate an emergency. 1 1-NO DISTURB. 1E 1E-NO DISTURB-EMERG 2 2-MILD DISTURB. 2E 2E-MILD DISTURB.-EMERG 3 3-SEVERE DISTURB. 3E 3E-SEVERE DIST.-EMERG. 4 4-LIFE THREAT 4E 4E-LIFE THREAT-EMERG. 5 5-MORIBUND 5E 5E-MORIBUND-EMERG 6 6-BRAIN-DEAD 6E 6E-BRAIN-DEAD-EMERG. %Library.String 1 3 ASA_CLASS FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' Description For this ASA class, this field describes the physical status of the patient. %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(132.8,0),""^"",3)") 1 2 IEN FileMan Field Label: 'PHYSICAL STATUS' FileMan Field Number: '1' Physical Status For this ASA class, this is the brief description of the physical status of the patient. This field is used on reports that display the ASA class. %Library.String 4 PHYSICAL_STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(132.8," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ASA_CLASS}'="" FDA(132.8,"+1,",.01)={"ASA_CLASS"} set:{PHYSICAL_STATUS}'="" FDA(132.8,"+1,",1)={"PHYSICAL_STATUS"} set:{DESCRIPTION}'="" FDA(132.8,"+1,",2)={"DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(132.8)") set %SkipFiling=1 if $d(%FMERR(132.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ASA_CLASS*C} FDA(132.8,IENS,.01)={ASA_CLASS} set:{PHYSICAL_STATUS*C} FDA(132.8,IENS,1)={PHYSICAL_STATUS} set:{DESCRIPTION*C} FDA(132.8,IENS,2)={DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(132.8)") set %SkipFiling=1 if $d(%FMERR(132.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.ASACLASS1328S data ^SRO 132.8 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 Generated class for FileMan File Number: '132.9' File Name: 'ATTENDING CODES' Class generated by %fm2class version 2.56 This file is pointed to by the ATTENDING CODE field in the SURGERY file (#130). It contains the codes representing the highest level of resident supervision provided by the attending staff surgeon. Sites should NOT make additional entries to this file and should NOT modify existing entries in this file. persistent _PUBLIC 0 RowId ATTENDING_CODES_132_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44737.983935757 67178,44704.243785858 right ATTENDING CODES 132.9 2.56 12/04/2024 12:25:04 1 1 IEN 1 FileMan Field Label: 'ATTENDING CODE NAME' FileMan Field Number: '.01' Attending Code Name This is the attending code name briefly describing the highest level of resident supervision provided by the attending staff surgeon. %Library.String 1 3 ATTENDING_CODE_NAME FileMan Field Label: 'CODE' FileMan Field Number: '1' Attending Code This is the code representing the highest level of resident supervision provided by the attending staff surgeon. %Library.String 4 CODE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(132.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '3' Inactive This field flags this attending code as inactive. %Library.EnumString 6 INACTIVE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(132.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ATTENDING_CODE_NAME}'="" FDA(132.9,"+1,",.01)={"ATTENDING_CODE_NAME"} set:{CODE}'="" FDA(132.9,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(132.9,"+1,",3)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(132.9)") set %SkipFiling=1 if $d(%FMERR(132.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(132.9,{RowId},2,,"wp","%FMERR(132.9)") if $d(%FMERR(132.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ATTENDING_CODE_NAME*C} FDA(132.9,IENS,.01)={ATTENDING_CODE_NAME} set:{CODE*C} FDA(132.9,IENS,1)={CODE} set:{INACTIVE*C} FDA(132.9,IENS,3)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(132.9)") set %SkipFiling=1 if $d(%FMERR(132.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(132.9,{RowId},2,,wproot,"%FMERR(132.9)") if $d(%FMERR(132.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ATTENDINGCO6534S data ^SRO 132.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 1 new data,i,node set {DESCRIPTION}="" merge data=^SRO(132.9,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 3 index ^SRO nonnull 132.9 "C" {CODE} {IEN} 0]]> Generated class for FileMan File Number: '445.5' File Name: 'AUTOMATED SUPPLY STATIONS' Class generated by %fm2class version 2.56 This file contains information that assists GIP in communicating correctly with a supply station. persistent _PUBLIC 0 RowId AUTOMATED_SUPPLY_STATIONS_445_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44768.476363606 67178,44704.274666147 right AUTOMATED SUPPLY STATIONS 445.5 2.56 12/04/2024 12:25:04 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCP(445.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INVENTORY UPDATES' FileMan Field Number: '1' This field will be used to assist GIP in determining what information related to an item should be passed to the supply station and when. %Library.EnumString 4 INVENTORY_UPDATES FileMan Field Label: 'Link Name' FileMan Field Number: '2' This field will store the VA HL7 logical link for this supply station vendor. %Library.String 5 LINK_NAME FileMan Field Label: 'NAME' FileMan Field Number: '.01' SYSTEM NAME This field uniquely identifies a system or group of linked machines supported by a single vendor and sharing the same system requirements. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCP(445.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(445.5,"+1,",.01)={"NAME"} set:{INVENTORY_UPDATES}'="" FDA(445.5,"+1,",1)={"INVENTORY_UPDATES"} set:{LINK_NAME}'="" FDA(445.5,"+1,",2)={"LINK_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(445.5)") set %SkipFiling=1 if $d(%FMERR(445.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(445.5,IENS,.01)={NAME} set:{INVENTORY_UPDATES*C} FDA(445.5,IENS,1)={INVENTORY_UPDATES} set:{LINK_NAME*C} FDA(445.5,IENS,2)={LINK_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.5)") set %SkipFiling=1 if $d(%FMERR(445.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.AUTOMATEDSU9AD9S data ^PRCP 445.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 index {NAME}'="" 1 ^PRCP conditional 445.5 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> Generated class for FileMan File Number: '23' File Name: 'BRANCH OF SERVICE' Class generated by %fm2class version 2.56 The file contains the branches of service in which a person may have served (or be serving) in the military. persistent _PUBLIC 0 RowId BRANCH_OF_SERVICE_23 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.009176421 67178,44707.321890088 right BRANCH OF SERVICE 23 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains a synonym or shortened name associated with a specific branch of service. | %Library.String 5 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(23,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains that NAME of the Branch of Service. It should not be altered or deleted unless done through an upgrade of an MAS package installation. | %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This file contains the internal entry number for this branch of service. This number may be used by various software packages. This must not be edited and entries must not be added or deleted unless done through a software upgrade of the MAS package. | %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(23," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(23,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(23,"+1,",1)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(23)") set %SkipFiling=1 if $d(%FMERR(23,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(23)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(23,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(23,IENS,1)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(23)") set %SkipFiling=1 if $d(%FMERR(23,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(23)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.BRANCHOFSER8FA1S index ^DIC nonnull 23 "B" {NAME} {IEN} 0]]> data ^DIC 23 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 index ^DIC nonnull 23 "C" {ABBREVIATION} {IEN} 0]]> Generated class for FileMan File Number: '420.2' File Name: 'BUDGET OBJECT CODE' Class generated by %fm2class version 2.56 This file contains codes used by Fiscal service to subdivide procurement amount information by type of item used. persistent _PUBLIC 0 RowId BUDGET_OBJECT_CODE_420_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44768.625229492 67178,44707.346291104 right BUDGET OBJECT CODE 420.2 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'DATE/TIME DEACTIVATED' FileMan Field Number: '.7' This is the date/time this sub-account was deactivated. %Library.FilemanTimeStamp 5 DATETIME_DEACTIVATED FileMan Field Label: 'DEACTIVATED BOC' FileMan Field Number: '.5' This is the deactivated sub-account. %Library.EnumString 4 DEACTIVATED_BOC FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' This is the description of this sub-account. %Library.String 6 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCD(420.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the budget object code, a space and the budget object code name. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCD(420.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(420.2,"+1,",.01)={"NAME"} set:{DEACTIVATED_BOC}'="" FDA(420.2,"+1,",.5)={"DEACTIVATED_BOC"} set:{DATETIME_DEACTIVATED}'="" FDA(420.2,"+1,",.7)={"DATETIME_DEACTIVATED"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(420.2)") set %SkipFiling=1 if $d(%FMERR(420.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(420.2,{RowId},1,,"wp","%FMERR(420.2)") if $d(%FMERR(420.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(420.2,IENS,.01)={NAME} set:{DEACTIVATED_BOC*C} FDA(420.2,IENS,.5)={DEACTIVATED_BOC} set:{DATETIME_DEACTIVATED*C} FDA(420.2,IENS,.7)={DATETIME_DEACTIVATED} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(420.2)") set %SkipFiling=1 if $d(%FMERR(420.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(420.2,{RowId},1,,wproot,"%FMERR(420.2)") if $d(%FMERR(420.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.BUDGETOBJECTECFS index {NAME}'="" 1 ^PRCD conditional 420.2 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^PRCD 420.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 2 1 new data,i,node set {DESCRIPTION}="" merge data=^PRCD(420.2,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 Generated class for FileMan File Number: '3.6' File Name: 'BULLETIN' Class generated by %fm2class version 2.56 Bulletins are 'Super' messages. Each Bulletin has a text and a subject just like a normal message. But embedded within either the subject or the text can be variable fields that can be filled in with parameters. There is also a standard set of recipients in the form of a Mail Group that is associated with the bulletin. Bulletins are processed by MailMan either because of a special cross reference type of FileMan or because of a direct call in a routine. The interface for the direct call is described in the documentation on programmer entry points. FileMan sets up code that will issue a bulletin automatically when the special cross reference type is created. In either case the parameters that go into the text and/or the subject make each bulletin unique. persistent _PUBLIC 0 RowId BULLETIN_3_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.012606122 67178,44707.370042807 right BULLETIN 3.6 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '6' This field is a description of the bulletin, for documentation purposes. It is not used by MailMan for any automatic processing. %Library.String 6 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^XMB(3.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MESSAGE' FileMan Field Number: '10' This holds the "canned" text of the bulletin which will be sent when the bulletin is fired. Variable text may be stored in parameters at the time of firing, then inserted in the message text. Parameter windows are defined by putting them within vertical bars, with the parameter number inside. For example, "Appointment for |1| on |2| has been cancelled." with parameter 1 set to "Jones", and parameter 2 set to "Monday" would generate a bulletin of "Appointment for Jones on Monday has been cancelled." Parameters may be set with fileman (in the Bulletin cross reference) or by programmers from within programs. %Library.String 7 MESSAGE FileMan Field Label: 'NAME' FileMan Field Number: '.01' A Unique name of bulletin, beginning with the package prefix This field is the name of the bulletin, in the standard format of a two character package prefix, followed by a descriptive name. %Library.String 1 3 NAME FileMan Field Label: 'PRIORITY?' FileMan Field Number: '12' If you want this bulletin to appear to the recipients as a priority message, enter 'yes'; if not, enter 'no'. %Library.EnumString 8 PRIORITY FileMan Field Label: 'RETENTION DAYS' FileMan Field Number: '5' After this number of days, if the bulletin hasn't already been purged, it will be purged by the XMAUTOPURGE option. If zero or null, the bulletin will not have a purge date, and will not be purged by XMAUTOPURGE. %Library.Numeric 5 RETENTION_DAYS FileMan Field Label: 'SUBJECT' FileMan Field Number: '2' The subject of the message generated, as it will appear on the message This is the subject of the bulletin, as it will appear to the recipient. Note that it may contain windows, just as in the "MESSAGE" field. %Library.String 4 SUBJECT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^XMB(3.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(3.6,"+1,",.01)={"NAME"} set:{SUBJECT}'="" FDA(3.6,"+1,",2)={"SUBJECT"} set:{RETENTION_DAYS}'="" FDA(3.6,"+1,",5)={"RETENTION_DAYS"} set:{PRIORITY}'="" FDA(3.6,"+1,",12)={"PRIORITY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(3.6)") set %SkipFiling=1 if $d(%FMERR(3.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(3.6,{RowId},6,,"wp","%FMERR(3.6)") if $d(%FMERR(3.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MESSAGE}'="" { set D0={RowId} for i=1:1:$l({MESSAGE},$c(13,10)) { set wp(i)=$p({MESSAGE},$c(13,10),i) } do WP^DIE(3.6,{RowId},10,,"wp","%FMERR(3.6)") if $d(%FMERR(3.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(3.6,IENS,.01)={NAME} set:{SUBJECT*C} FDA(3.6,IENS,2)={SUBJECT} set:{RETENTION_DAYS*C} FDA(3.6,IENS,5)={RETENTION_DAYS} set:{PRIORITY*C} FDA(3.6,IENS,12)={PRIORITY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(3.6)") set %SkipFiling=1 if $d(%FMERR(3.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(3.6,{RowId},6,,wproot,"%FMERR(3.6)") if $d(%FMERR(3.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MESSAGE*C} { set D0={RowId} kill wp if {MESSAGE}'="" { set wproot="wp" for i=1:1:$l({MESSAGE},$c(13,10)) { set wp(i)=$p({MESSAGE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(3.6,{RowId},10,,wproot,"%FMERR(3.6)") if $d(%FMERR(3.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.BULLETIN36S index ^XMB nonnull 3.6 "B" {NAME} {IEN} 0]]> data ^XMB 3.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 new data,i,node set {DESCRIPTION}="" merge data=^XMB(3.6,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 1 new data,i,node set {MESSAGE}="" merge data=^XMB(3.6,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {MESSAGE}={MESSAGE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 4 "^" 0 3 "^" 0 2 Generated class for FileMan File Number: '696.4' File Name: 'BYPASS GRAFT SEGMENT' Class generated by %fm2class version 2.56 This file contains the various locations for the bypass graft segment. It is pointed to by the CARDIAC CATHETERIZATION file. persistent _PUBLIC 0 RowId BYPASS_GRAFT_SEGMENT_696_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.015950241 67178,44707.394495334 right BYPASS GRAFT SEGMENT 696.4 2.56 12/04/2024 12:25:07 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field stores a list of the various locations for Bypass Graft Segments for use by the Catheterization sub-module. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696.4,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696.4)") set %SkipFiling=1 if $d(%FMERR(696.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696.4,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.4)") set %SkipFiling=1 if $d(%FMERR(696.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.BYPASSGRAFT82E0S index ^MCAR nonnull 696.4 "B" {NAME} {IEN} 0]]> data ^MCAR 696.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '691.1' File Name: 'CARDIAC CATHETERIZATION' Class generated by %fm2class version 2.56 THIS FILE STORES THE DATA ON 'CATHERIZATIONS' DONE ON PATIENTS persistent _PUBLIC 0 RowId CARDIAC_CATHETERIZATION_691_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.091735412 67178,44707.449119163 right CARDIAC CATHETERIZATION 691.1 2.56 12/04/2024 12:25:07 1 1 IEN 1 NEW_PERSON_200]]> CARDIOLOGYFELLOW VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_FELLOW NEW_PERSON_200]]> CARDIOLOGYFELLOW2ND VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_FELLOW2ND NEW_PERSON_200]]> CARDIOLOGYSTAFF VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_STAFF NEW_PERSON_200]]> CARDIOLOGYSTAFF2ND VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_STAFF2ND MORPHOLOGY_OF_DISTAL_VESSEL_696_3]]> CIRCUMFLEXDISTALVESSEL VALIP.prosthetic.fm2cw.MORPHOLOGYOFDISTALVESSEL6963 FKey_CIRCUMFLEX_DISTAL_VESSEL NORMALITY_OF_CORONARY_VESSEL_695_9]]> CIRCUMFLEXNORMALITY VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 FKey_CIRCUMFLEX_NORMALITY NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO INTERPRETATION_693_2]]> INTERPRETATION VALIP.prosthetic.fm2cw.INTERPRETATION6932 FKey_INTERPRETATION MORPHOLOGY_OF_DISTAL_VESSEL_696_3]]> LADDISTALVESSELS VALIP.prosthetic.fm2cw.MORPHOLOGYOFDISTALVESSEL6963 FKey_LAD_DISTAL_VESSELS NORMALITY_OF_CORONARY_VESSEL_695_9]]> LADNORMALITY VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 FKey_LAD_NORMALITY NORMALITY_OF_CORONARY_VESSEL_695_9]]> LEFTMAINCANORMALITY VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 FKey_LEFT_MAIN_CA_NORMALITY MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT MITRAL_REGURG_ON_LV_GRAM_696_7]]> MITRALREGURGITATION VALIP.prosthetic.fm2cw.MITRALREGURGONLVGRAM6967 FKey_MITRAL_REGURGITATION ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER MORPHOLOGY_OF_DISTAL_VESSEL_696_3]]> RCADISTALVESSEL VALIP.prosthetic.fm2cw.MORPHOLOGYOFDISTALVESSEL6963 FKey_RCA_DISTAL_VESSEL NORMALITY_OF_CORONARY_VESSEL_695_9]]> RCANORMALITY VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 FKey_RCA_NORMALITY REFERRING_PHYSICIANAGENCY_697_1]]> REFERRINGPHYSICIANAGENCY VALIP.prosthetic.fm2cw.REFERRINGPHYSICIANAGENCY6971 FKey_REFERRING_PHYSICIANAGENCY NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'AORTIC REGURGITANT FRACTION' FileMan Field Number: '51.6' This allows the user to enter aortic regurgitant fraction. %Library.Numeric 37 AORTIC_REGURGITANT_FRACTION FileMan Field Label: 'AORTIC ROOT' FileMan Field Number: '55' This allows the user to enter the aortic root dimensions normality. %Library.EnumString 42 AORTIC_ROOT FileMan Field Label: 'AORTOGRAPHY' FileMan Field Number: '54' This allows the user to enter the aortography projection. %Library.EnumString 41 AORTOGRAPHY FileMan Field Label: 'AORTOGRAPHY PROJECTION' FileMan Field Number: '23' This field identifies the view of the aortography projection. %Library.EnumString 19 AORTOGRAPHY_PROJECTION FileMan Field Label: 'BODY SURFACE AREA' FileMan Field Number: '1.3' This field identifies parameter is calculated by height and weight and stored in square meters. %Library.Numeric 9 BODY_SURFACE_AREA FileMan Field Label: 'BYPASS GRAFT?' FileMan Field Number: '46' This allows the user to enter the presence of coronary bypass grafts. %Library.EnumString 33 BYPASS_GRAFT FileMan Field Label: 'BYPASS GRAFTS' FileMan Field Number: '57' This allows the user to enter number of coronary bypass grafts. %Library.EnumString 44 BYPASS_GRAFTS FileMan Field Label: 'CARDIAC OUTPUT' FileMan Field Number: '2009' This field computes the Angiographic Cardiac Output from the Resting Heart Rate (#2006), EDV (#2007), and ESV (#2008). The formula used is: Heart_Rate * (EDV - ESV). %Library.String 1 77 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.1,2009,9.5) S X=$S(Y(691.1,2009,2):Y(691.1,2009,3),Y(691.1,2009,4):Y(691.1,2009,5),Y(691.1,2009,6):Y(691.1,2009,7),Y(691.1,2009,8):X) set {CARDIAC_OUTPUT}=X 1 CARDIAC_OUTPUT FileMan Field Label: 'CARDIOLOGY FELLOW' FileMan Field Number: '62' This allows the user to enter the primary cardiology fellow. VALIP.prosthetic.fm2cw.NEWPERSON200 48 CARDIOLOGY_FELLOW FileMan Field Label: 'CARDIOLOGY FELLOW-2ND' FileMan Field Number: '64' This allows the user to enter the secondary cardiology fellow. VALIP.prosthetic.fm2cw.NEWPERSON200 50 CARDIOLOGY_FELLOW2ND NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {CARDIOLOGY_FELLOW2ND_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_FELLOW2ND_NAME 1 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {CARDIOLOGY_FELLOW_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_FELLOW_NAME 1 FileMan Field Label: 'CARDIOLOGY STAFF' FileMan Field Number: '63' This allows the user to enter the primary physician in attendance. VALIP.prosthetic.fm2cw.NEWPERSON200 49 CARDIOLOGY_STAFF FileMan Field Label: 'CARDIOLOGY STAFF-2ND' FileMan Field Number: '65' This allows the user to enter the secondary physician in attendance. VALIP.prosthetic.fm2cw.NEWPERSON200 51 CARDIOLOGY_STAFF2ND NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {CARDIOLOGY_STAFF2ND_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_STAFF2ND_NAME 1 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {CARDIOLOGY_STAFF_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_STAFF_NAME 1 FileMan Field Label: 'CATH NUMBER' FileMan Field Number: '3' This allows the user to enter the cardiac catheterization procedure number. %Library.String 10 CATH_NUMBER FileMan Field Label: 'CIRCUMFLEX COLLATERALS' FileMan Field Number: '42' This allows the user to enter the circumflex coronary artery collaterals. %Library.EnumString 31 CIRCUMFLEX_COLLATERALS FileMan Field Label: 'CIRCUMFLEX DISTAL VESSEL' FileMan Field Number: '41' This allows the user to enter circumflex coronary artery distal vessels. VALIP.prosthetic.fm2cw.MORPHOLOGYOFDISTALVESSEL6963 30 CIRCUMFLEX_DISTAL_VESSEL NAME This field stores the list of morphologies for Distal Vessels for use by the Cardiac Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {CIRCUMFLEX_DISTAL_VESSEL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CIRCUMFLEX_DISTAL_VESSEL_NAME 1 FileMan Field Label: 'CIRCUMFLEX NORMALITY' FileMan Field Number: '39' This allows the user to enter the circumflex coronary normality. VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 29 CIRCUMFLEX_NORMALITY NAME This field contains the Coronary Vessel Normalities for various segments of the coronary vessel.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {CIRCUMFLEX_NORMALITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CIRCUMFLEX_NORMALITY_NAME 1 FileMan Field Label: 'CONCLUSION' FileMan Field Number: '60' This allows the user to enter specific statements in reference to the cardiac cath. %Library.String 46 CONCLUSION FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This date/time field identifies the catheterization procedure. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' This is the date that the record was released to the general medical record viewer. %Library.FilemanTimeStamp 65 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' This is the date and time that the procedure was signed electronically. %Library.FilemanTimeStamp 66 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' This field documents the identity of the deleter. VALIP.prosthetic.fm2cw.NEWPERSON200 70 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'DOMINANCE' FileMan Field Number: '45' This allows the user to enter the dominant coronary tree. %Library.EnumString 32 DOMINANCE FileMan Field Label: 'END DIASTOLIC VOLUME' FileMan Field Number: '2007' This allows the user to enter the left ventricular diastolic volume. %Library.Numeric 75 END_DIASTOLIC_VOLUME FileMan Field Label: 'END SYSTOLIC VOLUME' FileMan Field Number: '2008' This allows the user to enter the left ventricular end systolic volume. %Library.Numeric 76 END_SYSTOLIC_VOLUME FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' This is the date and time that the record was entered. %Library.FilemanTimeStamp 60 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' This field identifies the individual who created this version of the record, the last person to edit the entree. VALIP.prosthetic.fm2cw.NEWPERSON200 58 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'ENTERING ELECTRONIC SIGNATURE' FileMan Field Number: '1501' This is the scrambled electronic signature. %Library.String 59 ENTERING_ELECTRONIC_SIGNATURE FileMan Field Label: 'FLUORO TIME' FileMan Field Number: '17' This allows the user to enter catheterization fluoroscopy time. %Library.Numeric 16 FLUORO_TIME FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 57 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HISTORY' FileMan Field Number: '9' This allows the user to enter a brief medical history. %Library.String 14 HISTORY FileMan Field Label: 'HT IN' FileMan Field Number: '1.2' The height in inches at the time of the procedure. %Library.Numeric 8 HT_IN FileMan Field Label: 'ID' FileMan Field Number: '.02' This field identifies the patient's identification number assigned by the medical facility. In most cases it is the person's social security number. %Library.String 4 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(691.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETATION' FileMan Field Number: '59' This allows the user to enter the final interpretation of the cardiac cath. VALIP.prosthetic.fm2cw.INTERPRETATION6932 45 INTERPRETATION INTERPRETATION This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {INTERPRETATION_INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 INTERPRETATION_INTERPRETATION 1 FileMan Field Label: 'LAD COLLATERALS' FileMan Field Number: '37' This allows the user to enter left anterior descending collateral vessels. %Library.EnumString 28 LAD_COLLATERALS FileMan Field Label: 'LAD DISTAL VESSELS' FileMan Field Number: '36' This allows the user to enter the left anterior descending distal vessels. VALIP.prosthetic.fm2cw.MORPHOLOGYOFDISTALVESSEL6963 27 LAD_DISTAL_VESSELS NAME This field stores the list of morphologies for Distal Vessels for use by the Cardiac Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {LAD_DISTAL_VESSELS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAD_DISTAL_VESSELS_NAME 1 FileMan Field Label: 'LAD NORMALITY' FileMan Field Number: '34' This allows the user to enter the left anterior descending coronary artery normality. VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 26 LAD_NORMALITY NAME This field contains the Coronary Vessel Normalities for various segments of the coronary vessel.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {LAD_NORMALITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAD_NORMALITY_NAME 1 FileMan Field Label: 'LEFT MAIN CA NORMALITY' FileMan Field Number: '32' This allows the user to enter the left main coronary artery normality. VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 25 LEFT_MAIN_CA_NORMALITY NAME This field contains the Coronary Vessel Normalities for various segments of the coronary vessel.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {LEFT_MAIN_CA_NORMALITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LEFT_MAIN_CA_NORMALITY_NAME 1 FileMan Field Label: 'LEFT VENTRICULOGRAPHY' FileMan Field Number: '49' This field identifies the field used to enter the performance of a left ventriculography. %Library.EnumString 34 LEFT_VENTRICULOGRAPHY FileMan Field Label: 'LV EJECTION FRACTION' FileMan Field Number: '53' This allows the user to enter the calculated LV ejection fraction. %Library.Numeric 40 LV_EJECTION_FRACTION FileMan Field Label: 'MARKED FOR DELETION' FileMan Field Number: '899' This field is used by lookup operations to screen out such records from general access by the electronic medical record. The functionality allows this record to remain in the system for auditing purposes. %Library.EnumString 54 MARKED_FOR_DELETION FileMan Field Label: 'MARKED FOR DELETION' FileMan Field Number: '1511' This field allows the record to remain in the database but screened from the medical record. %Library.EnumString 69 MARKED_FOR_DELETION0 FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the name of the patient followed by a space(optional), followed by the first name, followed by a space, followed by the middle initial. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 6 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'MITRAL REGURGITANT FRACTION' FileMan Field Number: '51.5' This allows the user to enter the mitral regurgitation fraction. %Library.Numeric 36 MITRAL_REGURGITANT_FRACTION FileMan Field Label: 'MITRAL REGURGITATION' FileMan Field Number: '51' This allows the user to enter the presence of mitral regurgitation. VALIP.prosthetic.fm2cw.MITRALREGURGONLVGRAM6967 35 MITRAL_REGURGITATION NAME This file holds the list of allowable Mitral Regurgitations for use by the Cardiac Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {MITRAL_REGURGITATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MITRAL_REGURGITATION_NAME 1 FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 56 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER PROCEDURE AND COMMENT' FileMan Field Number: '24' This allows the user to enter unspecified procedures and comments. %Library.String 20 OTHER_PROCEDURE_AND_COMMENT FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC VISIT file for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 55 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PHYSICAL EXAM' FileMan Field Number: '12' This allows the user to enter data obtained from medical patient's physical examination. %Library.String 15 PHYSICAL_EXAM FileMan Field Label: 'PLAN' FileMan Field Number: '61' This allows the user to enter specific statements in reference to the patient's management plan. %Library.String 47 PLAN FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 53 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This field will be displayed in the summary areas of Order Entry/Results Reporting and Health Care Summaries. %Library.String 52 PROCEDURE_SUMMARY FileMan Field Label: 'PROTAMINE' FileMan Field Number: '25' This allows the user to enter the protamine used during the cardiac catheterization. %Library.String 21 PROTAMINE FileMan Field Label: 'RCA COLLATERAL' FileMan Field Number: '30' This allows the user to enter the right coronary artery collateral vessel. %Library.EnumString 24 RCA_COLLATERAL FileMan Field Label: 'RCA DISTAL VESSEL' FileMan Field Number: '29' This allows the user to enter the right coronary artery distal vessel. VALIP.prosthetic.fm2cw.MORPHOLOGYOFDISTALVESSEL6963 23 RCA_DISTAL_VESSEL NAME This field stores the list of morphologies for Distal Vessels for use by the Cardiac Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {RCA_DISTAL_VESSEL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RCA_DISTAL_VESSEL_NAME 1 FileMan Field Label: 'RCA NORMALITY' FileMan Field Number: '27' This allows the user to enter the right coronary artery normality. VALIP.prosthetic.fm2cw.NORMALITYOFCORONARYVESSEL6959 22 RCA_NORMALITY NAME This field contains the Coronary Vessel Normalities for various segments of the coronary vessel.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {RCA_NORMALITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RCA_NORMALITY_NAME 1 FileMan Field Label: 'RECORD CREATATION DATE' FileMan Field Number: '1514' This field stores the date the original file entry for this procedure was made. %Library.FilemanTimeStamp 72 RECORD_CREATATION_DATE FileMan Field Label: 'REFERRING PHYSICIAN/AGENCY' FileMan Field Number: '4' This allows the user to enter the referring physician/agency/hospital's name. VALIP.prosthetic.fm2cw.REFERRINGPHYSICIANAGENCY6971 11 REFERRING_PHYSICIANAGENCY NAME This field identifies a list of non-site physicians or referring agencies that refer a patient to the VA site for a Catheterization. This list is LAYGO.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {REFERRING_PHYSICIANAGENCY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REFERRING_PHYSICIANAGENCY_NAME 1 FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' This field controls the release status of the record. %Library.EnumString 64 RELEASE_CODE FileMan Field Label: 'RESTING HEART RATE' FileMan Field Number: '2006' This field identifies the patient's resting heart rate. %Library.Numeric 74 RESTING_HEART_RATE FileMan Field Label: 'RIGHT HEART CATHETER' FileMan Field Number: '19' This allows the user to enter the specific right heart catheter used. %Library.EnumString 18 RIGHT_HEART_CATHETER FileMan Field Label: 'SINUSES OF VALSALVA' FileMan Field Number: '56' This allows the user to enter number of sinuses of valsalva. %Library.EnumString 43 SINUSES_OF_VALSALVA Relationship for Sub-File/Multiple to file name ANGIOPLASTY SEGMENT child VALIP.prosthetic.fm2cw.SUBANGIOPLASTYSEGMENT69136 children CARDIACCATHETERIZATION6911 1 SUB_ANGIOPLASTY_SEGMENT_691_36 Relationship for Sub-File/Multiple to file name CCL LOG PROCEDURE child VALIP.prosthetic.fm2cw.SUBCCLLOGPROCEDURE69111 children CARDIACCATHETERIZATION6911 1 SUB_CCL_LOG_PROCEDURE_691_11 Relationship for Sub-File/Multiple to file name CIRCUMFLEX SEGMENT child VALIP.prosthetic.fm2cw.SUBCIRCUMFLEXSEGMENT69132 children CARDIACCATHETERIZATION6911 1 SUB_CIRCUMFLEX_SEGMENT_691_32 Relationship for Sub-File/Multiple to file name CIR. ORIGIN OF COLLATERALS child VALIP.prosthetic.fm2cw.SUBCIRORIGINOFCOLLATERALS69133 children CARDIACCATHETERIZATION6911 1 SUB_CIR__ORIGIN_OF_COLLATERALS_691_33 Relationship for Sub-File/Multiple to file name COMPLICATION child VALIP.prosthetic.fm2cw.SUBCOMPLICATION6914 children CARDIACCATHETERIZATION6911 1 SUB_COMPLICATION_691_4 Relationship for Sub-File/Multiple to file name DISTAL ANASTOMOSIS child VALIP.prosthetic.fm2cw.SUBDISTALANASTOMOSIS69135 children CARDIACCATHETERIZATION6911 1 SUB_DISTAL_ANASTOMOSIS_691_35 Relationship for Sub-File/Multiple to file name FLUOROSCOPY child VALIP.prosthetic.fm2cw.SUBFLUOROSCOPY69134 children CARDIACCATHETERIZATION6911 1 SUB_FLUOROSCOPY_691_34 Relationship for Sub-File/Multiple to file name HEART MEDICATION child VALIP.prosthetic.fm2cw.SUBHEARTMEDICATION69116 children CARDIACCATHETERIZATION6911 1 SUB_HEART_MEDICATION_691_16 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69146 children CARDIACCATHETERIZATION6911 1 SUB_ICD_DIAGNOSIS_691_46 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE69112005 children CARDIACCATHETERIZATION6911 1 SUB_IMAGE_691_12005 Relationship for Sub-File/Multiple to file name INDICATION child VALIP.prosthetic.fm2cw.SUBINDICATION69118 children CARDIACCATHETERIZATION6911 1 SUB_INDICATION_691_18 Relationship for Sub-File/Multiple to file name INTERVENTION child VALIP.prosthetic.fm2cw.SUBINTERVENTION69126 children CARDIACCATHETERIZATION6911 1 SUB_INTERVENTION_691_26 Relationship for Sub-File/Multiple to file name LAD ORIGIN OF COLLATERALS child VALIP.prosthetic.fm2cw.SUBLADORIGINOFCOLLATERALS69131 children CARDIACCATHETERIZATION6911 1 SUB_LAD_ORIGIN_OF_COLLATERALS_691_31 Relationship for Sub-File/Multiple to file name LAD SEGMENT child VALIP.prosthetic.fm2cw.SUBLADSEGMENT6913 children CARDIACCATHETERIZATION6911 1 SUB_LAD_SEGMENT_691_3 Relationship for Sub-File/Multiple to file name LEFT CORONARY CATHETER child VALIP.prosthetic.fm2cw.SUBLEFTCORONARYCATHETER69124 children CARDIACCATHETERIZATION6911 1 SUB_LEFT_CORONARY_CATHETER_691_24 Relationship for Sub-File/Multiple to file name LEFT VENTRICULAR CATHETER child VALIP.prosthetic.fm2cw.SUBLEFTVENTRICULARCATHETER69122 children CARDIACCATHETERIZATION6911 1 SUB_LEFT_VENTRICULAR_CATHETER_691_22 Relationship for Sub-File/Multiple to file name LEFT VENTRICULAR WALL MOTION child VALIP.prosthetic.fm2cw.SUBLEFTVENTRICULARWALLMOTION69139 children CARDIACCATHETERIZATION6911 1 SUB_LEFT_VENTRICULAR_WALL_MOTION_691_39 Relationship for Sub-File/Multiple to file name LMCA NARROWING child VALIP.prosthetic.fm2cw.SUBLMCANARROWING69129 children CARDIACCATHETERIZATION6911 1 SUB_LMCA_NARROWING_691_29 Relationship for Sub-File/Multiple to file name LMCA NARROWING # child VALIP.prosthetic.fm2cw.SUBLMCANARROWING69147 children CARDIACCATHETERIZATION6911 1 SUB_LMCA_NARROWING__691_47 Relationship for Sub-File/Multiple to file name PREMEDICATION child VALIP.prosthetic.fm2cw.SUBPREMEDICATION6912 children CARDIACCATHETERIZATION6911 1 SUB_PREMEDICATION_691_2 Relationship for Sub-File/Multiple to file name PROCEDURE child VALIP.prosthetic.fm2cw.SUBPROCEDURE69113 children CARDIACCATHETERIZATION6911 1 SUB_PROCEDURE_691_13 Relationship for Sub-File/Multiple to file name RCA ORIGIN OF COLLATERAL child VALIP.prosthetic.fm2cw.SUBRCAORIGINOFCOLLATERAL69128 children CARDIACCATHETERIZATION6911 1 SUB_RCA_ORIGIN_OF_COLLATERAL_691_28 Relationship for Sub-File/Multiple to file name RCA SEGMENT child VALIP.prosthetic.fm2cw.SUBRCASEGMENT69127 children CARDIACCATHETERIZATION6911 1 SUB_RCA_SEGMENT_691_27 Relationship for Sub-File/Multiple to file name RIGHT CORONARY CATHETER child VALIP.prosthetic.fm2cw.SUBRIGHTCORONARYCATHETER69123 children CARDIACCATHETERIZATION6911 1 SUB_RIGHT_CORONARY_CATHETER_691_23 Relationship for Sub-File/Multiple to file name RISK FACTOR child VALIP.prosthetic.fm2cw.SUBRISKFACTOR69144 children CARDIACCATHETERIZATION6911 1 SUB_RISK_FACTOR_691_44 Relationship for Sub-File/Multiple to file name SYMPTOM child VALIP.prosthetic.fm2cw.SUBSYMPTOM69143 children CARDIACCATHETERIZATION6911 1 SUB_SYMPTOM_691_43 Relationship for Sub-File/Multiple to file name VASCULAR ACCESS child VALIP.prosthetic.fm2cw.SUBVASCULARACCESS69121 children CARDIACCATHETERIZATION6911 1 SUB_VASCULAR_ACCESS_691_21 FileMan Field Label: 'SUMMARY' FileMan Field Number: '.03' This fields contains the gross evaluation of the results of this procedure. %Library.EnumString 5 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' This indicator controls the process of superseding released records which require addendums or changes. This functionality allows an auditing of information which has been available for the medical record. %Library.Numeric 67 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' This field directs the flow of supersessions of records. %Library.Numeric 68 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' This is the date and time that the supersession took place. %Library.String 71 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' This value documents the sequence number of record revisions. %Library.Numeric 73 SUPERSEDED_NUMBER FileMan Field Label: 'TECH COMMENT' FileMan Field Number: '7' This allows the cardiac cath. technician to enter comments pertaining to the procedure. %Library.String 13 TECH_COMMENT FileMan Field Label: 'THROMBUS OM LV GRAM' FileMan Field Number: '52' This allows the user to enter presence of a LV thrombus. %Library.EnumString 39 THROMBUS_OM_LV_GRAM FileMan Field Label: 'TOTAL REGURGITANT FRACTION' FileMan Field Number: '51.7' This defines the computed total regurgitant fraction. %Library.Numeric 38 TOTAL_REGURGITANT_FRACTION FileMan Field Label: 'USE OF SHEATH' FileMan Field Number: '18' This defines the use of a sheath during cardiac catheterization. %Library.EnumString 17 USE_OF_SHEATH SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 78 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' This is the date that the record was verified. %Library.FilemanTimeStamp 63 VERIFIER_DATE FileMan Field Label: 'VERIFIER ELECTRONIC SIGNATURE' FileMan Field Number: '1504' This is the electronic signature of the verifier. %Library.String 62 VERIFIER_ELECTRONIC_SIGNATURE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' This is the New Person file identifier of the person releasing the record. The person entering the electronic signature is captured here. VALIP.prosthetic.fm2cw.NEWPERSON200 61 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '5' This field identifies the in-house patient address. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 12 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CARDIAC_CATHETERIZATION_691_1 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 FileMan Field Label: 'WT LBS' FileMan Field Number: '1.1' The weight of the patient at the time of the procedure is stored here. %Library.Numeric 7 WT_LBS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(691.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(691.1,"+1,",.01)={"DATETIME"} set:{ID}'="" FDA(691.1,"+1,",.02)={"ID"} set:{SUMMARY}'="" FDA(691.1,"+1,",.03)={"SUMMARY"} set:{MEDICAL_PATIENT}'="" FDA(691.1,"+1,",1)={"MEDICAL_PATIENT"} set:{WT_LBS}'="" FDA(691.1,"+1,",1.1)={"WT_LBS"} set:{HT_IN}'="" FDA(691.1,"+1,",1.2)={"HT_IN"} set:{BODY_SURFACE_AREA}'="" FDA(691.1,"+1,",1.3)={"BODY_SURFACE_AREA"} set:{CATH_NUMBER}'="" FDA(691.1,"+1,",3)={"CATH_NUMBER"} set:{REFERRING_PHYSICIANAGENCY}'="" FDA(691.1,"+1,",4)={"REFERRING_PHYSICIANAGENCY"} set:{WARDCLINIC}'="" FDA(691.1,"+1,",5)={"WARDCLINIC"} set:{FLUORO_TIME}'="" FDA(691.1,"+1,",17)={"FLUORO_TIME"} set:{USE_OF_SHEATH}'="" FDA(691.1,"+1,",18)={"USE_OF_SHEATH"} set:{RIGHT_HEART_CATHETER}'="" FDA(691.1,"+1,",19)={"RIGHT_HEART_CATHETER"} set:{AORTOGRAPHY_PROJECTION}'="" FDA(691.1,"+1,",23)={"AORTOGRAPHY_PROJECTION"} set:{PROTAMINE}'="" FDA(691.1,"+1,",25)={"PROTAMINE"} set:{RCA_NORMALITY}'="" FDA(691.1,"+1,",27)={"RCA_NORMALITY"} set:{RCA_DISTAL_VESSEL}'="" FDA(691.1,"+1,",29)={"RCA_DISTAL_VESSEL"} set:{RCA_COLLATERAL}'="" FDA(691.1,"+1,",30)={"RCA_COLLATERAL"} set:{LEFT_MAIN_CA_NORMALITY}'="" FDA(691.1,"+1,",32)={"LEFT_MAIN_CA_NORMALITY"} set:{LAD_NORMALITY}'="" FDA(691.1,"+1,",34)={"LAD_NORMALITY"} set:{LAD_DISTAL_VESSELS}'="" FDA(691.1,"+1,",36)={"LAD_DISTAL_VESSELS"} set:{LAD_COLLATERALS}'="" FDA(691.1,"+1,",37)={"LAD_COLLATERALS"} set:{CIRCUMFLEX_NORMALITY}'="" FDA(691.1,"+1,",39)={"CIRCUMFLEX_NORMALITY"} set:{CIRCUMFLEX_DISTAL_VESSEL}'="" FDA(691.1,"+1,",41)={"CIRCUMFLEX_DISTAL_VESSEL"} set:{CIRCUMFLEX_COLLATERALS}'="" FDA(691.1,"+1,",42)={"CIRCUMFLEX_COLLATERALS"} set:{DOMINANCE}'="" FDA(691.1,"+1,",45)={"DOMINANCE"} set:{BYPASS_GRAFT}'="" FDA(691.1,"+1,",46)={"BYPASS_GRAFT"} set:{LEFT_VENTRICULOGRAPHY}'="" FDA(691.1,"+1,",49)={"LEFT_VENTRICULOGRAPHY"} set:{MITRAL_REGURGITATION}'="" FDA(691.1,"+1,",51)={"MITRAL_REGURGITATION"} set:{MITRAL_REGURGITANT_FRACTION}'="" FDA(691.1,"+1,",51.5)={"MITRAL_REGURGITANT_FRACTION"} set:{AORTIC_REGURGITANT_FRACTION}'="" FDA(691.1,"+1,",51.6)={"AORTIC_REGURGITANT_FRACTION"} set:{TOTAL_REGURGITANT_FRACTION}'="" FDA(691.1,"+1,",51.7)={"TOTAL_REGURGITANT_FRACTION"} set:{THROMBUS_OM_LV_GRAM}'="" FDA(691.1,"+1,",52)={"THROMBUS_OM_LV_GRAM"} set:{LV_EJECTION_FRACTION}'="" FDA(691.1,"+1,",53)={"LV_EJECTION_FRACTION"} set:{AORTOGRAPHY}'="" FDA(691.1,"+1,",54)={"AORTOGRAPHY"} set:{AORTIC_ROOT}'="" FDA(691.1,"+1,",55)={"AORTIC_ROOT"} set:{SINUSES_OF_VALSALVA}'="" FDA(691.1,"+1,",56)={"SINUSES_OF_VALSALVA"} set:{BYPASS_GRAFTS}'="" FDA(691.1,"+1,",57)={"BYPASS_GRAFTS"} set:{INTERPRETATION}'="" FDA(691.1,"+1,",59)={"INTERPRETATION"} set:{CARDIOLOGY_FELLOW}'="" FDA(691.1,"+1,",62)={"CARDIOLOGY_FELLOW"} set:{CARDIOLOGY_STAFF}'="" FDA(691.1,"+1,",63)={"CARDIOLOGY_STAFF"} set:{CARDIOLOGY_FELLOW2ND}'="" FDA(691.1,"+1,",64)={"CARDIOLOGY_FELLOW2ND"} set:{CARDIOLOGY_STAFF2ND}'="" FDA(691.1,"+1,",65)={"CARDIOLOGY_STAFF2ND"} set:{PROCEDURE_SUMMARY}'="" FDA(691.1,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(691.1,"+1,",701)={"PRIMARY_PROVIDER"} set:{MARKED_FOR_DELETION}'="" FDA(691.1,"+1,",899)={"MARKED_FOR_DELETION"} set:{PCC_POINTER}'="" FDA(691.1,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(691.1,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(691.1,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(691.1,"+1,",1500)={"ENTERING_DUZ"} set:{ENTERING_ELECTRONIC_SIGNATURE}'="" FDA(691.1,"+1,",1501)={"ENTERING_ELECTRONIC_SIGNATURE"} set:{ENTERING_DATE}'="" FDA(691.1,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(691.1,"+1,",1503)={"VERIFYING_DUZ"} set:{VERIFIER_ELECTRONIC_SIGNATURE}'="" FDA(691.1,"+1,",1504)={"VERIFIER_ELECTRONIC_SIGNATURE"} set:{VERIFIER_DATE}'="" FDA(691.1,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(691.1,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(691.1,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(691.1,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(691.1,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(691.1,"+1,",1510)={"SUPERSEDED_BY"} set:{MARKED_FOR_DELETION0}'="" FDA(691.1,"+1,",1511)={"MARKED_FOR_DELETION0"} set:{DELETER_DUZ}'="" FDA(691.1,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(691.1,"+1,",1513)={"SUPERSEDED_DATE"} set:{RECORD_CREATATION_DATE}'="" FDA(691.1,"+1,",1514)={"RECORD_CREATATION_DATE"} set:{SUPERSEDED_NUMBER}'="" FDA(691.1,"+1,",1515)={"SUPERSEDED_NUMBER"} set:{RESTING_HEART_RATE}'="" FDA(691.1,"+1,",2006)={"RESTING_HEART_RATE"} set:{END_DIASTOLIC_VOLUME}'="" FDA(691.1,"+1,",2007)={"END_DIASTOLIC_VOLUME"} set:{END_SYSTOLIC_VOLUME}'="" FDA(691.1,"+1,",2008)={"END_SYSTOLIC_VOLUME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(691.1)") set %SkipFiling=1 if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {TECH_COMMENT}'="" { set D0={RowId} for i=1:1:$l({TECH_COMMENT},$c(13,10)) { set wp(i)=$p({TECH_COMMENT},$c(13,10),i) } do WP^DIE(691.1,{RowId},7,,"wp","%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {HISTORY}'="" { set D0={RowId} for i=1:1:$l({HISTORY},$c(13,10)) { set wp(i)=$p({HISTORY},$c(13,10),i) } do WP^DIE(691.1,{RowId},9,,"wp","%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PHYSICAL_EXAM}'="" { set D0={RowId} for i=1:1:$l({PHYSICAL_EXAM},$c(13,10)) { set wp(i)=$p({PHYSICAL_EXAM},$c(13,10),i) } do WP^DIE(691.1,{RowId},12,,"wp","%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_PROCEDURE_AND_COMMENT}'="" { set D0={RowId} for i=1:1:$l({OTHER_PROCEDURE_AND_COMMENT},$c(13,10)) { set wp(i)=$p({OTHER_PROCEDURE_AND_COMMENT},$c(13,10),i) } do WP^DIE(691.1,{RowId},24,,"wp","%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CONCLUSION}'="" { set D0={RowId} for i=1:1:$l({CONCLUSION},$c(13,10)) { set wp(i)=$p({CONCLUSION},$c(13,10),i) } do WP^DIE(691.1,{RowId},60,,"wp","%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PLAN}'="" { set D0={RowId} for i=1:1:$l({PLAN},$c(13,10)) { set wp(i)=$p({PLAN},$c(13,10),i) } do WP^DIE(691.1,{RowId},61,,"wp","%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(691.1,IENS,.01)={DATETIME} set:{ID*C} FDA(691.1,IENS,.02)={ID} set:{SUMMARY*C} FDA(691.1,IENS,.03)={SUMMARY} set:{MEDICAL_PATIENT*C} FDA(691.1,IENS,1)={MEDICAL_PATIENT} set:{WT_LBS*C} FDA(691.1,IENS,1.1)={WT_LBS} set:{HT_IN*C} FDA(691.1,IENS,1.2)={HT_IN} set:{BODY_SURFACE_AREA*C} FDA(691.1,IENS,1.3)={BODY_SURFACE_AREA} set:{CATH_NUMBER*C} FDA(691.1,IENS,3)={CATH_NUMBER} set:{REFERRING_PHYSICIANAGENCY*C} FDA(691.1,IENS,4)={REFERRING_PHYSICIANAGENCY} set:{WARDCLINIC*C} FDA(691.1,IENS,5)={WARDCLINIC} set:{FLUORO_TIME*C} FDA(691.1,IENS,17)={FLUORO_TIME} set:{USE_OF_SHEATH*C} FDA(691.1,IENS,18)={USE_OF_SHEATH} set:{RIGHT_HEART_CATHETER*C} FDA(691.1,IENS,19)={RIGHT_HEART_CATHETER} set:{AORTOGRAPHY_PROJECTION*C} FDA(691.1,IENS,23)={AORTOGRAPHY_PROJECTION} set:{PROTAMINE*C} FDA(691.1,IENS,25)={PROTAMINE} set:{RCA_NORMALITY*C} FDA(691.1,IENS,27)={RCA_NORMALITY} set:{RCA_DISTAL_VESSEL*C} FDA(691.1,IENS,29)={RCA_DISTAL_VESSEL} set:{RCA_COLLATERAL*C} FDA(691.1,IENS,30)={RCA_COLLATERAL} set:{LEFT_MAIN_CA_NORMALITY*C} FDA(691.1,IENS,32)={LEFT_MAIN_CA_NORMALITY} set:{LAD_NORMALITY*C} FDA(691.1,IENS,34)={LAD_NORMALITY} set:{LAD_DISTAL_VESSELS*C} FDA(691.1,IENS,36)={LAD_DISTAL_VESSELS} set:{LAD_COLLATERALS*C} FDA(691.1,IENS,37)={LAD_COLLATERALS} set:{CIRCUMFLEX_NORMALITY*C} FDA(691.1,IENS,39)={CIRCUMFLEX_NORMALITY} set:{CIRCUMFLEX_DISTAL_VESSEL*C} FDA(691.1,IENS,41)={CIRCUMFLEX_DISTAL_VESSEL} set:{CIRCUMFLEX_COLLATERALS*C} FDA(691.1,IENS,42)={CIRCUMFLEX_COLLATERALS} set:{DOMINANCE*C} FDA(691.1,IENS,45)={DOMINANCE} set:{BYPASS_GRAFT*C} FDA(691.1,IENS,46)={BYPASS_GRAFT} set:{LEFT_VENTRICULOGRAPHY*C} FDA(691.1,IENS,49)={LEFT_VENTRICULOGRAPHY} set:{MITRAL_REGURGITATION*C} FDA(691.1,IENS,51)={MITRAL_REGURGITATION} set:{MITRAL_REGURGITANT_FRACTION*C} FDA(691.1,IENS,51.5)={MITRAL_REGURGITANT_FRACTION} set:{AORTIC_REGURGITANT_FRACTION*C} FDA(691.1,IENS,51.6)={AORTIC_REGURGITANT_FRACTION} set:{TOTAL_REGURGITANT_FRACTION*C} FDA(691.1,IENS,51.7)={TOTAL_REGURGITANT_FRACTION} set:{THROMBUS_OM_LV_GRAM*C} FDA(691.1,IENS,52)={THROMBUS_OM_LV_GRAM} set:{LV_EJECTION_FRACTION*C} FDA(691.1,IENS,53)={LV_EJECTION_FRACTION} set:{AORTOGRAPHY*C} FDA(691.1,IENS,54)={AORTOGRAPHY} set:{AORTIC_ROOT*C} FDA(691.1,IENS,55)={AORTIC_ROOT} set:{SINUSES_OF_VALSALVA*C} FDA(691.1,IENS,56)={SINUSES_OF_VALSALVA} set:{BYPASS_GRAFTS*C} FDA(691.1,IENS,57)={BYPASS_GRAFTS} set:{INTERPRETATION*C} FDA(691.1,IENS,59)={INTERPRETATION} set:{CARDIOLOGY_FELLOW*C} FDA(691.1,IENS,62)={CARDIOLOGY_FELLOW} set:{CARDIOLOGY_STAFF*C} FDA(691.1,IENS,63)={CARDIOLOGY_STAFF} set:{CARDIOLOGY_FELLOW2ND*C} FDA(691.1,IENS,64)={CARDIOLOGY_FELLOW2ND} set:{CARDIOLOGY_STAFF2ND*C} FDA(691.1,IENS,65)={CARDIOLOGY_STAFF2ND} set:{PROCEDURE_SUMMARY*C} FDA(691.1,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(691.1,IENS,701)={PRIMARY_PROVIDER} set:{MARKED_FOR_DELETION*C} FDA(691.1,IENS,899)={MARKED_FOR_DELETION} set:{PCC_POINTER*C} FDA(691.1,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(691.1,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(691.1,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(691.1,IENS,1500)={ENTERING_DUZ} set:{ENTERING_ELECTRONIC_SIGNATURE*C} FDA(691.1,IENS,1501)={ENTERING_ELECTRONIC_SIGNATURE} set:{ENTERING_DATE*C} FDA(691.1,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(691.1,IENS,1503)={VERIFYING_DUZ} set:{VERIFIER_ELECTRONIC_SIGNATURE*C} FDA(691.1,IENS,1504)={VERIFIER_ELECTRONIC_SIGNATURE} set:{VERIFIER_DATE*C} FDA(691.1,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(691.1,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(691.1,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(691.1,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(691.1,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(691.1,IENS,1510)={SUPERSEDED_BY} set:{MARKED_FOR_DELETION0*C} FDA(691.1,IENS,1511)={MARKED_FOR_DELETION0} set:{DELETER_DUZ*C} FDA(691.1,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(691.1,IENS,1513)={SUPERSEDED_DATE} set:{RECORD_CREATATION_DATE*C} FDA(691.1,IENS,1514)={RECORD_CREATATION_DATE} set:{SUPERSEDED_NUMBER*C} FDA(691.1,IENS,1515)={SUPERSEDED_NUMBER} set:{RESTING_HEART_RATE*C} FDA(691.1,IENS,2006)={RESTING_HEART_RATE} set:{END_DIASTOLIC_VOLUME*C} FDA(691.1,IENS,2007)={END_DIASTOLIC_VOLUME} set:{END_SYSTOLIC_VOLUME*C} FDA(691.1,IENS,2008)={END_SYSTOLIC_VOLUME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.1)") set %SkipFiling=1 if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {TECH_COMMENT*C} { set D0={RowId} kill wp if {TECH_COMMENT}'="" { set wproot="wp" for i=1:1:$l({TECH_COMMENT},$c(13,10)) { set wp(i)=$p({TECH_COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.1,{RowId},7,,wproot,"%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {HISTORY*C} { set D0={RowId} kill wp if {HISTORY}'="" { set wproot="wp" for i=1:1:$l({HISTORY},$c(13,10)) { set wp(i)=$p({HISTORY},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.1,{RowId},9,,wproot,"%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PHYSICAL_EXAM*C} { set D0={RowId} kill wp if {PHYSICAL_EXAM}'="" { set wproot="wp" for i=1:1:$l({PHYSICAL_EXAM},$c(13,10)) { set wp(i)=$p({PHYSICAL_EXAM},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.1,{RowId},12,,wproot,"%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_PROCEDURE_AND_COMMENT*C} { set D0={RowId} kill wp if {OTHER_PROCEDURE_AND_COMMENT}'="" { set wproot="wp" for i=1:1:$l({OTHER_PROCEDURE_AND_COMMENT},$c(13,10)) { set wp(i)=$p({OTHER_PROCEDURE_AND_COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.1,{RowId},24,,wproot,"%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CONCLUSION*C} { set D0={RowId} kill wp if {CONCLUSION}'="" { set wproot="wp" for i=1:1:$l({CONCLUSION},$c(13,10)) { set wp(i)=$p({CONCLUSION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.1,{RowId},60,,wproot,"%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PLAN*C} { set D0={RowId} kill wp if {PLAN}'="" { set wproot="wp" for i=1:1:$l({PLAN},$c(13,10)) { set wp(i)=$p({PLAN},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.1,{RowId},61,,wproot,"%FMERR(691.1)") if $d(%FMERR(691.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CARDIACCATHB986S index ^MCAR nonnull 691.1 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 691.1 "B" {DATETIME} {IEN} 0]]> data ^MCAR 691.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 40 9 "^" 40 5 "^" 40 4 "^" 16 1 "^" 0 9 "^" 35 2 "^" 40 7 "^" 45 1 "^" 5 1 "^" 45 2 "^" 5 2 "^" 0 4 "^" 32 2 "^" 32 1 "^" 30 1 43 new data,i,node set {CONCLUSION}="" merge data=^MCAR(691.1,{S2},43) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CONCLUSION}={CONCLUSION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" 35 1 "^" "CO" 2 "^" "CO" 3 "^" "ES" 3 "^" "ES" 1 "^" "ES" 2 "^" 12 1 "^" "OR" 2 4 new data,i,node set {HISTORY}="" merge data=^MCAR(691.1,{S2},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {HISTORY}={HISTORY}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 8 "^" .1 1 "^" 42 1 "^" 28 2 "^" 28 1 "^" 26 1 "^" 24 1 "^" 38 1 "^" 40 3 "^" "MFD" 1 "^" "ES" 12 "^" 0 2 "^" 40 8 "^" 40 1 "^" "OR" 1 17 new data,i,node set {OTHER_PROCEDURE_AND_COMMENT}="" merge data=^MCAR(691.1,{S2},17) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_PROCEDURE_AND_COMMENT}={OTHER_PROCEDURE_AND_COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PCC" 1 7 new data,i,node set {PHYSICAL_EXAM}="" merge data=^MCAR(691.1,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PHYSICAL_EXAM}={PHYSICAL_EXAM}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 44 new data,i,node set {PLAN}="" merge data=^MCAR(691.1,{S2},44) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PLAN}={PLAN}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PROV" 1 "^" .2 2 "^" 18 1 "^" 22 2 "^" 22 1 "^" 20 1 "^" "ES" 15 "^" 0 5 "^" "ES" 7 "^" "CO" 1 "^" 12 3 "^" 40 6 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 2 new data,i,node set {TECH_COMMENT}="" merge data=^MCAR(691.1,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {TECH_COMMENT}={TECH_COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 40 2 "^" 40 10 "^" 12 2 "^" "ES" 6 "^" "ES" 5 "^" "ES" 4 "^" 0 6 "^" 0 7 index ^MCAR nonnull 691.1 "C" {MEDICAL_PATIENT} {IEN} 0]]> index {RELEASE_CODE}'="" 1 ^MCAR conditional 691.1 "ES" $$TRUNCATE({RELEASE_CODE},30)) {IEN} 0]]> Generated class for FileMan File Number: '45.82' File Name: 'CATEGORY OF BENEFICIARY' Class generated by %fm2class version 2.56 This file contains the various type of Categories of Beneficiaries as used by PTF and ADT. Categories include both Non-veterans and veterans. persistent _PUBLIC 0 RowId CATEGORY_OF_BENEFICIARY_45_82 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.040493443 67178,44707.511857815 right CATEGORY OF BENEFICIARY 45.82 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '.01' This field contains a '1' character code representing the Category of Beneficiary. %Library.String 1 3 CODE FileMan Field Label: 'EARLIEST AGE' FileMan Field Number: '6' This field contains the earliest age that is allowed for this Category of Beneficiary. %Library.Numeric 8 EARLIEST_AGE FileMan Field Label: 'EARLIEST DATE OF ADMISSION' FileMan Field Number: '3' This field contains the earlist date of admission for this Category of Beneficiary. This field is used for validating entries in PTF and ADT. %Library.FilemanDate 5 EARLIEST_DATE_OF_ADMISSION FileMan Field Label: 'EARLIEST DATE OF BIRTH' FileMan Field Number: '4' This field contains the earlist date of birth allowed for this Category of Beneficiary. %Library.FilemanDate 6 EARLIEST_DATE_OF_BIRTH Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(45.82,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETATION' FileMan Field Number: '2' This field contains the interpretation of the '1' character code contained in the (.01) field. %Library.String 1 4 INTERPRETATION FileMan Field Label: 'LATEST DATE OF BIRTH' FileMan Field Number: '5' This field contains the last date of birth allowed for this Category of Beneficary. %Library.FilemanDate 7 LATEST_DATE_OF_BIRTH SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(45.82," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CODE}'="" FDA(45.82,"+1,",.01)={"CODE"} set:{INTERPRETATION}'="" FDA(45.82,"+1,",2)={"INTERPRETATION"} set:{EARLIEST_DATE_OF_ADMISSION}'="" FDA(45.82,"+1,",3)={"EARLIEST_DATE_OF_ADMISSION"} set:{EARLIEST_DATE_OF_BIRTH}'="" FDA(45.82,"+1,",4)={"EARLIEST_DATE_OF_BIRTH"} set:{LATEST_DATE_OF_BIRTH}'="" FDA(45.82,"+1,",5)={"LATEST_DATE_OF_BIRTH"} set:{EARLIEST_AGE}'="" FDA(45.82,"+1,",6)={"EARLIEST_AGE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(45.82)") set %SkipFiling=1 if $d(%FMERR(45.82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(45.82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CODE*C} FDA(45.82,IENS,.01)={CODE} set:{INTERPRETATION*C} FDA(45.82,IENS,2)={INTERPRETATION} set:{EARLIEST_DATE_OF_ADMISSION*C} FDA(45.82,IENS,3)={EARLIEST_DATE_OF_ADMISSION} set:{EARLIEST_DATE_OF_BIRTH*C} FDA(45.82,IENS,4)={EARLIEST_DATE_OF_BIRTH} set:{LATEST_DATE_OF_BIRTH*C} FDA(45.82,IENS,5)={LATEST_DATE_OF_BIRTH} set:{EARLIEST_AGE*C} FDA(45.82,IENS,6)={EARLIEST_AGE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(45.82)") set %SkipFiling=1 if $d(%FMERR(45.82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(45.82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CATEGORYOFB95B5S index ^DIC nonnull 45.82 "B" {CODE} {IEN} 0]]> data ^DIC 45.82 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 6 "^" 0 3 "^" 0 4 "^" 0 2 "^" 0 5 index {INTERPRETATION}'="" 1 ^DIC conditional 45.82 "C" $$TRUNCATE({INTERPRETATION},30)) {IEN} 0]]> Generated class for FileMan File Number: '695.3' File Name: 'CATH PROCEDURE' Class generated by %fm2class version 2.56 This file stores the various procedure types of cardiac catheterization. persistent _PUBLIC 0 RowId CATH_PROCEDURE_695_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.039794629 67178,44707.537240693 right CATH PROCEDURE 695.3 2.56 12/04/2024 12:25:07 1 1 IEN 1 PROCEDURE_FIELD_61_5]]> PROCEDUREFIELD VALIP.prosthetic.fm2cw.PROCEDUREFIELD615 FKey_PROCEDURE_FIELD FileMan Field Label: 'CODE' FileMan Field Number: '.02' This field is used as an alphabetic code for the procedure. It ranges from 1 to 6 characters. %Library.String 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a list of various Cardiac Catheterization procedures. %Library.String 1 3 NAME FileMan Field Label: 'PROCEDURE FIELD' FileMan Field Number: '1' This field identifies a link to the Laboratory Procedure Field file VALIP.prosthetic.fm2cw.PROCEDUREFIELD615 5 PROCEDURE_FIELD NAME The name of the procedure.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CATH_PROCEDURE_695_3 where %ID=:id) set {PROCEDURE_FIELD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE_FIELD_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(695.3,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(695.3,"+1,",.02)={"CODE"} set:{PROCEDURE_FIELD}'="" FDA(695.3,"+1,",1)={"PROCEDURE_FIELD"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695.3)") set %SkipFiling=1 if $d(%FMERR(695.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(695.3,IENS,.01)={NAME} set:{CODE*C} FDA(695.3,IENS,.02)={CODE} set:{PROCEDURE_FIELD*C} FDA(695.3,IENS,1)={PROCEDURE_FIELD} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.3)") set %SkipFiling=1 if $d(%FMERR(695.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CATHPROCEDU8205S index ^MCAR nonnull 695.3 "B" {NAME} {IEN} 0]]> data ^MCAR 695.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '409.67' File Name: 'CLINIC GROUP' Class generated by %fm2class version 2.56 Pointer file for grouping HOSPITAL LOCATION records for various purposes. persistent _PUBLIC 0 RowId CLINIC_GROUP_409_67 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.040442753 67178,44707.561490302 right CLINIC GROUP 409.67 2.56 12/04/2024 12:25:07 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^SD(409.67,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SD(409.67," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(409.67,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(409.67)") set %SkipFiling=1 if $d(%FMERR(409.67,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(409.67)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(409.67,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(409.67)") set %SkipFiling=1 if $d(%FMERR(409.67,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(409.67)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CLINICGROUPA2F9S index ^SD nonnull 409.67 "B" {NAME} {IEN} 0]]> data ^SD 409.67 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '40.7' File Name: 'CLINIC STOP' Class generated by %fm2class version 2.56 The Clinic Stop file (#40.7) contains all AMIS Stop Codes and their associated Name, Restriction Type (E-Either, P-Primary Only, or S-Secondary Only), and if applicable, Restriction Date (for P or S Restriction Types). If a clinic stop entry is inactive, there is an Inactive Date. This file has been "Locked Down" so that Fileman and other user updates are not allowed. Changes may be made only through VistA Maintenance (VM) patches coordinated with the Managerial Cost Accounting Office (MCAO) and Enterprise Product Services (EPS). The file definition (data dictionary) shall not be modified. All additions, changes, inactivations, and reactivations to entries in the file shall be accomplished only by VM patches. Creating new Stop Codes or local Stop Codes, and/or editing fields in the file, is not permitted. persistent _PUBLIC 0 RowId CLINIC_STOP_40_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.066370226 67178,44707.584757824 right CLINIC STOP 40.7 2.56 12/04/2024 12:25:07 1 1 IEN 1 CLINIC_STOP_40_7]]> CONVERTTOSTOPCODE VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_CONVERT_TO_STOP_CODE FileMan Field Label: 'AMIS REPORTING STOP CODE' FileMan Field Number: '1' This field contains the number related to the stop code that is used when generating the OPC file. This number is what is transmitted. %Library.Numeric 1 4 AMIS_REPORTING_STOP_CODE FileMan Field Label: 'CONVERT TO STOP CODE' FileMan Field Number: '3' This field contains a pointer value to the new Clinic Stop code that has a three number AMIS REPORTING STOP CODE. VALIP.prosthetic.fm2cw.CLINICSTOP407 6 CONVERT_TO_STOP_CODE NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CLINIC_STOP_40_7 where %ID=:id) set {CONVERT_TO_STOP_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONVERT_TO_STOP_CODE_NAME 1 FileMan Field Label: 'COST DISTRIBUTION CENTER' FileMan Field Number: '4' This field contains a number related to a cost distribution center. This is related to the RAM. %Library.String 7 COST_DISTRIBUTION_CENTER Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(40.7,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '2' This field contains a date of when a Clinic Stop code has been inactivated. %Library.FilemanDate 5 INACTIVE_DATE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the clinic stop code. %Library.String 1 3 NAME FileMan Field Label: 'RESTRICTION DATE' FileMan Field Number: '6' Restriction Date This field contains the date the Stop Code became restricted. When the 'Restriction Type' field has a value of 'P' or 'S' then a 'Restriction Date' should be associated with it. %Library.FilemanDate 9 RESTRICTION_DATE FileMan Field Label: 'RESTRICTION TYPE' FileMan Field Number: '5' Restriction Type This field describes a Stop Code restriction type. Valid entries are:- P - Primary S - Secondary E - Either %Library.EnumString 8 RESTRICTION_TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(40.7," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(40.7,"+1,",.01)={"NAME"} set:{AMIS_REPORTING_STOP_CODE}'="" FDA(40.7,"+1,",1)={"AMIS_REPORTING_STOP_CODE"} set:{INACTIVE_DATE}'="" FDA(40.7,"+1,",2)={"INACTIVE_DATE"} set:{CONVERT_TO_STOP_CODE}'="" FDA(40.7,"+1,",3)={"CONVERT_TO_STOP_CODE"} set:{COST_DISTRIBUTION_CENTER}'="" FDA(40.7,"+1,",4)={"COST_DISTRIBUTION_CENTER"} set:{RESTRICTION_TYPE}'="" FDA(40.7,"+1,",5)={"RESTRICTION_TYPE"} set:{RESTRICTION_DATE}'="" FDA(40.7,"+1,",6)={"RESTRICTION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(40.7)") set %SkipFiling=1 if $d(%FMERR(40.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(40.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(40.7,IENS,.01)={NAME} set:{AMIS_REPORTING_STOP_CODE*C} FDA(40.7,IENS,1)={AMIS_REPORTING_STOP_CODE} set:{INACTIVE_DATE*C} FDA(40.7,IENS,2)={INACTIVE_DATE} set:{CONVERT_TO_STOP_CODE*C} FDA(40.7,IENS,3)={CONVERT_TO_STOP_CODE} set:{COST_DISTRIBUTION_CENTER*C} FDA(40.7,IENS,4)={COST_DISTRIBUTION_CENTER} set:{RESTRICTION_TYPE*C} FDA(40.7,IENS,5)={RESTRICTION_TYPE} set:{RESTRICTION_DATE*C} FDA(40.7,IENS,6)={RESTRICTION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(40.7)") set %SkipFiling=1 if $d(%FMERR(40.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(40.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.CLINICSTOP407S index ^DIC nonnull 40.7 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 40.7 "C" {AMIS_REPORTING_STOP_CODE} {IEN} 0]]> data ^DIC 40.7 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 5 "^" 0 3 "^" 0 1 "^" 0 7 "^" 0 6 persistent _PUBLIC 0 RowId CODE_INDEX_420_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.069995201 67178,44707.610797075 right CODE INDEX 420.6 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'APPLICABLE BUS. TYPE' FileMan Field Number: '5' This field will hold the Business Type that is applicable to the Socioeconomic Group for the selected Vendor. User may enter one or more Business Type. It will display as 1,2 or 1,3,4 etc.. The user must enter a minimum of 1 character and a maximum of 30 characters. The system will filter out all the duplicates and any non-numeric characters greater than 4 that might have been used as delimeter or anything else. The valid Business Types are as follows: 1 : Small Business 2 : Large Business 3 : Outside U.S. 4 : Other Entities %Library.String 9 APPLICABLE_BUS__TYPE FileMan Field Label: 'CODE INDEX' FileMan Field Number: '1' This is the code for the index. %Library.String 1 5 CODE_INDEX FileMan Field Label: 'DISPLAY' FileMan Field Number: '4' %Library.EnumString 8 DISPLAY FileMan Field Label: 'EFFECTIVE DATE' FileMan Field Number: '2' This is the year that the Federal Procurement Data Systems (FPDS) index code became effective. %Library.EnumString 6 EFFECTIVE_DATE Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCD(420.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the code index. Updated to accept up to four chars to support the new FPDS report. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This is the number that identifies the entry within the file. The file contains Federal Procurement Data Systems (FPDS) index codes. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'SHORT DESC.' FileMan Field Number: '3' This is a short description of the category defined under the Federal Procurement Data Systems (FPDS) index codes. The codes are used to track the types of business from which goods are being procured, in order to do reporting to Central Office. %Library.String 7 SHORT_DESC_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCD(420.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(420.6,"+1,",.01)={"NAME"} set:{CODE_INDEX}'="" FDA(420.6,"+1,",1)={"CODE_INDEX"} set:{EFFECTIVE_DATE}'="" FDA(420.6,"+1,",2)={"EFFECTIVE_DATE"} set:{SHORT_DESC_}'="" FDA(420.6,"+1,",3)={"SHORT_DESC_"} set:{DISPLAY}'="" FDA(420.6,"+1,",4)={"DISPLAY"} set:{APPLICABLE_BUS__TYPE}'="" FDA(420.6,"+1,",5)={"APPLICABLE_BUS__TYPE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(420.6)") set %SkipFiling=1 if $d(%FMERR(420.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(420.6,IENS,.01)={NAME} set:{CODE_INDEX*C} FDA(420.6,IENS,1)={CODE_INDEX} set:{EFFECTIVE_DATE*C} FDA(420.6,IENS,2)={EFFECTIVE_DATE} set:{SHORT_DESC_*C} FDA(420.6,IENS,3)={SHORT_DESC_} set:{DISPLAY*C} FDA(420.6,IENS,4)={DISPLAY} set:{APPLICABLE_BUS__TYPE*C} FDA(420.6,IENS,5)={APPLICABLE_BUS__TYPE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(420.6)") set %SkipFiling=1 if $d(%FMERR(420.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.CODEINDEX4206S index ^PRCD nonnull 420.6 "B" {NAME} {IEN} 0]]> data ^PRCD 420.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 6 "^" 0 2 "^" 0 5 "^" 0 3 "^" 0 1 "^" 0 4 Generated class for FileMan File Number: '62' File Name: 'COLLECTION SAMPLE' Class generated by %fm2class version 2.56 Collection samples for laboratory specimens. persistent _PUBLIC 0 RowId COLLECTION_SAMPLE_62 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.076066772 67178,44707.636101549 right COLLECTION SAMPLE 62 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'CAN LAB COLLECT' FileMan Field Number: '7' If the Lab is allowed to collect this sample, this field must contain a YES entry. %Library.EnumString 7 CAN_LAB_COLLECT Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(62,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '64.9101' This is the date on or after which the entry will no longer be active. Inactive entries will not be available for selection in CPRS nor be able to be associated with a test in the LABORATORY TEST file (#60). %Library.FilemanDate 10 INACTIVE_DATE FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of the collection sample. %Library.String 1 3 NAME FileMan Field Label: 'SCT CODE STATUS' FileMan Field Number: '21' This field indicate the status or disposition of this entry. P = SNOMED Preferred term S = SNOMED Synonym term L = Local spelling of a SNOMED term (miss-spelled) R = Referred to national coders to determine if acceptable X = No applicable mapping LN = New term pending LEXICON release/update. RN = STS Request New Code E = Error encountered when applying STS disposition to file entry. %Library.EnumString 9 SCT_CODE_STATUS FileMan Field Label: 'SNOMED CT ID' FileMan Field Number: '20' This is the SNOMED CT concept identifier for this entry. If this entry is null then the entry is either unmapped or no valid SNOMED concept term exists to map this term. This field is only editable by the Lab software. %Library.String 8 SNOMED_CT_ID FileMan Field Label: 'TUBE TOP COLOR' FileMan Field Number: '3' The common color description of the tube used for this sample. %Library.String 4 TUBE_TOP_COLOR SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VOLUME LARGE' FileMan Field Number: '4' The volume required for this sample. %Library.Numeric 5 VOLUME_LARGE FileMan Field Label: 'VOLUME SMALL' FileMan Field Number: '5' The volume required for this sample if an alternate small tube is used. %Library.Numeric 6 VOLUME_SMALL BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(62," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(62,"+1,",.01)={"NAME"} set:{TUBE_TOP_COLOR}'="" FDA(62,"+1,",3)={"TUBE_TOP_COLOR"} set:{VOLUME_LARGE}'="" FDA(62,"+1,",4)={"VOLUME_LARGE"} set:{VOLUME_SMALL}'="" FDA(62,"+1,",5)={"VOLUME_SMALL"} set:{CAN_LAB_COLLECT}'="" FDA(62,"+1,",7)={"CAN_LAB_COLLECT"} set:{SNOMED_CT_ID}'="" FDA(62,"+1,",20)={"SNOMED_CT_ID"} set:{SCT_CODE_STATUS}'="" FDA(62,"+1,",21)={"SCT_CODE_STATUS"} set:{INACTIVE_DATE}'="" FDA(62,"+1,",64.9101)={"INACTIVE_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(62)") set %SkipFiling=1 if $d(%FMERR(62,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(62,IENS,.01)={NAME} set:{TUBE_TOP_COLOR*C} FDA(62,IENS,3)={TUBE_TOP_COLOR} set:{VOLUME_LARGE*C} FDA(62,IENS,4)={VOLUME_LARGE} set:{VOLUME_SMALL*C} FDA(62,IENS,5)={VOLUME_SMALL} set:{CAN_LAB_COLLECT*C} FDA(62,IENS,7)={CAN_LAB_COLLECT} set:{SNOMED_CT_ID*C} FDA(62,IENS,20)={SNOMED_CT_ID} set:{SCT_CODE_STATUS*C} FDA(62,IENS,21)={SCT_CODE_STATUS} set:{INACTIVE_DATE*C} FDA(62,IENS,64.9101)={INACTIVE_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(62)") set %SkipFiling=1 if $d(%FMERR(62,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.COLLECTIONS2869S index {SCT_CODE_STATUS}'="" 1 ^LAB conditional 62 "AC" $$TRUNCATE({SCT_CODE_STATUS},30)) {IEN} 0]]> index ^LAB nonnull 62 "B" {NAME} {IEN} 0]]> index ^LAB nonnull 62 "C" {TUBE_TOP_COLOR} {IEN} 0]]> data ^LAB 62 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 7 "^" 64.91 1 "^" 0 1 "^" "SCT" 2 "^" "SCT" 1 "^" 0 3 "^" 0 4 "^" 0 5 index ^LAB nonnull 62 "F" {SNOMED_CT_ID} {IEN} 0]]> Generated class for FileMan File Number: '696.9' File Name: 'COMPLICATION' Class generated by %fm2class version 2.56 This file holds the complications associated with medical procedures. persistent _PUBLIC 0 RowId COMPLICATION_696_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.098072185 67178,44707.662782634 right COMPLICATION 696.9 2.56 12/04/2024 12:25:07 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a list of complications associated with various medical procedures. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name MEDICAL PACKAGE USE child VALIP.prosthetic.fm2cw.SUBMEDICALPACKAGEUSE69691 children COMPLICATION6969 1 SUB_MEDICAL_PACKAGE_USE_696_91 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696.9,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696.9)") set %SkipFiling=1 if $d(%FMERR(696.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696.9,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.9)") set %SkipFiling=1 if $d(%FMERR(696.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.COMPLICATIODFE5S index {NAME}'="" 1 ^MCAR conditional 696.9 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^MCAR 696.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '699.82' File Name: 'CONSULTATION TYPE' Class generated by %fm2class version 2.56 This file holds the consultation types for use in the Consult enter/edits. persistent _PUBLIC 0 RowId CONSULTATION_TYPE_699_82 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.100757681 67178,44707.686893409 right CONSULTATION TYPE 699.82 2.56 12/04/2024 12:25:07 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.82,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies a list of Consultation types for use with the Consult enter/edit. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.82," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.82,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.82)") set %SkipFiling=1 if $d(%FMERR(699.82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.82,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.82)") set %SkipFiling=1 if $d(%FMERR(699.82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CONSULTATIOF8B1S index ^MCAR nonnull 699.82 "B" {NAME} {IEN} 0]]> data ^MCAR 699.82 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '34' File Name: 'CONTRACT/SHARING AGREEMENTS' Class generated by %fm2class version 2.56 This file contains the Contract and Sharing agreements used in Radiology. persistent _PUBLIC 0 RowId CONTRACTSHARING_AGREEMENTS_34 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.111570457 67178,44707.710984432 right CONTRACT/SHARING AGREEMENTS 34 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'AGREEMENT NAME' FileMan Field Number: '.01' %Library.String 1 3 AGREEMENT_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(34,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVATION DATE' FileMan Field Number: '3' %Library.FilemanDate 5 INACTIVATION_DATE FileMan Field Label: 'TYPE OF AGREEMENT' FileMan Field Number: '2' %Library.EnumString 4 TYPE_OF_AGREEMENT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(34," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{AGREEMENT_NAME}'="" FDA(34,"+1,",.01)={"AGREEMENT_NAME"} set:{TYPE_OF_AGREEMENT}'="" FDA(34,"+1,",2)={"TYPE_OF_AGREEMENT"} set:{INACTIVATION_DATE}'="" FDA(34,"+1,",3)={"INACTIVATION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(34)") set %SkipFiling=1 if $d(%FMERR(34,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(34)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{AGREEMENT_NAME*C} FDA(34,IENS,.01)={AGREEMENT_NAME} set:{TYPE_OF_AGREEMENT*C} FDA(34,IENS,2)={TYPE_OF_AGREEMENT} set:{INACTIVATION_DATE*C} FDA(34,IENS,3)={INACTIVATION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(34)") set %SkipFiling=1 if $d(%FMERR(34,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(34)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CONTRACTSHA178DS index ^DIC nonnull 34 "B" {AGREEMENT_NAME} {IEN} 0]]> data ^DIC 34 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" "I" 1 "^" 0 2 Generated class for FileMan File Number: '420.1' File Name: 'COST CENTER' Class generated by %fm2class version 2.56 This file contains codes used by Fiscal service to subdivide funding and spending information by area of usage. persistent _PUBLIC 0 RowId COST_CENTER_420_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44768.860044514 67178,44707.735892621 right COST CENTER 420.1 2.56 12/04/2024 12:25:07 1 1 IEN 1 NEW_PERSON_200]]> DEACTIVATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DEACTIVATED_BY FileMan Field Label: 'DATE/TIME DEACTIVATED' FileMan Field Number: '.7' This is the date/time the cost center was deactivated. %Library.FilemanTimeStamp 6 DATETIME_DEACTIVATED FileMan Field Label: 'DEACTIVATED BY' FileMan Field Number: '.6' This is the name of the person who deactivated the control point. VALIP.prosthetic.fm2cw.NEWPERSON200 5 DEACTIVATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.COST_CENTER_420_1 where %ID=:id) set {DEACTIVATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEACTIVATED_BY_NAME 1 FileMan Field Label: 'DEACTIVATED COST CENTER' FileMan Field Number: '.5' YES indicates if this is a deactivated cost center. %Library.EnumString 4 DEACTIVATED_COST_CENTER FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' This is a description of the cost center (optional field). %Library.String 7 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCD(420.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the 6 digit cost center number, a space and the cost center name. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name BOC child VALIP.prosthetic.fm2cw.SUBBOC42011 children COSTCENTER4201 1 SUB_BOC_420_11 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCD(420.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(420.1,"+1,",.01)={"NAME"} set:{DEACTIVATED_COST_CENTER}'="" FDA(420.1,"+1,",.5)={"DEACTIVATED_COST_CENTER"} set:{DEACTIVATED_BY}'="" FDA(420.1,"+1,",.6)={"DEACTIVATED_BY"} set:{DATETIME_DEACTIVATED}'="" FDA(420.1,"+1,",.7)={"DATETIME_DEACTIVATED"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(420.1)") set %SkipFiling=1 if $d(%FMERR(420.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(420.1,{RowId},2,,"wp","%FMERR(420.1)") if $d(%FMERR(420.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(420.1,IENS,.01)={NAME} set:{DEACTIVATED_COST_CENTER*C} FDA(420.1,IENS,.5)={DEACTIVATED_COST_CENTER} set:{DEACTIVATED_BY*C} FDA(420.1,IENS,.6)={DEACTIVATED_BY} set:{DATETIME_DEACTIVATED*C} FDA(420.1,IENS,.7)={DATETIME_DEACTIVATED} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(420.1)") set %SkipFiling=1 if $d(%FMERR(420.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(420.1,{RowId},2,,wproot,"%FMERR(420.1)") if $d(%FMERR(420.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.COSTCENTER4201S index {NAME}'="" 1 ^PRCD conditional 420.1 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^PRCD 420.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 3 "^" 0 2 2 new data,i,node set {DESCRIPTION}="" merge data=^PRCD(420.1,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 Generated class for FileMan File Number: '779.004' File Name: 'COUNTRY CODE' Class generated by %fm2class version 2.56 Per VHA Directive 2005-044, this file has been "locked down" by Data Standardization (DS). The file definition (i.e. data dictionary) shall not be modified. All additions, changes and deletions to entries in the file shall be done by Enterprise Reference Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS). Creating and/or editing locally defined fields in the file are not permitted. Use of locally defined fields that were created prior to the VHA Directive's 2005-044 effective date shall not be supported. This file is a table of country codes that are used by the Messaging System when building message header segments. This file should not be modified locally. persistent _PUBLIC 0 RowId COUNTRY_CODE_779_004 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.127161125 67178,44707.7617432 right COUNTRY CODE 779.004 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '.01' The three-character alpha identifying code. The alpha 3 code for the USA is "USA". %Library.String 1 3 CODE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' %Library.String 1 7 DESCRIPTION FileMan Field Label: 'FIPS CODE' FileMan Field Number: '1.2' The code assigned to this nation by US Government standard FIPS 10-4. The FIPS code for the USA is "US". %Library.String 5 FIPS_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^HL(779.004,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MASTER ENTRY FOR VUID' FileMan Field Number: '99.98' This field identifies the Master entry for a VUID associated with a Term/Concept. %Library.EnumString 8 MASTER_ENTRY_FOR_VUID FileMan Field Label: 'NUMERIC CODE' FileMan Field Number: '1.1' The three-digit numeric identifying code. The numeric code for the USA is "840". %Library.String 4 NUMERIC_CODE FileMan Field Label: 'POSTAL NAME' FileMan Field Number: '1.3' The name used as the destination country for mail sent from the United States to this country. %Library.String 6 POSTAL_NAME Relationship for Sub-File/Multiple to file name EFFECTIVE DATE/TIME child VALIP.prosthetic.fm2cw.SUBEFFECTIVEDATETIME77900409 children COUNTRYCODE779004 1 SUB_EFFECTIVE_DATETIME_779_00409 Relationship for Sub-File/Multiple to file name VERSION child VALIP.prosthetic.fm2cw.SUBVERSION77900401 children COUNTRYCODE779004 1 SUB_VERSION_779_00401 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VUID' FileMan Field Number: '99.99' VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide. %Library.String 9 VUID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^HL(779.004," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CODE}'="" FDA(779.004,"+1,",.01)={"CODE"} set:{NUMERIC_CODE}'="" FDA(779.004,"+1,",1.1)={"NUMERIC_CODE"} set:{FIPS_CODE}'="" FDA(779.004,"+1,",1.2)={"FIPS_CODE"} set:{POSTAL_NAME}'="" FDA(779.004,"+1,",1.3)={"POSTAL_NAME"} set:{DESCRIPTION}'="" FDA(779.004,"+1,",2)={"DESCRIPTION"} set:{MASTER_ENTRY_FOR_VUID}'="" FDA(779.004,"+1,",99.98)={"MASTER_ENTRY_FOR_VUID"} set:{VUID}'="" FDA(779.004,"+1,",99.99)={"VUID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(779.004)") set %SkipFiling=1 if $d(%FMERR(779.004,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(779.004)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CODE*C} FDA(779.004,IENS,.01)={CODE} set:{NUMERIC_CODE*C} FDA(779.004,IENS,1.1)={NUMERIC_CODE} set:{FIPS_CODE*C} FDA(779.004,IENS,1.2)={FIPS_CODE} set:{POSTAL_NAME*C} FDA(779.004,IENS,1.3)={POSTAL_NAME} set:{DESCRIPTION*C} FDA(779.004,IENS,2)={DESCRIPTION} set:{MASTER_ENTRY_FOR_VUID*C} FDA(779.004,IENS,99.98)={MASTER_ENTRY_FOR_VUID} set:{VUID*C} FDA(779.004,IENS,99.99)={VUID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(779.004)") set %SkipFiling=1 if $d(%FMERR(779.004,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(779.004)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.COUNTRYCODE37CDS index ^HL nonnull 779.004 "AMASTERVUID" {VUID} {MASTER_ENTRY_FOR_VUID} {IEN} 0]]> index ^HL nonnull 779.004 "AVUID" {VUID} {IEN} 0]]> index ^HL nonnull 779.004 "B" {CODE} {IEN} 0]]> index {POSTAL_NAME}'="" 1 ^HL conditional 779.004 "C" $$TRUNCATE({POSTAL_NAME},30)) {IEN} 0]]> data ^HL 779.004 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 "^" "SDS" 2 "^" "VUID" 2 "^" "SDS" 1 "^" "SDS" 3 "^" "VUID" 1 Generated class for FileMan File Number: '702.01' File Name: 'CP DEFINITION' Class generated by %fm2class version 2.56 This file defines all the procedures used by the Clinical Procedures package. All elements that define a procedure are in this file. This file is exported with data, but entries may be added by the site. persistent _PUBLIC 0 RowId CP_DEFINITION_702_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.1320592 67178,44707.84732411 right CP DEFINITION 702.01 2.56 12/04/2024 12:25:07 1 1 IEN 1 TIU_DOCUMENT_DEFINITION_8925_1]]> DEFAULTTIUNOTE VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 FKey_DEFAULT_TIU_NOTE HOSPITAL_LOCATION_44]]> HOSPITALLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_HOSPITAL_LOCATION FACILITY_TREATING_SPECIALTY_45_7]]> TREATINGSPECIALTY VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 FKey_TREATING_SPECIALTY FileMan Field Label: 'ACTIVE' FileMan Field Number: '.09' Active Yes/No to indicate active procedures that can be linked to Consults. %Library.EnumString 11 ACTIVE FileMan Field Label: 'AUTO SUBMIT' FileMan Field Number: '.07' Auto Submit To VistA Imaging This field only applies to procedures that are performed by instruments with Bi-directional interface capabilities. This field is used to indicate whether the image attachment should be automatically submitted to VistA Imaging once the procedure is performed and the result is passed to CP or the submission process of the image should be done manually with user interface. %Library.EnumString 9 AUTO_SUBMIT FileMan Field Label: 'DEFAULT TIU NOTE' FileMan Field Number: '.04' TIU Note Title This field contains a TIU Note Title to use as the default when CP creates a note for interpretation for this procedure. (Reference IA #3377) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 6 DEFAULT_TIU_NOTE NAME The name of a Document Definition entry (.01 field) must be between 3 and 60 characters long and may not begin with a punctuation character. Although names can be entered in any case, they are transformed to upper case before being stored. It functions as the Technical Name of the entry. Some sites have put KWIC cross references on it to get, say, all Titles from a given Service. Name can be used when entering documents as the name of the Title being entered. Print Name and Abbreviation will also be accepted. Since it is the Technical, .01 Name, the Document Definition Utility (TIUF) uses this name throughout. The .01 name differs from the Print Name, which appears in lists of documents and functions as the Title of the document. It also differs from Item Menu Text (1-20 characters), which is used when selecting documents from 3-COLUMN MENUS. The ORDER of names in TIUF options Edit Document Definitions and Create Document Definitions is by Item Sequence under the parent. Order is alphabetic by Menu Text if an Item has no Item Sequence. When a new entry is added to file 8925.1, the Document Definition Utility (TIUF) enters the Name as the default Print Name. The Print Name can be edited if a different Print Name is desired. File 8925.1 permits more than 1 entry with the same name as long as they don't have the same Type. In that sense, NAMES are reusable. However, ENTRIES are NOT reusable (except specially marked Components): an entry is NOT allowed to be an item under more than one parent unless it is a Shared Component. (See Type Component.) Name is a BASIC Field. OBJECT Name Object Names, like any other names are 3-60 characters, not starting with punctuation. Sites may want to namespace object names, use the object Print Name as a more familiar name, and use object Abbreviation as a short name to embed in boilerplate text. Unlike other Types, Object Abbreviation and Print Name as well as Name must be uppercase. Object Name, Abbreviation, or Print Name can be embedded in boilerplate text. Since TIU must be able to determine from this which object is intended, object Names, Abbreviations, and Print Names must be unique. In fact, an object Name must differ not only from every other object name, but also from every other object Abbreviation and from every other object Print Name. Same for Abbreviations and Print Names. For example, if some object has abbreviation 'CND', then 'CND' cannot be used for any other object Name, Abbreviation, or Print Name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CP_DEFINITION_702_01 where %ID=:id) set {DEFAULT_TIU_NOTE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEFAULT_TIU_NOTE_NAME 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '.9' This is a detailed DESCRIPTION of this procedure. A sample DESCRIPTION could be "ABD Paracentisis followup". %Library.String 15 DESCRIPTION FileMan Field Label: 'EXTERNAL DATA DIRECTORY' FileMan Field Number: '.08' External Attachment Directory This field contains a reference to a network share where user supplied attachments are located for this procedure. %Library.String 10 EXTERNAL_DATA_DIRECTORY FileMan Field Label: 'HIGH VOLUME' FileMan Field Number: '.11' High Volume This field is used as a flag indicator to specify if this procedure is high volume or not. %Library.EnumString 12 HIGH_VOLUME FileMan Field Label: 'HOSPITAL LOCATION' FileMan Field Number: '.05' Hospital Location This is the location that will be used when creating the TIU note for interpretation. This location will be used for workload reporting. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 7 HOSPITAL_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CP_DEFINITION_702_01 where %ID=:id) set {HOSPITAL_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOSPITAL_LOCATION_NAME 1 FileMan Field Label: 'ID' FileMan Field Number: '.13' This is a Globally Unique IDentifier (GUID) for this procedure. This is maintained nationally so it is the same throughout the enterprise. A sample ID could be "{69DBD11E-9A8C-4ECE-AFA4-73947218807D}". %Library.String 14 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MDS(702.01,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Procedure Name This field contains the name of the procedure. It should be descriptive of the procedure and contain 3-30 alphanumeric characters. The first character MUST be a letter. To maintain consistency it is recommended that all procedures be entered in UPPERCASE letters as well. (Reference IA #3139) %Library.String 1 3 NAME FileMan Field Label: 'PROCESSED RESULT' FileMan Field Number: '.12' Processed Result This field is a flag which indicates whether a final result, multiple results, or cumulative result is associated with this procedure. %Library.EnumString 13 PROCESSED_RESULT FileMan Field Label: 'PROCESSING APPLICATION' FileMan Field Number: '.06' Processing Application This field is used to indicate if this is a Hemodialysis procedure or not. The field is a set of codes, 1=DEFAULT so it will be processed by Clinical Procedures or 2=HEMODIALYSIS and the procedure will be processed by the Hemodialysis application. %Library.EnumString 8 PROCESSING_APPLICATION FileMan Field Label: 'REQUIRE EXTERNAL DATA' FileMan Field Number: '.03' Require External Data Setting this field to Yes will force this procedure to be processed via the CPUser executable for matching whether or not there are instruments associated with it. %Library.EnumString 5 REQUIRE_EXTERNAL_DATA Relationship for Sub-File/Multiple to file name INSTRUMENT child VALIP.prosthetic.fm2cw.SUBINSTRUMENT702011 children CPDEFINITION70201 1 SUB_INSTRUMENT_702_011 FileMan Field Label: 'TREATING SPECIALTY' FileMan Field Number: '.02' Treating Specialty This field defines the specialty that this procedure falls under. VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 4 TREATING_SPECIALTY NAME Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.CP_DEFINITION_702_01 where %ID=:id) set {TREATING_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TREATING_SPECIALTY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 16 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MDS(702.01," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(702.01,"+1,",.01)={"NAME"} set:{TREATING_SPECIALTY}'="" FDA(702.01,"+1,",.02)={"TREATING_SPECIALTY"} set:{REQUIRE_EXTERNAL_DATA}'="" FDA(702.01,"+1,",.03)={"REQUIRE_EXTERNAL_DATA"} set:{DEFAULT_TIU_NOTE}'="" FDA(702.01,"+1,",.04)={"DEFAULT_TIU_NOTE"} set:{HOSPITAL_LOCATION}'="" FDA(702.01,"+1,",.05)={"HOSPITAL_LOCATION"} set:{PROCESSING_APPLICATION}'="" FDA(702.01,"+1,",.06)={"PROCESSING_APPLICATION"} set:{AUTO_SUBMIT}'="" FDA(702.01,"+1,",.07)={"AUTO_SUBMIT"} set:{EXTERNAL_DATA_DIRECTORY}'="" FDA(702.01,"+1,",.08)={"EXTERNAL_DATA_DIRECTORY"} set:{ACTIVE}'="" FDA(702.01,"+1,",.09)={"ACTIVE"} set:{HIGH_VOLUME}'="" FDA(702.01,"+1,",.11)={"HIGH_VOLUME"} set:{PROCESSED_RESULT}'="" FDA(702.01,"+1,",.12)={"PROCESSED_RESULT"} set:{ID}'="" FDA(702.01,"+1,",.13)={"ID"} set:{DESCRIPTION}'="" FDA(702.01,"+1,",.9)={"DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(702.01)") set %SkipFiling=1 if $d(%FMERR(702.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(702.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(702.01,IENS,.01)={NAME} set:{TREATING_SPECIALTY*C} FDA(702.01,IENS,.02)={TREATING_SPECIALTY} set:{REQUIRE_EXTERNAL_DATA*C} FDA(702.01,IENS,.03)={REQUIRE_EXTERNAL_DATA} set:{DEFAULT_TIU_NOTE*C} FDA(702.01,IENS,.04)={DEFAULT_TIU_NOTE} set:{HOSPITAL_LOCATION*C} FDA(702.01,IENS,.05)={HOSPITAL_LOCATION} set:{PROCESSING_APPLICATION*C} FDA(702.01,IENS,.06)={PROCESSING_APPLICATION} set:{AUTO_SUBMIT*C} FDA(702.01,IENS,.07)={AUTO_SUBMIT} set:{EXTERNAL_DATA_DIRECTORY*C} FDA(702.01,IENS,.08)={EXTERNAL_DATA_DIRECTORY} set:{ACTIVE*C} FDA(702.01,IENS,.09)={ACTIVE} set:{HIGH_VOLUME*C} FDA(702.01,IENS,.11)={HIGH_VOLUME} set:{PROCESSED_RESULT*C} FDA(702.01,IENS,.12)={PROCESSED_RESULT} set:{ID*C} FDA(702.01,IENS,.13)={ID} set:{DESCRIPTION*C} FDA(702.01,IENS,.9)={DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(702.01)") set %SkipFiling=1 if $d(%FMERR(702.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(702.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CPDEFINITIO3591S index ^MDS nonnull 702.01 "ASPEC" {TREATING_SPECIALTY} {IEN} 0]]> index ^MDS nonnull 702.01 "B" {NAME} {IEN} 0]]> data ^MDS 702.01 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 9 "^" 0 7 "^" 0 4 "^" .9 1 "^" 0 8 "^" 0 10 "^" 0 5 "^" "ID" 1 "^" 0 1 "^" 0 11 "^" 0 6 "^" 0 3 "^" 0 2 index ^MDS nonnull 702.01 "PK" {ID} {IEN} 0]]> Generated class for FileMan File Number: '702.09' File Name: 'CP INSTRUMENT' Class generated by %fm2class version 2.56 This file contains the list of instruments used by the Clinical Procedures package. This file is exported with data. persistent _PUBLIC 0 RowId CP_INSTRUMENT_702_09 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.151446537 67178,44707.885546717 right CP INSTRUMENT 702.09 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'ACTIVE' FileMan Field Number: '.09' Active Whether or not the instrument is active on the network. %Library.EnumString 9 ACTIVE FileMan Field Label: 'BI-DIRECTIONAL' FileMan Field Number: '.13' Bi-Directional Instrument 'Yes' or 'No" to indicate if this device can accept HL7 messages from VistA. %Library.EnumString 13 BIDIRECTIONAL FileMan Field Label: 'CONSULT KEEP OPEN' FileMan Field Number: '.401' %Library.EnumString 30 CONSULT_KEEP_OPEN %Library.EnumString 18 CP__DICOM_INTEROPERABILITY FileMan Field Label: 'DEFAULT FILE EXT' FileMan Field Number: '.07' Default Ext. Default file extension for vendor instrument reports (e.g. .doc .pdf). %Library.String 7 DEFAULT_FILE_EXT FileMan Field Label: 'DELETE WHEN SUBMITTED' FileMan Field Number: '.05' Delete when submitted Select 'Yes' if you want files created by this instrument deleted once they are successfully copied to the VistA Imaging Server. Deletion will be performed by the VistA Imaging application. %Library.EnumString 5 DELETE_WHEN_SUBMITTED FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '.03' Description This field contains a short informational description text for the instrument. %Library.String 4 DESCRIPTION FileMan Field Label: 'HL7 INSTRUMENT ID' FileMan Field Number: '.16' HL7 Inst ID This is the name of the actual device where the device name can be 'SMC St. Louis'. This field is used to ID the device. %Library.String 16 HL7_INSTRUMENT_ID FileMan Field Label: 'HL7 UNIVERSAL SERVICE ID' FileMan Field Number: '.17' HL7 Unv Svc ID This field defines what type of procedure the device can perform if the device can perform more than one procedure. %Library.String 17 HL7_UNIVERSAL_SERVICE_ID FileMan Field Label: 'ID' FileMan Field Number: '.1' This is a Globally Unique IDentifier (GUID) for this instrument. This is maintained nationally so it is the same throughout the enterprise. A sample ID could be "{69DBD11E-9A8C-4ECE-AFA4-73947218807D}". %Library.String 10 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MDS(702.09,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IP ADDRESS' FileMan Field Number: '.14' IP Address This field contains the IP address of this instrument. %Library.String 14 IP_ADDRESS FileMan Field Label: 'NAME' FileMan Field Number: '.01' Instrument Name Name or mnemonic of instrument - used by vendor in HL7 message header. %Library.String 1 3 NAME FileMan Field Label: 'PORT' FileMan Field Number: '.15' Port This field contains the port number for this instrument. %Library.Numeric 15 PORT FileMan Field Label: 'PRINTABLE NAME' FileMan Field Number: '.06' Printable Name Name of instrument that is printed on reports/etc. %Library.String 6 PRINTABLE_NAME FileMan Field Label: 'PROCESSING CODE' FileMan Field Number: '.12' Pkg Code This field indicates whether data from this instrument will upload to the "M"edicine, "C"linical Procedures, or Clinical "O"bservations package for processing. %Library.EnumString 12 PROCESSING_CODE FileMan Field Label: 'PROCESSING ROUTINE' FileMan Field Number: '.11' M Routine Name of the MUMPS routine used to process interface information. %Library.String 11 PROCESSING_ROUTINE FileMan Field Label: 'PROCESS DLL' FileMan Field Number: '.304' DLL Enter 'Yes' or 'No' to indicate if this instrument produces DLL type data. %Library.EnumString 26 PROCESS_DLL FileMan Field Label: 'PROCESS TEXT' FileMan Field Number: '.302' Text Enter 'Yes' or 'No' to indicate if this instrument produces text type data. %Library.EnumString 24 PROCESS_TEXT FileMan Field Label: 'PROCESS UNC' FileMan Field Number: '.301' UNC Enter 'Yes' or 'No' to indicate if this instrument produces UNC type data. %Library.EnumString 23 PROCESS_UNC FileMan Field Label: 'PROCESS URL' FileMan Field Number: '.303' URL Enter 'Yes' or 'No' to indicate if this instrument produces URL type data. %Library.EnumString 25 PROCESS_URL FileMan Field Label: 'PROCESS UUENCODE' FileMan Field Number: '.305' UUEncode Enter 'Yes' or 'No" to indicate if this instrument produces UUENCODE type data. %Library.EnumString 27 PROCESS_UUENCODE FileMan Field Label: 'PROCESS XML' FileMan Field Number: '.306' XML Enter 'Yes' or 'No' to indicate if this instrument produces XML type data. %Library.EnumString 28 PROCESS_XML FileMan Field Label: 'PROCESS XMS' FileMan Field Number: '.307' XMS Enter 'Yes' or 'No' to indicate if this instrument produces XMS type data. %Library.EnumString 29 PROCESS_XMS FileMan Field Label: 'SERIAL NUMBER' FileMan Field Number: '.08' Serial Number Vendor serial number of the instrument (for reference only). %Library.String 8 SERIAL_NUMBER FileMan Field Label: 'SERVER EXECUTABLE' FileMan Field Number: '.24' Executable Name Name of server program that is ran to create the report for the interface. %Library.String 22 SERVER_EXECUTABLE FileMan Field Label: 'SERVER NAME' FileMan Field Number: '.21' Server Name Network name of instrument server application that generates the attachments. %Library.String 19 SERVER_NAME FileMan Field Label: 'SERVER PATH' FileMan Field Number: '.23' Path Name Path on the network where the report is stored. %Library.String 21 SERVER_PATH FileMan Field Label: 'SERVER SHARE' FileMan Field Number: '.22' Share Name Share folder/drive on the instrument server where the report is stored. %Library.String 20 SERVER_SHARE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 31 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MDS(702.09," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(702.09,"+1,",.01)={"NAME"} set:{DESCRIPTION}'="" FDA(702.09,"+1,",.03)={"DESCRIPTION"} set:{DELETE_WHEN_SUBMITTED}'="" FDA(702.09,"+1,",.05)={"DELETE_WHEN_SUBMITTED"} set:{PRINTABLE_NAME}'="" FDA(702.09,"+1,",.06)={"PRINTABLE_NAME"} set:{DEFAULT_FILE_EXT}'="" FDA(702.09,"+1,",.07)={"DEFAULT_FILE_EXT"} set:{SERIAL_NUMBER}'="" FDA(702.09,"+1,",.08)={"SERIAL_NUMBER"} set:{ACTIVE}'="" FDA(702.09,"+1,",.09)={"ACTIVE"} set:{ID}'="" FDA(702.09,"+1,",.1)={"ID"} set:{PROCESSING_ROUTINE}'="" FDA(702.09,"+1,",.11)={"PROCESSING_ROUTINE"} set:{PROCESSING_CODE}'="" FDA(702.09,"+1,",.12)={"PROCESSING_CODE"} set:{BIDIRECTIONAL}'="" FDA(702.09,"+1,",.13)={"BIDIRECTIONAL"} set:{IP_ADDRESS}'="" FDA(702.09,"+1,",.14)={"IP_ADDRESS"} set:{PORT}'="" FDA(702.09,"+1,",.15)={"PORT"} set:{HL7_INSTRUMENT_ID}'="" FDA(702.09,"+1,",.16)={"HL7_INSTRUMENT_ID"} set:{HL7_UNIVERSAL_SERVICE_ID}'="" FDA(702.09,"+1,",.17)={"HL7_UNIVERSAL_SERVICE_ID"} set:{CP__DICOM_INTEROPERABILITY}'="" FDA(702.09,"+1,",.19)={"CP__DICOM_INTEROPERABILITY"} set:{SERVER_NAME}'="" FDA(702.09,"+1,",.21)={"SERVER_NAME"} set:{SERVER_SHARE}'="" FDA(702.09,"+1,",.22)={"SERVER_SHARE"} set:{SERVER_PATH}'="" FDA(702.09,"+1,",.23)={"SERVER_PATH"} set:{SERVER_EXECUTABLE}'="" FDA(702.09,"+1,",.24)={"SERVER_EXECUTABLE"} set:{PROCESS_UNC}'="" FDA(702.09,"+1,",.301)={"PROCESS_UNC"} set:{PROCESS_TEXT}'="" FDA(702.09,"+1,",.302)={"PROCESS_TEXT"} set:{PROCESS_URL}'="" FDA(702.09,"+1,",.303)={"PROCESS_URL"} set:{PROCESS_DLL}'="" FDA(702.09,"+1,",.304)={"PROCESS_DLL"} set:{PROCESS_UUENCODE}'="" FDA(702.09,"+1,",.305)={"PROCESS_UUENCODE"} set:{PROCESS_XML}'="" FDA(702.09,"+1,",.306)={"PROCESS_XML"} set:{PROCESS_XMS}'="" FDA(702.09,"+1,",.307)={"PROCESS_XMS"} set:{CONSULT_KEEP_OPEN}'="" FDA(702.09,"+1,",.401)={"CONSULT_KEEP_OPEN"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(702.09)") set %SkipFiling=1 if $d(%FMERR(702.09,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(702.09)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(702.09,IENS,.01)={NAME} set:{DESCRIPTION*C} FDA(702.09,IENS,.03)={DESCRIPTION} set:{DELETE_WHEN_SUBMITTED*C} FDA(702.09,IENS,.05)={DELETE_WHEN_SUBMITTED} set:{PRINTABLE_NAME*C} FDA(702.09,IENS,.06)={PRINTABLE_NAME} set:{DEFAULT_FILE_EXT*C} FDA(702.09,IENS,.07)={DEFAULT_FILE_EXT} set:{SERIAL_NUMBER*C} FDA(702.09,IENS,.08)={SERIAL_NUMBER} set:{ACTIVE*C} FDA(702.09,IENS,.09)={ACTIVE} set:{ID*C} FDA(702.09,IENS,.1)={ID} set:{PROCESSING_ROUTINE*C} FDA(702.09,IENS,.11)={PROCESSING_ROUTINE} set:{PROCESSING_CODE*C} FDA(702.09,IENS,.12)={PROCESSING_CODE} set:{BIDIRECTIONAL*C} FDA(702.09,IENS,.13)={BIDIRECTIONAL} set:{IP_ADDRESS*C} FDA(702.09,IENS,.14)={IP_ADDRESS} set:{PORT*C} FDA(702.09,IENS,.15)={PORT} set:{HL7_INSTRUMENT_ID*C} FDA(702.09,IENS,.16)={HL7_INSTRUMENT_ID} set:{HL7_UNIVERSAL_SERVICE_ID*C} FDA(702.09,IENS,.17)={HL7_UNIVERSAL_SERVICE_ID} set:{CP__DICOM_INTEROPERABILITY*C} FDA(702.09,IENS,.19)={CP__DICOM_INTEROPERABILITY} set:{SERVER_NAME*C} FDA(702.09,IENS,.21)={SERVER_NAME} set:{SERVER_SHARE*C} FDA(702.09,IENS,.22)={SERVER_SHARE} set:{SERVER_PATH*C} FDA(702.09,IENS,.23)={SERVER_PATH} set:{SERVER_EXECUTABLE*C} FDA(702.09,IENS,.24)={SERVER_EXECUTABLE} set:{PROCESS_UNC*C} FDA(702.09,IENS,.301)={PROCESS_UNC} set:{PROCESS_TEXT*C} FDA(702.09,IENS,.302)={PROCESS_TEXT} set:{PROCESS_URL*C} FDA(702.09,IENS,.303)={PROCESS_URL} set:{PROCESS_DLL*C} FDA(702.09,IENS,.304)={PROCESS_DLL} set:{PROCESS_UUENCODE*C} FDA(702.09,IENS,.305)={PROCESS_UUENCODE} set:{PROCESS_XML*C} FDA(702.09,IENS,.306)={PROCESS_XML} set:{PROCESS_XMS*C} FDA(702.09,IENS,.307)={PROCESS_XMS} set:{CONSULT_KEEP_OPEN*C} FDA(702.09,IENS,.401)={CONSULT_KEEP_OPEN} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(702.09)") set %SkipFiling=1 if $d(%FMERR(702.09,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(702.09)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.CPINSTRUMEN8156S index ^MDS nonnull 702.09 "B" {NAME} {IEN} 0]]> data ^MDS 702.09 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 9 "^" .1 3 "^" "CS" 1 "^" .1 9 "^" 0 7 "^" 0 5 "^" 0 3 "^" .1 6 "^" .1 7 "^" "ID" 1 "^" .1 4 "^" 0 1 "^" .1 5 "^" 0 6 "^" .1 2 "^" .1 1 "^" .3 4 "^" .3 2 "^" .3 1 "^" .3 3 "^" .3 5 "^" .3 6 "^" .3 7 "^" 0 8 "^" .2 4 "^" .2 1 "^" .2 3 "^" .2 2 index ^MDS nonnull 702.09 "PK" {ID} {IEN} 0]]> Generated class for FileMan File Number: '81' File Name: 'CPT' Class generated by %fm2class version 2.56 This file contains the Current Procedural Terminology (CPT) codes published by the American Medical Association (AMA) and the HCPCS codes, published by the Health Care Financing Administration (HCFA). The entries in this file are "descriptive terms and identifying codes for reporting services and procedures performed by physicians." If an entry needs to be added, modified or deleted a patch will be issued instructing the site how to make the change. Otherwise, this table file should not be edited in anyway by the site. Per VHA Directive 10-93-142, this file definition should not be modified. persistent _PUBLIC 0 RowId CPT_81 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.166638709 67178,44707.7889526 right CPT 81 2.56 12/04/2024 12:25:07 1 1 IEN 1 CPT_CATEGORY_81_1]]> CPTCATEGORY VALIP.prosthetic.fm2cw.CPTCATEGORY811 FKey_CPT_CATEGORY FileMan Field Label: 'ACTIVE DATE' FileMan Field Number: '8' Date the CPT code becomes/became activated. %Library.FilemanDate 9 ACTIVE_DATE FileMan Field Label: 'AGE(HIGH)' FileMan Field Number: '10.02' Code reasonable for age within Age(low) and Age(high) values. Blank, otherwise. %Library.Numeric 11 AGEHIGH FileMan Field Label: 'AGE(LOW)' FileMan Field Number: '10.01' Code reasonable for age within Age(low) and Age(high) values. Blank, otherwise. %Library.Numeric 10 AGELOW FileMan Field Label: 'CPT CATEGORY' FileMan Field Number: '3' This field contains the CPT Category associated with CPT Code. It is a pointer to the CPT Category File. VALIP.prosthetic.fm2cw.CPTCATEGORY811 5 CPT_CATEGORY CATEGORY NAME This field contains the category name associated with specified CPT Code.]]> %Library.String 1 CATEGORY_NAME into :val from VALIP_prosthetic_fm2cw.CPT_81 where %ID=:id) set {CPT_CATEGORY_CATEGORY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CPT_CATEGORY_CATEGORY_NAME 1 FileMan Field Label: 'CPT CODE' FileMan Field Number: '.01' This file contains both CPT from the AMA and HCFA. The AMA entries will have an internal number less than 99999. The AMA CPT are '5' numbers that coorespond to the internal number. The HCFA codes will have an internal number of 100000 or greater. These codes are '1' alpha followed by '4' numbers, which will NOT correspond to the internal number. %Library.String 1 3 CPT_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^ICPT(0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '7' Date the CPT code becomes/became inactivated. %Library.FilemanDate 8 INACTIVE_DATE FileMan Field Label: 'INACTIVE FLAG' FileMan Field Number: '5' This field is used to inactivate a CPT code. If this field contains a '1' then the code is inactive. During the annual update of the CPT file no entries are deleted; they are inactivated by setting this flag. %Library.EnumString 6 INACTIVE_FLAG FileMan Field Label: 'SEX' FileMan Field Number: '10.03' Code acceptable if: F = Female; M = Male. Blank otherwise. %Library.EnumString 12 SEX FileMan Field Label: 'SHORT NAME' FileMan Field Number: '2' This field contains a short description of the CPT code. It must be between 1 and 28 characters. %Library.String 4 SHORT_NAME FileMan Field Label: 'SOURCE' FileMan Field Number: '6' Contains the source of the code - CPT, HCPCS or Local. %Library.EnumString 7 SOURCE Relationship for Sub-File/Multiple to file name DESCRIPTION child VALIP.prosthetic.fm2cw.SUBDESCRIPTION8101 children CPT81 1 SUB_DESCRIPTION_81_01 Relationship for Sub-File/Multiple to file name DESCRIPTION (VERSIONED) child VALIP.prosthetic.fm2cw.SUBDESCRIPTIONVERSIONED81062 children CPT81 1 SUB_DESCRIPTION_VERSIONED_81_062 Relationship for Sub-File/Multiple to file name EFFECTIVE DATE child VALIP.prosthetic.fm2cw.SUBEFFECTIVEDATE8102 children CPT81 1 SUB_EFFECTIVE_DATE_81_02 Relationship for Sub-File/Multiple to file name SHORT NAME (VERSIONED) child VALIP.prosthetic.fm2cw.SUBSHORTNAMEVERSIONED81061 children CPT81 1 SUB_SHORT_NAME_VERSIONED_81_061 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 13 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ICPT(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CPT_CODE}'="" FDA(81,"+1,",.01)={"CPT_CODE"} set:{SHORT_NAME}'="" FDA(81,"+1,",2)={"SHORT_NAME"} set:{CPT_CATEGORY}'="" FDA(81,"+1,",3)={"CPT_CATEGORY"} set:{INACTIVE_FLAG}'="" FDA(81,"+1,",5)={"INACTIVE_FLAG"} set:{SOURCE}'="" FDA(81,"+1,",6)={"SOURCE"} set:{INACTIVE_DATE}'="" FDA(81,"+1,",7)={"INACTIVE_DATE"} set:{ACTIVE_DATE}'="" FDA(81,"+1,",8)={"ACTIVE_DATE"} set:{AGELOW}'="" FDA(81,"+1,",10.01)={"AGELOW"} set:{AGEHIGH}'="" FDA(81,"+1,",10.02)={"AGEHIGH"} set:{SEX}'="" FDA(81,"+1,",10.03)={"SEX"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(81)") set %SkipFiling=1 if $d(%FMERR(81,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(81)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CPT_CODE*C} FDA(81,IENS,.01)={CPT_CODE} set:{SHORT_NAME*C} FDA(81,IENS,2)={SHORT_NAME} set:{CPT_CATEGORY*C} FDA(81,IENS,3)={CPT_CATEGORY} set:{INACTIVE_FLAG*C} FDA(81,IENS,5)={INACTIVE_FLAG} set:{SOURCE*C} FDA(81,IENS,6)={SOURCE} set:{INACTIVE_DATE*C} FDA(81,IENS,7)={INACTIVE_DATE} set:{ACTIVE_DATE*C} FDA(81,IENS,8)={ACTIVE_DATE} set:{AGELOW*C} FDA(81,IENS,10.01)={AGELOW} set:{AGEHIGH*C} FDA(81,IENS,10.02)={AGEHIGH} set:{SEX*C} FDA(81,IENS,10.03)={SEX} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(81)") set %SkipFiling=1 if $d(%FMERR(81,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(81)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic.fm2cw.CPT81S index ^ICPT nonnull "B" {CPT_CODE} {IEN} 0]]> data ^ICPT {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 8 "^" 10 2 "^" 10 1 "^" 0 3 "^" 0 1 "^" 0 7 "^" 0 4 "^" 10 3 "^" 0 2 "^" 0 6 index ^ICPT nonnull "D" {CPT_CATEGORY} {IEN} 0]]> Generated class for FileMan File Number: '81.1' File Name: 'CPT CATEGORY' Class generated by %fm2class version 2.56 This file contains the CPT categories and sub-categories as specified by the AMA. Each CPT entry in the CPT(#81) file is associated with an entry in this category file. If an entry needs to be added, modified or deleted a patch will be issued instructing the site how to make the change. Otherwise, this table file should not be edited in anyway by the site. Per VHA Directive 10-93-142, this file definition should not be modified. persistent _PUBLIC 0 RowId CPT_CATEGORY_81_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.181607424 67178,44707.818325133 right CPT CATEGORY 81.1 2.56 12/04/2024 12:25:07 1 1 IEN 1 CPT_CATEGORY_81_1]]> MAJORCATEGORY VALIP.prosthetic.fm2cw.CPTCATEGORY811 FKey_MAJOR_CATEGORY FileMan Field Label: 'BEGIN CPT RANGE' FileMan Field Number: '4' Lowest CPT/HCPCS code to which this category applies. %Library.String 6 BEGIN_CPT_RANGE FileMan Field Label: 'CATEGORY NAME' FileMan Field Number: '.01' This field contains the category name associated with specified CPT Code. %Library.String 1 3 CATEGORY_NAME FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '100' This field contains the full description of the CPT Category chosen. %Library.String 9 DESCRIPTION FileMan Field Label: 'END CPT RANGE' FileMan Field Number: '5' Highest CPT/HCPCS code to which this category applies. %Library.String 7 END_CPT_RANGE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(81.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MAJOR CATEGORY' FileMan Field Number: '3' This field contains the Major Category associated with specified CPT Code. It is a pointer to the CPT Category File. VALIP.prosthetic.fm2cw.CPTCATEGORY811 5 MAJOR_CATEGORY CATEGORY NAME This field contains the category name associated with specified CPT Code.]]> %Library.String 1 CATEGORY_NAME into :val from VALIP_prosthetic_fm2cw.CPT_CATEGORY_81_1 where %ID=:id) set {MAJOR_CATEGORY_CATEGORY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MAJOR_CATEGORY_CATEGORY_NAME 1 FileMan Field Label: 'SOURCE' FileMan Field Number: '6' Category defined by CPT or HCPCS. %Library.EnumString 8 SOURCE FileMan Field Label: 'TYPE OF CATEGORY' FileMan Field Number: '2' This field contains the type of category associated with specified CPT code. It is a set of codes where 'm' - Major Category 's' - Sub-Category %Library.EnumString 4 TYPE_OF_CATEGORY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(81.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CATEGORY_NAME}'="" FDA(81.1,"+1,",.01)={"CATEGORY_NAME"} set:{TYPE_OF_CATEGORY}'="" FDA(81.1,"+1,",2)={"TYPE_OF_CATEGORY"} set:{MAJOR_CATEGORY}'="" FDA(81.1,"+1,",3)={"MAJOR_CATEGORY"} set:{BEGIN_CPT_RANGE}'="" FDA(81.1,"+1,",4)={"BEGIN_CPT_RANGE"} set:{END_CPT_RANGE}'="" FDA(81.1,"+1,",5)={"END_CPT_RANGE"} set:{SOURCE}'="" FDA(81.1,"+1,",6)={"SOURCE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(81.1)") set %SkipFiling=1 if $d(%FMERR(81.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(81.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(81.1,{RowId},100,,"wp","%FMERR(81.1)") if $d(%FMERR(81.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(81.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CATEGORY_NAME*C} FDA(81.1,IENS,.01)={CATEGORY_NAME} set:{TYPE_OF_CATEGORY*C} FDA(81.1,IENS,2)={TYPE_OF_CATEGORY} set:{MAJOR_CATEGORY*C} FDA(81.1,IENS,3)={MAJOR_CATEGORY} set:{BEGIN_CPT_RANGE*C} FDA(81.1,IENS,4)={BEGIN_CPT_RANGE} set:{END_CPT_RANGE*C} FDA(81.1,IENS,5)={END_CPT_RANGE} set:{SOURCE*C} FDA(81.1,IENS,6)={SOURCE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(81.1)") set %SkipFiling=1 if $d(%FMERR(81.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(81.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(81.1,{RowId},100,,wproot,"%FMERR(81.1)") if $d(%FMERR(81.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(81.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.CPTCATEGORY811S index {CATEGORY_NAME}'="" 1 ^DIC conditional 81.1 "B" $$TRUNCATE({CATEGORY_NAME},63)) {IEN} 0]]> index ^DIC nonnull 81.1 "C" {MAJOR_CATEGORY} {IEN} 0]]> data ^DIC 81.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 1 "D" new data,i,node set {DESCRIPTION}="" merge data=^DIC(81.1,{S2},"D") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 5 "^" 0 3 "^" 0 6 "^" 0 2 Generated class for FileMan File Number: '8991.9' File Name: 'DEA NUMBERS' Class generated by %fm2class version 2.56 The DEA NUMBERS FILE is designed to contain demographic and permission information about a provider related to the ability to order controlled substance prescriptions. persistent _PUBLIC 0 RowId DEA_NUMBERS_8991_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.21860896 67178,44707.928358117 right DEA NUMBERS 8991.9 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'ADDITIONAL COMPANY INFO' FileMan Field Number: '1.2' This is the additional company information of the person or institution associated with this DEA Number. %Library.String 9 ADDITIONAL_COMPANY_INFO FileMan Field Label: 'CITY' FileMan Field Number: '1.5' This is the city of the permanent address of the person or institution related to this DEA Number. %Library.String 12 CITY FileMan Field Label: 'DEA NUMBER' FileMan Field Number: '.01' This field is used to enter the providers' Drug Enforcement Administration (DEA) number. Enter the DEA number as two upper case letters followed by 7 digits. e.g., AA1234567. %Library.String 1 3 DEA_NUMBER FileMan Field Label: 'DETOX NUMBER' FileMan Field Number: '.03' If the DEA provider has detox privileges, this field will be populated with a 'VX' or 'XA' followed by the numeric portion of the DEA number. %Library.String 4 DETOX_NUMBER FileMan Field Label: 'EXPIRATION DATE' FileMan Field Number: '.04' This is the date of expiration for the DEA Number. %Library.FilemanDate 5 EXPIRATION_DATE Internal Entry Number %Library.String $$next^%apiSQL("$p(^XTV(8991.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LAST DOJ UPDATE DATE/TIME' FileMan Field Number: '10.3' This is the date/time the DOJ (Department of Justice) data was used to update this DEA record. %Library.FilemanTimeStamp 21 LAST_DOJ_UPDATE_DATETIME FileMan Field Label: 'LAST UPDATED DATE/TIME' FileMan Field Number: '10.2' This is the date/time of the last update to this DEA record. %Library.FilemanTimeStamp 20 LAST_UPDATED_DATETIME FileMan Field Label: 'NAME (PROVIDER OR INSTITUTION)' FileMan Field Number: '1.1' This is the name of the facility or person who is associated with this DEA Number. %Library.String 8 NAME_PROVIDER_OR_INSTITUTION FileMan Field Label: 'SCHEDULE III NARCOTIC' FileMan Field Number: '2.3' This field is used to determine if the provider has privileges for Schedule III narcotic. %Library.EnumString 16 SCHEDULE_III_NARCOTIC FileMan Field Label: 'SCHEDULE III NON-NARCOTIC' FileMan Field Number: '2.4' This field is used to determine if the provider has privileges for Schedule III non-narcotic. %Library.EnumString 17 SCHEDULE_III_NONNARCOTIC FileMan Field Label: 'SCHEDULE II NARCOTIC' FileMan Field Number: '2.1' This field is used to determine if the provider has privileges for Schedule II drugs. %Library.EnumString 14 SCHEDULE_II_NARCOTIC FileMan Field Label: 'SCHEDULE II NON-NARCOTIC' FileMan Field Number: '2.2' This field is used to determine if the provider has privileges for Schedule II non-narcotic. %Library.EnumString 15 SCHEDULE_II_NONNARCOTIC FileMan Field Label: 'SCHEDULE IV' FileMan Field Number: '2.5' This field is used to determine if the provider has privileges for Schedule IV controlled substances. %Library.EnumString 18 SCHEDULE_IV FileMan Field Label: 'SCHEDULE V' FileMan Field Number: '2.6' This field is used to determine if the provider has privileges for Schedule V controlled substances. %Library.EnumString 19 SCHEDULE_V FileMan Field Label: 'STREET ADDRESS 1' FileMan Field Number: '1.3' This is the first line of the street address of the permanent address of the person or institution associated with this DEA Number. %Library.String 10 STREET_ADDRESS_1 FileMan Field Label: 'STREET ADDRESS 2' FileMan Field Number: '1.4' This is the second line of the street address of the permanent address of the person or institution associated with this DEA Number. %Library.String 11 STREET_ADDRESS_2 FileMan Field Label: 'TYPE' FileMan Field Number: '.07' This identifies whether the DEA number is an individual DEA number or an Institutional DEA number. %Library.EnumString 7 TYPE FileMan Field Label: 'USE FOR INPATIENT ORDERS?' FileMan Field Number: '.06' This field indicates if this DEA number can be used for inpatient orders. %Library.EnumString 6 USE_FOR_INPATIENT_ORDERS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 22 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'ZIP CODE' FileMan Field Number: '1.7' This is the postal ZIP code of the person or institution associated with this DEA Number. %Library.String 13 ZIP_CODE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^XTV(8991.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DEA_NUMBER}'="" FDA(8991.9,"+1,",.01)={"DEA_NUMBER"} set:{DETOX_NUMBER}'="" FDA(8991.9,"+1,",.03)={"DETOX_NUMBER"} set:{EXPIRATION_DATE}'="" FDA(8991.9,"+1,",.04)={"EXPIRATION_DATE"} set:{USE_FOR_INPATIENT_ORDERS}'="" FDA(8991.9,"+1,",.06)={"USE_FOR_INPATIENT_ORDERS"} set:{TYPE}'="" FDA(8991.9,"+1,",.07)={"TYPE"} set:{NAME_PROVIDER_OR_INSTITUTION}'="" FDA(8991.9,"+1,",1.1)={"NAME_PROVIDER_OR_INSTITUTION"} set:{ADDITIONAL_COMPANY_INFO}'="" FDA(8991.9,"+1,",1.2)={"ADDITIONAL_COMPANY_INFO"} set:{STREET_ADDRESS_1}'="" FDA(8991.9,"+1,",1.3)={"STREET_ADDRESS_1"} set:{STREET_ADDRESS_2}'="" FDA(8991.9,"+1,",1.4)={"STREET_ADDRESS_2"} set:{CITY}'="" FDA(8991.9,"+1,",1.5)={"CITY"} set:{ZIP_CODE}'="" FDA(8991.9,"+1,",1.7)={"ZIP_CODE"} set:{SCHEDULE_II_NARCOTIC}'="" FDA(8991.9,"+1,",2.1)={"SCHEDULE_II_NARCOTIC"} set:{SCHEDULE_II_NONNARCOTIC}'="" FDA(8991.9,"+1,",2.2)={"SCHEDULE_II_NONNARCOTIC"} set:{SCHEDULE_III_NARCOTIC}'="" FDA(8991.9,"+1,",2.3)={"SCHEDULE_III_NARCOTIC"} set:{SCHEDULE_III_NONNARCOTIC}'="" FDA(8991.9,"+1,",2.4)={"SCHEDULE_III_NONNARCOTIC"} set:{SCHEDULE_IV}'="" FDA(8991.9,"+1,",2.5)={"SCHEDULE_IV"} set:{SCHEDULE_V}'="" FDA(8991.9,"+1,",2.6)={"SCHEDULE_V"} set:{LAST_UPDATED_DATETIME}'="" FDA(8991.9,"+1,",10.2)={"LAST_UPDATED_DATETIME"} set:{LAST_DOJ_UPDATE_DATETIME}'="" FDA(8991.9,"+1,",10.3)={"LAST_DOJ_UPDATE_DATETIME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8991.9)") set %SkipFiling=1 if $d(%FMERR(8991.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8991.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DEA_NUMBER*C} FDA(8991.9,IENS,.01)={DEA_NUMBER} set:{DETOX_NUMBER*C} FDA(8991.9,IENS,.03)={DETOX_NUMBER} set:{EXPIRATION_DATE*C} FDA(8991.9,IENS,.04)={EXPIRATION_DATE} set:{USE_FOR_INPATIENT_ORDERS*C} FDA(8991.9,IENS,.06)={USE_FOR_INPATIENT_ORDERS} set:{TYPE*C} FDA(8991.9,IENS,.07)={TYPE} set:{NAME_PROVIDER_OR_INSTITUTION*C} FDA(8991.9,IENS,1.1)={NAME_PROVIDER_OR_INSTITUTION} set:{ADDITIONAL_COMPANY_INFO*C} FDA(8991.9,IENS,1.2)={ADDITIONAL_COMPANY_INFO} set:{STREET_ADDRESS_1*C} FDA(8991.9,IENS,1.3)={STREET_ADDRESS_1} set:{STREET_ADDRESS_2*C} FDA(8991.9,IENS,1.4)={STREET_ADDRESS_2} set:{CITY*C} FDA(8991.9,IENS,1.5)={CITY} set:{ZIP_CODE*C} FDA(8991.9,IENS,1.7)={ZIP_CODE} set:{SCHEDULE_II_NARCOTIC*C} FDA(8991.9,IENS,2.1)={SCHEDULE_II_NARCOTIC} set:{SCHEDULE_II_NONNARCOTIC*C} FDA(8991.9,IENS,2.2)={SCHEDULE_II_NONNARCOTIC} set:{SCHEDULE_III_NARCOTIC*C} FDA(8991.9,IENS,2.3)={SCHEDULE_III_NARCOTIC} set:{SCHEDULE_III_NONNARCOTIC*C} FDA(8991.9,IENS,2.4)={SCHEDULE_III_NONNARCOTIC} set:{SCHEDULE_IV*C} FDA(8991.9,IENS,2.5)={SCHEDULE_IV} set:{SCHEDULE_V*C} FDA(8991.9,IENS,2.6)={SCHEDULE_V} set:{LAST_UPDATED_DATETIME*C} FDA(8991.9,IENS,10.2)={LAST_UPDATED_DATETIME} set:{LAST_DOJ_UPDATE_DATETIME*C} FDA(8991.9,IENS,10.3)={LAST_DOJ_UPDATE_DATETIME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8991.9)") set %SkipFiling=1 if $d(%FMERR(8991.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8991.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.DEANUMBERS820ACS index {DEA_NUMBER}'="" 1 ^XTV conditional 8991.9 "B" $$TRUNCATE({DEA_NUMBER},30)) {IEN} 0]]> index ^XTV nonnull 8991.9 "C" {DEA_NUMBER} {IEN} 0]]> data ^XTV 8991.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 2 "^" 1 5 "^" 0 1 "^" 0 3 "^" 0 4 "^" 10 3 "^" 10 2 "^" 1 1 "^" 2 3 "^" 2 4 "^" 2 1 "^" 2 2 "^" 2 5 "^" 2 6 "^" 1 3 "^" 1 4 "^" 0 7 "^" 0 6 "^" 1 7 index ^XTV nonnull 8991.9 "D" {DETOX_NUMBER} $$TRUNCATE({DEA_NUMBER},30)) {IEN} 0]]> Generated class for FileMan File Number: '220.2' File Name: 'DENTAL CLASSIFICATION' Class generated by %fm2class version 2.56 This file is a table of Dental treatment classifications (inpatient and outpatient) used to classify each Dental patient. persistent _PUBLIC 0 RowId DENTAL_CLASSIFICATION_220_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.212411745 67178,44707.968370182 right DENTAL CLASSIFICATION 220.2 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'CLASSIFICATION' FileMan Field Number: '.01' A VA Dental Eligibility including Inpatient/Outpatient and classification. %Library.String 1 4 CLASSIFICATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(220.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(220.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CLASSIFICATION}'="" FDA(220.2,"+1,",.01)={"CLASSIFICATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(220.2)") set %SkipFiling=1 if $d(%FMERR(220.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(220.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CLASSIFICATION*C} FDA(220.2,IENS,.01)={CLASSIFICATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(220.2)") set %SkipFiling=1 if $d(%FMERR(220.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(220.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.DENTALCLASS8DF2S index ^DIC nonnull 220.2 "B" {CLASSIFICATION} {IEN} 0]]> data ^DIC 220.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '3.5' File Name: 'DEVICE' Class generated by %fm2class version 2.56 This file defines all input/output devices that can be accessed from this CPU (definitions are not account-specific). Each device is identified with a unique name. Each is associated with a $I value which may correspond with a hardware port or, on layered systems, a host file or directory. If there are several devices for the same volume set and $I, one may be given sign-on system status. Devices may also be assigned to hunt groups to share work. This file is cross-referenced by name, $I, volume set(CPU), and sign-on/system device. It is also cross-referenced by hunt group, local synonym, mnemonic, subtype, and form currently mounted. persistent _PUBLIC 0 RowId DEVICE_3_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.253418736 67178,44707.996253639 right DEVICE 3.5 2.56 12/04/2024 12:25:07 1 1 IEN 1 FileMan Field Label: 'ASK DEVICE' FileMan Field Number: '4' This field controls if the 'DEVICE' question is asked when a call is made to ^%ZIS. %Library.EnumString 11 ASK_DEVICE is sent to the terminal to collect the answer back message, if valid the terminal type is set to this. Otherwise the user is prompted. If set to NO then the one from the Last Sign-on field or device subtype will be used.]]> %Library.EnumString 50 ASK_DEVICE_TYPE_AT_SIGNON FileMan Field Label: 'ASK HFS I/O OPERATION' FileMan Field Number: '5.2' For systems that support host files, this field may be used instead of 'ADDRESS/PARAMETERS' to specify more general parameters. If 'Ask Parameters' is null or 'NO', set this field to 'YES' and the device handler will ask for INPUT/OUTPUT OPERATION upon selecting a device. %Library.EnumString 14 ASK_HFS_IO_OPERATION FileMan Field Label: 'ASK HOST FILE' FileMan Field Number: '5.1' Answer 'yes' if 'HOST FILE NAME:' should be asked when the device is selected. TYPE must be 'HFS'. Only applicable on layered systems that support host files. %Library.EnumString 13 ASK_HOST_FILE FileMan Field Label: 'ASK PARAMETERS' FileMan Field Number: '5' On devices of TYPE 'TRM' and 'VTRM', this field controls if the 'RIGHT MARGIN' question is asked after selecting the device. On devices of TYPE 'MT', 'SDP', 'BAR', and 'OTH', this field controls if the 'ADDRESS/PARAMETERS' question is asked after selecting the device. %Library.EnumString 12 ASK_PARAMETERS FileMan Field Label: 'AUTO DESPOOL' FileMan Field Number: '31' Answer 'YES' if the report is to be automatically despooled. %Library.EnumString 37 AUTO_DESPOOL FileMan Field Label: 'AUTO MENU' FileMan Field Number: '51.6' This field controls whether the Auto-menu function will be turned on for this device. If it is turned on, it acts just as if the user types a "?" before each prompt. This is overridden by the same specification in the USER File. %Library.EnumString 51 AUTO_MENU FileMan Field Label: 'BARCODE AVAIL' FileMan Field Number: '646' This field is used by Augie Turano's pharmacy barcode software. %Library.EnumString 65 BARCODE_AVAIL FileMan Field Label: 'BAUD RATE' FileMan Field Number: '20' This field returns the Baud Rate (i.e. speed) of this device, but only if it is a terminal from which such information can be determined. %Library.String 1 32 set U="^",D0=$piece({RowId},"||",1) S X=$P("50^75^110^134^150^300^600^1200^1800^2000^2400^3600^4800^7200^9600",U,$P($S($D(^%IS(+$P(^%ZIS(1,D0,0),U,2),2)):^(2),1:0),U,3)\64#16) I 'X,$D(^%ZOSF("OS")),^("OS")["DSM" D BAUD^%ZOSV set {BAUD_RATE}=X 1 BAUD_RATE FileMan Field Label: 'CLOSE PARAMETERS' FileMan Field Number: '19.3' This field holds the parameters to be used in a MUMPS CLOSE statement. %Library.String 26 CLOSE_PARAMETERS FileMan Field Label: 'CURRENT UNSUCCESSFUL ATTEMPTS' FileMan Field Number: '2007' This is a count of the current number of unsuccessful attempts that have been made on this device. If it exceeds the DEFAULT # OF ATTEMPTS in the KERNEL SITE PARAMETERS File, the device will be locked for the duration specified in DEFAULT LOCKOUT TIME in the KERNEL SITE PARAMETERS. This field is maintained internally by the KERNEL. %Library.String 1 66 set U="^",D0=$piece({RowId},"||",1) S X=$P(^%ZIS(1,D0,0),U,2) Q:X="" S X=$S($D(^DISV("XU",X)):+^(X),1:"") set {CURRENT_UNSUCCESSFUL_ATTEMPTS}=X 1 CURRENT_UNSUCCESSFUL_ATTEMPTS FileMan Field Label: 'FORM CURRENTLY MOUNTED' FileMan Field Number: '17' This describes the type of form currently in the printer. %Library.String 24 FORM_CURRENTLY_MOUNTED FileMan Field Label: 'GENERATE SPL DOC NAME' FileMan Field Number: '33' Answer 'YES' to this field if the spool document name is to be automatically generated. %Library.EnumString 38 GENERATE_SPL_DOC_NAME FileMan Field Label: 'GLOBAL LOCK' FileMan Field Number: '36' This field tells the device handler if it should use a global lock to control access to a device. %Library.EnumString 40 GLOBAL_LOCK FileMan Field Label: '$I' FileMan Field Number: '1' DEVICE $I This field holds the Hardware port name that the OS can identify when referencing a port on a CPU. On layered systems where opening of host files is supported, this field may hold the host file name. When defining a spool device entry(TYPE="SPL") on VAX DSM or MSM-Unix, enter the name of directory where spool host files will be created. %Library.String 1 7 I Internal Entry Number %Library.String $$next^%apiSQL("$p(^%ZIS(1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'KEY OPERATOR' FileMan Field Number: '8' The name of the person who usually uses this device. %Library.String 18 KEY_OPERATOR FileMan Field Label: 'LAST SIGN-ON USER' FileMan Field Number: '2008' This is the name of the last user who signed on to this device. It is controlled internally by the KERNEL. %Library.String 1 67 set U="^",D0=$piece({RowId},"||",1) S X=$S($D(^XUSEC(0,"ALDEV",D0)):$S($D(^VA(200,+^(D0),0)):$P(^(0),U,1),1:""),1:"") set {LAST_SIGNON_USER}=X 1 LAST_SIGNON_USER FileMan Field Label: 'LAT PORT SPEED' FileMan Field Number: '64' This field holds the value that will be passed to the TSC_LOAD.COM file for loading the DECserver permanent database. %Library.EnumString 60 LAT_PORT_SPEED FileMan Field Label: 'LAT SERVER NODE' FileMan Field Number: '61' This is the DECserver/terminal server node name that the device is on. It is used by XTLATSET to build data files for VMS startup. %Library.String 57 LAT_SERVER_NODE FileMan Field Label: 'LAT SERVER PORT' FileMan Field Number: '62' This is the port on the DECserver/terminal server that this device is connected to. It can be entered in the LC-2-5 form or 31 form. On EQUINOX it is in the PORT_31 form. This field is used by XTLATSET to build VMS datafiles for startup. %Library.String 58 LAT_SERVER_PORT FileMan Field Label: 'LOCAL SYNONYM' FileMan Field Number: '.04' This is an alternate name which may be used to select the device. When using the LOCAL SYNONYM to select the device, selection can only occur on the local CPU. For example, if you assigned a LOCAL SYNONYM to one device on the local CPU, and the same name to a device on the remote CPU, selection using the LOCAL SYNONYM will return the device on the local CPU. %Library.String 5 LOCAL_SYNONYM FileMan Field Label: 'LOCATION OF TERMINAL' FileMan Field Number: '.02' This is a free text description of where the device is located, e.g. Ward 2A nurse station, etc. %Library.String 1 4 LOCATION_OF_TERMINAL FileMan Field Label: 'LOCK-OUT TIME' FileMan Field Number: '51.3' This is the amount of time that the device must be idle before the lock will release. This may be ignored by setting the BYPASS DEVICE LOCK-OUT field in the KERNEL SITE PARAMETERS File. The minimum value is set by the VA INFORMATION SYSTEM ACCOUNT AND PASSWORD MANAGEMENT POLICY. %Library.Numeric 48 LOCKOUT_TIME FileMan Field Label: 'MARGIN WIDTH' FileMan Field Number: '9' This field if it has data will override the Right Margin field value from the Terminal type file. Leave this field blank unless you are sure that you need to have a different Right Margin than what is in the terminal type file. %Library.Numeric 19 MARGIN_WIDTH FileMan Field Label: 'MICOM LINE' FileMan Field Number: '2011' %Library.Numeric 71 MICOM_LINE FileMan Field Label: 'MICOM PRINTER CONTENTION PORT' FileMan Field Number: '21' This field is reserved for future use to determine whether the device uses printer contention. It would be a preliminary check to decide whether it is necessary to invoke the printer contention programs. %Library.EnumString 33 MICOM_PRINTER_CONTENTION_PORT FileMan Field Label: 'MULTIPLE SIGN-ON' FileMan Field Number: '51.4' Specifies whether or not the user of this device can be already signed on the system. It is overridden by the Multiple Sign-on specification in the USER File. %Library.EnumString 49 MULTIPLE_SIGNON FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase. %Library.String 1 3 NAME FileMan Field Label: 'NEAREST PHONE' FileMan Field Number: '7' The location of the telephone nearest to this device. %Library.String 17 NEAREST_PHONE Computed Field For Node 95 %Library.String 1 22 s {NODE_95}=$g(^%ZIS(1,{IEN},95)) 1 NODE_95 Computed Field For Node PCX %Library.String 1 30 s {NODE_PCX}=$g(^%ZIS(1,{IEN},"PCX")) 1 NODE_PCX Computed Field For Node POX %Library.String 1 28 s {NODE_POX}=$g(^%ZIS(1,{IEN},"POX")) 1 NODE_POX FileMan Field Label: 'NVS PASSOVER FLAG' FileMan Field Number: '18000' This field is a flag which will allow for the devices so selected to be skipped in the NVS TEST ACCOUNT initialization process. If the test database has a different path to the device in question, some editting may be needed. %Library.EnumString 72 NVS_PASSOVER_FLAG FileMan Field Label: '# OF ATTEMPTS' FileMan Field Number: '51.2' The number of sign-on attempts before the device is locked from use. This may be ignored by setting the BYPASS DEVICE LOCK-OUT field in the KERNEL SITE PARAMETERS File. The minimum value is set by the VA INFORMATION SYSTEM ACCOUNT AND PASSWORD MANAGEMENT POLICY. %Library.Numeric 47 OF_ATTEMPTS FileMan Field Label: 'OPEN COUNT' FileMan Field Number: '51' This field holds a count of the number of times that %ZIS has successfully open this device. The reason is to find LAT devices that are still in use. %Library.Numeric 41 OPEN_COUNT FileMan Field Label: 'OPEN PARAMETERS' FileMan Field Number: '19' These parameters are used to open a device with specified characteristics/addresses. This field is primarily used with non-terminal devices such as magtape and SDP. For SDP, use (block:0) on M/11; (0:block:drive) on DSM. For Magtape, use ("VAL4":0:2048) on both M/11 and DSM. %Library.String 25 OPEN_PARAMETERS FileMan Field Label: 'OPEN TIMEOUT' FileMan Field Number: '2010' If a specific timeout is needed when an open is performed, enter the value of the timeout into this field. This will enable %ZIS to "hang" for the number of seconds specified in this field to achieve a connection rather than using the default of zero. %Library.Numeric 70 OPEN_TIMEOUT FileMan Field Label: 'OUT-OF-SERVICE DATE' FileMan Field Number: '6' If entered then this device cannot be selected if the current date is greater than, or the same as, the date specified. %Library.FilemanDate 16 OUTOFSERVICE_DATE FileMan Field Label: 'PAGE LENGTH' FileMan Field Number: '11' This field, if it has data, will override the Page Length field value from the Terminal type file. Leave this field blank unless you are sure that you need to have a different Page Length than what is in the terminal type file. If this is a CRT then this is the number of lines which can be displayed on the screen, otherwise, for printers, it is the number of print lines per page. %Library.Numeric 20 PAGE_LENGTH FileMan Field Label: 'PASSWORD' FileMan Field Number: '27' Passwords are used for an additional level of security on devices such as modems. If a value is entered in this field, all users trying to log on to this device will be prompted for the password before being prompted for the access code. %Library.String 36 PASSWORD FileMan Field Label: 'PERFORM DEVICE CHECKING' FileMan Field Number: '51.91' This field, if set, will override the default in the KERNEL SITE PARAMETERS File. Device checking involves checking for device lockout, prohibited access times, etc. If turned off, logon will be faster. %Library.EnumString 55 PERFORM_DEVICE_CHECKING FileMan Field Label: 'POST-CLOSE EXECUTE' FileMan Field Number: '19.8' This is the Xecutable MUMPS code which is used by %ZISC after closing the device. %Library.String 1 31 s {POSTCLOSE_EXECUTE}=$e({NODE_PCX},1,245) 1 POSTCLOSE_EXECUTE FileMan Field Label: 'PRE-OPEN EXECUTE' FileMan Field Number: '19.7' This is the Xecutable MUMPS code which is used by %ZIS before opening the device. Setting %ZISQUIT=1 in the PRE-OPEN EXECUTE code will signal %ZIS to reject the selected device. %Library.String 1 29 s {PREOPEN_EXECUTE}=$e({NODE_POX},1,245) 1 PREOPEN_EXECUTE FileMan Field Label: 'PRINT SERVER NAME OR ADDRESS' FileMan Field Number: '65' This field contains the FQDN (fully qualified domain name) or specific TCP/IP address of a remote server (e.g., for LPD/LPR printing) or device (e.g., for telnet printer). %Library.String 61 PRINT_SERVER_NAME_OR_ADDRESS FileMan Field Label: 'PRIORITY AT RUN TIME' FileMan Field Number: '25' This field, if set, will be used by the Task Manager to set a job's operating system run priority. Lowest priority is 1, and 10 is the highest. %Library.Numeric 34 PRIORITY_AT_RUN_TIME FileMan Field Label: 'PROHIBITED TIMES FOR SIGN-ON' FileMan Field Number: '2009' This field allows a device to be locked out for certain periods of the day. The time period for which logons will be prohibited is specified in the form HHMM-HHMM. For example, 1630-0800 would lock out the device from 4:30 PM to 8:00 AM. If device checking is bypassed for this device, these times are ignored. %Library.String 68 PROHIBITED_TIMES_FOR_SIGNON FileMan Field Label: 'PURGE OLD PRINT QUEUE FILES' FileMan Field Number: '.13' This field determines whether old HFS files associated with entries in the PRINT QUEUE JOB (#3.52) file should be deleted. It only applies to devices of the PRINT QUEUE type. For print queues, an intermediate host file is created in the PRINT_QUEUES subdirectory. Normally, these files are automatically deleted once they have been submitted to the print queue. For those files that are not automatically deleted, there is a scheduled option that will periodically delete host files that have been somehow left in existence past their usefulness. Setting this field to NO will prevent the purge option from deleting HFS files created via this device. Setting this field to NO should only be done on a temporary basis while troubleshooting a problem involving a print queue. The default value for this field is YES. %Library.EnumString 6 PURGE_OLD_PRINT_QUEUE_FILES FileMan Field Label: 'QUEUING' FileMan Field Number: '5.5' When this field is set to FORCED and queuing is allowed by the calling program (%ZIS["Q"), the Device Handler will return IO("Q")=1 upon device selection and the job will be queued. That is, the user does not need to enter "Q" to invoke queuing and will not be prompted with the question about wanting output queued. If the program does not allow queuing (%ZIS'["Q"), the user will see the following message: Sorry, QUEUING is required for this device. Set this field to NOT ALLOWED if queuing is not possible or desired for this device. Set this field to ALLOWED if queuing is possible for this device. When this field is set to ALLOWED, the application/user will determine if queuing is desired. Setting this field to null is the same as setting this field to ALLOWED. %Library.EnumString 15 QUEUING FileMan Field Label: 'REMOTE PRINTER NAME' FileMan Field Number: '67' This is the Name of the Remote Printer that is referenced by the "PRINT SERVER NAME OR ADDRESS" and "TELNET PORT" fields. %Library.String 63 REMOTE_PRINTER_NAME FileMan Field Label: '*RESERVED' FileMan Field Number: '51.12' %Library.String 43 RESERVED FileMan Field Label: '*RESERVED' FileMan Field Number: '51.13' %Library.String 44 RESERVED0 FileMan Field Label: '*RESERVED' FileMan Field Number: '51.14' %Library.String 45 RESERVED1 FileMan Field Label: '*RESERVED' FileMan Field Number: '51.15' %Library.String 46 RESERVED2 FileMan Field Label: '*RESERVED' FileMan Field Number: '51.7' %Library.String 52 RESERVED3 FileMan Field Label: 'RESOURCE SLOTS' FileMan Field Number: '35' Enter a value that will identify the limit of concurrent jobs that may own the same resource. If no data is entered, the device handler will use a default value of 1. %Library.Numeric 39 RESOURCE_SLOTS FileMan Field Label: 'SECONDARY $I' FileMan Field Number: '52' This field holds the $IO value to be used if this is the secondary system in a mixed OS environment. It is not used otherwise. It is only used for output devices. %Library.String 56 SECONDARY_I FileMan Field Label: 'SECURITY' FileMan Field Number: '15' The users DUZ(0) (fileman access) must contain at least one of the characters in this field for the user to be able to select this device. %Library.String 1 23 s {SECURITY}=$e({NODE_95},1,99) 1 SECURITY FileMan Field Label: 'SIGN-ON/SYSTEM DEVICE' FileMan Field Number: '1.95' If answered 'YES', this field identifies that this entry is the primary device among those device entries that have the same $I with the same VOLUME SET(CPU). Among those device entries that have a common $I and CPU, only one of these entries can have this field set to 'YES'. If none of the common device entries are set to 'YES', the default device will be identified by the first device on the CPU x-ref. The default device is used when the device handler is invoked with $I as the device to be selected. %Library.EnumString 9 SIGNONSYSTEM_DEVICE FileMan Field Label: 'SUPPRESS FORM FEED AT CLOSE' FileMan Field Number: '11.2' This field is used flag devices that should not have form feeds issued at the time the device is closed. This field should be answered 'YES' for label printers. %Library.EnumString 21 SUPPRESS_FORM_FEED_AT_CLOSE FileMan Field Label: 'TASKMAN PRINT A HEADER PAGE' FileMan Field Number: '26' If this field is set to YES then, Taskman will print a header page before the job is started to form a break between reports. %Library.EnumString 35 TASKMAN_PRINT_A_HEADER_PAGE FileMan Field Label: 'TELNET PORT' FileMan Field Number: '66' This field contains the telnet port of a remote device (e.g., a telnet printer). The allowable range is a number between 2000 and 65534. %Library.Numeric 62 TELNET_PORT FileMan Field Label: 'TIED ROUTINE' FileMan Field Number: '51.8' This field, if filled in, has the name of a routine that is run before the 'ACCESS CODE' question is asked. Use with care. %Library.String 53 TIED_ROUTINE FileMan Field Label: 'TIMED READ (# OF SECONDS)' FileMan Field Number: '51.1' The number of seconds for timed reads at this device. It is overridden by the Timed Read specification in the USER File. %Library.Numeric 42 TIMED_READ__OF_SECONDS FileMan Field Label: 'TYPE' FileMan Field Number: '2' This field has the general type of device on the CPU. 'TRM' is the most common entry. TRM -- Terminal devices such as most crts and printers should be associated with a corresponding device entry with a type of 'TRM'. HFS -- Host File Server is only available on mumps platforms that exists on a layered system(e.g.: VMS, UNIX, NT, etc.). This type and the associated functionality provides the vehicle to read and write to host level files. Instead of directing reports to a printer, the results could be placed into a VMS, NT or UNIX file. This would allow a non-mumps based statistical package or spreadsheet to use data produced by the mumps based application by simply extracting data from the host file. VTRM -- Virtual Terminal Server devices are those that are associated with a dynamically created mumps port identification($I). A generic device entry with a device type of 'VTRM' can be established for users who log into the system through terminal servers. RES -- Resources is a type used for special sequencing of tasks that do not require a particular device. CHAN -- Network Channels are high speed devices that use network protocols such as TCP/IP. OTH -- Other devices that do not fit a particular category should be given a type of 'OTH'. MT -- Magtape device should have a type of 'MT'. SPL -- Spool device is a predefined allocated disk space similar to SDP. However, access to the spool device can be achieved from multiple users simultaneously. BAR -- Bar code reader. This type identifies the device as a barcode reader. SDP -- Sequential Disk Processor is a predefined allocated disk space used for sequential processing. On DSM-11 and M/11+ systems, devices 59 thru 62 are reserved for SDP. On MSM, the Sequential Block Processor(SBP) is essentially the same as SDP. This has been replaced with HFS. IMPC -- Imaging work station device(reserved for future use for DHCP Imaging Project). PQ -- Print Queues. This type of device will be used on Cache/VMS,Linux, or Unix systems to create host files and pass them to a print server. Print Queue devices are not used on Windows systems. %Library.EnumString 1 10 TYPE FileMan Field Label: 'TYPE-AHEAD' FileMan Field Number: '51.9' Should the user of this device have 'Type-Ahead' turned on or off. This will be overridden by the same specification in the USER File. %Library.EnumString 54 TYPEAHEAD FileMan Field Label: 'USE PARAMETERS' FileMan Field Number: '19.5' This field holds the parameters to be used in a MUMPS USE statement. %Library.String 27 USE_PARAMETERS FileMan Field Label: 'USE TIMEOUT ON OPENS' FileMan Field Number: '2009.5' This field determines whether a timeout will be used to open the device. %Library.EnumString 69 USE_TIMEOUT_ON_OPENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 73 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VMS DEVICE TYPE' FileMan Field Number: '63' This is a flag that is passed into the file LT_PTR.DAT by the routine XTLATSET to select how this port should be setup in VMS by the SYS$MANAGER:SYSPRINT.COM file when it runs. %Library.EnumString 59 VMS_DEVICE_TYPE FileMan Field Label: 'VOLUME SET(CPU)' FileMan Field Number: '1.9' This field holds the name of the CPU to which this device belongs. This field holds the name of the CPU where the physical port resides. On DSM-11, VAX DSM, this field may hold the name of the Volume Set. On M/11+, this field may hold the name of the Directory Set. If no name has been entered for this field, this device is assumed to be accessible from all CPUs in the network. In other words, when this device is referenced, the device handler will operate as if this device is resident on the local CPU. For example, if there is a device that uses the same $I on each CPU, one entry can be made in the Device File by leaving the 'Volume Set(CPU)' Field null. This shortcut will work only if the same $I has been associated with this device on every CPU. %Library.String 8 VOLUME_SETCPU FileMan Field Label: 'WINDOWS NETWORK PRINTER NAME' FileMan Field Number: '75' This is the Windows network name for the printer (e.g., '\\zzzzzzfpc4\IST-HP4525-1'). It is used by Windows applications that interact with VistA and need a printer identified for output purposes. %Library.String 64 WINDOWS_NETWORK_PRINTER_NAME BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^%ZIS(1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(3.5,"+1,",.01)={"NAME"} set:{LOCATION_OF_TERMINAL}'="" FDA(3.5,"+1,",.02)={"LOCATION_OF_TERMINAL"} set:{LOCAL_SYNONYM}'="" FDA(3.5,"+1,",.04)={"LOCAL_SYNONYM"} set:{PURGE_OLD_PRINT_QUEUE_FILES}'="" FDA(3.5,"+1,",.13)={"PURGE_OLD_PRINT_QUEUE_FILES"} set:{I}'="" FDA(3.5,"+1,",1)={"I"} set:{VOLUME_SETCPU}'="" FDA(3.5,"+1,",1.9)={"VOLUME_SETCPU"} set:{SIGNONSYSTEM_DEVICE}'="" FDA(3.5,"+1,",1.95)={"SIGNONSYSTEM_DEVICE"} set:{TYPE}'="" FDA(3.5,"+1,",2)={"TYPE"} set:{ASK_DEVICE}'="" FDA(3.5,"+1,",4)={"ASK_DEVICE"} set:{ASK_PARAMETERS}'="" FDA(3.5,"+1,",5)={"ASK_PARAMETERS"} set:{ASK_HOST_FILE}'="" FDA(3.5,"+1,",5.1)={"ASK_HOST_FILE"} set:{ASK_HFS_IO_OPERATION}'="" FDA(3.5,"+1,",5.2)={"ASK_HFS_IO_OPERATION"} set:{QUEUING}'="" FDA(3.5,"+1,",5.5)={"QUEUING"} set:{OUTOFSERVICE_DATE}'="" FDA(3.5,"+1,",6)={"OUTOFSERVICE_DATE"} set:{NEAREST_PHONE}'="" FDA(3.5,"+1,",7)={"NEAREST_PHONE"} set:{KEY_OPERATOR}'="" FDA(3.5,"+1,",8)={"KEY_OPERATOR"} set:{MARGIN_WIDTH}'="" FDA(3.5,"+1,",9)={"MARGIN_WIDTH"} set:{PAGE_LENGTH}'="" FDA(3.5,"+1,",11)={"PAGE_LENGTH"} set:{SUPPRESS_FORM_FEED_AT_CLOSE}'="" FDA(3.5,"+1,",11.2)={"SUPPRESS_FORM_FEED_AT_CLOSE"} set:{FORM_CURRENTLY_MOUNTED}'="" FDA(3.5,"+1,",17)={"FORM_CURRENTLY_MOUNTED"} set:{OPEN_PARAMETERS}'="" FDA(3.5,"+1,",19)={"OPEN_PARAMETERS"} set:{CLOSE_PARAMETERS}'="" FDA(3.5,"+1,",19.3)={"CLOSE_PARAMETERS"} set:{USE_PARAMETERS}'="" FDA(3.5,"+1,",19.5)={"USE_PARAMETERS"} set:{MICOM_PRINTER_CONTENTION_PORT}'="" FDA(3.5,"+1,",21)={"MICOM_PRINTER_CONTENTION_PORT"} set:{PRIORITY_AT_RUN_TIME}'="" FDA(3.5,"+1,",25)={"PRIORITY_AT_RUN_TIME"} set:{TASKMAN_PRINT_A_HEADER_PAGE}'="" FDA(3.5,"+1,",26)={"TASKMAN_PRINT_A_HEADER_PAGE"} set:{PASSWORD}'="" FDA(3.5,"+1,",27)={"PASSWORD"} set:{AUTO_DESPOOL}'="" FDA(3.5,"+1,",31)={"AUTO_DESPOOL"} set:{GENERATE_SPL_DOC_NAME}'="" FDA(3.5,"+1,",33)={"GENERATE_SPL_DOC_NAME"} set:{RESOURCE_SLOTS}'="" FDA(3.5,"+1,",35)={"RESOURCE_SLOTS"} set:{GLOBAL_LOCK}'="" FDA(3.5,"+1,",36)={"GLOBAL_LOCK"} set:{OPEN_COUNT}'="" FDA(3.5,"+1,",51)={"OPEN_COUNT"} set:{TIMED_READ__OF_SECONDS}'="" FDA(3.5,"+1,",51.1)={"TIMED_READ__OF_SECONDS"} set:{RESERVED}'="" FDA(3.5,"+1,",51.12)={"RESERVED"} set:{RESERVED0}'="" FDA(3.5,"+1,",51.13)={"RESERVED0"} set:{RESERVED1}'="" FDA(3.5,"+1,",51.14)={"RESERVED1"} set:{RESERVED2}'="" FDA(3.5,"+1,",51.15)={"RESERVED2"} set:{OF_ATTEMPTS}'="" FDA(3.5,"+1,",51.2)={"OF_ATTEMPTS"} set:{LOCKOUT_TIME}'="" FDA(3.5,"+1,",51.3)={"LOCKOUT_TIME"} set:{MULTIPLE_SIGNON}'="" FDA(3.5,"+1,",51.4)={"MULTIPLE_SIGNON"} set:{ASK_DEVICE_TYPE_AT_SIGNON}'="" FDA(3.5,"+1,",51.5)={"ASK_DEVICE_TYPE_AT_SIGNON"} set:{AUTO_MENU}'="" FDA(3.5,"+1,",51.6)={"AUTO_MENU"} set:{RESERVED3}'="" FDA(3.5,"+1,",51.7)={"RESERVED3"} set:{TIED_ROUTINE}'="" FDA(3.5,"+1,",51.8)={"TIED_ROUTINE"} set:{TYPEAHEAD}'="" FDA(3.5,"+1,",51.9)={"TYPEAHEAD"} set:{PERFORM_DEVICE_CHECKING}'="" FDA(3.5,"+1,",51.91)={"PERFORM_DEVICE_CHECKING"} set:{SECONDARY_I}'="" FDA(3.5,"+1,",52)={"SECONDARY_I"} set:{LAT_SERVER_NODE}'="" FDA(3.5,"+1,",61)={"LAT_SERVER_NODE"} set:{LAT_SERVER_PORT}'="" FDA(3.5,"+1,",62)={"LAT_SERVER_PORT"} set:{VMS_DEVICE_TYPE}'="" FDA(3.5,"+1,",63)={"VMS_DEVICE_TYPE"} set:{LAT_PORT_SPEED}'="" FDA(3.5,"+1,",64)={"LAT_PORT_SPEED"} set:{PRINT_SERVER_NAME_OR_ADDRESS}'="" FDA(3.5,"+1,",65)={"PRINT_SERVER_NAME_OR_ADDRESS"} set:{TELNET_PORT}'="" FDA(3.5,"+1,",66)={"TELNET_PORT"} set:{REMOTE_PRINTER_NAME}'="" FDA(3.5,"+1,",67)={"REMOTE_PRINTER_NAME"} set:{WINDOWS_NETWORK_PRINTER_NAME}'="" FDA(3.5,"+1,",75)={"WINDOWS_NETWORK_PRINTER_NAME"} set:{BARCODE_AVAIL}'="" FDA(3.5,"+1,",646)={"BARCODE_AVAIL"} set:{PROHIBITED_TIMES_FOR_SIGNON}'="" FDA(3.5,"+1,",2009)={"PROHIBITED_TIMES_FOR_SIGNON"} set:{USE_TIMEOUT_ON_OPENS}'="" FDA(3.5,"+1,",2009.5)={"USE_TIMEOUT_ON_OPENS"} set:{OPEN_TIMEOUT}'="" FDA(3.5,"+1,",2010)={"OPEN_TIMEOUT"} set:{MICOM_LINE}'="" FDA(3.5,"+1,",2011)={"MICOM_LINE"} set:{NVS_PASSOVER_FLAG}'="" FDA(3.5,"+1,",18000)={"NVS_PASSOVER_FLAG"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(3.5)") set %SkipFiling=1 if $d(%FMERR(3.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(3.5,IENS,.01)={NAME} set:{LOCATION_OF_TERMINAL*C} FDA(3.5,IENS,.02)={LOCATION_OF_TERMINAL} set:{LOCAL_SYNONYM*C} FDA(3.5,IENS,.04)={LOCAL_SYNONYM} set:{PURGE_OLD_PRINT_QUEUE_FILES*C} FDA(3.5,IENS,.13)={PURGE_OLD_PRINT_QUEUE_FILES} set:{I*C} FDA(3.5,IENS,1)={I} set:{VOLUME_SETCPU*C} FDA(3.5,IENS,1.9)={VOLUME_SETCPU} set:{SIGNONSYSTEM_DEVICE*C} FDA(3.5,IENS,1.95)={SIGNONSYSTEM_DEVICE} set:{TYPE*C} FDA(3.5,IENS,2)={TYPE} set:{ASK_DEVICE*C} FDA(3.5,IENS,4)={ASK_DEVICE} set:{ASK_PARAMETERS*C} FDA(3.5,IENS,5)={ASK_PARAMETERS} set:{ASK_HOST_FILE*C} FDA(3.5,IENS,5.1)={ASK_HOST_FILE} set:{ASK_HFS_IO_OPERATION*C} FDA(3.5,IENS,5.2)={ASK_HFS_IO_OPERATION} set:{QUEUING*C} FDA(3.5,IENS,5.5)={QUEUING} set:{OUTOFSERVICE_DATE*C} FDA(3.5,IENS,6)={OUTOFSERVICE_DATE} set:{NEAREST_PHONE*C} FDA(3.5,IENS,7)={NEAREST_PHONE} set:{KEY_OPERATOR*C} FDA(3.5,IENS,8)={KEY_OPERATOR} set:{MARGIN_WIDTH*C} FDA(3.5,IENS,9)={MARGIN_WIDTH} set:{PAGE_LENGTH*C} FDA(3.5,IENS,11)={PAGE_LENGTH} set:{SUPPRESS_FORM_FEED_AT_CLOSE*C} FDA(3.5,IENS,11.2)={SUPPRESS_FORM_FEED_AT_CLOSE} set:{FORM_CURRENTLY_MOUNTED*C} FDA(3.5,IENS,17)={FORM_CURRENTLY_MOUNTED} set:{OPEN_PARAMETERS*C} FDA(3.5,IENS,19)={OPEN_PARAMETERS} set:{CLOSE_PARAMETERS*C} FDA(3.5,IENS,19.3)={CLOSE_PARAMETERS} set:{USE_PARAMETERS*C} FDA(3.5,IENS,19.5)={USE_PARAMETERS} set:{MICOM_PRINTER_CONTENTION_PORT*C} FDA(3.5,IENS,21)={MICOM_PRINTER_CONTENTION_PORT} set:{PRIORITY_AT_RUN_TIME*C} FDA(3.5,IENS,25)={PRIORITY_AT_RUN_TIME} set:{TASKMAN_PRINT_A_HEADER_PAGE*C} FDA(3.5,IENS,26)={TASKMAN_PRINT_A_HEADER_PAGE} set:{PASSWORD*C} FDA(3.5,IENS,27)={PASSWORD} set:{AUTO_DESPOOL*C} FDA(3.5,IENS,31)={AUTO_DESPOOL} set:{GENERATE_SPL_DOC_NAME*C} FDA(3.5,IENS,33)={GENERATE_SPL_DOC_NAME} set:{RESOURCE_SLOTS*C} FDA(3.5,IENS,35)={RESOURCE_SLOTS} set:{GLOBAL_LOCK*C} FDA(3.5,IENS,36)={GLOBAL_LOCK} set:{OPEN_COUNT*C} FDA(3.5,IENS,51)={OPEN_COUNT} set:{TIMED_READ__OF_SECONDS*C} FDA(3.5,IENS,51.1)={TIMED_READ__OF_SECONDS} set:{RESERVED*C} FDA(3.5,IENS,51.12)={RESERVED} set:{RESERVED0*C} FDA(3.5,IENS,51.13)={RESERVED0} set:{RESERVED1*C} FDA(3.5,IENS,51.14)={RESERVED1} set:{RESERVED2*C} FDA(3.5,IENS,51.15)={RESERVED2} set:{OF_ATTEMPTS*C} FDA(3.5,IENS,51.2)={OF_ATTEMPTS} set:{LOCKOUT_TIME*C} FDA(3.5,IENS,51.3)={LOCKOUT_TIME} set:{MULTIPLE_SIGNON*C} FDA(3.5,IENS,51.4)={MULTIPLE_SIGNON} set:{ASK_DEVICE_TYPE_AT_SIGNON*C} FDA(3.5,IENS,51.5)={ASK_DEVICE_TYPE_AT_SIGNON} set:{AUTO_MENU*C} FDA(3.5,IENS,51.6)={AUTO_MENU} set:{RESERVED3*C} FDA(3.5,IENS,51.7)={RESERVED3} set:{TIED_ROUTINE*C} FDA(3.5,IENS,51.8)={TIED_ROUTINE} set:{TYPEAHEAD*C} FDA(3.5,IENS,51.9)={TYPEAHEAD} set:{PERFORM_DEVICE_CHECKING*C} FDA(3.5,IENS,51.91)={PERFORM_DEVICE_CHECKING} set:{SECONDARY_I*C} FDA(3.5,IENS,52)={SECONDARY_I} set:{LAT_SERVER_NODE*C} FDA(3.5,IENS,61)={LAT_SERVER_NODE} set:{LAT_SERVER_PORT*C} FDA(3.5,IENS,62)={LAT_SERVER_PORT} set:{VMS_DEVICE_TYPE*C} FDA(3.5,IENS,63)={VMS_DEVICE_TYPE} set:{LAT_PORT_SPEED*C} FDA(3.5,IENS,64)={LAT_PORT_SPEED} set:{PRINT_SERVER_NAME_OR_ADDRESS*C} FDA(3.5,IENS,65)={PRINT_SERVER_NAME_OR_ADDRESS} set:{TELNET_PORT*C} FDA(3.5,IENS,66)={TELNET_PORT} set:{REMOTE_PRINTER_NAME*C} FDA(3.5,IENS,67)={REMOTE_PRINTER_NAME} set:{WINDOWS_NETWORK_PRINTER_NAME*C} FDA(3.5,IENS,75)={WINDOWS_NETWORK_PRINTER_NAME} set:{BARCODE_AVAIL*C} FDA(3.5,IENS,646)={BARCODE_AVAIL} set:{PROHIBITED_TIMES_FOR_SIGNON*C} FDA(3.5,IENS,2009)={PROHIBITED_TIMES_FOR_SIGNON} set:{USE_TIMEOUT_ON_OPENS*C} FDA(3.5,IENS,2009.5)={USE_TIMEOUT_ON_OPENS} set:{OPEN_TIMEOUT*C} FDA(3.5,IENS,2010)={OPEN_TIMEOUT} set:{MICOM_LINE*C} FDA(3.5,IENS,2011)={MICOM_LINE} set:{NVS_PASSOVER_FLAG*C} FDA(3.5,IENS,18000)={NVS_PASSOVER_FLAG} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(3.5)") set %SkipFiling=1 if $d(%FMERR(3.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.DEVICE35S index ^%ZIS nonnull 1 "B" {NAME} {IEN} 0]]> index ^%ZIS nonnull 1 "C" {I} {IEN} 0]]> data ^%ZIS 1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" "XUS" 5 "^" 1 6 "^" 1 5 "^" 0 4 "^" 1 8 "^" "XUS" 6 "^" 646 1 "^" "IOCPAR" 1 "^" "F" 1 "^" 1 9 "^" "GBL" 1 "^" 0 2 "^" 90 3 "^" "VMS" 4 "^" "VMS" 1 "^" "VMS" 2 "^" 1 4 "^" 1 1 "^" "XUS" 3 "^" 91 1 "^" 1 5 "^" 1 7 "^" "XUS" 4 "^" 0 1 "^" 90 2 "^" "NV" 1 "^" "XUS" 2 "^" 5 1 "^" "IOPAR" 1 "^" "TIME" 2 "^" 90 1 "^" 91 3 "^" 1 2 "^" "XUS" 11 "^" "VMS" 5 "^" 0 5 "^" "TIME" 1 "^" 0 13 "^" 0 12 "^" "VMS" 7 "^" "XUS" 12 "^" "XUS" 13 "^" "XUS" 14 "^" "XUS" 15 "^" "XUS" 7 "^" 1 10 "^" 2 1 "^" 0 11 "^" 1 11 "^" 0 7 "^" "VMS" 6 "^" "XUS" 8 "^" "XUS" 10 "^" "TYPE" 1 "^" "XUS" 9 "^" "IOUPAR" 1 "^" "TIME" 3 "^" "VMS" 3 "^" 0 9 "^" "WIN" 1 index {LOCATION_OF_TERMINAL}'="" 1 ^%ZIS conditional 1 "E" $$TRUNCATE({LOCATION_OF_TERMINAL},30)) {IEN} 0]]> index ^%ZIS nonnull 1 "F" {FORM_CURRENTLY_MOUNTED} {IEN} 0]]> index ^%ZIS nonnull 1 "LSYN" {LOCAL_SYNONYM} {IEN} 0]]> index {PRINT_SERVER_NAME_OR_ADDRESS}'="" 1 ^%ZIS conditional 1 "R1BVDQUE" $$TRUNCATE({PRINT_SERVER_NAME_OR_ADDRESS},30)) {IEN} 0]]> Generated class for FileMan File Number: '699.6' File Name: 'DIAG/THERAP INTERVENT' Class generated by %fm2class version 2.56 This file stores the techniques used in medical procedures with a screen to differentiate the type of sub-procedure(s) the technique is related to. persistent _PUBLIC 0 RowId DIAGTHERAP_INTERVENT_699_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.236968327 67178,44708.044780622 right DIAG/THERAP INTERVENT 699.6 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'CATH SURGICAL RISK PROCEDURE' FileMan Field Number: '3' This field is used to determine whether a technique is selectable for the Catheterization Surgical Risk entry. %Library.EnumString 5 CATH_SURGICAL_RISK_PROCEDURE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDICATED THERAPY USE' FileMan Field Number: '2' This field is used as a flag to determine whether a technique can be used as an 'Indicated Therapy' for Endoscopies. %Library.EnumString 4 INDICATED_THERAPY_USE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field stores a list of techniques used in various Medical procedures. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name *PROCEDURE child VALIP.prosthetic.fm2cw.SUBPROCEDURE69961 children DIAGTHERAPINTERVENT6996 1 SUB_PROCEDURE_699_61 Relationship for Sub-File/Multiple to file name PROCEDURE NAME child VALIP.prosthetic.fm2cw.SUBPROCEDURENAME69962 children DIAGTHERAPINTERVENT6996 1 SUB_PROCEDURE_NAME_699_62 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.6,"+1,",.01)={"NAME"} set:{INDICATED_THERAPY_USE}'="" FDA(699.6,"+1,",2)={"INDICATED_THERAPY_USE"} set:{CATH_SURGICAL_RISK_PROCEDURE}'="" FDA(699.6,"+1,",3)={"CATH_SURGICAL_RISK_PROCEDURE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.6)") set %SkipFiling=1 if $d(%FMERR(699.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.6,IENS,.01)={NAME} set:{INDICATED_THERAPY_USE*C} FDA(699.6,IENS,2)={INDICATED_THERAPY_USE} set:{CATH_SURGICAL_RISK_PROCEDURE*C} FDA(699.6,IENS,3)={CATH_SURGICAL_RISK_PROCEDURE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.6)") set %SkipFiling=1 if $d(%FMERR(699.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.DIAGTHERAPI850DS index {NAME}'="" 1 ^MCAR conditional 699.6 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index {CATH_SURGICAL_RISK_PROCEDURE}'="" 1 ^MCAR conditional 699.6 "D" $$TRUNCATE({CATH_SURGICAL_RISK_PROCEDURE},30)) {IEN} 0]]> data ^MCAR 699.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '2006.532' File Name: 'DICOM SOP CLASS' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file will contain a list of unique identifiers for DICOM SOP Classes. Each of these UIDs (Unique IDentifiers) corresponds to a DICOM Service Class that is used for the acquisition of images. persistent _PUBLIC 0 RowId DICOM_SOP_CLASS_2006_532 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.267026288 67178,44708.07130276 right DICOM SOP CLASS 2006.532 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'ACTIVE' FileMan Field Number: '4' The value of this field is a code that indicates whether the SOP Class that is described in the current entry is active or retired. Retired entries cannot be removed from this table (because they may still be "pointed to"). %Library.EnumString 5 ACTIVE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2006.532,0),""^"",3)") 1 2 IEN FileMan Field Label: 'SOP CLASS NAME' FileMan Field Number: '2' The value of this field is a string. This string identifies a DICOM SOP Class. Valid names for SOP Classes are defined in the DICOM Standard. %Library.String 4 SOP_CLASS_NAME FileMan Field Label: 'SOP CLASS UID' FileMan Field Number: '.01' The value of this field is a DICOM UID. A unique identifier (UID) in DICOM is a string of up to 64 characters long that consists of only digits and periods. The UIDs that are stored in this file identify the SOP Classes that are being used for Image Acquisition. %Library.String 1 3 SOP_CLASS_UID SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2006.532," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SOP_CLASS_UID}'="" FDA(2006.532,"+1,",.01)={"SOP_CLASS_UID"} set:{SOP_CLASS_NAME}'="" FDA(2006.532,"+1,",2)={"SOP_CLASS_NAME"} set:{ACTIVE}'="" FDA(2006.532,"+1,",4)={"ACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2006.532)") set %SkipFiling=1 if $d(%FMERR(2006.532,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2006.532)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SOP_CLASS_UID*C} FDA(2006.532,IENS,.01)={SOP_CLASS_UID} set:{SOP_CLASS_NAME*C} FDA(2006.532,IENS,2)={SOP_CLASS_NAME} set:{ACTIVE*C} FDA(2006.532,IENS,4)={ACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2006.532)") set %SkipFiling=1 if $d(%FMERR(2006.532,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2006.532)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.DICOMSOPCLADCF1S index ^MAG nonnull 2006.532 "B" {SOP_CLASS_UID} {IEN} 0]]> index ^MAG nonnull 2006.532 "C" {SOP_CLASS_NAME} {IEN} 0]]> data ^MAG 2006.532 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '699.84' File Name: 'DISEASE EVALUATION' Class generated by %fm2class version 2.56 This file holds disease evaluations for use with GI/Pulmonary. persistent _PUBLIC 0 RowId DISEASE_EVALUATION_699_84 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.265868542 67178,44708.097642141 right DISEASE EVALUATION 699.84 2.56 12/04/2024 12:25:08 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.84,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '1' This field identifies used as a screen to differentiate GI disease follow-ups from Pulmonary follow-ups. %Library.EnumString 4 MEDICAL_PACKAGE_USE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field is used to store a list of possible disease follow-ups for GI and Pulmonary Endoscopies. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.84," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.84,"+1,",.01)={"NAME"} set:{MEDICAL_PACKAGE_USE}'="" FDA(699.84,"+1,",1)={"MEDICAL_PACKAGE_USE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.84)") set %SkipFiling=1 if $d(%FMERR(699.84,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.84)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.84,IENS,.01)={NAME} set:{MEDICAL_PACKAGE_USE*C} FDA(699.84,IENS,1)={MEDICAL_PACKAGE_USE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.84)") set %SkipFiling=1 if $d(%FMERR(699.84,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.84)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.DISEASEEVAL7A3DS index ^MCAR nonnull 699.84 "B" {NAME} {IEN} 0]]> data ^MCAR 699.84 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '442044' File Name: 'DOCTOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId DOCTOR_442044 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.289643265 67178,44708.152208632 right DOCTOR 442044 2.56 12/04/2024 12:25:08 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIZ(442044,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIZ(442044," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(442044,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(442044)") set %SkipFiling=1 if $d(%FMERR(442044,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(442044)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(442044,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(442044)") set %SkipFiling=1 if $d(%FMERR(442044,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(442044)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.DOCTOR442044S index ^DIZ nonnull 442044 "B" {NAME} {IEN} 0]]> data ^DIZ 442044 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '4.2' File Name: 'DOMAIN' Class generated by %fm2class version 2.56 This file is used to name all of the domains to which MailMan messages may be routed. Each name in this file corresponds to the right side of a MailMan address-the part following the "@". Domains may have synonyms, allowing users to name sites with one name, while MailMan uses the more formal Domain Naming conventions. This file also controls whether messages are queued for immediate transmission and into what queue they are dropped. Any domain may have a relay domain, which controls the routing as follows: If a domain has a named relay domain, the message is put in the queue for the relay domain. If not, and the domain has a TRANSMISSION SCRIPT, then the message is put in the queue for that domain. Otherwise, the message is put in the queue for the Parent domain, as defined at MailMan initialization time. persistent _PUBLIC 0 RowId DOMAIN_4_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.305121558 67178,44708.17768403 right DOMAIN 4.2 2.56 12/04/2024 12:25:08 1 1 IEN 1 DOMAIN_4_2]]> RELAYDOMAIN VALIP.prosthetic.fm2cw.DOMAIN42 FKey_RELAY_DOMAIN FileMan Field Label: 'DHCP ROUTING INDICATOR' FileMan Field Number: '6.2' This field is used to route messages when they arrive at the central data collection point at the domain a.aaaa.domain.ext. %Library.String 13 DHCP_ROUTING_INDICATOR FileMan Field Label: 'DIRECTORY REQUESTS FLAG' FileMan Field Number: '50' This field controls whether or not the XMMGR-DIRECTORY-ALL option will send a message requesting the user directory for the domain. If the value is null or zero, no request will be made. If the value is a positive integer, a request will be made at the same time as other domains with the same number in this field are made. A task must be set up and scheduled for each number assigned using the XMDIR-REQUEST-ALL option, which is then run every 90 days (or according to what you change the reschedule value to). %Library.Numeric 24 DIRECTORY_REQUESTS_FLAG FileMan Field Label: 'DISABLE TURN COMMAND' FileMan Field Number: '1.7' This field, if set to "YES", means that a remote domain calling this domain will not be able to execute the SMTP TURN command. This means that the sending domain must open the link. This allows an extra measure of security, to insure that the sending domain establishes the link. %Library.EnumString 8 DISABLE_TURN_COMMAND FileMan Field Label: 'FLAGS' FileMan Field Number: '1' The flags field controls the flow of messages to this domain from the local node. Flags are: S = Send. MailMan should start a TaskMan task to transmit the message as soon as the message is received. C = Close. MailMan will not allow users to address mail to this domain. Q or "" (the null string) = Queue. MailMan will not deliver until a task is explicitly created to deliver the mail. P = Poll. A TaskMan task will poll all domains with this flag. N = NO-forward. MailMan will not allow messages to be forwarded to this domain. T = Talkman enabled. The presence of this flag allows Talkman to be used at your site. It is also necessary to put a 'T' command into the script so that TalkMan will be invoked properly. %Library.String 4 FLAGS FileMan Field Label: 'FTP' FileMan Field Number: '6.62' This is the information needed by to log into an FTP service to send files. It is overridden by the site if they wish in their Kernel Site Parameters and sent to the sender in real time. There are really two pieces of data in this field separated by a ";". Piece number 1 is the username. Piece number 2 is the password. %Library.String 17 FTP FileMan Field Label: 'FTP BLOB DIRECTORY' FileMan Field Number: '6.7' This field contains the directory into which a file should be put by a domain sending it files to attach to multimedia messages. %Library.String 18 FTP_BLOB_DIRECTORY FileMan Field Label: 'FTP BLOB IP ADDRESS' FileMan Field Number: '6.6' This field contains the IP address of this host so that it can be used as the to address for files that will be sent to this domain. %Library.String 15 FTP_BLOB_IP_ADDRESS Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(4.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LEVEL 1 NAME' FileMan Field Number: '20' The most right "." piece of a domain name ($P(domain-name,".",$L(domain-name,".")) %Library.String 1 20 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(4.2,20,9.2) S Y(4.2,20,5)=X S X=".",X=$L(Y(4.2,20,5),X),X=$P(Y(4.2,20,2),Y(4.2,20,3),X) set {LEVEL_1_NAME}=X 1 LEVEL_1_NAME FileMan Field Label: 'LEVEL 2 NAME' FileMan Field Number: '21' $P(domain-name,".",$L(domain-name,".")-1) %Library.String 1 21 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(4.2,21,9.2) S Y(4.2,21,5)=X S X=".",X=$L(Y(4.2,21,5),X)-1,Y(4.2,21,6)=X S X=9,X=$P(Y(4.2,21,2),Y(4.2,21,3),Y(4.2,21,6),X) set {LEVEL_2_NAME}=X 1 LEVEL_2_NAME FileMan Field Label: 'LEVEL 3 NAME' FileMan Field Number: '22' $P(domain-name,".",$L(domain-name,".")-2) %Library.String 1 22 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(4.2,22,9.2) S Y(4.2,22,5)=X S X=".",X=$L(Y(4.2,22,5),X)-2,Y(4.2,22,6)=X S X=9,X=$P(Y(4.2,22,2),Y(4.2,22,3),Y(4.2,22,6),X) set {LEVEL_3_NAME}=X 1 LEVEL_3_NAME FileMan Field Label: 'LEVEL 4 NAME' FileMan Field Number: '23' $P(domain-name,".",$L(domain-name,".")-3) %Library.String 1 23 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(4.2,23,9.2) S Y(4.2,23,5)=X S X=".",X=$L(Y(4.2,23,5),X)-3,Y(4.2,23,6)=X S X=9,X=$P(Y(4.2,23,2),Y(4.2,23,3),Y(4.2,23,6),X) set {LEVEL_4_NAME}=X 1 LEVEL_4_NAME FileMan Field Label: 'MAILMAN HOST' FileMan Field Number: '6.5' This field contains a logical or physical address of a remote domain so that a connection can occur. %Library.String 14 MAILMAN_HOST FileMan Field Label: 'MCTS ROUTING INDICATOR' FileMan Field Number: '6' This is a three character routing indicator for the VADATS network's MCTS terminal system. statistics reflect the messages as they are actually transmitted, not as they are addressed. %Library.String 12 MCTS_ROUTING_INDICATOR FileMan Field Label: 'NAME' FileMan Field Number: '.01' The exact name of the domain, as used in network addressing This name is the exact name of the domain, as used in network addressing. It consists of "." (dot) pieces that are formed hierarchically starting at the right. Domains with dot pieces to the left are administered by the domain whose domain name consists of its name less the 1st dot piece. For example: A.DOMAIN.COM is administered by DOMAIN.COM. The domain name may be from 1 to 64 characters. Each dot piece may be up to 20 characters, and must begin with an alpha or numeric, and be composed of only alpha, numeric, or "-" characters. %Library.String 1 3 NAME FileMan Field Label: 'NEW VALIDATION NUMBER' FileMan Field Number: '1.61' This field is used for security. It is a temporary value, it is set when a new validation number is negotiated with another Domain. It is moved to the Validation Number, field 1.6, after it is confirmed by the other Domain. %Library.Numeric 7 NEW_VALIDATION_NUMBER FileMan Field Label: 'NOTES' FileMan Field Number: '4.2' NETWORK NOTES should be used to document idiosyncracies which occur when communicating with the domain in question. %Library.String 10 NOTES FileMan Field Label: 'PHYSICAL LINK DEVICE' FileMan Field Number: '17' This field is used for network mail ONLY. If there is no device named in field 1.3 of the TRANSMISSION SCRIPT, then this device is used. If no device is named in this field, then the device named in field 8.25 of file 4.3 is used. If there's no device named in that field, then there is no device. If this domain has a physical link such as a miniengine port, a direct line to another cpu, a modem, etc., this port should be named in this field to direct network mail to the proper output device. There must be an entry in the DEVICE file for this cpu port. The name field of the DEVICE file can be a literal (such as MINIENGINE-OUT or CPU B LINK) but the $I field must match with the correct cpu $I. If the link is physically located on a cpu other than the one the network mail is being sent from, the local DEVICE file MUST reflect that in the OTHER CPU field of the device file if the transmission is to take place immediately. If it is not identified properly, the message will go into a queue to be processed the next time a network message is sent from or recieved on the processor with the physical link. NOTE: The DEVICE files on all cpu's must have matching device names to correctly route the message to the proper cpu for sending. %Library.String 19 PHYSICAL_LINK_DEVICE FileMan Field Label: 'RELAY DOMAIN' FileMan Field Number: '2' This is the name of the domain, if any, to which messages are to be always routed. For example, if traffic from Los Angeles to Washington is always to be routed through San Francisco, then the RELAY DOMAIN for Los Angeles is defined to be San Francisco. The relay domain overides any other path determination processes, such as scripts and parent domains. VALIP.prosthetic.fm2cw.DOMAIN42 9 RELAY_DOMAIN NAME The exact name of the domain, as used in network addressing This name is the exact name of the domain, as used in network addressing. It consists of "." (dot) pieces that are formed hierarchically starting at the right. Domains with dot pieces to the left are administered by the domain whose domain name consists of its name less the 1st dot piece. For example: A.DOMAIN.COM is administered by DOMAIN.COM. The domain name may be from 1 to 64 characters. Each dot piece may be up to 20 characters, and must begin with an alpha or numeric, and be composed of only alpha, numeric, or "-" characters.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.DOMAIN_4_2 where %ID=:id) set {RELAY_DOMAIN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RELAY_DOMAIN_NAME 1 FileMan Field Label: 'SECURITY KEY' FileMan Field Number: '1.5' This field, if defined, names a security key which must be held by the sender. If the sender does not have this key, then he may not address this domain. %Library.String 5 SECURITY_KEY FileMan Field Label: 'STATION' FileMan Field Number: '5.5' STATION This is the domain's station. %Library.String 11 STATION Relationship for Sub-File/Multiple to file name POLL LIST child VALIP.prosthetic.fm2cw.SUBPOLLLIST424 children DOMAIN42 1 SUB_POLL_LIST_4_24 Relationship for Sub-File/Multiple to file name SYNONYM child VALIP.prosthetic.fm2cw.SUBSYNONYM423 children DOMAIN42 1 SUB_SYNONYM_4_23 Relationship for Sub-File/Multiple to file name TRANSMISSION SCRIPT child VALIP.prosthetic.fm2cw.SUBTRANSMISSIONSCRIPT421 children DOMAIN42 1 SUB_TRANSMISSION_SCRIPT_4_21 FileMan Field Label: 'TCP/IP POLL FLAG' FileMan Field Number: '6.61' This is the information needed to log in the FTP service of this site if the standard route needs to be overridden. . This field is required. Set the value of it to zero ("0" Do Not Poll) unless you know that you are using the XMRTCP TCP/IP poller. %Library.EnumString 16 TCPIP_POLL_FLAG FileMan Field Label: 'VALIDATION NUMBER' FileMan Field Number: '1.6' This field is used for security. If filled in any messaging services that contact you will need to know the value of this field, or their requests will be ignored. Messaging services = other MailMan domains. %Library.Numeric 6 VALIDATION_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 25 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(4.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(4.2,"+1,",.01)={"NAME"} set:{FLAGS}'="" FDA(4.2,"+1,",1)={"FLAGS"} set:{SECURITY_KEY}'="" FDA(4.2,"+1,",1.5)={"SECURITY_KEY"} set:{VALIDATION_NUMBER}'="" FDA(4.2,"+1,",1.6)={"VALIDATION_NUMBER"} set:{NEW_VALIDATION_NUMBER}'="" FDA(4.2,"+1,",1.61)={"NEW_VALIDATION_NUMBER"} set:{DISABLE_TURN_COMMAND}'="" FDA(4.2,"+1,",1.7)={"DISABLE_TURN_COMMAND"} set:{RELAY_DOMAIN}'="" FDA(4.2,"+1,",2)={"RELAY_DOMAIN"} set:{STATION}'="" FDA(4.2,"+1,",5.5)={"STATION"} set:{MCTS_ROUTING_INDICATOR}'="" FDA(4.2,"+1,",6)={"MCTS_ROUTING_INDICATOR"} set:{DHCP_ROUTING_INDICATOR}'="" FDA(4.2,"+1,",6.2)={"DHCP_ROUTING_INDICATOR"} set:{MAILMAN_HOST}'="" FDA(4.2,"+1,",6.5)={"MAILMAN_HOST"} set:{FTP_BLOB_IP_ADDRESS}'="" FDA(4.2,"+1,",6.6)={"FTP_BLOB_IP_ADDRESS"} set:{TCPIP_POLL_FLAG}'="" FDA(4.2,"+1,",6.61)={"TCPIP_POLL_FLAG"} set:{FTP}'="" FDA(4.2,"+1,",6.62)={"FTP"} set:{FTP_BLOB_DIRECTORY}'="" FDA(4.2,"+1,",6.7)={"FTP_BLOB_DIRECTORY"} set:{PHYSICAL_LINK_DEVICE}'="" FDA(4.2,"+1,",17)={"PHYSICAL_LINK_DEVICE"} set:{DIRECTORY_REQUESTS_FLAG}'="" FDA(4.2,"+1,",50)={"DIRECTORY_REQUESTS_FLAG"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(4.2)") set %SkipFiling=1 if $d(%FMERR(4.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {NOTES}'="" { set D0={RowId} for i=1:1:$l({NOTES},$c(13,10)) { set wp(i)=$p({NOTES},$c(13,10),i) } do WP^DIE(4.2,{RowId},4.2,,"wp","%FMERR(4.2)") if $d(%FMERR(4.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(4.2,IENS,.01)={NAME} set:{FLAGS*C} FDA(4.2,IENS,1)={FLAGS} set:{SECURITY_KEY*C} FDA(4.2,IENS,1.5)={SECURITY_KEY} set:{VALIDATION_NUMBER*C} FDA(4.2,IENS,1.6)={VALIDATION_NUMBER} set:{NEW_VALIDATION_NUMBER*C} FDA(4.2,IENS,1.61)={NEW_VALIDATION_NUMBER} set:{DISABLE_TURN_COMMAND*C} FDA(4.2,IENS,1.7)={DISABLE_TURN_COMMAND} set:{RELAY_DOMAIN*C} FDA(4.2,IENS,2)={RELAY_DOMAIN} set:{STATION*C} FDA(4.2,IENS,5.5)={STATION} set:{MCTS_ROUTING_INDICATOR*C} FDA(4.2,IENS,6)={MCTS_ROUTING_INDICATOR} set:{DHCP_ROUTING_INDICATOR*C} FDA(4.2,IENS,6.2)={DHCP_ROUTING_INDICATOR} set:{MAILMAN_HOST*C} FDA(4.2,IENS,6.5)={MAILMAN_HOST} set:{FTP_BLOB_IP_ADDRESS*C} FDA(4.2,IENS,6.6)={FTP_BLOB_IP_ADDRESS} set:{TCPIP_POLL_FLAG*C} FDA(4.2,IENS,6.61)={TCPIP_POLL_FLAG} set:{FTP*C} FDA(4.2,IENS,6.62)={FTP} set:{FTP_BLOB_DIRECTORY*C} FDA(4.2,IENS,6.7)={FTP_BLOB_DIRECTORY} set:{PHYSICAL_LINK_DEVICE*C} FDA(4.2,IENS,17)={PHYSICAL_LINK_DEVICE} set:{DIRECTORY_REQUESTS_FLAG*C} FDA(4.2,IENS,50)={DIRECTORY_REQUESTS_FLAG} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.2)") set %SkipFiling=1 if $d(%FMERR(4.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {NOTES*C} { set D0={RowId} kill wp if {NOTES}'="" { set wproot="wp" for i=1:1:$l({NOTES},$c(13,10)) { set wp(i)=$p({NOTES},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(4.2,{RowId},4.2,,wproot,"%FMERR(4.2)") if $d(%FMERR(4.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.DOMAIN42S index ^DIC nonnull 4.2 "AD" {DHCP_ROUTING_INDICATOR} {IEN} 0]]> index ^DIC nonnull 4.2 "AE" {DIRECTORY_REQUESTS_FLAG} {IEN} 0]]> index ^DIC nonnull 4.2 "ATCP" {TCPIP_POLL_FLAG} {IEN} 0]]> index {NAME}'="" 1 ^DIC conditional 4.2 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^DIC nonnull 4.2 "D" {TCPIP_POLL_FLAG} {IEN} 0]]> data ^DIC 4.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 14 "^" 50 1 "^" 0 16 "^" 0 2 "^" 3 1 "^" "FTP-DIR" 1 "^" "IP" 1 "^" 0 12 "^" 0 4 "^" 0 1 "^" 0 18 5 new data,i,node set {NOTES}="" merge data=^DIC(4.2,{S2},5) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {NOTES}={NOTES}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 17 "^" 0 3 "^" 0 11 "^" 0 13 "^" "P" 1 "^" 0 15 Generated class for FileMan File Number: '82.13' File Name: 'DRG CC EXCLUSIONS' Class generated by %fm2class version 2.56 This file contains data that was extracted from Appendix C of the Medicare/Medicaid web site www.cms.gov. The data consists of lists of Diagnosis Codes. Each list is stored within an Exclusion Code that provides access to the list from File #80, field 1.11. persistent _PUBLIC 0 RowId DRG_CC_EXCLUSIONS_82_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.29334178 67178,44708.213536403 right DRG CC EXCLUSIONS 82.13 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'EXCLUSION CODE' FileMan Field Number: '.01' This field contains a code which identifies a group of primary Diagnosis Codes. %Library.String 1 3 EXCLUSION_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^ICDCCEX(0),""^"",3)") 1 2 IEN Relationship for Sub-File/Multiple to file name PDX child VALIP.prosthetic.fm2cw.SUBPDX82131 children DRGCCEXCLUSIONS8213 1 SUB_PDX_82_131 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ICDCCEX(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{EXCLUSION_CODE}'="" FDA(82.13,"+1,",.01)={"EXCLUSION_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(82.13)") set %SkipFiling=1 if $d(%FMERR(82.13,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(82.13)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{EXCLUSION_CODE*C} FDA(82.13,IENS,.01)={EXCLUSION_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(82.13)") set %SkipFiling=1 if $d(%FMERR(82.13,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(82.13)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.DRGCCEXCLUS40A2S index ^ICDCCEX nonnull "B" {EXCLUSION_CODE} {IEN} 0]]> data ^ICDCCEX {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '82' File Name: 'DRG DIAGNOSIS IDENTIFIER CODES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId DRG_DIAGNOSIS_IDENTIFIER_CODES_82 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.312325324 67178,44708.240423969 right DRG DIAGNOSIS IDENTIFIER CODES 82 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' Description of this Identifier Code %Library.String 4 DESCRIPTION FileMan Field Label: 'IDENTIFIER CODE' FileMan Field Number: '.01' ICD-9 and ICD-10 Diagnosis Identifier Code %Library.String 1 3 IDENTIFIER_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^ICDID(0),""^"",3)") 1 2 IEN SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ICDID(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{IDENTIFIER_CODE}'="" FDA(82,"+1,",.01)={"IDENTIFIER_CODE"} set:{DESCRIPTION}'="" FDA(82,"+1,",1)={"DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(82)") set %SkipFiling=1 if $d(%FMERR(82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{IDENTIFIER_CODE*C} FDA(82,IENS,.01)={IDENTIFIER_CODE} set:{DESCRIPTION*C} FDA(82,IENS,1)={DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(82)") set %SkipFiling=1 if $d(%FMERR(82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.DRGDIAGNOSIA8ACS index ^ICDID nonnull "B" {IDENTIFIER_CODE} {IEN} 0]]> index ^ICDID nonnull "C" {DESCRIPTION} {IEN} 0]]> data ^ICDID {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '50' File Name: 'DRUG' Class generated by %fm2class version 2.56 This file holds the information related to each drug that can be used to fill a prescription. It is pointed to from several other files and should be handled carefully, usually only by special individuals in the pharmacy service. Entries are not typically deleted, but rather made inactive by entering an inactive date. This file must be built by Pharmacy Service BEFORE going on-line. It is common to use another centers file and edit it to match your center's unique formulary. persistent _PUBLIC 0 RowId DRUG_50 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.350162244 67178,44708.267044968 right DRUG 50 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'AAQMMS' FileMan Field Number: '437153' %Library.Numeric 60 AAQMMS FileMan Field Label: 'AAQMMSMQ' FileMan Field Number: '437153.1' This is the field that sets the maximum quantity fo a drug that is set for multiple month supply. Range is set at 0-500, but can be changed by modifing the field with FM. This field is used by PSOZ90D and PSOZR()D to put limits on 90 day supplies fo designated drugs. %Library.Numeric 61 AAQMMSMQ FileMan Field Label: 'ACTION PROFILE MESSAGE (OP)' FileMan Field Number: '40' This message will be printed on the Outpatient action profile along with the other information for each prescription for this drug. %Library.String 32 ACTION_PROFILE_MESSAGE_OP FileMan Field Label: 'AHFS NUMBER' FileMan Field Number: '1' %Library.String 1 5 set U="^",D0=$piece({RowId},"||",1) S X=$P(^PSDRUG(D0,0),U,2),X=$J(X/100,7,2),X=$E(X,1,2)_":"_$E(X,3,7) set {AHFS_NUMBER}=X 1 AHFS_NUMBER FileMan Field Label: 'APPLICATION PACKAGES' USE' FileMan Field Number: '63' This field is free text, but contains the codes of the DHCP packages that consider this drug part of its formulary. This field is set through the routine ^PSGIU, and NOT through VA FileMan. NOTES: Uneditable through VA FileMan. %Library.String 39 APPLICATION_PACKAGES_USE FileMan Field Label: 'AR/WS AMIS CATEGORY' FileMan Field Number: '301' This refers to the category that this drug is to be classified as for AMIS statistics in Automatic Replenishment/Ward Stock. %Library.EnumString 56 ARWS_AMIS_CATEGORY FileMan Field Label: 'AR/WS AMIS CONVERSION NUMBER' FileMan Field Number: '302' This number reflects the number of doses/units contained in the dispensed drug for Automatic Replenishment/Ward Stock AMIS statistics. For example: For a 20cc vial, the quantity dispensed is 1, and the conversion number is 20. For 5 oz. antacid, the quantity dispensed is 1, and the conversion number is 1. For a bottle of 100 aspirin, the quantity dispensed is 1, and the conversion number is 100. %Library.Numeric 57 ARWS_AMIS_CONVERSION_NUMBER FileMan Field Label: '*ATC CANISTER' FileMan Field Number: '212.1' ATC CANISTER (OLD) This should be the number of the canister from the Baxter ATC 212 dispensing machine that contains this drug. If no number is entered here, the Unit Dose package will assume that this drug is NOT currently in the ATC. %Library.Numeric 51 ATC_CANISTER FileMan Field Label: 'ATC MNEMONIC' FileMan Field Number: '212.2' This is the link between the Unit Dose package and the ATC dispensing machine. The data here is sent to the ATC, and therefore MUST match the mnemonic entered for this same drug in the ATC. If the mnemonic entered here does not match a mnemonic within the ATC, any pick list with this mnemonic sent to the ATC will not complete. %Library.String 52 ATC_MNEMONIC FileMan Field Label: 'CHEYENNE COMMENT' FileMan Field Number: '623001' %Library.String 63 CHEYENNE_COMMENT FileMan Field Label: 'CMOP DISPENSE' FileMan Field Number: '213' Indicates if this drug may be dispensed from the Consolidated Mail Outpatient Pharmacy System. %Library.EnumString 53 CMOP_DISPENSE FileMan Field Label: 'CMOP ID' FileMan Field Number: '27' OLD PSNDF This field contains the VA CMOP National Identifier from NDF. %Library.String 28 CMOP_ID FileMan Field Label: 'CURRENT INVENTORY' FileMan Field Number: '50' This field contains the current number of the drug in stock. %Library.Numeric 33 CURRENT_INVENTORY FileMan Field Label: 'DAW CODE' FileMan Field Number: '81' Dispensed As Written code. This information is used for NCPDP electronic claim transmission to third party payers (insurance companies). %Library.Numeric 41 DAW_CODE FileMan Field Label: 'DAY (nD) or DOSE (nL) LIMIT' FileMan Field Number: '62.01' ENTER NUMBER OF DAYS A UNIT DOSE ORDER (WITH THIS DRUG) WILL LAST This is mainly for NARCOTICS and ANTIBIOTICS. If a number is found here when this medication is selected for a UNIT DOSE order, that number will be used to calculate the DEFAULT value for the STOP DATE/TIME prompt in the entry of that order. If the number entered is followed by a "D", that number of days will be added to the START DATE. If the number is followed by an "L", that number will be used to calculate the DOSE LIMIT. %Library.String 36 DAY_ND_OR_DOSE_NL_LIMIT FileMan Field Label: 'DEA, SPECIAL HDLG' FileMan Field Number: '3' This field is used to show the DEA Special Handling . %Library.String 7 DEA_SPECIAL_HDLG FileMan Field Label: 'DISPENSE UNIT' FileMan Field Number: '14.5' This is the dispense unit for this drug. %Library.String 17 DISPENSE_UNIT FileMan Field Label: 'DISPENSE UNITS PER ORDER UNIT' FileMan Field Number: '15' This is the dispense units per order unit for this drug. %Library.Numeric 18 DISPENSE_UNITS_PER_ORDER_UNIT FileMan Field Label: 'EPHARMACY BILLABLE' FileMan Field Number: '84' This field indicates whether a prescription for this drug is billable. In general, OTCs and supplies are not covered, except insulin, glucose test strips, insulin syringes and needles. Some plans cover preventative care OTC products. A review of the Payable Claims Report may help determine if a product marked as billable is covered. %Library.EnumString 44 EPHARMACY_BILLABLE FileMan Field Label: 'EPHARMACY BILLABLE (CHAMPVA)' FileMan Field Number: '86' This field indicates whether a prescription for this drug is CHAMPVA billable. In general, OTCs and supplies are not covered, except insulin, glucose test scripts, insulin syringes, needles and inhaler spacers. If unsure mark as billable and change if prescriptions reject as not covered. %Library.EnumString 46 EPHARMACY_BILLABLE_CHAMPVA FileMan Field Label: 'EPHARMACY BILLABLE (TRICARE)' FileMan Field Number: '85' This field indicates whether a prescription for this drug is TRICARE billable. In general, OTCs and supplies are not covered, except insulin, glucose test strips, insulin syringes, needles and inhaler spacers. If unsure mark as billable and change if prescriptions reject as not covered. %Library.EnumString 45 EPHARMACY_BILLABLE_TRICARE FileMan Field Label: 'EXPIRATION DATE' FileMan Field Number: '17.1' This field is used to show the expiration date of the current supply of available drugs. %Library.FilemanDate 21 EXPIRATION_DATE FileMan Field Label: 'FSN' FileMan Field Number: '6' FEDERAL STOCK NUMBER This is the federal stock number of this drug. %Library.String 10 FSN FileMan Field Label: 'GENDER SPECIFIC LBLS ON ALL RX' FileMan Field Number: '8.2' If this field contains "N", warning labels that are marked with a SPECIFIC TO GENDER value of "M" for Male or "F" for Female will only print for this drug when the patient is that specific gender. If this field is null or contains a "Y", then the warning will print for both genders. %Library.EnumString 13 GENDER_SPECIFIC_LBLS_ON_ALL_RX FileMan Field Label: 'GENERIC NAME' FileMan Field Number: '.01' This is the generic name of the drug. In addition, if this entry is marked for CMOP transmission, the generic name cannot be edited unless it is UNmarked for CMOP transmission first. %Library.String 1 4 GENERIC_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^PSDRUG(0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '100' This is the date the drug is inactive. %Library.FilemanDate 48 INACTIVE_DATE FileMan Field Label: 'INPATIENT PHARMACY LOCATION' FileMan Field Number: '300' Enter from 1 to 3 location codes, each separated by commas, that define the location of this item in the inpatient pharmacy storage. This will be used to sort Automatic Replenishment reports for easier location of items. %Library.String 55 INPATIENT_PHARMACY_LOCATION FileMan Field Label: 'INV ORDER UNITS' FileMan Field Number: '18' This is the inventory order units for this drug. %Library.Numeric 1 25 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(18,2)=$S($D(^PSDRUG(D0,660)):^(660),1:""),Y(18,1)=$S($D(^(660.1)):^(660.1),1:"") S X=$P(Y(18,1),U,1),X=$S($P(Y(18,2),U,5):X/$P(Y(18,2),U,5),1:"*******") S X=$J(X,0,2) set {INV_ORDER_UNITS}=X 1 INV_ORDER_UNITS FileMan Field Label: 'LAB MONITOR MARK' FileMan Field Number: '17.6' This field is set to "1" if the drug is marked for Lab Monitor purposes. %Library.EnumString 24 LAB_MONITOR_MARK FileMan Field Label: 'LOCAL CLASS' FileMan Field Number: '442001' %Library.EnumString 62 LOCAL_CLASS FileMan Field Label: 'LOCAL NON-FORMULARY' FileMan Field Number: '51' This is used to designate the drug as non-formulary. %Library.EnumString 34 LOCAL_NONFORMULARY FileMan Field Label: 'MAXIMUM DAYS SUPPLY' FileMan Field Number: '66' This field is used to determine the maximum number for days supply that may be assigned to this drug. If this field is left blank, the MAXIMUM DAYS SUPPLY is set to a default of 90 unless the drug is a controlled substance or Clozapine. Any value greater than 90 increases the number of potential copay units above 3. The maximum value allowed for this field is 365 (days) for most drugs, however: - Schedule 2 controlled substances have a 30-day maximum days supply limit. - Schedules 3 thru 5 controlled substances have a 90-day maximum days supply limit. - The maximum number of days supply for this drug cannot exceed the National Drug File (NDF) maximum value if it exists. - No value can be entered for Clozapine drugs as the maximum days supply is controlled by the Clozapine functionality. %Library.Numeric 40 MAXIMUM_DAYS_SUPPLY FileMan Field Label: 'MAXIMUM DOSE PER DAY' FileMan Field Number: '4' This field is used as a standard maximum dosage. %Library.Numeric 8 MAXIMUM_DOSE_PER_DAY FileMan Field Label: 'MESSAGE' FileMan Field Number: '101' Message displayed whenever drug is selected for RX. Commonly used to warn about restrictions to certain services, doctors, etc. This is purely a passive informational free text field. %Library.String 49 MESSAGE FileMan Field Label: 'MONITOR MAX DAYS' FileMan Field Number: '17.3' This is the number of days during which the results of the lab test are of interest when dispensing this drug. %Library.Numeric 22 MONITOR_MAX_DAYS FileMan Field Label: '*MONITOR MAX DAYS' FileMan Field Number: '623003' This is the number of days during which the results of the lab tests are of interest when dispensing this drug. %Library.Numeric 64 MONITOR_MAX_DAYS0 FileMan Field Label: 'MONITOR ROUTINE' FileMan Field Number: '17.5' This is the name of the routine which is called to do all necessary checking on lab test results before dispensing this drug. %Library.String 23 MONITOR_ROUTINE FileMan Field Label: '*MONITOR ROUTINE' FileMan Field Number: '623008' This is the name of the routine which is called to do all necessary checking on lab test results before dispensing this drug. %Library.String 65 MONITOR_ROUTINE0 FileMan Field Label: 'NATIONAL FORMULARY INDICATOR' FileMan Field Number: '29' This field will be used to determine whether this drug is on the National Formulary. Data will be maintained at the national level. This field will be populated during the NDF matching process. The data cannot be edited at the local level. %Library.EnumString 30 NATIONAL_FORMULARY_INDICATOR FileMan Field Label: 'NCPDP DISPENSE UNIT' FileMan Field Number: '82' The NCPDP QUANTITY MULTIPLIER field and this field are used to determine metric quantity for electronic 3rd Party billing purposes. This field indicates the NCPDP standard billing Unit of Measure (EA - EACH; GM - GRAMS; ML - MILLILITERS). %Library.EnumString 42 NCPDP_DISPENSE_UNIT FileMan Field Label: 'NCPDP QUANTITY MULTIPLIER' FileMan Field Number: '83' The NCPDP DISPENSE UNIT field and this field are used to determine metric quantity for electronic 3rd Party billing purposes. This field contains the number that will be multiplied by the quantity in the prescription in order to determine the correct quantity to electronically bill 3rd party insurance companies. %Library.Numeric 43 NCPDP_QUANTITY_MULTIPLIER FileMan Field Label: 'NDC' FileMan Field Number: '31' This is the National Drug Code for this drug. %Library.String 31 NDC FileMan Field Label: 'NEW WARNING LABEL LIST' FileMan Field Number: '8.1' Enter a comma-delimited list of warning numbers from old and new warning files, following new file entries with an "N". %Library.String 12 NEW_WARNING_LABEL_LIST FileMan Field Label: 'NORMAL AMOUNT TO ORDER' FileMan Field Number: '14' This is the normal amount to order for this drug. %Library.Numeric 16 NORMAL_AMOUNT_TO_ORDER FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field contains the internal record number of the drug. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'OP EXTERNAL DISPENSE' FileMan Field Number: '28' Indicates if this drug may be dispensed to an external interface dispensing machine. %Library.EnumString 29 OP_EXTERNAL_DISPENSE FileMan Field Label: 'PRICE PER DISPENSE UNIT' FileMan Field Number: '16' This is the price per dispense unit for this drug. %Library.Numeric 19 PRICE_PER_DISPENSE_UNIT FileMan Field Label: 'PRICE PER ORDER UNIT' FileMan Field Number: '13' This is the price per order unit for this drug. %Library.Numeric 15 PRICE_PER_ORDER_UNIT FileMan Field Label: 'QUANTITY DISPENSE MESSAGE' FileMan Field Number: '215' This is a free text description used by pharmacy personnel to indicate which quantities for the drug/item are stocked by the Outpatient Pharmacy system for this facility. %Library.String 54 QUANTITY_DISPENSE_MESSAGE FileMan Field Label: 'REORDER LEVEL' FileMan Field Number: '11' This field is used to indicate the reorder level for this drug. %Library.Numeric 14 REORDER_LEVEL FileMan Field Label: 'RESTRICTION' FileMan Field Number: '102' This is any restrictions that may apply to this drug. %Library.String 50 RESTRICTION FileMan Field Label: 'SENSITIVE DIAGNOSIS DRUG' FileMan Field Number: '87' This field indicates whether this drug is used EXCLUSIVELY to treat one of the VA's sensitive diagnoses, HIV, drug abuse, alcohol abuse and Sickle Cell anemia. %Library.EnumString 47 SENSITIVE_DIAGNOSIS_DRUG FileMan Field Label: 'SERVICE CODE' FileMan Field Number: '400' The Charge Description Master (CDM) Change Control board assigns value for this field. The value should be a number between 600001-699999. %Library.Numeric 58 SERVICE_CODE FileMan Field Label: 'SOURCE OF SUPPLY' FileMan Field Number: '17' This field is used to indicate the source of the supply for this medication/ supply. %Library.String 20 SOURCE_OF_SUPPLY FileMan Field Label: 'STANDARD SIG' FileMan Field Number: '5' This field is used as a standard default for medication instructions. %Library.String 9 STANDARD_SIG FileMan Field Label: 'STRENGTH' FileMan Field Number: '901' This field is a numeric value representing the single dose of medication supplied by this product. %Library.Numeric 59 STRENGTH FileMan Field Label: 'UNIT DOSE SCHEDULE' FileMan Field Number: '62.04' STANDARD UNIT DOSE SCHEDULE If a schedule is found here when this medication is selected for a UNIT DOSE order, that schedule will be used as a default value for the SCHEDULE prompt in order entry. %Library.String 38 UNIT_DOSE_SCHEDULE FileMan Field Label: 'UNIT DOSE SCHEDULE TYPE' FileMan Field Number: '62.03' STANDARD UNIT DOSE SCHEDULE TYPE If data is found here when this medication is selected for a UNIT DOSE order, that data will be used as the DEFAULT value for the SCHEDULE TYPE prompt in ORDER ENTRY. Please note that you will NOT find CONTINUOUS as a SCHEDULE TYPE here, since it is the standard default in order entry. %Library.EnumString 37 UNIT_DOSE_SCHEDULE_TYPE FileMan Field Label: 'VA CLASSIFICATION' FileMan Field Number: '2' This is the VA classification for this drug. %Library.String 6 VA_CLASSIFICATION FileMan Field Label: 'VA DRUG CLASS CODE' FileMan Field Number: '26' This is the VA Drug Class Code along with the description of that class. %Library.String 1 27 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(50,26,9.3) S:X]"" X=$P(X,U)_" "_$P(X,U,2) S D0=Y(50,26,80) set {VA_DRUG_CLASS_CODE}=X 1 VA_DRUG_CLASS_CODE FileMan Field Label: 'VA PRODUCT NAME' FileMan Field Number: '21' This is the VA Product Name matched to in the National Drug file. %Library.String 26 VA_PRODUCT_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 66 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VISN NON-FORMULARY' FileMan Field Number: '52' This field will designate a drug that is not on the VISN Formulary. %Library.EnumString 35 VISN_NONFORMULARY FileMan Field Label: 'WARNING LABEL' FileMan Field Number: '8' This field is used to indicate if a warning should be printed with the selection of this drug. %Library.String 11 WARNING_LABEL BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PSDRUG(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{GENERIC_NAME}'="" FDA(50,"+1,",.01)={"GENERIC_NAME"} set:{VA_CLASSIFICATION}'="" FDA(50,"+1,",2)={"VA_CLASSIFICATION"} set:{DEA_SPECIAL_HDLG}'="" FDA(50,"+1,",3)={"DEA_SPECIAL_HDLG"} set:{MAXIMUM_DOSE_PER_DAY}'="" FDA(50,"+1,",4)={"MAXIMUM_DOSE_PER_DAY"} set:{STANDARD_SIG}'="" FDA(50,"+1,",5)={"STANDARD_SIG"} set:{FSN}'="" FDA(50,"+1,",6)={"FSN"} set:{WARNING_LABEL}'="" FDA(50,"+1,",8)={"WARNING_LABEL"} set:{NEW_WARNING_LABEL_LIST}'="" FDA(50,"+1,",8.1)={"NEW_WARNING_LABEL_LIST"} set:{GENDER_SPECIFIC_LBLS_ON_ALL_RX}'="" FDA(50,"+1,",8.2)={"GENDER_SPECIFIC_LBLS_ON_ALL_RX"} set:{REORDER_LEVEL}'="" FDA(50,"+1,",11)={"REORDER_LEVEL"} set:{PRICE_PER_ORDER_UNIT}'="" FDA(50,"+1,",13)={"PRICE_PER_ORDER_UNIT"} set:{NORMAL_AMOUNT_TO_ORDER}'="" FDA(50,"+1,",14)={"NORMAL_AMOUNT_TO_ORDER"} set:{DISPENSE_UNIT}'="" FDA(50,"+1,",14.5)={"DISPENSE_UNIT"} set:{DISPENSE_UNITS_PER_ORDER_UNIT}'="" FDA(50,"+1,",15)={"DISPENSE_UNITS_PER_ORDER_UNIT"} set:{PRICE_PER_DISPENSE_UNIT}'="" FDA(50,"+1,",16)={"PRICE_PER_DISPENSE_UNIT"} set:{SOURCE_OF_SUPPLY}'="" FDA(50,"+1,",17)={"SOURCE_OF_SUPPLY"} set:{EXPIRATION_DATE}'="" FDA(50,"+1,",17.1)={"EXPIRATION_DATE"} set:{MONITOR_MAX_DAYS}'="" FDA(50,"+1,",17.3)={"MONITOR_MAX_DAYS"} set:{MONITOR_ROUTINE}'="" FDA(50,"+1,",17.5)={"MONITOR_ROUTINE"} set:{LAB_MONITOR_MARK}'="" FDA(50,"+1,",17.6)={"LAB_MONITOR_MARK"} set:{VA_PRODUCT_NAME}'="" FDA(50,"+1,",21)={"VA_PRODUCT_NAME"} set:{CMOP_ID}'="" FDA(50,"+1,",27)={"CMOP_ID"} set:{OP_EXTERNAL_DISPENSE}'="" FDA(50,"+1,",28)={"OP_EXTERNAL_DISPENSE"} set:{NATIONAL_FORMULARY_INDICATOR}'="" FDA(50,"+1,",29)={"NATIONAL_FORMULARY_INDICATOR"} set:{NDC}'="" FDA(50,"+1,",31)={"NDC"} set:{ACTION_PROFILE_MESSAGE_OP}'="" FDA(50,"+1,",40)={"ACTION_PROFILE_MESSAGE_OP"} set:{CURRENT_INVENTORY}'="" FDA(50,"+1,",50)={"CURRENT_INVENTORY"} set:{LOCAL_NONFORMULARY}'="" FDA(50,"+1,",51)={"LOCAL_NONFORMULARY"} set:{VISN_NONFORMULARY}'="" FDA(50,"+1,",52)={"VISN_NONFORMULARY"} set:{DAY_ND_OR_DOSE_NL_LIMIT}'="" FDA(50,"+1,",62.01)={"DAY_ND_OR_DOSE_NL_LIMIT"} set:{UNIT_DOSE_SCHEDULE_TYPE}'="" FDA(50,"+1,",62.03)={"UNIT_DOSE_SCHEDULE_TYPE"} set:{UNIT_DOSE_SCHEDULE}'="" FDA(50,"+1,",62.04)={"UNIT_DOSE_SCHEDULE"} set:{APPLICATION_PACKAGES_USE}'="" FDA(50,"+1,",63)={"APPLICATION_PACKAGES_USE"} set:{MAXIMUM_DAYS_SUPPLY}'="" FDA(50,"+1,",66)={"MAXIMUM_DAYS_SUPPLY"} set:{DAW_CODE}'="" FDA(50,"+1,",81)={"DAW_CODE"} set:{NCPDP_DISPENSE_UNIT}'="" FDA(50,"+1,",82)={"NCPDP_DISPENSE_UNIT"} set:{NCPDP_QUANTITY_MULTIPLIER}'="" FDA(50,"+1,",83)={"NCPDP_QUANTITY_MULTIPLIER"} set:{EPHARMACY_BILLABLE}'="" FDA(50,"+1,",84)={"EPHARMACY_BILLABLE"} set:{EPHARMACY_BILLABLE_TRICARE}'="" FDA(50,"+1,",85)={"EPHARMACY_BILLABLE_TRICARE"} set:{EPHARMACY_BILLABLE_CHAMPVA}'="" FDA(50,"+1,",86)={"EPHARMACY_BILLABLE_CHAMPVA"} set:{SENSITIVE_DIAGNOSIS_DRUG}'="" FDA(50,"+1,",87)={"SENSITIVE_DIAGNOSIS_DRUG"} set:{INACTIVE_DATE}'="" FDA(50,"+1,",100)={"INACTIVE_DATE"} set:{MESSAGE}'="" FDA(50,"+1,",101)={"MESSAGE"} set:{RESTRICTION}'="" FDA(50,"+1,",102)={"RESTRICTION"} set:{ATC_CANISTER}'="" FDA(50,"+1,",212.1)={"ATC_CANISTER"} set:{ATC_MNEMONIC}'="" FDA(50,"+1,",212.2)={"ATC_MNEMONIC"} set:{CMOP_DISPENSE}'="" FDA(50,"+1,",213)={"CMOP_DISPENSE"} set:{QUANTITY_DISPENSE_MESSAGE}'="" FDA(50,"+1,",215)={"QUANTITY_DISPENSE_MESSAGE"} set:{INPATIENT_PHARMACY_LOCATION}'="" FDA(50,"+1,",300)={"INPATIENT_PHARMACY_LOCATION"} set:{ARWS_AMIS_CATEGORY}'="" FDA(50,"+1,",301)={"ARWS_AMIS_CATEGORY"} set:{ARWS_AMIS_CONVERSION_NUMBER}'="" FDA(50,"+1,",302)={"ARWS_AMIS_CONVERSION_NUMBER"} set:{SERVICE_CODE}'="" FDA(50,"+1,",400)={"SERVICE_CODE"} set:{STRENGTH}'="" FDA(50,"+1,",901)={"STRENGTH"} set:{AAQMMS}'="" FDA(50,"+1,",437153)={"AAQMMS"} set:{AAQMMSMQ}'="" FDA(50,"+1,",437153.1)={"AAQMMSMQ"} set:{LOCAL_CLASS}'="" FDA(50,"+1,",442001)={"LOCAL_CLASS"} set:{CHEYENNE_COMMENT}'="" FDA(50,"+1,",623001)={"CHEYENNE_COMMENT"} set:{MONITOR_MAX_DAYS0}'="" FDA(50,"+1,",623003)={"MONITOR_MAX_DAYS0"} set:{MONITOR_ROUTINE0}'="" FDA(50,"+1,",623008)={"MONITOR_ROUTINE0"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(50)") set %SkipFiling=1 if $d(%FMERR(50,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(50)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{GENERIC_NAME*C} FDA(50,IENS,.01)={GENERIC_NAME} set:{VA_CLASSIFICATION*C} FDA(50,IENS,2)={VA_CLASSIFICATION} set:{DEA_SPECIAL_HDLG*C} FDA(50,IENS,3)={DEA_SPECIAL_HDLG} set:{MAXIMUM_DOSE_PER_DAY*C} FDA(50,IENS,4)={MAXIMUM_DOSE_PER_DAY} set:{STANDARD_SIG*C} FDA(50,IENS,5)={STANDARD_SIG} set:{FSN*C} FDA(50,IENS,6)={FSN} set:{WARNING_LABEL*C} FDA(50,IENS,8)={WARNING_LABEL} set:{NEW_WARNING_LABEL_LIST*C} FDA(50,IENS,8.1)={NEW_WARNING_LABEL_LIST} set:{GENDER_SPECIFIC_LBLS_ON_ALL_RX*C} FDA(50,IENS,8.2)={GENDER_SPECIFIC_LBLS_ON_ALL_RX} set:{REORDER_LEVEL*C} FDA(50,IENS,11)={REORDER_LEVEL} set:{PRICE_PER_ORDER_UNIT*C} FDA(50,IENS,13)={PRICE_PER_ORDER_UNIT} set:{NORMAL_AMOUNT_TO_ORDER*C} FDA(50,IENS,14)={NORMAL_AMOUNT_TO_ORDER} set:{DISPENSE_UNIT*C} FDA(50,IENS,14.5)={DISPENSE_UNIT} set:{DISPENSE_UNITS_PER_ORDER_UNIT*C} FDA(50,IENS,15)={DISPENSE_UNITS_PER_ORDER_UNIT} set:{PRICE_PER_DISPENSE_UNIT*C} FDA(50,IENS,16)={PRICE_PER_DISPENSE_UNIT} set:{SOURCE_OF_SUPPLY*C} FDA(50,IENS,17)={SOURCE_OF_SUPPLY} set:{EXPIRATION_DATE*C} FDA(50,IENS,17.1)={EXPIRATION_DATE} set:{MONITOR_MAX_DAYS*C} FDA(50,IENS,17.3)={MONITOR_MAX_DAYS} set:{MONITOR_ROUTINE*C} FDA(50,IENS,17.5)={MONITOR_ROUTINE} set:{LAB_MONITOR_MARK*C} FDA(50,IENS,17.6)={LAB_MONITOR_MARK} set:{VA_PRODUCT_NAME*C} FDA(50,IENS,21)={VA_PRODUCT_NAME} set:{CMOP_ID*C} FDA(50,IENS,27)={CMOP_ID} set:{OP_EXTERNAL_DISPENSE*C} FDA(50,IENS,28)={OP_EXTERNAL_DISPENSE} set:{NATIONAL_FORMULARY_INDICATOR*C} FDA(50,IENS,29)={NATIONAL_FORMULARY_INDICATOR} set:{NDC*C} FDA(50,IENS,31)={NDC} set:{ACTION_PROFILE_MESSAGE_OP*C} FDA(50,IENS,40)={ACTION_PROFILE_MESSAGE_OP} set:{CURRENT_INVENTORY*C} FDA(50,IENS,50)={CURRENT_INVENTORY} set:{LOCAL_NONFORMULARY*C} FDA(50,IENS,51)={LOCAL_NONFORMULARY} set:{VISN_NONFORMULARY*C} FDA(50,IENS,52)={VISN_NONFORMULARY} set:{DAY_ND_OR_DOSE_NL_LIMIT*C} FDA(50,IENS,62.01)={DAY_ND_OR_DOSE_NL_LIMIT} set:{UNIT_DOSE_SCHEDULE_TYPE*C} FDA(50,IENS,62.03)={UNIT_DOSE_SCHEDULE_TYPE} set:{UNIT_DOSE_SCHEDULE*C} FDA(50,IENS,62.04)={UNIT_DOSE_SCHEDULE} set:{APPLICATION_PACKAGES_USE*C} FDA(50,IENS,63)={APPLICATION_PACKAGES_USE} set:{MAXIMUM_DAYS_SUPPLY*C} FDA(50,IENS,66)={MAXIMUM_DAYS_SUPPLY} set:{DAW_CODE*C} FDA(50,IENS,81)={DAW_CODE} set:{NCPDP_DISPENSE_UNIT*C} FDA(50,IENS,82)={NCPDP_DISPENSE_UNIT} set:{NCPDP_QUANTITY_MULTIPLIER*C} FDA(50,IENS,83)={NCPDP_QUANTITY_MULTIPLIER} set:{EPHARMACY_BILLABLE*C} FDA(50,IENS,84)={EPHARMACY_BILLABLE} set:{EPHARMACY_BILLABLE_TRICARE*C} FDA(50,IENS,85)={EPHARMACY_BILLABLE_TRICARE} set:{EPHARMACY_BILLABLE_CHAMPVA*C} FDA(50,IENS,86)={EPHARMACY_BILLABLE_CHAMPVA} set:{SENSITIVE_DIAGNOSIS_DRUG*C} FDA(50,IENS,87)={SENSITIVE_DIAGNOSIS_DRUG} set:{INACTIVE_DATE*C} FDA(50,IENS,100)={INACTIVE_DATE} set:{MESSAGE*C} FDA(50,IENS,101)={MESSAGE} set:{RESTRICTION*C} FDA(50,IENS,102)={RESTRICTION} set:{ATC_CANISTER*C} FDA(50,IENS,212.1)={ATC_CANISTER} set:{ATC_MNEMONIC*C} FDA(50,IENS,212.2)={ATC_MNEMONIC} set:{CMOP_DISPENSE*C} FDA(50,IENS,213)={CMOP_DISPENSE} set:{QUANTITY_DISPENSE_MESSAGE*C} FDA(50,IENS,215)={QUANTITY_DISPENSE_MESSAGE} set:{INPATIENT_PHARMACY_LOCATION*C} FDA(50,IENS,300)={INPATIENT_PHARMACY_LOCATION} set:{ARWS_AMIS_CATEGORY*C} FDA(50,IENS,301)={ARWS_AMIS_CATEGORY} set:{ARWS_AMIS_CONVERSION_NUMBER*C} FDA(50,IENS,302)={ARWS_AMIS_CONVERSION_NUMBER} set:{SERVICE_CODE*C} FDA(50,IENS,400)={SERVICE_CODE} set:{STRENGTH*C} FDA(50,IENS,901)={STRENGTH} set:{AAQMMS*C} FDA(50,IENS,437153)={AAQMMS} set:{AAQMMSMQ*C} FDA(50,IENS,437153.1)={AAQMMSMQ} set:{LOCAL_CLASS*C} FDA(50,IENS,442001)={LOCAL_CLASS} set:{CHEYENNE_COMMENT*C} FDA(50,IENS,623001)={CHEYENNE_COMMENT} set:{MONITOR_MAX_DAYS0*C} FDA(50,IENS,623003)={MONITOR_MAX_DAYS0} set:{MONITOR_ROUTINE0*C} FDA(50,IENS,623008)={MONITOR_ROUTINE0} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(50)") set %SkipFiling=1 if $d(%FMERR(50,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(50)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic.fm2cw.DRUG50S index ^PSDRUG nonnull "AEXP" {EXPIRATION_DATE} {IEN} 0]]> index ^PSDRUG nonnull "AQ1" {CMOP_ID} {IEN} 0]]> index {GENERIC_NAME}'="" 1 ^PSDRUG conditional "B" $$TRUNCATE({GENERIC_NAME},40)) {IEN} 0]]> data ^PSDRUG {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" "AAQMMS" 1 "^" "AAQMMS" 2 "^" "PSO" 1 "^" 2 3 "^" "PSG" 2 "^" "PSG" 3 "^" 8.5 1 "^" 8.5 2 "^" 2 1 "^" 3 1 "^" "ND" 10 "^" 660.1 1 "^" "EPH" 1 "^" 8 1 "^" 0 3 "^" 660 8 "^" 660 5 "^" "EPH" 4 "^" "EPH" 6 "^" "EPH" 5 "^" 660 9 "^" 0 6 "^" "WARN" 2 "^" 0 1 "^" "I" 1 "^" "PSG" 1 "^" "CLOZ1" 2 "^" 8 5 "^" 0 9 "^" 2 7 "^" 0 4 "^" 0 10 "^" "CLOZ" 2 "^" 623002 2 "^" "CLOZ1" 1 "^" 623008 1 "^" "ND" 11 "^" "EPH" 2 "^" "EPH" 3 "^" 2 4 "^" "WARN" 1 "^" 660 4 "^" 6 1 "^" 660 6 "^" 660 3 "^" 5 1 "^" 660 1 "^" 2 2 "^" "EPH" 7 "^" "PFS" 1 "^" 660 7 "^" 0 5 "^" "DOS" 1 "^" 8 4 "^" 8 3 "^" 0 2 "^" "ND" 2 "^" 0 11 "^" 0 8 index ^PSDRUG nonnull "IU" {APPLICATION_PACKAGES_USE} {IEN} 0]]> index {VA_PRODUCT_NAME}'="" 1 ^PSDRUG conditional "VAPN" $$TRUNCATE({VA_PRODUCT_NAME},30)) {IEN} 0]]> index ^PSDRUG nonnull "XATC" {ATC_MNEMONIC} {IEN} 0]]> Generated class for FileMan File Number: '724' File Name: 'DSS UNIT' Class generated by %fm2class version 2.56 This file contains all DSS units defined for use in the Event Capture software. Entries cannot be deleted but may be inactivated using the Event Capture software. The fields representing service, medical specialty and cost center are required for each DSS unit. These fields can be edited using options on the Event Capture Management Menu but cannot be deleted. This file should NOT be modified directly using VA FileMan. The Event Capture Management Menu provides the options necessary to create, edit, and inactivate all DSS units. persistent _PUBLIC 0 RowId DSS_UNIT_724 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.340726246 67178,44708.314420823 right DSS UNIT 724 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'ALLOW DUPLICATES' FileMan Field Number: '16' This field will control whether workload associated with this DSS Unit, when entered through the spreadsheet upload process, can be duplicated. A value of yes will allow the user to override the duplicate entry warning and create duplicate workload. %Library.EnumString 12 ALLOW_DUPLICATES FileMan Field Label: 'CATEGORY (Y/N)' FileMan Field Number: '10' Category (Y/N) This field tracks the use of categories during an Event Capture data entry session. If you would like to utilize categories to group procedures during data entry, this field should be set to "YES" or "1". When set to "NO", "0", or a null, categories will not be used during data entry. Until event code screens have been defined for the DSS unit, the user may change the category setting. Once event code screens have been defined the user may only change the category setting from yes to no to remove the use of categories. Once set to no, with event code screens defined, the user can no longer change this field. %Library.EnumString 9 CATEGORY_YN FileMan Field Label: 'DATA ENTRY DATE/TIME DEFAULT' FileMan Field Number: '11' Data Entry Date/Time Default This field contains the default date and time for all data entry within this DSS unit. The default may be set for for NOW or "X" for NONE. When set for "N", time is included in the default. When set to "X" or null a default date and time is not set. During all data entry within this DSS unit, the selected default will be used as the VA FileMan date default within the routine. It may be changed as necessary for individual data entry operations. %Library.EnumString 10 DATA_ENTRY_DATETIME_DEFAULT Internal Entry Number %Library.String $$next^%apiSQL("$p(^ECD(0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE (Y/N)' FileMan Field Number: '5' This field tracks the active or inactive status of this DSS unit. An inactive DSS unit is set to "YES" or "1". An active DSS unit is set to "NO", "0", or a null. DSS units that are inactive cannot be selected for use during data entry. %Library.EnumString 5 INACTIVE_YN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name This field contains the name of this DSS unit. %Library.String 1 3 NAME FileMan Field Label: '*OLD NUMBER' FileMan Field Number: '6' This field was utilized when converting DSS units from being stored in the SERVICE/SECTION file (#49) to the DSS UNIT file (# 724). This field will be deleted in a future release of Event Capture. %Library.Numeric 6 OLD_NUMBER FileMan Field Label: 'SEND TO PCE' FileMan Field Number: '13' Send to PCE This field controls the method of sending data, by DSS Unit, to the PCE software. If the field contains an A (all records) or OOS (Occasion Of Service) for this DSS Unit, data will be filed with PCE. If the field contains an N or is null, no filing will occur. %Library.EnumString 11 SEND_TO_PCE FileMan Field Label: 'UNIT NUMBER' FileMan Field Number: '4' DSS UNIT Number This field contains a number that is used locally to identify and classify DSS units. %Library.String 4 UNIT_NUMBER FileMan Field Label: 'USE FOR EVENT CAPTURE' FileMan Field Number: '7' This field contains a flag set for use in the Event Capture software. If this flag is set to "YES" or "1", this DSS unit will be displayed to users of the Event Capture software. If this flag is set to "NO", "0", or a null, this DSS unit will not be displayed to users of the Event Capture software. %Library.EnumString 7 USE_FOR_EVENT_CAPTURE FileMan Field Label: '*USE FOR IFCAP' FileMan Field Number: '8' This field was created for identifying DSS units to be utilized within the IFCAP software. This was part of the pilot project. This data is not used by the Event Capture V.2.0 software. This field will be removed in a future release of the Event Capture software. %Library.EnumString 8 USE_FOR_IFCAP SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 13 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ECD(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(724,"+1,",.01)={"NAME"} set:{UNIT_NUMBER}'="" FDA(724,"+1,",4)={"UNIT_NUMBER"} set:{INACTIVE_YN}'="" FDA(724,"+1,",5)={"INACTIVE_YN"} set:{OLD_NUMBER}'="" FDA(724,"+1,",6)={"OLD_NUMBER"} set:{USE_FOR_EVENT_CAPTURE}'="" FDA(724,"+1,",7)={"USE_FOR_EVENT_CAPTURE"} set:{USE_FOR_IFCAP}'="" FDA(724,"+1,",8)={"USE_FOR_IFCAP"} set:{CATEGORY_YN}'="" FDA(724,"+1,",10)={"CATEGORY_YN"} set:{DATA_ENTRY_DATETIME_DEFAULT}'="" FDA(724,"+1,",11)={"DATA_ENTRY_DATETIME_DEFAULT"} set:{SEND_TO_PCE}'="" FDA(724,"+1,",13)={"SEND_TO_PCE"} set:{ALLOW_DUPLICATES}'="" FDA(724,"+1,",16)={"ALLOW_DUPLICATES"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(724)") set %SkipFiling=1 if $d(%FMERR(724,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(724)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(724,IENS,.01)={NAME} set:{UNIT_NUMBER*C} FDA(724,IENS,4)={UNIT_NUMBER} set:{INACTIVE_YN*C} FDA(724,IENS,5)={INACTIVE_YN} set:{OLD_NUMBER*C} FDA(724,IENS,6)={OLD_NUMBER} set:{USE_FOR_EVENT_CAPTURE*C} FDA(724,IENS,7)={USE_FOR_EVENT_CAPTURE} set:{USE_FOR_IFCAP*C} FDA(724,IENS,8)={USE_FOR_IFCAP} set:{CATEGORY_YN*C} FDA(724,IENS,10)={CATEGORY_YN} set:{DATA_ENTRY_DATETIME_DEFAULT*C} FDA(724,IENS,11)={DATA_ENTRY_DATETIME_DEFAULT} set:{SEND_TO_PCE*C} FDA(724,IENS,13)={SEND_TO_PCE} set:{ALLOW_DUPLICATES*C} FDA(724,IENS,16)={ALLOW_DUPLICATES} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(724)") set %SkipFiling=1 if $d(%FMERR(724,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(724)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.DSSUNIT724S index ^ECD nonnull "AOLD" {OLD_NUMBER} {IEN} 0]]> index ^ECD nonnull "B" {NAME} {IEN} 0]]> index ^ECD nonnull "C" {UNIT_NUMBER} {IEN} 0]]> data ^ECD {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 16 "^" 0 11 "^" 0 12 "^" 0 6 "^" 0 1 "^" 0 7 "^" 0 14 "^" 0 5 "^" 0 8 "^" 0 9 Generated class for FileMan File Number: '693.3' File Name: 'ECG INTERPRETATION' Class generated by %fm2class version 2.56 This file holds the interpretations for ECG procedures. persistent _PUBLIC 0 RowId ECG_INTERPRETATION_693_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.361743865 67178,44708.344249854 right ECG INTERPRETATION 693.3 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'CODE NUMBER' FileMan Field Number: '1' Four digit code representing ECG interpretation. Digit one is Broad Category, digit two is location, digit three is Acuteness, and digit four is Competency of interpretation. %Library.String 1 4 CODE_NUMBER Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(693.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETATION' FileMan Field Number: '.01' This field contains the various types of interpretations for EKG's and rhythms for Atrial and Ventricular Studies. of interpretation. %Library.String 1 3 INTERPRETATION FileMan Field Label: 'TYPE OF CODE' FileMan Field Number: '2' This field is used to separate Rhythm, Configuration, and Pacing codes. %Library.EnumString 5 TYPE_OF_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(693.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{INTERPRETATION}'="" FDA(693.3,"+1,",.01)={"INTERPRETATION"} set:{CODE_NUMBER}'="" FDA(693.3,"+1,",1)={"CODE_NUMBER"} set:{TYPE_OF_CODE}'="" FDA(693.3,"+1,",2)={"TYPE_OF_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(693.3)") set %SkipFiling=1 if $d(%FMERR(693.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(693.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{INTERPRETATION*C} FDA(693.3,IENS,.01)={INTERPRETATION} set:{CODE_NUMBER*C} FDA(693.3,IENS,1)={CODE_NUMBER} set:{TYPE_OF_CODE*C} FDA(693.3,IENS,2)={TYPE_OF_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(693.3)") set %SkipFiling=1 if $d(%FMERR(693.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(693.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ECGINTERPREB278S index ^MCAR nonnull 693.3 "B" {INTERPRETATION} {IEN} 0]]> index ^MCAR nonnull 693.3 "C" {CODE_NUMBER} {IEN} 0]]> data ^MCAR 693.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '691' File Name: 'ECHO' Class generated by %fm2class version 2.56 This file stores data on Echo procedures done on a patient. persistent _PUBLIC 0 RowId ECHO_691 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.436379759 67178,44708.400092683 right ECHO 691 2.56 12/04/2024 12:25:08 1 1 IEN 1 NEW_PERSON_200]]> CARDIOLOGYATTENDING VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_ATTENDING NEW_PERSON_200]]> CARDIOLOGYFELLOW VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_FELLOW NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'ANGIOGRAPHIC CARDIAC OUTPUT' FileMan Field Number: '31.1' This field computes the Angiographic Cardiac Output from the Resting Heart Rate (#5), EDV (#30), and ESV (#31). The formula used is: Heart_Rate * ( EDV - ESV ). %Library.String 1 38 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,31.1,9.4) S X=X*Y,X=$S(Y(691,31.1,2):Y(691,31.1,3),Y(691,31.1,5):Y(691,31.1,6),Y(691,31.1,7):Y(691,31.1,8),Y(691,31.1,9):X) set {ANGIOGRAPHIC_CARDIAC_OUTPUT}=X 1 ANGIOGRAPHIC_CARDIAC_OUTPUT FileMan Field Label: 'ANT. RV WALL' FileMan Field Number: '16' This allows the user to enter the dimensions of the anterior right ventricular wall. %Library.Numeric 22 ANT__RV_WALL FileMan Field Label: 'AORTIC ESTIMATED VALVE ORIFICE' FileMan Field Number: '34.9' This allows the user to enter the calculated aortic valve estimated orifice. %Library.Numeric 51 AORTIC_ESTIMATED_VALVE_ORIFICE FileMan Field Label: 'AORTIC INTEGRAL ' FileMan Field Number: '34.3' This allows the user to enter the calculated aortic valve integral. %Library.Numeric 45 AORTIC_INTEGRAL_ FileMan Field Label: 'AORTIC MAX PRESSURE GRADIENT' FileMan Field Number: '34.7' This defines the computed aortic valve maximum pressure gradient. %Library.Numeric 1 49 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,34.7,9.2) S Y=X,X=Y(691,34.7,4),X=X*Y,Y=X,X=Y(691,34.7,1),X=X*Y,Y(691,34.7,5)=X S X=5,Y(691,34.7,6)=X S X=1,X=$J(Y(691,34.7,5),Y(691,34.7,6),X) set {AORTIC_MAX_PRESSURE_GRADIENT}=X 1 AORTIC_MAX_PRESSURE_GRADIENT FileMan Field Label: 'AORTIC MAX VELOCITY' FileMan Field Number: '34.1' This allows the user to enter the calculated aortic maximum velocity. %Library.Numeric 43 AORTIC_MAX_VELOCITY FileMan Field Label: 'AORTIC MEAN PRESSURE GRADIENT' FileMan Field Number: '34.8' This allows the user to enter the aortic valve mean pressure gradient. %Library.Numeric 50 AORTIC_MEAN_PRESSURE_GRADIENT FileMan Field Label: 'AORTIC MEAN VELOCITY' FileMan Field Number: '34.2' This allows the user to enter the calculated mean velocity. %Library.Numeric 44 AORTIC_MEAN_VELOCITY FileMan Field Label: 'AORTIC ROOT' FileMan Field Number: '14' This allows the user to enter the dimensions of the aortic root. %Library.Numeric 20 AORTIC_ROOT FileMan Field Label: 'BODY SURFACE AREA' FileMan Field Number: '2' This field identifies the patient's BSA, computed from patient's height and weight. %Library.Numeric 10 BODY_SURFACE_AREA FileMan Field Label: 'CARDIOLOGY ATTENDING' FileMan Field Number: '39' This field identifies the physician who interpreted the procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 72 CARDIOLOGY_ATTENDING NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {CARDIOLOGY_ATTENDING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_ATTENDING_NAME 1 FileMan Field Label: 'CARDIOLOGY FELLOW' FileMan Field Number: '43' This field identifies one of the key members of the clinical staff assigned to follow this patient. VALIP.prosthetic.fm2cw.NEWPERSON200 76 CARDIOLOGY_FELLOW NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {CARDIOLOGY_FELLOW_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_FELLOW_NAME 1 FileMan Field Label: 'CARDIOVERSION DATE' FileMan Field Number: '45' %Library.FilemanDate 78 CARDIOVERSION_DATE FileMan Field Label: 'COMMENT' FileMan Field Number: '10' This allows the user to make specific comments on a particular field. %Library.String 16 COMMENT FileMan Field Label: 'COMPUTED MITRAL VALVE ORIFICE' FileMan Field Number: '35.65' This defines the computed mitral valve orifices. %Library.Numeric 1 59 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691,35.65,1)=$S($D(^MCAR(691,D0,8)):^(8),1:"") S X=220,X=$S($P(Y(691,35.65,1),U,13):X/$P(Y(691,35.65,1),U,13),1:"*******") S X=$J(X,0,1) set {COMPUTED_MITRAL_VALVE_ORIFICE}=X 1 COMPUTED_MITRAL_VALVE_ORIFICE FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 86 COSIGNER_VALIDATION_CODE FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 99 CREATION_DATE FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This field identifies the date and time when the echo was taken. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 92 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 93 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 97 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'DURATION ATRIAL FIB' FileMan Field Number: '42' This allows the user to enter the duration of the atrial fibrillation ECG/EKG rhythm. %Library.String 75 DURATION_ATRIAL_FIB FileMan Field Label: 'EDV' FileMan Field Number: '30' This allows the user to enter the left ventricular end diastolic volume. %Library.Numeric 36 EDV FileMan Field Label: 'EF' FileMan Field Number: '32' This defines the computed left ventricular ejection fraction. %Library.Numeric 1 39 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,32,9.3) S X=X*100,X=$S(Y(691,32,2):Y(691,32,3),Y(691,32,4):Y(691,32,5),Y(691,32,6):X) S X=$J(X,0,1) set {EF}=X 1 EF FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 87 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' This field contains the provider who enter the information into the database. VALIP.prosthetic.fm2cw.NEWPERSON200 85 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'E-SEPT.' FileMan Field Number: '20' This allows the user to enter the E-point of the mitral valve to septum dimensions. %Library.Numeric 26 ESEPT_ FileMan Field Label: 'ESTIMATED EF' FileMan Field Number: '32.1' This allows the user to enter the left ventricular ejection fraction. %Library.Numeric 40 ESTIMATED_EF FileMan Field Label: 'ESTIMATED EF DESCRIPTOR' FileMan Field Number: '32.2' This allows the user to enter the estimated ejection fraction descriptor. %Library.EnumString 41 ESTIMATED_EF_DESCRIPTOR FileMan Field Label: 'ESV' FileMan Field Number: '31' This allows the user to enter the left ventricular end systolic volume. %Library.Numeric 37 ESV FileMan Field Label: '% FAS AP. 4-CH VIEW' FileMan Field Number: '29' %Library.Numeric 1 35 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691,29,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,29,1),U,6)-$P(Y(691,29,1),U,3),X=$S($P(Y(691,29,1),U,6):X/$P(Y(691,29,1),U,6),1:"*******") S X=$J(X,0,1) set {FAS_AP__4CH_VIEW}=X 1 FAS_AP__4CH_VIEW FileMan Field Label: '% FAS MITRAL LEVEL' FileMan Field Number: '27' %Library.Numeric 1 33 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691,27,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,27,1),U,4)-$P(Y(691,27,1),U,1),X=$S($P(Y(691,27,1),U,4):X/$P(Y(691,27,1),U,4),1:"*******") S X=$J(X,0,1) set {FAS_MITRAL_LEVEL}=X 1 FAS_MITRAL_LEVEL FileMan Field Label: '% FAS PAP. MUSCLE' FileMan Field Number: '28' %Library.Numeric 1 34 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691,28,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,28,1),U,5)-$P(Y(691,28,1),U,2),X=$S($P(Y(691,28,1),U,5):X/$P(Y(691,28,1),U,5),1:"*******") S X=$J(X,0,1) set {FAS_PAP__MUSCLE}=X 1 FAS_PAP__MUSCLE FileMan Field Label: '% FRACT. SHORTENING' FileMan Field Number: '19' This field identifies the computed percent shortening fraction of the left ventricular. %Library.Numeric 1 25 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,19,9.4) S X=$J(Y(691,19,8),Y(691,19,9),X) S X=$J(X,0,0) set {FRACT__SHORTENING}=X 1 FRACT__SHORTENING FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 84 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HT IN' FileMan Field Number: '1.2' This field identifies the medical patient's height in inches. %Library.Numeric 9 HT_IN FileMan Field Label: 'ID' FileMan Field Number: '.02' Enter any site specific unique identification number for this ECHO test. No need to enter the SSN. SSN is already recorded for this ECHO. %Library.String 4 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(691,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LT. ATRIUM' FileMan Field Number: '13' This allows the user to enter the dimensions of the left atrium. %Library.Numeric 19 LT__ATRIUM FileMan Field Label: 'LT. VENT. DIASTOLE' FileMan Field Number: '17' This allows the user to enter the internal left ventricular diastolic dimensions. %Library.Numeric 23 LT__VENT__DIASTOLE FileMan Field Label: 'LT. VENT. SYSTOLE' FileMan Field Number: '18' This allows the user to enter the internal left ventricular systolic dimensions. %Library.Numeric 24 LT__VENT__SYSTOLE FileMan Field Label: 'LVOT INTEGRAL' FileMan Field Number: '34.6' This allows the user to enter the left ventricular outflow tract integral. %Library.Numeric 48 LVOT_INTEGRAL FileMan Field Label: 'LVOT MAX VELOCITY' FileMan Field Number: '34.4' This allows the user to enter the left ventricular outflow tract maximum velocity. %Library.Numeric 46 LVOT_MAX_VELOCITY FileMan Field Label: 'LVOT MEAN VELOCITY' FileMan Field Number: '34.5' This allows the user to enter the left ventricular outflow tract mean velocity. %Library.Numeric 47 LVOT_MEAN_VELOCITY FileMan Field Label: 'LV MASS' FileMan Field Number: '32.8' %Library.Numeric 1 42 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D ^MCARLV S X=$J(X,0,3) set {LV_MASS}=X 1 LV_MASS FileMan Field Label: 'LV XS AREA, AP. 4-CH DIAST.' FileMan Field Number: '26' LV CROSS-SECTIONAL AREA, APICAL 4-CHAMBER VIEW DIASTOLE %Library.Numeric 32 LV_XS_AREA_AP__4CH_DIAST_ FileMan Field Label: 'LV XS AREA, AP. 4-CH SYST.' FileMan Field Number: '23' LV CROSS-SECTIONAL AREA, APICAL 4-CHAMBER VIEW SYSTOLE %Library.Numeric 29 LV_XS_AREA_AP__4CH_SYST_ FileMan Field Label: 'LV XS AREA, MIT. DIAST.' FileMan Field Number: '24' LV CROSS-SECTIONAL AREA, MITRAL LEVEL DIASTOLE %Library.Numeric 30 LV_XS_AREA_MIT__DIAST_ FileMan Field Label: 'LV XS AREA, MIT. SYST.' FileMan Field Number: '21' LV CROSS-SECTIONAL AREA, MITRAL LEVEL %Library.Numeric 27 LV_XS_AREA_MIT__SYST_ FileMan Field Label: 'LV XS AREA, PAP. MUSC. DIAST.' FileMan Field Number: '25' LV CROSS-SECTIONAL AREA, PAPILLARY MUSCLE DIASTOLE %Library.Numeric 31 LV_XS_AREA_PAP__MUSC__DIAST_ FileMan Field Label: 'LV XS AREA, PAP. MUSC. SYST.' FileMan Field Number: '22' LV CROSS-SECTIONAL AREA, PAPILLARY MUSCLE SYSTOLE %Library.Numeric 28 LV_XS_AREA_PAP__MUSC__SYST_ FileMan Field Label: 'MARK FOR DELETATION' FileMan Field Number: '1511' %Library.EnumString 96 MARK_FOR_DELETATION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the medical patient's name. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 6 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'MITRAL EST VALVE ORIFICE' FileMan Field Number: '35.6' This defines the computed mitral valve estimated orifices. %Library.Numeric 58 MITRAL_EST_VALVE_ORIFICE FileMan Field Label: 'MITRAL INTEGRAL' FileMan Field Number: '35.2' This allows the user to enter the mitral valve calculated integral. %Library.Numeric 54 MITRAL_INTEGRAL FileMan Field Label: 'MITRAL MAX GRADIENT' FileMan Field Number: '35.3' This defines the computed mitral valve maximum gradient. %Library.Numeric 1 55 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,35.3,9.2) S Y=X,X=Y(691,35.3,4),X=X*Y,Y=X,X=Y(691,35.3,1),X=X*Y,Y(691,35.3,5)=X S X=5,Y(691,35.3,6)=X S X=1,X=$J(Y(691,35.3,5),Y(691,35.3,6),X) set {MITRAL_MAX_GRADIENT}=X 1 MITRAL_MAX_GRADIENT FileMan Field Label: 'MITRAL MAX VELOCITY' FileMan Field Number: '35' DOPPLER ESTIMATED MITRAL GRADIENT This allows the user to enter the calculated mitral valve maximum velocity. %Library.Numeric 52 MITRAL_MAX_VELOCITY FileMan Field Label: 'MITRAL MEAN GRADIENT' FileMan Field Number: '35.4' This allows the user to enter the mitral valve mean gradient. %Library.Numeric 56 MITRAL_MEAN_GRADIENT FileMan Field Label: 'MITRAL MEAN VELOCITY' FileMan Field Number: '35.1' This allows the user to enter the mitral valve mean velocity. %Library.Numeric 53 MITRAL_MEAN_VELOCITY FileMan Field Label: 'MITRAL P 1/2' FileMan Field Number: '35.5' This allows the user to enter the mitral valve P-1/2 time. %Library.Numeric 57 MITRAL_P_12 FileMan Field Label: 'ONSET DATE ATRIAL FIB' FileMan Field Number: '41' This allows the user to enter the date of the onset of the patient's atrial fibrillation ECG/EKG rhythm. %Library.FilemanDate 74 ONSET_DATE_ATRIAL_FIB FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 83 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER CONCLUSION' FileMan Field Number: '38' This allows the user to enter additional comments on the findings and diagnosis fields. %Library.String 71 OTHER_CONCLUSION FileMan Field Label: 'PA SYSTOLIC PRESSURE' FileMan Field Number: '36.5' This field identifies is the Pulmonary Artery Wedge Pressure in millimeters of Mercury. %Library.Numeric 69 PA_SYSTOLIC_PRESSURE FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC VISIT file for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 82 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'POSTERIOR WALL' FileMan Field Number: '12' This allows the user to enter the dimensions of the posterior wall. %Library.Numeric 18 POSTERIOR_WALL FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 81 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This allows the user to enter the procedure summary information. %Library.String 80 PROCEDURE_SUMMARY FileMan Field Label: 'PULMONIC INTEGRAL' FileMan Field Number: '35.9' This allows the user to enter the calculated pulmonic valve integral. %Library.Numeric 62 PULMONIC_INTEGRAL FileMan Field Label: 'PULMONIC MAX PRESSURE GRADIENT' FileMan Field Number: '36' DOPPLER ESTIMATED AORTIC GRADIENT This field identifies the computed pulmonic valve maximum pressure gradient. %Library.Numeric 1 63 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,36,9.2) S Y=X,X=Y(691,36,4),X=X*Y,Y=X,X=Y(691,36,1),X=X*Y,Y(691,36,5)=X S X=5,Y(691,36,6)=X S X=1,X=$J(Y(691,36,5),Y(691,36,6),X) set {PULMONIC_MAX_PRESSURE_GRADIENT}=X 1 PULMONIC_MAX_PRESSURE_GRADIENT FileMan Field Label: 'PULMONIC MAX VELOCITY' FileMan Field Number: '35.7' This allows the user to enter the calculated pulmonic valve maximum velocity. %Library.Numeric 60 PULMONIC_MAX_VELOCITY FileMan Field Label: 'PULMONIC MEAN GRADIENT' FileMan Field Number: '36.1' This allows the user to enter the calculated pulmonic valve mean gradient. %Library.Numeric 64 PULMONIC_MEAN_GRADIENT FileMan Field Label: 'PULMONIC MEAN VELOCITY' FileMan Field Number: '35.8' This allows the user to enter the calculated pulmonic valve mean velocity. %Library.Numeric 61 PULMONIC_MEAN_VELOCITY FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' %Library.EnumString 91 RELEASE_CODE FileMan Field Label: 'RESTING DIASTOLIC BP' FileMan Field Number: '4' This field identifies the patient's resting diastolic blood pressure. %Library.Numeric 12 RESTING_DIASTOLIC_BP FileMan Field Label: 'RESTING HEART RATE' FileMan Field Number: '5' This field identifies the patient's resting heart rate. %Library.Numeric 13 RESTING_HEART_RATE FileMan Field Label: 'RESTING SYSTOLIC BP' FileMan Field Number: '3' This field identifies the patient's resting systolic blood pressure. %Library.Numeric 11 RESTING_SYSTOLIC_BP FileMan Field Label: 'RHYTHM' FileMan Field Number: '6' This field identifies the patient's current ECG/EKG rhythm. %Library.EnumString 14 RHYTHM FileMan Field Label: 'RHYTHM 2' FileMan Field Number: '46' %Library.EnumString 79 RHYTHM_2 FileMan Field Label: 'RT VENTRICLE' FileMan Field Number: '15' This allows the user to enter the dimensions of the right ventricle. %Library.Numeric 21 RT_VENTRICLE FileMan Field Label: 'SEPTUM' FileMan Field Number: '11' This allows the user to enter the dimensions of the ventricular septum. %Library.Numeric 17 SEPTUM FileMan Field Label: 'SEX' FileMan Field Number: '1.15' This code tells the gender of the patient. %Library.String 1 8 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,1.15,9.4) S X=$P($P(Y(691,1.15,202),$C(59)_$P(Y(691,1.15,201),U,2)_":",2),$C(59),1) S D0=Y(691,1.15,80) set {SEX}=X 1 SEX FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 89 SIGNER_VALIDATION_CODE FileMan Field Label: 'STUDY PHASE' FileMan Field Number: '44' %Library.EnumString 77 STUDY_PHASE FileMan Field Label: 'STUDY QUALITY' FileMan Field Number: '7' This field identifies the technical quality of the procedure. %Library.Numeric 15 STUDY_QUALITY Relationship for Sub-File/Multiple to file name DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBDIAGNOSIS69115 children ECHO691 1 SUB_DIAGNOSIS_691_15 Relationship for Sub-File/Multiple to file name DOPPLER child VALIP.prosthetic.fm2cw.SUBDOPPLER69105 children ECHO691 1 SUB_DOPPLER_691_05 Relationship for Sub-File/Multiple to file name FINDINGS child VALIP.prosthetic.fm2cw.SUBFINDINGS69106 children ECHO691 1 SUB_FINDINGS_691_06 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69119 children ECHO691 1 SUB_ICD_DIAGNOSIS_691_19 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE69102005 children ECHO691 1 SUB_IMAGE_691_02005 Relationship for Sub-File/Multiple to file name MED(CARDIOLOGY MEDICATION) child VALIP.prosthetic.fm2cw.SUBMEDCARDIOLOGYMEDICATION69101 children ECHO691 1 SUB_MEDCARDIOLOGY_MEDICATION_691_01 Relationship for Sub-File/Multiple to file name PRE-DX child VALIP.prosthetic.fm2cw.SUBPREDX69102 children ECHO691 1 SUB_PREDX_691_02 Relationship for Sub-File/Multiple to file name REGIONAL WALL MOTION child VALIP.prosthetic.fm2cw.SUBREGIONALWALLMOTION69104 children ECHO691 1 SUB_REGIONAL_WALL_MOTION_691_04 Relationship for Sub-File/Multiple to file name RISK FACTOR child VALIP.prosthetic.fm2cw.SUBRISKFACTOR69109 children ECHO691 1 SUB_RISK_FACTOR_691_09 Relationship for Sub-File/Multiple to file name STUDY TYPE child VALIP.prosthetic.fm2cw.SUBSTUDYTYPE69148 children ECHO691 1 SUB_STUDY_TYPE_691_48 Relationship for Sub-File/Multiple to file name SYMPTOM child VALIP.prosthetic.fm2cw.SUBSYMPTOM69108 children ECHO691 1 SUB_SYMPTOM_691_08 FileMan Field Label: 'SUMMARY' FileMan Field Number: '.03' This field identifies the result of the echo procedure. %Library.EnumString 5 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 94 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 95 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.FilemanTimeStamp 98 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' %Library.Numeric 100 SUPERSEDED_NUMBER FileMan Field Label: 'TRICUSPID MEAN GRADIENT' FileMan Field Number: '36.6' This field identifies the average Tricuspid gradient. %Library.Numeric 70 TRICUSPID_MEAN_GRADIENT FileMan Field Label: 'TRICUSPID MEAN VELOCITY' FileMan Field Number: '36.3' This field quantifies the average speed of tricuspid valve flow. %Library.Numeric 66 TRICUSPID_MEAN_VELOCITY FileMan Field Label: 'TRICUS DIAS MAX PRESS GRAD' FileMan Field Number: '36.31' This field is computed %Library.Numeric 1 67 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691,36.31,9.2) S Y(691,36.31,5)=X S X=$P(Y(691,36.31,1),U,5)*$P(Y(691,36.31,1),U,5)*4,X=$S(Y(691,36.31,2):Y(691,36.31,3),Y(691,36.31,4):X) set {TRICUS_DIAS_MAX_PRESS_GRAD}=X 1 TRICUS_DIAS_MAX_PRESS_GRAD FileMan Field Label: 'TRICUS DIAS MAX VEL (m/s)' FileMan Field Number: '36.2' This allows the user to enter the calculated tricuspid valve maximum velocity. %Library.Numeric 65 TRICUS_DIAS_MAX_VEL_MS FileMan Field Label: 'TRICUS REGURG SYS MAX VEL(m/s)' FileMan Field Number: '36.4' This allows the user to enter the calculated tricuspid valve integral. %Library.Numeric 68 TRICUS_REGURG_SYS_MAX_VELMS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 101 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 90 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' Person you are signing for VALIP.prosthetic.fm2cw.NEWPERSON200 88 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '40' This allows the user to enter the medical patients location. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 73 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ECHO_691 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 FileMan Field Label: 'WT LBS' FileMan Field Number: '1.1' This field identifies the medical patient's weight in pounds. %Library.Numeric 7 WT_LBS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(691," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(691,"+1,",.01)={"DATETIME"} set:{ID}'="" FDA(691,"+1,",.02)={"ID"} set:{SUMMARY}'="" FDA(691,"+1,",.03)={"SUMMARY"} set:{MEDICAL_PATIENT}'="" FDA(691,"+1,",1)={"MEDICAL_PATIENT"} set:{WT_LBS}'="" FDA(691,"+1,",1.1)={"WT_LBS"} set:{HT_IN}'="" FDA(691,"+1,",1.2)={"HT_IN"} set:{BODY_SURFACE_AREA}'="" FDA(691,"+1,",2)={"BODY_SURFACE_AREA"} set:{RESTING_SYSTOLIC_BP}'="" FDA(691,"+1,",3)={"RESTING_SYSTOLIC_BP"} set:{RESTING_DIASTOLIC_BP}'="" FDA(691,"+1,",4)={"RESTING_DIASTOLIC_BP"} set:{RESTING_HEART_RATE}'="" FDA(691,"+1,",5)={"RESTING_HEART_RATE"} set:{RHYTHM}'="" FDA(691,"+1,",6)={"RHYTHM"} set:{STUDY_QUALITY}'="" FDA(691,"+1,",7)={"STUDY_QUALITY"} set:{SEPTUM}'="" FDA(691,"+1,",11)={"SEPTUM"} set:{POSTERIOR_WALL}'="" FDA(691,"+1,",12)={"POSTERIOR_WALL"} set:{LT__ATRIUM}'="" FDA(691,"+1,",13)={"LT__ATRIUM"} set:{AORTIC_ROOT}'="" FDA(691,"+1,",14)={"AORTIC_ROOT"} set:{RT_VENTRICLE}'="" FDA(691,"+1,",15)={"RT_VENTRICLE"} set:{ANT__RV_WALL}'="" FDA(691,"+1,",16)={"ANT__RV_WALL"} set:{LT__VENT__DIASTOLE}'="" FDA(691,"+1,",17)={"LT__VENT__DIASTOLE"} set:{LT__VENT__SYSTOLE}'="" FDA(691,"+1,",18)={"LT__VENT__SYSTOLE"} set:{ESEPT_}'="" FDA(691,"+1,",20)={"ESEPT_"} set:{LV_XS_AREA_MIT__SYST_}'="" FDA(691,"+1,",21)={"LV_XS_AREA_MIT__SYST_"} set:{LV_XS_AREA_PAP__MUSC__SYST_}'="" FDA(691,"+1,",22)={"LV_XS_AREA_PAP__MUSC__SYST_"} set:{LV_XS_AREA_AP__4CH_SYST_}'="" FDA(691,"+1,",23)={"LV_XS_AREA_AP__4CH_SYST_"} set:{LV_XS_AREA_MIT__DIAST_}'="" FDA(691,"+1,",24)={"LV_XS_AREA_MIT__DIAST_"} set:{LV_XS_AREA_PAP__MUSC__DIAST_}'="" FDA(691,"+1,",25)={"LV_XS_AREA_PAP__MUSC__DIAST_"} set:{LV_XS_AREA_AP__4CH_DIAST_}'="" FDA(691,"+1,",26)={"LV_XS_AREA_AP__4CH_DIAST_"} set:{EDV}'="" FDA(691,"+1,",30)={"EDV"} set:{ESV}'="" FDA(691,"+1,",31)={"ESV"} set:{ESTIMATED_EF}'="" FDA(691,"+1,",32.1)={"ESTIMATED_EF"} set:{ESTIMATED_EF_DESCRIPTOR}'="" FDA(691,"+1,",32.2)={"ESTIMATED_EF_DESCRIPTOR"} set:{AORTIC_MAX_VELOCITY}'="" FDA(691,"+1,",34.1)={"AORTIC_MAX_VELOCITY"} set:{AORTIC_MEAN_VELOCITY}'="" FDA(691,"+1,",34.2)={"AORTIC_MEAN_VELOCITY"} set:{AORTIC_INTEGRAL_}'="" FDA(691,"+1,",34.3)={"AORTIC_INTEGRAL_"} set:{LVOT_MAX_VELOCITY}'="" FDA(691,"+1,",34.4)={"LVOT_MAX_VELOCITY"} set:{LVOT_MEAN_VELOCITY}'="" FDA(691,"+1,",34.5)={"LVOT_MEAN_VELOCITY"} set:{LVOT_INTEGRAL}'="" FDA(691,"+1,",34.6)={"LVOT_INTEGRAL"} set:{AORTIC_MEAN_PRESSURE_GRADIENT}'="" FDA(691,"+1,",34.8)={"AORTIC_MEAN_PRESSURE_GRADIENT"} set:{AORTIC_ESTIMATED_VALVE_ORIFICE}'="" FDA(691,"+1,",34.9)={"AORTIC_ESTIMATED_VALVE_ORIFICE"} set:{MITRAL_MAX_VELOCITY}'="" FDA(691,"+1,",35)={"MITRAL_MAX_VELOCITY"} set:{MITRAL_MEAN_VELOCITY}'="" FDA(691,"+1,",35.1)={"MITRAL_MEAN_VELOCITY"} set:{MITRAL_INTEGRAL}'="" FDA(691,"+1,",35.2)={"MITRAL_INTEGRAL"} set:{MITRAL_MEAN_GRADIENT}'="" FDA(691,"+1,",35.4)={"MITRAL_MEAN_GRADIENT"} set:{MITRAL_P_12}'="" FDA(691,"+1,",35.5)={"MITRAL_P_12"} set:{MITRAL_EST_VALVE_ORIFICE}'="" FDA(691,"+1,",35.6)={"MITRAL_EST_VALVE_ORIFICE"} set:{PULMONIC_MAX_VELOCITY}'="" FDA(691,"+1,",35.7)={"PULMONIC_MAX_VELOCITY"} set:{PULMONIC_MEAN_VELOCITY}'="" FDA(691,"+1,",35.8)={"PULMONIC_MEAN_VELOCITY"} set:{PULMONIC_INTEGRAL}'="" FDA(691,"+1,",35.9)={"PULMONIC_INTEGRAL"} set:{PULMONIC_MEAN_GRADIENT}'="" FDA(691,"+1,",36.1)={"PULMONIC_MEAN_GRADIENT"} set:{TRICUS_DIAS_MAX_VEL_MS}'="" FDA(691,"+1,",36.2)={"TRICUS_DIAS_MAX_VEL_MS"} set:{TRICUSPID_MEAN_VELOCITY}'="" FDA(691,"+1,",36.3)={"TRICUSPID_MEAN_VELOCITY"} set:{TRICUS_REGURG_SYS_MAX_VELMS}'="" FDA(691,"+1,",36.4)={"TRICUS_REGURG_SYS_MAX_VELMS"} set:{PA_SYSTOLIC_PRESSURE}'="" FDA(691,"+1,",36.5)={"PA_SYSTOLIC_PRESSURE"} set:{TRICUSPID_MEAN_GRADIENT}'="" FDA(691,"+1,",36.6)={"TRICUSPID_MEAN_GRADIENT"} set:{CARDIOLOGY_ATTENDING}'="" FDA(691,"+1,",39)={"CARDIOLOGY_ATTENDING"} set:{WARDCLINIC}'="" FDA(691,"+1,",40)={"WARDCLINIC"} set:{ONSET_DATE_ATRIAL_FIB}'="" FDA(691,"+1,",41)={"ONSET_DATE_ATRIAL_FIB"} set:{DURATION_ATRIAL_FIB}'="" FDA(691,"+1,",42)={"DURATION_ATRIAL_FIB"} set:{CARDIOLOGY_FELLOW}'="" FDA(691,"+1,",43)={"CARDIOLOGY_FELLOW"} set:{STUDY_PHASE}'="" FDA(691,"+1,",44)={"STUDY_PHASE"} set:{CARDIOVERSION_DATE}'="" FDA(691,"+1,",45)={"CARDIOVERSION_DATE"} set:{RHYTHM_2}'="" FDA(691,"+1,",46)={"RHYTHM_2"} set:{PROCEDURE_SUMMARY}'="" FDA(691,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(691,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(691,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(691,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(691,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(691,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(691,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(691,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(691,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(691,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(691,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(691,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(691,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(691,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(691,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(691,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETATION}'="" FDA(691,"+1,",1511)={"MARK_FOR_DELETATION"} set:{DELETER_DUZ}'="" FDA(691,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(691,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(691,"+1,",1514)={"CREATION_DATE"} set:{SUPERSEDED_NUMBER}'="" FDA(691,"+1,",1515)={"SUPERSEDED_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(691)") set %SkipFiling=1 if $d(%FMERR(691,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENT}'="" { set D0={RowId} for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) } do WP^DIE(691,{RowId},10,,"wp","%FMERR(691)") if $d(%FMERR(691,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_CONCLUSION}'="" { set D0={RowId} for i=1:1:$l({OTHER_CONCLUSION},$c(13,10)) { set wp(i)=$p({OTHER_CONCLUSION},$c(13,10),i) } do WP^DIE(691,{RowId},38,,"wp","%FMERR(691)") if $d(%FMERR(691,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(691,IENS,.01)={DATETIME} set:{ID*C} FDA(691,IENS,.02)={ID} set:{SUMMARY*C} FDA(691,IENS,.03)={SUMMARY} set:{MEDICAL_PATIENT*C} FDA(691,IENS,1)={MEDICAL_PATIENT} set:{WT_LBS*C} FDA(691,IENS,1.1)={WT_LBS} set:{HT_IN*C} FDA(691,IENS,1.2)={HT_IN} set:{BODY_SURFACE_AREA*C} FDA(691,IENS,2)={BODY_SURFACE_AREA} set:{RESTING_SYSTOLIC_BP*C} FDA(691,IENS,3)={RESTING_SYSTOLIC_BP} set:{RESTING_DIASTOLIC_BP*C} FDA(691,IENS,4)={RESTING_DIASTOLIC_BP} set:{RESTING_HEART_RATE*C} FDA(691,IENS,5)={RESTING_HEART_RATE} set:{RHYTHM*C} FDA(691,IENS,6)={RHYTHM} set:{STUDY_QUALITY*C} FDA(691,IENS,7)={STUDY_QUALITY} set:{SEPTUM*C} FDA(691,IENS,11)={SEPTUM} set:{POSTERIOR_WALL*C} FDA(691,IENS,12)={POSTERIOR_WALL} set:{LT__ATRIUM*C} FDA(691,IENS,13)={LT__ATRIUM} set:{AORTIC_ROOT*C} FDA(691,IENS,14)={AORTIC_ROOT} set:{RT_VENTRICLE*C} FDA(691,IENS,15)={RT_VENTRICLE} set:{ANT__RV_WALL*C} FDA(691,IENS,16)={ANT__RV_WALL} set:{LT__VENT__DIASTOLE*C} FDA(691,IENS,17)={LT__VENT__DIASTOLE} set:{LT__VENT__SYSTOLE*C} FDA(691,IENS,18)={LT__VENT__SYSTOLE} set:{ESEPT_*C} FDA(691,IENS,20)={ESEPT_} set:{LV_XS_AREA_MIT__SYST_*C} FDA(691,IENS,21)={LV_XS_AREA_MIT__SYST_} set:{LV_XS_AREA_PAP__MUSC__SYST_*C} FDA(691,IENS,22)={LV_XS_AREA_PAP__MUSC__SYST_} set:{LV_XS_AREA_AP__4CH_SYST_*C} FDA(691,IENS,23)={LV_XS_AREA_AP__4CH_SYST_} set:{LV_XS_AREA_MIT__DIAST_*C} FDA(691,IENS,24)={LV_XS_AREA_MIT__DIAST_} set:{LV_XS_AREA_PAP__MUSC__DIAST_*C} FDA(691,IENS,25)={LV_XS_AREA_PAP__MUSC__DIAST_} set:{LV_XS_AREA_AP__4CH_DIAST_*C} FDA(691,IENS,26)={LV_XS_AREA_AP__4CH_DIAST_} set:{EDV*C} FDA(691,IENS,30)={EDV} set:{ESV*C} FDA(691,IENS,31)={ESV} set:{ESTIMATED_EF*C} FDA(691,IENS,32.1)={ESTIMATED_EF} set:{ESTIMATED_EF_DESCRIPTOR*C} FDA(691,IENS,32.2)={ESTIMATED_EF_DESCRIPTOR} set:{AORTIC_MAX_VELOCITY*C} FDA(691,IENS,34.1)={AORTIC_MAX_VELOCITY} set:{AORTIC_MEAN_VELOCITY*C} FDA(691,IENS,34.2)={AORTIC_MEAN_VELOCITY} set:{AORTIC_INTEGRAL_*C} FDA(691,IENS,34.3)={AORTIC_INTEGRAL_} set:{LVOT_MAX_VELOCITY*C} FDA(691,IENS,34.4)={LVOT_MAX_VELOCITY} set:{LVOT_MEAN_VELOCITY*C} FDA(691,IENS,34.5)={LVOT_MEAN_VELOCITY} set:{LVOT_INTEGRAL*C} FDA(691,IENS,34.6)={LVOT_INTEGRAL} set:{AORTIC_MEAN_PRESSURE_GRADIENT*C} FDA(691,IENS,34.8)={AORTIC_MEAN_PRESSURE_GRADIENT} set:{AORTIC_ESTIMATED_VALVE_ORIFICE*C} FDA(691,IENS,34.9)={AORTIC_ESTIMATED_VALVE_ORIFICE} set:{MITRAL_MAX_VELOCITY*C} FDA(691,IENS,35)={MITRAL_MAX_VELOCITY} set:{MITRAL_MEAN_VELOCITY*C} FDA(691,IENS,35.1)={MITRAL_MEAN_VELOCITY} set:{MITRAL_INTEGRAL*C} FDA(691,IENS,35.2)={MITRAL_INTEGRAL} set:{MITRAL_MEAN_GRADIENT*C} FDA(691,IENS,35.4)={MITRAL_MEAN_GRADIENT} set:{MITRAL_P_12*C} FDA(691,IENS,35.5)={MITRAL_P_12} set:{MITRAL_EST_VALVE_ORIFICE*C} FDA(691,IENS,35.6)={MITRAL_EST_VALVE_ORIFICE} set:{PULMONIC_MAX_VELOCITY*C} FDA(691,IENS,35.7)={PULMONIC_MAX_VELOCITY} set:{PULMONIC_MEAN_VELOCITY*C} FDA(691,IENS,35.8)={PULMONIC_MEAN_VELOCITY} set:{PULMONIC_INTEGRAL*C} FDA(691,IENS,35.9)={PULMONIC_INTEGRAL} set:{PULMONIC_MEAN_GRADIENT*C} FDA(691,IENS,36.1)={PULMONIC_MEAN_GRADIENT} set:{TRICUS_DIAS_MAX_VEL_MS*C} FDA(691,IENS,36.2)={TRICUS_DIAS_MAX_VEL_MS} set:{TRICUSPID_MEAN_VELOCITY*C} FDA(691,IENS,36.3)={TRICUSPID_MEAN_VELOCITY} set:{TRICUS_REGURG_SYS_MAX_VELMS*C} FDA(691,IENS,36.4)={TRICUS_REGURG_SYS_MAX_VELMS} set:{PA_SYSTOLIC_PRESSURE*C} FDA(691,IENS,36.5)={PA_SYSTOLIC_PRESSURE} set:{TRICUSPID_MEAN_GRADIENT*C} FDA(691,IENS,36.6)={TRICUSPID_MEAN_GRADIENT} set:{CARDIOLOGY_ATTENDING*C} FDA(691,IENS,39)={CARDIOLOGY_ATTENDING} set:{WARDCLINIC*C} FDA(691,IENS,40)={WARDCLINIC} set:{ONSET_DATE_ATRIAL_FIB*C} FDA(691,IENS,41)={ONSET_DATE_ATRIAL_FIB} set:{DURATION_ATRIAL_FIB*C} FDA(691,IENS,42)={DURATION_ATRIAL_FIB} set:{CARDIOLOGY_FELLOW*C} FDA(691,IENS,43)={CARDIOLOGY_FELLOW} set:{STUDY_PHASE*C} FDA(691,IENS,44)={STUDY_PHASE} set:{CARDIOVERSION_DATE*C} FDA(691,IENS,45)={CARDIOVERSION_DATE} set:{RHYTHM_2*C} FDA(691,IENS,46)={RHYTHM_2} set:{PROCEDURE_SUMMARY*C} FDA(691,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(691,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(691,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(691,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(691,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(691,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(691,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(691,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(691,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(691,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(691,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(691,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(691,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(691,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(691,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(691,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETATION*C} FDA(691,IENS,1511)={MARK_FOR_DELETATION} set:{DELETER_DUZ*C} FDA(691,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(691,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(691,IENS,1514)={CREATION_DATE} set:{SUPERSEDED_NUMBER*C} FDA(691,IENS,1515)={SUPERSEDED_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691)") set %SkipFiling=1 if $d(%FMERR(691,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENT*C} { set D0={RowId} kill wp if {COMMENT}'="" { set wproot="wp" for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691,{RowId},10,,wproot,"%FMERR(691)") if $d(%FMERR(691,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_CONCLUSION*C} { set D0={RowId} kill wp if {OTHER_CONCLUSION}'="" { set wproot="wp" for i=1:1:$l({OTHER_CONCLUSION},$c(13,10)) { set wp(i)=$p({OTHER_CONCLUSION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691,{RowId},38,,wproot,"%FMERR(691)") if $d(%FMERR(691,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic.f7939.ECHO691S index ^MCAR nonnull 691 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 691 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 691 "C" {MEDICAL_PATIENT} {IEN} 0]]> data ^MCAR 691 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 4 6 "^" 8 8 "^" 8 3 "^" 8 1 "^" 8 7 "^" 8 2 "^" 4 4 "^" 13 3 "^" 11 1 "^" 15 1 "^" 11 7 3 new data,i,node set {COMMENT}="" merge data=^MCAR(691,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENT}={COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "ES" 2 "^" "ES" 15 "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" 11 4 "^" 5 10 "^" "ES" 3 "^" "ES" 1 "^" 4 9 "^" 13 4 "^" 13 5 "^" 5 11 "^" "OR" 2 "^" 13 2 "^" .1 1 "^" 4 3 "^" 4 7 "^" 4 8 "^" 8 6 "^" 8 4 "^" 8 5 "^" 5 6 "^" 5 3 "^" 5 4 "^" 5 1 "^" 5 5 "^" 5 2 "^" "ES" 12 "^" 0 2 "^" 8 14 "^" 8 11 "^" 8 9 "^" 8 12 "^" 8 10 "^" 8 13 "^" 11 3 "^" "OR" 1 10 new data,i,node set {OTHER_CONCLUSION}="" merge data=^MCAR(691,{S2},10) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_CONCLUSION}={OTHER_CONCLUSION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 12 9 "^" "PCC" 1 "^" 4 2 "^" "PROV" 1 "^" .2 2 "^" 12 3 "^" 12 1 "^" 12 4 "^" 12 2 "^" "ES" 7 "^" 0 5 "^" 0 6 "^" 0 4 "^" 0 7 "^" 11 8 "^" 4 5 "^" 4 1 "^" "ES" 5 "^" 11 6 "^" 0 8 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 "^" 12 8 "^" 12 6 "^" 12 5 "^" 12 7 "^" "ES" 6 "^" "ES" 4 "^" 11 2 "^" 13 1 index {RELEASE_CODE}'="" 1 ^MCAR conditional 691 "ES" $$TRUNCATE({RELEASE_CODE},30)) {IEN} 0]]> Generated class for FileMan File Number: '691.5' File Name: 'ELECTROCARDIOGRAM (EKG)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId ELECTROCARDIOGRAM_EKG_691_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.413011401 67178,44708.493512384 right ELECTROCARDIOGRAM (EKG) 691.5 2.56 12/04/2024 12:25:08 1 1 IEN 1 NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO NEW_PERSON_200]]> INTERPRETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INTERPRETED_BY MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'AUTO-INSTRUMENT DIAGNOSIS' FileMan Field Number: '20' This field contains the interpretation of the procedure generated by the instrument(EKG monitor). %Library.String 25 AUTOINSTRUMENT_DIAGNOSIS FileMan Field Label: 'AUTOMATED INSTRUMENT DATA ?' FileMan Field Number: '21' This field stores the last date that the ECG was successfully transferred into DHCP system through the automated interface %Library.FilemanTimeStamp 26 AUTOMATED_INSTRUMENT_DATA_ FileMan Field Label: 'COMMENT' FileMan Field Number: '17' This allows the user to make specific comments regarding the ECG/EKG. %Library.String 23 COMMENT FileMan Field Label: 'COMPARISON STATEMENT' FileMan Field Number: '13' This allows the user to enter the ECG/EKG comparison statement. %Library.String 20 COMPARISON_STATEMENT FileMan Field Label: 'CONFIRMATION STATUS' FileMan Field Number: '11' This allows the user to enter the ECG/EKG confirmation status. %Library.EnumString 18 CONFIRMATION_STATUS FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 34 COSIGNER_VALIDATION_CODE FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 47 CREATION_DATE FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This field identifies the specific EKG procedure. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 40 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 41 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 45 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'DIASTOLIC BP' FileMan Field Number: '15' This allows the user to enter the diastolic blood pressure. %Library.Numeric 21 DIASTOLIC_BP FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 35 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 33 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 32 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HEIGHT (INCHES)' FileMan Field Number: '.08' The height of the patient in inches at the time of the procedure. %Library.Numeric 7 HEIGHT_INCHES FileMan Field Label: 'ID' FileMan Field Number: '.02' This field identifies the patient's identification number assigned by the medical facility. In most cases it is the person's social security number. %Library.String 4 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(691.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETED BY' FileMan Field Number: '12' This allows the user to enter the interpreting physician. VALIP.prosthetic.fm2cw.NEWPERSON200 19 INTERPRETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {INTERPRETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INTERPRETED_BY_NAME 1 FileMan Field Label: 'MARKED FOR DELETION' FileMan Field Number: '899' %Library.EnumString 29 MARKED_FOR_DELETION FileMan Field Label: 'MARK FOR DELETION' FileMan Field Number: '1511' %Library.EnumString 44 MARK_FOR_DELETION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the patient's last name followed by a comma, followed by a space(optional), followed by the first name, followed by a space, followed by the middle initial. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 8 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 31 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 30 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 28 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'. %Library.String 27 PROCEDURE_SUMMARY FileMan Field Label: 'PR INTERVAL' FileMan Field Number: '4' This allows the user to enter ECG/EKG PR interval. %Library.Numeric 11 PR_INTERVAL FileMan Field Label: 'P AXIS' FileMan Field Number: '8' This allows the user to enter the P axis. %Library.Numeric 15 P_AXIS FileMan Field Label: 'QRS DURATION' FileMan Field Number: '5' This allows the user to enter the ECG/EKG QRS duration. %Library.Numeric 12 QRS_DURATION FileMan Field Label: 'QT' FileMan Field Number: '6' This allows the user to enter the QT interval. %Library.Numeric 13 QT FileMan Field Label: 'QTC' FileMan Field Number: '7' This allows the user to enter the QTC interval. %Library.Numeric 14 QTC FileMan Field Label: 'RELEASE STATUS' FileMan Field Number: '1506' %Library.EnumString 39 RELEASE_STATUS FileMan Field Label: 'R AXIS' FileMan Field Number: '9' This allows the user to enter the R axis. %Library.Numeric 16 R_AXIS FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 37 SIGNER_VALIDATION_CODE Relationship for Sub-File/Multiple to file name HEART MED child VALIP.prosthetic.fm2cw.SUBHEARTMED69153 children ELECTROCARDIOGRAMEKG6915 1 SUB_HEART_MED_691_53 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69158 children ELECTROCARDIOGRAMEKG6915 1 SUB_ICD_DIAGNOSIS_691_58 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE69152005 children ELECTROCARDIOGRAMEKG6915 1 SUB_IMAGE_691_52005 Relationship for Sub-File/Multiple to file name INTERPRETATION CODE (CONFIG) child VALIP.prosthetic.fm2cw.SUBINTERPRETATIONCODECONFIG69155 children ELECTROCARDIOGRAMEKG6915 1 SUB_INTERPRETATION_CODE_CONFIG_691_55 Relationship for Sub-File/Multiple to file name INTERPRETATION CODE (PACING) child VALIP.prosthetic.fm2cw.SUBINTERPRETATIONCODEPACING69156 children ELECTROCARDIOGRAMEKG6915 1 SUB_INTERPRETATION_CODE_PACING_691_56 Relationship for Sub-File/Multiple to file name INTERPRETATION CODE (RHYTHM) child VALIP.prosthetic.fm2cw.SUBINTERPRETATIONCODERHYTHM69154 children ELECTROCARDIOGRAMEKG6915 1 SUB_INTERPRETATION_CODE_RHYTHM_691_54 Relationship for Sub-File/Multiple to file name RISK FACTOR child VALIP.prosthetic.fm2cw.SUBRISKFACTOR69152 children ELECTROCARDIOGRAMEKG6915 1 SUB_RISK_FACTOR_691_52 Relationship for Sub-File/Multiple to file name SYMPTOM child VALIP.prosthetic.fm2cw.SUBSYMPTOM69151 children ELECTROCARDIOGRAMEKG6915 1 SUB_SYMPTOM_691_51 FileMan Field Label: 'SUMMARY' FileMan Field Number: '.03' This field contains the gross evaluation of the results of this procedure. %Library.EnumString 5 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 42 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 43 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.String 46 SUPERSEDED_DATE FileMan Field Label: 'SYSTOLIC BP' FileMan Field Number: '16' This allows the user to enter the systolic blood pressure. %Library.Numeric 22 SYSTOLIC_BP FileMan Field Label: 'TYPE OF EKG' FileMan Field Number: '2' This allows the user to enter the type of ECG/EKG. %Library.EnumString 9 TYPE_OF_EKG FileMan Field Label: 'T AXIS' FileMan Field Number: '10' This allows the user to enter the T axis. %Library.Numeric 17 T_AXIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 48 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENT. RATE' FileMan Field Number: '3' This allows the user to enter the ventricular rate. %Library.Numeric 10 VENT__RATE FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 38 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 36 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '18' This field identifies the in-house patient address. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 24 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROCARDIOGRAM_EKG_691_5 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 FileMan Field Label: 'WEIGHT (LBS)' FileMan Field Number: '.07' The weight of the patient at the time of the procedure is stored here. %Library.Numeric 6 WEIGHT_LBS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(691.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(691.5,"+1,",.01)={"DATETIME"} set:{ID}'="" FDA(691.5,"+1,",.02)={"ID"} set:{SUMMARY}'="" FDA(691.5,"+1,",.03)={"SUMMARY"} set:{WEIGHT_LBS}'="" FDA(691.5,"+1,",.07)={"WEIGHT_LBS"} set:{HEIGHT_INCHES}'="" FDA(691.5,"+1,",.08)={"HEIGHT_INCHES"} set:{MEDICAL_PATIENT}'="" FDA(691.5,"+1,",1)={"MEDICAL_PATIENT"} set:{TYPE_OF_EKG}'="" FDA(691.5,"+1,",2)={"TYPE_OF_EKG"} set:{VENT__RATE}'="" FDA(691.5,"+1,",3)={"VENT__RATE"} set:{PR_INTERVAL}'="" FDA(691.5,"+1,",4)={"PR_INTERVAL"} set:{QRS_DURATION}'="" FDA(691.5,"+1,",5)={"QRS_DURATION"} set:{QT}'="" FDA(691.5,"+1,",6)={"QT"} set:{QTC}'="" FDA(691.5,"+1,",7)={"QTC"} set:{P_AXIS}'="" FDA(691.5,"+1,",8)={"P_AXIS"} set:{R_AXIS}'="" FDA(691.5,"+1,",9)={"R_AXIS"} set:{T_AXIS}'="" FDA(691.5,"+1,",10)={"T_AXIS"} set:{CONFIRMATION_STATUS}'="" FDA(691.5,"+1,",11)={"CONFIRMATION_STATUS"} set:{INTERPRETED_BY}'="" FDA(691.5,"+1,",12)={"INTERPRETED_BY"} set:{COMPARISON_STATEMENT}'="" FDA(691.5,"+1,",13)={"COMPARISON_STATEMENT"} set:{DIASTOLIC_BP}'="" FDA(691.5,"+1,",15)={"DIASTOLIC_BP"} set:{SYSTOLIC_BP}'="" FDA(691.5,"+1,",16)={"SYSTOLIC_BP"} set:{WARDCLINIC}'="" FDA(691.5,"+1,",18)={"WARDCLINIC"} set:{AUTOMATED_INSTRUMENT_DATA_}'="" FDA(691.5,"+1,",21)={"AUTOMATED_INSTRUMENT_DATA_"} set:{PROCEDURE_SUMMARY}'="" FDA(691.5,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(691.5,"+1,",701)={"PRIMARY_PROVIDER"} set:{MARKED_FOR_DELETION}'="" FDA(691.5,"+1,",899)={"MARKED_FOR_DELETION"} set:{PCC_POINTER}'="" FDA(691.5,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(691.5,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(691.5,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(691.5,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(691.5,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(691.5,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(691.5,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(691.5,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(691.5,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_STATUS}'="" FDA(691.5,"+1,",1506)={"RELEASE_STATUS"} set:{DATE_OF_RELEASED}'="" FDA(691.5,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(691.5,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(691.5,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(691.5,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETION}'="" FDA(691.5,"+1,",1511)={"MARK_FOR_DELETION"} set:{DELETER_DUZ}'="" FDA(691.5,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(691.5,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(691.5,"+1,",1514)={"CREATION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(691.5)") set %SkipFiling=1 if $d(%FMERR(691.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENT}'="" { set D0={RowId} for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) } do WP^DIE(691.5,{RowId},17,,"wp","%FMERR(691.5)") if $d(%FMERR(691.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {AUTOINSTRUMENT_DIAGNOSIS}'="" { set D0={RowId} for i=1:1:$l({AUTOINSTRUMENT_DIAGNOSIS},$c(13,10)) { set wp(i)=$p({AUTOINSTRUMENT_DIAGNOSIS},$c(13,10),i) } do WP^DIE(691.5,{RowId},20,,"wp","%FMERR(691.5)") if $d(%FMERR(691.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(691.5,IENS,.01)={DATETIME} set:{ID*C} FDA(691.5,IENS,.02)={ID} set:{SUMMARY*C} FDA(691.5,IENS,.03)={SUMMARY} set:{WEIGHT_LBS*C} FDA(691.5,IENS,.07)={WEIGHT_LBS} set:{HEIGHT_INCHES*C} FDA(691.5,IENS,.08)={HEIGHT_INCHES} set:{MEDICAL_PATIENT*C} FDA(691.5,IENS,1)={MEDICAL_PATIENT} set:{TYPE_OF_EKG*C} FDA(691.5,IENS,2)={TYPE_OF_EKG} set:{VENT__RATE*C} FDA(691.5,IENS,3)={VENT__RATE} set:{PR_INTERVAL*C} FDA(691.5,IENS,4)={PR_INTERVAL} set:{QRS_DURATION*C} FDA(691.5,IENS,5)={QRS_DURATION} set:{QT*C} FDA(691.5,IENS,6)={QT} set:{QTC*C} FDA(691.5,IENS,7)={QTC} set:{P_AXIS*C} FDA(691.5,IENS,8)={P_AXIS} set:{R_AXIS*C} FDA(691.5,IENS,9)={R_AXIS} set:{T_AXIS*C} FDA(691.5,IENS,10)={T_AXIS} set:{CONFIRMATION_STATUS*C} FDA(691.5,IENS,11)={CONFIRMATION_STATUS} set:{INTERPRETED_BY*C} FDA(691.5,IENS,12)={INTERPRETED_BY} set:{COMPARISON_STATEMENT*C} FDA(691.5,IENS,13)={COMPARISON_STATEMENT} set:{DIASTOLIC_BP*C} FDA(691.5,IENS,15)={DIASTOLIC_BP} set:{SYSTOLIC_BP*C} FDA(691.5,IENS,16)={SYSTOLIC_BP} set:{WARDCLINIC*C} FDA(691.5,IENS,18)={WARDCLINIC} set:{AUTOMATED_INSTRUMENT_DATA_*C} FDA(691.5,IENS,21)={AUTOMATED_INSTRUMENT_DATA_} set:{PROCEDURE_SUMMARY*C} FDA(691.5,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(691.5,IENS,701)={PRIMARY_PROVIDER} set:{MARKED_FOR_DELETION*C} FDA(691.5,IENS,899)={MARKED_FOR_DELETION} set:{PCC_POINTER*C} FDA(691.5,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(691.5,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(691.5,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(691.5,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(691.5,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(691.5,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(691.5,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(691.5,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(691.5,IENS,1505)={VERIFIER_DATE} set:{RELEASE_STATUS*C} FDA(691.5,IENS,1506)={RELEASE_STATUS} set:{DATE_OF_RELEASED*C} FDA(691.5,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(691.5,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(691.5,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(691.5,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETION*C} FDA(691.5,IENS,1511)={MARK_FOR_DELETION} set:{DELETER_DUZ*C} FDA(691.5,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(691.5,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(691.5,IENS,1514)={CREATION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.5)") set %SkipFiling=1 if $d(%FMERR(691.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENT*C} { set D0={RowId} kill wp if {COMMENT}'="" { set wproot="wp" for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.5,{RowId},17,,wproot,"%FMERR(691.5)") if $d(%FMERR(691.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {AUTOINSTRUMENT_DIAGNOSIS*C} { set D0={RowId} kill wp if {AUTOINSTRUMENT_DIAGNOSIS}'="" { set wproot="wp" for i=1:1:$l({AUTOINSTRUMENT_DIAGNOSIS},$c(13,10)) { set wp(i)=$p({AUTOINSTRUMENT_DIAGNOSIS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.5,{RowId},20,,wproot,"%FMERR(691.5)") if $d(%FMERR(691.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ELECTROCARDIB83S index ^MCAR nonnull 691.5 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 691.5 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 691.5 "C" {MEDICAL_PATIENT} {IEN} 0]]> data ^MCAR 691.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 9 new data,i,node set {AUTOINSTRUMENT_DIAGNOSIS}="" merge data=^MCAR(691.5,{S2},9) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {AUTOINSTRUMENT_DIAGNOSIS}={AUTOINSTRUMENT_DIAGNOSIS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "A" 1 7 new data,i,node set {COMMENT}="" merge data=^MCAR(691.5,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENT}={COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 1 1 "^" 0 12 "^" "ES" 2 "^" "ES" 15 "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" 4 1 "^" "ES" 3 "^" "ES" 1 "^" "OR" 2 "^" 4 4 "^" .1 1 "^" 0 13 "^" "MFD" 1 "^" "ES" 12 "^" 0 2 "^" "OR" 1 "^" "PCC" 1 "^" "PROV" 1 "^" .2 2 "^" 0 5 "^" 0 9 "^" 0 6 "^" 0 7 "^" 0 8 "^" "ES" 7 "^" 0 10 "^" "ES" 5 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" 4 2 "^" 0 3 "^" 0 11 "^" 0 4 "^" "ES" 6 "^" "ES" 4 "^" 8 1 "^" 4 3 index {RELEASE_STATUS}'="" 1 ^MCAR conditional 691.5 "ES" $$TRUNCATE({RELEASE_STATUS},30)) {IEN} 0]]> Generated class for FileMan File Number: '138' File Name: 'ELECTROGROUND POSITIONS' Class generated by %fm2class version 2.56 This file contains the various body sites to which the electroground may be applied. persistent _PUBLIC 0 RowId ELECTROGROUND_POSITIONS_138 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.387969704 67178,44708.558082186 right ELECTROGROUND POSITIONS 138 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the name of the electroground position. %Library.String 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(138,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to inactivate this entry and to prevent its selection by Surgery users. %Library.EnumString 5 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Electroground Position This is the name of the Electroground Position. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(138," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(138,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(138,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(138,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(138)") set %SkipFiling=1 if $d(%FMERR(138,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(138)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(138,IENS,.01)={NAME} set:{CODE*C} FDA(138,IENS,1)={CODE} set:{INACTIVE*C} FDA(138,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(138)") set %SkipFiling=1 if $d(%FMERR(138,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(138)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ELECTROGROU9366S index ^SRO nonnull 138 "B" {NAME} {IEN} 0]]> index ^SRO nonnull 138 "C" {CODE} {IEN} 0]]> data ^SRO 138 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '691.8' File Name: 'ELECTROPHYSIOLOGY (EP)' Class generated by %fm2class version 2.56 Stores (along with ATRIAL STUDY and VENTRICULAR STUDY files) data on Electrophysiologies done on a patient. persistent _PUBLIC 0 RowId ELECTROPHYSIOLOGY_EP_691_8 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.442899582 67178,44708.61504248 right ELECTROPHYSIOLOGY (EP) 691.8 2.56 12/04/2024 12:25:08 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> CARDIACDX VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_CARDIAC_DX NEW_PERSON_200]]> CARDIOLOGYFELLOW VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_FELLOW NEW_PERSON_200]]> CARDIOLOGYFELLOW0 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_FELLOW0 NEW_PERSON_200]]> CARDIOLOGYFELLOW2ND VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_FELLOW2ND NEW_PERSON_200]]> CARDIOLOGYSTAFF VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_STAFF NEW_PERSON_200]]> CARDIOLOGYSTAFF0 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_STAFF0 NEW_PERSON_200]]> CARDIOLOGYSTAFF2ND VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CARDIOLOGY_STAFF2ND NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER NEW_PERSON_200]]> VERFIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERFIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'CARDIAC DX' FileMan Field Number: '6' This field identifies a cardiac diagnosis field. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 9 CARDIAC_DX DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {CARDIAC_DX_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIAC_DX_DIAGNOSIS 1 FileMan Field Label: 'CARDIOLOGY FELLOW' FileMan Field Number: '17' This field identifies the participating clinical fellow. VALIP.prosthetic.fm2cw.NEWPERSON200 16 CARDIOLOGY_FELLOW FileMan Field Label: 'CARDIOLOGY FELLOW' FileMan Field Number: '25' VALIP.prosthetic.fm2cw.NEWPERSON200 21 CARDIOLOGY_FELLOW0 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {CARDIOLOGY_FELLOW0_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_FELLOW0_NAME 1 FileMan Field Label: 'CARDIOLOGY FELLOW-2ND' FileMan Field Number: '20' This field identifies the secondary clinical fellow. VALIP.prosthetic.fm2cw.NEWPERSON200 19 CARDIOLOGY_FELLOW2ND NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {CARDIOLOGY_FELLOW2ND_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_FELLOW2ND_NAME 1 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {CARDIOLOGY_FELLOW_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_FELLOW_NAME 1 FileMan Field Label: 'CARDIOLOGY STAFF' FileMan Field Number: '16' This field identifies the participating clinical staff. VALIP.prosthetic.fm2cw.NEWPERSON200 15 CARDIOLOGY_STAFF FileMan Field Label: 'CARDIOLOGY STAFF' FileMan Field Number: '24' VALIP.prosthetic.fm2cw.NEWPERSON200 20 CARDIOLOGY_STAFF0 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {CARDIOLOGY_STAFF0_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_STAFF0_NAME 1 FileMan Field Label: 'CARDIOLOGY STAFF-2ND' FileMan Field Number: '19' This field identifies the secondary participating staff member. VALIP.prosthetic.fm2cw.NEWPERSON200 18 CARDIOLOGY_STAFF2ND NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {CARDIOLOGY_STAFF2ND_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_STAFF2ND_NAME 1 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {CARDIOLOGY_STAFF_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CARDIOLOGY_STAFF_NAME 1 FileMan Field Label: 'COMMENT' FileMan Field Number: '14' This field identifies a word processing comment field. %Library.String 14 COMMENT FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 28 COSIGNER_VALIDATION_CODE FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 41 CREATION_DATE FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This field identifies the date and time that the procedure was entered into the database. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 34 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 35 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 39 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'EJECTION FRACTION' FileMan Field Number: '8' This field quantifies the cardiac efficiency. %Library.Numeric 11 EJECTION_FRACTION FileMan Field Label: 'EJECTION FRACTION METHOD' FileMan Field Number: '9' This field documents the methodology used to determine the ejection fraction. %Library.EnumString 12 EJECTION_FRACTION_METHOD FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 29 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 27 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 26 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HOSPITAL OF STUDY' FileMan Field Number: '3' This field defines the facility performing this procedure. %Library.String 7 HOSPITAL_OF_STUDY FileMan Field Label: 'HX' FileMan Field Number: '7' %Library.String 10 HX FileMan Field Label: 'ID' FileMan Field Number: '.02' This field identifies the patient identifier. %Library.String 4 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(691.8,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETATION' FileMan Field Number: '13' This field documents the clinical interpretation. %Library.String 13 INTERPRETATION FileMan Field Label: 'MARK FOR DELETATION' FileMan Field Number: '1511' %Library.EnumString 38 MARK_FOR_DELETATION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the patients last name, followed by a comma, followed by a space(optional), followed by the first name, followed by a space, followed by the middle initial. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 6 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 25 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 24 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 23 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This 1-79 character field is provided as input into the summary of patient procedures. %Library.String 22 PROCEDURE_SUMMARY FileMan Field Label: 'REASON FOR STUDY' FileMan Field Number: '4' This field documents the rationale of the procedure for this patient. %Library.String 8 REASON_FOR_STUDY FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' %Library.EnumString 33 RELEASE_CODE FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 31 SIGNER_VALIDATION_CODE Relationship for Sub-File/Multiple to file name ARRHYTHMIA DX child VALIP.prosthetic.fm2cw.SUBARRHYTHMIADX691805 children ELECTROPHYSIOLOGYEP6918 1 SUB_ARRHYTHMIA_DX_691_805 Relationship for Sub-File/Multiple to file name CAROTID STIMULATION child VALIP.prosthetic.fm2cw.SUBCAROTIDSTIMULATION691811 children ELECTROPHYSIOLOGYEP6918 1 SUB_CAROTID_STIMULATION_691_811 Relationship for Sub-File/Multiple to file name DISCHARGE DATE child VALIP.prosthetic.fm2cw.SUBDISCHARGEDATE69196 children ELECTROPHYSIOLOGYEP6918 1 SUB_DISCHARGE_DATE_691_96 Relationship for Sub-File/Multiple to file name FOLLOW UP child VALIP.prosthetic.fm2cw.SUBFOLLOWUP691815 children ELECTROPHYSIOLOGYEP6918 1 SUB_FOLLOW_UP_691_815 Relationship for Sub-File/Multiple to file name FOLLOW UP child VALIP.prosthetic.fm2cw.SUBFOLLOWUP69197 children ELECTROPHYSIOLOGYEP6918 1 SUB_FOLLOW_UP_691_97 Relationship for Sub-File/Multiple to file name HEART BLOCK child VALIP.prosthetic.fm2cw.SUBHEARTBLOCK691804 children ELECTROPHYSIOLOGYEP6918 1 SUB_HEART_BLOCK_691_804 Relationship for Sub-File/Multiple to file name HEART MEDICATION child VALIP.prosthetic.fm2cw.SUBHEARTMEDICATION691803 children ELECTROPHYSIOLOGYEP6918 1 SUB_HEART_MEDICATION_691_803 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS691806 children ELECTROPHYSIOLOGYEP6918 1 SUB_ICD_DIAGNOSIS_691_806 Relationship for Sub-File/Multiple to file name RISK FACTOR child VALIP.prosthetic.fm2cw.SUBRISKFACTOR691802 children ELECTROPHYSIOLOGYEP6918 1 SUB_RISK_FACTOR_691_802 Relationship for Sub-File/Multiple to file name SVT-TYPE child VALIP.prosthetic.fm2cw.SUBSVTTYPE691812 children ELECTROPHYSIOLOGYEP6918 1 SUB_SVTTYPE_691_812 Relationship for Sub-File/Multiple to file name SYMPTOM child VALIP.prosthetic.fm2cw.SUBSYMPTOM691801 children ELECTROPHYSIOLOGYEP6918 1 SUB_SYMPTOM_691_801 FileMan Field Label: 'SUMMARY' FileMan Field Number: '.03' This field summarizes the results of this procedure. %Library.EnumString 5 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 36 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 37 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.String 40 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' %Library.Numeric 42 SUPERSEDED_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 43 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERFIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 30 VERFIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {VERFIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERFIFYING_DUZ_NAME 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 32 VERIFIER_DATE FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '18' This field identifies the patient's location. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 17 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ELECTROPHYSIOLOGY_EP_691_8 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(691.8," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(691.8,"+1,",.01)={"DATETIME"} set:{ID}'="" FDA(691.8,"+1,",.02)={"ID"} set:{SUMMARY}'="" FDA(691.8,"+1,",.03)={"SUMMARY"} set:{MEDICAL_PATIENT}'="" FDA(691.8,"+1,",1)={"MEDICAL_PATIENT"} set:{HOSPITAL_OF_STUDY}'="" FDA(691.8,"+1,",3)={"HOSPITAL_OF_STUDY"} set:{REASON_FOR_STUDY}'="" FDA(691.8,"+1,",4)={"REASON_FOR_STUDY"} set:{CARDIAC_DX}'="" FDA(691.8,"+1,",6)={"CARDIAC_DX"} set:{EJECTION_FRACTION}'="" FDA(691.8,"+1,",8)={"EJECTION_FRACTION"} set:{EJECTION_FRACTION_METHOD}'="" FDA(691.8,"+1,",9)={"EJECTION_FRACTION_METHOD"} set:{CARDIOLOGY_STAFF}'="" FDA(691.8,"+1,",16)={"CARDIOLOGY_STAFF"} set:{CARDIOLOGY_FELLOW}'="" FDA(691.8,"+1,",17)={"CARDIOLOGY_FELLOW"} set:{WARDCLINIC}'="" FDA(691.8,"+1,",18)={"WARDCLINIC"} set:{CARDIOLOGY_STAFF2ND}'="" FDA(691.8,"+1,",19)={"CARDIOLOGY_STAFF2ND"} set:{CARDIOLOGY_FELLOW2ND}'="" FDA(691.8,"+1,",20)={"CARDIOLOGY_FELLOW2ND"} set:{CARDIOLOGY_STAFF0}'="" FDA(691.8,"+1,",24)={"CARDIOLOGY_STAFF0"} set:{CARDIOLOGY_FELLOW0}'="" FDA(691.8,"+1,",25)={"CARDIOLOGY_FELLOW0"} set:{PROCEDURE_SUMMARY}'="" FDA(691.8,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(691.8,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(691.8,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(691.8,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(691.8,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(691.8,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(691.8,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(691.8,"+1,",1502)={"ENTERING_DATE"} set:{VERFIFYING_DUZ}'="" FDA(691.8,"+1,",1503)={"VERFIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(691.8,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(691.8,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(691.8,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(691.8,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(691.8,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(691.8,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(691.8,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETATION}'="" FDA(691.8,"+1,",1511)={"MARK_FOR_DELETATION"} set:{DELETER_DUZ}'="" FDA(691.8,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(691.8,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(691.8,"+1,",1514)={"CREATION_DATE"} set:{SUPERSEDED_NUMBER}'="" FDA(691.8,"+1,",1515)={"SUPERSEDED_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(691.8)") set %SkipFiling=1 if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {HX}'="" { set D0={RowId} for i=1:1:$l({HX},$c(13,10)) { set wp(i)=$p({HX},$c(13,10),i) } do WP^DIE(691.8,{RowId},7,,"wp","%FMERR(691.8)") if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INTERPRETATION}'="" { set D0={RowId} for i=1:1:$l({INTERPRETATION},$c(13,10)) { set wp(i)=$p({INTERPRETATION},$c(13,10),i) } do WP^DIE(691.8,{RowId},13,,"wp","%FMERR(691.8)") if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENT}'="" { set D0={RowId} for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) } do WP^DIE(691.8,{RowId},14,,"wp","%FMERR(691.8)") if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(691.8,IENS,.01)={DATETIME} set:{ID*C} FDA(691.8,IENS,.02)={ID} set:{SUMMARY*C} FDA(691.8,IENS,.03)={SUMMARY} set:{MEDICAL_PATIENT*C} FDA(691.8,IENS,1)={MEDICAL_PATIENT} set:{HOSPITAL_OF_STUDY*C} FDA(691.8,IENS,3)={HOSPITAL_OF_STUDY} set:{REASON_FOR_STUDY*C} FDA(691.8,IENS,4)={REASON_FOR_STUDY} set:{CARDIAC_DX*C} FDA(691.8,IENS,6)={CARDIAC_DX} set:{EJECTION_FRACTION*C} FDA(691.8,IENS,8)={EJECTION_FRACTION} set:{EJECTION_FRACTION_METHOD*C} FDA(691.8,IENS,9)={EJECTION_FRACTION_METHOD} set:{CARDIOLOGY_STAFF*C} FDA(691.8,IENS,16)={CARDIOLOGY_STAFF} set:{CARDIOLOGY_FELLOW*C} FDA(691.8,IENS,17)={CARDIOLOGY_FELLOW} set:{WARDCLINIC*C} FDA(691.8,IENS,18)={WARDCLINIC} set:{CARDIOLOGY_STAFF2ND*C} FDA(691.8,IENS,19)={CARDIOLOGY_STAFF2ND} set:{CARDIOLOGY_FELLOW2ND*C} FDA(691.8,IENS,20)={CARDIOLOGY_FELLOW2ND} set:{CARDIOLOGY_STAFF0*C} FDA(691.8,IENS,24)={CARDIOLOGY_STAFF0} set:{CARDIOLOGY_FELLOW0*C} FDA(691.8,IENS,25)={CARDIOLOGY_FELLOW0} set:{PROCEDURE_SUMMARY*C} FDA(691.8,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(691.8,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(691.8,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(691.8,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(691.8,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(691.8,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(691.8,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(691.8,IENS,1502)={ENTERING_DATE} set:{VERFIFYING_DUZ*C} FDA(691.8,IENS,1503)={VERFIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(691.8,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(691.8,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(691.8,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(691.8,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(691.8,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(691.8,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(691.8,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETATION*C} FDA(691.8,IENS,1511)={MARK_FOR_DELETATION} set:{DELETER_DUZ*C} FDA(691.8,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(691.8,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(691.8,IENS,1514)={CREATION_DATE} set:{SUPERSEDED_NUMBER*C} FDA(691.8,IENS,1515)={SUPERSEDED_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.8)") set %SkipFiling=1 if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {HX*C} { set D0={RowId} kill wp if {HX}'="" { set wproot="wp" for i=1:1:$l({HX},$c(13,10)) { set wp(i)=$p({HX},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.8,{RowId},7,,wproot,"%FMERR(691.8)") if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INTERPRETATION*C} { set D0={RowId} kill wp if {INTERPRETATION}'="" { set wproot="wp" for i=1:1:$l({INTERPRETATION},$c(13,10)) { set wp(i)=$p({INTERPRETATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.8,{RowId},13,,wproot,"%FMERR(691.8)") if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENT*C} { set D0={RowId} kill wp if {COMMENT}'="" { set wproot="wp" for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.8,{RowId},14,,wproot,"%FMERR(691.8)") if $d(%FMERR(691.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ELECTROPHYS812DS index ^MCAR nonnull 691.8 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 691.8 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 691.8 "C" {MEDICAL_PATIENT} {IEN} 0]]> data ^MCAR 691.8 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 6 1 "^" 15 2 "^" 19 2 "^" 15 5 "^" 15 1 "^" 19 1 "^" 15 4 13 new data,i,node set {COMMENT}="" merge data=^MCAR(691.8,{S2},13) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENT}={COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "ES" 2 "^" "ES" 15 "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" 8 1 "^" 8 2 "^" "ES" 3 "^" "ES" 1 "^" "OR" 2 "^" 4 3 7 new data,i,node set {HX}="" merge data=^MCAR(691.8,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {HX}={HX}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .1 1 12 new data,i,node set {INTERPRETATION}="" merge data=^MCAR(691.8,{S2},12) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INTERPRETATION}={INTERPRETATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "ES" 12 "^" 0 2 "^" "OR" 1 "^" "PCC" 1 "^" "PROV" 1 "^" .2 2 "^" 4 4 "^" "ES" 7 "^" "ES" 5 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 "^" "ES" 4 "^" "ES" 6 "^" 15 3 index {RELEASE_CODE}'="" 1 ^MCAR conditional 691.8 "ES" $$TRUNCATE({RELEASE_CODE},30)) {IEN} 0]]> Generated class for FileMan File Number: '8' File Name: 'ELIGIBILITY CODE' Class generated by %fm2class version 2.56 The ELIGIBILITY CODE file contains all the eligibility codes that can be assigned to a patient. All entries in this file must be associated with an entry in the MAS ELIGIBILITY CODE file. The MAS ELIGIBILITY CODE(#8.1) file consists of those codes which have been established by VACO MAS. The site is not allowed to add entries to the MAS ELIGIBILITY CODE file. However, the site is permitted to add local entries to the ELIGIBILITY CODE file. To add/edit eligibility codes use the option 'Eligibility Code Enter/Edit [DG ELIG CODE ENTER/EDIT]'. The option is on the 'Eligibility/ID Maintenance Menu [DG ELIG MAINTENANCE]' menu. Normally, adding local codes is not needed. However, the VA/DOD sharing agreement software, being developed by the Dallas ISC, does need and use this functionality. persistent _PUBLIC 0 RowId ELIGIBILITY_CODE_8 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.465233883 67178,44708.66221349 right ELIGIBILITY CODE 8 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '2' This field may contain an abbreviation for the eligibility name. It may be used in place of the name in selected prints. %Library.String 6 ABBREVIATION FileMan Field Label: 'CARD COLOR' FileMan Field Number: '1' This field indicates the color of the patient's card for the MAS eligibility. This field is automatically updated with the value of the 'CARD COLOR' of the MAS ELIGIBILITY CODE(#8.1) entry pointed to by field #8, MAS ELIGIBILITY CODE. This field is uneditable. %Library.EnumString 5 CARD_COLOR Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(8,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '6' If the eligibility is inactive then this field will be set to 'YES'. %Library.EnumString 10 INACTIVE FileMan Field Label: 'MAKE RECORD SENSITIVE?' FileMan Field Number: '.12' Answer YES if patients with this eligibility should have there records automatically added to the DG SECURITY LOG file so that the patient's record will be listed as sensitive. %Library.EnumString 4 MAKE_RECORD_SENSITIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the site specific name for the eligibility. In most cases the name will be the same as the MAS ELIGIBILITY CODE pointed to by the MAS ELIGIBILITY CODE field of this file. %Library.String 1 3 NAME FileMan Field Label: 'PRINT NAME' FileMan Field Number: '5' This field contains a shorten eligibility name that is used for output that has limited space to print. %Library.String 9 PRINT_NAME FileMan Field Label: 'SELECT AS ADDITIONAL' FileMan Field Number: '7' This field indicates whether patients may be assigned this eligibility as an 'additional' eligibility. If the field is set to 'NO' or is not filled in, then the eligibility can only be assigned as a primary eligibility. If set to 'YES', then the eligibility can be used as both a primary and an 'additional' eligibility. This field is automatically updated with the value of the 'SELECT AS ADDITIONAL' of the MAS ELIGIBILITY CODE(FILE #8.1) entry pointed to by field #8, MAS ELIGIBILITY CODE. This field is uneditable. %Library.EnumString 11 SELECT_AS_ADDITIONAL FileMan Field Label: 'TYPE' FileMan Field Number: '4' This field indicates the type of patient that can be assigned this eligibility. The patient is either a 'veteran' or a 'non-veteran' type. This field is automatically updated with the value of the 'TYPE' of the MAS ELIGIBILITY CODE(#8.1) entry pointed to by field #8, MAS ELIGIBILITY CODE. This field is uneditable. %Library.EnumString 8 TYPE FileMan Field Label: 'VA CODE NUMBER' FileMan Field Number: '3' This field contains the VA CODE NUMBER that has been assigned to this eligibility. This field is automatically updated with the value of the 'VA CODE NUMBER' of the MAS ELIGIBILITY CODE(#8.1) entry pointed to by field #8, MAS ELIGIBILITY CODE. This field is uneditable. %Library.Numeric 1 7 VA_CODE_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 12 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(8," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(8,"+1,",.01)={"NAME"} set:{MAKE_RECORD_SENSITIVE}'="" FDA(8,"+1,",.12)={"MAKE_RECORD_SENSITIVE"} set:{CARD_COLOR}'="" FDA(8,"+1,",1)={"CARD_COLOR"} set:{ABBREVIATION}'="" FDA(8,"+1,",2)={"ABBREVIATION"} set:{VA_CODE_NUMBER}'="" FDA(8,"+1,",3)={"VA_CODE_NUMBER"} set:{TYPE}'="" FDA(8,"+1,",4)={"TYPE"} set:{PRINT_NAME}'="" FDA(8,"+1,",5)={"PRINT_NAME"} set:{INACTIVE}'="" FDA(8,"+1,",6)={"INACTIVE"} set:{SELECT_AS_ADDITIONAL}'="" FDA(8,"+1,",7)={"SELECT_AS_ADDITIONAL"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8)") set %SkipFiling=1 if $d(%FMERR(8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(8,IENS,.01)={NAME} set:{MAKE_RECORD_SENSITIVE*C} FDA(8,IENS,.12)={MAKE_RECORD_SENSITIVE} set:{CARD_COLOR*C} FDA(8,IENS,1)={CARD_COLOR} set:{ABBREVIATION*C} FDA(8,IENS,2)={ABBREVIATION} set:{VA_CODE_NUMBER*C} FDA(8,IENS,3)={VA_CODE_NUMBER} set:{TYPE*C} FDA(8,IENS,4)={TYPE} set:{PRINT_NAME*C} FDA(8,IENS,5)={PRINT_NAME} set:{INACTIVE*C} FDA(8,IENS,6)={INACTIVE} set:{SELECT_AS_ADDITIONAL*C} FDA(8,IENS,7)={SELECT_AS_ADDITIONAL} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8)") set %SkipFiling=1 if $d(%FMERR(8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ELIGIBILITYE00BS index ^DIC nonnull 8 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 8 "C" {VA_CODE_NUMBER} {IEN} 0]]> data ^DIC 8 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 7 "^" 0 12 "^" 0 1 "^" 0 6 "^" 0 8 "^" 0 5 "^" 0 4 Generated class for FileMan File Number: '699.7' File Name: 'ENDOSCOPIC DEVICE' Class generated by %fm2class version 2.56 This file holds the various stents, sphincterotomes, tubes, etc. used in Endoscopic procedures. persistent _PUBLIC 0 RowId ENDOSCOPIC_DEVICE_699_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.49832492 67178,44708.691261742 right ENDOSCOPIC DEVICE 699.7 2.56 12/04/2024 12:25:08 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.7,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field is used to store the various devices used during an Endoscopy. %Library.String 1 3 NAME FileMan Field Label: 'TYPE' FileMan Field Number: '1' This field is used to separate stents, sphincterotomes, gastrostomy tubes, and jejunostomy tubes. %Library.EnumString 4 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.7," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.7,"+1,",.01)={"NAME"} set:{TYPE}'="" FDA(699.7,"+1,",1)={"TYPE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.7)") set %SkipFiling=1 if $d(%FMERR(699.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.7,IENS,.01)={NAME} set:{TYPE*C} FDA(699.7,IENS,1)={TYPE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.7)") set %SkipFiling=1 if $d(%FMERR(699.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ENDOSCOPICD8404S index ^MCAR nonnull 699.7 "B" {NAME} {IEN} 0]]> index ^MCAR nonnull 699.7 "C" {TYPE} {IEN} 0]]> data ^MCAR 699.7 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '699' File Name: 'ENDOSCOPY/CONSULT' Class generated by %fm2class version 2.56 This file holds all Endoscopic procedures as well as GI Non-endoscopic procedures. persistent _PUBLIC 0 RowId ENDOSCOPYCONSULT_699 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.57088657 67178,44708.747833284 right ENDOSCOPY/CONSULT 699 2.56 12/04/2024 12:25:08 1 1 IEN 1 CONSULTATION_TYPE_699_82]]> CONSULTATIONTYPE VALIP.prosthetic.fm2cw.CONSULTATIONTYPE69982 FKey_CONSULTATION_TYPE NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ ANATOMY_697]]> DEPTHOFINSERTION VALIP.prosthetic.fm2cw.ANATOMY697 FKey_DEPTH_OF_INSERTION NEW_PERSON_200]]> ENDOSCOPIST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENDOSCOPIST NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ NEW_PERSON_200]]> FELLOW VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER MEDICAL_DIAGNOSISICD_CODES_697_5]]> PRIMARYDIAGNOSIS VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_PRIMARY_DIAGNOSIS ANATOMY_697]]> PRIMARYDIAGNOSISANATOMY VALIP.prosthetic.fm2cw.ANATOMY697 FKey_PRIMARY_DIAGNOSIS_ANATOMY NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER PROCEDURESUBSPECIALTY_697_2]]> PROCEDURE1 VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 FKey_PROCEDURE1 NEW_PERSON_200]]> SECONDFELLOW VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SECOND_FELLOW NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC HOSPITAL_LOCATION_44]]> WHEREPERFORMED VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WHERE_PERFORMED FileMan Field Label: 'ABNORMAL BOWEL CONSISTENCY' FileMan Field Number: '2.4' This field stores the consistency (alternating, bloody,formed,hard,soft,or watery) for a patient who has the symptom of abnormal bowel habits. This field has been removed from the input templates for version 2. %Library.EnumString 6 ABNORMAL_BOWEL_CONSISTENCY FileMan Field Label: 'ABNORMAL BOWEL DURATION' FileMan Field Number: '2.45' This field stores the length of time the patient has had the abnormal bowel habits. This field has been removed from the input templates for version 2. %Library.String 7 ABNORMAL_BOWEL_DURATION FileMan Field Label: 'ABNORMAL BOWEL FREQUENCY' FileMan Field Number: '2.46' This field stores the frequency for abnormal bowel habits. This field has been removed from the input templates for version 2. %Library.String 8 ABNORMAL_BOWEL_FREQUENCY FileMan Field Label: 'APPOINTMENT DATE/TIME' FileMan Field Number: '.01' This field contains the date/time of the Endoscopy procedure. %Library.FilemanTimeStamp 1 3 APPOINTMENT_DATETIME FileMan Field Label: 'ASSESSMENT' FileMan Field Number: '34' This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format. %Library.String 32 ASSESSMENT FileMan Field Label: 'COMMON BILE DUCT SIZE (mm)' FileMan Field Number: '22' This field identifies the size in millimeters of the Common Bile Duct. Used for the ERCP Procedure. %Library.Numeric 25 COMMON_BILE_DUCT_SIZE_MM FileMan Field Label: 'CONSULTATION TYPE' FileMan Field Number: '31.5' This field indicates the type of consultation requested. Used in the Consult options. VALIP.prosthetic.fm2cw.CONSULTATIONTYPE69982 29 CONSULTATION_TYPE NAME This field identifies a list of Consultation types for use with the Consult enter/edit. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {CONSULTATION_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONSULTATION_TYPE_NAME 1 FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 52 COSIGNER_VALIDATION_CODE FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 58 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 59 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 63 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'DEPTH OF INSERTION' FileMan Field Number: '24' This field indicates the extent of examination irrespective of the findings reported. This is a pointer to the Anatomy file. VALIP.prosthetic.fm2cw.ANATOMY697 27 DEPTH_OF_INSERTION NAME This field contains a list of body locations for use by the various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {DEPTH_OF_INSERTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEPTH_OF_INSERTION_NAME 1 FileMan Field Label: 'DIAGNOSIS/DIAGNOSIS SUPPLEMENT' FileMan Field Number: '37.1' This field is used in addition to or instead of the diagnosis list generated from the impressions. %Library.String 36 DIAGNOSISDIAGNOSIS_SUPPLEMENT FileMan Field Label: 'DIET COMMENT' FileMan Field Number: '15' This field identifies a comment on the oral intake given for the preparation for a colonscopy. %Library.String 23 DIET_COMMENT FileMan Field Label: 'DISC ID' FileMan Field Number: '35.9' This field is not being used at the present time. %Library.String 34 DISC_ID FileMan Field Label: 'EGD SIMPLE PRIMARY EXAM' FileMan Field Number: '2.85' This field identifies that a PDGE (Primary Diagnostic Gastrointestinal Endoscopy) was performed in place of an initial screening X-ray, for diagnostic purposes in an outpatient setting. %Library.String 10 EGD_SIMPLE_PRIMARY_EXAM FileMan Field Label: 'ENDOSCOPIST' FileMan Field Number: '6' This field identifies the name of the provider who performed the procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 15 ENDOSCOPIST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {ENDOSCOPIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENDOSCOPIST_NAME 1 FileMan Field Label: 'ENEMAS' FileMan Field Number: '17' This field records the type of enemas given in preparation for a colonoscopy. %Library.EnumString 24 ENEMAS FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 53 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 51 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'FELLOW' FileMan Field Number: '200' This field identifies the name of a fellow who assisted on the procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 38 FELLOW NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {FELLOW_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW_NAME 1 FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 50 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDICATION COMMENT' FileMan Field Number: '3' This free text field is used to enhance or add to the specific indications for procedure. %Library.String 14 INDICATION_COMMENT FileMan Field Label: 'INSTRUCTIONS TO PATIENT' FileMan Field Number: '203' This field identifies a word processing field which indicates post-procedural instructions given to the patient. %Library.String 41 INSTRUCTIONS_TO_PATIENT FileMan Field Label: 'LAB OR XRAY' FileMan Field Number: '2.86' This free text field indicates that there is an abnormal X-ray of lab test suggesting the Endoscopy. Used as an indication for procedure for GI Endoscopies. %Library.String 11 LAB_OR_XRAY FileMan Field Label: 'MARKED FOR DELETION' FileMan Field Number: '1511' %Library.EnumString 62 MARKED_FOR_DELETION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '.02' This field identifies the name of the patient under-going the procedure. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'OBJECTIVE' FileMan Field Number: '33' This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format. %Library.String 31 OBJECTIVE FileMan Field Label: 'OCCULT BLOOD' FileMan Field Number: '2.87' This field identifies a specific indication for procedure. It indicates that Occult Blood in the stool is present. Used for GI Endoscopies. %Library.String 12 OCCULT_BLOOD FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 49 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER FOLLOWUP DEVICE/THERAPY' FileMan Field Number: '208' This field identifies a free text field which records the type of device or therapy, previously performed, which needs therapy. This can be used instead of or in addition to the pointed to list. %Library.String 45 OTHER_FOLLOWUP_DEVICETHERAPY FileMan Field Label: 'PANCREATIC DUCT SIZE (mm)' FileMan Field Number: '23' This field identifies the size in millimeters of the pancreatic duct. Used for ERCP procedures. %Library.Numeric 26 PANCREATIC_DUCT_SIZE_MM FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 48 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PLANNED' FileMan Field Number: '35' This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format. %Library.String 33 PLANNED FileMan Field Label: 'POST-PROC INSTRUMENT CLEANSING' FileMan Field Number: '29' This field describes how the instruments were cleaned following the procedure. This is used for epidemiologic purposes. %Library.EnumString 28 POSTPROC_INSTRUMENT_CLEANSING FileMan Field Label: 'PREPARATION DIET' FileMan Field Number: '14' This field identifies to the oral intake for preparation of the colon for a colonoscopy. %Library.EnumString 22 PREPARATION_DIET FileMan Field Label: 'PRIMARY DIAGNOSIS' FileMan Field Number: '204' This field contains a primary diagnosis chosen by the user from the list of impressions entered in the location evaluated field. Once this diagnosis is entered it can not be changed or deleted. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 42 PRIMARY_DIAGNOSIS FileMan Field Label: 'PRIMARY DIAGNOSIS ANATOMY' FileMan Field Number: '204.5' This allows the user to enter the Primary Diagnosis Anatomy. Once this is entered it can not be changed or deleted. VALIP.prosthetic.fm2cw.ANATOMY697 43 PRIMARY_DIAGNOSIS_ANATOMY NAME This field contains a list of body locations for use by the various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {PRIMARY_DIAGNOSIS_ANATOMY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_DIAGNOSIS_ANATOMY_NAME 1 DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {PRIMARY_DIAGNOSIS_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_DIAGNOSIS_DIAGNOSIS 1 FileMan Field Label: 'PRIMARY DIAGNOSIS IMPRESSION' FileMan Field Number: '205' This contains a free text comment regarding the primary diagnosis. %Library.String 44 PRIMARY_DIAGNOSIS_IMPRESSION FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provide a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 47 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE' FileMan Field Number: '1' This field identifies the specific procedure performed, such as colonoscopy. VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 1 5 PROCEDURE1 NAME The short names of the various medicine procedures are stored here.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {PROCEDURE1_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE1_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This field identifies a free text summary of the Endoscopy (up to 79 characters). This required field appears on the Summary of Patient Procedures. %Library.String 46 PROCEDURE_SUMMARY FileMan Field Label: 'PROTOCOL' FileMan Field Number: '2.8' This field identifies a mandated endoscopy according to a pre-approved schedule. The name or number of the protocol should be entered here. Used as a GI Endoscopy indication for procedure. %Library.String 9 PROTOCOL FileMan Field Label: 'RECORD CREATED' FileMan Field Number: '1514' %Library.FilemanTimeStamp 65 RECORD_CREATED FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' %Library.EnumString 57 RELEASE_CODE FileMan Field Label: '*RESERVED' FileMan Field Number: '37' This free-text field has been superseded by word-processing Field #37.1, DIAGNOSIS/DIAGNOSIS SUPPLEMENT. %Library.String 35 RESERVED FileMan Field Label: 'REVISED DIAGNOSIS' FileMan Field Number: '38' This field is a free text field used to modify or enhance the primary diagnosis. This field is generally used when there is an unexpected Pathology report. %Library.String 37 REVISED_DIAGNOSIS FileMan Field Label: 'SECOND ENDOSCOPIST' FileMan Field Number: '7' This field identifies the name of a second doctor performing the procedure. %Library.String 16 SECOND_ENDOSCOPIST FileMan Field Label: 'SECOND FELLOW' FileMan Field Number: '201' This field identifies the name of a second fellow who assisted on the procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 39 SECOND_FELLOW NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {SECOND_FELLOW_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SECOND_FELLOW_NAME 1 FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 55 SIGNER_VALIDATION_CODE FileMan Field Label: 'SPECIMEN COLLECTION' FileMan Field Number: '2.88' This free text field indicates that the procedure is performed to collect tissue or body fluid to perform other tests. Used as an indication for procedure for GI Endoscopies. %Library.String 13 SPECIMEN_COLLECTION FileMan Field Label: 'SUBJECTIVE' FileMan Field Number: '32' This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format. %Library.String 30 SUBJECTIVE Relationship for Sub-File/Multiple to file name BOWEL PREPARATION child VALIP.prosthetic.fm2cw.SUBBOWELPREPARATION6994 children ENDOSCOPYCONSULT699 1 SUB_BOWEL_PREPARATION_699_4 Relationship for Sub-File/Multiple to file name COMPLICATIONS child VALIP.prosthetic.fm2cw.SUBCOMPLICATIONS69958 children ENDOSCOPYCONSULT699 1 SUB_COMPLICATIONS_699_58 Relationship for Sub-File/Multiple to file name COUGH child VALIP.prosthetic.fm2cw.SUBCOUGH6990206 children ENDOSCOPYCONSULT699 1 SUB_COUGH_699_0206 Relationship for Sub-File/Multiple to file name DISEASE FOLLOWUP child VALIP.prosthetic.fm2cw.SUBDISEASEFOLLOWUP69935 children ENDOSCOPYCONSULT699 1 SUB_DISEASE_FOLLOWUP_699_35 Relationship for Sub-File/Multiple to file name DISPOSITION child VALIP.prosthetic.fm2cw.SUBDISPOSITION69973 children ENDOSCOPYCONSULT699 1 SUB_DISPOSITION_699_73 Relationship for Sub-File/Multiple to file name FOLLOWUP DEVICE OR THERAPY child VALIP.prosthetic.fm2cw.SUBFOLLOWUPDEVICEORTHERAPY69936 children ENDOSCOPYCONSULT699 1 SUB_FOLLOWUP_DEVICE_OR_THERAPY_699_36 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69903 children ENDOSCOPYCONSULT699 1 SUB_ICD_DIAGNOSIS_699_03 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE69902005 children ENDOSCOPYCONSULT699 1 SUB_IMAGE_699_02005 Relationship for Sub-File/Multiple to file name INDICATED THERAPY child VALIP.prosthetic.fm2cw.SUBINDICATEDTHERAPY69917 children ENDOSCOPYCONSULT699 1 SUB_INDICATED_THERAPY_699_17 Relationship for Sub-File/Multiple to file name INDICATION FOR PROCEDURE child VALIP.prosthetic.fm2cw.SUBINDICATIONFORPROCEDURE69916 children ENDOSCOPYCONSULT699 1 SUB_INDICATION_FOR_PROCEDURE_699_16 Relationship for Sub-File/Multiple to file name INSTRUMENT child VALIP.prosthetic.fm2cw.SUBINSTRUMENT69905 children ENDOSCOPYCONSULT699 1 SUB_INSTRUMENT_699_05 Relationship for Sub-File/Multiple to file name LOCATION EVALUATED child VALIP.prosthetic.fm2cw.SUBLOCATIONEVALUATED69901 children ENDOSCOPYCONSULT699 1 SUB_LOCATION_EVALUATED_699_01 Relationship for Sub-File/Multiple to file name LOCATION OF PAIN child VALIP.prosthetic.fm2cw.SUBLOCATIONOFPAIN69919 children ENDOSCOPYCONSULT699 1 SUB_LOCATION_OF_PAIN_699_19 Relationship for Sub-File/Multiple to file name MEDICATION USED child VALIP.prosthetic.fm2cw.SUBMEDICATIONUSED69938 children ENDOSCOPYCONSULT699 1 SUB_MEDICATION_USED_699_38 Relationship for Sub-File/Multiple to file name NON-ENDOSCOPIC PROCEDURE child VALIP.prosthetic.fm2cw.SUBNONENDOSCOPICPROCEDURE69959 children ENDOSCOPYCONSULT699 1 SUB_NONENDOSCOPIC_PROCEDURE_699_59 Relationship for Sub-File/Multiple to file name PNEUMONIA child VALIP.prosthetic.fm2cw.SUBPNEUMONIA6990207 children ENDOSCOPYCONSULT699 1 SUB_PNEUMONIA_699_0207 Relationship for Sub-File/Multiple to file name PNEUMOPERITONEUM GAS child VALIP.prosthetic.fm2cw.SUBPNEUMOPERITONEUMGAS69939 children ENDOSCOPYCONSULT699 1 SUB_PNEUMOPERITONEUM_GAS_699_39 Relationship for Sub-File/Multiple to file name PRESCRIPTION GIVEN child VALIP.prosthetic.fm2cw.SUBPRESCRIPTIONGIVEN69974 children ENDOSCOPYCONSULT699 1 SUB_PRESCRIPTION_GIVEN_699_74 Relationship for Sub-File/Multiple to file name RESULTS child VALIP.prosthetic.fm2cw.SUBRESULTS69956 children ENDOSCOPYCONSULT699 1 SUB_RESULTS_699_56 Relationship for Sub-File/Multiple to file name SECONDARY DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBSECONDARYDIAGNOSIS69975 children ENDOSCOPYCONSULT699 1 SUB_SECONDARY_DIAGNOSIS_699_75 Relationship for Sub-File/Multiple to file name SIGNS AND SYMPTOMS child VALIP.prosthetic.fm2cw.SUBSIGNSANDSYMPTOMS69918 children ENDOSCOPYCONSULT699 1 SUB_SIGNS_AND_SYMPTOMS_699_18 Relationship for Sub-File/Multiple to file name SURVEILLANCE child VALIP.prosthetic.fm2cw.SUBSURVEILLANCE69937 children ENDOSCOPYCONSULT699 1 SUB_SURVEILLANCE_699_37 Relationship for Sub-File/Multiple to file name VIDEO/AUDIO FILE NAME child VALIP.prosthetic.fm2cw.SUBVIDEOAUDIOFILENAME69971 children ENDOSCOPYCONSULT699 1 SUB_VIDEOAUDIO_FILE_NAME_699_71 Relationship for Sub-File/Multiple to file name VIDEO FRAME NUMBER child VALIP.prosthetic.fm2cw.SUBVIDEOFRAMENUMBER69964 children ENDOSCOPYCONSULT699 1 SUB_VIDEO_FRAME_NUMBER_699_64 FileMan Field Label: 'SUMMARY' FileMan Field Number: '202' This field indicates whether the Endoscopy was Normal,Abnormal or Incomplete. This required field appears on the Summary of Patient Procedures. %Library.EnumString 40 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 60 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 61 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.String 64 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' %Library.Numeric 66 SUPERSEDED_NUMBER FileMan Field Label: 'TIME COMPLETED' FileMan Field Number: '11' This field identifies the time the procedure was completed in 24 hour time, without punctuation (Ex: 0800,1630, etc.) %Library.String 20 TIME_COMPLETED FileMan Field Label: 'TIME STARTED' FileMan Field Number: '10' This field identifies the time the procedure was begun in 24 hour time, without punctuation. (EX: 0800, 1630, etc.) %Library.String 19 TIME_STARTED FileMan Field Label: 'URGENCY OF PROCEDURE' FileMan Field Number: '12' This field identifies whether the procedure was elective, urgent, or emergency. %Library.EnumString 21 URGENCY_OF_PROCEDURE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 67 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 56 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 54 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '9' This field identifies the in-house location of the patient. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 18 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 FileMan Field Label: 'WHERE PERFORMED' FileMan Field Number: '8' This field identifies the hospital location where the procedure was performed. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 17 WHERE_PERFORMED NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ENDOSCOPYCONSULT_699 where %ID=:id) set {WHERE_PERFORMED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WHERE_PERFORMED_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{APPOINTMENT_DATETIME}'="" FDA(699,"+1,",.01)={"APPOINTMENT_DATETIME"} set:{MEDICAL_PATIENT}'="" FDA(699,"+1,",.02)={"MEDICAL_PATIENT"} set:{PROCEDURE1}'="" FDA(699,"+1,",1)={"PROCEDURE1"} set:{ABNORMAL_BOWEL_CONSISTENCY}'="" FDA(699,"+1,",2.4)={"ABNORMAL_BOWEL_CONSISTENCY"} set:{ABNORMAL_BOWEL_DURATION}'="" FDA(699,"+1,",2.45)={"ABNORMAL_BOWEL_DURATION"} set:{ABNORMAL_BOWEL_FREQUENCY}'="" FDA(699,"+1,",2.46)={"ABNORMAL_BOWEL_FREQUENCY"} set:{PROTOCOL}'="" FDA(699,"+1,",2.8)={"PROTOCOL"} set:{EGD_SIMPLE_PRIMARY_EXAM}'="" FDA(699,"+1,",2.85)={"EGD_SIMPLE_PRIMARY_EXAM"} set:{LAB_OR_XRAY}'="" FDA(699,"+1,",2.86)={"LAB_OR_XRAY"} set:{OCCULT_BLOOD}'="" FDA(699,"+1,",2.87)={"OCCULT_BLOOD"} set:{SPECIMEN_COLLECTION}'="" FDA(699,"+1,",2.88)={"SPECIMEN_COLLECTION"} set:{INDICATION_COMMENT}'="" FDA(699,"+1,",3)={"INDICATION_COMMENT"} set:{ENDOSCOPIST}'="" FDA(699,"+1,",6)={"ENDOSCOPIST"} set:{SECOND_ENDOSCOPIST}'="" FDA(699,"+1,",7)={"SECOND_ENDOSCOPIST"} set:{WHERE_PERFORMED}'="" FDA(699,"+1,",8)={"WHERE_PERFORMED"} set:{WARDCLINIC}'="" FDA(699,"+1,",9)={"WARDCLINIC"} set:{TIME_STARTED}'="" FDA(699,"+1,",10)={"TIME_STARTED"} set:{TIME_COMPLETED}'="" FDA(699,"+1,",11)={"TIME_COMPLETED"} set:{URGENCY_OF_PROCEDURE}'="" FDA(699,"+1,",12)={"URGENCY_OF_PROCEDURE"} set:{PREPARATION_DIET}'="" FDA(699,"+1,",14)={"PREPARATION_DIET"} set:{DIET_COMMENT}'="" FDA(699,"+1,",15)={"DIET_COMMENT"} set:{ENEMAS}'="" FDA(699,"+1,",17)={"ENEMAS"} set:{COMMON_BILE_DUCT_SIZE_MM}'="" FDA(699,"+1,",22)={"COMMON_BILE_DUCT_SIZE_MM"} set:{PANCREATIC_DUCT_SIZE_MM}'="" FDA(699,"+1,",23)={"PANCREATIC_DUCT_SIZE_MM"} set:{DEPTH_OF_INSERTION}'="" FDA(699,"+1,",24)={"DEPTH_OF_INSERTION"} set:{POSTPROC_INSTRUMENT_CLEANSING}'="" FDA(699,"+1,",29)={"POSTPROC_INSTRUMENT_CLEANSING"} set:{CONSULTATION_TYPE}'="" FDA(699,"+1,",31.5)={"CONSULTATION_TYPE"} set:{DISC_ID}'="" FDA(699,"+1,",35.9)={"DISC_ID"} set:{RESERVED}'="" FDA(699,"+1,",37)={"RESERVED"} set:{REVISED_DIAGNOSIS}'="" FDA(699,"+1,",38)={"REVISED_DIAGNOSIS"} set:{FELLOW}'="" FDA(699,"+1,",200)={"FELLOW"} set:{SECOND_FELLOW}'="" FDA(699,"+1,",201)={"SECOND_FELLOW"} set:{SUMMARY}'="" FDA(699,"+1,",202)={"SUMMARY"} set:{PRIMARY_DIAGNOSIS}'="" FDA(699,"+1,",204)={"PRIMARY_DIAGNOSIS"} set:{PRIMARY_DIAGNOSIS_ANATOMY}'="" FDA(699,"+1,",204.5)={"PRIMARY_DIAGNOSIS_ANATOMY"} set:{PRIMARY_DIAGNOSIS_IMPRESSION}'="" FDA(699,"+1,",205)={"PRIMARY_DIAGNOSIS_IMPRESSION"} set:{OTHER_FOLLOWUP_DEVICETHERAPY}'="" FDA(699,"+1,",208)={"OTHER_FOLLOWUP_DEVICETHERAPY"} set:{PROCEDURE_SUMMARY}'="" FDA(699,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(699,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(699,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(699,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(699,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(699,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(699,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(699,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(699,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(699,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(699,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(699,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(699,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(699,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(699,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(699,"+1,",1510)={"SUPERSEDED_BY"} set:{MARKED_FOR_DELETION}'="" FDA(699,"+1,",1511)={"MARKED_FOR_DELETION"} set:{DELETER_DUZ}'="" FDA(699,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(699,"+1,",1513)={"SUPERSEDED_DATE"} set:{RECORD_CREATED}'="" FDA(699,"+1,",1514)={"RECORD_CREATED"} set:{SUPERSEDED_NUMBER}'="" FDA(699,"+1,",1515)={"SUPERSEDED_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699)") set %SkipFiling=1 if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {SUBJECTIVE}'="" { set D0={RowId} for i=1:1:$l({SUBJECTIVE},$c(13,10)) { set wp(i)=$p({SUBJECTIVE},$c(13,10),i) } do WP^DIE(699,{RowId},32,,"wp","%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OBJECTIVE}'="" { set D0={RowId} for i=1:1:$l({OBJECTIVE},$c(13,10)) { set wp(i)=$p({OBJECTIVE},$c(13,10),i) } do WP^DIE(699,{RowId},33,,"wp","%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {ASSESSMENT}'="" { set D0={RowId} for i=1:1:$l({ASSESSMENT},$c(13,10)) { set wp(i)=$p({ASSESSMENT},$c(13,10),i) } do WP^DIE(699,{RowId},34,,"wp","%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PLANNED}'="" { set D0={RowId} for i=1:1:$l({PLANNED},$c(13,10)) { set wp(i)=$p({PLANNED},$c(13,10),i) } do WP^DIE(699,{RowId},35,,"wp","%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {DIAGNOSISDIAGNOSIS_SUPPLEMENT}'="" { set D0={RowId} for i=1:1:$l({DIAGNOSISDIAGNOSIS_SUPPLEMENT},$c(13,10)) { set wp(i)=$p({DIAGNOSISDIAGNOSIS_SUPPLEMENT},$c(13,10),i) } do WP^DIE(699,{RowId},37.1,,"wp","%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INSTRUCTIONS_TO_PATIENT}'="" { set D0={RowId} for i=1:1:$l({INSTRUCTIONS_TO_PATIENT},$c(13,10)) { set wp(i)=$p({INSTRUCTIONS_TO_PATIENT},$c(13,10),i) } do WP^DIE(699,{RowId},203,,"wp","%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{APPOINTMENT_DATETIME*C} FDA(699,IENS,.01)={APPOINTMENT_DATETIME} set:{MEDICAL_PATIENT*C} FDA(699,IENS,.02)={MEDICAL_PATIENT} set:{PROCEDURE1*C} FDA(699,IENS,1)={PROCEDURE1} set:{ABNORMAL_BOWEL_CONSISTENCY*C} FDA(699,IENS,2.4)={ABNORMAL_BOWEL_CONSISTENCY} set:{ABNORMAL_BOWEL_DURATION*C} FDA(699,IENS,2.45)={ABNORMAL_BOWEL_DURATION} set:{ABNORMAL_BOWEL_FREQUENCY*C} FDA(699,IENS,2.46)={ABNORMAL_BOWEL_FREQUENCY} set:{PROTOCOL*C} FDA(699,IENS,2.8)={PROTOCOL} set:{EGD_SIMPLE_PRIMARY_EXAM*C} FDA(699,IENS,2.85)={EGD_SIMPLE_PRIMARY_EXAM} set:{LAB_OR_XRAY*C} FDA(699,IENS,2.86)={LAB_OR_XRAY} set:{OCCULT_BLOOD*C} FDA(699,IENS,2.87)={OCCULT_BLOOD} set:{SPECIMEN_COLLECTION*C} FDA(699,IENS,2.88)={SPECIMEN_COLLECTION} set:{INDICATION_COMMENT*C} FDA(699,IENS,3)={INDICATION_COMMENT} set:{ENDOSCOPIST*C} FDA(699,IENS,6)={ENDOSCOPIST} set:{SECOND_ENDOSCOPIST*C} FDA(699,IENS,7)={SECOND_ENDOSCOPIST} set:{WHERE_PERFORMED*C} FDA(699,IENS,8)={WHERE_PERFORMED} set:{WARDCLINIC*C} FDA(699,IENS,9)={WARDCLINIC} set:{TIME_STARTED*C} FDA(699,IENS,10)={TIME_STARTED} set:{TIME_COMPLETED*C} FDA(699,IENS,11)={TIME_COMPLETED} set:{URGENCY_OF_PROCEDURE*C} FDA(699,IENS,12)={URGENCY_OF_PROCEDURE} set:{PREPARATION_DIET*C} FDA(699,IENS,14)={PREPARATION_DIET} set:{DIET_COMMENT*C} FDA(699,IENS,15)={DIET_COMMENT} set:{ENEMAS*C} FDA(699,IENS,17)={ENEMAS} set:{COMMON_BILE_DUCT_SIZE_MM*C} FDA(699,IENS,22)={COMMON_BILE_DUCT_SIZE_MM} set:{PANCREATIC_DUCT_SIZE_MM*C} FDA(699,IENS,23)={PANCREATIC_DUCT_SIZE_MM} set:{DEPTH_OF_INSERTION*C} FDA(699,IENS,24)={DEPTH_OF_INSERTION} set:{POSTPROC_INSTRUMENT_CLEANSING*C} FDA(699,IENS,29)={POSTPROC_INSTRUMENT_CLEANSING} set:{CONSULTATION_TYPE*C} FDA(699,IENS,31.5)={CONSULTATION_TYPE} set:{DISC_ID*C} FDA(699,IENS,35.9)={DISC_ID} set:{RESERVED*C} FDA(699,IENS,37)={RESERVED} set:{REVISED_DIAGNOSIS*C} FDA(699,IENS,38)={REVISED_DIAGNOSIS} set:{FELLOW*C} FDA(699,IENS,200)={FELLOW} set:{SECOND_FELLOW*C} FDA(699,IENS,201)={SECOND_FELLOW} set:{SUMMARY*C} FDA(699,IENS,202)={SUMMARY} set:{PRIMARY_DIAGNOSIS*C} FDA(699,IENS,204)={PRIMARY_DIAGNOSIS} set:{PRIMARY_DIAGNOSIS_ANATOMY*C} FDA(699,IENS,204.5)={PRIMARY_DIAGNOSIS_ANATOMY} set:{PRIMARY_DIAGNOSIS_IMPRESSION*C} FDA(699,IENS,205)={PRIMARY_DIAGNOSIS_IMPRESSION} set:{OTHER_FOLLOWUP_DEVICETHERAPY*C} FDA(699,IENS,208)={OTHER_FOLLOWUP_DEVICETHERAPY} set:{PROCEDURE_SUMMARY*C} FDA(699,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(699,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(699,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(699,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(699,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(699,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(699,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(699,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(699,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(699,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(699,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(699,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(699,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(699,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(699,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(699,IENS,1510)={SUPERSEDED_BY} set:{MARKED_FOR_DELETION*C} FDA(699,IENS,1511)={MARKED_FOR_DELETION} set:{DELETER_DUZ*C} FDA(699,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(699,IENS,1513)={SUPERSEDED_DATE} set:{RECORD_CREATED*C} FDA(699,IENS,1514)={RECORD_CREATED} set:{SUPERSEDED_NUMBER*C} FDA(699,IENS,1515)={SUPERSEDED_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699)") set %SkipFiling=1 if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {SUBJECTIVE*C} { set D0={RowId} kill wp if {SUBJECTIVE}'="" { set wproot="wp" for i=1:1:$l({SUBJECTIVE},$c(13,10)) { set wp(i)=$p({SUBJECTIVE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699,{RowId},32,,wproot,"%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OBJECTIVE*C} { set D0={RowId} kill wp if {OBJECTIVE}'="" { set wproot="wp" for i=1:1:$l({OBJECTIVE},$c(13,10)) { set wp(i)=$p({OBJECTIVE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699,{RowId},33,,wproot,"%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {ASSESSMENT*C} { set D0={RowId} kill wp if {ASSESSMENT}'="" { set wproot="wp" for i=1:1:$l({ASSESSMENT},$c(13,10)) { set wp(i)=$p({ASSESSMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699,{RowId},34,,wproot,"%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PLANNED*C} { set D0={RowId} kill wp if {PLANNED}'="" { set wproot="wp" for i=1:1:$l({PLANNED},$c(13,10)) { set wp(i)=$p({PLANNED},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699,{RowId},35,,wproot,"%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {DIAGNOSISDIAGNOSIS_SUPPLEMENT*C} { set D0={RowId} kill wp if {DIAGNOSISDIAGNOSIS_SUPPLEMENT}'="" { set wproot="wp" for i=1:1:$l({DIAGNOSISDIAGNOSIS_SUPPLEMENT},$c(13,10)) { set wp(i)=$p({DIAGNOSISDIAGNOSIS_SUPPLEMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699,{RowId},37.1,,wproot,"%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INSTRUCTIONS_TO_PATIENT*C} { set D0={RowId} kill wp if {INSTRUCTIONS_TO_PATIENT}'="" { set wproot="wp" for i=1:1:$l({INSTRUCTIONS_TO_PATIENT},$c(13,10)) { set wp(i)=$p({INSTRUCTIONS_TO_PATIENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699,{RowId},203,,wproot,"%FMERR(699)") if $d(%FMERR(699,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ENDOSCOPYCOE7A6S index ^MCAR nonnull 699 "AC" {ENDOSCOPIST} {IEN} 0]]> index ^MCAR nonnull 699 "AD" {WHERE_PERFORMED} {IEN} 0]]> index ^MCAR nonnull 699 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 699 "B" {APPOINTMENT_DATETIME} {IEN} 0]]> index ^MCAR nonnull 699 "C" {MEDICAL_PATIENT} {IEN} 0]]> index ^MCAR nonnull 699 "D" {PROCEDURE1} {IEN} 0]]> data ^MCAR 699 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 4 "^" 0 5 "^" 0 1 22 new data,i,node set {ASSESSMENT}="" merge data=^MCAR(699,{S2},22) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {ASSESSMENT}={ASSESSMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 15 4 "^" 15 11 "^" "ES" 2 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" 15 6 33 new data,i,node set {DIAGNOSISDIAGNOSIS_SUPPLEMENT}="" merge data=^MCAR(699,{S2},33) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DIAGNOSISDIAGNOSIS_SUPPLEMENT}={DIAGNOSISDIAGNOSIS_SUPPLEMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 15 2 "^" 15 12 "^" 31 2 "^" 0 8 "^" 15 3 "^" "ES" 3 "^" "ES" 1 "^" 200 1 "^" "OR" 2 "^" 0 6 203 new data,i,node set {INSTRUCTIONS_TO_PATIENT}="" merge data=^MCAR(699,{S2},203) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INSTRUCTIONS_TO_PATIENT}={INSTRUCTIONS_TO_PATIENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 31 3 "^" "ES" 12 "^" 0 2 21 new data,i,node set {OBJECTIVE}="" merge data=^MCAR(699,{S2},21) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OBJECTIVE}={OBJECTIVE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 32 1 "^" "OR" 1 "^" 12 1 "^" 15 5 "^" "PCC" 1 23 new data,i,node set {PLANNED}="" merge data=^MCAR(699,{S2},23) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PLANNED}={PLANNED}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 15 10 "^" 15 1 "^" 204 1 "^" 204 2 "^" 205 1 "^" "PROV" 1 "^" 0 12 "^" .2 2 "^" 31 1 "^" "ES" 15 "^" "ES" 7 "^" 19 1 "^" 19 2 "^" 0 9 "^" 29 1 "^" "ES" 5 "^" 32 2 20 new data,i,node set {SUBJECTIVE}="" merge data=^MCAR(699,{S2},20) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SUBJECTIVE}={SUBJECTIVE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 "^" 9 2 "^" 9 1 "^" 9 3 "^" "ES" 6 "^" "ES" 4 "^" 0 11 "^" 0 10 index {RELEASE_CODE}'="" 1 ^MCAR conditional 699 "ES" $$TRUNCATE({RELEASE_CODE},30)) {IEN} 0]]> Generated class for FileMan File Number: '62.07' File Name: 'EXECUTE CODE' Class generated by %fm2class version 2.56 The execute code file is used to store a variety of program instuctions that are used in various programs in the lab package. The best way to see what they areand what they do is to sort them out by type. This may only be of academic interest, since these codes are rarely changed. The 'execute code' type entries have been moved from this file to the routine LRX. All of the 'execute code' type entries will be deleted (with the exception of the ERROR TRAP entry) when version 5 of lab is released. Cross-reference description: ^LAB("X",'SUBSCRIPT NAME')=EXECUTE CODE Note: With the exception of the Error Trap execute code this x-ref has been replaced with the program LRX. Example: X ^LAB("X","PT") is now D PT^LRX persistent _PUBLIC 0 RowId EXECUTE_CODE_62_07 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.527836615 67178,44708.838555978 right EXECUTE CODE 62.07 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '6' This field contains information about how the execute code is used, or what it does. %Library.String 10 DESCRIPTION 8 S CUP=1,TRAY=TRAY+1.]]> %Library.String 1 5 s {EXECUTE_CODE}=$e({NODE__1},1,220) 1 EXECUTE_CODE FileMan Field Label: 'HELP PROMPT' FileMan Field Number: '4' The user entered help prompt for the execute code name. %Library.String 8 HELP_PROMPT Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(62.07,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' The user given name of the code. %Library.String 1 3 NAME Computed Field For Node .1 %Library.String 1 4 s {NODE__1}=$g(^LAB(62.07,{IEN},.1)) 1 NODE__1 FileMan Field Label: 'PURGE CONTROL' FileMan Field Number: '2' This field contains the time interval to purge. Set of codes for Daily, Monthly, Quarterly, or Yearly. %Library.EnumString 6 PURGE_CONTROL FileMan Field Label: 'SUBSCRIPT NAME' FileMan Field Number: '5' If the entry is type "X", eXecute, this is used in the "X" cross-reference. Otherwise, nothing should be placed in this field. %Library.String 9 SUBSCRIPT_NAME FileMan Field Label: 'TYPE' FileMan Field Number: '3' The type of code as categorized by the set of codes. Identity, verfication, accession, loadlist, edit, or comment. %Library.EnumString 1 7 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(62.07," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(62.07,"+1,",.01)={"NAME"} set:{PURGE_CONTROL}'="" FDA(62.07,"+1,",2)={"PURGE_CONTROL"} set:{TYPE}'="" FDA(62.07,"+1,",3)={"TYPE"} set:{HELP_PROMPT}'="" FDA(62.07,"+1,",4)={"HELP_PROMPT"} set:{SUBSCRIPT_NAME}'="" FDA(62.07,"+1,",5)={"SUBSCRIPT_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(62.07)") set %SkipFiling=1 if $d(%FMERR(62.07,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62.07)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(62.07,{RowId},6,,"wp","%FMERR(62.07)") if $d(%FMERR(62.07,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62.07)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(62.07,IENS,.01)={NAME} set:{PURGE_CONTROL*C} FDA(62.07,IENS,2)={PURGE_CONTROL} set:{TYPE*C} FDA(62.07,IENS,3)={TYPE} set:{HELP_PROMPT*C} FDA(62.07,IENS,4)={HELP_PROMPT} set:{SUBSCRIPT_NAME*C} FDA(62.07,IENS,5)={SUBSCRIPT_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(62.07)") set %SkipFiling=1 if $d(%FMERR(62.07,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62.07)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(62.07,{RowId},6,,wproot,"%FMERR(62.07)") if $d(%FMERR(62.07,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62.07)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.EXECUTECODE64B4S index ^LAB nonnull 62.07 "B" {NAME} {IEN} 0]]> data ^LAB 62.07 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 new data,i,node set {DESCRIPTION}="" merge data=^LAB(62.07,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .2 1 "^" 0 1 "^" 0 2 "^" 0 4 "^" 0 3 Generated class for FileMan File Number: '691.7' File Name: 'EXERCISE TOLERANCE TEST' Class generated by %fm2class version 2.56 This file stores data on Exercise Tolerance Tests done on a patient. persistent _PUBLIC 0 RowId EXERCISE_TOLERANCE_TEST_691_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.604584853 67178,44708.897894595 right EXERCISE TOLERANCE TEST 691.7 2.56 12/04/2024 12:25:08 1 1 IEN 1 NEW_PERSON_200]]> ATTNPHYS VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTN_PHYS NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> EKGTECHNICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_EKG_TECHNICIAN NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER REASON_MEDICINE_695_8]]> REASONFORSTOPPING VALIP.prosthetic.fm2cw.REASONMEDICINE6958 FKey_REASON_FOR_STOPPING NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'ARRHYTHMIAS' FileMan Field Number: '51' This field identifies the documented cardiac rhythm irregularity. %Library.EnumString 55 ARRHYTHMIAS FileMan Field Label: 'ATTN PHYS' FileMan Field Number: '58' This field identifies the patient's attending physician. VALIP.prosthetic.fm2cw.NEWPERSON200 63 ATTN_PHYS NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {ATTN_PHYS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTN_PHYS_NAME 1 FileMan Field Label: 'BLOOD PRESSURE RESPONSE' FileMan Field Number: '53.5' This field identifies the blood pressure response. %Library.EnumString 58 BLOOD_PRESSURE_RESPONSE FileMan Field Label: 'COMMENT' FileMan Field Number: '56' This field identifies the comment (word-processing) field. %Library.String 61 COMMENT FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 76 COSIGNER_VALIDATION_CODE FileMan Field Label: 'CP MODIFIER' FileMan Field Number: '21.5' This field qualifies the type of chest pain that the patient experienced. %Library.EnumString 28 CP_MODIFIER FileMan Field Label: 'CP TIME TOTAL' FileMan Field Number: '22' This field is the total time of chest pain in seconds computed from the two fields, CP TIME MIN and CP TIME SEC. %Library.Numeric 1 29 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,22,9.3) S X=$S(Y(691.7,22,3):Y(691.7,22,4),Y(691.7,22,5):X) set {CP_TIME_TOTAL}=X 1 CP_TIME_TOTAL FileMan Field Label: 'CP TME MIN' FileMan Field Number: '20' Enter the minutes portion of the elapsed time, that the chest pain occurred. %Library.Numeric 26 CP_TME_MIN FileMan Field Label: 'CP TME SEC' FileMan Field Number: '21' Enter the seconds portion of the elapsed time, that the chest pain occurred. %Library.Numeric 27 CP_TME_SEC FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 89 CREATION_DATE FileMan Field Label: 'DATE/TIME OF APPOINTMENT' FileMan Field Number: '2' This date/time field documents the scheduled time for this procedure. %Library.FilemanTimeStamp 7 DATETIME_OF_APPOINTMENT FileMan Field Label: 'DATE/TIME OF TEST' FileMan Field Number: '.01' This field identifies the precise Exercise Tolerance procedure. %Library.FilemanTimeStamp 1 3 DATETIME_OF_TEST FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 82 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 83 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 87 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'EKG TECHNICIAN' FileMan Field Number: '57' This field identifies the staff member responsible for hooking up the patient. VALIP.prosthetic.fm2cw.NEWPERSON200 62 EKG_TECHNICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {EKG_TECHNICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EKG_TECHNICIAN_NAME 1 FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 77 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 75 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'ETT PROTOCOL' FileMan Field Number: '7' This field defines the protocol used in this procedure. %Library.EnumString 12 ETT_PROTOCOL FileMan Field Label: 'EX TIME' FileMan Field Number: '43' This field identifies the time at which exercise began. %Library.String 1 47 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,43,9.3) S X=$S(Y(691.7,43,3):Y(691.7,43,4),Y(691.7,43,5):X) set {EX_TIME}=X 1 EX_TIME FileMan Field Label: 'EX TIME MIN' FileMan Field Number: '44' Enter the minutes portion of the elapsed time, that the exercise occurred. %Library.Numeric 48 EX_TIME_MIN FileMan Field Label: 'EX TIME SEC' FileMan Field Number: '45' Enter the seconds portion of the elapsed time, that the exercise occurred. %Library.Numeric 49 EX_TIME_SEC FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 74 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'GRADE BALKE' FileMan Field Number: '67' This field identifies the GRADE BALKE field. %Library.Numeric 1 68 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,67,9.5) S X=$S(Y(691.7,67,2):Y(691.7,67,3),Y(691.7,67,5):Y(691.7,67,6),Y(691.7,67,7):Y(691.7,67,8),Y(691.7,67,9):Y(691.7,67,10),Y(691.7,67,11):Y(691.7,67,12),Y(691.7,67,13):Y(691.7,67,14),Y(691.7,67,15):X) set {GRADE_BALKE}=X 1 GRADE_BALKE FileMan Field Label: 'GRADE SPECIAL' FileMan Field Number: '65' This field identifies the GRADE SPECIAL field. %Library.String 1 67 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,65,9.5) S X=$S(Y(691.7,65,2):Y(691.7,65,3),Y(691.7,65,5):Y(691.7,65,6),Y(691.7,65,7):Y(691.7,65,8),Y(691.7,65,9):Y(691.7,65,10),Y(691.7,65,11):Y(691.7,65,12),Y(691.7,65,13):Y(691.7,65,14),Y(691.7,65,15):X) set {GRADE_SPECIAL}=X 1 GRADE_SPECIAL FileMan Field Label: 'HEART RATE RESPONSE' FileMan Field Number: '53' This field identifies the heart rate response. %Library.EnumString 57 HEART_RATE_RESPONSE FileMan Field Label: 'HYPERVENTILATION' FileMan Field Number: '8' This allows the user to enter information about the patient and hyperventilation. %Library.String 13 HYPERVENTILATION FileMan Field Label: 'ID' FileMan Field Number: '.02' This field identifies the patient's identification number assigned by the medical facility. In most cases it is the person's social security number. %Library.String 4 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(691.7,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETATION' FileMan Field Number: '55' This field identifies the interpretation field. %Library.EnumString 60 INTERPRETATION FileMan Field Label: 'KILO POND METERS (KPM)' FileMan Field Number: '32.1' This field identifies the kilo pond meters. %Library.Numeric 40 KILO_POND_METERS_KPM FileMan Field Label: 'MARK FOR DELETION' FileMan Field Number: '1511' %Library.EnumString 86 MARK_FOR_DELETION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the patient's last name, followed by a comma, followed by a space (optional), followed by the first name, followed by a space, followed by the middle initial. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 6 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'METS' FileMan Field Number: '34' This field identifies the METS (Metabolic Equivalents-1 MET=3.5ml of O2 resting). %Library.Numeric 43 METS FileMan Field Label: 'MPH BALKE' FileMan Field Number: '62' This field identifies the MPH BALKE field. %Library.String 1 66 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,62,9.4) S X=$S(Y(691.7,62,2):Y(691.7,62,3),Y(691.7,62,5):Y(691.7,62,6),Y(691.7,62,8):X) set {MPH_BALKE}=X 1 MPH_BALKE FileMan Field Label: 'MPH MOD BRUCE' FileMan Field Number: '59' This identifies the MPH MOD BRUCE field (miles/hr of lower intensity standardized exercise test). %Library.Numeric 1 64 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,59,9.5) S X=$S(Y(691.7,59,2):Y(691.7,59,3),Y(691.7,59,5):Y(691.7,59,6),Y(691.7,59,7):Y(691.7,59,8),Y(691.7,59,9):Y(691.7,59,10),Y(691.7,59,11):Y(691.7,59,12),Y(691.7,59,13):X) set {MPH_MOD_BRUCE}=X 1 MPH_MOD_BRUCE FileMan Field Label: 'MPH SPECIAL' FileMan Field Number: '60' This field identifies the MPH Special field. %Library.Numeric 1 65 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,60,9.5) S X=$S(Y(691.7,60,2):Y(691.7,60,3),Y(691.7,60,5):Y(691.7,60,6),Y(691.7,60,7):Y(691.7,60,8),Y(691.7,60,9):Y(691.7,60,10),Y(691.7,60,11):Y(691.7,60,12),Y(691.7,60,13):X) set {MPH_SPECIAL}=X 1 MPH_SPECIAL FileMan Field Label: 'ONSET CP DBP' FileMan Field Number: '25' This field identifies the diastolic blood pressure at the onset of chest pain. %Library.Numeric 32 ONSET_CP_DBP FileMan Field Label: 'ONSET CP HR' FileMan Field Number: '23' This field identifies the heart rate at the onset of chest pain. %Library.Numeric 30 ONSET_CP_HR FileMan Field Label: 'ONSET CP RPP' FileMan Field Number: '28' This field identifies the RPP at the onset of chest pain. %Library.Numeric 1 35 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,28,9.3) S X=$S(Y(691.7,28,2):Y(691.7,28,3),Y(691.7,28,4):Y(691.7,28,5),Y(691.7,28,6):X) set {ONSET_CP_RPP}=X 1 ONSET_CP_RPP FileMan Field Label: 'ONSET CP SBP' FileMan Field Number: '24' This field identifies the systolic blood pressure at the onset of chest pain. %Library.Numeric 31 ONSET_CP_SBP FileMan Field Label: 'ONSET CP ST' FileMan Field Number: '26' This field identifies the ST elevation at the onset of chest pain. %Library.Numeric 33 ONSET_CP_ST FileMan Field Label: 'ONSET CP ST SLOPE' FileMan Field Number: '27' This field identifies the ST slope at the onset of chest pain. %Library.Numeric 34 ONSET_CP_ST_SLOPE FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 73 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER EKG CHANGE' FileMan Field Number: '52' This field identifies an irregularity. %Library.String 56 OTHER_EKG_CHANGE FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 72 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PK DBP' FileMan Field Number: '31' This field identifies the peak diastolic blood pressure. %Library.Numeric 38 PK_DBP FileMan Field Label: 'PK EX GRADE' FileMan Field Number: '33' This field identifies the peak exercise grade. %Library.Numeric 42 PK_EX_GRADE FileMan Field Label: 'PK EX MPH' FileMan Field Number: '32' This field identifies the peak exercise miles per hour. %Library.Numeric 39 PK_EX_MPH FileMan Field Label: 'PK HR' FileMan Field Number: '29' This field identifies the peak heart rate. %Library.Numeric 36 PK_HR FileMan Field Label: 'PK RPP' FileMan Field Number: '42' This field identifies the peak RPP. %Library.String 1 46 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,42,9.3) S X=$S(Y(691.7,42,2):Y(691.7,42,3),Y(691.7,42,4):Y(691.7,42,5),Y(691.7,42,6):X) set {PK_RPP}=X 1 PK_RPP FileMan Field Label: 'PK SBP' FileMan Field Number: '30' This field identifies the peak systolic blood pressure. %Library.Numeric 37 PK_SBP FileMan Field Label: 'PK ST' FileMan Field Number: '39' This field identifies the peak ST elevation. %Library.Numeric 44 PK_ST FileMan Field Label: 'PK ST SLOPE' FileMan Field Number: '40' This field identifies the peak ST slope. %Library.Numeric 45 PK_ST_SLOPE FileMan Field Label: 'PREDICTED HR' FileMan Field Number: '46' This field identifies the predicted heart rate. %Library.String 1 50 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,46,9.4) S Y=X,X=Y(691.7,46,1),X=X-Y S D0=Y(691.7,46,80) set {PREDICTED_HR}=X 1 PREDICTED_HR FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 71 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures.' %Library.String 70 PROCEDURE_SUMMARY FileMan Field Label: 'REASON FOR STOPPING' FileMan Field Number: '50' This field identifies the rationale for terminating the procedure. VALIP.prosthetic.fm2cw.REASONMEDICINE6958 54 REASON_FOR_STOPPING NAME This field holds a list of Medical reasons for various areas of Medicine. Examples: Explain reasons for Pacemaker, Reason for stopping for PFT, etc.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {REASON_FOR_STOPPING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REASON_FOR_STOPPING_NAME 1 FileMan Field Label: 'REASON FOR TEST' FileMan Field Number: '3' This field documents the rationale of the procedure for this patient. %Library.EnumString 8 REASON_FOR_TEST FileMan Field Label: 'REF. MD' FileMan Field Number: '6' This field identifies the referring physician. %Library.String 10 REF__MD FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' %Library.EnumString 81 RELEASE_CODE FileMan Field Label: 'RESTING EKG' FileMan Field Number: '5' This field refers to the latest, pre-exercise EKG procedure. %Library.String 9 RESTING_EKG FileMan Field Label: 'RS DBP' FileMan Field Number: '11' This field identifies resting/supine Diastolic blood pressure. %Library.Numeric 16 RS_DBP FileMan Field Label: 'RS HR' FileMan Field Number: '9' This field identifies the resting/supine heart rate. %Library.Numeric 14 RS_HR FileMan Field Label: 'RS RPP' FileMan Field Number: '12' This field identifies a number based on the resting heart rate and resting systolic pressure. %Library.String 1 17 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,12,9.3) S X=$S(Y(691.7,12,2):Y(691.7,12,3),Y(691.7,12,4):Y(691.7,12,5),Y(691.7,12,6):X) set {RS_RPP}=X 1 RS_RPP FileMan Field Label: 'RS SBP' FileMan Field Number: '10' This field identifies the resting/supine systolic blood pressure. %Library.Numeric 15 RS_SBP FileMan Field Label: 'RS ST' FileMan Field Number: '17' This field identifies the resting/supine ST elevation. %Library.Numeric 22 RS_ST FileMan Field Label: 'RS ST SLOPE' FileMan Field Number: '18' This field identifies the resting/supine ST slope. %Library.Numeric 24 RS_ST_SLOPE FileMan Field Label: 'RU DBP' FileMan Field Number: '15' This field identifies the resting/upright diastolic blood pressure. %Library.Numeric 20 RU_DBP FileMan Field Label: 'RU HR' FileMan Field Number: '13' This field identifies the resting/upright heart rate. %Library.Numeric 18 RU_HR FileMan Field Label: 'RU RPP' FileMan Field Number: '16' This field identifies based on the resting/upright heart rate and systolic pressure. %Library.String 1 21 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,16,9.3) S X=$S(Y(691.7,16,2):Y(691.7,16,3),Y(691.7,16,4):Y(691.7,16,5),Y(691.7,16,6):X) set {RU_RPP}=X 1 RU_RPP FileMan Field Label: 'RU SBP' FileMan Field Number: '14' This field identifies the resting,upright systolic blood pressure. %Library.Numeric 19 RU_SBP FileMan Field Label: 'RU ST' FileMan Field Number: '17.5' This field identifies the resting/upright ST elevation. %Library.Numeric 23 RU_ST FileMan Field Label: 'RU ST SLOPE' FileMan Field Number: '19' This field identifies the resting/upright ST slope. %Library.Numeric 25 RU_ST_SLOPE FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 79 SIGNER_VALIDATION_CODE Relationship for Sub-File/Multiple to file name COMPLICATIONS child VALIP.prosthetic.fm2cw.SUBCOMPLICATIONS691703 children EXERCISETOLERANCETEST6917 1 SUB_COMPLICATIONS_691_703 Relationship for Sub-File/Multiple to file name HEART MED child VALIP.prosthetic.fm2cw.SUBHEARTMED69171 children EXERCISETOLERANCETEST6917 1 SUB_HEART_MED_691_71 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS691704 children EXERCISETOLERANCETEST6917 1 SUB_ICD_DIAGNOSIS_691_704 Relationship for Sub-File/Multiple to file name OTHER MEDICATION child VALIP.prosthetic.fm2cw.SUBOTHERMEDICATION69174 children EXERCISETOLERANCETEST6917 1 SUB_OTHER_MEDICATION_691_74 Relationship for Sub-File/Multiple to file name RISK FACTOR child VALIP.prosthetic.fm2cw.SUBRISKFACTOR691702 children EXERCISETOLERANCETEST6917 1 SUB_RISK_FACTOR_691_702 Relationship for Sub-File/Multiple to file name SYMPTOM child VALIP.prosthetic.fm2cw.SUBSYMPTOM691701 children EXERCISETOLERANCETEST6917 1 SUB_SYMPTOM_691_701 FileMan Field Label: 'SUMMARY' FileMan Field Number: '.03' This field contains the gross evaluation of the results of this procedure. %Library.EnumString 5 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 84 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 85 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.String 88 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' %Library.Numeric 90 SUPERSEDED_NUMBER FileMan Field Label: '% TARGET HR' FileMan Field Number: '48' This field identifies the percentage of target heart rate achieved. %Library.Numeric 1 52 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.7,48,9.3) S X=$S(Y(691.7,48,2):Y(691.7,48,3),Y(691.7,48,4):X) S X=$J(X,0,0) set {TARGET_HR}=X 1 TARGET_HR FileMan Field Label: 'TIME RETURN BASELINE ST' FileMan Field Number: '54' This field identifies the time that the ST segment returned to baseline. %Library.String 59 TIME_RETURN_BASELINE_ST FileMan Field Label: 'TIME ST - 1' FileMan Field Number: '47' This field identifies time of ST-1. %Library.String 51 TIME_ST__1 FileMan Field Label: 'TIME ST - 2' FileMan Field Number: '49' This field identifies the time of ST-2. %Library.String 53 TIME_ST__2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 91 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 80 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 78 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '69' This field identifies the in-house patient location. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 69 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.EXERCISE_TOLERANCE_TEST_691_7 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 FileMan Field Label: 'WATTS' FileMan Field Number: '32.2' This field identifies the wattage. %Library.Numeric 41 WATTS FileMan Field Label: 'WT LBS' FileMan Field Number: '6.1' This field identifies is the patient's weight in pounds at the time of this procedure. %Library.Numeric 11 WT_LBS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(691.7," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME_OF_TEST}'="" FDA(691.7,"+1,",.01)={"DATETIME_OF_TEST"} set:{ID}'="" FDA(691.7,"+1,",.02)={"ID"} set:{SUMMARY}'="" FDA(691.7,"+1,",.03)={"SUMMARY"} set:{MEDICAL_PATIENT}'="" FDA(691.7,"+1,",1)={"MEDICAL_PATIENT"} set:{DATETIME_OF_APPOINTMENT}'="" FDA(691.7,"+1,",2)={"DATETIME_OF_APPOINTMENT"} set:{REASON_FOR_TEST}'="" FDA(691.7,"+1,",3)={"REASON_FOR_TEST"} set:{REF__MD}'="" FDA(691.7,"+1,",6)={"REF__MD"} set:{WT_LBS}'="" FDA(691.7,"+1,",6.1)={"WT_LBS"} set:{ETT_PROTOCOL}'="" FDA(691.7,"+1,",7)={"ETT_PROTOCOL"} set:{HYPERVENTILATION}'="" FDA(691.7,"+1,",8)={"HYPERVENTILATION"} set:{RS_HR}'="" FDA(691.7,"+1,",9)={"RS_HR"} set:{RS_SBP}'="" FDA(691.7,"+1,",10)={"RS_SBP"} set:{RS_DBP}'="" FDA(691.7,"+1,",11)={"RS_DBP"} set:{RU_HR}'="" FDA(691.7,"+1,",13)={"RU_HR"} set:{RU_SBP}'="" FDA(691.7,"+1,",14)={"RU_SBP"} set:{RU_DBP}'="" FDA(691.7,"+1,",15)={"RU_DBP"} set:{RS_ST}'="" FDA(691.7,"+1,",17)={"RS_ST"} set:{RU_ST}'="" FDA(691.7,"+1,",17.5)={"RU_ST"} set:{RS_ST_SLOPE}'="" FDA(691.7,"+1,",18)={"RS_ST_SLOPE"} set:{RU_ST_SLOPE}'="" FDA(691.7,"+1,",19)={"RU_ST_SLOPE"} set:{CP_TME_MIN}'="" FDA(691.7,"+1,",20)={"CP_TME_MIN"} set:{CP_TME_SEC}'="" FDA(691.7,"+1,",21)={"CP_TME_SEC"} set:{CP_MODIFIER}'="" FDA(691.7,"+1,",21.5)={"CP_MODIFIER"} set:{ONSET_CP_HR}'="" FDA(691.7,"+1,",23)={"ONSET_CP_HR"} set:{ONSET_CP_SBP}'="" FDA(691.7,"+1,",24)={"ONSET_CP_SBP"} set:{ONSET_CP_DBP}'="" FDA(691.7,"+1,",25)={"ONSET_CP_DBP"} set:{ONSET_CP_ST}'="" FDA(691.7,"+1,",26)={"ONSET_CP_ST"} set:{ONSET_CP_ST_SLOPE}'="" FDA(691.7,"+1,",27)={"ONSET_CP_ST_SLOPE"} set:{PK_HR}'="" FDA(691.7,"+1,",29)={"PK_HR"} set:{PK_SBP}'="" FDA(691.7,"+1,",30)={"PK_SBP"} set:{PK_DBP}'="" FDA(691.7,"+1,",31)={"PK_DBP"} set:{PK_EX_MPH}'="" FDA(691.7,"+1,",32)={"PK_EX_MPH"} set:{KILO_POND_METERS_KPM}'="" FDA(691.7,"+1,",32.1)={"KILO_POND_METERS_KPM"} set:{WATTS}'="" FDA(691.7,"+1,",32.2)={"WATTS"} set:{PK_EX_GRADE}'="" FDA(691.7,"+1,",33)={"PK_EX_GRADE"} set:{METS}'="" FDA(691.7,"+1,",34)={"METS"} set:{PK_ST}'="" FDA(691.7,"+1,",39)={"PK_ST"} set:{PK_ST_SLOPE}'="" FDA(691.7,"+1,",40)={"PK_ST_SLOPE"} set:{EX_TIME_MIN}'="" FDA(691.7,"+1,",44)={"EX_TIME_MIN"} set:{EX_TIME_SEC}'="" FDA(691.7,"+1,",45)={"EX_TIME_SEC"} set:{TIME_ST__1}'="" FDA(691.7,"+1,",47)={"TIME_ST__1"} set:{TIME_ST__2}'="" FDA(691.7,"+1,",49)={"TIME_ST__2"} set:{REASON_FOR_STOPPING}'="" FDA(691.7,"+1,",50)={"REASON_FOR_STOPPING"} set:{ARRHYTHMIAS}'="" FDA(691.7,"+1,",51)={"ARRHYTHMIAS"} set:{HEART_RATE_RESPONSE}'="" FDA(691.7,"+1,",53)={"HEART_RATE_RESPONSE"} set:{BLOOD_PRESSURE_RESPONSE}'="" FDA(691.7,"+1,",53.5)={"BLOOD_PRESSURE_RESPONSE"} set:{TIME_RETURN_BASELINE_ST}'="" FDA(691.7,"+1,",54)={"TIME_RETURN_BASELINE_ST"} set:{INTERPRETATION}'="" FDA(691.7,"+1,",55)={"INTERPRETATION"} set:{EKG_TECHNICIAN}'="" FDA(691.7,"+1,",57)={"EKG_TECHNICIAN"} set:{ATTN_PHYS}'="" FDA(691.7,"+1,",58)={"ATTN_PHYS"} set:{WARDCLINIC}'="" FDA(691.7,"+1,",69)={"WARDCLINIC"} set:{PROCEDURE_SUMMARY}'="" FDA(691.7,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(691.7,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(691.7,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(691.7,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(691.7,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(691.7,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(691.7,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(691.7,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(691.7,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(691.7,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(691.7,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(691.7,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(691.7,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(691.7,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(691.7,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(691.7,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETION}'="" FDA(691.7,"+1,",1511)={"MARK_FOR_DELETION"} set:{DELETER_DUZ}'="" FDA(691.7,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(691.7,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(691.7,"+1,",1514)={"CREATION_DATE"} set:{SUPERSEDED_NUMBER}'="" FDA(691.7,"+1,",1515)={"SUPERSEDED_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(691.7)") set %SkipFiling=1 if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {RESTING_EKG}'="" { set D0={RowId} for i=1:1:$l({RESTING_EKG},$c(13,10)) { set wp(i)=$p({RESTING_EKG},$c(13,10),i) } do WP^DIE(691.7,{RowId},5,,"wp","%FMERR(691.7)") if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_EKG_CHANGE}'="" { set D0={RowId} for i=1:1:$l({OTHER_EKG_CHANGE},$c(13,10)) { set wp(i)=$p({OTHER_EKG_CHANGE},$c(13,10),i) } do WP^DIE(691.7,{RowId},52,,"wp","%FMERR(691.7)") if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENT}'="" { set D0={RowId} for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) } do WP^DIE(691.7,{RowId},56,,"wp","%FMERR(691.7)") if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME_OF_TEST*C} FDA(691.7,IENS,.01)={DATETIME_OF_TEST} set:{ID*C} FDA(691.7,IENS,.02)={ID} set:{SUMMARY*C} FDA(691.7,IENS,.03)={SUMMARY} set:{MEDICAL_PATIENT*C} FDA(691.7,IENS,1)={MEDICAL_PATIENT} set:{DATETIME_OF_APPOINTMENT*C} FDA(691.7,IENS,2)={DATETIME_OF_APPOINTMENT} set:{REASON_FOR_TEST*C} FDA(691.7,IENS,3)={REASON_FOR_TEST} set:{REF__MD*C} FDA(691.7,IENS,6)={REF__MD} set:{WT_LBS*C} FDA(691.7,IENS,6.1)={WT_LBS} set:{ETT_PROTOCOL*C} FDA(691.7,IENS,7)={ETT_PROTOCOL} set:{HYPERVENTILATION*C} FDA(691.7,IENS,8)={HYPERVENTILATION} set:{RS_HR*C} FDA(691.7,IENS,9)={RS_HR} set:{RS_SBP*C} FDA(691.7,IENS,10)={RS_SBP} set:{RS_DBP*C} FDA(691.7,IENS,11)={RS_DBP} set:{RU_HR*C} FDA(691.7,IENS,13)={RU_HR} set:{RU_SBP*C} FDA(691.7,IENS,14)={RU_SBP} set:{RU_DBP*C} FDA(691.7,IENS,15)={RU_DBP} set:{RS_ST*C} FDA(691.7,IENS,17)={RS_ST} set:{RU_ST*C} FDA(691.7,IENS,17.5)={RU_ST} set:{RS_ST_SLOPE*C} FDA(691.7,IENS,18)={RS_ST_SLOPE} set:{RU_ST_SLOPE*C} FDA(691.7,IENS,19)={RU_ST_SLOPE} set:{CP_TME_MIN*C} FDA(691.7,IENS,20)={CP_TME_MIN} set:{CP_TME_SEC*C} FDA(691.7,IENS,21)={CP_TME_SEC} set:{CP_MODIFIER*C} FDA(691.7,IENS,21.5)={CP_MODIFIER} set:{ONSET_CP_HR*C} FDA(691.7,IENS,23)={ONSET_CP_HR} set:{ONSET_CP_SBP*C} FDA(691.7,IENS,24)={ONSET_CP_SBP} set:{ONSET_CP_DBP*C} FDA(691.7,IENS,25)={ONSET_CP_DBP} set:{ONSET_CP_ST*C} FDA(691.7,IENS,26)={ONSET_CP_ST} set:{ONSET_CP_ST_SLOPE*C} FDA(691.7,IENS,27)={ONSET_CP_ST_SLOPE} set:{PK_HR*C} FDA(691.7,IENS,29)={PK_HR} set:{PK_SBP*C} FDA(691.7,IENS,30)={PK_SBP} set:{PK_DBP*C} FDA(691.7,IENS,31)={PK_DBP} set:{PK_EX_MPH*C} FDA(691.7,IENS,32)={PK_EX_MPH} set:{KILO_POND_METERS_KPM*C} FDA(691.7,IENS,32.1)={KILO_POND_METERS_KPM} set:{WATTS*C} FDA(691.7,IENS,32.2)={WATTS} set:{PK_EX_GRADE*C} FDA(691.7,IENS,33)={PK_EX_GRADE} set:{METS*C} FDA(691.7,IENS,34)={METS} set:{PK_ST*C} FDA(691.7,IENS,39)={PK_ST} set:{PK_ST_SLOPE*C} FDA(691.7,IENS,40)={PK_ST_SLOPE} set:{EX_TIME_MIN*C} FDA(691.7,IENS,44)={EX_TIME_MIN} set:{EX_TIME_SEC*C} FDA(691.7,IENS,45)={EX_TIME_SEC} set:{TIME_ST__1*C} FDA(691.7,IENS,47)={TIME_ST__1} set:{TIME_ST__2*C} FDA(691.7,IENS,49)={TIME_ST__2} set:{REASON_FOR_STOPPING*C} FDA(691.7,IENS,50)={REASON_FOR_STOPPING} set:{ARRHYTHMIAS*C} FDA(691.7,IENS,51)={ARRHYTHMIAS} set:{HEART_RATE_RESPONSE*C} FDA(691.7,IENS,53)={HEART_RATE_RESPONSE} set:{BLOOD_PRESSURE_RESPONSE*C} FDA(691.7,IENS,53.5)={BLOOD_PRESSURE_RESPONSE} set:{TIME_RETURN_BASELINE_ST*C} FDA(691.7,IENS,54)={TIME_RETURN_BASELINE_ST} set:{INTERPRETATION*C} FDA(691.7,IENS,55)={INTERPRETATION} set:{EKG_TECHNICIAN*C} FDA(691.7,IENS,57)={EKG_TECHNICIAN} set:{ATTN_PHYS*C} FDA(691.7,IENS,58)={ATTN_PHYS} set:{WARDCLINIC*C} FDA(691.7,IENS,69)={WARDCLINIC} set:{PROCEDURE_SUMMARY*C} FDA(691.7,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(691.7,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(691.7,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(691.7,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(691.7,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(691.7,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(691.7,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(691.7,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(691.7,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(691.7,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(691.7,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(691.7,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(691.7,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(691.7,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(691.7,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(691.7,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETION*C} FDA(691.7,IENS,1511)={MARK_FOR_DELETION} set:{DELETER_DUZ*C} FDA(691.7,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(691.7,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(691.7,IENS,1514)={CREATION_DATE} set:{SUPERSEDED_NUMBER*C} FDA(691.7,IENS,1515)={SUPERSEDED_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.7)") set %SkipFiling=1 if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {RESTING_EKG*C} { set D0={RowId} kill wp if {RESTING_EKG}'="" { set wproot="wp" for i=1:1:$l({RESTING_EKG},$c(13,10)) { set wp(i)=$p({RESTING_EKG},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.7,{RowId},5,,wproot,"%FMERR(691.7)") if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_EKG_CHANGE*C} { set D0={RowId} kill wp if {OTHER_EKG_CHANGE}'="" { set wproot="wp" for i=1:1:$l({OTHER_EKG_CHANGE},$c(13,10)) { set wp(i)=$p({OTHER_EKG_CHANGE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.7,{RowId},52,,wproot,"%FMERR(691.7)") if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENT*C} { set D0={RowId} kill wp if {COMMENT}'="" { set wproot="wp" for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.7,{RowId},56,,wproot,"%FMERR(691.7)") if $d(%FMERR(691.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.EXERCISETOL604FS index ^MCAR nonnull 691.7 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 691.7 "B" {DATETIME_OF_TEST} {IEN} 0]]> index ^MCAR nonnull 691.7 "C" {MEDICAL_PATIENT} {IEN} 0]]> index {RELEASE_CODE}'="" 1 ^MCAR conditional 691.7 "ES" $$TRUNCATE({RELEASE_CODE},30)) {IEN} 0]]> data ^MCAR 691.7 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 5 4 "^" 7 2 "^" 7 4 6 new data,i,node set {COMMENT}="" merge data=^MCAR(691.7,{S2},6) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENT}={COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "ES" 2 "^" 10 2 "^" 3 13 "^" 3 14 "^" "ES" 15 "^" 0 3 "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" 7 1 "^" "ES" 3 "^" "ES" 1 "^" 3 2 "^" 4 9 "^" 4 10 "^" "OR" 2 "^" 5 6 "^" 3 3 "^" .1 1 "^" 5 8 "^" 10 3 "^" "ES" 12 "^" 0 2 "^" 4 6 "^" 3 17 "^" 3 15 "^" 3 16 "^" 3 18 "^" 3 19 "^" "OR" 1 9 new data,i,node set {OTHER_EKG_CHANGE}="" merge data=^MCAR(691.7,{S2},9) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_EKG_CHANGE}={OTHER_EKG_CHANGE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PCC" 1 "^" 4 3 "^" 4 5 "^" 4 4 "^" 4 1 "^" 4 2 "^" 4 7 "^" 4 8 "^" "PROV" 1 "^" .2 2 "^" 5 3 "^" 0 4 "^" 3 1 "^" "ES" 7 2 new data,i,node set {RESTING_EKG}="" merge data=^MCAR(691.7,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {RESTING_EKG}={RESTING_EKG}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 3 6 "^" 3 4 "^" 3 5 "^" 3 10 "^" 3 11 "^" 3 9 "^" 3 7 "^" 3 8 "^" 7 3 "^" 3 12 "^" "ES" 5 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 "^" 5 7 "^" 5 1 "^" 5 2 "^" "ES" 6 "^" "ES" 4 "^" 10 5 "^" 10 4 "^" 10 1 Generated class for FileMan File Number: '757.01' File Name: 'EXPRESSIONS' Class generated by %fm2class version 2.56 This file contains all text pertaining to the Major Concepts, Concept Synonyms, Concept Lexical Variants, Synonymous Lexical Variants, and Modified Concepts. It includes displayable text, distinguishing text (that portion of text that makes a modified concept different from the parent concept) and the term definitions (when available). Searches are conducted using the special look-up routine LEXA1. persistent _PUBLIC 0 RowId EXPRESSIONS_757_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.559447214 67178,44708.962529343 right EXPRESSIONS 757.01 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'DEACTIVATION FLAG' FileMan Field Number: '9' This field indicates that a term formerly in use by the Lexicon has been deactivated and should not be used in lookups or displays. %Library.EnumString 6 DEACTIVATION_FLAG FileMan Field Label: 'DEFINITION' FileMan Field Number: '6' Definition of an expression when available. %Library.String 5 DEFINITION FileMan Field Label: 'DISPLAYABLE TEXT' FileMan Field Number: '.01' This is the text which will be used to represent the expression (Major Concept, Synonym or Lexical Variant). %Library.String 1 3 DISPLAYABLE_TEXT Internal Entry Number %Library.String $$next^%apiSQL("$p(^LEX(757.01,0),""^"",3)") 1 2 IEN FileMan Field Label: 'SCOPE' FileMan Field Number: '3' Scope - Demonstrates the relationship of the term to the Major Concept. Major Concepts, Synonyms to Major Concepts and Lexical Variants to a Major Concept are (D)irectly linked. Lexical Variants to a Synonym of a Major Concept are (I)ndirectly linked. Related concepts are either (B)roader in scope, (N)arrower in scope, or an (O)ther/undefined view of the Major Concept. %Library.EnumString 4 SCOPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LEX(757.01," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DISPLAYABLE_TEXT}'="" FDA(757.01,"+1,",.01)={"DISPLAYABLE_TEXT"} set:{SCOPE}'="" FDA(757.01,"+1,",3)={"SCOPE"} set:{DEACTIVATION_FLAG}'="" FDA(757.01,"+1,",9)={"DEACTIVATION_FLAG"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(757.01)") set %SkipFiling=1 if $d(%FMERR(757.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(757.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFINITION}'="" { set D0={RowId} for i=1:1:$l({DEFINITION},$c(13,10)) { set wp(i)=$p({DEFINITION},$c(13,10),i) } do WP^DIE(757.01,{RowId},6,,"wp","%FMERR(757.01)") if $d(%FMERR(757.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(757.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DISPLAYABLE_TEXT*C} FDA(757.01,IENS,.01)={DISPLAYABLE_TEXT} set:{SCOPE*C} FDA(757.01,IENS,3)={SCOPE} set:{DEACTIVATION_FLAG*C} FDA(757.01,IENS,9)={DEACTIVATION_FLAG} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(757.01)") set %SkipFiling=1 if $d(%FMERR(757.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(757.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFINITION*C} { set D0={RowId} kill wp if {DEFINITION}'="" { set wproot="wp" for i=1:1:$l({DEFINITION},$c(13,10)) { set wp(i)=$p({DEFINITION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(757.01,{RowId},6,,wproot,"%FMERR(757.01)") if $d(%FMERR(757.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(757.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.EXPRESSIONS75EES data ^LEX 757.01 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 5 3 new data,i,node set {DEFINITION}="" merge data=^LEX(757.01,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DEFINITION}={DEFINITION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 1 3 Generated class for FileMan File Number: '45.7' File Name: 'FACILITY TREATING SPECIALTY' Class generated by %fm2class version 2.56 This file is used to maintain the various teams of specialties that are used to treat a patient during his episodes of care. A change in the bedsection associated with the treating specialties causes the generation of changes in bedsection for PTF purposes. persistent _PUBLIC 0 RowId FACILITY_TREATING_SPECIALTY_45_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.585857894 67178,44709.102980258 right FACILITY TREATING SPECIALTY 45.7 2.56 12/04/2024 12:25:09 1 1 IEN 1 %Library.String 4 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(45.7,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(45.7," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(45.7,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(45.7,"+1,",99)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(45.7)") set %SkipFiling=1 if $d(%FMERR(45.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(45.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(45.7,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(45.7,IENS,99)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(45.7)") set %SkipFiling=1 if $d(%FMERR(45.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(45.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.FACILITYTRE4B0AS index ^DIC nonnull 45.7 "AHN" {ABBREVIATION} {IEN} 0]]> index ^DIC nonnull 45.7 "B" {NAME} {IEN} 0]]> data ^DIC 45.7 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '4.1' File Name: 'FACILITY TYPE' Class generated by %fm2class version 2.56 This file is pointed to by the Institution File. It containes a list of facility codes that had previously been stored in the VA Type Code field of the Institution File. This file is distributed with data, and the new data should overwrite the old. It is cross-referenced by name and full name. persistent _PUBLIC 0 RowId FACILITY_TYPE_4_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.610852097 67178,44709.133009144 right FACILITY TYPE 4.1 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'FULL NAME' FileMan Field Number: '1' This is the full name of the facility type code. %Library.String 4 FULL_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(4.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Type Code This is the Facility type code. %Library.String 1 3 NAME FileMan Field Label: 'STATUS' FileMan Field Number: '3' This field flags an entry as national. National entries can not be modified locally. National Institutions will only point to National facility types. %Library.EnumString 6 STATUS FileMan Field Label: 'TITLE' FileMan Field Number: '2' Reserved %Library.String 5 TITLE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(4.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(4.1,"+1,",.01)={"NAME"} set:{FULL_NAME}'="" FDA(4.1,"+1,",1)={"FULL_NAME"} set:{TITLE}'="" FDA(4.1,"+1,",2)={"TITLE"} set:{STATUS}'="" FDA(4.1,"+1,",3)={"STATUS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(4.1)") set %SkipFiling=1 if $d(%FMERR(4.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(4.1,IENS,.01)={NAME} set:{FULL_NAME*C} FDA(4.1,IENS,1)={FULL_NAME} set:{TITLE*C} FDA(4.1,IENS,2)={TITLE} set:{STATUS*C} FDA(4.1,IENS,3)={STATUS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.1)") set %SkipFiling=1 if $d(%FMERR(4.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.FACILITYTYPE41S index ^DIC nonnull 4.1 "B" {NAME} {IEN} 0]]> index {FULL_NAME}'="" 1 ^DIC conditional 4.1 "C" $$TRUNCATE({FULL_NAME},30)) {IEN} 0]]> data ^DIC 4.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 4 "^" 0 3 index ^DIC nonnull 4.1 "XUMF" {STATUS} {IEN} 0]]> Generated class for FileMan File Number: '25002.1' File Name: 'FEDERAL GRADES/RANKS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId FEDERAL_GRADESRANKS_25002_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.631519528 67178,44709.161860489 right FEDERAL GRADES/RANKS 25002.1 2.56 12/04/2024 12:25:09 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(25002.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '.04' %Library.EnumString 5 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 3 NAME FileMan Field Label: 'TYPE' FileMan Field Number: '.02' %Library.EnumString 4 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(25002.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(25002.1,"+1,",.01)={"NAME"} set:{TYPE}'="" FDA(25002.1,"+1,",.02)={"TYPE"} set:{INACTIVE}'="" FDA(25002.1,"+1,",.04)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(25002.1)") set %SkipFiling=1 if $d(%FMERR(25002.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(25002.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(25002.1,IENS,.01)={NAME} set:{TYPE*C} FDA(25002.1,IENS,.02)={TYPE} set:{INACTIVE*C} FDA(25002.1,IENS,.04)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(25002.1)") set %SkipFiling=1 if $d(%FMERR(25002.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(25002.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.FEDERALGRAD85FFS index ^DIC nonnull 25002.1 "B" {NAME} {IEN} 0]]> data ^DIC 25002.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 1 "^" 0 2 persistent _PUBLIC 0 RowId FEDERAL_SUPPLY_CLASSIFICATION_441_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.139564448 67178,44709.189554901 right FEDERAL SUPPLY CLASSIFICATION 441.2 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'ABBREVIATED DESCRIPTION' FileMan Field Number: '1' This is an abbreviated Federal Supply Classification description. %Library.String 1 4 ABBREVIATED_DESCRIPTION FileMan Field Label: 'COMMODITY CODE' FileMan Field Number: '4' This is the FSC commodity code. %Library.EnumString 6 COMMODITY_CODE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' This is a description of the classification. %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRC(441.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NUMBER' FileMan Field Number: '.01' This is the 4-character long Federal Supply Classification (FSC) code or Product Service Code (PSC). %Library.String 1 3 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRC(441.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NUMBER}'="" FDA(441.2,"+1,",.01)={"NUMBER"} set:{ABBREVIATED_DESCRIPTION}'="" FDA(441.2,"+1,",1)={"ABBREVIATED_DESCRIPTION"} set:{COMMODITY_CODE}'="" FDA(441.2,"+1,",4)={"COMMODITY_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(441.2)") set %SkipFiling=1 if $d(%FMERR(441.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(441.2,{RowId},2,,"wp","%FMERR(441.2)") if $d(%FMERR(441.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NUMBER*C} FDA(441.2,IENS,.01)={NUMBER} set:{ABBREVIATED_DESCRIPTION*C} FDA(441.2,IENS,1)={ABBREVIATED_DESCRIPTION} set:{COMMODITY_CODE*C} FDA(441.2,IENS,4)={COMMODITY_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(441.2)") set %SkipFiling=1 if $d(%FMERR(441.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(441.2,{RowId},2,,wproot,"%FMERR(441.2)") if $d(%FMERR(441.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.FEDERALSUPPDFC0S index ^PRC nonnull 441.2 "B" {NUMBER} {IEN} 0]]> index {ABBREVIATED_DESCRIPTION}'="" 1 ^PRC conditional 441.2 "D" $$TRUNCATE({ABBREVIATED_DESCRIPTION},30)) {IEN} 0]]> data ^PRC 441.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 4 1 new data,i,node set {DESCRIPTION}="" merge data=^PRC(441.2,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 Generated class for FileMan File Number: '1' File Name: '3241030' Class generated by %fm2class version 2.56 This file stores the descriptive information for all files in the FileMan managed database. persistent _PUBLIC 0 RowId FILE_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.646803899 67178,44709.218048553 right FILE 1 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'ARCHIVE FILE' FileMan Field Number: '54' %Library.String 1 20 set U="^",D0=$piece({RowId},"||",1) S X=$S($D(^DD(D0,0,"DI")):$P(^("DI"),U),1:"") set {ARCHIVE_FILE}=X 1 ARCHIVE_FILE FileMan Field Label: 'AUDIT ACCESS' FileMan Field Number: '36' %Library.String 1 15 set U="^",D0=$piece({RowId},"||",1) S X=$S($D(^DIC(D0,0,"AUDIT")):^("AUDIT"),1:"") set {AUDIT_ACCESS}=X 1 AUDIT_ACCESS FileMan Field Label: 'BUILD' FileMan Field Number: '21400' The Build File (#9.6) is searched for Builds containing the File. A list of the identified Builds is created for display. Multiple Builds will be shown if appropriate. %Library.String 1 24 set U="^",DICMX="",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) N D,DIF S DIF=D0 F D=0:0 S D=$O(^XPD(9.6,D)) Q:'D I $D(^(D,4,DIF)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$D(D) set {BUILD}=X 1 BUILD FileMan Field Label: 'COMPILED CROSS-REFERENCES' FileMan Field Number: '1819' Computed field that indicates whether or not cross-references are compiled. This field can be seen when doing an INQUIRE to the FILE file (file #1, sometimes referred to as the file of files.) %Library.String 1 23 set D0=$piece({RowId},"||",1) S X=$S($G(^DD(D0,0,"DIK"))]"":"YES",1:"NO") set {COMPILED_CROSSREFERENCES}=X 1 COMPILED_CROSSREFERENCES FileMan Field Label: 'COMPILED X-REF ROUTINE' FileMan Field Number: '1815' %Library.String 1 21 set D0=$piece({RowId},"||",1) S X=$G(^DD(D0,0,"DIK")) set {COMPILED_XREF_ROUTINE}=X 1 COMPILED_XREF_ROUTINE FileMan Field Label: 'DATE' FileMan Field Number: '21' %Library.FilemanDate 8 DATE21 FileMan Field Label: 'DD ACCESS' FileMan Field Number: '31' %Library.String 1 10 set D0=$piece({RowId},"||",1) S X=$S($D(^DIC(D0,0,"DD")):^("DD"),1:"") set {DD_ACCESS}=X 1 DD_ACCESS FileMan Field Label: 'DEL ACCESS' FileMan Field Number: '34' %Library.String 1 13 set D0=$piece({RowId},"||",1) S X=$S($D(^DIC(D0,0,"DEL")):^("DEL"),1:"") set {DEL_ACCESS}=X 1 DEL_ACCESS FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '4' %Library.String 7 DESCRIPTION FileMan Field Label: 'DISTRIBUTION PACKAGE' FileMan Field Number: '51.1' %Library.String 1 18 set D0=$piece({RowId},"||",1) S X=$G(^DD(D0,0,"VRPK")) set {DISTRIBUTION_PACKAGE}=X 1 DISTRIBUTION_PACKAGE FileMan Field Label: 'ENTRIES' FileMan Field Number: '1.1' %Library.Numeric 1 6 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S @("X=+$P("_$S($D(^DIC(D0,0,"GL")):"$S($D("_^("GL")_"0)):^(0),1:0)",1:0)_",""^"",4)") set {ENTRIES}=X 1 ENTRIES FileMan Field Label: 'GLOBAL NAME' FileMan Field Number: '1' %Library.String 1 5 set D0=$piece({RowId},"||",1) S X=$S($D(^DIC(D0,0,"GL")):^("GL"),1:"") set {GLOBAL_NAME}=X 1 GLOBAL_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(0),""^"",3)") 1 2 IEN FileMan Field Label: 'LAST DD MODIFICATION' FileMan Field Number: '21.214' This field contains the date the Data Dictionary was last edited. It is updated when Modify File Attributes is used to change the DD. %Library.FilemanTimeStamp 9 LAST_DD_MODIFICATION FileMan Field Label: 'LAYGO ACCESS' FileMan Field Number: '35' %Library.String 1 14 set D0=$piece({RowId},"||",1) S X=$S($D(^DIC(D0,0,"LAYGO")):^("LAYGO"),1:"") set {LAYGO_ACCESS}=X 1 LAYGO_ACCESS FileMan Field Label: 'LOOKUP PROGRAM' FileMan Field Number: '50' %Library.String 1 16 set D0=$piece({RowId},"||",1) S X=$S($D(^DD(D0,0,"DIC")):^("DIC"),1:"") set {LOOKUP_PROGRAM}=X 1 LOOKUP_PROGRAM FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'OLD COMPILED X-REF ROUTINE' FileMan Field Number: '1816' %Library.String 1 22 set D0=$piece({RowId},"||",1) S X=$G(^DD(D0,0,"DIKOLD")) set {OLD_COMPILED_XREF_ROUTINE}=X 1 OLD_COMPILED_XREF_ROUTINE FileMan Field Label: 'PACKAGE REVISION DATA' FileMan Field Number: '51.2' %Library.String 1 19 set D0=$piece({RowId},"||",1) S X=$G(^DD(D0,0,"VRRV")) set {PACKAGE_REVISION_DATA}=X 1 PACKAGE_REVISION_DATA FileMan Field Label: 'RD ACCESS' FileMan Field Number: '32' %Library.String 1 11 set D0=$piece({RowId},"||",1) S X=$S($D(^DIC(D0,0,"RD")):^("RD"),1:"") set {RD_ACCESS}=X 1 RD_ACCESS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 25 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERSION' FileMan Field Number: '51' %Library.String 1 17 set U="^",D0=$piece({RowId},"||",1) S X=$P($G(^DD(D0,0,"VR")),U) set {VERSION}=X 1 VERSION FileMan Field Label: 'WR ACCESS' FileMan Field Number: '33' %Library.String 1 12 set D0=$piece({RowId},"||",1) S X=$S($D(^DIC(D0,0,"WR")):^("WR"),1:"") set {WR_ACCESS}=X 1 WR_ACCESS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(1,"+1,",.01)={"NAME"} set:{DATE21}'="" FDA(1,"+1,",21)={"DATE21"} set:{LAST_DD_MODIFICATION}'="" FDA(1,"+1,",21.214)={"LAST_DD_MODIFICATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(1)") set %SkipFiling=1 if $d(%FMERR(1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(1,{RowId},4,,"wp","%FMERR(1)") if $d(%FMERR(1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(1,IENS,.01)={NAME} set:{DATE21*C} FDA(1,IENS,21)={DATE21} set:{LAST_DD_MODIFICATION*C} FDA(1,IENS,21.214)={LAST_DD_MODIFICATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(1)") set %SkipFiling=1 if $d(%FMERR(1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(1,{RowId},4,,wproot,"%FMERR(1)") if $d(%FMERR(1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic.fm2cw.FILE1S data ^DIC {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" "%A" 2 "%D" new data,i,node set {DESCRIPTION}="" merge data=^DIC({S1},"%D") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "%MSC" 1 "^" 0 1 Generated class for FileMan File Number: '699.85' File Name: 'FOLLOWUP DEVICE/THERAPY' Class generated by %fm2class version 2.56 This file holds the various types of follow-up devices and therapies for use with GI/Pulmonary modules. persistent _PUBLIC 0 RowId FOLLOWUP_DEVICETHERAPY_699_85 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.656649966 67178,44709.251433913 right FOLLOWUP DEVICE/THERAPY 699.85 2.56 12/04/2024 12:25:09 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.85,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field is used to store a list of follow-up devices and therapies applicable to Endoscopies. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name MEDICAL PACKAGE USE child VALIP.prosthetic.fm2cw.SUBMEDICALPACKAGEUSE699851 children FOLLOWUPDEVICETHERAPY69985 1 SUB_MEDICAL_PACKAGE_USE_699_851 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.85," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.85,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.85)") set %SkipFiling=1 if $d(%FMERR(699.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.85,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.85)") set %SkipFiling=1 if $d(%FMERR(699.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.FOLLOWUPDEVA7C4S index ^MCAR nonnull 699.85 "B" {NAME} {IEN} 0]]> data ^MCAR 699.85 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '61.3' File Name: 'FUNCTION FIELD' Class generated by %fm2class version 2.56 This is the FUNCTION field of SNOMED persistent _PUBLIC 0 RowId FUNCTION_FIELD_61_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.683879367 67178,44709.279553381 right FUNCTION FIELD 61.3 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '6' This is a 1 to 5 character abbreviation for this function which is used as a unique code for it. %Library.String 8 ABBREVIATION FileMan Field Label: 'COMMENT' FileMan Field Number: '7' If there are some additional comments which should be associated the function to assist the user. %Library.String 9 COMMENT FileMan Field Label: 'COMPATIBILITY FACTOR' FileMan Field Number: '.06' If an antigen enter the incidence (as a decimal) in the population. If an antibody enter the frequency the corresponding antigen is absent in the population. %Library.Numeric 4 COMPATIBILITY_FACTOR FileMan Field Label: 'IDENTIFIER' FileMan Field Number: '4' This is a blood bank identifier. %Library.EnumString 7 IDENTIFIER Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(61.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of the function. %Library.String 1 3 NAME %Library.String 6 SECTION2_5 FileMan Field Label: 'SNOMED CODE' FileMan Field Number: '2' ENTER CHARACTERS FOLLOWING 'F-' IN SNOMED REFERENCE BOOK The characters following "F-" in the SNOMED reference book. %Library.String 1 5 SNOMED_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(61.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(61.3,"+1,",.01)={"NAME"} set:{COMPATIBILITY_FACTOR}'="" FDA(61.3,"+1,",.06)={"COMPATIBILITY_FACTOR"} set:{SNOMED_CODE}'="" FDA(61.3,"+1,",2)={"SNOMED_CODE"} set:{SECTION2_5}'="" FDA(61.3,"+1,",2.5)={"SECTION2_5"} set:{IDENTIFIER}'="" FDA(61.3,"+1,",4)={"IDENTIFIER"} set:{ABBREVIATION}'="" FDA(61.3,"+1,",6)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(61.3)") set %SkipFiling=1 if $d(%FMERR(61.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENT}'="" { set D0={RowId} for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) } do WP^DIE(61.3,{RowId},7,,"wp","%FMERR(61.3)") if $d(%FMERR(61.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(61.3,IENS,.01)={NAME} set:{COMPATIBILITY_FACTOR*C} FDA(61.3,IENS,.06)={COMPATIBILITY_FACTOR} set:{SNOMED_CODE*C} FDA(61.3,IENS,2)={SNOMED_CODE} set:{SECTION2_5*C} FDA(61.3,IENS,2.5)={SECTION2_5} set:{IDENTIFIER*C} FDA(61.3,IENS,4)={IDENTIFIER} set:{ABBREVIATION*C} FDA(61.3,IENS,6)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(61.3)") set %SkipFiling=1 if $d(%FMERR(61.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENT*C} { set D0={RowId} kill wp if {COMMENT}'="" { set wproot="wp" for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(61.3,{RowId},7,,wproot,"%FMERR(61.3)") if $d(%FMERR(61.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.FUNCTIONFIECB75S index ^LAB nonnull 61.3 "B" {NAME} {IEN} 0]]> index ^LAB nonnull 61.3 "C" {SNOMED_CODE} {IEN} 0]]> index ^LAB nonnull 61.3 "E" {IDENTIFIER} {IEN} 0]]> data ^LAB 61.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 7 7 new data,i,node set {COMMENT}="" merge data=^LAB(61.3,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENT}={COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" 0 5 "^" 0 1 "^" 0 3 "^" 0 2 Generated class for FileMan File Number: '699.5' File Name: 'GENERALIZED PROCEDURE/CONSULT' Class generated by %fm2class version 2.56 This file stores basic information on procedures in subspecialties for which separate files do not currently exist in the Medicine package. persistent _PUBLIC 0 RowId GENERALIZED_PROCEDURECONSULT_699_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.717489816 67178,44709.310017093 right GENERALIZED PROCEDURE/CONSULT 699.5 2.56 12/04/2024 12:25:09 1 1 IEN 1 CONSULTATION_TYPE_699_82]]> CONSULTATIONTYPE VALIP.prosthetic.fm2cw.CONSULTATIONTYPE69982 FKey_CONSULTATION_TYPE NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER PROCEDURESUBSPECIALTY_697_2]]> PROCEDURE06 VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 FKey_PROCEDURE_06 NEW_PERSON_200]]> PROVIDERPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PROVIDERPHYSICIAN PROCEDURESUBSPECIALTY_697_2]]> SUBSPECIALTY VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 FKey_SUBSPECIALTY NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ FileMan Field Label: 'ASSESSMENT/FINDINGS' FileMan Field Number: '34' %Library.String 15 ASSESSMENTFINDINGS FileMan Field Label: 'CONSULTATION TYPE' FileMan Field Number: '31.5' VALIP.prosthetic.fm2cw.CONSULTATIONTYPE69982 12 CONSULTATION_TYPE NAME This field identifies a list of Consultation types for use with the Consult enter/edit. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {CONSULTATION_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONSULTATION_TYPE_NAME 1 FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 24 COSIGNER_VALIDATION_CODE FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 37 CREATION_DATE FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 30 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 31 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 35 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 25 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 23 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 22 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDICATION' FileMan Field Number: '1' %Library.String 7 INDICATION FileMan Field Label: 'INDICATION COMMENT' FileMan Field Number: '3' This field is used in the Problem-Oriented Consult Enter/Edit and Print. %Library.String 10 INDICATION_COMMENT FileMan Field Label: 'MARK FOR DELETATION' FileMan Field Number: '1511' %Library.EnumString 34 MARK_FOR_DELETATION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '.02' VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'OBJECTIVE' FileMan Field Number: '33' %Library.String 14 OBJECTIVE FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 21 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OUTPUT-FORMATTED POC' FileMan Field Number: '2.01' This field formats the PROBLEM ORIENTED CONSULT? field (#2) for the output report. %Library.String 1 9 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(699.5,2.01,9.4) S X=$S(Y(699.5,2.01,3):Y(699.5,2.01,4),Y(699.5,2.01,5):X) set {OUTPUTFORMATTED_POC}=X 1 OUTPUTFORMATTED_POC FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 20 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PLAN' FileMan Field Number: '35' %Library.String 16 PLAN FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 19 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROBLEM ORIENTED CONSULT?' FileMan Field Number: '2' This field is automatically stuffed if an entry is made though the various Medicine package sub-modules' Problem-Oriented Consult Option. %Library.EnumString 8 PROBLEM_ORIENTED_CONSULT FileMan Field Label: 'PROCEDURE' FileMan Field Number: '.06' Only procedure in the PROCEDURE/SUBSPECIALTY file will be chosen. VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 6 PROCEDURE_06 NAME The short names of the various medicine procedures are stored here.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {PROCEDURE_06_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE_06_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' %Library.String 17 PROCEDURE_SUMMARY FileMan Field Label: 'PROVIDER/PHYSICIAN' FileMan Field Number: '6' VALIP.prosthetic.fm2cw.NEWPERSON200 11 PROVIDERPHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {PROVIDERPHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROVIDERPHYSICIAN_NAME 1 FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' %Library.EnumString 29 RELEASE_CODE FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 27 SIGNER_VALIDATION_CODE FileMan Field Label: 'SUBJECTIVE' FileMan Field Number: '32' %Library.String 13 SUBJECTIVE FileMan Field Label: 'SUBSPECIALTY' FileMan Field Number: '.05' Only subspecailty in the PROCEDURE/SUBSPECIALTY file will be chosen. VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 1 5 SUBSPECIALTY NAME The short names of the various medicine procedures are stored here.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {SUBSPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SUBSPECIALTY_NAME 1 Relationship for Sub-File/Multiple to file name COMPLICATIONS child VALIP.prosthetic.fm2cw.SUBCOMPLICATIONS69951 children GENERALIZEDPROCEDURECONSULT6995 1 SUB_COMPLICATIONS_699_51 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69954 children GENERALIZEDPROCEDURECONSULT6995 1 SUB_ICD_DIAGNOSIS_699_54 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE69952005 children GENERALIZEDPROCEDURECONSULT6995 1 SUB_IMAGE_699_52005 Relationship for Sub-File/Multiple to file name MEDICATIONS child VALIP.prosthetic.fm2cw.SUBMEDICATIONS69953 children GENERALIZEDPROCEDURECONSULT6995 1 SUB_MEDICATIONS_699_53 Relationship for Sub-File/Multiple to file name TECHNIQUE child VALIP.prosthetic.fm2cw.SUBTECHNIQUE699501 children GENERALIZEDPROCEDURECONSULT6995 1 SUB_TECHNIQUE_699_501 FileMan Field Label: 'SUMMARY' FileMan Field Number: '601' %Library.EnumString 18 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 32 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 33 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.FilemanTimeStamp 36 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' %Library.Numeric 38 SUPERSEDED_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 39 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 28 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 26 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERALIZED_PROCEDURECONSULT_699_5 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(699.5,"+1,",.01)={"DATETIME"} set:{MEDICAL_PATIENT}'="" FDA(699.5,"+1,",.02)={"MEDICAL_PATIENT"} set:{SUBSPECIALTY}'="" FDA(699.5,"+1,",.05)={"SUBSPECIALTY"} set:{PROCEDURE_06}'="" FDA(699.5,"+1,",.06)={"PROCEDURE_06"} set:{PROBLEM_ORIENTED_CONSULT}'="" FDA(699.5,"+1,",2)={"PROBLEM_ORIENTED_CONSULT"} set:{INDICATION_COMMENT}'="" FDA(699.5,"+1,",3)={"INDICATION_COMMENT"} set:{PROVIDERPHYSICIAN}'="" FDA(699.5,"+1,",6)={"PROVIDERPHYSICIAN"} set:{CONSULTATION_TYPE}'="" FDA(699.5,"+1,",31.5)={"CONSULTATION_TYPE"} set:{PROCEDURE_SUMMARY}'="" FDA(699.5,"+1,",600)={"PROCEDURE_SUMMARY"} set:{SUMMARY}'="" FDA(699.5,"+1,",601)={"SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(699.5,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(699.5,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(699.5,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(699.5,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(699.5,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(699.5,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(699.5,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(699.5,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(699.5,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(699.5,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(699.5,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(699.5,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(699.5,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(699.5,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(699.5,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETATION}'="" FDA(699.5,"+1,",1511)={"MARK_FOR_DELETATION"} set:{DELETER_DUZ}'="" FDA(699.5,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(699.5,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(699.5,"+1,",1514)={"CREATION_DATE"} set:{SUPERSEDED_NUMBER}'="" FDA(699.5,"+1,",1515)={"SUPERSEDED_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.5)") set %SkipFiling=1 if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {INDICATION}'="" { set D0={RowId} for i=1:1:$l({INDICATION},$c(13,10)) { set wp(i)=$p({INDICATION},$c(13,10),i) } do WP^DIE(699.5,{RowId},1,,"wp","%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUBJECTIVE}'="" { set D0={RowId} for i=1:1:$l({SUBJECTIVE},$c(13,10)) { set wp(i)=$p({SUBJECTIVE},$c(13,10),i) } do WP^DIE(699.5,{RowId},32,,"wp","%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OBJECTIVE}'="" { set D0={RowId} for i=1:1:$l({OBJECTIVE},$c(13,10)) { set wp(i)=$p({OBJECTIVE},$c(13,10),i) } do WP^DIE(699.5,{RowId},33,,"wp","%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {ASSESSMENTFINDINGS}'="" { set D0={RowId} for i=1:1:$l({ASSESSMENTFINDINGS},$c(13,10)) { set wp(i)=$p({ASSESSMENTFINDINGS},$c(13,10),i) } do WP^DIE(699.5,{RowId},34,,"wp","%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PLAN}'="" { set D0={RowId} for i=1:1:$l({PLAN},$c(13,10)) { set wp(i)=$p({PLAN},$c(13,10),i) } do WP^DIE(699.5,{RowId},35,,"wp","%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(699.5,IENS,.01)={DATETIME} set:{MEDICAL_PATIENT*C} FDA(699.5,IENS,.02)={MEDICAL_PATIENT} set:{SUBSPECIALTY*C} FDA(699.5,IENS,.05)={SUBSPECIALTY} set:{PROCEDURE_06*C} FDA(699.5,IENS,.06)={PROCEDURE_06} set:{PROBLEM_ORIENTED_CONSULT*C} FDA(699.5,IENS,2)={PROBLEM_ORIENTED_CONSULT} set:{INDICATION_COMMENT*C} FDA(699.5,IENS,3)={INDICATION_COMMENT} set:{PROVIDERPHYSICIAN*C} FDA(699.5,IENS,6)={PROVIDERPHYSICIAN} set:{CONSULTATION_TYPE*C} FDA(699.5,IENS,31.5)={CONSULTATION_TYPE} set:{PROCEDURE_SUMMARY*C} FDA(699.5,IENS,600)={PROCEDURE_SUMMARY} set:{SUMMARY*C} FDA(699.5,IENS,601)={SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(699.5,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(699.5,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(699.5,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(699.5,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(699.5,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(699.5,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(699.5,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(699.5,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(699.5,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(699.5,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(699.5,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(699.5,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(699.5,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(699.5,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(699.5,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETATION*C} FDA(699.5,IENS,1511)={MARK_FOR_DELETATION} set:{DELETER_DUZ*C} FDA(699.5,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(699.5,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(699.5,IENS,1514)={CREATION_DATE} set:{SUPERSEDED_NUMBER*C} FDA(699.5,IENS,1515)={SUPERSEDED_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.5)") set %SkipFiling=1 if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {INDICATION*C} { set D0={RowId} kill wp if {INDICATION}'="" { set wproot="wp" for i=1:1:$l({INDICATION},$c(13,10)) { set wp(i)=$p({INDICATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699.5,{RowId},1,,wproot,"%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUBJECTIVE*C} { set D0={RowId} kill wp if {SUBJECTIVE}'="" { set wproot="wp" for i=1:1:$l({SUBJECTIVE},$c(13,10)) { set wp(i)=$p({SUBJECTIVE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699.5,{RowId},32,,wproot,"%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OBJECTIVE*C} { set D0={RowId} kill wp if {OBJECTIVE}'="" { set wproot="wp" for i=1:1:$l({OBJECTIVE},$c(13,10)) { set wp(i)=$p({OBJECTIVE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699.5,{RowId},33,,wproot,"%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {ASSESSMENTFINDINGS*C} { set D0={RowId} kill wp if {ASSESSMENTFINDINGS}'="" { set wproot="wp" for i=1:1:$l({ASSESSMENTFINDINGS},$c(13,10)) { set wp(i)=$p({ASSESSMENTFINDINGS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699.5,{RowId},34,,wproot,"%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PLAN*C} { set D0={RowId} kill wp if {PLAN}'="" { set wproot="wp" for i=1:1:$l({PLAN},$c(13,10)) { set wp(i)=$p({PLAN},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(699.5,{RowId},35,,wproot,"%FMERR(699.5)") if $d(%FMERR(699.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.GENERALIZED27D2S index ^MCAR nonnull 699.5 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 699.5 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 699.5 "C" {MEDICAL_PATIENT} {IEN} 0]]> index ^MCAR nonnull 699.5 "D" {SUBSPECIALTY} {IEN} 0]]> data ^MCAR 699.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 22 new data,i,node set {ASSESSMENTFINDINGS}="" merge data=^MCAR(699.5,{S2},22) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {ASSESSMENTFINDINGS}={ASSESSMENTFINDINGS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 5 "^" "ES" 2 "^" "ES" 15 "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" "ES" 3 "^" "ES" 1 "^" "OR" 2 1 new data,i,node set {INDICATION}="" merge data=^MCAR(699.5,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INDICATION}={INDICATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 7 "^" "ES" 12 "^" 0 2 21 new data,i,node set {OBJECTIVE}="" merge data=^MCAR(699.5,{S2},21) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OBJECTIVE}={OBJECTIVE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "OR" 1 "^" "PCC" 1 35 new data,i,node set {PLAN}="" merge data=^MCAR(699.5,{S2},35) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PLAN}={PLAN}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PROV" 1 "^" 0 3 "^" 0 8 "^" .2 2 "^" 0 4 "^" "ES" 7 "^" "ES" 5 20 new data,i,node set {SUBJECTIVE}="" merge data=^MCAR(699.5,{S2},20) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SUBJECTIVE}={SUBJECTIVE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 "^" "ES" 6 "^" "ES" 4 Generated class for FileMan File Number: '698' File Name: 'GENERATOR IMPLANT' Class generated by %fm2class version 2.56 This file is used to hold the Generator Implant/Explant data for the Pacemaker portion of the Medicine package. persistent _PUBLIC 0 RowId GENERATOR_IMPLANT_698 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.741354313 67178,44709.384702424 right GENERATOR IMPLANT 698 2.56 12/04/2024 12:25:09 1 1 IEN 1 NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN NEW_PERSON_200]]> FELLOW1ST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW1ST NEW_PERSON_200]]> FELLOW2ND VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW2ND REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO INSTITUTION_4]]> HOSPWHEREIMPLANTOCCURRED VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_HOSP_WHERE_IMPLANT_OCCURRED MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN PACEMAKER_MANUFACTURER_698_6]]> PACEMAKERMANUFACTURER VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 FKey_PACEMAKER_MANUFACTURER PACEMAKER_EQUIPMENT_698_4]]> PACEMAKERMODEL VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 FKey_PACEMAKER_MODEL VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER REASON_MEDICINE_695_8]]> REASONFORGENERATORCHANGE VALIP.prosthetic.fm2cw.REASONMEDICINE6958 FKey_REASON_FOR_GENERATOR_CHANGE PACEMAKER_MANUFACTURER_698_6]]> TRANSMITTERMANUFACTURER VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 FKey_TRANSMITTER_MANUFACTURER PACEMAKER_EQUIPMENT_698_4]]> TRANSMITTERMODEL VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 FKey_TRANSMITTER_MODEL FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '300' This field identifies the name of the Attending Physician for this Generator Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 31 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'COMMENTS' FileMan Field Number: '500' This allows a documentation area of free form. %Library.String 34 COMMENTS FileMan Field Label: 'DATE/TIME OF IMPLANT' FileMan Field Number: '.01' This allows analysis based on time. %Library.FilemanTimeStamp 1 3 DATETIME_OF_IMPLANT FileMan Field Label: 'DATE OF INCIPIENT MALFUNCTION' FileMan Field Number: '90' This allows documentation of malfunction date. %Library.FilemanTimeStamp 28 DATE_OF_INCIPIENT_MALFUNCTION FileMan Field Label: 'DATE OF LAST PREVIOUS IMPLANT' FileMan Field Number: '75' This allows documentation of previous implantations. %Library.FilemanTimeStamp 27 DATE_OF_LAST_PREVIOUS_IMPLANT FileMan Field Label: 'EXPLANT DATE' FileMan Field Number: '96' This allows documentation of generator removal. %Library.FilemanTimeStamp 29 EXPLANT_DATE FileMan Field Label: 'FELLOW-1st' FileMan Field Number: '301' This field identifies the name of a Cardiology Fellow for this Generator Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 32 FELLOW1ST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {FELLOW1ST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW1ST_NAME 1 FileMan Field Label: 'FELLOW-2nd' FileMan Field Number: '302' This field identifies the name of a second Cardiology Fellow for this Generator Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 33 FELLOW2ND NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {FELLOW2ND_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW2ND_NAME 1 FileMan Field Label: 'FIRST SCHEDULED F/U VISIT' FileMan Field Number: '30' This allows documentation of the primary visit. %Library.FilemanTimeStamp 15 FIRST_SCHEDULED_FU_VISIT FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 40 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HOSP WHERE IMPLANT OCCURRED' FileMan Field Number: '7' This field identifies the facility where the implant procedure was performed. VALIP.prosthetic.fm2cw.INSTITUTION4 10 HOSP_WHERE_IMPLANT_OCCURRED NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {HOSP_WHERE_IMPLANT_OCCURRED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOSP_WHERE_IMPLANT_OCCURRED_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(698,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IMPLANTATION ETIOLOGY' FileMan Field Number: '19' This allows for the storage of historical patient data. %Library.EnumString 14 IMPLANTATION_ETIOLOGY FileMan Field Label: 'LEADS (A,V,AV)' FileMan Field Number: '14' This describes the placement/type of conductors established. %Library.EnumString 13 LEADS_AVAV FileMan Field Label: 'MAGNET PULSE WIDTH AT B-O-L' FileMan Field Number: '38' This allows documentation of initial width. %Library.Numeric 19 MAGNET_PULSE_WIDTH_AT_BOL FileMan Field Label: 'MAGNET PULSE WIDTH AT E-O-L' FileMan Field Number: '48' This allows documentation of terminal width. %Library.Numeric 24 MAGNET_PULSE_WIDTH_AT_EOL FileMan Field Label: 'MAGNET RATE AT BEGIN-OF-LIFE' FileMan Field Number: '34' This allows documentation of initial rate. %Library.Numeric 17 MAGNET_RATE_AT_BEGINOFLIFE FileMan Field Label: 'MAGNET RATE AT END-OF-LIFE' FileMan Field Number: '44' This allows documentation of terminal rate. %Library.Numeric 22 MAGNET_RATE_AT_ENDOFLIFE FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' Patient's name. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'NON-MAG PULSE WIDTH AT B-O-L' FileMan Field Number: '36' This allows documentation of initial width. %Library.Numeric 18 NONMAG_PULSE_WIDTH_AT_BOL FileMan Field Label: 'NON-MAG PULSE WIDTH AT E-O-L' FileMan Field Number: '46' This allows documentation of terminal width. %Library.Numeric 23 NONMAG_PULSE_WIDTH_AT_EOL FileMan Field Label: 'NON-MAG RATE AT BEGIN-OF-LIFE' FileMan Field Number: '32' This allows documentation of initial rate. %Library.Numeric 16 NONMAG_RATE_AT_BEGINOFLIFE FileMan Field Label: 'NON-MAG RATE AT END-OF-LIFE' FileMan Field Number: '42' This allows documentation of terminal rate. %Library.Numeric 21 NONMAG_RATE_AT_ENDOFLIFE FileMan Field Label: 'NO. PULSE GENERATORS' FileMan Field Number: '70' This field identifies the sequential value of this generator. %Library.Numeric 26 NO__PULSE_GENERATORS FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 39 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER BEGIN-OF-LIFE INDICATOR' FileMan Field Number: '40' This allows other initial documentation. %Library.String 20 OTHER_BEGINOFLIFE_INDICATOR FileMan Field Label: 'OTHER END-OF-LIFE INDICATOR' FileMan Field Number: '50' This allows documentation of other terminal parameters. %Library.String 25 OTHER_ENDOFLIFE_INDICATOR FileMan Field Label: 'OTHER PACING MODE EXPLANATION' FileMan Field Number: '6.1' This field permits an explanation of the pacing mode if "OTHER" is chosen at the PACING MODE prompt. It does not apply if anything besides "OTHER" is chosen at the PACING MODE prompt. %Library.String 9 OTHER_PACING_MODE_EXPLANATION FileMan Field Label: 'PACEMAKER MANUFACTURER' FileMan Field Number: '3' This field identifies the producer of the pacemaker. VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 6 PACEMAKER_MANUFACTURER NAME This field identifies the name of the manufacturer.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {PACEMAKER_MANUFACTURER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PACEMAKER_MANUFACTURER_NAME 1 FileMan Field Label: 'PACEMAKER MODEL' FileMan Field Number: '2' This field identifies the device by the manufacturer's production name. VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 5 PACEMAKER_MODEL MODEL NUMBER/NAME This field identifies the model identifier.]]> %Library.String 1 MODEL_NUMBERNAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {PACEMAKER_MODEL_MODEL_NUMBERNAME}=$select(SQLCODE=0:val,1:"")]]> 1 PACEMAKER_MODEL_MODEL_NUMBERNAME 1 FileMan Field Label: 'PACEMAKER SERIAL NUMBER' FileMan Field Number: '4' This field identifies the specific device. %Library.String 7 PACEMAKER_SERIAL_NUMBER FileMan Field Label: 'PACING MODE' FileMan Field Number: '6' This defines the operation established with the device. %Library.EnumString 8 PACING_MODE FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 38 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 37 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This field identifies a required free text summary of the Generator Implant. This summary (up to 79 characters) will appear on the Summary of Patient Procedures. %Library.String 35 PROCEDURE_SUMMARY FileMan Field Label: 'REASON FOR GENERATOR CHANGE' FileMan Field Number: '99' This allows documentation of change rationale. VALIP.prosthetic.fm2cw.REASONMEDICINE6958 30 REASON_FOR_GENERATOR_CHANGE NAME This field holds a list of Medical reasons for various areas of Medicine. Examples: Explain reasons for Pacemaker, Reason for stopping for PFT, etc.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {REASON_FOR_GENERATOR_CHANGE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REASON_FOR_GENERATOR_CHANGE_NAME 1 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69802 children GENERATORIMPLANT698 1 SUB_ICD_DIAGNOSIS_698_02 Relationship for Sub-File/Multiple to file name PACING FAILURE (EKG) child VALIP.prosthetic.fm2cw.SUBPACINGFAILUREEKG698093 children GENERATORIMPLANT698 1 SUB_PACING_FAILURE_EKG_698_093 FileMan Field Label: 'SUMMARY' FileMan Field Number: '601' This field identifies a required summary of the implant (Abnormal,Borderline,Normal). This summary will appear on the Summary of Patient Procedures. %Library.EnumString 36 SUMMARY FileMan Field Label: 'TRANSMITTER MANUFACTURER' FileMan Field Number: '13' This field identifies the producer of the transmitter. VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 12 TRANSMITTER_MANUFACTURER NAME This field identifies the name of the manufacturer.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {TRANSMITTER_MANUFACTURER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TRANSMITTER_MANUFACTURER_NAME 1 FileMan Field Label: 'TRANSMITTER MODEL' FileMan Field Number: '12' This field identifies the device by the manufacturer's production name. VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 11 TRANSMITTER_MODEL MODEL NUMBER/NAME This field identifies the model identifier.]]> %Library.String 1 MODEL_NUMBERNAME into :val from VALIP_prosthetic_fm2cw.GENERATOR_IMPLANT_698 where %ID=:id) set {TRANSMITTER_MODEL_MODEL_NUMBERNAME}=$select(SQLCODE=0:val,1:"")]]> 1 TRANSMITTER_MODEL_MODEL_NUMBERNAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 41 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(698," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME_OF_IMPLANT}'="" FDA(698,"+1,",.01)={"DATETIME_OF_IMPLANT"} set:{MEDICAL_PATIENT}'="" FDA(698,"+1,",1)={"MEDICAL_PATIENT"} set:{PACEMAKER_MODEL}'="" FDA(698,"+1,",2)={"PACEMAKER_MODEL"} set:{PACEMAKER_MANUFACTURER}'="" FDA(698,"+1,",3)={"PACEMAKER_MANUFACTURER"} set:{PACEMAKER_SERIAL_NUMBER}'="" FDA(698,"+1,",4)={"PACEMAKER_SERIAL_NUMBER"} set:{PACING_MODE}'="" FDA(698,"+1,",6)={"PACING_MODE"} set:{OTHER_PACING_MODE_EXPLANATION}'="" FDA(698,"+1,",6.1)={"OTHER_PACING_MODE_EXPLANATION"} set:{HOSP_WHERE_IMPLANT_OCCURRED}'="" FDA(698,"+1,",7)={"HOSP_WHERE_IMPLANT_OCCURRED"} set:{TRANSMITTER_MODEL}'="" FDA(698,"+1,",12)={"TRANSMITTER_MODEL"} set:{TRANSMITTER_MANUFACTURER}'="" FDA(698,"+1,",13)={"TRANSMITTER_MANUFACTURER"} set:{LEADS_AVAV}'="" FDA(698,"+1,",14)={"LEADS_AVAV"} set:{IMPLANTATION_ETIOLOGY}'="" FDA(698,"+1,",19)={"IMPLANTATION_ETIOLOGY"} set:{FIRST_SCHEDULED_FU_VISIT}'="" FDA(698,"+1,",30)={"FIRST_SCHEDULED_FU_VISIT"} set:{NONMAG_RATE_AT_BEGINOFLIFE}'="" FDA(698,"+1,",32)={"NONMAG_RATE_AT_BEGINOFLIFE"} set:{MAGNET_RATE_AT_BEGINOFLIFE}'="" FDA(698,"+1,",34)={"MAGNET_RATE_AT_BEGINOFLIFE"} set:{NONMAG_PULSE_WIDTH_AT_BOL}'="" FDA(698,"+1,",36)={"NONMAG_PULSE_WIDTH_AT_BOL"} set:{MAGNET_PULSE_WIDTH_AT_BOL}'="" FDA(698,"+1,",38)={"MAGNET_PULSE_WIDTH_AT_BOL"} set:{OTHER_BEGINOFLIFE_INDICATOR}'="" FDA(698,"+1,",40)={"OTHER_BEGINOFLIFE_INDICATOR"} set:{NONMAG_RATE_AT_ENDOFLIFE}'="" FDA(698,"+1,",42)={"NONMAG_RATE_AT_ENDOFLIFE"} set:{MAGNET_RATE_AT_ENDOFLIFE}'="" FDA(698,"+1,",44)={"MAGNET_RATE_AT_ENDOFLIFE"} set:{NONMAG_PULSE_WIDTH_AT_EOL}'="" FDA(698,"+1,",46)={"NONMAG_PULSE_WIDTH_AT_EOL"} set:{MAGNET_PULSE_WIDTH_AT_EOL}'="" FDA(698,"+1,",48)={"MAGNET_PULSE_WIDTH_AT_EOL"} set:{OTHER_ENDOFLIFE_INDICATOR}'="" FDA(698,"+1,",50)={"OTHER_ENDOFLIFE_INDICATOR"} set:{NO__PULSE_GENERATORS}'="" FDA(698,"+1,",70)={"NO__PULSE_GENERATORS"} set:{DATE_OF_LAST_PREVIOUS_IMPLANT}'="" FDA(698,"+1,",75)={"DATE_OF_LAST_PREVIOUS_IMPLANT"} set:{DATE_OF_INCIPIENT_MALFUNCTION}'="" FDA(698,"+1,",90)={"DATE_OF_INCIPIENT_MALFUNCTION"} set:{EXPLANT_DATE}'="" FDA(698,"+1,",96)={"EXPLANT_DATE"} set:{REASON_FOR_GENERATOR_CHANGE}'="" FDA(698,"+1,",99)={"REASON_FOR_GENERATOR_CHANGE"} set:{ATTENDING_PHYSICIAN}'="" FDA(698,"+1,",300)={"ATTENDING_PHYSICIAN"} set:{FELLOW1ST}'="" FDA(698,"+1,",301)={"FELLOW1ST"} set:{FELLOW2ND}'="" FDA(698,"+1,",302)={"FELLOW2ND"} set:{PROCEDURE_SUMMARY}'="" FDA(698,"+1,",600)={"PROCEDURE_SUMMARY"} set:{SUMMARY}'="" FDA(698,"+1,",601)={"SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(698,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(698,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(698,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(698,"+1,",1001)={"GMRCO"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(698)") set %SkipFiling=1 if $d(%FMERR(698,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS}'="" { set D0={RowId} for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) } do WP^DIE(698,{RowId},500,,"wp","%FMERR(698)") if $d(%FMERR(698,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME_OF_IMPLANT*C} FDA(698,IENS,.01)={DATETIME_OF_IMPLANT} set:{MEDICAL_PATIENT*C} FDA(698,IENS,1)={MEDICAL_PATIENT} set:{PACEMAKER_MODEL*C} FDA(698,IENS,2)={PACEMAKER_MODEL} set:{PACEMAKER_MANUFACTURER*C} FDA(698,IENS,3)={PACEMAKER_MANUFACTURER} set:{PACEMAKER_SERIAL_NUMBER*C} FDA(698,IENS,4)={PACEMAKER_SERIAL_NUMBER} set:{PACING_MODE*C} FDA(698,IENS,6)={PACING_MODE} set:{OTHER_PACING_MODE_EXPLANATION*C} FDA(698,IENS,6.1)={OTHER_PACING_MODE_EXPLANATION} set:{HOSP_WHERE_IMPLANT_OCCURRED*C} FDA(698,IENS,7)={HOSP_WHERE_IMPLANT_OCCURRED} set:{TRANSMITTER_MODEL*C} FDA(698,IENS,12)={TRANSMITTER_MODEL} set:{TRANSMITTER_MANUFACTURER*C} FDA(698,IENS,13)={TRANSMITTER_MANUFACTURER} set:{LEADS_AVAV*C} FDA(698,IENS,14)={LEADS_AVAV} set:{IMPLANTATION_ETIOLOGY*C} FDA(698,IENS,19)={IMPLANTATION_ETIOLOGY} set:{FIRST_SCHEDULED_FU_VISIT*C} FDA(698,IENS,30)={FIRST_SCHEDULED_FU_VISIT} set:{NONMAG_RATE_AT_BEGINOFLIFE*C} FDA(698,IENS,32)={NONMAG_RATE_AT_BEGINOFLIFE} set:{MAGNET_RATE_AT_BEGINOFLIFE*C} FDA(698,IENS,34)={MAGNET_RATE_AT_BEGINOFLIFE} set:{NONMAG_PULSE_WIDTH_AT_BOL*C} FDA(698,IENS,36)={NONMAG_PULSE_WIDTH_AT_BOL} set:{MAGNET_PULSE_WIDTH_AT_BOL*C} FDA(698,IENS,38)={MAGNET_PULSE_WIDTH_AT_BOL} set:{OTHER_BEGINOFLIFE_INDICATOR*C} FDA(698,IENS,40)={OTHER_BEGINOFLIFE_INDICATOR} set:{NONMAG_RATE_AT_ENDOFLIFE*C} FDA(698,IENS,42)={NONMAG_RATE_AT_ENDOFLIFE} set:{MAGNET_RATE_AT_ENDOFLIFE*C} FDA(698,IENS,44)={MAGNET_RATE_AT_ENDOFLIFE} set:{NONMAG_PULSE_WIDTH_AT_EOL*C} FDA(698,IENS,46)={NONMAG_PULSE_WIDTH_AT_EOL} set:{MAGNET_PULSE_WIDTH_AT_EOL*C} FDA(698,IENS,48)={MAGNET_PULSE_WIDTH_AT_EOL} set:{OTHER_ENDOFLIFE_INDICATOR*C} FDA(698,IENS,50)={OTHER_ENDOFLIFE_INDICATOR} set:{NO__PULSE_GENERATORS*C} FDA(698,IENS,70)={NO__PULSE_GENERATORS} set:{DATE_OF_LAST_PREVIOUS_IMPLANT*C} FDA(698,IENS,75)={DATE_OF_LAST_PREVIOUS_IMPLANT} set:{DATE_OF_INCIPIENT_MALFUNCTION*C} FDA(698,IENS,90)={DATE_OF_INCIPIENT_MALFUNCTION} set:{EXPLANT_DATE*C} FDA(698,IENS,96)={EXPLANT_DATE} set:{REASON_FOR_GENERATOR_CHANGE*C} FDA(698,IENS,99)={REASON_FOR_GENERATOR_CHANGE} set:{ATTENDING_PHYSICIAN*C} FDA(698,IENS,300)={ATTENDING_PHYSICIAN} set:{FELLOW1ST*C} FDA(698,IENS,301)={FELLOW1ST} set:{FELLOW2ND*C} FDA(698,IENS,302)={FELLOW2ND} set:{PROCEDURE_SUMMARY*C} FDA(698,IENS,600)={PROCEDURE_SUMMARY} set:{SUMMARY*C} FDA(698,IENS,601)={SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(698,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(698,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(698,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(698,IENS,1001)={GMRCO} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698)") set %SkipFiling=1 if $d(%FMERR(698,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS*C} { set D0={RowId} kill wp if {COMMENTS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(698,{RowId},500,,wproot,"%FMERR(698)") if $d(%FMERR(698,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.GENERATORIM7FF7S index ^MCAR nonnull 698 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 698 "B" {DATETIME_OF_IMPLANT} {IEN} 0]]> index ^MCAR nonnull 698 "C" {MEDICAL_PATIENT} {IEN} 0]]> data ^MCAR 698 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 3 1 10 new data,i,node set {COMMENTS}="" merge data=^MCAR(698,{S2},10) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS}={COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 1 6 "^" 0 14 "^" 1 1 "^" 3 2 "^" 3 3 "^" 0 12 "^" "OR" 2 "^" 0 8 "^" 0 11 "^" 0 7 "^" 4 4 "^" 4 8 "^" 4 2 "^" 4 6 "^" 0 2 "^" 4 3 "^" 4 7 "^" 4 1 "^" 4 5 "^" 0 13 "^" "OR" 1 "^" 4 9 "^" 4 10 "^" 4 11 "^" 0 4 "^" 0 3 "^" 0 5 "^" 0 6 "^" "PCC" 1 "^" "PROV" 1 "^" .2 2 "^" 1 2 "^" .2 1 "^" 1 4 "^" 1 3 Generated class for FileMan File Number: '445' File Name: 'GENERIC INVENTORY' Class generated by %fm2class version 2.56 This file contains descriptive and inventory information for any entity that wants to maintain a perpetual inventory, automate their item distribution function, and automatically generate stock replenishment orders based on inventory needs. There are three types of inventory points that can be on this file: Warehouses, Primary Distribution Points (locations that are allowed to order directly from supply), or Secondary Distribution Points (locations that must order through a Primary Distribution Point). persistent _PUBLIC 0 RowId GENERIC_INVENTORY_445 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.425158555 67178,44709.460469137 right GENERIC INVENTORY 445 2.56 12/04/2024 12:25:09 1 1 IEN 1 NEW_PERSON_200]]> CONVERTEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CONVERTED_BY COST_CENTER_420_1]]> COSTCENTER VALIP.prosthetic.fm2cw.COSTCENTER4201 FKey_COST_CENTER GENERIC_INVENTORY_445]]> PARAMETERSCANBEEDITEDBY VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_PARAMETERS_CAN_BE_EDITED_BY GENERIC_INVENTORY_445]]> PRECONVERSIONSTOCKEDBY VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_PRECONVERSION_STOCKED_BY NEW_PERSON_200]]> QUANTITYREPLACEMENTREQUESTOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_QUANTITY_REPLACEMENT_REQUESTOR AUTOMATED_SUPPLY_STATIONS_445_5]]> SSPROVIDER VALIP.prosthetic.fm2cw.AUTOMATEDSUPPLYSTATIONS4455 FKey_SS_PROVIDER FileMan Field Label: 'ABBREVIATED NAME' FileMan Field Number: '.8' This is the abbreviated name of the inventory point. The abbreviated name can be used when selecting an inventory point. The name must be unique for the inventory point (two inventory points cannot have the same abbreviated name). %Library.String 7 ABBREVIATED_NAME FileMan Field Label: 'AUTOMATIC PURGE' FileMan Field Number: '7.9' If this field is set to YES, the taskmanager automatic purge option will purge inventory point data back 13 months. If the field is set to NO (or null), the manager of the inventory point will be responsible for purging the inventory point data. %Library.EnumString 17 AUTOMATIC_PURGE FileMan Field Label: 'CONVERSION DATE' FileMan Field Number: '19.6' %Library.FilemanDate 28 CONVERSION_DATE FileMan Field Label: 'CONVERTED BY' FileMan Field Number: '19.5' This field is automatically populated when the option to 'Convert Secondary to Primary' [PRCP CONVERT SECONDARY] is run. It indicates who actually converted this inventory from a secondary to a primary. It is included solely for documentation. DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION APPLICATION. VALIP.prosthetic.fm2cw.NEWPERSON200 27 CONVERTED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERIC_INVENTORY_445 where %ID=:id) set {CONVERTED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONVERTED_BY_NAME 1 FileMan Field Label: 'COST CENTER' FileMan Field Number: '.9' This is the cost center for the inventory point. VALIP.prosthetic.fm2cw.COSTCENTER4201 8 COST_CENTER NAME This is the 6 digit cost center number, a space and the cost center name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERIC_INVENTORY_445 where %ID=:id) set {COST_CENTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COST_CENTER_NAME 1 FileMan Field Label: 'DEPARTMENT NUMBER' FileMan Field Number: '5' This is the three digit number which identifies the inventory/distribution point to Austin. %Library.String 9 DEPARTMENT_NUMBER FileMan Field Label: '*ENTER ITEM DESCRIPTIONS' FileMan Field Number: '8' This field is no longer used. %Library.EnumString 18 ENTER_ITEM_DESCRIPTIONS Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCP(445,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INVENTORY POINT' FileMan Field Number: '.01' This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used. %Library.String 1 3 INVENTORY_POINT FileMan Field Label: 'ISSUE BOOK SORT' FileMan Field Number: '5.5' This information corresponds to the sort sequence for issue books used by the LOG I warehouse inventory system. This optional flag need only be set for those inventory points that need to receive issue books for Posted stock. Such inventory/distribution points should also have a department number entered in this file. %Library.EnumString 10 ISSUE_BOOK_SORT FileMan Field Label: 'KEEP DETAILED TRX. HISTORY?' FileMan Field Number: '.6' This field indicates whether the inventory will keep a detailed tracking history of its stocked items. If the field is set to yes, the item history will be tracked in the TRANSACTION REGISTER file 445.2. %Library.EnumString 5 KEEP_DETAILED_TRX__HISTORY FileMan Field Label: 'KEEP PERPETUAL INVENTORY?' FileMan Field Number: '.5' If KEEP PERPETUAL INVENTORY? is set to yes, the inventory point will track item quantities, usage, and receipts. %Library.EnumString 4 KEEP_PERPETUAL_INVENTORY FileMan Field Label: 'LAST OPEN BALANCES SET' FileMan Field Number: '7.4' This field is used to store the date the opening monthly balances are set. If the date the last opening balances set does not equal the current month and year, a message will be displayed to the users as they sign into the inventory point menus. %Library.FilemanDate 12 LAST_OPEN_BALANCES_SET FileMan Field Label: 'LAST PURGE DISTRIBUTION' FileMan Field Number: '7.8' This date is automatically entered when the purge of monthly history by cost center purge is run. It is set to the last day of the month when the purge was run. The purge options should be run monthly in order to free up disk space. Failure to run the purge option for the current month will result in a message which is displayed at the top of the screen to all users. %Library.FilemanDate 16 LAST_PURGE_DISTRIBUTION FileMan Field Label: 'LAST PURGE RECEIPTS' FileMan Field Number: '7.6' This date is automatically entered when the purge of monthly receipts history by item is run. It is set to the last day of the month when the purge was run. The purge options should be run monthly in order to free up disk space. Failure to run the purge option for the current month will result in a message which is displayed at the top of the screen to all users. %Library.FilemanDate 14 LAST_PURGE_RECEIPTS FileMan Field Label: 'LAST PURGE TRANS REGISTER' FileMan Field Number: '7.7' This date is automatically entered when the purge of monthly transaction register purge is run. It is set to the last day of the month when the purge was run. The purge options should be run monthly in order to free up disk space. Failure to run the purge option for the current month will result in a message which is displayed at the top of the screen to all users. %Library.FilemanDate 15 LAST_PURGE_TRANS_REGISTER FileMan Field Label: 'LAST PURGE USAGE' FileMan Field Number: '7.5' This date is automatically entered when the purge of monthly usage/ distribution totals by item is run. It is set to the last day of the month when the purge was run. The purge options should be run monthly in order to free up disk space. Failure to run the purge option for the current month will result in a message which is displayed at the top of the screen to all users. %Library.FilemanDate 13 LAST_PURGE_USAGE FileMan Field Label: 'MOS INACTIVE BEFORE ITEM DEL.' FileMan Field Number: '12' The only way to delete an item from your inventory file, is to set the 'DELETE ITEM WHEN INVENTORY 0' flag to 'Y'. During the automatic generation of a suggested order, if the program encounters an item with the flag set, it first makes sure that the inventory quantity on hand, the DUE-IN, and the DUE-OUT are all 0, and that the item does not exist on any of your secondary distribution points. If it meets the criteria, then the program checks this field, and if it contains a number, the program makes sure that there has been no activity for the item (i.e., usage, distribution or receiving) for at least the number of months specified in this field, before deleting the item from the inventory file. %Library.Numeric 21 MOS_INACTIVE_BEFORE_ITEM_DEL_ FileMan Field Label: '*PARAMETERS CAN BE EDITED BY' FileMan Field Number: '13' This field is no longer used. VALIP.prosthetic.fm2cw.GENERICINVENTORY445 22 PARAMETERS_CAN_BE_EDITED_BY INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.GENERIC_INVENTORY_445 where %ID=:id) set {PARAMETERS_CAN_BE_EDITED_BY_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 PARAMETERS_CAN_BE_EDITED_BY_INVENTORY_POINT 1 FileMan Field Label: 'PICKING TICKET PRINTER' FileMan Field Number: '16' This field stores the device which is used to automatically print the picking ticket in SPD for case cart/instrument kit distribution orders placed by Surgery. This field also stores the device used to automatically print the picking ticket for Warehouse issue books. %Library.String 25 PICKING_TICKET_PRINTER FileMan Field Label: 'PRE-CONVERSION HEADER (NO EDITS)' FileMan Field Number: '19' This field is automatically populated when the option to 'Convert Secondary to Primary' [PRCP CONVERT SECONDARY] is run. It is simply the content of the zero node of the inventory point as it existed before conversion. The only time it would ever be referenced is in cases where users mistakenly convert an inventory point and need to 'undo' the conversion. DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION APPLICATION. %Library.String 26 PRECONVERSION_HEADER_NO_EDITS FileMan Field Label: 'PRE-CONVERSION STOCKED BY' FileMan Field Number: '19.7' The subject inventory (.01 field) needs to be a DISTRIBUTION POINT of this entry if the conversion is ever undone. VALIP.prosthetic.fm2cw.GENERICINVENTORY445 29 PRECONVERSION_STOCKED_BY INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.GENERIC_INVENTORY_445 where %ID=:id) set {PRECONVERSION_STOCKED_BY_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 PRECONVERSION_STOCKED_BY_INVENTORY_POINT 1 FileMan Field Label: 'PRIMARY UPDATED BY WAREHOUSE' FileMan Field Number: '14' This is a switch controlled by the primary inventory point. If set to NO, the primary inventory point quantity on-hand will not be updated by the warehouse. The default is YES or null. %Library.EnumString 23 PRIMARY_UPDATED_BY_WAREHOUSE FileMan Field Label: 'PRINT STOCK AT CRITICAL LEVEL?' FileMan Field Number: '7' The program PRCPUEMS should be set up by the Site Manager to run at some interval defined by the Site Manager. It should run during non-peak times. This program searches the inventory file for EVERY inventory point. If it finds one item with a quantity at or below the Safety Stock Level, the inventory point is flagged. Then, the next time any user for that inventory point signs on, s/he will be notified that s/he needs to run the report of items at or below Safety Stock level. The message will keep coming up for each person that signs on, until the report has been run. %Library.EnumString 11 PRINT_STOCK_AT_CRITICAL_LEVEL FileMan Field Label: 'QUANTITY REPLACEMENT REQUESTED' FileMan Field Number: '25' This is the Date/Time that an authorized person requested the on hand quantities in GIP be adjusted to the values reported in the next supply station transaction. %Library.FilemanTimeStamp 33 QUANTITY_REPLACEMENT_REQUESTED FileMan Field Label: 'QUANTITY REPLACEMENT REQUESTOR' FileMan Field Number: '24' The name of the authorized person requesting that the on hand quantities in GIP be adjusted to the values reported in the next supply station transaction. VALIP.prosthetic.fm2cw.NEWPERSON200 32 QUANTITY_REPLACEMENT_REQUESTOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERIC_INVENTORY_445 where %ID=:id) set {QUANTITY_REPLACEMENT_REQUESTOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 QUANTITY_REPLACEMENT_REQUESTOR_NAME 1 FileMan Field Label: 'REGULAR WHSE. ISSUES DUE DATE' FileMan Field Number: '10' The date is set into this field in PPM, when they wish to notify Inventory/ Distribution points that their regularly scheduled whse.issues request is due. When the date is set, the user of the Inventory/Distribution point is notified that his/her whse. issues request is due. The date is cleared the next time the user generates an automatic request for posted stock. %Library.FilemanDate 20 REGULAR_WHSE__ISSUES_DUE_DATE FileMan Field Label: 'REGULAR WHSE. ISSUES SCHEDULE' FileMan Field Number: '9' This field is entered by Personal Property Management, and holds the codes for weekly, biweekly, monthly, or other type distribution of warehouse issues. %Library.EnumString 19 REGULAR_WHSE__ISSUES_SCHEDULE FileMan Field Label: 'SPECIAL INVENTORY POINT TYPE' FileMan Field Number: '15' This field is a switch controlled by the primary inventory point. If this field is set to 'D', it will update the pharmacy drug accountability file when the primary quantity on-hand is changed. %Library.EnumString 24 SPECIAL_INVENTORY_POINT_TYPE FileMan Field Label: 'SS PROVIDER' FileMan Field Number: '22' When an automated supply station stocks items within an inventory point, this field contains a pointer to the machine used, allowing GIP to correctly build and transmit information to the automated supply station by referencing file 445.5. VALIP.prosthetic.fm2cw.AUTOMATEDSUPPLYSTATIONS4455 30 SS_PROVIDER NAME SYSTEM NAME This field uniquely identifies a system or group of linked machines supported by a single vendor and sharing the same system requirements.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GENERIC_INVENTORY_445 where %ID=:id) set {SS_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SS_PROVIDER_NAME 1 FileMan Field Label: 'SS QUANTITY LAST TRANSMITTED' FileMan Field Number: '23' This field will be updated by the receipt of a 'quantity on hand' message from the automated supply station. It will be referenced when users wish to print an exception report comparing the quantity of an item in GIP and in the automated supply station. %Library.FilemanTimeStamp 31 SS_QUANTITY_LAST_TRANSMITTED Relationship for Sub-File/Multiple to file name DISTRIBUTION POINT child VALIP.prosthetic.fm2cw.SUBDISTRIBUTIONPOINT44503 children GENERICINVENTORY445 1 SUB_DISTRIBUTION_POINT_445_03 Relationship for Sub-File/Multiple to file name INVENTORY ITEM child VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 children GENERICINVENTORY445 1 SUB_INVENTORY_ITEM_445_01 Relationship for Sub-File/Multiple to file name INVENTORY USER child VALIP.prosthetic.fm2cw.SUBINVENTORYUSER44504 children GENERICINVENTORY445 1 SUB_INVENTORY_USER_445_04 Relationship for Sub-File/Multiple to file name MIS COSTING SECTION child VALIP.prosthetic.fm2cw.SUBMISCOSTINGSECTION445011 children GENERICINVENTORY445 1 SUB_MIS_COSTING_SECTION_445_011 Relationship for Sub-File/Multiple to file name ON-DEMAND USERS child VALIP.prosthetic.fm2cw.SUBONDEMANDUSERS445027 children GENERICINVENTORY445 1 SUB_ONDEMAND_USERS_445_027 Relationship for Sub-File/Multiple to file name PRE-CONVERSION ITEM (NO EDITS) child VALIP.prosthetic.fm2cw.SUBPRECONVERSIONITEMNOEDITS44508 children GENERICINVENTORY445 1 SUB_PRECONVERSION_ITEM_NO_EDITS_445_08 Relationship for Sub-File/Multiple to file name PRE-CONVERSION MIS (NO EDITS) child VALIP.prosthetic.fm2cw.SUBPRECONVERSIONMISNOEDITS445021 children GENERICINVENTORY445 1 SUB_PRECONVERSION_MIS_NO_EDITS_445_021 Relationship for Sub-File/Multiple to file name QUANTITY REPLACEMENT USER child VALIP.prosthetic.fm2cw.SUBQUANTITYREPLACEMENTUSER445026 children GENERICINVENTORY445 1 SUB_QUANTITY_REPLACEMENT_USER_445_026 FileMan Field Label: 'TYPE OF INVENTORY POINT' FileMan Field Number: '.7' This field indicates whether the inventory point is a warehouse, a primary, or a secondary type inventory point. For each station number, there can only be one warehouse type inventory point. %Library.EnumString 6 TYPE_OF_INVENTORY_POINT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 34 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCP(445," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{INVENTORY_POINT}'="" FDA(445,"+1,",.01)={"INVENTORY_POINT"} set:{KEEP_PERPETUAL_INVENTORY}'="" FDA(445,"+1,",.5)={"KEEP_PERPETUAL_INVENTORY"} set:{KEEP_DETAILED_TRX__HISTORY}'="" FDA(445,"+1,",.6)={"KEEP_DETAILED_TRX__HISTORY"} set:{TYPE_OF_INVENTORY_POINT}'="" FDA(445,"+1,",.7)={"TYPE_OF_INVENTORY_POINT"} set:{ABBREVIATED_NAME}'="" FDA(445,"+1,",.8)={"ABBREVIATED_NAME"} set:{COST_CENTER}'="" FDA(445,"+1,",.9)={"COST_CENTER"} set:{DEPARTMENT_NUMBER}'="" FDA(445,"+1,",5)={"DEPARTMENT_NUMBER"} set:{ISSUE_BOOK_SORT}'="" FDA(445,"+1,",5.5)={"ISSUE_BOOK_SORT"} set:{PRINT_STOCK_AT_CRITICAL_LEVEL}'="" FDA(445,"+1,",7)={"PRINT_STOCK_AT_CRITICAL_LEVEL"} set:{LAST_OPEN_BALANCES_SET}'="" FDA(445,"+1,",7.4)={"LAST_OPEN_BALANCES_SET"} set:{LAST_PURGE_USAGE}'="" FDA(445,"+1,",7.5)={"LAST_PURGE_USAGE"} set:{LAST_PURGE_RECEIPTS}'="" FDA(445,"+1,",7.6)={"LAST_PURGE_RECEIPTS"} set:{LAST_PURGE_TRANS_REGISTER}'="" FDA(445,"+1,",7.7)={"LAST_PURGE_TRANS_REGISTER"} set:{LAST_PURGE_DISTRIBUTION}'="" FDA(445,"+1,",7.8)={"LAST_PURGE_DISTRIBUTION"} set:{AUTOMATIC_PURGE}'="" FDA(445,"+1,",7.9)={"AUTOMATIC_PURGE"} set:{ENTER_ITEM_DESCRIPTIONS}'="" FDA(445,"+1,",8)={"ENTER_ITEM_DESCRIPTIONS"} set:{REGULAR_WHSE__ISSUES_SCHEDULE}'="" FDA(445,"+1,",9)={"REGULAR_WHSE__ISSUES_SCHEDULE"} set:{REGULAR_WHSE__ISSUES_DUE_DATE}'="" FDA(445,"+1,",10)={"REGULAR_WHSE__ISSUES_DUE_DATE"} set:{MOS_INACTIVE_BEFORE_ITEM_DEL_}'="" FDA(445,"+1,",12)={"MOS_INACTIVE_BEFORE_ITEM_DEL_"} set:{PARAMETERS_CAN_BE_EDITED_BY}'="" FDA(445,"+1,",13)={"PARAMETERS_CAN_BE_EDITED_BY"} set:{PRIMARY_UPDATED_BY_WAREHOUSE}'="" FDA(445,"+1,",14)={"PRIMARY_UPDATED_BY_WAREHOUSE"} set:{SPECIAL_INVENTORY_POINT_TYPE}'="" FDA(445,"+1,",15)={"SPECIAL_INVENTORY_POINT_TYPE"} set:{PICKING_TICKET_PRINTER}'="" FDA(445,"+1,",16)={"PICKING_TICKET_PRINTER"} set:{PRECONVERSION_HEADER_NO_EDITS}'="" FDA(445,"+1,",19)={"PRECONVERSION_HEADER_NO_EDITS"} set:{CONVERTED_BY}'="" FDA(445,"+1,",19.5)={"CONVERTED_BY"} set:{CONVERSION_DATE}'="" FDA(445,"+1,",19.6)={"CONVERSION_DATE"} set:{PRECONVERSION_STOCKED_BY}'="" FDA(445,"+1,",19.7)={"PRECONVERSION_STOCKED_BY"} set:{SS_PROVIDER}'="" FDA(445,"+1,",22)={"SS_PROVIDER"} set:{SS_QUANTITY_LAST_TRANSMITTED}'="" FDA(445,"+1,",23)={"SS_QUANTITY_LAST_TRANSMITTED"} set:{QUANTITY_REPLACEMENT_REQUESTOR}'="" FDA(445,"+1,",24)={"QUANTITY_REPLACEMENT_REQUESTOR"} set:{QUANTITY_REPLACEMENT_REQUESTED}'="" FDA(445,"+1,",25)={"QUANTITY_REPLACEMENT_REQUESTED"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(445)") set %SkipFiling=1 if $d(%FMERR(445,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{INVENTORY_POINT*C} FDA(445,IENS,.01)={INVENTORY_POINT} set:{KEEP_PERPETUAL_INVENTORY*C} FDA(445,IENS,.5)={KEEP_PERPETUAL_INVENTORY} set:{KEEP_DETAILED_TRX__HISTORY*C} FDA(445,IENS,.6)={KEEP_DETAILED_TRX__HISTORY} set:{TYPE_OF_INVENTORY_POINT*C} FDA(445,IENS,.7)={TYPE_OF_INVENTORY_POINT} set:{ABBREVIATED_NAME*C} FDA(445,IENS,.8)={ABBREVIATED_NAME} set:{COST_CENTER*C} FDA(445,IENS,.9)={COST_CENTER} set:{DEPARTMENT_NUMBER*C} FDA(445,IENS,5)={DEPARTMENT_NUMBER} set:{ISSUE_BOOK_SORT*C} FDA(445,IENS,5.5)={ISSUE_BOOK_SORT} set:{PRINT_STOCK_AT_CRITICAL_LEVEL*C} FDA(445,IENS,7)={PRINT_STOCK_AT_CRITICAL_LEVEL} set:{LAST_OPEN_BALANCES_SET*C} FDA(445,IENS,7.4)={LAST_OPEN_BALANCES_SET} set:{LAST_PURGE_USAGE*C} FDA(445,IENS,7.5)={LAST_PURGE_USAGE} set:{LAST_PURGE_RECEIPTS*C} FDA(445,IENS,7.6)={LAST_PURGE_RECEIPTS} set:{LAST_PURGE_TRANS_REGISTER*C} FDA(445,IENS,7.7)={LAST_PURGE_TRANS_REGISTER} set:{LAST_PURGE_DISTRIBUTION*C} FDA(445,IENS,7.8)={LAST_PURGE_DISTRIBUTION} set:{AUTOMATIC_PURGE*C} FDA(445,IENS,7.9)={AUTOMATIC_PURGE} set:{ENTER_ITEM_DESCRIPTIONS*C} FDA(445,IENS,8)={ENTER_ITEM_DESCRIPTIONS} set:{REGULAR_WHSE__ISSUES_SCHEDULE*C} FDA(445,IENS,9)={REGULAR_WHSE__ISSUES_SCHEDULE} set:{REGULAR_WHSE__ISSUES_DUE_DATE*C} FDA(445,IENS,10)={REGULAR_WHSE__ISSUES_DUE_DATE} set:{MOS_INACTIVE_BEFORE_ITEM_DEL_*C} FDA(445,IENS,12)={MOS_INACTIVE_BEFORE_ITEM_DEL_} set:{PARAMETERS_CAN_BE_EDITED_BY*C} FDA(445,IENS,13)={PARAMETERS_CAN_BE_EDITED_BY} set:{PRIMARY_UPDATED_BY_WAREHOUSE*C} FDA(445,IENS,14)={PRIMARY_UPDATED_BY_WAREHOUSE} set:{SPECIAL_INVENTORY_POINT_TYPE*C} FDA(445,IENS,15)={SPECIAL_INVENTORY_POINT_TYPE} set:{PICKING_TICKET_PRINTER*C} FDA(445,IENS,16)={PICKING_TICKET_PRINTER} set:{PRECONVERSION_HEADER_NO_EDITS*C} FDA(445,IENS,19)={PRECONVERSION_HEADER_NO_EDITS} set:{CONVERTED_BY*C} FDA(445,IENS,19.5)={CONVERTED_BY} set:{CONVERSION_DATE*C} FDA(445,IENS,19.6)={CONVERSION_DATE} set:{PRECONVERSION_STOCKED_BY*C} FDA(445,IENS,19.7)={PRECONVERSION_STOCKED_BY} set:{SS_PROVIDER*C} FDA(445,IENS,22)={SS_PROVIDER} set:{SS_QUANTITY_LAST_TRANSMITTED*C} FDA(445,IENS,23)={SS_QUANTITY_LAST_TRANSMITTED} set:{QUANTITY_REPLACEMENT_REQUESTOR*C} FDA(445,IENS,24)={QUANTITY_REPLACEMENT_REQUESTOR} set:{QUANTITY_REPLACEMENT_REQUESTED*C} FDA(445,IENS,25)={QUANTITY_REPLACEMENT_REQUESTED} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445)") set %SkipFiling=1 if $d(%FMERR(445,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.GENERICINVEC950S index ^PRCP nonnull 445 "AC" {TYPE_OF_INVENTORY_POINT} {IEN} 0]]> index ^PRCP nonnull 445 "AI" {SS_PROVIDER} {IEN} 0]]> index ^PRCP nonnull 445 "ASPEC" {SPECIAL_INVENTORY_POINT_TYPE} {IEN} 0]]> index {INVENTORY_POINT}'="" 1 ^PRCP conditional 445 "B" $$TRUNCATE({INVENTORY_POINT},30)) {IEN} 0]]> index ^PRCP nonnull 445 "CAB" {ABBREVIATED_NAME} {IEN} 0]]> data ^PRCP 445 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" 0 21 "^" "SEC" 3 "^" "SEC" 2 "^" 0 7 "^" 0 8 "^" 0 11 "^" 0 1 "^" 0 10 "^" 0 6 "^" 0 2 "^" 0 22 "^" 0 19 "^" 0 17 "^" 0 18 "^" 0 14 "^" 0 13 "^" 0 15 "^" "DEV" 1 "^" "SEC" 1 "^" "SEC" 4 "^" 0 16 "^" 0 9 "^" 7 2 "^" 7 1 "^" 0 12 "^" 0 4 "^" 0 20 "^" 5 1 "^" 6 1 "^" 0 3 Generated class for FileMan File Number: '123.3' File Name: 'GMRC PROCEDURE' Class generated by %fm2class version 2.56 This file is used for the maintenance of procedures used in the CONSULT/REQUEST TRACKING package. The procedures contained in this file are orderable in CPRS if not inactive. persistent _PUBLIC 0 RowId GMRC_PROCEDURE_123_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.74633304 67178,44709.536203538 right GMRC PROCEDURE 123.3 2.56 12/04/2024 12:25:09 1 1 IEN 1 CP_DEFINITION_702_01]]> CLINICALPROCEDURE VALIP.prosthetic.fm2cw.CPDEFINITION70201 FKey_CLINICAL_PROCEDURE NEW_PERSON_200]]> IFCCOORDINATOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_IFC_COORDINATOR INSTITUTION_4]]> IFCROUTINGSITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_IFC_ROUTING_SITE PROCEDURESUBSPECIALTY_697_2]]> TYPEOFPROCEDURE VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 FKey_TYPE_OF_PROCEDURE FileMan Field Label: 'CLINICAL PROCEDURE' FileMan Field Number: '.04' This field provides a mapping between the CP DEFINITIONS (#702.01) file and the GMRC PROCEDURES file. Orders placed for a procedure having a valid entry in this field will be processed and resulted via the Clinical Procedures package. VALIP.prosthetic.fm2cw.CPDEFINITION70201 5 CLINICAL_PROCEDURE NAME Procedure Name This field contains the name of the procedure. It should be descriptive of the procedure and contain 3-30 alphanumeric characters. The first character MUST be a letter. To maintain consistency it is recommended that all procedures be entered in UPPERCASE letters as well. (Reference IA #3139)]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GMRC_PROCEDURE_123_3 where %ID=:id) set {CLINICAL_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLINICAL_PROCEDURE_NAME 1 FileMan Field Label: 'DEFAULT REASON FOR REQUEST' FileMan Field Number: '124' This field will allow a boilerplate of text to be imported into the reason for request when placing orders for this procedure. If the user places an order using a quick order having boilerplate text, that text will supersede any default text stored in this field. This field may contain any text including TIU objects. TIU Objects must be enclosed in vertical bars (e.g. |PATIENT NAME| ). %Library.String 12 DEFAULT_REASON_FOR_REQUEST Internal Entry Number %Library.String $$next^%apiSQL("$p(^GMR(123.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IFC COORDINATOR' FileMan Field Number: '129' The person entered in this field will have expanded abilities to correct IFC records that require manual intervention to remain updated. The full capabilities of this field are not yet defined. VALIP.prosthetic.fm2cw.NEWPERSON200 16 IFC_COORDINATOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GMRC_PROCEDURE_123_3 where %ID=:id) set {IFC_COORDINATOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IFC_COORDINATOR_NAME 1 FileMan Field Label: 'IFC REMOTE PROC NAME' FileMan Field Number: '127' This field contains the name of the PROCEDURE that will be requested at the VAMC defined in the IFC ROUTING SITE field. Enter the name of the procedure exactly as it is named at the remote facility. If this name does not match the name of the procedure at the routing site, the request will fail to be filed at the remote site. This will delay or prohibit the performance and processing of this request. %Library.String 15 IFC_REMOTE_PROC_NAME FileMan Field Label: 'IFC ROUTING SITE' FileMan Field Number: '126' This field contains the VA facility that will perform this procedure when requested. When a request for this procedure is ordered, it will automatically be routed to the VA facility in this field. VALIP.prosthetic.fm2cw.INSTITUTION4 14 IFC_ROUTING_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GMRC_PROCEDURE_123_3 where %ID=:id) set {IFC_ROUTING_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IFC_ROUTING_SITE_NAME 1 FileMan Field Label: 'INACTIVE' FileMan Field Number: '.02' The INACTIVE field, if set to YES causes a procedure to no longer be selectable when ordering within CPRS. Existing requests for this procedure may be processed to completion even if the procedure is inactive. %Library.EnumString 4 INACTIVE FileMan Field Label: 'INTERNAL NAME' FileMan Field Number: '3' This field holds a name that can be used for internal name-spacing. This name will not be viewable to users when selecting a procedure. This name may be used to look up entries in the file via VA Fileman and the Setup Procedures option. %Library.String 11 INTERNAL_NAME FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the procedure that will be requested within CPRS. %Library.String 1 3 NAME FileMan Field Label: 'PREREQUISITE' FileMan Field Number: '125' %Library.String 13 PREREQUISITE FileMan Field Label: 'PROTOCOL' FileMan Field Number: '.06' This field serves as a placeholder for a conversion value. The field contains the pointer value of the PROTOCOL that represented this procedure before conversion. %Library.String 7 PROTOCOL FileMan Field Label: 'PROVISIONAL DX INPUT' FileMan Field Number: '.08' This field will determine the method that CPRS will use to prompt the user for input of the provisional diagnosis when ordering. If set to FREE TEXT, the user may type any text from 2-80 characters in length. If set to LEXICON, the user will be required to select a coded diagnosis from the Clinical Lexicon. %Library.EnumString 9 PROVISIONAL_DX_INPUT FileMan Field Label: 'PROVISIONAL DX PROMPT' FileMan Field Number: '.07' This field will be used by CPRS to determine how to prompt for the provisional diagnosis when ordering this procedure. If this field is set to OPTIONAL, the user will be prompted for the provisional diagnosis but may bypass answering the prompt. If the field is set to SUPPRESS, the user will not be presented with the provisional diagnosis prompt. If set to REQUIRED, the user must answer the prompt to continue placing the order. %Library.EnumString 8 PROVISIONAL_DX_PROMPT FileMan Field Label: 'RESTRICT DEFAULT REASON EDIT' FileMan Field Number: '.09' If a DEFAULT REASON FOR REQUEST exists for this procedure this field affects the ordering person's ability to edit the default reason while placing an order. 0 - UNRESTRICTED User will be able to edit the default text at any time. 1 - ASK ON EDIT ONLY User will only be allowed to edit the default reason if the order is edited before releasing to the service. 2 - NO EDITING User will not be allowed to edit the default reason at any time. The value of this field will be ignored if no DEFAULT REASON FOR REQUEST exists for this procedure. %Library.EnumString 10 RESTRICT_DEFAULT_REASON_EDIT Relationship for Sub-File/Multiple to file name IFC SENDING FACILITY child VALIP.prosthetic.fm2cw.SUBIFCSENDINGFACILITY1233128 children GMRCPROCEDURE1233 1 SUB_IFC_SENDING_FACILITY_123_3128 Relationship for Sub-File/Multiple to file name RELATED SERVICES child VALIP.prosthetic.fm2cw.SUBRELATEDSERVICES12332 children GMRCPROCEDURE1233 1 SUB_RELATED_SERVICES_123_32 Relationship for Sub-File/Multiple to file name SYNONYM child VALIP.prosthetic.fm2cw.SUBSYNONYM12331 children GMRCPROCEDURE1233 1 SUB_SYNONYM_123_31 FileMan Field Label: 'TYPE OF PROCEDURE' FileMan Field Number: '.05' This field indicates which type of medicine procedure and thus which result file in the Medicine Package will hold results for this procedure. Coordination may be necessary with the Medicine Adpac to determine the correct procedure mapping. If this field is not entered, the procedure may still be resulted using a TIU document, but Medicine results may not be linked to requests for this procedure. This field invokes IA# 616. VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 6 TYPE_OF_PROCEDURE NAME The short names of the various medicine procedures are stored here.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.GMRC_PROCEDURE_123_3 where %ID=:id) set {TYPE_OF_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_OF_PROCEDURE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 17 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^GMR(123.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(123.3,"+1,",.01)={"NAME"} set:{INACTIVE}'="" FDA(123.3,"+1,",.02)={"INACTIVE"} set:{CLINICAL_PROCEDURE}'="" FDA(123.3,"+1,",.04)={"CLINICAL_PROCEDURE"} set:{TYPE_OF_PROCEDURE}'="" FDA(123.3,"+1,",.05)={"TYPE_OF_PROCEDURE"} set:{PROTOCOL}'="" FDA(123.3,"+1,",.06)={"PROTOCOL"} set:{PROVISIONAL_DX_PROMPT}'="" FDA(123.3,"+1,",.07)={"PROVISIONAL_DX_PROMPT"} set:{PROVISIONAL_DX_INPUT}'="" FDA(123.3,"+1,",.08)={"PROVISIONAL_DX_INPUT"} set:{RESTRICT_DEFAULT_REASON_EDIT}'="" FDA(123.3,"+1,",.09)={"RESTRICT_DEFAULT_REASON_EDIT"} set:{INTERNAL_NAME}'="" FDA(123.3,"+1,",3)={"INTERNAL_NAME"} set:{IFC_ROUTING_SITE}'="" FDA(123.3,"+1,",126)={"IFC_ROUTING_SITE"} set:{IFC_REMOTE_PROC_NAME}'="" FDA(123.3,"+1,",127)={"IFC_REMOTE_PROC_NAME"} set:{IFC_COORDINATOR}'="" FDA(123.3,"+1,",129)={"IFC_COORDINATOR"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(123.3)") set %SkipFiling=1 if $d(%FMERR(123.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFAULT_REASON_FOR_REQUEST}'="" { set D0={RowId} for i=1:1:$l({DEFAULT_REASON_FOR_REQUEST},$c(13,10)) { set wp(i)=$p({DEFAULT_REASON_FOR_REQUEST},$c(13,10),i) } do WP^DIE(123.3,{RowId},124,,"wp","%FMERR(123.3)") if $d(%FMERR(123.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PREREQUISITE}'="" { set D0={RowId} for i=1:1:$l({PREREQUISITE},$c(13,10)) { set wp(i)=$p({PREREQUISITE},$c(13,10),i) } do WP^DIE(123.3,{RowId},125,,"wp","%FMERR(123.3)") if $d(%FMERR(123.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(123.3,IENS,.01)={NAME} set:{INACTIVE*C} FDA(123.3,IENS,.02)={INACTIVE} set:{CLINICAL_PROCEDURE*C} FDA(123.3,IENS,.04)={CLINICAL_PROCEDURE} set:{TYPE_OF_PROCEDURE*C} FDA(123.3,IENS,.05)={TYPE_OF_PROCEDURE} set:{PROTOCOL*C} FDA(123.3,IENS,.06)={PROTOCOL} set:{PROVISIONAL_DX_PROMPT*C} FDA(123.3,IENS,.07)={PROVISIONAL_DX_PROMPT} set:{PROVISIONAL_DX_INPUT*C} FDA(123.3,IENS,.08)={PROVISIONAL_DX_INPUT} set:{RESTRICT_DEFAULT_REASON_EDIT*C} FDA(123.3,IENS,.09)={RESTRICT_DEFAULT_REASON_EDIT} set:{INTERNAL_NAME*C} FDA(123.3,IENS,3)={INTERNAL_NAME} set:{IFC_ROUTING_SITE*C} FDA(123.3,IENS,126)={IFC_ROUTING_SITE} set:{IFC_REMOTE_PROC_NAME*C} FDA(123.3,IENS,127)={IFC_REMOTE_PROC_NAME} set:{IFC_COORDINATOR*C} FDA(123.3,IENS,129)={IFC_COORDINATOR} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.3)") set %SkipFiling=1 if $d(%FMERR(123.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFAULT_REASON_FOR_REQUEST*C} { set D0={RowId} kill wp if {DEFAULT_REASON_FOR_REQUEST}'="" { set wproot="wp" for i=1:1:$l({DEFAULT_REASON_FOR_REQUEST},$c(13,10)) { set wp(i)=$p({DEFAULT_REASON_FOR_REQUEST},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(123.3,{RowId},124,,wproot,"%FMERR(123.3)") if $d(%FMERR(123.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PREREQUISITE*C} { set D0={RowId} kill wp if {PREREQUISITE}'="" { set wproot="wp" for i=1:1:$l({PREREQUISITE},$c(13,10)) { set wp(i)=$p({PREREQUISITE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(123.3,{RowId},125,,wproot,"%FMERR(123.3)") if $d(%FMERR(123.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.GMRCPROCEDU99BDS index ^GMR nonnull 123.3 "AC" {CLINICAL_PROCEDURE} {IEN} 0]]> index ^GMR nonnull 123.3 "AP" {PROTOCOL} {IEN} 0]]> index {NAME}'="" 1 ^GMR conditional 123.3 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index {INTERNAL_NAME}'="" 1 ^GMR conditional 123.3 "D" $$TRUNCATE({INTERNAL_NAME},30)) {IEN} 0]]> data ^GMR 123.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 124 new data,i,node set {DEFAULT_REASON_FOR_REQUEST}="" merge data=^GMR(123.3,{S2},124) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DEFAULT_REASON_FOR_REQUEST}={DEFAULT_REASON_FOR_REQUEST}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "IFC" 3 "^" "IFC" 2 "^" "IFC" 1 "^" 0 2 "^" 3 1 "^" 0 1 125 new data,i,node set {PREREQUISITE}="" merge data=^GMR(123.3,{S2},125) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PREREQUISITE}={PREREQUISITE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" 0 8 "^" 0 7 "^" 0 9 "^" 0 5 Generated class for FileMan File Number: '699.55' File Name: 'GROSS' Class generated by %fm2class version 2.56 This file holds grosses used for Endoscopic procedures with a screen to differentiate the type of sub-procedure(s) the gross is related to. persistent _PUBLIC 0 RowId GROSS_699_55 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.768725751 67178,44709.572861537 right GROSS 699.55 2.56 12/04/2024 12:25:09 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.55,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field holds the allowable gross list for the various GI and Pulmonary procedures. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name PROCEDURE child VALIP.prosthetic.fm2cw.SUBPROCEDURE699551 children GROSS69955 1 SUB_PROCEDURE_699_551 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.55," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.55,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.55)") set %SkipFiling=1 if $d(%FMERR(699.55,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.55)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.55,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.55)") set %SkipFiling=1 if $d(%FMERR(699.55,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.55)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.GROSS69955S index ^MCAR nonnull 699.55 "B" {NAME} {IEN} 0]]> data ^MCAR 699.55 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '445.6' File Name: 'GROUP CATEGORY' Class generated by %fm2class version 2.56 USED BY GENERIC INVENTORY SYSTEM. This file stores codes and related descriptions used for grouping inventory items. Items might be grouped for printing catalogs, doing physical counts, or other reports. Each item on the inventory (file 445) should have a group category. persistent _PUBLIC 0 RowId GROUP_CATEGORY_445_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.396888111 67178,44709.60049347 right GROUP CATEGORY 445.6 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' This is the description of the group category to be printed on reports. %Library.String 4 DESCRIPTION FileMan Field Label: 'GROUP CATEGORY CODE' FileMan Field Number: '.01' This is a code indicating the group category defined by each Inventory Point (i.e., grouping like items for printing of catalogs and other reports). %Library.String 1 3 GROUP_CATEGORY_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCP(445.6,0),""^"",3)") 1 2 IEN SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCP(445.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{GROUP_CATEGORY_CODE}'="" FDA(445.6,"+1,",.01)={"GROUP_CATEGORY_CODE"} set:{DESCRIPTION}'="" FDA(445.6,"+1,",2)={"DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(445.6)") set %SkipFiling=1 if $d(%FMERR(445.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{GROUP_CATEGORY_CODE*C} FDA(445.6,IENS,.01)={GROUP_CATEGORY_CODE} set:{DESCRIPTION*C} FDA(445.6,IENS,2)={DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.6)") set %SkipFiling=1 if $d(%FMERR(445.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.GROUPCATEGO9D8ES index ^PRCP nonnull 445.6 "B" {GROUP_CATEGORY_CODE} {IEN} 0]]> data ^PRCP 445.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '695.6' File Name: 'HEART CATHETER' Class generated by %fm2class version 2.56 This file stores the various types of catheters used in catheterization. persistent _PUBLIC 0 RowId HEART_CATHETER_695_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.791959569 67178,44709.629581535 right HEART CATHETER 695.6 2.56 12/04/2024 12:25:09 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a list of the various types of Heart catheters used for a heart Catheterization. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(695.6,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695.6)") set %SkipFiling=1 if $d(%FMERR(695.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(695.6,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.6)") set %SkipFiling=1 if $d(%FMERR(695.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.HEARTCATHETE236S index ^MCAR nonnull 695.6 "B" {NAME} {IEN} 0]]> data ^MCAR 695.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '9.2' File Name: 'HELP FRAME' Class generated by %fm2class version 2.56 This file contains the text of help frames created via the Help Processor (XQH). Help frames may be associated with options or with data dictionary fields to provide on-line instruction. The file is cross-referenced by name, header, date entered, author, and editor. persistent _PUBLIC 0 RowId HELP_FRAME_9_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.799161768 67178,44709.657398857 right HELP FRAME 9.2 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'DATE ENTERED' FileMan Field Number: '4' Date/time that this frame was entered into the system, which is used to track new Help frame activity. %Library.FilemanTimeStamp 8 DATE_ENTERED FileMan Field Label: 'DATE LAST UPDATED' FileMan Field Number: '8' This field is used to maintain an indication of the date on which the help frame was last modified or updated. %Library.FilemanDate 1 9 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(9.2,8,1)=$S($D(^DIC(9.2,D0,1,0)):^(0),1:"") S X=$P(Y(9.2,8,1),U,5) set {DATE_LAST_UPDATED}=X 1 DATE_LAST_UPDATED FileMan Field Label: 'ENTRY EXECUTE STATEMENT' FileMan Field Number: '10.1' This field is used to include an M code statement which is executed as the user enters this help frame. %Library.String 1 11 s {ENTRY_EXECUTE_STATEMENT}=$e({NODE_10_1},1,245) 1 ENTRY_EXECUTE_STATEMENT FileMan Field Label: 'EXIT EXECUTE STATEMENT' FileMan Field Number: '10.2' This field is used to provide an M code statement which is to be executed as the user exits the current help frame (whether moving into another help frame or back out of the current help frame). %Library.String 1 13 s {EXIT_EXECUTE_STATEMENT}=$e({NODE_10_2},1,245) 1 EXIT_EXECUTE_STATEMENT FileMan Field Label: 'HEADER' FileMan Field Number: '1' A short description of the frame, succinctly describing the content of the frame %Library.String 5 HEADER Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(9.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' SHORT DESCRIPTION OF THE FRAME The unique name of the frame, preceded with the package prefix name, similar to option names. %Library.String 1 4 NAME Computed Field For Node 10.1 %Library.String 1 10 s {NODE_10_1}=$g(^DIC(9.2,{IEN},10.1)) 1 NODE_10_1 Computed Field For Node 10.2 %Library.String 1 12 s {NODE_10_2}=$g(^DIC(9.2,{IEN},10.2)) 1 NODE_10_2 FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field uniquely identifies a help frame. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'TEXT' FileMan Field Number: '2' The actual text of the help frame, which will be displayed when the user presses question mark. Screen breaks are indicated by a line terminating with "..". continuation screens, or 'related frames'. %Library.String 6 TEXT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'Want to LOAD KEYWORDS (Y/N)?' FileMan Field Number: '3.5' This field is designed for internal use. Its input transform will invoke a routine to associate keywords with related help frames. %Library.String 7 WANT_TO_LOAD_KEYWORDS_YN BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(9.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(9.2,"+1,",.01)={"NAME"} set:{HEADER}'="" FDA(9.2,"+1,",1)={"HEADER"} set:{WANT_TO_LOAD_KEYWORDS_YN}'="" FDA(9.2,"+1,",3.5)={"WANT_TO_LOAD_KEYWORDS_YN"} set:{DATE_ENTERED}'="" FDA(9.2,"+1,",4)={"DATE_ENTERED"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(9.2)") set %SkipFiling=1 if $d(%FMERR(9.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {TEXT}'="" { set D0={RowId} for i=1:1:$l({TEXT},$c(13,10)) { set wp(i)=$p({TEXT},$c(13,10),i) } do WP^DIE(9.2,{RowId},2,,"wp","%FMERR(9.2)") if $d(%FMERR(9.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(9.2,IENS,.01)={NAME} set:{HEADER*C} FDA(9.2,IENS,1)={HEADER} set:{WANT_TO_LOAD_KEYWORDS_YN*C} FDA(9.2,IENS,3.5)={WANT_TO_LOAD_KEYWORDS_YN} set:{DATE_ENTERED*C} FDA(9.2,IENS,4)={DATE_ENTERED} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(9.2)") set %SkipFiling=1 if $d(%FMERR(9.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {TEXT*C} { set D0={RowId} kill wp if {TEXT}'="" { set wproot="wp" for i=1:1:$l({TEXT},$c(13,10)) { set wp(i)=$p({TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(9.2,{RowId},2,,wproot,"%FMERR(9.2)") if $d(%FMERR(9.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.HELPFRAME92S index ^DIC nonnull 9.2 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 9.2 "D" {DATE_ENTERED} {IEN} 0]]> data ^DIC 9.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 1 new data,i,node set {TEXT}="" merge data=^DIC(9.2,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {TEXT}={TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 5 Generated class for FileMan File Number: '694' File Name: 'HEMATOLOGY' Class generated by %fm2class version 2.56 Stores results of Bone Marrow Aspirates and Bone Marrow Biopsies. persistent _PUBLIC 0 RowId HEMATOLOGY_694 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.859706531 67178,44709.72040381 right HEMATOLOGY 694 2.56 12/04/2024 12:25:09 1 1 IEN 1 ANATOMY_697]]> ANATOMICSITE VALIP.prosthetic.fm2cw.ANATOMY697 FKey_ANATOMIC_SITE NEW_PERSON_200]]> APPROVEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_APPROVED_BY NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PERFORMEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PERFORMED_BY NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER PROCEDURESUBSPECIALTY_697_2]]> PROCEDURE2 VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 FKey_PROCEDURE2 NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'ANATOMIC SITE' FileMan Field Number: '2.5' This field identifies a pointer to the anatomy file. VALIP.prosthetic.fm2cw.ANATOMY697 7 ANATOMIC_SITE NAME This field contains a list of body locations for use by the various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {ANATOMIC_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ANATOMIC_SITE_NAME 1 FileMan Field Label: 'APPROVAL DATE' FileMan Field Number: '52' This field identifies the date on which the results were approved. %Library.FilemanDate 53 APPROVAL_DATE FileMan Field Label: 'APPROVED BY' FileMan Field Number: '51' This field identifies the health care provider who approved the results. VALIP.prosthetic.fm2cw.NEWPERSON200 52 APPROVED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {APPROVED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 APPROVED_BY_NAME 1 FileMan Field Label: 'BANDS' FileMan Field Number: '14' The number of bands found. %Library.Numeric 21 BANDS FileMan Field Label: 'BASOPHILIC NORMOBLASTS' FileMan Field Number: '24' The number of basophilic normoblasts found. %Library.Numeric 31 BASOPHILIC_NORMOBLASTS FileMan Field Label: 'BASOPHILS' FileMan Field Number: '20' The number of basophils found. %Library.Numeric 27 BASOPHILS FileMan Field Label: 'BIOPSY COMMENTS' FileMan Field Number: '4.1' This field identifies a free text field, enter any pertinent biopsy comments. %Library.String 9 BIOPSY_COMMENTS FileMan Field Label: 'CELLULARITY' FileMan Field Number: '8' One of a set of descriptors of the occurrance of cellularity. %Library.EnumString 13 CELLULARITY FileMan Field Label: 'CELLULARITY MODIFIER' FileMan Field Number: '8.1' One of a set of adjectives used to further define cellularity. %Library.EnumString 14 CELLULARITY_MODIFIER FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 63 COSIGNER_VALIDATION_CODE FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 76 CREATION_DATE FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This field identifies the time and date of entry. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 69 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 70 DATE_OF_VERIFIED FileMan Field Label: 'DATE PERFORMED' FileMan Field Number: '34' Documentation of procedure date. %Library.FilemanTimeStamp 39 DATE_PERFORMED FileMan Field Label: 'DECALCIFICATION OF SPECIMEN' FileMan Field Number: '36' Did decalcification of the specimen occur? %Library.EnumString 40 DECALCIFICATION_OF_SPECIMEN FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 74 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'DIFF(Y/N)' FileMan Field Number: '12' This field identifies no. %Library.EnumString 19 DIFFYN FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 64 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 62 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'EOSINOPHILS' FileMan Field Number: '19' Number of eosinophils found. %Library.Numeric 26 EOSINOPHILS FileMan Field Label: 'FINAL DIAGNOSIS REMARKS' FileMan Field Number: '41' Free text field for diagnostic remarks. %Library.String 43 FINAL_DIAGNOSIS_REMARKS FileMan Field Label: 'FIXATIVE' FileMan Field Number: '43' This field identifies for BMB only %Library.EnumString 44 FIXATIVE FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 61 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HISTIOCYTES' FileMan Field Number: '29' Number of histiocytes found. %Library.Numeric 36 HISTIOCYTES Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(694,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IRON STORES' FileMan Field Number: '9.5' From set of positive values. %Library.EnumString 16 IRON_STORES FileMan Field Label: 'LYMPHOBLASTS' FileMan Field Number: '26' Number of lymphoblasts found. %Library.Numeric 33 LYMPHOBLASTS FileMan Field Label: 'LYMPHOCYTES' FileMan Field Number: '21' The number of lymphocytes found. %Library.Numeric 28 LYMPHOCYTES FileMan Field Label: 'MARK FOR DELETION' FileMan Field Number: '1511' %Library.EnumString 73 MARK_FOR_DELETION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the medical patient name. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'MEGAKARYOCYTES' FileMan Field Number: '10' This field identifies the megakaryocyte count. %Library.EnumString 17 MEGAKARYOCYTES FileMan Field Label: 'MEGAKARYOCYTES MODIFIER' FileMan Field Number: '10.1' This field identifies the megakaryocyte count modifier. %Library.EnumString 18 MEGAKARYOCYTES_MODIFIER FileMan Field Label: 'METAMYELOCYTES' FileMan Field Number: '15' This field identifies the metamyelocyte count field. %Library.Numeric 22 METAMYELOCYTES FileMan Field Label: 'M:E RATIO' FileMan Field Number: '9' This field identifies the M:E ratio. %Library.String 15 ME_RATIO FileMan Field Label: 'MICRO DESCRIPTION REMARKS' FileMan Field Number: '54' This field identifies the micro description remark field. %Library.String 54 MICRO_DESCRIPTION_REMARKS FileMan Field Label: 'MONOCYTES' FileMan Field Number: '28' This field identifies the monocyte count field. %Library.Numeric 35 MONOCYTES FileMan Field Label: 'MYELOBLASTS' FileMan Field Number: '18' This field identifies the myeloblast count field. %Library.Numeric 25 MYELOBLASTS FileMan Field Label: 'MYELOCYTES' FileMan Field Number: '16' This field identifies the myelocyte count. %Library.Numeric 23 MYELOCYTES FileMan Field Label: 'NEUTROPHILS' FileMan Field Number: '13' This field identifies the neutrophil description. %Library.Numeric 20 NEUTROPHILS FileMan Field Label: 'NO. CELLS COUNTED' FileMan Field Number: '7' This field identifies the number of cells counted. %Library.Numeric 12 NO__CELLS_COUNTED FileMan Field Label: 'NUMBER OF PIECES' FileMan Field Number: '44' This field identifies for BMB only %Library.Numeric 45 NUMBER_OF_PIECES FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 60 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'ORIGINAL CONSULT DATE' FileMan Field Number: '5' This field identifies the date of consult. %Library.FilemanDate 10 ORIGINAL_CONSULT_DATE FileMan Field Label: 'ORTHOCHROMATIC NORMOBLASTS' FileMan Field Number: '22' This field identifies the normoblast count filed. %Library.Numeric 29 ORTHOCHROMATIC_NORMOBLASTS FileMan Field Label: 'OTHER CELL TYPE' FileMan Field Number: '31' This field identifies the other cell type descriptor. %Library.String 38 OTHER_CELL_TYPE FileMan Field Label: 'OTHER CELL TYPE COUNT' FileMan Field Number: '30' This field identifies the other cell type count field. %Library.Numeric 37 OTHER_CELL_TYPE_COUNT FileMan Field Label: 'OTHER INDICATION' FileMan Field Number: '58' This field identifies the other indication field. %Library.String 56 OTHER_INDICATION FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 59 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PERFORMED BY' FileMan Field Number: '50' This field identifies the health care provider who performed this procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 51 PERFORMED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {PERFORMED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERFORMED_BY_NAME 1 FileMan Field Label: 'PERIPHERAL BLOOD SMEAR' FileMan Field Number: '56' This field documents the results of the peripheral smear. %Library.String 55 PERIPHERAL_BLOOD_SMEAR FileMan Field Label: 'PIECE 1' FileMan Field Number: '45' This field is for BMB only. %Library.Numeric 46 PIECE_1 FileMan Field Label: 'PIECE 2' FileMan Field Number: '46' This field is for BMB only %Library.Numeric 47 PIECE_2 FileMan Field Label: 'PIECE 3' FileMan Field Number: '47' This field is for BMB only %Library.Numeric 48 PIECE_3 FileMan Field Label: 'PIECE 4' FileMan Field Number: '48' This field is for BMB only %Library.Numeric 49 PIECE_4 FileMan Field Label: 'PIECE 5' FileMan Field Number: '49' This field is for BMB only %Library.Numeric 50 PIECE_5 FileMan Field Label: 'PLASMA CELLS' FileMan Field Number: '27' This field identifies the plasma cell count field. %Library.Numeric 34 PLASMA_CELLS FileMan Field Label: 'POLYCHROMATIC NORMOBLASTS' FileMan Field Number: '23' This field identifies the polychromatic normoblast count field. %Library.Numeric 30 POLYCHROMATIC_NORMOBLASTS FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 58 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE' FileMan Field Number: '2' This field identifies a pointer to the procedure location file. VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 1 6 PROCEDURE2 NAME The short names of the various medicine procedures are stored here.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {PROCEDURE2_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE2_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This 1-79 character field is produced on the summary of patient procedures. %Library.String 57 PROCEDURE_SUMMARY FileMan Field Label: 'PROMYELOCYTES' FileMan Field Number: '17' This field identifies the promyelocyte count field. %Library.Numeric 24 PROMYELOCYTES FileMan Field Label: 'PRONORMOBLASTS' FileMan Field Number: '25' This field identifies the pronormoblast count field. %Library.Numeric 32 PRONORMOBLASTS FileMan Field Label: 'PROVISIONAL DX REMARKS' FileMan Field Number: '6.5' This field identifies a free text field, enter provisional DX remarks. %Library.String 11 PROVISIONAL_DX_REMARKS FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' %Library.EnumString 68 RELEASE_CODE FileMan Field Label: 'RELEASE REPORT' FileMan Field Number: '39' This field identifies the release report field. %Library.EnumString 42 RELEASE_REPORT FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 66 SIGNER_VALIDATION_CODE FileMan Field Label: 'SPECIMEN SUBMITTED FOR PLASTIC' FileMan Field Number: '37' This field identifies the specimen submitted for plastic field. %Library.EnumString 41 SPECIMEN_SUBMITTED_FOR_PLASTIC Relationship for Sub-File/Multiple to file name COMPLICATIONS child VALIP.prosthetic.fm2cw.SUBCOMPLICATIONS694055 children HEMATOLOGY694 1 SUB_COMPLICATIONS_694_055 Relationship for Sub-File/Multiple to file name FINAL DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBFINALDIAGNOSIS694035 children HEMATOLOGY694 1 SUB_FINAL_DIAGNOSIS_694_035 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69402 children HEMATOLOGY694 1 SUB_ICD_DIAGNOSIS_694_02 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE69402005 children HEMATOLOGY694 1 SUB_IMAGE_694_02005 Relationship for Sub-File/Multiple to file name INDICATION child VALIP.prosthetic.fm2cw.SUBINDICATION694057 children HEMATOLOGY694 1 SUB_INDICATION_694_057 Relationship for Sub-File/Multiple to file name MICROSCOPIC DESCRIPTION child VALIP.prosthetic.fm2cw.SUBMICROSCOPICDESCRIPTION69401 children HEMATOLOGY694 1 SUB_MICROSCOPIC_DESCRIPTION_694_01 Relationship for Sub-File/Multiple to file name PROVISIONAL DX child VALIP.prosthetic.fm2cw.SUBPROVISIONALDX694038 children HEMATOLOGY694 1 SUB_PROVISIONAL_DX_694_038 FileMan Field Label: 'SUMMARY' FileMan Field Number: '1.5' This field summarizes the results of this procedure. %Library.EnumString 5 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 71 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 72 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.String 75 SUPERSEDED_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 77 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 67 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 65 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '3' This field identifies the in-house location of the patient. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 8 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HEMATOLOGY_694 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(694," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(694,"+1,",.01)={"DATETIME"} set:{MEDICAL_PATIENT}'="" FDA(694,"+1,",1)={"MEDICAL_PATIENT"} set:{SUMMARY}'="" FDA(694,"+1,",1.5)={"SUMMARY"} set:{PROCEDURE2}'="" FDA(694,"+1,",2)={"PROCEDURE2"} set:{ANATOMIC_SITE}'="" FDA(694,"+1,",2.5)={"ANATOMIC_SITE"} set:{WARDCLINIC}'="" FDA(694,"+1,",3)={"WARDCLINIC"} set:{BIOPSY_COMMENTS}'="" FDA(694,"+1,",4.1)={"BIOPSY_COMMENTS"} set:{ORIGINAL_CONSULT_DATE}'="" FDA(694,"+1,",5)={"ORIGINAL_CONSULT_DATE"} set:{PROVISIONAL_DX_REMARKS}'="" FDA(694,"+1,",6.5)={"PROVISIONAL_DX_REMARKS"} set:{NO__CELLS_COUNTED}'="" FDA(694,"+1,",7)={"NO__CELLS_COUNTED"} set:{CELLULARITY}'="" FDA(694,"+1,",8)={"CELLULARITY"} set:{CELLULARITY_MODIFIER}'="" FDA(694,"+1,",8.1)={"CELLULARITY_MODIFIER"} set:{ME_RATIO}'="" FDA(694,"+1,",9)={"ME_RATIO"} set:{IRON_STORES}'="" FDA(694,"+1,",9.5)={"IRON_STORES"} set:{MEGAKARYOCYTES}'="" FDA(694,"+1,",10)={"MEGAKARYOCYTES"} set:{MEGAKARYOCYTES_MODIFIER}'="" FDA(694,"+1,",10.1)={"MEGAKARYOCYTES_MODIFIER"} set:{DIFFYN}'="" FDA(694,"+1,",12)={"DIFFYN"} set:{NEUTROPHILS}'="" FDA(694,"+1,",13)={"NEUTROPHILS"} set:{BANDS}'="" FDA(694,"+1,",14)={"BANDS"} set:{METAMYELOCYTES}'="" FDA(694,"+1,",15)={"METAMYELOCYTES"} set:{MYELOCYTES}'="" FDA(694,"+1,",16)={"MYELOCYTES"} set:{PROMYELOCYTES}'="" FDA(694,"+1,",17)={"PROMYELOCYTES"} set:{MYELOBLASTS}'="" FDA(694,"+1,",18)={"MYELOBLASTS"} set:{EOSINOPHILS}'="" FDA(694,"+1,",19)={"EOSINOPHILS"} set:{BASOPHILS}'="" FDA(694,"+1,",20)={"BASOPHILS"} set:{LYMPHOCYTES}'="" FDA(694,"+1,",21)={"LYMPHOCYTES"} set:{ORTHOCHROMATIC_NORMOBLASTS}'="" FDA(694,"+1,",22)={"ORTHOCHROMATIC_NORMOBLASTS"} set:{POLYCHROMATIC_NORMOBLASTS}'="" FDA(694,"+1,",23)={"POLYCHROMATIC_NORMOBLASTS"} set:{BASOPHILIC_NORMOBLASTS}'="" FDA(694,"+1,",24)={"BASOPHILIC_NORMOBLASTS"} set:{PRONORMOBLASTS}'="" FDA(694,"+1,",25)={"PRONORMOBLASTS"} set:{LYMPHOBLASTS}'="" FDA(694,"+1,",26)={"LYMPHOBLASTS"} set:{PLASMA_CELLS}'="" FDA(694,"+1,",27)={"PLASMA_CELLS"} set:{MONOCYTES}'="" FDA(694,"+1,",28)={"MONOCYTES"} set:{HISTIOCYTES}'="" FDA(694,"+1,",29)={"HISTIOCYTES"} set:{OTHER_CELL_TYPE_COUNT}'="" FDA(694,"+1,",30)={"OTHER_CELL_TYPE_COUNT"} set:{OTHER_CELL_TYPE}'="" FDA(694,"+1,",31)={"OTHER_CELL_TYPE"} set:{DATE_PERFORMED}'="" FDA(694,"+1,",34)={"DATE_PERFORMED"} set:{DECALCIFICATION_OF_SPECIMEN}'="" FDA(694,"+1,",36)={"DECALCIFICATION_OF_SPECIMEN"} set:{SPECIMEN_SUBMITTED_FOR_PLASTIC}'="" FDA(694,"+1,",37)={"SPECIMEN_SUBMITTED_FOR_PLASTIC"} set:{RELEASE_REPORT}'="" FDA(694,"+1,",39)={"RELEASE_REPORT"} set:{FIXATIVE}'="" FDA(694,"+1,",43)={"FIXATIVE"} set:{NUMBER_OF_PIECES}'="" FDA(694,"+1,",44)={"NUMBER_OF_PIECES"} set:{PIECE_1}'="" FDA(694,"+1,",45)={"PIECE_1"} set:{PIECE_2}'="" FDA(694,"+1,",46)={"PIECE_2"} set:{PIECE_3}'="" FDA(694,"+1,",47)={"PIECE_3"} set:{PIECE_4}'="" FDA(694,"+1,",48)={"PIECE_4"} set:{PIECE_5}'="" FDA(694,"+1,",49)={"PIECE_5"} set:{PERFORMED_BY}'="" FDA(694,"+1,",50)={"PERFORMED_BY"} set:{APPROVED_BY}'="" FDA(694,"+1,",51)={"APPROVED_BY"} set:{APPROVAL_DATE}'="" FDA(694,"+1,",52)={"APPROVAL_DATE"} set:{PERIPHERAL_BLOOD_SMEAR}'="" FDA(694,"+1,",56)={"PERIPHERAL_BLOOD_SMEAR"} set:{PROCEDURE_SUMMARY}'="" FDA(694,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(694,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(694,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(694,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(694,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(694,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(694,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(694,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(694,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(694,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(694,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(694,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(694,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(694,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(694,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(694,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETION}'="" FDA(694,"+1,",1511)={"MARK_FOR_DELETION"} set:{DELETER_DUZ}'="" FDA(694,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(694,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(694,"+1,",1514)={"CREATION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(694)") set %SkipFiling=1 if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {FINAL_DIAGNOSIS_REMARKS}'="" { set D0={RowId} for i=1:1:$l({FINAL_DIAGNOSIS_REMARKS},$c(13,10)) { set wp(i)=$p({FINAL_DIAGNOSIS_REMARKS},$c(13,10),i) } do WP^DIE(694,{RowId},41,,"wp","%FMERR(694)") if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MICRO_DESCRIPTION_REMARKS}'="" { set D0={RowId} for i=1:1:$l({MICRO_DESCRIPTION_REMARKS},$c(13,10)) { set wp(i)=$p({MICRO_DESCRIPTION_REMARKS},$c(13,10),i) } do WP^DIE(694,{RowId},54,,"wp","%FMERR(694)") if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_INDICATION}'="" { set D0={RowId} for i=1:1:$l({OTHER_INDICATION},$c(13,10)) { set wp(i)=$p({OTHER_INDICATION},$c(13,10),i) } do WP^DIE(694,{RowId},58,,"wp","%FMERR(694)") if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(694,IENS,.01)={DATETIME} set:{MEDICAL_PATIENT*C} FDA(694,IENS,1)={MEDICAL_PATIENT} set:{SUMMARY*C} FDA(694,IENS,1.5)={SUMMARY} set:{PROCEDURE2*C} FDA(694,IENS,2)={PROCEDURE2} set:{ANATOMIC_SITE*C} FDA(694,IENS,2.5)={ANATOMIC_SITE} set:{WARDCLINIC*C} FDA(694,IENS,3)={WARDCLINIC} set:{BIOPSY_COMMENTS*C} FDA(694,IENS,4.1)={BIOPSY_COMMENTS} set:{ORIGINAL_CONSULT_DATE*C} FDA(694,IENS,5)={ORIGINAL_CONSULT_DATE} set:{PROVISIONAL_DX_REMARKS*C} FDA(694,IENS,6.5)={PROVISIONAL_DX_REMARKS} set:{NO__CELLS_COUNTED*C} FDA(694,IENS,7)={NO__CELLS_COUNTED} set:{CELLULARITY*C} FDA(694,IENS,8)={CELLULARITY} set:{CELLULARITY_MODIFIER*C} FDA(694,IENS,8.1)={CELLULARITY_MODIFIER} set:{ME_RATIO*C} FDA(694,IENS,9)={ME_RATIO} set:{IRON_STORES*C} FDA(694,IENS,9.5)={IRON_STORES} set:{MEGAKARYOCYTES*C} FDA(694,IENS,10)={MEGAKARYOCYTES} set:{MEGAKARYOCYTES_MODIFIER*C} FDA(694,IENS,10.1)={MEGAKARYOCYTES_MODIFIER} set:{DIFFYN*C} FDA(694,IENS,12)={DIFFYN} set:{NEUTROPHILS*C} FDA(694,IENS,13)={NEUTROPHILS} set:{BANDS*C} FDA(694,IENS,14)={BANDS} set:{METAMYELOCYTES*C} FDA(694,IENS,15)={METAMYELOCYTES} set:{MYELOCYTES*C} FDA(694,IENS,16)={MYELOCYTES} set:{PROMYELOCYTES*C} FDA(694,IENS,17)={PROMYELOCYTES} set:{MYELOBLASTS*C} FDA(694,IENS,18)={MYELOBLASTS} set:{EOSINOPHILS*C} FDA(694,IENS,19)={EOSINOPHILS} set:{BASOPHILS*C} FDA(694,IENS,20)={BASOPHILS} set:{LYMPHOCYTES*C} FDA(694,IENS,21)={LYMPHOCYTES} set:{ORTHOCHROMATIC_NORMOBLASTS*C} FDA(694,IENS,22)={ORTHOCHROMATIC_NORMOBLASTS} set:{POLYCHROMATIC_NORMOBLASTS*C} FDA(694,IENS,23)={POLYCHROMATIC_NORMOBLASTS} set:{BASOPHILIC_NORMOBLASTS*C} FDA(694,IENS,24)={BASOPHILIC_NORMOBLASTS} set:{PRONORMOBLASTS*C} FDA(694,IENS,25)={PRONORMOBLASTS} set:{LYMPHOBLASTS*C} FDA(694,IENS,26)={LYMPHOBLASTS} set:{PLASMA_CELLS*C} FDA(694,IENS,27)={PLASMA_CELLS} set:{MONOCYTES*C} FDA(694,IENS,28)={MONOCYTES} set:{HISTIOCYTES*C} FDA(694,IENS,29)={HISTIOCYTES} set:{OTHER_CELL_TYPE_COUNT*C} FDA(694,IENS,30)={OTHER_CELL_TYPE_COUNT} set:{OTHER_CELL_TYPE*C} FDA(694,IENS,31)={OTHER_CELL_TYPE} set:{DATE_PERFORMED*C} FDA(694,IENS,34)={DATE_PERFORMED} set:{DECALCIFICATION_OF_SPECIMEN*C} FDA(694,IENS,36)={DECALCIFICATION_OF_SPECIMEN} set:{SPECIMEN_SUBMITTED_FOR_PLASTIC*C} FDA(694,IENS,37)={SPECIMEN_SUBMITTED_FOR_PLASTIC} set:{RELEASE_REPORT*C} FDA(694,IENS,39)={RELEASE_REPORT} set:{FIXATIVE*C} FDA(694,IENS,43)={FIXATIVE} set:{NUMBER_OF_PIECES*C} FDA(694,IENS,44)={NUMBER_OF_PIECES} set:{PIECE_1*C} FDA(694,IENS,45)={PIECE_1} set:{PIECE_2*C} FDA(694,IENS,46)={PIECE_2} set:{PIECE_3*C} FDA(694,IENS,47)={PIECE_3} set:{PIECE_4*C} FDA(694,IENS,48)={PIECE_4} set:{PIECE_5*C} FDA(694,IENS,49)={PIECE_5} set:{PERFORMED_BY*C} FDA(694,IENS,50)={PERFORMED_BY} set:{APPROVED_BY*C} FDA(694,IENS,51)={APPROVED_BY} set:{APPROVAL_DATE*C} FDA(694,IENS,52)={APPROVAL_DATE} set:{PERIPHERAL_BLOOD_SMEAR*C} FDA(694,IENS,56)={PERIPHERAL_BLOOD_SMEAR} set:{PROCEDURE_SUMMARY*C} FDA(694,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(694,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(694,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(694,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(694,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(694,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(694,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(694,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(694,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(694,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(694,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(694,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(694,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(694,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(694,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(694,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETION*C} FDA(694,IENS,1511)={MARK_FOR_DELETION} set:{DELETER_DUZ*C} FDA(694,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(694,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(694,IENS,1514)={CREATION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694)") set %SkipFiling=1 if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {FINAL_DIAGNOSIS_REMARKS*C} { set D0={RowId} kill wp if {FINAL_DIAGNOSIS_REMARKS}'="" { set wproot="wp" for i=1:1:$l({FINAL_DIAGNOSIS_REMARKS},$c(13,10)) { set wp(i)=$p({FINAL_DIAGNOSIS_REMARKS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(694,{RowId},41,,wproot,"%FMERR(694)") if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MICRO_DESCRIPTION_REMARKS*C} { set D0={RowId} kill wp if {MICRO_DESCRIPTION_REMARKS}'="" { set wproot="wp" for i=1:1:$l({MICRO_DESCRIPTION_REMARKS},$c(13,10)) { set wp(i)=$p({MICRO_DESCRIPTION_REMARKS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(694,{RowId},54,,wproot,"%FMERR(694)") if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_INDICATION*C} { set D0={RowId} kill wp if {OTHER_INDICATION}'="" { set wproot="wp" for i=1:1:$l({OTHER_INDICATION},$c(13,10)) { set wp(i)=$p({OTHER_INDICATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(694,{RowId},58,,wproot,"%FMERR(694)") if $d(%FMERR(694,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.HEMATOLOGY694S index ^MCAR nonnull 694 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 694 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 694 "C" {MEDICAL_PATIENT} {IEN} 0]]> index {RELEASE_CODE}'="" 1 ^MCAR conditional 694 "ES" $$TRUNCATE({RELEASE_CODE},30)) {IEN} 0]]> data ^MCAR 694 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" 1 10 "^" 1 9 "^" 4 12 "^" 4 3 "^" 4 19 "^" 0 6 "^" 1 3 "^" 1 7 "^" "ES" 2 "^" "ES" 15 "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" 0 8 "^" 9 1 "^" "ES" 13 "^" 6 1 "^" "ES" 3 "^" "ES" 1 "^" 4 18 3 new data,i,node set {FINAL_DIAGNOSIS_REMARKS}="" merge data=^MCAR(694,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {FINAL_DIAGNOSIS_REMARKS}={FINAL_DIAGNOSIS_REMARKS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 6 2 "^" "OR" 2 "^" 4 8 "^" 1 6 "^" 4 5 "^" 4 20 "^" "ES" 12 "^" 0 2 "^" 1 5 "^" 1 8 "^" 4 14 "^" 1 4 7 new data,i,node set {MICRO_DESCRIPTION_REMARKS}="" merge data=^MCAR(694,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {MICRO_DESCRIPTION_REMARKS}={MICRO_DESCRIPTION_REMARKS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 4 7 "^" 4 17 "^" 4 15 "^" 4 11 "^" 4 13 "^" 6 3 "^" "OR" 1 "^" 0 7 "^" 4 1 "^" 4 10 "^" 4 9 13 new data,i,node set {OTHER_INDICATION}="" merge data=^MCAR(694,{S2},13) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_INDICATION}={OTHER_INDICATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PCC" 1 "^" 1 11 "^" 11 1 "^" 6 4 "^" 6 5 "^" 6 6 "^" 6 7 "^" 6 8 "^" 4 6 "^" 4 2 "^" "PROV" 1 "^" 0 3 "^" .2 2 "^" 4 16 "^" 4 4 "^" 1 2 "^" "ES" 7 "^" 0 9 "^" "ES" 5 "^" 9 2 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 6 "^" "ES" 4 "^" 0 4 Generated class for FileMan File Number: '771.9' File Name: 'HL7 DEGREE' Class generated by %fm2class version 2.56 A list of educational degrees as specified in the HL7 standard, user-defined DEGREE table 0360. persistent _PUBLIC 0 RowId HL7_DEGREE_771_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.833642809 67178,44709.780111523 right HL7 DEGREE 771.9 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '2' The HL7 educational degree abbreviated value (e.g. AA or PharmD, etc.) %Library.String 1 4 ABBREVIATION FileMan Field Label: 'HL7 STANDARD' FileMan Field Number: '50' %Library.String 1 5 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(771.9,50,9.5) S X=$S(Y(771.9,50,2):Y(771.9,50,3),Y(771.9,50,4):X) set {HL7_STANDARD}=X 1 HL7_STANDARD Internal Entry Number %Library.String $$next^%apiSQL("$p(^HL(771.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' The HL7 educational degree (e.g., ASSOCIATE OF ARTS) %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name USING APPLICATION child VALIP.prosthetic.fm2cw.SUBUSINGAPPLICATION7719051 children HL7DEGREE7719 1 SUB_USING_APPLICATION_771_9051 Relationship for Sub-File/Multiple to file name VERSION child VALIP.prosthetic.fm2cw.SUBVERSION77193 children HL7DEGREE7719 1 SUB_VERSION_771_93 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^HL(771.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(771.9,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(771.9,"+1,",2)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(771.9)") set %SkipFiling=1 if $d(%FMERR(771.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(771.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(771.9,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(771.9,IENS,2)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(771.9)") set %SkipFiling=1 if $d(%FMERR(771.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(771.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.HL7DEGREE7719S index ^HL nonnull 771.9 "B" {NAME} {IEN} 0]]> index ^HL nonnull 771.9 "D" {ABBREVIATION} {IEN} 0]]> data ^HL 771.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '772' File Name: 'HL7 MESSAGE TEXT' Class generated by %fm2class version 2.56 This file contains information related to the processing of all incoming and outgoing messages. persistent _PUBLIC 0 RowId HL7_MESSAGE_TEXT_772 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.843676745 67178,44709.809154048 right HL7 MESSAGE TEXT 772 2.56 12/04/2024 12:25:09 1 1 IEN 1 FileMan Field Label: 'ACK TIMEOUT' FileMan Field Number: '26' The number of seconds the Lower Layer Protocol waits for an acknowledgement from the receiving application. This field will override the ACK TIMEOUT of the Logical Link for this message. %Library.Numeric 16 ACK_TIMEOUT FileMan Field Label: 'CONTINUATION POINTER' FileMan Field Number: '13' %Library.String 10 CONTINUATION_POINTER FileMan Field Label: 'DATE/TIME ENTERED' FileMan Field Number: '.01' The Date/Time the message was created. %Library.FilemanTimeStamp 1 3 DATETIME_ENTERED FileMan Field Label: 'DATE/TIME PROCESSED' FileMan Field Number: '21' The date and time this transmission was actually processed (sent or received). %Library.FilemanTimeStamp 14 DATETIME_PROCESSED FileMan Field Label: 'DON'T PURGE' FileMan Field Number: '15' When this field is set to 1, the message wil never be purged by the HL7 "Purge Message Text File Entries" option. However, when this field is set to 0 or is empty, the message is allowed to be purged by the HL7 "Purge Message Text Entries" option. %Library.EnumString 12 DONT_PURGE FileMan Field Label: 'ERROR MESSAGE' FileMan Field Number: '22' If there was an error in sending or receiving this transmission, this field will contain the 3-200 character error message. %Library.String 15 ERROR_MESSAGE FileMan Field Label: 'FAST PURGE DT/TM' FileMan Field Number: '2.02' %Library.FilemanTimeStamp 4 FAST_PURGE_DTTM Internal Entry Number %Library.String $$next^%apiSQL("$p(^HL(772,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MESSAGE ID' FileMan Field Number: '6' The unique ID for this HL7 message. %Library.String 7 MESSAGE_ID FileMan Field Label: 'MESSAGE TEXT' FileMan Field Number: '200' The actual text of the incoming HL7 message(s). %Library.String 20 MESSAGE_TEXT FileMan Field Label: 'MESSAGE TYPE' FileMan Field Number: '14' There are three types of messages as follows: M for Single message (contains only one MSH segment) B for Batch of messages (contains multiple MSH segments) F for File of batches (contains multiple BHS segments) This field is automatically filled in by the Messaging System and is used to determine the appropriate header segment to build for a message. %Library.EnumString 11 MESSAGE_TYPE FileMan Field Label: 'NAMESPACE' FileMan Field Number: '16' This field must not be filled in manually. It will be filled in automatically by the HL7 processes that create entries in the HL7 Message Text file (#772). In most instances, applications will call GENERATE^HLMA, GENACK^HLMA, or DIRECT^HLMA. When they do, they will pass by reference into the last OPTIONS (in the documentation) parameter the value of the namespace. The value of the namespace will be in the form of OPTIONS("NAMESPACE")=NAMESPACE. Please note that the calls to the three APIs mentioned above use the variable HLP to hold the passed in by reference array. So, in the HLMA code (and other code invoked by HLMA), the actual variable used is HLP("NAMESPACE"). This field is populated by UPDATE^HLTF0. %Library.String 13 NAMESPACE FileMan Field Label: 'NO. OF CHARACTERS IN MESSAGE' FileMan Field Number: '100' A count of the total number of characters in the mail message associated with this HL7 transmission entry. %Library.Numeric 17 NO__OF_CHARACTERS_IN_MESSAGE FileMan Field Label: 'NO. OF EVENTS IN MESSAGE' FileMan Field Number: '101' A count of the total number of events (HL7 messages) contained in the mail message associated with this HL7 transmission entry. %Library.Numeric 18 NO__OF_EVENTS_IN_MESSAGE FileMan Field Label: 'PRIORITY' FileMan Field Number: '9' The delivery priority assigned to this message. Either 'I' for Immediate or 'D' for Deferred. %Library.EnumString 8 PRIORITY FileMan Field Label: 'RELATED MAILMAN MESSAGE' FileMan Field Number: '5' The MailMan message number related to this transmission. %Library.String 6 RELATED_MAILMAN_MESSAGE FileMan Field Label: 'SECURITY' FileMan Field Number: '12' %Library.String 9 SECURITY FileMan Field Label: 'TRANSMISSION TIME' FileMan Field Number: '102' The time it took to transmit this message to the primary network addressee. %Library.Numeric 19 TRANSMISSION_TIME FileMan Field Label: 'TRANSMISSION TYPE' FileMan Field Number: '4' The type of transmission (incoming or outgoing). %Library.EnumString 5 TRANSMISSION_TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 21 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^HL(772," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME_ENTERED}'="" FDA(772,"+1,",.01)={"DATETIME_ENTERED"} set:{FAST_PURGE_DTTM}'="" FDA(772,"+1,",2.02)={"FAST_PURGE_DTTM"} set:{TRANSMISSION_TYPE}'="" FDA(772,"+1,",4)={"TRANSMISSION_TYPE"} set:{RELATED_MAILMAN_MESSAGE}'="" FDA(772,"+1,",5)={"RELATED_MAILMAN_MESSAGE"} set:{MESSAGE_ID}'="" FDA(772,"+1,",6)={"MESSAGE_ID"} set:{PRIORITY}'="" FDA(772,"+1,",9)={"PRIORITY"} set:{SECURITY}'="" FDA(772,"+1,",12)={"SECURITY"} set:{CONTINUATION_POINTER}'="" FDA(772,"+1,",13)={"CONTINUATION_POINTER"} set:{MESSAGE_TYPE}'="" FDA(772,"+1,",14)={"MESSAGE_TYPE"} set:{DONT_PURGE}'="" FDA(772,"+1,",15)={"DONT_PURGE"} set:{NAMESPACE}'="" FDA(772,"+1,",16)={"NAMESPACE"} set:{DATETIME_PROCESSED}'="" FDA(772,"+1,",21)={"DATETIME_PROCESSED"} set:{ERROR_MESSAGE}'="" FDA(772,"+1,",22)={"ERROR_MESSAGE"} set:{ACK_TIMEOUT}'="" FDA(772,"+1,",26)={"ACK_TIMEOUT"} set:{NO__OF_CHARACTERS_IN_MESSAGE}'="" FDA(772,"+1,",100)={"NO__OF_CHARACTERS_IN_MESSAGE"} set:{NO__OF_EVENTS_IN_MESSAGE}'="" FDA(772,"+1,",101)={"NO__OF_EVENTS_IN_MESSAGE"} set:{TRANSMISSION_TIME}'="" FDA(772,"+1,",102)={"TRANSMISSION_TIME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(772)") set %SkipFiling=1 if $d(%FMERR(772,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(772)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {MESSAGE_TEXT}'="" { set D0={RowId} for i=1:1:$l({MESSAGE_TEXT},$c(13,10)) { set wp(i)=$p({MESSAGE_TEXT},$c(13,10),i) } do WP^DIE(772,{RowId},200,,"wp","%FMERR(772)") if $d(%FMERR(772,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(772)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME_ENTERED*C} FDA(772,IENS,.01)={DATETIME_ENTERED} set:{FAST_PURGE_DTTM*C} FDA(772,IENS,2.02)={FAST_PURGE_DTTM} set:{TRANSMISSION_TYPE*C} FDA(772,IENS,4)={TRANSMISSION_TYPE} set:{RELATED_MAILMAN_MESSAGE*C} FDA(772,IENS,5)={RELATED_MAILMAN_MESSAGE} set:{MESSAGE_ID*C} FDA(772,IENS,6)={MESSAGE_ID} set:{PRIORITY*C} FDA(772,IENS,9)={PRIORITY} set:{SECURITY*C} FDA(772,IENS,12)={SECURITY} set:{CONTINUATION_POINTER*C} FDA(772,IENS,13)={CONTINUATION_POINTER} set:{MESSAGE_TYPE*C} FDA(772,IENS,14)={MESSAGE_TYPE} set:{DONT_PURGE*C} FDA(772,IENS,15)={DONT_PURGE} set:{NAMESPACE*C} FDA(772,IENS,16)={NAMESPACE} set:{DATETIME_PROCESSED*C} FDA(772,IENS,21)={DATETIME_PROCESSED} set:{ERROR_MESSAGE*C} FDA(772,IENS,22)={ERROR_MESSAGE} set:{ACK_TIMEOUT*C} FDA(772,IENS,26)={ACK_TIMEOUT} set:{NO__OF_CHARACTERS_IN_MESSAGE*C} FDA(772,IENS,100)={NO__OF_CHARACTERS_IN_MESSAGE} set:{NO__OF_EVENTS_IN_MESSAGE*C} FDA(772,IENS,101)={NO__OF_EVENTS_IN_MESSAGE} set:{TRANSMISSION_TIME*C} FDA(772,IENS,102)={TRANSMISSION_TIME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(772)") set %SkipFiling=1 if $d(%FMERR(772,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(772)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {MESSAGE_TEXT*C} { set D0={RowId} kill wp if {MESSAGE_TEXT}'="" { set wproot="wp" for i=1:1:$l({MESSAGE_TEXT},$c(13,10)) { set wp(i)=$p({MESSAGE_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(772,{RowId},200,,wproot,"%FMERR(772)") if $d(%FMERR(772,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(772)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.HL7MESSAGET970CS index ^HL nonnull 772 "B" {DATETIME_ENTERED} {IEN} 0]]> index ^HL nonnull 772 "C" {MESSAGE_ID} {IEN} 0]]> data ^HL 772 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "P" 7 "^" 1 1 "^" 0 1 "^" "P" 2 "^" 2 1 "^" "P" 3 "^" 2 2 "^" 0 6 "IN" new data,i,node set {MESSAGE_TEXT}="" merge data=^HL(772,{S2},"IN") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {MESSAGE_TEXT}={MESSAGE_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 14 "^" 0 13 "^" "S" 1 "^" "S" 2 "^" 0 9 "^" 0 5 "^" 0 12 "^" "S" 3 "^" 0 4 Generated class for FileMan File Number: '691.6' File Name: 'HOLTER' Class generated by %fm2class version 2.56 This file stores data for Holter tests done on a patient. persistent _PUBLIC 0 RowId HOLTER_691_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.890490686 67178,44709.872584344 right HOLTER 691.6 2.56 12/04/2024 12:25:09 1 1 IEN 1 NEW_PERSON_200]]> APPROVEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_APPROVED_BY NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO NEW_PERSON_200]]> HOOKUPBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_HOOKUP_BY MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER NEW_PERSON_200]]> REQUESTEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REQUESTED_BY NEW_PERSON_200]]> REVIEWEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REVIEWED_BY NEW_PERSON_200]]> SCANNEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SCANNED_BY NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'APPOINTMENT DATE' FileMan Field Number: '8' This field contains the date this procedure is/was scheduled. %Library.FilemanDate 14 APPOINTMENT_DATE FileMan Field Label: 'APPROVED BY' FileMan Field Number: '6' This field identifies the medical provider who approved the request for this procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 12 APPROVED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {APPROVED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 APPROVED_BY_NAME 1 FileMan Field Label: 'ATRIAL BEATS TOTAL' FileMan Field Number: '45' This field identifies is the sum of all P waves monitored during this procedure. %Library.Numeric 50 ATRIAL_BEATS_TOTAL FileMan Field Label: 'AUTOMATED INSTRUMENT DATA' FileMan Field Number: '66' This field stores the last date that the ECG was successfully transferred into the DHCP system through the automated interface. %Library.FilemanTimeStamp 72 AUTOMATED_INSTRUMENT_DATA FileMan Field Label: 'AVE/HR' FileMan Field Number: '35' This field identifies the average rate of premature ventricular ectopy per hour. %Library.Numeric 39 AVEHR FileMan Field Label: 'AVERAGE HR' FileMan Field Number: '27' This field contains the average heart rate for the entire Holter session. %Library.Numeric 31 AVERAGE_HR FileMan Field Label: 'AV/H (ATR)' FileMan Field Number: '48' This field identifies the average rate of supraventricular ectopy per hour. %Library.Numeric 53 AVH_ATR FileMan Field Label: 'BATTERY NUMBER' FileMan Field Number: '21' This field identifies the battery used in this procedure. %Library.Numeric 25 BATTERY_NUMBER FileMan Field Label: 'BEATS FASTEST RUN (VENT)' FileMan Field Number: '43' This field identifies is the total number of ventricular ectopy occurring in the fastest run of ventricular ectopy monitored during this procedure. %Library.Numeric 48 BEATS_FASTEST_RUN_VENT FileMan Field Label: 'BEATS IN RUNS (VENT)' FileMan Field Number: '41' This field identifies is the total number of ventricular ectopy occurring in groups of 3 or more monitored during this procedure. %Library.Numeric 46 BEATS_IN_RUNS_VENT FileMan Field Label: 'BEATS LONGEST RUN (VENT)' FileMan Field Number: '42' This field identifies is the number of ventricular complexes that occurred in the longest ventricular tachycardia event monitored during this procedure. %Library.Numeric 47 BEATS_LONGEST_RUN_VENT FileMan Field Label: 'BIGEMINY (VENT)' FileMan Field Number: '38' This field identifies is the total number of ventricular ectopy occurring in a bigeminal pattern during this procedure. %Library.Numeric 42 BIGEMINY_VENT FileMan Field Label: 'BLOCKED APC (ATR)' FileMan Field Number: '51' This field identifies is the total number of non-conducted atrial ectopy monitored during this procedure. %Library.Numeric 57 BLOCKED_APC_ATR FileMan Field Label: 'BPM FASTEST RUN (ATR)' FileMan Field Number: '56' This field identifies is the fastest rate of atrial tachycardia monitored during this procedure(beats/minute). %Library.Numeric 62 BPM_FASTEST_RUN_ATR FileMan Field Label: 'BPM IN FASTEST RUN (VENT)' FileMan Field Number: '44' This field identifies is the highest ventricular rate occurring in ectopic runs of 3 or more monitored during this procedure. %Library.Numeric 49 BPM_IN_FASTEST_RUN_VENT FileMan Field Label: 'BTS FASTEST RUN (ATR)' FileMan Field Number: '55' This field identifies is the total number of atrial ectopy monitored during the fastest run of atrial tachycardia. %Library.Numeric 61 BTS_FASTEST_RUN_ATR FileMan Field Label: 'BTS IN RUNS (ATR)' FileMan Field Number: '53' This field identifies is the average number of atrial ectopy occurring in groups of 3 or more monitored during this procedure. %Library.Numeric 59 BTS_IN_RUNS_ATR FileMan Field Label: 'BTS LONGEST RUN (ATR)' FileMan Field Number: '54' This field identifies is the total number of supraventricular ectopy in the largest group monitored during this procedure. %Library.Numeric 60 BTS_LONGEST_RUN_ATR FileMan Field Label: 'COMMENT' FileMan Field Number: '63' This free text field provides an area for the medical provider to remark on the data collected in this procedure. %Library.String 69 COMMENT FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 80 COSIGNER_VALIDATION_CODE FileMan Field Label: 'COUPLETS (ATR)' FileMan Field Number: '50.5' This field is used to quantify the amount of back-to-back PVC's or PVC's occurring in pairs. %Library.Numeric 56 COUPLETS_ATR FileMan Field Label: 'COUPLETS (VENT)' FileMan Field Number: '39' This field identifies is the total number of ventricular ectopy occurring in a couplet pattern during this procedure. %Library.Numeric 43 COUPLETS_VENT FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 93 CREATION_DATE FileMan Field Label: 'DATE APPROVED' FileMan Field Number: '7' This field is used to document the date of procedure request approval. %Library.FilemanDate 13 DATE_APPROVED FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 86 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 87 DATE_OF_VERIFIED FileMan Field Label: 'DATE REQUESTED' FileMan Field Number: '5' This field identifies the time/date the procedure was ordered. %Library.FilemanDate 10 DATE_REQUESTED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 91 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'ECTOPICS (ATR)' FileMan Field Number: '46' This field identifies is the total number of atrial complexes of non-SA node origin monitored during this procedure. %Library.Numeric 51 ECTOPICS_ATR FileMan Field Label: 'ECTOPICS PERCENT (ATR)' FileMan Field Number: '47' This field identifies is computed from ECTOPICS/ATRIAL BEATS TOTAL. %Library.Numeric 1 52 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.6,47,9.3) S X=X*100,X=$S(Y(691.6,47,2):Y(691.6,47,3),Y(691.6,47,4):Y(691.6,47,5),Y(691.6,47,6):X) S X=$J(X,0,1) S:X?1"0"1"."1"0" X="" set {ECTOPICS_PERCENT_ATR}=X 1 ECTOPICS_PERCENT_ATR FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 81 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 79 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 78 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HEART BLOCK' FileMan Field Number: '57' This field contains the degree of heart block monitored during this procedure. %Library.EnumString 63 HEART_BLOCK FileMan Field Label: 'HOLTER RUN NUMBER' FileMan Field Number: '19' This field contains the facility generated procedure number. %Library.Numeric 23 HOLTER_RUN_NUMBER FileMan Field Label: 'HOOK-UP BY' FileMan Field Number: '10' This field identifies the medical provider who physically initiated this procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 15 HOOKUP_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {HOOKUP_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOOKUP_BY_NAME 1 FileMan Field Label: 'HOOK-UP DATE/TIME' FileMan Field Number: '.01' This field identifies the specific Holter procedure. %Library.FilemanTimeStamp 1 3 HOOKUP_DATETIME FileMan Field Label: 'HT IN' FileMan Field Number: '2' This field contains the patient's height in inches at the time of the procedure. %Library.Numeric 7 HT_IN FileMan Field Label: 'ID' FileMan Field Number: '.02' This field identifies the patient's identification number assigned by the medical facility. In most cases it is the person's social security number. %Library.String 4 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(691.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETATION' FileMan Field Number: '62' This free text field contains the clinical evaluation of the patient's cardiac condition based on the information collected by this procedure. %Library.String 68 INTERPRETATION FileMan Field Label: 'ISOLATED (ATR)' FileMan Field Number: '50' This field identifies is the total number of single atrial ectopy monitored during this procedure. %Library.Numeric 55 ISOLATED_ATR FileMan Field Label: 'ISOLATED (VENT)' FileMan Field Number: '37' This field identifies is the total number of isolated ventricular ectopy. %Library.Numeric 41 ISOLATED_VENT FileMan Field Label: 'LONGEST PAUSE (VENT)' FileMan Field Number: '61' This field identifies is the longest occurrence of ventricular pause monitored during this procedure in the range of .1 and 10 seconds. %Library.Numeric 67 LONGEST_PAUSE_VENT FileMan Field Label: 'LONGEST SINUS PAUSE' FileMan Field Number: '59' This field identifies is the length of the longest sinus pause monitored during this procedure in the range of .1 and 10 seconds. %Library.Numeric 65 LONGEST_SINUS_PAUSE FileMan Field Label: 'MALFUNCTIONS' FileMan Field Number: '22' This field documents whether any procedure malfunction occurred. %Library.EnumString 26 MALFUNCTIONS FileMan Field Label: 'MALFUNCTION TYPE' FileMan Field Number: '23' This free text field provides documentation or comments regarding the malfunction. %Library.String 27 MALFUNCTION_TYPE FileMan Field Label: 'MARK FOR DELETATION' FileMan Field Number: '1511' %Library.EnumString 90 MARK_FOR_DELETATION FileMan Field Label: 'MAX/HR' FileMan Field Number: '36' This field identifies is the maximum number of ventricular ectopy monitored during any hour of this procedure. %Library.Numeric 40 MAXHR FileMan Field Label: 'MAX/H (ATR)' FileMan Field Number: '49' This field identifies is the maximum number of atrial ectopy monitored during any hour of this procedure. %Library.Numeric 54 MAXH_ATR FileMan Field Label: 'MAX HR' FileMan Field Number: '28' This field identifies documents the greatest heart rate that was monitored during this procedure. %Library.Numeric 32 MAX_HR FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the patient's last name, followed by a comma, followed by a space(optional), followed by the first name, followed by a space, followed by the middle initial. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 6 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'MIN HR' FileMan Field Number: '30' This field identifies documents the lowest heart rate that was monitored during this procedure. %Library.Numeric 34 MIN_HR FileMan Field Label: 'NUM OF RUNS 3 OR MORE (VENT)' FileMan Field Number: '40' This field identifies is the total number of occurrences of ventricular ectopy in groups of 3 or more monitored during this procedure. %Library.Numeric 44 NUM_OF_RUNS_3_OR_MORE_VENT FileMan Field Label: 'NUM. RUNS SVT (ATR)' FileMan Field Number: '52' This field identifies is the total number of occurrences of groups of supraventricular tachycardia monitored during this procedure. %Library.Numeric 58 NUM__RUNS_SVT_ATR FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 77 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER INDICATIONS' FileMan Field Number: '5.8' This field identifies field is used to define indications not included in the Reason for Study set. %Library.String 11 OTHER_INDICATIONS FileMan Field Label: 'PATIENT CATEGORY' FileMan Field Number: '16' This field defines either inpatient or outpatient status. %Library.EnumString 21 PATIENT_CATEGORY FileMan Field Label: 'PAUSES (SINUS)' FileMan Field Number: '58' This field indicates whether sinus pauses were monitored during this procedure. %Library.EnumString 64 PAUSES_SINUS FileMan Field Label: 'PAUSES (VENT)' FileMan Field Number: '60' This field indicates the occurrence of ventricular pauses monitored during this procedure. %Library.EnumString 66 PAUSES_VENT FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 76 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 75 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This 1-79 character field will be displayed on the Summary of Patient Procedures. %Library.String 74 PROCEDURE_SUMMARY FileMan Field Label: 'QRS TOTAL' FileMan Field Number: '32' This field identifies is the total number of ventricular complexes generated (monitored) during this procedure. %Library.Numeric 36 QRS_TOTAL FileMan Field Label: 'READABLE HOURS' FileMan Field Number: '26' This field documents the length in hours of distortion free procedure readings. %Library.Numeric 30 READABLE_HOURS FileMan Field Label: 'RECORDER NUMBER' FileMan Field Number: '20' This field identifies the recorder used in this procedure. %Library.Numeric 24 RECORDER_NUMBER FileMan Field Label: 'RELEASE CODE' FileMan Field Number: '1506' %Library.EnumString 85 RELEASE_CODE FileMan Field Label: 'REQUESTED BY' FileMan Field Number: '4' This field identifies the medical provider who ordered this procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 9 REQUESTED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {REQUESTED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTED_BY_NAME 1 %Library.FilemanTimeStamp 16 RETURN_DATE__TIME FileMan Field Label: 'REVIEWED BY' FileMan Field Number: '14' This field identifies the medical provider who reviewed this procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 19 REVIEWED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {REVIEWED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REVIEWED_BY_NAME 1 FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '15' This field documents the date the review occurred. %Library.FilemanDate 20 REVIEW_DATE FileMan Field Label: 'RUNS 100 BPM OR MORE (VENT)' FileMan Field Number: '40.5' This field identifies is the total number of occurrences of ventricular tachycardia monitored during this procedure. %Library.Numeric 45 RUNS_100_BPM_OR_MORE_VENT FileMan Field Label: 'SCANNED BY' FileMan Field Number: '12' This field documents the medical provider who performed the Holter scan. VALIP.prosthetic.fm2cw.NEWPERSON200 17 SCANNED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {SCANNED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SCANNED_BY_NAME 1 FileMan Field Label: 'SCANNED DATE' FileMan Field Number: '13' This field documents the date the scanning procedure was performed. %Library.FilemanTimeStamp 18 SCANNED_DATE FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 83 SIGNER_VALIDATION_CODE FileMan Field Label: 'ST LEVEL' FileMan Field Number: '64' This field identifies is the level of ST segment deviation from baseline monitored during this procedure in the range of 0 and 5 millimeters using 2 decimal digits. %Library.Numeric 70 ST_LEVEL FileMan Field Label: 'ST LEVEL DEP/ELEV' FileMan Field Number: '65' This field contains the evaluation of ST segment deviation monitored during this procedure. %Library.EnumString 71 ST_LEVEL_DEPELEV Relationship for Sub-File/Multiple to file name HEART MED child VALIP.prosthetic.fm2cw.SUBHEARTMED69161 children HOLTER6916 1 SUB_HEART_MED_691_61 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69169 children HOLTER6916 1 SUB_ICD_DIAGNOSIS_691_69 Relationship for Sub-File/Multiple to file name REASON FOR STUDY child VALIP.prosthetic.fm2cw.SUBREASONFORSTUDY69165 children HOLTER6916 1 SUB_REASON_FOR_STUDY_691_65 Relationship for Sub-File/Multiple to file name RISK FACTOR child VALIP.prosthetic.fm2cw.SUBRISKFACTOR69167 children HOLTER6916 1 SUB_RISK_FACTOR_691_67 Relationship for Sub-File/Multiple to file name SYMPTOM child VALIP.prosthetic.fm2cw.SUBSYMPTOM69166 children HOLTER6916 1 SUB_SYMPTOM_691_66 FileMan Field Label: 'SUMMARY' FileMan Field Number: '.03' This field contains the gross evaluation of the results of this procedure. %Library.EnumString 5 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 88 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 89 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.String 92 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' %Library.Numeric 94 SUPERSEDED_NUMBER FileMan Field Label: 'TAPE QUALITY' FileMan Field Number: '24' This contains the gross evaluation of the tape quality. %Library.EnumString 28 TAPE_QUALITY FileMan Field Label: 'TIME MAX HR' FileMan Field Number: '29' This field identifies field documents the exact time at which maximum heart rate occurred. %Library.String 33 TIME_MAX_HR FileMan Field Label: 'TIME MIN HR' FileMan Field Number: '31' This documents the time at which minimum heart rate occurred during this procedure. %Library.String 35 TIME_MIN_HR FileMan Field Label: 'TOTAL HOURS' FileMan Field Number: '25' This field documents the length in hours of this procedure. %Library.Numeric 29 TOTAL_HOURS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 95 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR' FileMan Field Number: '67' This field is used to identify the Holter System Manufacturer. %Library.String 73 VENDOR FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 84 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 82 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'VPBS PERCENT (VENT)' FileMan Field Number: '34' This field identifies is computed from VPBS(VENT)/QRS TOTAL. %Library.Numeric 1 38 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(691.6,34,9.3) S X=X*100,X=$S(Y(691.6,34,2):Y(691.6,34,3),Y(691.6,34,4):Y(691.6,34,5),Y(691.6,34,6):X) S X=$J(X,0,1) set {VPBS_PERCENT_VENT}=X 1 VPBS_PERCENT_VENT FileMan Field Label: 'VPBS (VENT)' FileMan Field Number: '33' This field identifies is the total number of ventricular ectopic beats monitored during this procedure. %Library.Numeric 37 VPBS_VENT FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '17' This field identifies the in house address of the patient. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 22 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOLTER_691_6 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 FileMan Field Label: 'WT LBS' FileMan Field Number: '3' This field contains the weight of the patient at the time of the procedure. %Library.Numeric 8 WT_LBS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(691.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{HOOKUP_DATETIME}'="" FDA(691.6,"+1,",.01)={"HOOKUP_DATETIME"} set:{ID}'="" FDA(691.6,"+1,",.02)={"ID"} set:{SUMMARY}'="" FDA(691.6,"+1,",.03)={"SUMMARY"} set:{MEDICAL_PATIENT}'="" FDA(691.6,"+1,",1)={"MEDICAL_PATIENT"} set:{HT_IN}'="" FDA(691.6,"+1,",2)={"HT_IN"} set:{WT_LBS}'="" FDA(691.6,"+1,",3)={"WT_LBS"} set:{REQUESTED_BY}'="" FDA(691.6,"+1,",4)={"REQUESTED_BY"} set:{DATE_REQUESTED}'="" FDA(691.6,"+1,",5)={"DATE_REQUESTED"} set:{APPROVED_BY}'="" FDA(691.6,"+1,",6)={"APPROVED_BY"} set:{DATE_APPROVED}'="" FDA(691.6,"+1,",7)={"DATE_APPROVED"} set:{APPOINTMENT_DATE}'="" FDA(691.6,"+1,",8)={"APPOINTMENT_DATE"} set:{HOOKUP_BY}'="" FDA(691.6,"+1,",10)={"HOOKUP_BY"} set:{RETURN_DATE__TIME}'="" FDA(691.6,"+1,",11)={"RETURN_DATE__TIME"} set:{SCANNED_BY}'="" FDA(691.6,"+1,",12)={"SCANNED_BY"} set:{SCANNED_DATE}'="" FDA(691.6,"+1,",13)={"SCANNED_DATE"} set:{REVIEWED_BY}'="" FDA(691.6,"+1,",14)={"REVIEWED_BY"} set:{REVIEW_DATE}'="" FDA(691.6,"+1,",15)={"REVIEW_DATE"} set:{PATIENT_CATEGORY}'="" FDA(691.6,"+1,",16)={"PATIENT_CATEGORY"} set:{WARDCLINIC}'="" FDA(691.6,"+1,",17)={"WARDCLINIC"} set:{HOLTER_RUN_NUMBER}'="" FDA(691.6,"+1,",19)={"HOLTER_RUN_NUMBER"} set:{RECORDER_NUMBER}'="" FDA(691.6,"+1,",20)={"RECORDER_NUMBER"} set:{BATTERY_NUMBER}'="" FDA(691.6,"+1,",21)={"BATTERY_NUMBER"} set:{MALFUNCTIONS}'="" FDA(691.6,"+1,",22)={"MALFUNCTIONS"} set:{TAPE_QUALITY}'="" FDA(691.6,"+1,",24)={"TAPE_QUALITY"} set:{TOTAL_HOURS}'="" FDA(691.6,"+1,",25)={"TOTAL_HOURS"} set:{READABLE_HOURS}'="" FDA(691.6,"+1,",26)={"READABLE_HOURS"} set:{AVERAGE_HR}'="" FDA(691.6,"+1,",27)={"AVERAGE_HR"} set:{MAX_HR}'="" FDA(691.6,"+1,",28)={"MAX_HR"} set:{TIME_MAX_HR}'="" FDA(691.6,"+1,",29)={"TIME_MAX_HR"} set:{MIN_HR}'="" FDA(691.6,"+1,",30)={"MIN_HR"} set:{TIME_MIN_HR}'="" FDA(691.6,"+1,",31)={"TIME_MIN_HR"} set:{QRS_TOTAL}'="" FDA(691.6,"+1,",32)={"QRS_TOTAL"} set:{VPBS_VENT}'="" FDA(691.6,"+1,",33)={"VPBS_VENT"} set:{AVEHR}'="" FDA(691.6,"+1,",35)={"AVEHR"} set:{MAXHR}'="" FDA(691.6,"+1,",36)={"MAXHR"} set:{ISOLATED_VENT}'="" FDA(691.6,"+1,",37)={"ISOLATED_VENT"} set:{BIGEMINY_VENT}'="" FDA(691.6,"+1,",38)={"BIGEMINY_VENT"} set:{COUPLETS_VENT}'="" FDA(691.6,"+1,",39)={"COUPLETS_VENT"} set:{NUM_OF_RUNS_3_OR_MORE_VENT}'="" FDA(691.6,"+1,",40)={"NUM_OF_RUNS_3_OR_MORE_VENT"} set:{RUNS_100_BPM_OR_MORE_VENT}'="" FDA(691.6,"+1,",40.5)={"RUNS_100_BPM_OR_MORE_VENT"} set:{BEATS_IN_RUNS_VENT}'="" FDA(691.6,"+1,",41)={"BEATS_IN_RUNS_VENT"} set:{BEATS_LONGEST_RUN_VENT}'="" FDA(691.6,"+1,",42)={"BEATS_LONGEST_RUN_VENT"} set:{BEATS_FASTEST_RUN_VENT}'="" FDA(691.6,"+1,",43)={"BEATS_FASTEST_RUN_VENT"} set:{BPM_IN_FASTEST_RUN_VENT}'="" FDA(691.6,"+1,",44)={"BPM_IN_FASTEST_RUN_VENT"} set:{ATRIAL_BEATS_TOTAL}'="" FDA(691.6,"+1,",45)={"ATRIAL_BEATS_TOTAL"} set:{ECTOPICS_ATR}'="" FDA(691.6,"+1,",46)={"ECTOPICS_ATR"} set:{AVH_ATR}'="" FDA(691.6,"+1,",48)={"AVH_ATR"} set:{MAXH_ATR}'="" FDA(691.6,"+1,",49)={"MAXH_ATR"} set:{ISOLATED_ATR}'="" FDA(691.6,"+1,",50)={"ISOLATED_ATR"} set:{COUPLETS_ATR}'="" FDA(691.6,"+1,",50.5)={"COUPLETS_ATR"} set:{BLOCKED_APC_ATR}'="" FDA(691.6,"+1,",51)={"BLOCKED_APC_ATR"} set:{NUM__RUNS_SVT_ATR}'="" FDA(691.6,"+1,",52)={"NUM__RUNS_SVT_ATR"} set:{BTS_IN_RUNS_ATR}'="" FDA(691.6,"+1,",53)={"BTS_IN_RUNS_ATR"} set:{BTS_LONGEST_RUN_ATR}'="" FDA(691.6,"+1,",54)={"BTS_LONGEST_RUN_ATR"} set:{BTS_FASTEST_RUN_ATR}'="" FDA(691.6,"+1,",55)={"BTS_FASTEST_RUN_ATR"} set:{BPM_FASTEST_RUN_ATR}'="" FDA(691.6,"+1,",56)={"BPM_FASTEST_RUN_ATR"} set:{HEART_BLOCK}'="" FDA(691.6,"+1,",57)={"HEART_BLOCK"} set:{PAUSES_SINUS}'="" FDA(691.6,"+1,",58)={"PAUSES_SINUS"} set:{LONGEST_SINUS_PAUSE}'="" FDA(691.6,"+1,",59)={"LONGEST_SINUS_PAUSE"} set:{PAUSES_VENT}'="" FDA(691.6,"+1,",60)={"PAUSES_VENT"} set:{LONGEST_PAUSE_VENT}'="" FDA(691.6,"+1,",61)={"LONGEST_PAUSE_VENT"} set:{ST_LEVEL}'="" FDA(691.6,"+1,",64)={"ST_LEVEL"} set:{ST_LEVEL_DEPELEV}'="" FDA(691.6,"+1,",65)={"ST_LEVEL_DEPELEV"} set:{AUTOMATED_INSTRUMENT_DATA}'="" FDA(691.6,"+1,",66)={"AUTOMATED_INSTRUMENT_DATA"} set:{VENDOR}'="" FDA(691.6,"+1,",67)={"VENDOR"} set:{PROCEDURE_SUMMARY}'="" FDA(691.6,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(691.6,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(691.6,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(691.6,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(691.6,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(691.6,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(691.6,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(691.6,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(691.6,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(691.6,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(691.6,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_CODE}'="" FDA(691.6,"+1,",1506)={"RELEASE_CODE"} set:{DATE_OF_RELEASED}'="" FDA(691.6,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(691.6,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(691.6,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(691.6,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETATION}'="" FDA(691.6,"+1,",1511)={"MARK_FOR_DELETATION"} set:{DELETER_DUZ}'="" FDA(691.6,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(691.6,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(691.6,"+1,",1514)={"CREATION_DATE"} set:{SUPERSEDED_NUMBER}'="" FDA(691.6,"+1,",1515)={"SUPERSEDED_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(691.6)") set %SkipFiling=1 if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OTHER_INDICATIONS}'="" { set D0={RowId} for i=1:1:$l({OTHER_INDICATIONS},$c(13,10)) { set wp(i)=$p({OTHER_INDICATIONS},$c(13,10),i) } do WP^DIE(691.6,{RowId},5.8,,"wp","%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MALFUNCTION_TYPE}'="" { set D0={RowId} for i=1:1:$l({MALFUNCTION_TYPE},$c(13,10)) { set wp(i)=$p({MALFUNCTION_TYPE},$c(13,10),i) } do WP^DIE(691.6,{RowId},23,,"wp","%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INTERPRETATION}'="" { set D0={RowId} for i=1:1:$l({INTERPRETATION},$c(13,10)) { set wp(i)=$p({INTERPRETATION},$c(13,10),i) } do WP^DIE(691.6,{RowId},62,,"wp","%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENT}'="" { set D0={RowId} for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) } do WP^DIE(691.6,{RowId},63,,"wp","%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{HOOKUP_DATETIME*C} FDA(691.6,IENS,.01)={HOOKUP_DATETIME} set:{ID*C} FDA(691.6,IENS,.02)={ID} set:{SUMMARY*C} FDA(691.6,IENS,.03)={SUMMARY} set:{MEDICAL_PATIENT*C} FDA(691.6,IENS,1)={MEDICAL_PATIENT} set:{HT_IN*C} FDA(691.6,IENS,2)={HT_IN} set:{WT_LBS*C} FDA(691.6,IENS,3)={WT_LBS} set:{REQUESTED_BY*C} FDA(691.6,IENS,4)={REQUESTED_BY} set:{DATE_REQUESTED*C} FDA(691.6,IENS,5)={DATE_REQUESTED} set:{APPROVED_BY*C} FDA(691.6,IENS,6)={APPROVED_BY} set:{DATE_APPROVED*C} FDA(691.6,IENS,7)={DATE_APPROVED} set:{APPOINTMENT_DATE*C} FDA(691.6,IENS,8)={APPOINTMENT_DATE} set:{HOOKUP_BY*C} FDA(691.6,IENS,10)={HOOKUP_BY} set:{RETURN_DATE__TIME*C} FDA(691.6,IENS,11)={RETURN_DATE__TIME} set:{SCANNED_BY*C} FDA(691.6,IENS,12)={SCANNED_BY} set:{SCANNED_DATE*C} FDA(691.6,IENS,13)={SCANNED_DATE} set:{REVIEWED_BY*C} FDA(691.6,IENS,14)={REVIEWED_BY} set:{REVIEW_DATE*C} FDA(691.6,IENS,15)={REVIEW_DATE} set:{PATIENT_CATEGORY*C} FDA(691.6,IENS,16)={PATIENT_CATEGORY} set:{WARDCLINIC*C} FDA(691.6,IENS,17)={WARDCLINIC} set:{HOLTER_RUN_NUMBER*C} FDA(691.6,IENS,19)={HOLTER_RUN_NUMBER} set:{RECORDER_NUMBER*C} FDA(691.6,IENS,20)={RECORDER_NUMBER} set:{BATTERY_NUMBER*C} FDA(691.6,IENS,21)={BATTERY_NUMBER} set:{MALFUNCTIONS*C} FDA(691.6,IENS,22)={MALFUNCTIONS} set:{TAPE_QUALITY*C} FDA(691.6,IENS,24)={TAPE_QUALITY} set:{TOTAL_HOURS*C} FDA(691.6,IENS,25)={TOTAL_HOURS} set:{READABLE_HOURS*C} FDA(691.6,IENS,26)={READABLE_HOURS} set:{AVERAGE_HR*C} FDA(691.6,IENS,27)={AVERAGE_HR} set:{MAX_HR*C} FDA(691.6,IENS,28)={MAX_HR} set:{TIME_MAX_HR*C} FDA(691.6,IENS,29)={TIME_MAX_HR} set:{MIN_HR*C} FDA(691.6,IENS,30)={MIN_HR} set:{TIME_MIN_HR*C} FDA(691.6,IENS,31)={TIME_MIN_HR} set:{QRS_TOTAL*C} FDA(691.6,IENS,32)={QRS_TOTAL} set:{VPBS_VENT*C} FDA(691.6,IENS,33)={VPBS_VENT} set:{AVEHR*C} FDA(691.6,IENS,35)={AVEHR} set:{MAXHR*C} FDA(691.6,IENS,36)={MAXHR} set:{ISOLATED_VENT*C} FDA(691.6,IENS,37)={ISOLATED_VENT} set:{BIGEMINY_VENT*C} FDA(691.6,IENS,38)={BIGEMINY_VENT} set:{COUPLETS_VENT*C} FDA(691.6,IENS,39)={COUPLETS_VENT} set:{NUM_OF_RUNS_3_OR_MORE_VENT*C} FDA(691.6,IENS,40)={NUM_OF_RUNS_3_OR_MORE_VENT} set:{RUNS_100_BPM_OR_MORE_VENT*C} FDA(691.6,IENS,40.5)={RUNS_100_BPM_OR_MORE_VENT} set:{BEATS_IN_RUNS_VENT*C} FDA(691.6,IENS,41)={BEATS_IN_RUNS_VENT} set:{BEATS_LONGEST_RUN_VENT*C} FDA(691.6,IENS,42)={BEATS_LONGEST_RUN_VENT} set:{BEATS_FASTEST_RUN_VENT*C} FDA(691.6,IENS,43)={BEATS_FASTEST_RUN_VENT} set:{BPM_IN_FASTEST_RUN_VENT*C} FDA(691.6,IENS,44)={BPM_IN_FASTEST_RUN_VENT} set:{ATRIAL_BEATS_TOTAL*C} FDA(691.6,IENS,45)={ATRIAL_BEATS_TOTAL} set:{ECTOPICS_ATR*C} FDA(691.6,IENS,46)={ECTOPICS_ATR} set:{AVH_ATR*C} FDA(691.6,IENS,48)={AVH_ATR} set:{MAXH_ATR*C} FDA(691.6,IENS,49)={MAXH_ATR} set:{ISOLATED_ATR*C} FDA(691.6,IENS,50)={ISOLATED_ATR} set:{COUPLETS_ATR*C} FDA(691.6,IENS,50.5)={COUPLETS_ATR} set:{BLOCKED_APC_ATR*C} FDA(691.6,IENS,51)={BLOCKED_APC_ATR} set:{NUM__RUNS_SVT_ATR*C} FDA(691.6,IENS,52)={NUM__RUNS_SVT_ATR} set:{BTS_IN_RUNS_ATR*C} FDA(691.6,IENS,53)={BTS_IN_RUNS_ATR} set:{BTS_LONGEST_RUN_ATR*C} FDA(691.6,IENS,54)={BTS_LONGEST_RUN_ATR} set:{BTS_FASTEST_RUN_ATR*C} FDA(691.6,IENS,55)={BTS_FASTEST_RUN_ATR} set:{BPM_FASTEST_RUN_ATR*C} FDA(691.6,IENS,56)={BPM_FASTEST_RUN_ATR} set:{HEART_BLOCK*C} FDA(691.6,IENS,57)={HEART_BLOCK} set:{PAUSES_SINUS*C} FDA(691.6,IENS,58)={PAUSES_SINUS} set:{LONGEST_SINUS_PAUSE*C} FDA(691.6,IENS,59)={LONGEST_SINUS_PAUSE} set:{PAUSES_VENT*C} FDA(691.6,IENS,60)={PAUSES_VENT} set:{LONGEST_PAUSE_VENT*C} FDA(691.6,IENS,61)={LONGEST_PAUSE_VENT} set:{ST_LEVEL*C} FDA(691.6,IENS,64)={ST_LEVEL} set:{ST_LEVEL_DEPELEV*C} FDA(691.6,IENS,65)={ST_LEVEL_DEPELEV} set:{AUTOMATED_INSTRUMENT_DATA*C} FDA(691.6,IENS,66)={AUTOMATED_INSTRUMENT_DATA} set:{VENDOR*C} FDA(691.6,IENS,67)={VENDOR} set:{PROCEDURE_SUMMARY*C} FDA(691.6,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(691.6,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(691.6,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(691.6,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(691.6,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(691.6,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(691.6,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(691.6,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(691.6,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(691.6,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(691.6,IENS,1505)={VERIFIER_DATE} set:{RELEASE_CODE*C} FDA(691.6,IENS,1506)={RELEASE_CODE} set:{DATE_OF_RELEASED*C} FDA(691.6,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(691.6,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(691.6,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(691.6,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETATION*C} FDA(691.6,IENS,1511)={MARK_FOR_DELETATION} set:{DELETER_DUZ*C} FDA(691.6,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(691.6,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(691.6,IENS,1514)={CREATION_DATE} set:{SUPERSEDED_NUMBER*C} FDA(691.6,IENS,1515)={SUPERSEDED_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.6)") set %SkipFiling=1 if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OTHER_INDICATIONS*C} { set D0={RowId} kill wp if {OTHER_INDICATIONS}'="" { set wproot="wp" for i=1:1:$l({OTHER_INDICATIONS},$c(13,10)) { set wp(i)=$p({OTHER_INDICATIONS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.6,{RowId},5.8,,wproot,"%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MALFUNCTION_TYPE*C} { set D0={RowId} kill wp if {MALFUNCTION_TYPE}'="" { set wproot="wp" for i=1:1:$l({MALFUNCTION_TYPE},$c(13,10)) { set wp(i)=$p({MALFUNCTION_TYPE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.6,{RowId},23,,wproot,"%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INTERPRETATION*C} { set D0={RowId} kill wp if {INTERPRETATION}'="" { set wproot="wp" for i=1:1:$l({INTERPRETATION},$c(13,10)) { set wp(i)=$p({INTERPRETATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.6,{RowId},62,,wproot,"%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENT*C} { set D0={RowId} kill wp if {COMMENT}'="" { set wproot="wp" for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.6,{RowId},63,,wproot,"%FMERR(691.6)") if $d(%FMERR(691.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.HOLTER6916S index ^MCAR nonnull 691.6 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 691.6 "B" {HOOKUP_DATETIME} {IEN} 0]]> index ^MCAR nonnull 691.6 "C" {MEDICAL_PATIENT} {IEN} 0]]> index {RELEASE_CODE}'="" 1 ^MCAR conditional 691.6 "ES" $$TRUNCATE({RELEASE_CODE},30)) {IEN} 0]]> data ^MCAR 691.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 9 "^" 0 7 "^" 4 21 "^" "A" 1 "^" 4 11 "^" 4 4 "^" 4 23 "^" 2 3 "^" 4 19 "^" 4 17 "^" 4 18 "^" 4 14 "^" 6 1 "^" 6 6 "^" 4 20 "^" 6 5 "^" 6 3 "^" 6 4 5 new data,i,node set {COMMENT}="" merge data=^MCAR(691.6,{S2},5) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENT}={COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "ES" 2 "^" 4 26 "^" 4 15 "^" "ES" 15 "^" 0 8 "^" "ES" 8 "^" "ES" 9 "^" 0 6 "^" "ES" 13 "^" 4 22 "^" "ES" 3 "^" "ES" 1 "^" "OR" 2 "^" 6 7 "^" 2 1 "^" 0 11 "^" 0 1 "^" 0 3 "^" .1 1 7 new data,i,node set {INTERPRETATION}="" merge data=^MCAR(691.6,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INTERPRETATION}={INTERPRETATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 4 25 "^" 4 13 "^" 6 11 "^" 6 9 "^" 2 4 3 new data,i,node set {MALFUNCTION_TYPE}="" merge data=^MCAR(691.6,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {MALFUNCTION_TYPE}={MALFUNCTION_TYPE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "ES" 12 "^" 4 12 "^" 4 24 "^" 4 5 "^" 0 2 "^" 4 7 "^" 4 16 "^" 6 2 "^" "OR" 1 10 new data,i,node set {OTHER_INDICATIONS}="" merge data=^MCAR(691.6,{S2},10) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_INDICATIONS}={OTHER_INDICATIONS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 17 "^" 6 8 "^" 6 10 "^" "PCC" 1 "^" "PROV" 1 "^" .2 2 "^" 4 9 "^" 4 3 "^" 2 2 "^" "ES" 7 "^" 0 5 "^" 0 12 "^" 0 15 "^" 0 16 "^" 9 1 "^" 0 13 "^" 0 14 "^" "ES" 5 "^" 9 2 "^" 9 3 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 "^" 4 1 "^" 4 6 "^" 4 8 "^" 4 2 "^" 11 1 "^" "ES" 6 "^" "ES" 4 "^" 4 10 "^" 0 18 "^" 0 4 Generated class for FileMan File Number: '44' File Name: 'HOSPITAL LOCATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId HOSPITAL_LOCATION_44 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.922493379 67178,44709.938950818 right HOSPITAL LOCATION 44 2.56 12/04/2024 12:25:09 1 1 IEN 1 AGENCY_4_11]]> AGENCY VALIP.prosthetic.fm2cw.AGENCY411 FKey_AGENCY LETTER_407_5]]> APPTCANCELLATIONLETTER VALIP.prosthetic.fm2cw.LETTER4075 FKey_APPT__CANCELLATION_LETTER DEVICE_3_5]]> AUTOFINISHCLINICPRINTER VALIP.prosthetic.fm2cw.DEVICE35 FKey_AUTOFINISH_CLINIC_PRINTER OUTPATIENT_SITE_59]]> AUTOFINISHRXSITE VALIP.prosthetic.fm2cw.OUTPATIENTSITE59 FKey_AUTOFINISH_RX_SITE LETTER_407_5]]> CLINICCANCELLATIONLETTER VALIP.prosthetic.fm2cw.LETTER4075 FKey_CLINIC_CANCELLATION_LETTER CLINIC_GROUP_409_67]]> CLINICGROUPREPORTS VALIP.prosthetic.fm2cw.CLINICGROUP40967 FKey_CLINIC_GROUP_REPORTS CLINIC_STOP_40_7]]> CREDITSTOPCODE VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_CREDIT_STOP_CODE APPOINTMENT_TYPE_409_1]]> DEFAULTAPPOINTMENTTYPE VALIP.prosthetic.fm2cw.APPOINTMENTTYPE4091 FKey_DEFAULT_APPOINTMENT_TYPE NEW_PERSON_200]]> DEFAULTPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DEFAULT_PROVIDER MEDICAL_CENTER_DIVISION_40_8]]> DIVISION VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 FKey_DIVISION INSTITUTION_4]]> INSTITUTION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_INSTITUTION HOSPITAL_LOCATION_44]]> MODULE4 VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_MODULE4 LETTER_407_5]]> NOSHOWLETTER VALIP.prosthetic.fm2cw.LETTER4075 FKey_NO_SHOW_LETTER PACKAGE_9_4]]> OOSCALLINGPACKAGE VALIP.prosthetic.fm2cw.PACKAGE94 FKey_OOS_CALLING_PACKAGE LETTER_407_5]]> PREAPPOINTMENTLETTER VALIP.prosthetic.fm2cw.LETTER4075 FKey_PREAPPOINTMENT_LETTER HOSPITAL_LOCATION_44]]> PRINCIPALCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_PRINCIPAL_CLINIC CLINIC_STOP_40_7]]> PRVYEARCREDITSTOPCODE VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_PRV__YEAR_CREDIT_STOP_CODE CLINIC_STOP_40_7]]> PRVYEARSTOPCODE VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_PRV__YEAR_STOP_CODE HOSPITAL_LOCATION_44]]> RTATHOMERETREIVER VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_RT_AT_HOME_RETREIVER HOSPITAL_LOCATION_44]]> RTNOTATHOMERETREIVER VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_RT_NOT_AT_HOME_RETREIVER CLINIC_STOP_40_7]]> STOPCODENUMBER VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_STOP_CODE_NUMBER FACILITY_TREATING_SPECIALTY_45_7]]> TREATINGSPECIALTY VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 FKey_TREATING_SPECIALTY LOCATION_TYPE_40_9]]> TYPEEXTENSION VALIP.prosthetic.fm2cw.LOCATIONTYPE409 FKey_TYPE_EXTENSION WARD_LOCATION_42]]> WARDLOCATIONFILEPOINTER VALIP.prosthetic.fm2cw.WARDLOCATION42 FKey_WARD_LOCATION_FILE_POINTER FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' Abbreviation given by user to any ward, clinic, fileroom, operating room or other location associated with the NAME. %Library.String 4 ABBREVIATION FileMan Field Label: 'ADMINISTER INPATIENT MEDS?' FileMan Field Number: '2802' This field should contain a YES only if the clinic location is authorized to dispense inpatient medications to outpatients. %Library.EnumString 77 ADMINISTER_INPATIENT_MEDS FileMan Field Label: 'AGENCY' FileMan Field Number: '23' Agency associated with specific location, i.e. Veterans Affairs, Department of Defense, etc. VALIP.prosthetic.fm2cw.AGENCY411 26 AGENCY NAME The name of the agency.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {AGENCY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AGENCY_NAME 1 FileMan Field Label: 'ALLOWABLE CONSECUTIVE NO-SHOWS' FileMan Field Number: '2001' This is the number of times in a row that a patient can be a no-show in a clinic before he/she is flagged for possible discharge from the clinic. %Library.Numeric 51 ALLOWABLE_CONSECUTIVE_NOSHOWS FileMan Field Label: 'APPT. CANCELLATION LETTER' FileMan Field Number: '2511' Enter appointment cancellation letter to be associated with this clinic, so if veteran cancels appointment, this letter will print as opposed to generic appointment cancellation letter. VALIP.prosthetic.fm2cw.LETTER4075 75 APPT__CANCELLATION_LETTER NAME The name of a letter that has been initially created by the developer in a 'skeleton form' and the user edits the body of the letter. These letters are utilized mostly in the Scheduling Module of the MAS DHCP software.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {APPT__CANCELLATION_LETTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 APPT__CANCELLATION_LETTER_NAME 1 FileMan Field Label: 'ASK FOR CHECK IN/OUT TIME' FileMan Field Number: '24' When checking in/out a patient for an appointment, should the user be prompted for date and time? If this field is set to 'YES', the user will be prompted for the date and time. The current date and time will be the default. If this field is set to 'NO' or is not entered, the user will not be prompted and the current date and time will automatically be entered. If an appointment is scheduled retroactively then the system will use the date and time of the appointment as the check in/out time. This date/time will either be entered automatically or used as a default, depending upon how this parameter is set. %Library.EnumString 27 ASK_FOR_CHECK_INOUT_TIME FileMan Field Label: 'AUTOFINISH CLINIC PRINTER' FileMan Field Number: '22901' Printer where autofinished Rx's will print for a particular clinic. VALIP.prosthetic.fm2cw.DEVICE35 81 AUTOFINISH_CLINIC_PRINTER NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {AUTOFINISH_CLINIC_PRINTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTOFINISH_CLINIC_PRINTER_NAME 1 FileMan Field Label: 'AUTOFINISH RX SITE' FileMan Field Number: '22900' This field is a pointer to File#59, Outpatient Site, that this hospital location is associated with. If this field is not set autofinishing of Rx's for this hospital location will not take place. VALIP.prosthetic.fm2cw.OUTPATIENTSITE59 80 AUTOFINISH_RX_SITE NAME This field contains the name of the site.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {AUTOFINISH_RX_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTOFINISH_RX_SITE_NAME 1 FileMan Field Label: 'AVAILABILITY FLAG' FileMan Field Number: '1920.9' Date/time set up for clinic availability. %Library.FilemanDate 48 AVAILABILITY_FLAG FileMan Field Label: 'CATEGORY OF VISIT' FileMan Field Number: '15' Category of visit associated with a specific location. %Library.String 22 CATEGORY_OF_VISIT FileMan Field Label: 'CLINIC CANCELLATION LETTER' FileMan Field Number: '2510' Enter the clinic cancellation letter to be associated with this clinic, so if clinic is cancelled, this letter will print as opposed to generic clinic cancellation letter. VALIP.prosthetic.fm2cw.LETTER4075 74 CLINIC_CANCELLATION_LETTER NAME The name of a letter that has been initially created by the developer in a 'skeleton form' and the user edits the body of the letter. These letters are utilized mostly in the Scheduling Module of the MAS DHCP software.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {CLINIC_CANCELLATION_LETTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLINIC_CANCELLATION_LETTER_NAME 1 FileMan Field Label: 'CLINIC GROUP (REPORTS)' FileMan Field Number: '31' VALIP.prosthetic.fm2cw.CLINICGROUP40967 30 CLINIC_GROUP_REPORTS NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {CLINIC_GROUP_REPORTS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLINIC_GROUP_REPORTS_NAME 1 FileMan Field Label: 'CLINIC HASH' FileMan Field Number: '2900' This field stores a SHA-1 hash of the RPC, SDES GET CLINIC INFO, output. Hash is calculated by calling the SDES HASH ALL CLINIC option. %Library.String 78 CLINIC_HASH FileMan Field Label: 'CLINIC HASH DATE/TIME' FileMan Field Number: '2901' Date/time SHA-1 hash was created via option SDES HASH ALL CLINICS. %Library.FilemanTimeStamp 79 CLINIC_HASH_DATETIME FileMan Field Label: 'CLINIC MEETS AT THIS FACILITY?' FileMan Field Number: '2504' Does clinic meet at designated facility? %Library.EnumString 68 CLINIC_MEETS_AT_THIS_FACILITY FileMan Field Label: '*CLINIC SERVICES RESOURCE' FileMan Field Number: '29' This field is used to associate the clinic with a Clinic Services Resource. %Library.String 28 CLINIC_SERVICES_RESOURCE FileMan Field Label: 'COLLATERAL VISITS? (Y OR N)' FileMan Field Number: '2004' Are collateral visits allowed to this clinic? Yes or No %Library.EnumString 54 COLLATERAL_VISITS_Y_OR_N FileMan Field Label: '*COMMUNICATION FORMAT' FileMan Field Number: '2007' %Library.String 57 COMMUNICATION_FORMAT FileMan Field Label: 'COPIES' FileMan Field Number: '1919' How many copies of appointment lists should be generated for this clinic? %Library.Numeric 47 COPIES FileMan Field Label: 'CREDIT STOP CODE' FileMan Field Number: '2503' Appointments to this clinic will receive this stop code credit in addition to the 'normal' stop code credit if a stop code different from the 'normal' stop code for this clinic is entered here. VALIP.prosthetic.fm2cw.CLINICSTOP407 66 CREDIT_STOP_CODE NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {CREDIT_STOP_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREDIT_STOP_CODE_NAME 1 FileMan Field Label: 'DEFAULT APPOINTMENT TYPE' FileMan Field Number: '2507' The default or usual appointment type to be associated with this clinic. VALIP.prosthetic.fm2cw.APPOINTMENTTYPE4091 71 DEFAULT_APPOINTMENT_TYPE NAME Name of the appointment type, i.e. Class II Dental is designated for veterans who are scheduling an appointment to be treated for a dental condition that was related to active duty.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {DEFAULT_APPOINTMENT_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEFAULT_APPOINTMENT_TYPE_NAME 1 FileMan Field Label: 'DEFAULT DEVICE' FileMan Field Number: '5' Default device to which information should print for a specific location. This field is not currently being utilized. %Library.String 10 DEFAULT_DEVICE FileMan Field Label: 'DEFAULT PROVIDER' FileMan Field Number: '16' Default provider or physician that is assigned to specific clinic. VALIP.prosthetic.fm2cw.NEWPERSON200 23 DEFAULT_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {DEFAULT_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEFAULT_PROVIDER_NAME 1 FileMan Field Label: 'DEFAULT TO PC PRACTITIONER?' FileMan Field Number: '2801' This only is relevant if there is no default provider. If so, if there is a current primary care practitioner for the patient - it will be provided as the default provider. %Library.EnumString 76 DEFAULT_TO_PC_PRACTITIONER FileMan Field Label: 'DIRECT PATIENT SCHEDULING?' FileMan Field Number: '61' This field will determine if patients can self-schedule into this clinic. A "Yes" in this field will enable patients to directly schedule appointments into this clinic. %Library.EnumString 35 DIRECT_PATIENT_SCHEDULING FileMan Field Label: 'DISPLAY CLIN APPT TO PATIENTS?' FileMan Field Number: '62' This field will determine if the clinic appointment information will be displayed to patients. A "Yes" in this field will enable patients to see their appointments in this clinic. If DIRECT PATIENT SCHEDULING? (#61) is set to YES, this field defaults to YES and is not editable. %Library.EnumString 36 DISPLAY_CLIN_APPT_TO_PATIENTS FileMan Field Label: 'DISPLAY INCREMENTS PER HOUR' FileMan Field Number: '1917' This field SHOULD NOT BE EDITED when patterns have been established using another increment per hour. Editing this field will cause existing patterns to be erroneous and scheduling conflicts may also occur if the increments are changed. %Library.EnumString 44 DISPLAY_INCREMENTS_PER_HOUR FileMan Field Label: 'DISPOSITION ACTION' FileMan Field Number: '6' A disposition action associated with specific location, i.e. '0'= none; '1'=appointment record request; '2'=scheduling. %Library.EnumString 11 DISPOSITION_ACTION FileMan Field Label: 'DIVISION' FileMan Field Number: '3.5' Division name assigned to each entry in this file to identify where the specific location is. There can be multiple divisions assigned to an Institution, but only one division per location. VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 8 DIVISION NAME Enter in this field the name of a division at your facility. It may be the main building, a satelite clinic, a domiciliary, or a nursing home.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {DIVISION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIVISION_NAME 1 FileMan Field Label: 'E-CHECKIN ALLOWED' FileMan Field Number: '20' This field will determine if E-Checkin is allowed for the clinic. %Library.EnumString 24 ECHECKIN_ALLOWED FileMan Field Label: 'EXCLUDE ON INELIGIBLE SCREEN?' FileMan Field Number: '648009' %Library.EnumString 82 EXCLUDE_ON_INELIGIBLE_SCREEN FileMan Field Label: 'HOLD SC SLOTS UNTIL # OF DAYS' FileMan Field Number: '1915' Should service connected slots be held open for a set number of days? Service connected veterans have priority over NSC veterans when scheduling appointments. %Library.Numeric 42 HOLD_SC_SLOTS_UNTIL__OF_DAYS FileMan Field Label: 'HOUR CLINIC DISPLAY BEGINS' FileMan Field Number: '1914' The hour clinic will begin displaying availability (i.e. 8AM). %Library.Numeric 41 HOUR_CLINIC_DISPLAY_BEGINS Internal Entry Number %Library.String $$next^%apiSQL("$p(^SC(0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVATE DATE' FileMan Field Number: '2505' Date clinic was inactivated. %Library.FilemanDate 69 INACTIVATE_DATE FileMan Field Label: 'INCLUDE ON FILE ROOM LISTS?' FileMan Field Number: '2502.5' This field should contain a Yes if this is a non-count clinic that should be included on the file room lists. %Library.EnumString 65 INCLUDE_ON_FILE_ROOM_LISTS FileMan Field Label: 'INSTITUTION' FileMan Field Number: '3' Institution name assigned to each entry in this file to identify where the specific location is. VALIP.prosthetic.fm2cw.INSTITUTION4 7 INSTITUTION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {INSTITUTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INSTITUTION_NAME 1 FileMan Field Label: 'IS THIS A PBSP CLINIC?' FileMan Field Number: '9.1' PROVIDER BASED SCHEDULING PROFILE CLINIC This field indicates whether a clinic is a PROVIDER BASED SCHEDULING PROFILE CLINIC. %Library.EnumString 16 IS_THIS_A_PBSP_CLINIC FileMan Field Label: 'LENGTH OF APP'T' FileMan Field Number: '1912' Length of appointment designated for clinic. %Library.Numeric 39 LENGTH_OF_APPT FileMan Field Label: 'MAX # DAYS FOR AUTO-REBOOK' FileMan Field Number: '2005' Maximum number of days the system can be set to search up to when auto rebooking appointments. For instance, if an appointment to this clinic is cancelled and the latest time that should be allowed for rescheduling is a period of two weeks (set parameter), then auto rebook function will quit after searching a two week period in future for available slots. %Library.Numeric 55 MAX__DAYS_FOR_AUTOREBOOK FileMan Field Label: 'MAX # DAYS FOR FUTURE BOOKING' FileMan Field Number: '2002' Maximum number of days that can be available when clerk searching for open clinic slots in the future. %Library.Numeric 52 MAX__DAYS_FOR_FUTURE_BOOKING FileMan Field Label: 'MODULE' FileMan Field Number: '4' Module or name of hospital location. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 9 MODULE4 NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {MODULE4_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MODULE4_NAME 1 FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility. %Library.String 1 3 NAME FileMan Field Label: 'NON-COUNT CLINIC? (Y OR N)' FileMan Field Number: '2502' Is this clinic to be a non-count clinic for workload purposes? OR Are visits to this clinic to be included in workload statistics? %Library.EnumString 64 NONCOUNT_CLINIC_Y_OR_N FileMan Field Label: 'NO SHOW LETTER' FileMan Field Number: '2508' Enter the no-show letter to be associated with this clinic, so if patient does not show for appointment, this specific no-show letter will print as opposed to the generic no-show letter. VALIP.prosthetic.fm2cw.LETTER4075 72 NO_SHOW_LETTER NAME The name of a letter that has been initially created by the developer in a 'skeleton form' and the user edits the body of the letter. These letters are utilized mostly in the Scheduling Module of the MAS DHCP software.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {NO_SHOW_LETTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NO_SHOW_LETTER_NAME 1 FileMan Field Label: 'OCCASION OF SERVICE CLINIC?' FileMan Field Number: '50.01' This field is non-editable. It is created automatically by a scheduling API and must NOT be edited by the site. It designates clinic locations added by ancillary packages for occasions of service. These clinics can not be edited through Scheduling options. They can only be altered using the API. %Library.EnumString 32 OCCASION_OF_SERVICE_CLINIC FileMan Field Label: '*OKC A' FileMan Field Number: '11' %Library.String 19 OKC_A FileMan Field Label: '*OKC B' FileMan Field Number: '12' %Library.String 20 OKC_B FileMan Field Label: 'ON MUMPS TALK SYSTEM?' FileMan Field Number: '999999' %Library.EnumString 83 ON_MUMPS_TALK_SYSTEM FileMan Field Label: 'OOS CALLING PACKAGE' FileMan Field Number: '50.02' This field stores the package which created the occasion of service location. This field should NOT be altered by the site. It is uneditable through FileMan. VALIP.prosthetic.fm2cw.PACKAGE94 33 OOS_CALLING_PACKAGE NAME The name of this Package.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {OOS_CALLING_PACKAGE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OOS_CALLING_PACKAGE_NAME 1 FileMan Field Label: 'OVERBOOKS/DAY MAXIMUM' FileMan Field Number: '1918' Number of allowable overbooks per day. If overbooks are not allowed, the number should be set to zero. %Library.Numeric 45 OVERBOOKSDAY_MAXIMUM FileMan Field Label: 'PATIENT FRIENDLY NAME' FileMan Field Number: '60' Populate this field with a description of the clinic that will be meaningful to patients. Do not enter any sensitive patient information in this field such as HIV CLINIC as an example. %Library.String 34 PATIENT_FRIENDLY_NAME FileMan Field Label: 'PHYSICAL LOCATION' FileMan Field Number: '10' Physical location of a specific ward or clinic, etc., i.e. 3rd floor, Wing A. %Library.String 18 PHYSICAL_LOCATION FileMan Field Label: 'PRE-APPOINTMENT LETTER' FileMan Field Number: '2509' Enter the pre-appointment letter to be associated with this clinic, so if letters are generated, this specific pre-appointment letter will print as opposed to the generic pre-appointment letter. VALIP.prosthetic.fm2cw.LETTER4075 73 PREAPPOINTMENT_LETTER NAME The name of a letter that has been initially created by the developer in a 'skeleton form' and the user edits the body of the letter. These letters are utilized mostly in the Scheduling Module of the MAS DHCP software.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {PREAPPOINTMENT_LETTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREAPPOINTMENT_LETTER_NAME 1 FileMan Field Label: 'PRE-CHECKIN ALLOWED' FileMan Field Number: '21' This field will determine if PRE-Checkin is allowed for this clinic. %Library.EnumString 25 PRECHECKIN_ALLOWED FileMan Field Label: 'PRINCIPAL CLINIC' FileMan Field Number: '1916' Principal clinic or main clinic assigned to a specific location. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 43 PRINCIPAL_CLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {PRINCIPAL_CLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRINCIPAL_CLINIC_NAME 1 FileMan Field Label: 'PROHIBIT ACCESS TO CLINIC?' FileMan Field Number: '2500' Should only privileged users have access to book to this clinic? %Library.EnumString 63 PROHIBIT_ACCESS_TO_CLINIC FileMan Field Label: 'PRV. YEAR CREDIT STOP CODE' FileMan Field Number: '2503.1' Previous year's credit stop code assigned to clinic. VALIP.prosthetic.fm2cw.CLINICSTOP407 67 PRV__YEAR_CREDIT_STOP_CODE NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {PRV__YEAR_CREDIT_STOP_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRV__YEAR_CREDIT_STOP_CODE_NAME 1 FileMan Field Label: 'PRV. YEAR STOP CODE' FileMan Field Number: '8.1' Previous year's three digit stop code number that was assigned to specific location (clinics only). VALIP.prosthetic.fm2cw.CLINICSTOP407 14 PRV__YEAR_STOP_CODE NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {PRV__YEAR_STOP_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRV__YEAR_STOP_CODE_NAME 1 FileMan Field Label: 'REACTIVATE DATE' FileMan Field Number: '2506' Date clinic was reactivated. %Library.FilemanDate 70 REACTIVATE_DATE FileMan Field Label: '*RECORD APPOINTMENT STATUS' FileMan Field Number: '2012' %Library.EnumString 62 RECORD_APPOINTMENT_STATUS FileMan Field Label: '*RECORD REQUEST DEVICE' FileMan Field Number: '2008' %Library.String 58 RECORD_REQUEST_DEVICE FileMan Field Label: '*RECORD REQUEST PRIORITY' FileMan Field Number: '2011' %Library.Numeric 61 RECORD_REQUEST_PRIORITY FileMan Field Label: '*RECORD TRACKING COMMUNICATION' FileMan Field Number: '2006' %Library.EnumString 56 RECORD_TRACKING_COMMUNICATION FileMan Field Label: 'REQUIRE ACTION PROFILES?' FileMan Field Number: '2000.5' Will pharmacy action profiles be required for patients scheduled in this clinic? %Library.EnumString 50 REQUIRE_ACTION_PROFILES FileMan Field Label: 'REQUIRE X-RAY FILMS?' FileMan Field Number: '2000' Will x-ray films be required for patients scheduled in this clinic? %Library.EnumString 49 REQUIRE_XRAY_FILMS FileMan Field Label: '*RT AT HOME RETREIVER' FileMan Field Number: '2009' VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 59 RT_AT_HOME_RETREIVER NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {RT_AT_HOME_RETREIVER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RT_AT_HOME_RETREIVER_NAME 1 FileMan Field Label: '*RT NOT AT HOME RETREIVER' FileMan Field Number: '2010' VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 60 RT_NOT_AT_HOME_RETREIVER NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {RT_NOT_AT_HOME_RETREIVER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RT_NOT_AT_HOME_RETREIVER_NAME 1 FileMan Field Label: 'SCHEDULE ON HOLIDAYS?' FileMan Field Number: '1918.5' Should the user be able to schedule appointments on holiday's for specific location? %Library.EnumString 46 SCHEDULE_ON_HOLIDAYS FileMan Field Label: 'SERVICE' FileMan Field Number: '9' Service assigned to specific location, i.e. Medicine, Surgery, Psychiatry, etc. %Library.EnumString 15 SERVICE FileMan Field Label: 'SPECIAL AMIS STOP' FileMan Field Number: '14' Special AMIS stop associated with a specific location based on the Service assigned. %Library.EnumString 21 SPECIAL_AMIS_STOP FileMan Field Label: 'START TIME FOR AUTO REBOOK' FileMan Field Number: '2003' Start time (hour of day) that should be searched for when user auto rebooking an appointment. For example, if the clinic regularly starts at 8am, user may wish to set this parameter to 9am so that the next available slot at 9am or later will be stuffed with new appointment. %Library.Numeric 53 START_TIME_FOR_AUTO_REBOOK FileMan Field Label: 'STOP CODE NUMBER' FileMan Field Number: '8' Three digit stop code number assigned to specific location. Each stop code number represents a type of care or Service/treating specialty (clinics only). VALIP.prosthetic.fm2cw.CLINICSTOP407 13 STOP_CODE_NUMBER NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {STOP_CODE_NUMBER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STOP_CODE_NUMBER_NAME 1 Relationship for Sub-File/Multiple to file name APPOINTMENT child VALIP.prosthetic.fm2cw.SUBAPPOINTMENT44001 children HOSPITALLOCATION44 1 SUB_APPOINTMENT_44_001 Relationship for Sub-File/Multiple to file name ASSOCIATED LOCATION TYPES child VALIP.prosthetic.fm2cw.SUBASSOCIATEDLOCATIONTYPES44101 children HOSPITALLOCATION44 1 SUB_ASSOCIATED_LOCATION_TYPES_44_101 Relationship for Sub-File/Multiple to file name AVAILABILITY child VALIP.prosthetic.fm2cw.SUBAVAILABILITY44002 children HOSPITALLOCATION44 1 SUB_AVAILABILITY_44_002 Relationship for Sub-File/Multiple to file name CANCEL DATE/TIME BEGIN child VALIP.prosthetic.fm2cw.SUBCANCELDATETIMEBEGIN4405 children HOSPITALLOCATION44 1 SUB_CANCEL_DATETIME_BEGIN_44_05 Relationship for Sub-File/Multiple to file name CHART CHECK child VALIP.prosthetic.fm2cw.SUBCHARTCHECK44006 children HOSPITALLOCATION44 1 SUB_CHART_CHECK_44_006 Relationship for Sub-File/Multiple to file name DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBDIAGNOSIS4411 children HOSPITALLOCATION44 1 SUB_DIAGNOSIS_44_11 Relationship for Sub-File/Multiple to file name FRIDAY TEMPLATE child VALIP.prosthetic.fm2cw.SUBFRIDAYTEMPLATE44009 children HOSPITALLOCATION44 1 SUB_FRIDAY_TEMPLATE_44_009 Relationship for Sub-File/Multiple to file name MONDAY TEMPLATE child VALIP.prosthetic.fm2cw.SUBMONDAYTEMPLATE4407 children HOSPITALLOCATION44 1 SUB_MONDAY_TEMPLATE_44_07 Relationship for Sub-File/Multiple to file name PATTERN child VALIP.prosthetic.fm2cw.SUBPATTERN44005 children HOSPITALLOCATION44 1 SUB_PATTERN_44_005 Relationship for Sub-File/Multiple to file name PRIVILEGED USER child VALIP.prosthetic.fm2cw.SUBPRIVILEGEDUSER4404 children HOSPITALLOCATION44 1 SUB_PRIVILEGED_USER_44_04 Relationship for Sub-File/Multiple to file name PROHIBITED TERMINAL child VALIP.prosthetic.fm2cw.SUBPROHIBITEDTERMINAL4402 children HOSPITALLOCATION44 1 SUB_PROHIBITED_TERMINAL_44_02 Relationship for Sub-File/Multiple to file name PROVIDER child VALIP.prosthetic.fm2cw.SUBPROVIDER441 children HOSPITALLOCATION44 1 SUB_PROVIDER_44_1 Relationship for Sub-File/Multiple to file name SATURDAY TEMPLATE child VALIP.prosthetic.fm2cw.SUBSATURDAYTEMPLATE440001 children HOSPITALLOCATION44 1 SUB_SATURDAY_TEMPLATE_44_0001 Relationship for Sub-File/Multiple to file name SPECIAL INSTRUCTIONS child VALIP.prosthetic.fm2cw.SUBSPECIALINSTRUCTIONS4403 children HOSPITALLOCATION44 1 SUB_SPECIAL_INSTRUCTIONS_44_03 Relationship for Sub-File/Multiple to file name SPECIAL PATTERN child VALIP.prosthetic.fm2cw.SUBSPECIALPATTERN440002 children HOSPITALLOCATION44 1 SUB_SPECIAL_PATTERN_44_0002 Relationship for Sub-File/Multiple to file name SUNDAY TEMPLATE child VALIP.prosthetic.fm2cw.SUBSUNDAYTEMPLATE4406 children HOSPITALLOCATION44 1 SUB_SUNDAY_TEMPLATE_44_06 Relationship for Sub-File/Multiple to file name SYNONYM child VALIP.prosthetic.fm2cw.SUBSYNONYM4401 children HOSPITALLOCATION44 1 SUB_SYNONYM_44_01 Relationship for Sub-File/Multiple to file name TEAM POSITIONS child VALIP.prosthetic.fm2cw.SUBTEAMPOSITIONS4440457 children HOSPITALLOCATION44 1 SUB_TEAM_POSITIONS_44_40457 Relationship for Sub-File/Multiple to file name THURSDAY TEMPLATE child VALIP.prosthetic.fm2cw.SUBTHURSDAYTEMPLATE44008 children HOSPITALLOCATION44 1 SUB_THURSDAY_TEMPLATE_44_008 Relationship for Sub-File/Multiple to file name TUESDAY TEMPLATE child VALIP.prosthetic.fm2cw.SUBTUESDAYTEMPLATE4408 children HOSPITALLOCATION44 1 SUB_TUESDAY_TEMPLATE_44_08 Relationship for Sub-File/Multiple to file name WEDNESDAY TEMPLATE child VALIP.prosthetic.fm2cw.SUBWEDNESDAYTEMPLATE4409 children HOSPITALLOCATION44 1 SUB_WEDNESDAY_TEMPLATE_44_09 FileMan Field Label: 'TELEPHONE' FileMan Field Number: '99' Telephone number for specific location. %Library.String 37 TELEPHONE FileMan Field Label: 'TELEPHONE EXTENSION' FileMan Field Number: '99.1' Clinic telephone extension number where patients can call directly. %Library.String 38 TELEPHONE_EXTENSION FileMan Field Label: 'TREATING SPECIALTY' FileMan Field Number: '9.5' Treating specialty assigned a specific location, i.e. neurosurgery, alcohol/drug rehabilitation, dermatology (specialties within Services usually). VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 17 TREATING_SPECIALTY NAME Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {TREATING_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TREATING_SPECIALTY_NAME 1 FileMan Field Label: 'TYPE' FileMan Field Number: '2' Type of location assigned to entries into this file, i.e. Ward, Clinic, Fileroom, Operating Room, Other. %Library.EnumString 1 5 TYPE FileMan Field Label: 'TYPE EXTENSION' FileMan Field Number: '2.1' Type extension of a location assigned to entries into this file to insure user is not allowed to use a previously designated Ward Location as a Clinic Location for example. VALIP.prosthetic.fm2cw.LOCATIONTYPE409 1 6 TYPE_EXTENSION NAME Enter the name of the location type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {TYPE_EXTENSION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_EXTENSION_NAME 1 FileMan Field Label: 'VARIABLE APP'NTMENT LENGTH' FileMan Field Number: '1913' Does the clinic have variable appointment lengths? Can, if length of appointment is 10 minutes, user make longer appointments in increments of 10 at time of making appointment? %Library.EnumString 40 VARIABLE_APPNTMENT_LENGTH SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 84 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VISIT LOCATION' FileMan Field Number: '7' Location of visit for specified entry. %Library.String 12 VISIT_LOCATION FileMan Field Label: 'WARD LOCATION FILE POINTER' FileMan Field Number: '42' If location is a ward, this is the file pointer to the Ward Location File, File 42 in which this location is also stored. VALIP.prosthetic.fm2cw.WARDLOCATION42 31 WARD_LOCATION_FILE_POINTER NAME Enter in this field the name of the ward location as selectable using bed control options in MAS. Mixing ward names that are pure numbers (4,5,6...) with ward names that are alphabetic (A,B,C...) or with ward names that combine numbers with alphas (4A, 4B, 5C...) may yield unexpected results when printing output sorted by ward.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.HOSPITAL_LOCATION_44 where %ID=:id) set {WARD_LOCATION_FILE_POINTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARD_LOCATION_FILE_POINTER_NAME 1 FileMan Field Label: 'WORKLOAD VALIDATION AT CHK OUT' FileMan Field Number: '30' Yes or 1 will result in a validation being performed on each checked out encounter for this clinic. No or zero will stop the validation of the encounters as they are checked out for this clinic. This validation is to help ensure that the workload data is acceptable to the Austin National Patient Care Database. %Library.EnumString 29 WORKLOAD_VALIDATION_AT_CHK_OUT BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SC(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(44,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(44,"+1,",1)={"ABBREVIATION"} set:{TYPE}'="" FDA(44,"+1,",2)={"TYPE"} set:{TYPE_EXTENSION}'="" FDA(44,"+1,",2.1)={"TYPE_EXTENSION"} set:{INSTITUTION}'="" FDA(44,"+1,",3)={"INSTITUTION"} set:{DIVISION}'="" FDA(44,"+1,",3.5)={"DIVISION"} set:{MODULE4}'="" FDA(44,"+1,",4)={"MODULE4"} set:{DEFAULT_DEVICE}'="" FDA(44,"+1,",5)={"DEFAULT_DEVICE"} set:{DISPOSITION_ACTION}'="" FDA(44,"+1,",6)={"DISPOSITION_ACTION"} set:{VISIT_LOCATION}'="" FDA(44,"+1,",7)={"VISIT_LOCATION"} set:{STOP_CODE_NUMBER}'="" FDA(44,"+1,",8)={"STOP_CODE_NUMBER"} set:{PRV__YEAR_STOP_CODE}'="" FDA(44,"+1,",8.1)={"PRV__YEAR_STOP_CODE"} set:{SERVICE}'="" FDA(44,"+1,",9)={"SERVICE"} set:{IS_THIS_A_PBSP_CLINIC}'="" FDA(44,"+1,",9.1)={"IS_THIS_A_PBSP_CLINIC"} set:{TREATING_SPECIALTY}'="" FDA(44,"+1,",9.5)={"TREATING_SPECIALTY"} set:{PHYSICAL_LOCATION}'="" FDA(44,"+1,",10)={"PHYSICAL_LOCATION"} set:{OKC_A}'="" FDA(44,"+1,",11)={"OKC_A"} set:{OKC_B}'="" FDA(44,"+1,",12)={"OKC_B"} set:{SPECIAL_AMIS_STOP}'="" FDA(44,"+1,",14)={"SPECIAL_AMIS_STOP"} set:{CATEGORY_OF_VISIT}'="" FDA(44,"+1,",15)={"CATEGORY_OF_VISIT"} set:{DEFAULT_PROVIDER}'="" FDA(44,"+1,",16)={"DEFAULT_PROVIDER"} set:{ECHECKIN_ALLOWED}'="" FDA(44,"+1,",20)={"ECHECKIN_ALLOWED"} set:{PRECHECKIN_ALLOWED}'="" FDA(44,"+1,",21)={"PRECHECKIN_ALLOWED"} set:{AGENCY}'="" FDA(44,"+1,",23)={"AGENCY"} set:{ASK_FOR_CHECK_INOUT_TIME}'="" FDA(44,"+1,",24)={"ASK_FOR_CHECK_INOUT_TIME"} set:{CLINIC_SERVICES_RESOURCE}'="" FDA(44,"+1,",29)={"CLINIC_SERVICES_RESOURCE"} set:{WORKLOAD_VALIDATION_AT_CHK_OUT}'="" FDA(44,"+1,",30)={"WORKLOAD_VALIDATION_AT_CHK_OUT"} set:{CLINIC_GROUP_REPORTS}'="" FDA(44,"+1,",31)={"CLINIC_GROUP_REPORTS"} set:{WARD_LOCATION_FILE_POINTER}'="" FDA(44,"+1,",42)={"WARD_LOCATION_FILE_POINTER"} set:{OCCASION_OF_SERVICE_CLINIC}'="" FDA(44,"+1,",50.01)={"OCCASION_OF_SERVICE_CLINIC"} set:{OOS_CALLING_PACKAGE}'="" FDA(44,"+1,",50.02)={"OOS_CALLING_PACKAGE"} set:{PATIENT_FRIENDLY_NAME}'="" FDA(44,"+1,",60)={"PATIENT_FRIENDLY_NAME"} set:{DIRECT_PATIENT_SCHEDULING}'="" FDA(44,"+1,",61)={"DIRECT_PATIENT_SCHEDULING"} set:{DISPLAY_CLIN_APPT_TO_PATIENTS}'="" FDA(44,"+1,",62)={"DISPLAY_CLIN_APPT_TO_PATIENTS"} set:{TELEPHONE}'="" FDA(44,"+1,",99)={"TELEPHONE"} set:{TELEPHONE_EXTENSION}'="" FDA(44,"+1,",99.1)={"TELEPHONE_EXTENSION"} set:{LENGTH_OF_APPT}'="" FDA(44,"+1,",1912)={"LENGTH_OF_APPT"} set:{VARIABLE_APPNTMENT_LENGTH}'="" FDA(44,"+1,",1913)={"VARIABLE_APPNTMENT_LENGTH"} set:{HOUR_CLINIC_DISPLAY_BEGINS}'="" FDA(44,"+1,",1914)={"HOUR_CLINIC_DISPLAY_BEGINS"} set:{HOLD_SC_SLOTS_UNTIL__OF_DAYS}'="" FDA(44,"+1,",1915)={"HOLD_SC_SLOTS_UNTIL__OF_DAYS"} set:{PRINCIPAL_CLINIC}'="" FDA(44,"+1,",1916)={"PRINCIPAL_CLINIC"} set:{DISPLAY_INCREMENTS_PER_HOUR}'="" FDA(44,"+1,",1917)={"DISPLAY_INCREMENTS_PER_HOUR"} set:{OVERBOOKSDAY_MAXIMUM}'="" FDA(44,"+1,",1918)={"OVERBOOKSDAY_MAXIMUM"} set:{SCHEDULE_ON_HOLIDAYS}'="" FDA(44,"+1,",1918.5)={"SCHEDULE_ON_HOLIDAYS"} set:{COPIES}'="" FDA(44,"+1,",1919)={"COPIES"} set:{AVAILABILITY_FLAG}'="" FDA(44,"+1,",1920.9)={"AVAILABILITY_FLAG"} set:{REQUIRE_XRAY_FILMS}'="" FDA(44,"+1,",2000)={"REQUIRE_XRAY_FILMS"} set:{REQUIRE_ACTION_PROFILES}'="" FDA(44,"+1,",2000.5)={"REQUIRE_ACTION_PROFILES"} set:{ALLOWABLE_CONSECUTIVE_NOSHOWS}'="" FDA(44,"+1,",2001)={"ALLOWABLE_CONSECUTIVE_NOSHOWS"} set:{MAX__DAYS_FOR_FUTURE_BOOKING}'="" FDA(44,"+1,",2002)={"MAX__DAYS_FOR_FUTURE_BOOKING"} set:{START_TIME_FOR_AUTO_REBOOK}'="" FDA(44,"+1,",2003)={"START_TIME_FOR_AUTO_REBOOK"} set:{COLLATERAL_VISITS_Y_OR_N}'="" FDA(44,"+1,",2004)={"COLLATERAL_VISITS_Y_OR_N"} set:{MAX__DAYS_FOR_AUTOREBOOK}'="" FDA(44,"+1,",2005)={"MAX__DAYS_FOR_AUTOREBOOK"} set:{RECORD_TRACKING_COMMUNICATION}'="" FDA(44,"+1,",2006)={"RECORD_TRACKING_COMMUNICATION"} set:{COMMUNICATION_FORMAT}'="" FDA(44,"+1,",2007)={"COMMUNICATION_FORMAT"} set:{RECORD_REQUEST_DEVICE}'="" FDA(44,"+1,",2008)={"RECORD_REQUEST_DEVICE"} set:{RT_AT_HOME_RETREIVER}'="" FDA(44,"+1,",2009)={"RT_AT_HOME_RETREIVER"} set:{RT_NOT_AT_HOME_RETREIVER}'="" FDA(44,"+1,",2010)={"RT_NOT_AT_HOME_RETREIVER"} set:{RECORD_REQUEST_PRIORITY}'="" FDA(44,"+1,",2011)={"RECORD_REQUEST_PRIORITY"} set:{RECORD_APPOINTMENT_STATUS}'="" FDA(44,"+1,",2012)={"RECORD_APPOINTMENT_STATUS"} set:{PROHIBIT_ACCESS_TO_CLINIC}'="" FDA(44,"+1,",2500)={"PROHIBIT_ACCESS_TO_CLINIC"} set:{NONCOUNT_CLINIC_Y_OR_N}'="" FDA(44,"+1,",2502)={"NONCOUNT_CLINIC_Y_OR_N"} set:{INCLUDE_ON_FILE_ROOM_LISTS}'="" FDA(44,"+1,",2502.5)={"INCLUDE_ON_FILE_ROOM_LISTS"} set:{CREDIT_STOP_CODE}'="" FDA(44,"+1,",2503)={"CREDIT_STOP_CODE"} set:{PRV__YEAR_CREDIT_STOP_CODE}'="" FDA(44,"+1,",2503.1)={"PRV__YEAR_CREDIT_STOP_CODE"} set:{CLINIC_MEETS_AT_THIS_FACILITY}'="" FDA(44,"+1,",2504)={"CLINIC_MEETS_AT_THIS_FACILITY"} set:{INACTIVATE_DATE}'="" FDA(44,"+1,",2505)={"INACTIVATE_DATE"} set:{REACTIVATE_DATE}'="" FDA(44,"+1,",2506)={"REACTIVATE_DATE"} set:{DEFAULT_APPOINTMENT_TYPE}'="" FDA(44,"+1,",2507)={"DEFAULT_APPOINTMENT_TYPE"} set:{NO_SHOW_LETTER}'="" FDA(44,"+1,",2508)={"NO_SHOW_LETTER"} set:{PREAPPOINTMENT_LETTER}'="" FDA(44,"+1,",2509)={"PREAPPOINTMENT_LETTER"} set:{CLINIC_CANCELLATION_LETTER}'="" FDA(44,"+1,",2510)={"CLINIC_CANCELLATION_LETTER"} set:{APPT__CANCELLATION_LETTER}'="" FDA(44,"+1,",2511)={"APPT__CANCELLATION_LETTER"} set:{DEFAULT_TO_PC_PRACTITIONER}'="" FDA(44,"+1,",2801)={"DEFAULT_TO_PC_PRACTITIONER"} set:{ADMINISTER_INPATIENT_MEDS}'="" FDA(44,"+1,",2802)={"ADMINISTER_INPATIENT_MEDS"} set:{CLINIC_HASH}'="" FDA(44,"+1,",2900)={"CLINIC_HASH"} set:{CLINIC_HASH_DATETIME}'="" FDA(44,"+1,",2901)={"CLINIC_HASH_DATETIME"} set:{AUTOFINISH_RX_SITE}'="" FDA(44,"+1,",22900)={"AUTOFINISH_RX_SITE"} set:{AUTOFINISH_CLINIC_PRINTER}'="" FDA(44,"+1,",22901)={"AUTOFINISH_CLINIC_PRINTER"} set:{EXCLUDE_ON_INELIGIBLE_SCREEN}'="" FDA(44,"+1,",648009)={"EXCLUDE_ON_INELIGIBLE_SCREEN"} set:{ON_MUMPS_TALK_SYSTEM}'="" FDA(44,"+1,",999999)={"ON_MUMPS_TALK_SYSTEM"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(44)") set %SkipFiling=1 if $d(%FMERR(44,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(44)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(44,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(44,IENS,1)={ABBREVIATION} set:{TYPE*C} FDA(44,IENS,2)={TYPE} set:{TYPE_EXTENSION*C} FDA(44,IENS,2.1)={TYPE_EXTENSION} set:{INSTITUTION*C} FDA(44,IENS,3)={INSTITUTION} set:{DIVISION*C} FDA(44,IENS,3.5)={DIVISION} set:{MODULE4*C} FDA(44,IENS,4)={MODULE4} set:{DEFAULT_DEVICE*C} FDA(44,IENS,5)={DEFAULT_DEVICE} set:{DISPOSITION_ACTION*C} FDA(44,IENS,6)={DISPOSITION_ACTION} set:{VISIT_LOCATION*C} FDA(44,IENS,7)={VISIT_LOCATION} set:{STOP_CODE_NUMBER*C} FDA(44,IENS,8)={STOP_CODE_NUMBER} set:{PRV__YEAR_STOP_CODE*C} FDA(44,IENS,8.1)={PRV__YEAR_STOP_CODE} set:{SERVICE*C} FDA(44,IENS,9)={SERVICE} set:{IS_THIS_A_PBSP_CLINIC*C} FDA(44,IENS,9.1)={IS_THIS_A_PBSP_CLINIC} set:{TREATING_SPECIALTY*C} FDA(44,IENS,9.5)={TREATING_SPECIALTY} set:{PHYSICAL_LOCATION*C} FDA(44,IENS,10)={PHYSICAL_LOCATION} set:{OKC_A*C} FDA(44,IENS,11)={OKC_A} set:{OKC_B*C} FDA(44,IENS,12)={OKC_B} set:{SPECIAL_AMIS_STOP*C} FDA(44,IENS,14)={SPECIAL_AMIS_STOP} set:{CATEGORY_OF_VISIT*C} FDA(44,IENS,15)={CATEGORY_OF_VISIT} set:{DEFAULT_PROVIDER*C} FDA(44,IENS,16)={DEFAULT_PROVIDER} set:{ECHECKIN_ALLOWED*C} FDA(44,IENS,20)={ECHECKIN_ALLOWED} set:{PRECHECKIN_ALLOWED*C} FDA(44,IENS,21)={PRECHECKIN_ALLOWED} set:{AGENCY*C} FDA(44,IENS,23)={AGENCY} set:{ASK_FOR_CHECK_INOUT_TIME*C} FDA(44,IENS,24)={ASK_FOR_CHECK_INOUT_TIME} set:{CLINIC_SERVICES_RESOURCE*C} FDA(44,IENS,29)={CLINIC_SERVICES_RESOURCE} set:{WORKLOAD_VALIDATION_AT_CHK_OUT*C} FDA(44,IENS,30)={WORKLOAD_VALIDATION_AT_CHK_OUT} set:{CLINIC_GROUP_REPORTS*C} FDA(44,IENS,31)={CLINIC_GROUP_REPORTS} set:{WARD_LOCATION_FILE_POINTER*C} FDA(44,IENS,42)={WARD_LOCATION_FILE_POINTER} set:{OCCASION_OF_SERVICE_CLINIC*C} FDA(44,IENS,50.01)={OCCASION_OF_SERVICE_CLINIC} set:{OOS_CALLING_PACKAGE*C} FDA(44,IENS,50.02)={OOS_CALLING_PACKAGE} set:{PATIENT_FRIENDLY_NAME*C} FDA(44,IENS,60)={PATIENT_FRIENDLY_NAME} set:{DIRECT_PATIENT_SCHEDULING*C} FDA(44,IENS,61)={DIRECT_PATIENT_SCHEDULING} set:{DISPLAY_CLIN_APPT_TO_PATIENTS*C} FDA(44,IENS,62)={DISPLAY_CLIN_APPT_TO_PATIENTS} set:{TELEPHONE*C} FDA(44,IENS,99)={TELEPHONE} set:{TELEPHONE_EXTENSION*C} FDA(44,IENS,99.1)={TELEPHONE_EXTENSION} set:{LENGTH_OF_APPT*C} FDA(44,IENS,1912)={LENGTH_OF_APPT} set:{VARIABLE_APPNTMENT_LENGTH*C} FDA(44,IENS,1913)={VARIABLE_APPNTMENT_LENGTH} set:{HOUR_CLINIC_DISPLAY_BEGINS*C} FDA(44,IENS,1914)={HOUR_CLINIC_DISPLAY_BEGINS} set:{HOLD_SC_SLOTS_UNTIL__OF_DAYS*C} FDA(44,IENS,1915)={HOLD_SC_SLOTS_UNTIL__OF_DAYS} set:{PRINCIPAL_CLINIC*C} FDA(44,IENS,1916)={PRINCIPAL_CLINIC} set:{DISPLAY_INCREMENTS_PER_HOUR*C} FDA(44,IENS,1917)={DISPLAY_INCREMENTS_PER_HOUR} set:{OVERBOOKSDAY_MAXIMUM*C} FDA(44,IENS,1918)={OVERBOOKSDAY_MAXIMUM} set:{SCHEDULE_ON_HOLIDAYS*C} FDA(44,IENS,1918.5)={SCHEDULE_ON_HOLIDAYS} set:{COPIES*C} FDA(44,IENS,1919)={COPIES} set:{AVAILABILITY_FLAG*C} FDA(44,IENS,1920.9)={AVAILABILITY_FLAG} set:{REQUIRE_XRAY_FILMS*C} FDA(44,IENS,2000)={REQUIRE_XRAY_FILMS} set:{REQUIRE_ACTION_PROFILES*C} FDA(44,IENS,2000.5)={REQUIRE_ACTION_PROFILES} set:{ALLOWABLE_CONSECUTIVE_NOSHOWS*C} FDA(44,IENS,2001)={ALLOWABLE_CONSECUTIVE_NOSHOWS} set:{MAX__DAYS_FOR_FUTURE_BOOKING*C} FDA(44,IENS,2002)={MAX__DAYS_FOR_FUTURE_BOOKING} set:{START_TIME_FOR_AUTO_REBOOK*C} FDA(44,IENS,2003)={START_TIME_FOR_AUTO_REBOOK} set:{COLLATERAL_VISITS_Y_OR_N*C} FDA(44,IENS,2004)={COLLATERAL_VISITS_Y_OR_N} set:{MAX__DAYS_FOR_AUTOREBOOK*C} FDA(44,IENS,2005)={MAX__DAYS_FOR_AUTOREBOOK} set:{RECORD_TRACKING_COMMUNICATION*C} FDA(44,IENS,2006)={RECORD_TRACKING_COMMUNICATION} set:{COMMUNICATION_FORMAT*C} FDA(44,IENS,2007)={COMMUNICATION_FORMAT} set:{RECORD_REQUEST_DEVICE*C} FDA(44,IENS,2008)={RECORD_REQUEST_DEVICE} set:{RT_AT_HOME_RETREIVER*C} FDA(44,IENS,2009)={RT_AT_HOME_RETREIVER} set:{RT_NOT_AT_HOME_RETREIVER*C} FDA(44,IENS,2010)={RT_NOT_AT_HOME_RETREIVER} set:{RECORD_REQUEST_PRIORITY*C} FDA(44,IENS,2011)={RECORD_REQUEST_PRIORITY} set:{RECORD_APPOINTMENT_STATUS*C} FDA(44,IENS,2012)={RECORD_APPOINTMENT_STATUS} set:{PROHIBIT_ACCESS_TO_CLINIC*C} FDA(44,IENS,2500)={PROHIBIT_ACCESS_TO_CLINIC} set:{NONCOUNT_CLINIC_Y_OR_N*C} FDA(44,IENS,2502)={NONCOUNT_CLINIC_Y_OR_N} set:{INCLUDE_ON_FILE_ROOM_LISTS*C} FDA(44,IENS,2502.5)={INCLUDE_ON_FILE_ROOM_LISTS} set:{CREDIT_STOP_CODE*C} FDA(44,IENS,2503)={CREDIT_STOP_CODE} set:{PRV__YEAR_CREDIT_STOP_CODE*C} FDA(44,IENS,2503.1)={PRV__YEAR_CREDIT_STOP_CODE} set:{CLINIC_MEETS_AT_THIS_FACILITY*C} FDA(44,IENS,2504)={CLINIC_MEETS_AT_THIS_FACILITY} set:{INACTIVATE_DATE*C} FDA(44,IENS,2505)={INACTIVATE_DATE} set:{REACTIVATE_DATE*C} FDA(44,IENS,2506)={REACTIVATE_DATE} set:{DEFAULT_APPOINTMENT_TYPE*C} FDA(44,IENS,2507)={DEFAULT_APPOINTMENT_TYPE} set:{NO_SHOW_LETTER*C} FDA(44,IENS,2508)={NO_SHOW_LETTER} set:{PREAPPOINTMENT_LETTER*C} FDA(44,IENS,2509)={PREAPPOINTMENT_LETTER} set:{CLINIC_CANCELLATION_LETTER*C} FDA(44,IENS,2510)={CLINIC_CANCELLATION_LETTER} set:{APPT__CANCELLATION_LETTER*C} FDA(44,IENS,2511)={APPT__CANCELLATION_LETTER} set:{DEFAULT_TO_PC_PRACTITIONER*C} FDA(44,IENS,2801)={DEFAULT_TO_PC_PRACTITIONER} set:{ADMINISTER_INPATIENT_MEDS*C} FDA(44,IENS,2802)={ADMINISTER_INPATIENT_MEDS} set:{CLINIC_HASH*C} FDA(44,IENS,2900)={CLINIC_HASH} set:{CLINIC_HASH_DATETIME*C} FDA(44,IENS,2901)={CLINIC_HASH_DATETIME} set:{AUTOFINISH_RX_SITE*C} FDA(44,IENS,22900)={AUTOFINISH_RX_SITE} set:{AUTOFINISH_CLINIC_PRINTER*C} FDA(44,IENS,22901)={AUTOFINISH_CLINIC_PRINTER} set:{EXCLUDE_ON_INELIGIBLE_SCREEN*C} FDA(44,IENS,648009)={EXCLUDE_ON_INELIGIBLE_SCREEN} set:{ON_MUMPS_TALK_SYSTEM*C} FDA(44,IENS,999999)={ON_MUMPS_TALK_SYSTEM} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44)") set %SkipFiling=1 if $d(%FMERR(44,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(44)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.HOSPITALLOC67B9S index ^SC nonnull "ACST" {CREDIT_STOP_CODE} {IEN} 0]]> index ^SC nonnull "AE" {ADMINISTER_INPATIENT_MEDS} {IEN} 0]]> index ^SC nonnull "AG" {TYPE} {NAME} {IEN} 0]]> index ^SC nonnull "ALTA" {APPT__CANCELLATION_LETTER} {IEN} 0]]> index ^SC nonnull "ALTC" {CLINIC_CANCELLATION_LETTER} {IEN} 0]]> index ^SC nonnull "ALTN" {NO_SHOW_LETTER} {IEN} 0]]> index ^SC nonnull "ALTP" {PREAPPOINTMENT_LETTER} {IEN} 0]]> index ^SC nonnull "AOOS" {OCCASION_OF_SERVICE_CLINIC} {IEN} 0]]> index ^SC nonnull "ASCRPW" {CLINIC_GROUP_REPORTS} {IEN} 0]]> index ^SC nonnull "AST" {STOP_CODE_NUMBER} {IEN} 0]]> index ^SC nonnull "B" {NAME} {IEN} 0]]> index ^SC nonnull "C" {ABBREVIATION} {IEN} 0]]> data ^SC {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 2 "^" 0 25 "^" 0 23 "^" "SDP" 1 "^" "LTR" 4 "^" 0 24 "^" "AFRXCLINPRNT" 1 "^" "AFRXSITE" 1 "^" "STT" 1 "^" 0 9 "^" "LTR" 3 "^" 0 31 "^" "HASH" 1 "^" "HASH" 2 "^" 0 19 "^" 0 29 "^" 0 16 "^" "R" 2 "^" 0 14 "^" 0 18 "^" "AT" 1 "^" 99 2 "^" 0 13 "^" "PC" 1 "^" "PA" 2 "^" "PA" 3 "^" "SL" 6 "^" 0 10 "^" 0 15 "^" 0 26 "^" 648009 1 "^" "SL" 4 "^" "SL" 3 "^" "I" 1 "^" 0 21 "^" 0 4 "^" 0 28 "^" "SL" 1 "^" "SDP" 4 "^" "SDP" 2 "^" 0 5 "^" 0 1 "^" 0 17 "^" "LTR" 1 "^" "OOS" 1 "^" .901 1 "^" .901 2 "^" 0 30 "^" "OOS" 2 "^" "SL" 7 "^" "PA" 1 "^" 0 11 "^" "LTR" 2 "^" 0 27 "^" "SL" 5 "^" "SDPROT" 1 "^" "OC" 2 "^" "OC" 1 "^" "I" 2 "^" "DT" 2 "^" "R" 3 "^" "DT" 1 "^" "R" 1 "^" "PS" 1 "^" "RAD" 1 "^" "R" 4 "^" "R" 5 "^" "SL" 8 "^" 0 8 "^" 0 12 "^" "SDP" 3 "^" 0 7 "^" 99 1 "^" 99.1 1 "^" 0 20 "^" 0 3 "^" 0 22 "^" "SL" 2 "^" 0 6 "^" 42 1 "^" 0 30 Generated class for FileMan File Number: '80.4' File Name: 'ICD CODING SYSTEMS' Class generated by %fm2class version 2.56 This file contains a listing of ICD coding systems stored in file 80 and 80.1. The Internal Entry Numbers (IENs) in this file are identical to those found in the Lexicon's CODING SYSTEM file 757.03. This table file should NOT be edited in anyway by the site. persistent _PUBLIC 0 RowId ICD_CODING_SYSTEMS_80_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.898343097 67178,44710.014678358 right ICD CODING SYSTEMS 80.4 2.56 12/04/2024 12:25:10 1 1 IEN 1 FILE_1]]> ICDFILE VALIP.prosthetic.fm2cw.FILE1 FKey_ICD_FILE FileMan Field Label: 'CODING SYSTEM ABBREVIATION' FileMan Field Number: '.02' This is a unique 3 character identifier for the coding system. %Library.String 5 CODING_SYSTEM_ABBREVIATION FileMan Field Label: 'ICD CODING SYSTEM' FileMan Field Number: '.001' This is a numeric representation of a ICD Coding System. %Library.String 1 3 Set {*}={IEN} 1 ICD_CODING_SYSTEM FileMan Field Label: 'ICD CODING SYSTEM NOMENCLATURE' FileMan Field Number: '.01' This is the ICD Coding system, to include the ICD designator, the version number and an identifier for the type if ICD coding system (diagnosis or procedure). Examples: ICD-9-CM, ICD-10-CM, ICD-10-PCS, etc. %Library.String 1 4 ICD_CODING_SYSTEM_NOMENCLATURE FileMan Field Label: 'ICD FILE' FileMan Field Number: '.03' This is the file number were the ICD CODING SYSTEM is stored. VALIP.prosthetic.fm2cw.FILE1 6 ICD_FILE NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ICD_CODING_SYSTEMS_80_4 where %ID=:id) set {ICD_FILE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_FILE_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^ICDS(0),""^"",3)") 1 2 IEN FileMan Field Label: 'IMPLEMENTATION DATE' FileMan Field Number: '.04' This is the date the ICD CODING SYSTEM was implemented in the VA. %Library.FilemanDate 7 IMPLEMENTATION_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ICDS(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ICD_CODING_SYSTEM_NOMENCLATURE}'="" FDA(80.4,"+1,",.01)={"ICD_CODING_SYSTEM_NOMENCLATURE"} set:{CODING_SYSTEM_ABBREVIATION}'="" FDA(80.4,"+1,",.02)={"CODING_SYSTEM_ABBREVIATION"} set:{ICD_FILE}'="" FDA(80.4,"+1,",.03)={"ICD_FILE"} set:{IMPLEMENTATION_DATE}'="" FDA(80.4,"+1,",.04)={"IMPLEMENTATION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(80.4)") set %SkipFiling=1 if $d(%FMERR(80.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(80.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ICD_CODING_SYSTEM_NOMENCLATURE*C} FDA(80.4,IENS,.01)={ICD_CODING_SYSTEM_NOMENCLATURE} set:{CODING_SYSTEM_ABBREVIATION*C} FDA(80.4,IENS,.02)={CODING_SYSTEM_ABBREVIATION} set:{ICD_FILE*C} FDA(80.4,IENS,.03)={ICD_FILE} set:{IMPLEMENTATION_DATE*C} FDA(80.4,IENS,.04)={IMPLEMENTATION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.4)") set %SkipFiling=1 if $d(%FMERR(80.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(80.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ICDCODINGSYC6B0S index ^ICDS nonnull "B" {ICD_CODING_SYSTEM_NOMENCLATURE} {IEN} 0]]> index ^ICDS nonnull "C" {CODING_SYSTEM_ABBREVIATION} {IEN} 0]]> index ^ICDS nonnull "F" {ICD_FILE} {IEN} 0]]> data ^ICDS {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 "^" 0 4 Generated class for FileMan File Number: '80' File Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 ICD Diagnosis file #80 contains codes from the International Classification of Diseases (ICD) Clinical Modification (CM) provided by the Centers for Medicare and Medicaid Services (CMS) and the National Center for Health Statistics (NCHS). This file contains both the 9th (ICD-9-CM) and 10th (ICD-10-CM) Revisions. If an entry needs to be added, modified or deleted, a patch will be issued containing the change. This table file should NOT be edited in anyway by the site. persistent _PUBLIC 0 RowId ICD_DIAGNOSIS_80 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44738.934205784 67178,44710.046551577 right ICD DIAGNOSIS 80 2.56 12/04/2024 12:25:10 1 1 IEN 1 ICD_CODING_SYSTEMS_80_4]]> CODINGSYSTEM VALIP.prosthetic.fm2cw.ICDCODINGSYSTEMS804 FKey_CODING_SYSTEM DRG_CC_EXCLUSIONS_82_13]]> PDXEXCLUSIONCODE VALIP.prosthetic.fm2cw.DRGCCEXCLUSIONS8213 FKey_PDX_EXCLUSION_CODE FileMan Field Label: 'CODE NUMBER' FileMan Field Number: '.01' ICD-9 or ICD-10 Code %Library.String 1 3 CODE_NUMBER FileMan Field Label: 'CODING SYSTEM' FileMan Field Number: '1.1' This is the coding system to which the code belongs. VALIP.prosthetic.fm2cw.ICDCODINGSYSTEMS804 4 CODING_SYSTEM ICD CODING SYSTEM NOMENCLATURE This is the ICD Coding system, to include the ICD designator, the version number and an identifier for the type if ICD coding system (diagnosis or procedure). Examples: ICD-9-CM, ICD-10-CM, ICD-10-PCS, etc. ]]> %Library.String 1 ICD_CODING_SYSTEM_NOMENCLATURE into :val from VALIP_prosthetic_fm2cw.ICD_DIAGNOSIS_80 where %ID=:id) set {CODING_SYSTEM_ICD_CODING_SYSTEM_NOMENCLATURE}=$select(SQLCODE=0:val,1:"")]]> 1 CODING_SYSTEM_ICD_CODING_SYSTEM_NOMENCLATURE 1 FileMan Field Label: 'EXCLUDE FROM LOOKUP' FileMan Field Number: '1.8' This is a computed field to indicate if a record in the Diagnosis file #80 should be excluded from lookup. Records excluded from lookup either have no activation history (sub-file 80.066) or have been modified by the VA (ICD EXPANDED field 1.7). If this computed field returns a 1, then it should not be used for lookup or included in lookup cross-references. %Library.String 1 12 0)&($O(^ICD9(+D0,68,0))>0))!($P($G(^ICD9(+D0,1)),"^",7)>0):1,1:0) set {EXCLUDE_FROM_LOOKUP}=X]]> 1 EXCLUDE_FROM_LOOKUP FileMan Field Label: 'ICD EXPANDED' FileMan Field Number: '1.7' This field is a flag indicating that the ICD code was expanded by the VA (local code). %Library.EnumString 11 ICD_EXPANDED FileMan Field Label: 'IDENTIFIER' FileMan Field Number: '1.2' This field contains Identifier codes providing more detail on the DRG. %Library.String 6 IDENTIFIER Internal Entry Number %Library.String $$next^%apiSQL("$p(^ICD9(0),""^"",3)") 1 2 IEN FileMan Field Label: 'MDC13' FileMan Field Number: '1.4' Field is set to 13 when the Major Diagnostic Code (MDC) equals 13 (Female Reproductive System) %Library.Numeric 8 MDC13 FileMan Field Label: 'MDC24' FileMan Field Number: '1.5' Code entry of body site of Multiple Significant Trauma. %Library.EnumString 9 MDC24 FileMan Field Label: 'MDC25' FileMan Field Number: '1.6' Set of codes refers to type of HIV code or related condition. %Library.EnumString 10 MDC25 FileMan Field Label: 'PDX EXCLUSION CODE' FileMan Field Number: '1.11' This is a Primary Diagnosis Exclusion Code (file #82.13) containing a list of Diagnosis codes that, when used as the primary diagnosis code with this code will cause the CC (Complication/Comorbidity) to be zero (meaning "no CC"). VALIP.prosthetic.fm2cw.DRGCCEXCLUSIONS8213 5 PDX_EXCLUSION_CODE EXCLUSION CODE This field contains a code which identifies a group of primary Diagnosis Codes.]]> %Library.String 1 EXCLUSION_CODE into :val from VALIP_prosthetic_fm2cw.ICD_DIAGNOSIS_80 where %ID=:id) set {PDX_EXCLUSION_CODE_EXCLUSION_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 PDX_EXCLUSION_CODE_EXCLUSION_CODE 1 FileMan Field Label: 'POA EXEMPT' FileMan Field Number: '1.9' The value in this field is used to determine whether Present On Admission (POA) processing applies to this code. %Library.EnumString 13 POA_EXEMPT Relationship for Sub-File/Multiple to file name AGE HIGH child VALIP.prosthetic.fm2cw.SUBAGEHIGH80012 children ICDDIAGNOSIS80 1 SUB_AGE_HIGH_80_012 Relationship for Sub-File/Multiple to file name AGE LOW child VALIP.prosthetic.fm2cw.SUBAGELOW80011 children ICDDIAGNOSIS80 1 SUB_AGE_LOW_80_011 Relationship for Sub-File/Multiple to file name COMPLICATION/COMORBIDITY child VALIP.prosthetic.fm2cw.SUBCOMPLICATIONCOMORBIDITY800103 children ICDDIAGNOSIS80 1 SUB_COMPLICATIONCOMORBIDITY_80_0103 Relationship for Sub-File/Multiple to file name DESCRIPTION child VALIP.prosthetic.fm2cw.SUBDESCRIPTION80068 children ICDDIAGNOSIS80 1 SUB_DESCRIPTION_80_068 Relationship for Sub-File/Multiple to file name DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBDIAGNOSIS80067 children ICDDIAGNOSIS80 1 SUB_DIAGNOSIS_80_067 Relationship for Sub-File/Multiple to file name DRG DIAGNOSIS IDENTIFIER CODES child VALIP.prosthetic.fm2cw.SUBDRGDIAGNOSISIDENTIFIERCODES80073 children ICDDIAGNOSIS80 1 SUB_DRG_DIAGNOSIS_IDENTIFIER_CODES_80_073 Relationship for Sub-File/Multiple to file name DRG GROUPER child VALIP.prosthetic.fm2cw.SUBDRGGROUPER80071 children ICDDIAGNOSIS80 1 SUB_DRG_GROUPER_80_071 Relationship for Sub-File/Multiple to file name ICD CODES NOT CC WITH child VALIP.prosthetic.fm2cw.SUBICDCODESNOTCCWITH8003 children ICDDIAGNOSIS80 1 SUB_ICD_CODES_NOT_CC_WITH_80_03 Relationship for Sub-File/Multiple to file name ICD CODES NOT TO USE WITH child VALIP.prosthetic.fm2cw.SUBICDCODESNOTTOUSEWITH8001 children ICDDIAGNOSIS80 1 SUB_ICD_CODES_NOT_TO_USE_WITH_80_01 Relationship for Sub-File/Multiple to file name ICD CODES REQUIRED WITH child VALIP.prosthetic.fm2cw.SUBICDCODESREQUIREDWITH8002 children ICDDIAGNOSIS80 1 SUB_ICD_CODES_REQUIRED_WITH_80_02 Relationship for Sub-File/Multiple to file name MAJOR DIAGNOSTIC CATEGORY child VALIP.prosthetic.fm2cw.SUBMAJORDIAGNOSTICCATEGORY80072 children ICDDIAGNOSIS80 1 SUB_MAJOR_DIAGNOSTIC_CATEGORY_80_072 Relationship for Sub-File/Multiple to file name SEX child VALIP.prosthetic.fm2cw.SUBSEX8004 children ICDDIAGNOSIS80 1 SUB_SEX_80_04 Relationship for Sub-File/Multiple to file name STATUS child VALIP.prosthetic.fm2cw.SUBSTATUS80066 children ICDDIAGNOSIS80 1 SUB_STATUS_80_066 FileMan Field Label: 'UNACCEPTABLE AS PRINCIPAL DX' FileMan Field Number: '1.3' This field contains a flag indicating that this code is unacceptable as the principal diagnosis. %Library.EnumString 7 UNACCEPTABLE_AS_PRINCIPAL_DX SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ICD9(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CODE_NUMBER}'="" FDA(80,"+1,",.01)={"CODE_NUMBER"} set:{CODING_SYSTEM}'="" FDA(80,"+1,",1.1)={"CODING_SYSTEM"} set:{PDX_EXCLUSION_CODE}'="" FDA(80,"+1,",1.11)={"PDX_EXCLUSION_CODE"} set:{IDENTIFIER}'="" FDA(80,"+1,",1.2)={"IDENTIFIER"} set:{UNACCEPTABLE_AS_PRINCIPAL_DX}'="" FDA(80,"+1,",1.3)={"UNACCEPTABLE_AS_PRINCIPAL_DX"} set:{MDC13}'="" FDA(80,"+1,",1.4)={"MDC13"} set:{MDC24}'="" FDA(80,"+1,",1.5)={"MDC24"} set:{MDC25}'="" FDA(80,"+1,",1.6)={"MDC25"} set:{ICD_EXPANDED}'="" FDA(80,"+1,",1.7)={"ICD_EXPANDED"} set:{POA_EXEMPT}'="" FDA(80,"+1,",1.9)={"POA_EXEMPT"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(80)") set %SkipFiling=1 if $d(%FMERR(80,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(80)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CODE_NUMBER*C} FDA(80,IENS,.01)={CODE_NUMBER} set:{CODING_SYSTEM*C} FDA(80,IENS,1.1)={CODING_SYSTEM} set:{PDX_EXCLUSION_CODE*C} FDA(80,IENS,1.11)={PDX_EXCLUSION_CODE} set:{IDENTIFIER*C} FDA(80,IENS,1.2)={IDENTIFIER} set:{UNACCEPTABLE_AS_PRINCIPAL_DX*C} FDA(80,IENS,1.3)={UNACCEPTABLE_AS_PRINCIPAL_DX} set:{MDC13*C} FDA(80,IENS,1.4)={MDC13} set:{MDC24*C} FDA(80,IENS,1.5)={MDC24} set:{MDC25*C} FDA(80,IENS,1.6)={MDC25} set:{ICD_EXPANDED*C} FDA(80,IENS,1.7)={ICD_EXPANDED} set:{POA_EXEMPT*C} FDA(80,IENS,1.9)={POA_EXEMPT} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80)") set %SkipFiling=1 if $d(%FMERR(80,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(80)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.ICDDIAGNOSIS80S data ^ICD9 {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 1 "^" 1 1 "^" 1 7 "^" 1 2 "^" 1 4 "^" 1 5 "^" 1 6 "^" 1 11 "^" 1 9 "^" 1 3 Generated class for FileMan File Number: '2005' File Name: 'IMAGE' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file will contain an entry for every image, image group, waveform, audio file, or waveform generated at your site. It is distributed without data. Objects handled by the VistA Imaging System currently include single images (various resolutions), series of images, scanned documents, motion video, waveforms, and audio files. There is a record in file 2005 for each object, containing the attributes of the object. All fields are automatically stuffed by the Imaging software - there is no user input. Objects handled by the VISTA Imaging System currently include: * Single images (various resolutions) * Series of images * Scanned documents * Waveforms * Motion video * Audio files Each object has a natural language Name (.01); this usually consists of the patient's name, ssn, and object description. Depending on the object type, the object will either have: * A filename and logical location on the network (e.g., single image, graphics). * A multiple field called Object Group, containing entries, which point back to the Image file (e.g., image series or tiled abstract display). persistent _PUBLIC 0 RowId IMAGE_2005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.039528781 67178,44710.082015227 right IMAGE 2005 2.56 12/04/2024 12:25:10 1 1 IEN 1 ACQUISITION_DEVICE_2006_04]]> ACQUISITIONDEVICE VALIP.prosthetic.fm2cw.ACQUISITIONDEVICE200604 FKey_ACQUISITION_DEVICE INSTITUTION_4]]> ACQUISITIONSITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_ACQUISITION_SITE NETWORK_LOCATION_2005_2]]> BIGJUKEBOXPATH VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 FKey_BIG_JUKEBOX_PATH NETWORK_LOCATION_2005_2]]> BIGMAGNETICPATH VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 FKey_BIG_MAGNETIC_PATH IMAGE_INDEX_FOR_CLASS_2005_82]]> CLASSINDEX VALIP.prosthetic.fm2cw.IMAGEINDEXFORCLASS200582 FKey_CLASS_INDEX HOSPITAL_LOCATION_44]]> CLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_CLINIC NEW_PERSON_200]]> DELETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETED_BY MAG_DESCRIPTIVE_CATEGORIES_2005_81]]> DESCRIPTIVECATEGORY VALIP.prosthetic.fm2cw.MAGDESCRIPTIVECATEGORIES200581 FKey_DESCRIPTIVE_CATEGORY DICOM_SOP_CLASS_2006_532]]> DICOMSOPCLASS VALIP.prosthetic.fm2cw.DICOMSOPCLASS2006532 FKey_DICOM_SOP_CLASS NETWORK_LOCATION_2005_2]]> DISKVOLUMEABSTRACT VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 FKey_DISK__VOLUME_ABSTRACT NETWORK_LOCATION_2005_2]]> DISKVOLUMEMAGNETIC VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 FKey_DISK__VOLUME_MAGNETIC NETWORK_LOCATION_2005_2]]> DISKVOLUMEWORM VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 FKey_DISK__VOLUME_WORM IMAGE_2005]]> GROUPPARENT VALIP.prosthetic.fm2cw.IMAGE2005 FKey_GROUP_PARENT NEW_PERSON_200]]> IMAGESAVEBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_IMAGE_SAVE_BY IMAGE_AUDIT_2005_1]]> LINKEDIMAGE VALIP.prosthetic.fm2cw.IMAGEAUDIT20051 FKey_LINKED_IMAGE OBJECT_TYPE_2005_02]]> OBJECTTYPE VALIP.prosthetic.fm2cw.OBJECTTYPE200502 FKey_OBJECT_TYPE RADNUC_MED_PROCEDURES_71]]> PACSPROCEDURE VALIP.prosthetic.fm2cw.RADNUCMEDPROCEDURES71 FKey_PACS_PROCEDURE PARENT_DATA_FILE_2005_03]]> PARENTDATAFILE VALIP.prosthetic.fm2cw.PARENTDATAFILE200503 FKey_PARENT_DATA_FILE PATIENT_2]]> PATIENT VALIP.prosthetic.fm2cw.PATIENT2 FKey_PATIENT IMAGE_INDEX_FOR_PROCEDUREEVENT_2005_85]]> PROCEVENTINDEX VALIP.prosthetic.fm2cw.IMAGEINDEXFORPROCEDUREEVENT200585 FKey_PROCEVENT_INDEX RADNUC_MED_REPORTS_74]]> RADIOLOGYREPORT VALIP.prosthetic.fm2cw.RADNUCMEDREPORTS74 FKey_RADIOLOGY_REPORT IMAGE_INDEX_FOR_SPECIALTYSUBSPECIALTY_2005_84]]> SPECSUBSPECINDEX VALIP.prosthetic.fm2cw.IMAGEINDEXFORSPECIALTYSUBSPECIALTY200584 FKey_SPECSUBSPEC_INDEX MAG_REASON_2005_88]]> STATUSREASON VALIP.prosthetic.fm2cw.MAGREASON200588 FKey_STATUS_REASON IMAGE_INDEX_FOR_TYPES_2005_83]]> TYPEINDEX VALIP.prosthetic.fm2cw.IMAGEINDEXFORTYPES200583 FKey_TYPE_INDEX FileMan Field Label: 'ACQUISITION DEVICE' FileMan Field Number: '107' VALIP.prosthetic.fm2cw.ACQUISITIONDEVICE200604 52 ACQUISITION_DEVICE NAME This is the name of the IMPORT device that is used to interface newly captured diagnostic Images and procedures to the clinical database.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {ACQUISITION_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ACQUISITION_DEVICE_NAME 1 FileMan Field Label: 'ACQUISITION SITE' FileMan Field Number: '.05' Name of Site where Image was Created The 'origin' location is the location where an image is created. For instance, a site like 'St. Louis' may process images for several other locations, such as Topeka, Wichita and Leavenworth. Any reference to a site identifier will return the name of the primary location. For the purpose of finding the 'origin' of images, the more specific sub-site is needed. This field contains the name of this 'sub-site'. VALIP.prosthetic.fm2cw.INSTITUTION4 5 ACQUISITION_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {ACQUISITION_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ACQUISITION_SITE_NAME 1 FileMan Field Label: 'BIG FILE EXTENSION' FileMan Field Number: '104' This is the Image File Extension (e.g. DCM, BIG). %Library.String 51 BIG_FILE_EXTENSION FileMan Field Label: 'BIG JUKEBOX PATH' FileMan Field Number: '103' Full file path on jukebox for images of .BIG file extension. This field will indicate whether this file is located on the Jukebox. VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 50 BIG_JUKEBOX_PATH NETWORK LOCATION This is the alias name of an Imaging share.]]> %Library.String 1 NETWORK_LOCATION into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {BIG_JUKEBOX_PATH_NETWORK_LOCATION}=$select(SQLCODE=0:val,1:"")]]> 1 BIG_JUKEBOX_PATH_NETWORK_LOCATION 1 FileMan Field Label: 'BIG MAGNETIC PATH' FileMan Field Number: '102' Full file path description for Image file of .BIG file types. This field will indicate on which magnetic server this file resides. VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 49 BIG_MAGNETIC_PATH NETWORK LOCATION This is the alias name of an Imaging share.]]> %Library.String 1 NETWORK_LOCATION into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {BIG_MAGNETIC_PATH_NETWORK_LOCATION}=$select(SQLCODE=0:val,1:"")]]> 1 BIG_MAGNETIC_PATH_NETWORK_LOCATION 1 FileMan Field Label: 'CAPTURE APPLICATION' FileMan Field Number: '8.1' Code stored in this field indicates the application that captured this image and created the image entry. This field cannot be edited; it is auto-populated by the "ACA" action index. %Library.EnumString 15 CAPTURE_APPLICATION FileMan Field Label: 'CLASS INDEX' FileMan Field Number: '41' The Classification of the Image. CLASS is an index field used for sorting and searching. VALIP.prosthetic.fm2cw.IMAGEINDEXFORCLASS200582 32 CLASS_INDEX NAME Enter the name of class for the image. For example ADMIN for administrative images. This field is required for all images and is requested during image capture.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {CLASS_INDEX_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLASS_INDEX_NAME 1 FileMan Field Label: 'CLINIC' FileMan Field Number: '101' Points to the Hospital location file and will be used mainly for document images. If an image is associated with a patient encounter (visit), this is the clinic they had (will have) the appointment. The appointment date/time is in field #15, PROCEDURE/EXAM DATE/TIME. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 48 CLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {CLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLINIC_NAME 1 FileMan Field Label: 'CONTROLLED BY' FileMan Field Number: '112.2' This field references the user who made the most recent change of the image controlled status (see the CONTROLLED IMAGE field (112)). %Library.String 1 58 0:$P($$LASTAUDT^MAGUTL04(2005,D0_",",112),"^",3),1:"") set {CONTROLLED_BY}=X]]> 1 CONTROLLED_BY FileMan Field Label: 'CONTROLLED DATE' FileMan Field Number: '112.1' This field indicates date/time of the most recent change of the image controlled status (see the CONTROLLED IMAGE field (112)). %Library.FilemanDate 1 57 0:$P($$LASTAUDT^MAGUTL04(2005,D0_",",112),"^",2),1:"") set {CONTROLLED_DATE}=X]]> 1 CONTROLLED_DATE FileMan Field Label: 'CONTROLLED IMAGE' FileMan Field Number: '112' In the Clinical Display application, the abstract of a controlled image is not shown in the Abstracts or Group Abstracts window. A "canned" bitmap is shown in place of the image. It has a text that states that the image is controlled. Controlled images are not displayed until the user explicitly selects the image to be viewed. If the value of this field is 'NO' or the field is empty, then the image is handled "as usual": the actual abstract of the image is shown in the Abstracts and Group Abstracts windows. %Library.EnumString 56 CONTROLLED_IMAGE FileMan Field Label: 'CREATE METHOD' FileMan Field Number: '109' This field holds the command that either has created the image(s) or will dynamically access the Image when called from the Display GUI an example is a DLL provided by a COTS product. When the DLL is called, it generates the image. %Library.String 54 CREATE_METHOD FileMan Field Label: 'DATE/TIME IMAGE SAVED' FileMan Field Number: '7' This field is the date and time the image was captured. It is automatically stuffed into the file as "NOW". It is not the same as the date and time of the procedure or exam. This field is set automatically by the Imaging software. %Library.FilemanTimeStamp 13 DATETIME_IMAGE_SAVED FileMan Field Label: 'DELETED BY' FileMan Field Number: '30' This is the person who deleted the image. It is a pointer to the new person file. The system uses the DUZ variable to set the field. VALIP.prosthetic.fm2cw.NEWPERSON200 28 DELETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {DELETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETED_BY_NAME 1 FileMan Field Label: 'DELETED DATE' FileMan Field Number: '30.1' This is the date the Image was deleted from the Image File. %Library.FilemanTimeStamp 29 DELETED_DATE FileMan Field Label: 'DELETED REASON' FileMan Field Number: '30.2' This is the Reason that the Image was deleted. %Library.String 30 DELETED_REASON FileMan Field Label: 'DESCRIPTIVE CATEGORY' FileMan Field Number: '100' This is mainly for Document Imaging, it further describes the type of document image. VALIP.prosthetic.fm2cw.MAGDESCRIPTIVECATEGORIES200581 47 DESCRIPTIVE_CATEGORY NAME Descriptive name of the category or document type. The list of categories is presented to the VistA Imaging Capture user when they select 'User defined Specialty/Category' or 'ADMIN'. can be entered.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {DESCRIPTIVE_CATEGORY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DESCRIPTIVE_CATEGORY_NAME 1 FileMan Field Label: 'DICOM SOP CLASS' FileMan Field Number: '251' The value of this field is a pointer. The pointed to record identifies the DICOM SOP Class that was used to acquire this image. VALIP.prosthetic.fm2cw.DICOMSOPCLASS2006532 67 DICOM_SOP_CLASS SOP CLASS UID The value of this field is a DICOM UID. A unique identifier (UID) in DICOM is a string of up to 64 characters long that consists of only digits and periods. The UIDs that are stored in this file identify the SOP Classes that are being used for Image Acquisition.]]> %Library.String 1 SOP_CLASS_UID into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {DICOM_SOP_CLASS_SOP_CLASS_UID}=$select(SQLCODE=0:val,1:"")]]> 1 DICOM_SOP_CLASS_SOP_CLASS_UID 1 VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 8 DISK__VOLUME_ABSTRACT NETWORK LOCATION This is the alias name of an Imaging share.]]> %Library.String 1 NETWORK_LOCATION into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {DISK__VOLUME_ABSTRACT_NETWORK_LOCATION}=$select(SQLCODE=0:val,1:"")]]> 1 DISK__VOLUME_ABSTRACT_NETWORK_LOCATION 1 VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 7 DISK__VOLUME_MAGNETIC NETWORK LOCATION This is the alias name of an Imaging share.]]> %Library.String 1 NETWORK_LOCATION into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {DISK__VOLUME_MAGNETIC_NETWORK_LOCATION}=$select(SQLCODE=0:val,1:"")]]> 1 DISK__VOLUME_MAGNETIC_NETWORK_LOCATION 1 VALIP.prosthetic.fm2cw.NETWORKLOCATION20052 9 DISK__VOLUME_WORM NETWORK LOCATION This is the alias name of an Imaging share.]]> %Library.String 1 NETWORK_LOCATION into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {DISK__VOLUME_WORM_NETWORK_LOCATION}=$select(SQLCODE=0:val,1:"")]]> 1 DISK__VOLUME_WORM_NETWORK_LOCATION 1 FileMan Field Label: 'DOCUMENT DATE' FileMan Field Number: '110' Document Images can have a separate date, unlike clinical images that are attached to a procedure, and only procedure date is needed. %Library.FilemanTimeStamp 55 DOCUMENT_DATE FileMan Field Label: 'DUPE' FileMan Field Number: '13.5' This field is to allow screening of images that have duplicate instances in the archive file and the image file. The intent is to prevent purging of these images on the raid until a utility to store this file on the Jukebox is implemented. %Library.EnumString 21 DUPE FileMan Field Label: 'EXPORT REQUEST STATUS' FileMan Field Number: '19' This field is used by Multimedia MailMan when an image needs to be sent to another site. The Imaging software sets the field automatically, after checking its status. After the request is carried out, it will be automatically reset. %Library.EnumString 27 EXPORT_REQUEST_STATUS FileMan Field Label: 'FILEREF' FileMan Field Number: '1' This field contains the unique image filename of the image stored on the Vista Imaging file servers. It is either 12 or 18 characters long. It contains three elements: the facility's Imaging Namespace, from the Current Namespace field (#.02) of the IMAGING SITE PARAMETERS file (#2006.1), the Image IEN, and padded with zeros if needed, and the extension that indicates the format of the image. Supported formats are stored in the IMAGE FILE TYPES (#2005.021) file. This field is automatically set by the Imaging software. %Library.String 6 FILEREF FileMan Field Label: 'GROUP PARENT' FileMan Field Number: '14' This field is used for images that are part of a group, for example a CT exam might contain 30 images. This field contains a pointer back to the Image file (2005), to the object whose type is "GROUP" that points to this object as a member of its group. A pointer to this object will be found in the Object Group multiple of the parent GROUP object. VALIP.prosthetic.fm2cw.IMAGE2005 22 GROUP_PARENT OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {GROUP_PARENT_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 GROUP_PARENT_OBJECT_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IMAGE SAVE BY' FileMan Field Number: '8' This field is a pointer to the New Person file and thus equal to the DUZ of the person who logged in to capture the image. It identifies who captured or saved the image and is automatically stuffed into the Image file. An image received via a Multimedia Mail message will not have data in this field. VALIP.prosthetic.fm2cw.NEWPERSON200 14 IMAGE_SAVE_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {IMAGE_SAVE_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_SAVE_BY_NAME 1 FileMan Field Label: 'IQ' FileMan Field Number: '13' This indicates that this image entry has questionable integrity. %Library.EnumString 20 IQ FileMan Field Label: 'LAST ACCESS DATE' FileMan Field Number: '12' This is the date and time the image was last viewed or accessed. Each time an abstract or image is requested for viewing, this field is automatically set with the current date and time. In conjunction with the appropriate site parameter, this field is used for automatic file migration. That is, when an image has not been accessed within the predefined time period, it will be deleted from the magnetic server and will only be accessible from the optical disk jukebox. %Library.FilemanTimeStamp 19 LAST_ACCESS_DATE FileMan Field Label: 'LINKED DATE' FileMan Field Number: '115.3' This is the date that the Document/Image was associated with the LINKED IMAGE. %Library.FilemanTimeStamp 66 LINKED_DATE FileMan Field Label: 'LINKED IMAGE' FileMan Field Number: '115.1' This is a pointer to the rescinded image. For example, when an image is rescinded a new image entry is created and the original is deleted. A link is established between the new image and the rescinded image. The value of the field is the rescinded image. VALIP.prosthetic.fm2cw.IMAGEAUDIT20051 64 LINKED_IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {LINKED_IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LINKED_IMAGE_OBJECT_NAME 1 FileMan Field Label: 'LINKED TYPE' FileMan Field Number: '115.2' This is the type of the image link. For example, when image is rescinded a new image entry is created and the original is deleted. A link is established between the new image and the rescinded image. The value of the LINKED TYPE will be "RESCINDED". %Library.EnumString 65 LINKED_TYPE FileMan Field Label: 'LONG DESCRIPTION' FileMan Field Number: '11' This word processing field allows the user to describe the image at length. The user may only choose to append this long description on selected images - those which are "classic" or "unusual" cases. It can be used to summarize a group of images which have been put together for a conference or consult. It will be used in the future to a greater extent, as options for image capture (independent of VistA packages) are provided. %Library.String 18 LONG_DESCRIPTION FileMan Field Label: 'MICROSCOPIC OBJECTIVE' FileMan Field Number: '54' Free text description of the Microscopic Objective selected by the pathologist. It identifies the power of the microscope objective used when capturing the image of the slide. %Library.String 41 MICROSCOPIC_OBJECTIVE FileMan Field Label: 'NEW SOP INSTANCE UID' FileMan Field Number: '252' The value of this field is a string that represents a DICOM UID. The DICOM standard defines the format of a UID: a string containing only digits and periods that does not exceed a length of 64 characters. This field is populated when a corrected version of an image is exported, and the corrections are of such a nature that the image cannot be exported with its original SOP Instance UID. Note that this UID value is assigned by VA software, and thus will always start with the characters "1.2.840.113754.". %Library.String 68 NEW_SOP_INSTANCE_UID FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' .001 NUMBER Field is the Internal Entry Number of the Image File Entry. i.e. "DA" of the Image File entry. Imaging routines and RPC's use the Image DA for lookups. The Image Files associated with this entry are stored on a Networked Image A name for the Image Files is generated from the Image DA, the Extension is appropriate to the Type of Image. i.e. I0014432.JPG %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'NUMBER OF PAGES' FileMan Field Number: '114' This field stores number of pages in a multi-page document (e.g. multi-page TIFF image). %Library.Numeric 63 NUMBER_OF_PAGES FileMan Field Label: 'OBJECT NAME' FileMan Field Number: '.01' Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software. %Library.String 1 4 OBJECT_NAME VALIP.prosthetic.fm2cw.OBJECTTYPE200502 10 OBJECT_TYPE NAME Each kind of data supported by the Imaging System has an entry in the Object Type file. The Object Type file manages the kinds of actions which that type of object can have and the routines that are executed for each action.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {OBJECT_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OBJECT_TYPE_NAME 1 FileMan Field Label: 'ORIGIN INDEX' FileMan Field Number: '45' This field indicates whether this image originated inside or outside of VA. %Library.EnumString 36 ORIGIN_INDEX FileMan Field Label: 'PACKAGE INDEX' FileMan Field Number: '40' This is an abbreviation of the package that the Image is attached to. %Library.EnumString 31 PACKAGE_INDEX FileMan Field Label: 'PACS PROCEDURE' FileMan Field Number: '62' This field is used by the VistA-PACS interface and is a backwards pointer to the Radiology Reports file with which this radiological image is associated. VALIP.prosthetic.fm2cw.RADNUCMEDPROCEDURES71 44 PACS_PROCEDURE NAME NAME OF THE RAD/NUC MED PROCEDURE This field contains the name (3-60 characters) of this rad/nuc med procedure. The first thirty characters of the procedure name must be unique. The semicolon (';') and the caret ('^') are not allowed as characters.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {PACS_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PACS_PROCEDURE_NAME 1 FileMan Field Label: 'PACS UID' FileMan Field Number: '60' This field is used by the VISTA-PACS interface and is the unique (up to) 64 character image identifier of the PACS image. %Library.String 42 PACS_UID FileMan Field Label: 'PARENT ASSOCIATION DATE' FileMan Field Number: '64' This is the Date that the Document/Image was associated with the Parent Data File. Field # 16 %Library.FilemanTimeStamp 46 PARENT_ASSOCIATION_DATE FileMan Field Label: 'PARENT DATA FILE#' FileMan Field Number: '16' The values of fields 16, 17, 18 and 63 are numbers. These numbers are internal entry numbers. Which field corresponds to which internal entry number is explained below. Together, the values of these fields establish a link back to the entry in the "parent" file, that holds the information that describes why the image was collected. The link to the "parent" information is brought about by the combination of the values of fields 16, 17, and, 18, and optionally also field 63. The value of field 16 is a number that indicates the internal entry number of the "parent file" in the VA-FileMan data dictionary. Common parent files are: File Name ==== ==== 3.9: MAIL MESSAGE 63: AUTOPSY (MICROSCOPIC) 63.02: ELECTRON MICROSCOPY 63.08: SURGICAL PATHOLOGY 63.09: CYTOLOGY 63.2: AUTOPSY (GROSS) 74: RADIOLOGY 130: SURGERY 691: ECHOCARDIOGRAM 691.1: CARDIAC CATHETERIZATION 691.5: ELECTROCARDIOGRAPHY 694: HEMATOLOGY 699: ENDOSCOPY 699.5: GENERIC MEDICINE 8925: TIU The records in each of these "parent" files contain a multiple that itemizes the list of images that belong to that record. The field numbers and fixed indexes for those multiples all have the number 2005. The entries within these multiples all have a field that is a pointer back to the image file. The entries in these multiples identify the various images that belong with the record in question. The various parent files each have their own structure, for instance Type Number Form of Root =========== ============ 1 ^RARPT(D0,2005,D1,0)=image... 2 ^MCAR(699,D0,2005,D1,0)=image... 3 ^LR(D0,"SP",D1,2005,D2,0)=image... Depending on the nature of the file structure of the parent file, the imaging software will need either just the value of D0 (type 1 and type 2) to find the correct entry, or the values of D0 as well as D1 (type 3). The values of the fields in the image file correspond to the values of the indices in the parent file as follows: Type Number Field Number and FileMan Index =========== ============================== 1 field 17 = D0, field 18 = D1 2 field 17 = D0, field 18 = D1 3 field 17 = D0, field 63 = D1, field 18 = D2 In the case of type 3, the value of D0 is equal to the value of LRDFN. VALIP.prosthetic.fm2cw.PARENTDATAFILE200503 24 PARENT_DATA_FILE FILE/SUBFILE NAME This is the actual name of the file or sub-file of a file. Some examples would be Message, Surgery, Surgical Pathology.]]> %Library.String 1 FILESUBFILE_NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {PARENT_DATA_FILE_FILESUBFILE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PARENT_DATA_FILE_FILESUBFILE_NAME 1 FileMan Field Label: 'PARENT DATA FILE IMAGE POINTER' FileMan Field Number: '18' The values of fields 16, 17, 18 and 63 are numbers. These numbers are internal entry numbers. Which field corresponds to which internal entry number is explained below. Together, the values of these fields establish a link back to the entry in the "parent" file, that holds the information that describes why the image was collected. The link to the "parent" information is brought about by the combination of the values of fields 16, 17, and, 18, and optionally also field 63. The value of field 16 is a number that indicates the internal entry number of the "parent file" in the VA-FileMan data dictionary. Common parent files are: File Name ==== ==== 3.9: MAIL MESSAGE 63: AUTOPSY (MICROSCOPIC) 63.02: ELECTRON MICROSCOPY 63.08: SURGICAL PATHOLOGY 63.09: CYTOLOGY 63.2: AUTOPSY (GROSS) 74: RADIOLOGY 130: SURGERY 691: ECHOCARDIOGRAM 691.1: CARDIAC CATHETERIZATION 691.5: ELECTROCARDIOGRAPHY 694: HEMATOLOGY 699: ENDOSCOPY 699.5: GENERIC MEDICINE 8925: TIU The records in each of these "parent" files contain a multiple that itemizes the list of images that belong to that record. The field numbers and fixed indexes for those multiples all have the number 2005. The entries within these multiples all have a field that is a pointer back to the image file. The entries in these multiples identify the various images that belong with the record in question. The various parent files each have their own structure, for instance Type Number Form of Root =========== ============ 1 ^RARPT(D0,2005,D1,0)=image... 2 ^MCAR(699,D0,2005,D1,0)=image... 3 ^LR(D0,"SP",D1,2005,D2,0)=image... Depending on the nature of the file structure of the parent file, the imaging software will need either just the value of D0 (type 1 and type 2) to find the correct entry, or the values of D0 as well as D1 (type 3). The values of the fields in the image file correspond to the values of the indices in the parent file as follows: Type Number Field Number and FileMan Index =========== ============================== 1 field 17 = D0, field 18 = D1 2 field 17 = D0, field 18 = D1 3 field 17 = D0, field 63 = D1, field 18 = D2 In the case of type 3, the value of D0 is equal to the value of LRDFN. %Library.Numeric 26 PARENT_DATA_FILE_IMAGE_POINTER FileMan Field Label: 'PARENT GLOBAL ROOT D0' FileMan Field Number: '17' The values of fields 16, 17, 18 and 63 are numbers. These numbers are internal entry numbers. Which field corresponds to which internal entry number is explained below. Together, the values of these fields establish a link back to the entry in the "parent" file, that holds the information that describes why the image was collected. The link to the "parent" information is brought about by the combination of the values of fields 16, 17, and, 18, and optionally also field 63. The value of field 16 is a number that indicates the internal entry number of the "parent file" in the VA-FileMan data dictionary. Common parent files are: File Name ==== ==== 3.9: MAIL MESSAGE 63: AUTOPSY (MICROSCOPIC) 63.02: ELECTRON MICROSCOPY 63.08: SURGICAL PATHOLOGY 63.09: CYTOLOGY 63.2: AUTOPSY (GROSS) 74: RADIOLOGY 130: SURGERY 691: ECHOCARDIOGRAM 691.1: CARDIAC CATHETERIZATION 691.5: ELECTROCARDIOGRAPHY 694: HEMATOLOGY 699: ENDOSCOPY 699.5: GENERIC MEDICINE 8925: TIU The records in each of these "parent" files contain a multiple that itemizes the list of images that belong to that record. The field numbers and fixed indexes for those multiples all have the number 2005. The entries within these multiples all have a field that is a pointer back to the image file. The entries in these multiples identify the various images that belong with the record in question. The various parent files each have their own structure, for instance Type Number Form of Root =========== ============ 1 ^RARPT(D0,2005,D1,0)=image... 2 ^MCAR(699,D0,2005,D1,0)=image... 3 ^LR(D0,"SP",D1,2005,D2,0)=image... Depending on the nature of the file structure of the parent file, the imaging software will need either just the value of D0 (type 1 and type 2) to find the correct entry, or the values of D0 as well as D1 (type 3). The values of the fields in the image file correspond to the values of the indices in the parent file as follows: Type Number Field Number and FileMan Index =========== ============================== 1 field 17 = D0, field 18 = D1 2 field 17 = D0, field 18 = D1 3 field 17 = D0, field 63 = D1, field 18 = D2 In the case of type 3, the value of D0 is equal to the value of LRDFN. %Library.Numeric 25 PARENT_GLOBAL_ROOT_D0 FileMan Field Label: 'PARENT GLOBAL ROOT D1' FileMan Field Number: '63' The values of fields 16, 17, 18 and 63 are numbers. These numbers are internal entry numbers. Which field corresponds to which internal entry number is explained below. Together, the values of these fields establish a link back to the entry in the "parent" file, that holds the information that describes why the image was collected. The link to the "parent" information is brought about by the combination of the values of fields 16, 17, and, 18, and optionally also field 63. The value of field 16 is a number that indicates the internal entry number of the "parent file" in the VA-FileMan data dictionary. Common parent files are: File Name ==== ==== 3.9: MAIL MESSAGE 63: AUTOPSY (MICROSCOPIC) 63.02: ELECTRON MICROSCOPY 63.08: SURGICAL PATHOLOGY 63.09: CYTOLOGY 63.2: AUTOPSY (GROSS) 74: RADIOLOGY 130: SURGERY 691: ECHOCARDIOGRAM 691.1: CARDIAC CATHETERIZATION 691.5: ELECTROCARDIOGRAPHY 694: HEMATOLOGY 699: ENDOSCOPY 699.5: GENERIC MEDICINE 8925: TIU The records in each of these "parent" files contain a multiple that itemizes the list of images that belong to that record. The field numbers and fixed indexes for those multiples all have the number 2005. The entries within these multiples all have a field that is a pointer back to the image file. The entries in these multiples identify the various images that belong with the record in question. The various parent files each have their own structure, for instance Type Number Form of Root =========== ============ 1 ^RARPT(D0,2005,D1,0)=image... 2 ^MCAR(699,D0,2005,D1,0)=image... 3 ^LR(D0,"SP",D1,2005,D2,0)=image... Depending on the nature of the file structure of the parent file, the imaging software will need either just the value of D0 (type 1 and type 2) to find the correct entry, or the values of D0 as well as D1 (type 3). The values of the fields in the image file correspond to the values of the indices in the parent file as follows: Type Number Field Number and FileMan Index =========== ============================== 1 field 17 = D0, field 18 = D1 2 field 17 = D0, field 18 = D1 3 field 17 = D0, field 63 = D1, field 18 = D2 In the case of type 3, the value of D0 is equal to the value of LRDFN. %Library.Numeric 45 PARENT_GLOBAL_ROOT_D1 FileMan Field Label: 'PATH ACCESSION NUMBER' FileMan Field Number: '50' This is the Anatomic Pathology accession number - the identifying number for the slide. %Library.String 37 PATH_ACCESSION_NUMBER FileMan Field Label: 'PATIENT' FileMan Field Number: '5' This field is a pointer to the VistA Patient file (#2), and contains the DFN of the patient that the image or object belongs to. The image or object is part of this patient's medical record. This pointer ties the image to the patient and is automatically set by the Imaging software. VALIP.prosthetic.fm2cw.PATIENT2 11 PATIENT NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME 1 FileMan Field Label: 'PROCEDURE' FileMan Field Number: '6' This field is an abbreviation for the procedure (e.g., COL for colonoscopy, SUR for surgery, SP for surgical pathology, X-ray for radiology). This field is automatically set by the Imaging software. %Library.String 12 PROCEDURE6 FileMan Field Label: 'PROCEDURE/EXAM DATE/TIME' FileMan Field Number: '15' This is the date/time of the procedure or the exam. It is obtained from the Parent Data file (i.e. the date/time of the X-ray exam, the Medical Procedure, the time the Laboratory specimen was obtained from the patient, or the date/time of the Surgical procedure). This often is not the same as the date/time the image was captured. In a long surgical procedure the image capture time may be several hours later than the start of the operation. When a lab specimen is collected from a patient, it may be several days before images are captured from the slide. If images are initially stored on an intermediate media such as x-ray film or video tape, the capture time can be long after the procedure time. %Library.FilemanTimeStamp 23 PROCEDUREEXAM_DATETIME FileMan Field Label: 'PROC/EVENT INDEX' FileMan Field Number: '43' The PROCEDURE/EVENT of Image. PROCEDURE/EVENT is an index field used for sorting and searching. VALIP.prosthetic.fm2cw.IMAGEINDEXFORPROCEDUREEVENT200585 34 PROCEVENT_INDEX NAME This field contains the procedure/event for the image being captured. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {PROCEVENT_INDEX_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEVENT_INDEX_NAME 1 FileMan Field Label: 'RADIOLOGY REPORT' FileMan Field Number: '61' Pointer to Radiology Report file used by the PACS interface to tie the image to the correct radiology report. VALIP.prosthetic.fm2cw.RADNUCMEDREPORTS74 43 RADIOLOGY_REPORT DAY-CASE# DATE AND CASE NUMBER OF EXAM This field contains the date and case number of the imaging exam associated with this report. The system fills in this field with information obtained from the 'RAD/NUC MED PATIENT' file (#70) according to the case number selected by the transcriptionist. If the Site Specific Accession Number is in use then the 3-digit Site ID is appended to the beginning of the field. ]]> %Library.String 1 DAYCASE into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {RADIOLOGY_REPORT_DAYCASE}=$select(SQLCODE=0:val,1:"")]]> 1 RADIOLOGY_REPORT_DAYCASE 1 FileMan Field Label: 'SERIES UID' FileMan Field Number: '253' The value of this field is a DICOM unique identifier for the series to which an image belongs. A DICOM UID looks like a series of digits and periods, is not longer than 64 characters, starts and ends with a digit and never has two consecutive periods. %Library.String 69 SERIES_UID FileMan Field Label: 'SHORT DESCRIPTION' FileMan Field Number: '10' This field allows the user to store a brief, one line description with the image or object record. For images associated with patients, this data is appended to the patient's name and SSN to create the .01 field of the Image file. It is also permanently written on the upper left corner of the image to provide visible identification. %Library.String 17 SHORT_DESCRIPTION FileMan Field Label: 'SPECIMEN#' FileMan Field Number: '52' This is the specimen number of the slide given in the Lab Data file. %Library.Numeric 39 SPECIMEN FileMan Field Label: 'SPECIMEN DESCRIPTION' FileMan Field Number: '51' This is the description given to the specimen in the Lab Data file - the information is carried over and stuffed into the Image file. %Library.String 38 SPECIMEN_DESCRIPTION FileMan Field Label: 'SPEC/SUBSPEC INDEX' FileMan Field Number: '44' The SPECIALTY/SUBSPECIALTY of Image. SPECIALTY/SUBSPECIALTY is an index field used for sorting and searching. VALIP.prosthetic.fm2cw.IMAGEINDEXFORSPECIALTYSUBSPECIALTY200584 35 SPECSUBSPEC_INDEX NAME This field contains the name of the Specialty or SubSpecialty that an images is captured to and will be used in sorting during image display. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {SPECSUBSPEC_INDEX_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SPECSUBSPEC_INDEX_NAME 1 FileMan Field Label: 'STAIN' FileMan Field Number: '53' Free text description of the Histological Stain. It is the stain used in the preparation of the specimen and is chosen by the pathologist from the Histological Stain file list. %Library.String 40 STAIN FileMan Field Label: 'STATUS' FileMan Field Number: '113' Viewable By default, all images are viewable, and images with no status are considered viewable. QA Reviewed A user has viewed the image and verified that the patient identifier and values of index fields are correct for this image. In Progress When capturing image groups, this status will indicate that the images are being added to the group of images. When the process is complete, the status will change to Viewable. Needs Review Indicates that value(s) of the index fields or patient identifier have been found to be incorrect. VistA Imaging Display application will block images with this status from being viewed. The Image Edit utility can be used to modify the incorrect values of the index fields. Deleted Marks the image as deleted. Image Never Existed There was an Error while copying the Image to the Image Share. The Image entry is deleted and the status is set as Image Never Existed. %Library.EnumString 59 STATUS FileMan Field Label: 'STATUS BY' FileMan Field Number: '113.2' This field references the user who made the most recent change of the image status (see the STATUS field (113)). %Library.String 1 61 0:$P($$LASTAUDT^MAGUTL04(2005,D0_",",113),"^",3),1:"") set {STATUS_BY}=X]]> 1 STATUS_BY FileMan Field Label: 'STATUS DATE' FileMan Field Number: '113.1' This field indicates date/time of the most recent change of the image status (see the STATUS field (113)). %Library.FilemanDate 1 60 0:$P($$LASTAUDT^MAGUTL04(2005,D0_",",113),"^",2),1:"") set {STATUS_DATE}=X]]> 1 STATUS_DATE FileMan Field Label: 'STATUS REASON' FileMan Field Number: '113.3' This field indicates the reason for the latest image status change (see the STATUS field (113)). VALIP.prosthetic.fm2cw.MAGREASON200588 62 STATUS_REASON REASON This field stores a valid reason/justification for action(s).]]> %Library.String 1 REASON into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {STATUS_REASON_REASON}=$select(SQLCODE=0:val,1:"")]]> 1 STATUS_REASON_REASON 1 Relationship for Sub-File/Multiple to file name AUDIT child VALIP.prosthetic.fm2cw.SUBAUDIT2005099 children IMAGE2005 1 SUB_AUDIT_2005_099 Relationship for Sub-File/Multiple to file name EXPORT LOCATION child VALIP.prosthetic.fm2cw.SUBEXPORTLOCATION200501 children IMAGE2005 1 SUB_EXPORT_LOCATION_2005_01 Relationship for Sub-File/Multiple to file name OBJECT GROUP child VALIP.prosthetic.fm2cw.SUBOBJECTGROUP200504 children IMAGE2005 1 SUB_OBJECT_GROUP_2005_04 Relationship for Sub-File/Multiple to file name PRESENTATION STATE child VALIP.prosthetic.fm2cw.SUBPRESENTATIONSTATE200505 children IMAGE2005 1 SUB_PRESENTATION_STATE_2005_05 Relationship for Sub-File/Multiple to file name ROUTING LOG child VALIP.prosthetic.fm2cw.SUBROUTINGLOG20050111 children IMAGE2005 1 SUB_ROUTING_LOG_2005_0111 Relationship for Sub-File/Multiple to file name ROUTING TIMESTAMP child VALIP.prosthetic.fm2cw.SUBROUTINGTIMESTAMP20050106 children IMAGE2005 1 SUB_ROUTING_TIMESTAMP_2005_0106 FileMan Field Label: 'SUMMARY OBJECT' FileMan Field Number: '9' This field is used to indicate whether the image or object is to be used as a summary for a group of objects. For example, in a GROUP of images, normally the abstract of the first object in the group multiple is used for the integrated view display. This field allows the user to select a summary image to be used for this purpose. This field is currently not in use. %Library.EnumString 16 SUMMARY_OBJECT FileMan Field Label: 'TRACKING ID' FileMan Field Number: '108' This field tracks the packages that are using the Import API. It is an ";" (semicolon) delimited free text field. First piece is the Package ID that performed the Import Second piece is the Internal package identifier %Library.String 53 TRACKING_ID FileMan Field Label: 'TYPE INDEX' FileMan Field Number: '42' The TYPE of Image. TYPE is an index field used for sorting and searching. VALIP.prosthetic.fm2cw.IMAGEINDEXFORTYPES200583 33 TYPE_INDEX NAME This field describes the image type. It is required for all images: Document Images and Clinical Images.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.IMAGE_2005 where %ID=:id) set {TYPE_INDEX_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_INDEX_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 70 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{OBJECT_NAME}'="" FDA(2005,"+1,",.01)={"OBJECT_NAME"} set:{ACQUISITION_SITE}'="" FDA(2005,"+1,",.05)={"ACQUISITION_SITE"} set:{FILEREF}'="" FDA(2005,"+1,",1)={"FILEREF"} set:{DISK__VOLUME_MAGNETIC}'="" FDA(2005,"+1,",2)={"DISK__VOLUME_MAGNETIC"} set:{DISK__VOLUME_ABSTRACT}'="" FDA(2005,"+1,",2.1)={"DISK__VOLUME_ABSTRACT"} set:{DISK__VOLUME_WORM}'="" FDA(2005,"+1,",2.2)={"DISK__VOLUME_WORM"} set:{OBJECT_TYPE}'="" FDA(2005,"+1,",3)={"OBJECT_TYPE"} set:{PATIENT}'="" FDA(2005,"+1,",5)={"PATIENT"} set:{PROCEDURE6}'="" FDA(2005,"+1,",6)={"PROCEDURE6"} set:{DATETIME_IMAGE_SAVED}'="" FDA(2005,"+1,",7)={"DATETIME_IMAGE_SAVED"} set:{IMAGE_SAVE_BY}'="" FDA(2005,"+1,",8)={"IMAGE_SAVE_BY"} set:{CAPTURE_APPLICATION}'="" FDA(2005,"+1,",8.1)={"CAPTURE_APPLICATION"} set:{SUMMARY_OBJECT}'="" FDA(2005,"+1,",9)={"SUMMARY_OBJECT"} set:{SHORT_DESCRIPTION}'="" FDA(2005,"+1,",10)={"SHORT_DESCRIPTION"} set:{LAST_ACCESS_DATE}'="" FDA(2005,"+1,",12)={"LAST_ACCESS_DATE"} set:{IQ}'="" FDA(2005,"+1,",13)={"IQ"} set:{DUPE}'="" FDA(2005,"+1,",13.5)={"DUPE"} set:{GROUP_PARENT}'="" FDA(2005,"+1,",14)={"GROUP_PARENT"} set:{PROCEDUREEXAM_DATETIME}'="" FDA(2005,"+1,",15)={"PROCEDUREEXAM_DATETIME"} set:{PARENT_DATA_FILE}'="" FDA(2005,"+1,",16)={"PARENT_DATA_FILE"} set:{PARENT_GLOBAL_ROOT_D0}'="" FDA(2005,"+1,",17)={"PARENT_GLOBAL_ROOT_D0"} set:{PARENT_DATA_FILE_IMAGE_POINTER}'="" FDA(2005,"+1,",18)={"PARENT_DATA_FILE_IMAGE_POINTER"} set:{EXPORT_REQUEST_STATUS}'="" FDA(2005,"+1,",19)={"EXPORT_REQUEST_STATUS"} set:{DELETED_BY}'="" FDA(2005,"+1,",30)={"DELETED_BY"} set:{DELETED_DATE}'="" FDA(2005,"+1,",30.1)={"DELETED_DATE"} set:{DELETED_REASON}'="" FDA(2005,"+1,",30.2)={"DELETED_REASON"} set:{PACKAGE_INDEX}'="" FDA(2005,"+1,",40)={"PACKAGE_INDEX"} set:{CLASS_INDEX}'="" FDA(2005,"+1,",41)={"CLASS_INDEX"} set:{TYPE_INDEX}'="" FDA(2005,"+1,",42)={"TYPE_INDEX"} set:{PROCEVENT_INDEX}'="" FDA(2005,"+1,",43)={"PROCEVENT_INDEX"} set:{SPECSUBSPEC_INDEX}'="" FDA(2005,"+1,",44)={"SPECSUBSPEC_INDEX"} set:{ORIGIN_INDEX}'="" FDA(2005,"+1,",45)={"ORIGIN_INDEX"} set:{PATH_ACCESSION_NUMBER}'="" FDA(2005,"+1,",50)={"PATH_ACCESSION_NUMBER"} set:{SPECIMEN_DESCRIPTION}'="" FDA(2005,"+1,",51)={"SPECIMEN_DESCRIPTION"} set:{SPECIMEN}'="" FDA(2005,"+1,",52)={"SPECIMEN"} set:{STAIN}'="" FDA(2005,"+1,",53)={"STAIN"} set:{MICROSCOPIC_OBJECTIVE}'="" FDA(2005,"+1,",54)={"MICROSCOPIC_OBJECTIVE"} set:{PACS_UID}'="" FDA(2005,"+1,",60)={"PACS_UID"} set:{RADIOLOGY_REPORT}'="" FDA(2005,"+1,",61)={"RADIOLOGY_REPORT"} set:{PACS_PROCEDURE}'="" FDA(2005,"+1,",62)={"PACS_PROCEDURE"} set:{PARENT_GLOBAL_ROOT_D1}'="" FDA(2005,"+1,",63)={"PARENT_GLOBAL_ROOT_D1"} set:{PARENT_ASSOCIATION_DATE}'="" FDA(2005,"+1,",64)={"PARENT_ASSOCIATION_DATE"} set:{DESCRIPTIVE_CATEGORY}'="" FDA(2005,"+1,",100)={"DESCRIPTIVE_CATEGORY"} set:{CLINIC}'="" FDA(2005,"+1,",101)={"CLINIC"} set:{BIG_MAGNETIC_PATH}'="" FDA(2005,"+1,",102)={"BIG_MAGNETIC_PATH"} set:{BIG_JUKEBOX_PATH}'="" FDA(2005,"+1,",103)={"BIG_JUKEBOX_PATH"} set:{BIG_FILE_EXTENSION}'="" FDA(2005,"+1,",104)={"BIG_FILE_EXTENSION"} set:{ACQUISITION_DEVICE}'="" FDA(2005,"+1,",107)={"ACQUISITION_DEVICE"} set:{TRACKING_ID}'="" FDA(2005,"+1,",108)={"TRACKING_ID"} set:{CREATE_METHOD}'="" FDA(2005,"+1,",109)={"CREATE_METHOD"} set:{DOCUMENT_DATE}'="" FDA(2005,"+1,",110)={"DOCUMENT_DATE"} set:{CONTROLLED_IMAGE}'="" FDA(2005,"+1,",112)={"CONTROLLED_IMAGE"} set:{STATUS}'="" FDA(2005,"+1,",113)={"STATUS"} set:{STATUS_REASON}'="" FDA(2005,"+1,",113.3)={"STATUS_REASON"} set:{NUMBER_OF_PAGES}'="" FDA(2005,"+1,",114)={"NUMBER_OF_PAGES"} set:{LINKED_IMAGE}'="" FDA(2005,"+1,",115.1)={"LINKED_IMAGE"} set:{LINKED_TYPE}'="" FDA(2005,"+1,",115.2)={"LINKED_TYPE"} set:{LINKED_DATE}'="" FDA(2005,"+1,",115.3)={"LINKED_DATE"} set:{DICOM_SOP_CLASS}'="" FDA(2005,"+1,",251)={"DICOM_SOP_CLASS"} set:{NEW_SOP_INSTANCE_UID}'="" FDA(2005,"+1,",252)={"NEW_SOP_INSTANCE_UID"} set:{SERIES_UID}'="" FDA(2005,"+1,",253)={"SERIES_UID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005)") set %SkipFiling=1 if $d(%FMERR(2005,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LONG_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({LONG_DESCRIPTION},$c(13,10)) { set wp(i)=$p({LONG_DESCRIPTION},$c(13,10),i) } do WP^DIE(2005,{RowId},11,,"wp","%FMERR(2005)") if $d(%FMERR(2005,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{OBJECT_NAME*C} FDA(2005,IENS,.01)={OBJECT_NAME} set:{ACQUISITION_SITE*C} FDA(2005,IENS,.05)={ACQUISITION_SITE} set:{FILEREF*C} FDA(2005,IENS,1)={FILEREF} set:{DISK__VOLUME_MAGNETIC*C} FDA(2005,IENS,2)={DISK__VOLUME_MAGNETIC} set:{DISK__VOLUME_ABSTRACT*C} FDA(2005,IENS,2.1)={DISK__VOLUME_ABSTRACT} set:{DISK__VOLUME_WORM*C} FDA(2005,IENS,2.2)={DISK__VOLUME_WORM} set:{OBJECT_TYPE*C} FDA(2005,IENS,3)={OBJECT_TYPE} set:{PATIENT*C} FDA(2005,IENS,5)={PATIENT} set:{PROCEDURE6*C} FDA(2005,IENS,6)={PROCEDURE6} set:{DATETIME_IMAGE_SAVED*C} FDA(2005,IENS,7)={DATETIME_IMAGE_SAVED} set:{IMAGE_SAVE_BY*C} FDA(2005,IENS,8)={IMAGE_SAVE_BY} set:{CAPTURE_APPLICATION*C} FDA(2005,IENS,8.1)={CAPTURE_APPLICATION} set:{SUMMARY_OBJECT*C} FDA(2005,IENS,9)={SUMMARY_OBJECT} set:{SHORT_DESCRIPTION*C} FDA(2005,IENS,10)={SHORT_DESCRIPTION} set:{LAST_ACCESS_DATE*C} FDA(2005,IENS,12)={LAST_ACCESS_DATE} set:{IQ*C} FDA(2005,IENS,13)={IQ} set:{DUPE*C} FDA(2005,IENS,13.5)={DUPE} set:{GROUP_PARENT*C} FDA(2005,IENS,14)={GROUP_PARENT} set:{PROCEDUREEXAM_DATETIME*C} FDA(2005,IENS,15)={PROCEDUREEXAM_DATETIME} set:{PARENT_DATA_FILE*C} FDA(2005,IENS,16)={PARENT_DATA_FILE} set:{PARENT_GLOBAL_ROOT_D0*C} FDA(2005,IENS,17)={PARENT_GLOBAL_ROOT_D0} set:{PARENT_DATA_FILE_IMAGE_POINTER*C} FDA(2005,IENS,18)={PARENT_DATA_FILE_IMAGE_POINTER} set:{EXPORT_REQUEST_STATUS*C} FDA(2005,IENS,19)={EXPORT_REQUEST_STATUS} set:{DELETED_BY*C} FDA(2005,IENS,30)={DELETED_BY} set:{DELETED_DATE*C} FDA(2005,IENS,30.1)={DELETED_DATE} set:{DELETED_REASON*C} FDA(2005,IENS,30.2)={DELETED_REASON} set:{PACKAGE_INDEX*C} FDA(2005,IENS,40)={PACKAGE_INDEX} set:{CLASS_INDEX*C} FDA(2005,IENS,41)={CLASS_INDEX} set:{TYPE_INDEX*C} FDA(2005,IENS,42)={TYPE_INDEX} set:{PROCEVENT_INDEX*C} FDA(2005,IENS,43)={PROCEVENT_INDEX} set:{SPECSUBSPEC_INDEX*C} FDA(2005,IENS,44)={SPECSUBSPEC_INDEX} set:{ORIGIN_INDEX*C} FDA(2005,IENS,45)={ORIGIN_INDEX} set:{PATH_ACCESSION_NUMBER*C} FDA(2005,IENS,50)={PATH_ACCESSION_NUMBER} set:{SPECIMEN_DESCRIPTION*C} FDA(2005,IENS,51)={SPECIMEN_DESCRIPTION} set:{SPECIMEN*C} FDA(2005,IENS,52)={SPECIMEN} set:{STAIN*C} FDA(2005,IENS,53)={STAIN} set:{MICROSCOPIC_OBJECTIVE*C} FDA(2005,IENS,54)={MICROSCOPIC_OBJECTIVE} set:{PACS_UID*C} FDA(2005,IENS,60)={PACS_UID} set:{RADIOLOGY_REPORT*C} FDA(2005,IENS,61)={RADIOLOGY_REPORT} set:{PACS_PROCEDURE*C} FDA(2005,IENS,62)={PACS_PROCEDURE} set:{PARENT_GLOBAL_ROOT_D1*C} FDA(2005,IENS,63)={PARENT_GLOBAL_ROOT_D1} set:{PARENT_ASSOCIATION_DATE*C} FDA(2005,IENS,64)={PARENT_ASSOCIATION_DATE} set:{DESCRIPTIVE_CATEGORY*C} FDA(2005,IENS,100)={DESCRIPTIVE_CATEGORY} set:{CLINIC*C} FDA(2005,IENS,101)={CLINIC} set:{BIG_MAGNETIC_PATH*C} FDA(2005,IENS,102)={BIG_MAGNETIC_PATH} set:{BIG_JUKEBOX_PATH*C} FDA(2005,IENS,103)={BIG_JUKEBOX_PATH} set:{BIG_FILE_EXTENSION*C} FDA(2005,IENS,104)={BIG_FILE_EXTENSION} set:{ACQUISITION_DEVICE*C} FDA(2005,IENS,107)={ACQUISITION_DEVICE} set:{TRACKING_ID*C} FDA(2005,IENS,108)={TRACKING_ID} set:{CREATE_METHOD*C} FDA(2005,IENS,109)={CREATE_METHOD} set:{DOCUMENT_DATE*C} FDA(2005,IENS,110)={DOCUMENT_DATE} set:{CONTROLLED_IMAGE*C} FDA(2005,IENS,112)={CONTROLLED_IMAGE} set:{STATUS*C} FDA(2005,IENS,113)={STATUS} set:{STATUS_REASON*C} FDA(2005,IENS,113.3)={STATUS_REASON} set:{NUMBER_OF_PAGES*C} FDA(2005,IENS,114)={NUMBER_OF_PAGES} set:{LINKED_IMAGE*C} FDA(2005,IENS,115.1)={LINKED_IMAGE} set:{LINKED_TYPE*C} FDA(2005,IENS,115.2)={LINKED_TYPE} set:{LINKED_DATE*C} FDA(2005,IENS,115.3)={LINKED_DATE} set:{DICOM_SOP_CLASS*C} FDA(2005,IENS,251)={DICOM_SOP_CLASS} set:{NEW_SOP_INSTANCE_UID*C} FDA(2005,IENS,252)={NEW_SOP_INSTANCE_UID} set:{SERIES_UID*C} FDA(2005,IENS,253)={SERIES_UID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005)") set %SkipFiling=1 if $d(%FMERR(2005,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LONG_DESCRIPTION*C} { set D0={RowId} kill wp if {LONG_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({LONG_DESCRIPTION},$c(13,10)) { set wp(i)=$p({LONG_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(2005,{RowId},11,,wproot,"%FMERR(2005)") if $d(%FMERR(2005,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.IMAGE2005S index ^MAG nonnull 2005 "AC" {PATIENT} {IEN} 0]]> index ^MAG nonnull 2005 "AIQ" {IQ} {IEN} 0]]> index ^MAG nonnull 2005 "ATRKID" {TRACKING_ID} {IEN} 0]]> index {OBJECT_NAME}'="" 1 ^MAG conditional 2005 "B" $$TRUNCATE({OBJECT_NAME},60)) {IEN} 0]]> index ^MAG nonnull 2005 "D" {ACQUISITION_SITE} {IEN} 0]]> data ^MAG 2005 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 100 4 "^" 100 3 "^" "FBIG" 3 "^" "FBIG" 2 "^" "FBIG" 1 "^" 2 12 "^" 40 2 "^" 100 2 "^" 100 7 "^" "METHOD" 1 "^" 2 1 "^" 30 1 "^" 30 2 "^" 30 3 "^" 100 1 "^" "SOP" 1 "^" 0 4 "^" 0 3 "^" 0 5 "^" 100 6 "^" 0 12 "^" 2 9 "^" 0 2 "^" 0 10 "^" 2 2 "^" 0 11 "^" 0 9 "^" 100 13 "^" 100 11 "^" 100 12 3 new data,i,node set {LONG_DESCRIPTION}="" merge data=^MAG(2005,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {LONG_DESCRIPTION}={LONG_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PATH" 5 "^" "SOP" 2 "^" 100 10 "^" 0 1 "^" 0 6 "^" 40 6 "^" 40 1 "^" "PACS" 3 "^" "PACS" 1 "^" 2 11 "^" 2 6 "^" 2 8 "^" 2 7 "^" 2 10 "^" "PATH" 1 "^" 0 7 "^" 0 8 "^" 2 5 "^" 40 4 "^" "PACS" 2 "^" "SERIESUID" 1 "^" 2 4 "^" "PATH" 3 "^" "PATH" 2 "^" 40 5 "^" "PATH" 4 "^" 100 8 "^" 100 9 "^" 2 3 "^" 100 5 "^" 40 3 index ^MAG nonnull 2005 "P" {PACS_UID} {IEN} 0]]> index ^MAG nonnull 2005 "SERIESUID" {SERIES_UID} {IEN} 0]]> Generated class for FileMan File Number: '2005.1' File Name: 'IMAGE AUDIT' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file holds data from modified image records of the Image file (2005) and serves as an audit trail for modified images. When image deletion takes place, the image is deleted on the server if it is there, the Parent Report file's pointer to the image file is deleted, the data from the Image file is copied over to this file using the same IEN, and the node in the image file is set to null as it can never be used again. The image residing on the WORM drive cannot be deleted, so it can always be retrieved. This file stores the modified image record from the Image file (2005) and serves as an audit trail for modified images. When image deletion takes place: * The image is deleted on the imaging server (if it is there). * The parent report file's pointer to the image file is deleted. * The data from the image file is copied over to this file using the same IEN. * The node is deleted from the image file. The image residing on the WORM drive cannot be deleted, so it can always be retrieved. The field names and definitions are the same as the Image file (#2005). persistent _PUBLIC 0 RowId IMAGE_AUDIT_2005_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.037755897 67178,44710.145086168 right IMAGE AUDIT 2005.1 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'BIG FILE EXTENSION' FileMan Field Number: '104' This is the Image File Extension (e.g. DCM, BIG). %Library.String 30 BIG_FILE_EXTENSION FileMan Field Label: 'CAPTURE APPLICATION' FileMan Field Number: '8.1' Code stored in this field indicates the application that captured this image and created the image entry. This field cannot be edited; it is auto-populated by the "ACA" action index. %Library.EnumString 8 CAPTURE_APPLICATION FileMan Field Label: 'CONTROLLED BY' FileMan Field Number: '112.2' This field references the user who made the most recent change of the image controlled status (see the CONTROLLED IMAGE field (112)). %Library.String 1 36 0:$P($$LASTAUDT^MAGUTL04(2005.1,D0_",",112),"^",3),1:"") set {CONTROLLED_BY}=X]]> 1 CONTROLLED_BY FileMan Field Label: 'CONTROLLED DATE' FileMan Field Number: '112.1' This field indicates date/time of the most recent change of the image controlled status (see the CONTROLLED IMAGE field (112)). %Library.FilemanDate 1 35 0:$P($$LASTAUDT^MAGUTL04(2005.1,D0_",",112),"^",2),1:"") set {CONTROLLED_DATE}=X]]> 1 CONTROLLED_DATE FileMan Field Label: 'CONTROLLED IMAGE' FileMan Field Number: '112' In the Clinical Display application, the abstract of a controlled image is not shown in the Abstracts or Group Abstracts window. A "canned" bitmap is shown in place of the image. It has a text that states that the image is controlled. controlled images are not displayed until the user explicitly selects the image to be viewed. If the value of this field is 'NO' or the field is empty, then the image is handled "as usual": the actual abstract of the image is shown in the Abstracts and Group Abstracts windows. %Library.EnumString 34 CONTROLLED_IMAGE FileMan Field Label: 'CREATE METHOD' FileMan Field Number: '109' This field holds the command that either has created the image(s) or will dynamically access the Image when called from the Display GUI an example is a DLL provided by a COTS product. When the DLL is called, it generates the image. %Library.String 32 CREATE_METHOD FileMan Field Label: 'DATE/TIME IMAGE SAVED' FileMan Field Number: '7' This field is the date and time the image was captured. It is automatically stuffed into the file as 'NOW'. It is not the same as the date and time of the procedure or exam. This field is set automatically by the Imaging software. %Library.FilemanTimeStamp 7 DATETIME_IMAGE_SAVED FileMan Field Label: 'DELETED DATE' FileMan Field Number: '30.1' This is the date the Image was deleted from the Image File. %Library.FilemanDate 19 DELETED_DATE FileMan Field Label: 'DELETED REASON' FileMan Field Number: '30.2' This is the Reason that the Image was deleted. %Library.String 20 DELETED_REASON FileMan Field Label: 'DOCUMENT DATE' FileMan Field Number: '110' Document Images can have a separate date, unlike clinical images that are attached to a procedure, and only procedure date is needed. %Library.FilemanTimeStamp 33 DOCUMENT_DATE FileMan Field Label: 'DUPE' FileMan Field Number: '13.5' This field is to allow screening of images that have duplicate instances in the archive file and the image file. The intent is to prevent purging of these images on the raid until a utility to store this file on the Jukebox is implemented. %Library.EnumString 14 DUPE FileMan Field Label: 'EXPORT REQUEST STATUS' FileMan Field Number: '19' This field is used by Multimedia Mailman when an image needs to be sent to another site. The Imaging software sets the field automatically, after checking its status. After the request is carried out, it will be automatically reset. %Library.EnumString 18 EXPORT_REQUEST_STATUS FileMan Field Label: 'FILEREF' FileMan Field Number: '1' This field contains the unique image filename of the image stored on the magnetic server (and the jukebox if you have one). It is always eight characters in length, starting with the facility's 2 character Imaging namespace, with the remaining six characters ranging from 000001 to 999999. The extensions indicate what type of image it is: .BW for Black and White medium resolution (Cath, Path), .TGA for X-ray, .756 for 16-bit namespace, with the remaining six characters ranging from 000001 to set by the Imaging software. %Library.String 5 FILEREF Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IQ' FileMan Field Number: '13' This field is set by various integrity checkers in the Imaging software. This field is set if an entry has questionable integrity. %Library.EnumString 13 IQ FileMan Field Label: 'LAST ACCESS DATE' FileMan Field Number: '12' This is the date and time the image was last viewed or accessed. Each time an abstract or image is requested for viewing, this field is automatically set with the current date and time. In conjunction with the appropriate site parameter, this field is used for automatic file migration. That is, when an image has not been accessed within the predefined time period, it will be deleted from the magnetic server and will only be accessible from the optical disk jukebox. %Library.FilemanTimeStamp 12 LAST_ACCESS_DATE FileMan Field Label: 'LINKED DATE' FileMan Field Number: '115.3' This is the date that the Document/Image was associated with the LINKED IMAGE. %Library.FilemanDate 42 LINKED_DATE FileMan Field Label: 'LINKED TYPE' FileMan Field Number: '115.2' This is the type of the image link. For example, when image is rescinded a new image entry is created and the original image is deleted. A link is established between the original and the rescinded image. The value of the LINKED TYPE will be "RESCINDED". %Library.EnumString 41 LINKED_TYPE FileMan Field Label: 'LONG DESCRIPTION' FileMan Field Number: '11' This word processing field allows the user to describe the image at length. The user may only choose to append this long description on selected images - ones which are 'classic' or 'unusual' cases. It can be used to summarize a group of images which have been put together for a conference or consult. It will be used in the future to a greater extent, as options for image capture independent of VistA package are provided. %Library.String 11 LONG_DESCRIPTION FileMan Field Label: 'MICROSCOPIC OBJECTIVE' FileMan Field Number: '54' This is a pointer to the Microscopic Objective file. It is input by the pathologist and identifies the power of the microscope objective used when capturing the image of the slide. %Library.String 27 MICROSCOPIC_OBJECTIVE FileMan Field Label: 'NEW SOP INSTANCE UID' FileMan Field Number: '252' The value of this field is a string that represents a DICOM UID. The DICOM standard defines the format of a UID: a string containing only digits and periods that does not exceed a length of 64 characters. This field is populated when a corrected version of an image is exported, and the corrections are of such a nature that the image cannot be exported with its original SOP Instance UID. Note that this UID value is assigned by VA software, and thus will always start with the characters "1.2.840.113754.". %Library.String 43 NEW_SOP_INSTANCE_UID FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' .001 NUMBER Field is the Internal Entry Number of the Image File Entry. i.e. "DA" of the Image File entry. Imaging routines and RPC's use the Image DA for lookups. The Image Files associated with this entry are stored on a Networked Image A name for the Image Files is generated from the Image DA, the Extension is appropriate to the Type of Image. i.e. I0014432.JPG %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'NUMBER OF PAGES' FileMan Field Number: '114' This field stores number of pages in a multi-page document (e.g. multi-page TIFF image). %Library.Numeric 40 NUMBER_OF_PAGES FileMan Field Label: 'OBJECT NAME' FileMan Field Number: '.01' Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software. %Library.String 1 4 OBJECT_NAME FileMan Field Label: 'ORIGIN INDEX' FileMan Field Number: '45' This field indicates whether this image originated inside or outside of the VA. %Library.EnumString 22 ORIGIN_INDEX FileMan Field Label: 'PACKAGE INDEX' FileMan Field Number: '40' This is an abbreviation of the package that the Image is attached to. %Library.EnumString 21 PACKAGE_INDEX FileMan Field Label: 'PACS UID' FileMan Field Number: '60' This field is used by the VISTA-PACS interface and is the unique (up to) 64 character image identifier of the PACS image. %Library.String 28 PACS_UID FileMan Field Label: 'PARENT DATA FILE IMAGE POINTER' FileMan Field Number: '18' The values of fields 16, 17, 18 and 63 are numbers. These numbers are internal entry numbers. Which field corresponds to which internal entry number is explained below. Together, the values of these fields establish a link back to the entry in the "parent" file, that holds the information that describes why the image was collected. The link to the "parent" information is brought about by the combination of the values of fields 16, 17, and, 18, and optionally also field 63. The value of field 16 is a number that indicates the internal entry number of the "parent file" in the VA-FileMan data dictionary. Common parent files are: File Name ==== ==== 3.9: MAIL MESSAGE 63: AUTOPSY (MICROSCOPIC) 63.02: ELECTRON MICROSCOPY 63.08: SURGICAL PATHOLOGY 63.09: CYTOLOGY 63.2: AUTOPSY (GROSS) 74: RADIOLOGY 130: SURGERY 691: ECHOCARDIOGRAM 691.1: CARDIAC CATHETERIZATION 691.5: ELECTROCARDIOGRAPHY 694: HEMATOLOGY 699: ENDOSCOPY 699.5: GENERIC MEDICINE 8925: TIU The records in each of these "parent" files contain a multiple that itemizes the list of images that belong to that record. The field numbers and fixed indexes for those multiples all have the number 2005. The entries within these multiples all have a field that is a pointer back to the image file. The entries in these multiples identify the various images that belong with the record in question. The various parent files each have their own structure, for instance Type Number Form of Root =========== ============ 1 ^RARPT(D0,2005,D1,0)=image... 2 ^MCAR(699,D0,2005,D1,0)=image... 3 ^LR(D0,"SP",D1,2005,D2,0)=image... Depending on the nature of the file structure of the parent file, the imaging software will need either just the value of D0 (type 1 and type 2) to find the correct entry, or the values of D0 as well as D1 (type 3). The values of the fields in the image file correspond to the values of the indices in the parent file as follows: Type Number Field Number and FileMan Index =========== ============================== 1 field 17 = D0, field 18 = D1 2 field 17 = D0, field 18 = D1 3 field 17 = D0, field 63 = D1, field 18 = D2 In the case of type 3, the value of D0 is equal to the value of LRDFN. %Library.Numeric 17 PARENT_DATA_FILE_IMAGE_POINTER FileMan Field Label: 'PARENT GLOBAL ROOT D0' FileMan Field Number: '17' The values of fields 16, 17, 18 and 63 are numbers. These numbers are internal entry numbers. Which field corresponds to which internal entry number is explained below. Together, the values of these fields establish a link back to the entry in the "parent" file, that holds the information that describes why the image was collected. The link to the "parent" information is brought about by the combination of the values of fields 16, 17, and, 18, and optionally also field 63. The value of field 16 is a number that indicates the internal entry number of the "parent file" in the VA-FileMan data dictionary. Common parent files are: File Name ==== ==== 3.9: MAIL MESSAGE 63: AUTOPSY (MICROSCOPIC) 63.02: ELECTRON MICROSCOPY 63.08: SURGICAL PATHOLOGY 63.09: CYTOLOGY 63.2: AUTOPSY (GROSS) 74: RADIOLOGY 130: SURGERY 691: ECHOCARDIOGRAM 691.1: CARDIAC CATHETERIZATION 691.5: ELECTROCARDIOGRAPHY 694: HEMATOLOGY 699: ENDOSCOPY 699.5: GENERIC MEDICINE 8925: TIU The records in each of these "parent" files contain a multiple that itemizes the list of images that belong to that record. The field numbers and fixed indexes for those multiples all have the number 2005. The entries within these multiples all have a field that is a pointer back to the image file. The entries in these multiples identify the various images that belong with the record in question. The various parent files each have their own structure, for instance Type Number Form of Root =========== ============ 1 ^RARPT(D0,2005,D1,0)=image... 2 ^MCAR(699,D0,2005,D1,0)=image... 3 ^LR(D0,"SP",D1,2005,D2,0)=image... Depending on the nature of the file structure of the parent file, the imaging software will need either just the value of D0 (type 1 and type 2) to find the correct entry, or the values of D0 as well as D1 (type 3). The values of the fields in the image file correspond to the values of the indices in the parent file as follows: Type Number Field Number and FileMan Index =========== ============================== 1 field 17 = D0, field 18 = D1 2 field 17 = D0, field 18 = D1 3 field 17 = D0, field 63 = D1, field 18 = D2 In the case of type 3, the value of D0 is equal to the value of LRDFN. %Library.Numeric 16 PARENT_GLOBAL_ROOT_D0 FileMan Field Label: 'PARENT GLOBAL ROOT D1' FileMan Field Number: '63' The values of fields 16, 17, 18 and 63 are numbers. These numbers are internal entry numbers. Which field corresponds to which internal entry number is explained below. Together, the values of these fields establish a link back to the entry in the "parent" file, that holds the information that describes why the image was collected. The link to the "parent" information is brought about by the combination of the values of fields 16, 17, and, 18, and optionally also field 63. The value of field 16 is a number that indicates the internal entry number of the "parent file" in the VA-FileMan data dictionary. Common parent files are: File Name ==== ==== 3.9: MAIL MESSAGE 63: AUTOPSY (MICROSCOPIC) 63.02: ELECTRON MICROSCOPY 63.08: SURGICAL PATHOLOGY 63.09: CYTOLOGY 63.2: AUTOPSY (GROSS) 74: RADIOLOGY 130: SURGERY 691: ECHOCARDIOGRAM 691.1: CARDIAC CATHETERIZATION 691.5: ELECTROCARDIOGRAPHY 694: HEMATOLOGY 699: ENDOSCOPY 699.5: GENERIC MEDICINE 8925: TIU The records in each of these "parent" files contain a multiple that itemizes the list of images that belong to that record. The field numbers and fixed indexes for those multiples all have the number 2005. The entries within these multiples all have a field that is a pointer back to the image file. The entries in these multiples identify the various images that belong with the record in question. The various parent files each have their own structure, for instance Type Number Form of Root =========== ============ 1 ^RARPT(D0,2005,D1,0)=image... 2 ^MCAR(699,D0,2005,D1,0)=image... 3 ^LR(D0,"SP",D1,2005,D2,0)=image... Depending on the nature of the file structure of the parent file, the imaging software will need either just the value of D0 (type 1 and type 2) to find the correct entry, or the values of D0 as well as D1 (type 3). The values of the fields in the image file correspond to the values of the indices in the parent file as follows: Type Number Field Number and FileMan Index =========== ============================== 1 field 17 = D0, field 18 = D1 2 field 17 = D0, field 18 = D1 3 field 17 = D0, field 63 = D1, field 18 = D2 In the case of type 3, the value of D0 is equal to the value of LRDFN. %Library.Numeric 29 PARENT_GLOBAL_ROOT_D1 FileMan Field Label: 'PATH ACCESSION NUMBER' FileMan Field Number: '50' This is the Anatomic Pathology accession number - the identifying number for the slide. %Library.String 23 PATH_ACCESSION_NUMBER FileMan Field Label: 'PROCEDURE' FileMan Field Number: '6' This field is an abbreviation for the procedure e.g COL for colonoscopy, SUR for surgery, SP for surgical pathology, X-ray for radiology . This field is automatically set by the Imaging software. %Library.String 6 PROCEDURE6 FileMan Field Label: 'PROCEDURE/EXAM DATE/TIME' FileMan Field Number: '15' This is the date/time of the procedure or the exam. It is obtained from the parent data file, i.e. the date/time of the X-ray exam, the Medical Procedure, the time the Laboratory specimen was obtained from the patient, or the date/time of the Surgical procedure. This often is not the same as the date/time the image was captured. In a long surgical procedure the image capture time may be several hours later than the start of the operation. When a lab specimen is collected from a patient, it may be several days before images are captured from the slide. If images are initially stored on an intermediate media such as X-ray film or video tape, the capture time can be long after the procedure time. %Library.FilemanTimeStamp 15 PROCEDUREEXAM_DATETIME FileMan Field Label: 'SERIES UID' FileMan Field Number: '253' The value of this field is a DICOM unique identifier for the series to which an image belongs. A DICOM UID looks like a series of digits and periods, is not longer than 64 characters, starts and ends with a digit and never has two consecutive periods. %Library.String 44 SERIES_UID FileMan Field Label: 'SHORT DESCRIPTION' FileMan Field Number: '10' This field allows the user to store a brief, one line description with the image or object record. For images associated with patients, this data is appended to the patient's name and SSN to create the .01 field of the Image file. It is also permanently written on the upper left corner of the image to provide visible identification. %Library.String 10 SHORT_DESCRIPTION FileMan Field Label: 'SPECIMEN#' FileMan Field Number: '52' This is the specimen number of the slide given in the Lab Data file. %Library.Numeric 25 SPECIMEN FileMan Field Label: 'SPECIMEN DESCRIPTION' FileMan Field Number: '51' This is the description given to the specimen in the Lab Data file - the information is carried over and stuffed into the Image file. %Library.String 24 SPECIMEN_DESCRIPTION FileMan Field Label: 'STAIN' FileMan Field Number: '53' This is a pointer to the Histological Stain file. It is the stain used in the preparation of the specimen and is input by the pathologist. %Library.String 26 STAIN FileMan Field Label: 'STATUS' FileMan Field Number: '113' Deleted Marks the image as deleted. Image Never Existed There was an Error while copying the Image to the Image Share. The Image entry is deleted and the status is set as Image Never Existed. %Library.EnumString 37 STATUS FileMan Field Label: 'STATUS BY' FileMan Field Number: '113.2' This field references the user who made the most recent change of the image status (see the STATUS field (113)). %Library.String 1 39 0:$P($$LASTAUDT^MAGUTL04(2005.1,D0_",",113),"^",3),1:"") set {STATUS_BY}=X]]> 1 STATUS_BY FileMan Field Label: 'STATUS DATE' FileMan Field Number: '113.1' This field indicates date/time of the most recent change of the image status (see the STATUS field (113)). %Library.FilemanDate 1 38 0:$P($$LASTAUDT^MAGUTL04(2005.1,D0_",",113),"^",2),1:"") set {STATUS_DATE}=X]]> 1 STATUS_DATE FileMan Field Label: 'SUMMARY OBJECT' FileMan Field Number: '9' This field is used to indicate whether the image or object is to be used as a summary for a group of objects. For example, in a GROUP of images, normally the abstract of the first object in the group multiple is used for the integrated view display. This field allows the user to select a summary image to be used for this purpose. This field is currently not in use. %Library.EnumString 9 SUMMARY_OBJECT FileMan Field Label: 'TRACKING ID' FileMan Field Number: '108' This field tracks the packages that are using the Import API. It is an ";" (semicolon) delimited free text field. First piece is the Package ID that performed the Import Second piece is the Internal package identifier. %Library.String 31 TRACKING_ID SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 45 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{OBJECT_NAME}'="" FDA(2005.1,"+1,",.01)={"OBJECT_NAME"} set:{FILEREF}'="" FDA(2005.1,"+1,",1)={"FILEREF"} set:{PROCEDURE6}'="" FDA(2005.1,"+1,",6)={"PROCEDURE6"} set:{DATETIME_IMAGE_SAVED}'="" FDA(2005.1,"+1,",7)={"DATETIME_IMAGE_SAVED"} set:{CAPTURE_APPLICATION}'="" FDA(2005.1,"+1,",8.1)={"CAPTURE_APPLICATION"} set:{SUMMARY_OBJECT}'="" FDA(2005.1,"+1,",9)={"SUMMARY_OBJECT"} set:{SHORT_DESCRIPTION}'="" FDA(2005.1,"+1,",10)={"SHORT_DESCRIPTION"} set:{LAST_ACCESS_DATE}'="" FDA(2005.1,"+1,",12)={"LAST_ACCESS_DATE"} set:{IQ}'="" FDA(2005.1,"+1,",13)={"IQ"} set:{DUPE}'="" FDA(2005.1,"+1,",13.5)={"DUPE"} set:{PROCEDUREEXAM_DATETIME}'="" FDA(2005.1,"+1,",15)={"PROCEDUREEXAM_DATETIME"} set:{PARENT_GLOBAL_ROOT_D0}'="" FDA(2005.1,"+1,",17)={"PARENT_GLOBAL_ROOT_D0"} set:{PARENT_DATA_FILE_IMAGE_POINTER}'="" FDA(2005.1,"+1,",18)={"PARENT_DATA_FILE_IMAGE_POINTER"} set:{EXPORT_REQUEST_STATUS}'="" FDA(2005.1,"+1,",19)={"EXPORT_REQUEST_STATUS"} set:{DELETED_DATE}'="" FDA(2005.1,"+1,",30.1)={"DELETED_DATE"} set:{DELETED_REASON}'="" FDA(2005.1,"+1,",30.2)={"DELETED_REASON"} set:{PACKAGE_INDEX}'="" FDA(2005.1,"+1,",40)={"PACKAGE_INDEX"} set:{ORIGIN_INDEX}'="" FDA(2005.1,"+1,",45)={"ORIGIN_INDEX"} set:{PATH_ACCESSION_NUMBER}'="" FDA(2005.1,"+1,",50)={"PATH_ACCESSION_NUMBER"} set:{SPECIMEN_DESCRIPTION}'="" FDA(2005.1,"+1,",51)={"SPECIMEN_DESCRIPTION"} set:{SPECIMEN}'="" FDA(2005.1,"+1,",52)={"SPECIMEN"} set:{STAIN}'="" FDA(2005.1,"+1,",53)={"STAIN"} set:{MICROSCOPIC_OBJECTIVE}'="" FDA(2005.1,"+1,",54)={"MICROSCOPIC_OBJECTIVE"} set:{PACS_UID}'="" FDA(2005.1,"+1,",60)={"PACS_UID"} set:{PARENT_GLOBAL_ROOT_D1}'="" FDA(2005.1,"+1,",63)={"PARENT_GLOBAL_ROOT_D1"} set:{BIG_FILE_EXTENSION}'="" FDA(2005.1,"+1,",104)={"BIG_FILE_EXTENSION"} set:{TRACKING_ID}'="" FDA(2005.1,"+1,",108)={"TRACKING_ID"} set:{CREATE_METHOD}'="" FDA(2005.1,"+1,",109)={"CREATE_METHOD"} set:{DOCUMENT_DATE}'="" FDA(2005.1,"+1,",110)={"DOCUMENT_DATE"} set:{CONTROLLED_IMAGE}'="" FDA(2005.1,"+1,",112)={"CONTROLLED_IMAGE"} set:{STATUS}'="" FDA(2005.1,"+1,",113)={"STATUS"} set:{NUMBER_OF_PAGES}'="" FDA(2005.1,"+1,",114)={"NUMBER_OF_PAGES"} set:{LINKED_TYPE}'="" FDA(2005.1,"+1,",115.2)={"LINKED_TYPE"} set:{LINKED_DATE}'="" FDA(2005.1,"+1,",115.3)={"LINKED_DATE"} set:{NEW_SOP_INSTANCE_UID}'="" FDA(2005.1,"+1,",252)={"NEW_SOP_INSTANCE_UID"} set:{SERIES_UID}'="" FDA(2005.1,"+1,",253)={"SERIES_UID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.1)") set %SkipFiling=1 if $d(%FMERR(2005.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LONG_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({LONG_DESCRIPTION},$c(13,10)) { set wp(i)=$p({LONG_DESCRIPTION},$c(13,10),i) } do WP^DIE(2005.1,{RowId},11,,"wp","%FMERR(2005.1)") if $d(%FMERR(2005.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{OBJECT_NAME*C} FDA(2005.1,IENS,.01)={OBJECT_NAME} set:{FILEREF*C} FDA(2005.1,IENS,1)={FILEREF} set:{PROCEDURE6*C} FDA(2005.1,IENS,6)={PROCEDURE6} set:{DATETIME_IMAGE_SAVED*C} FDA(2005.1,IENS,7)={DATETIME_IMAGE_SAVED} set:{CAPTURE_APPLICATION*C} FDA(2005.1,IENS,8.1)={CAPTURE_APPLICATION} set:{SUMMARY_OBJECT*C} FDA(2005.1,IENS,9)={SUMMARY_OBJECT} set:{SHORT_DESCRIPTION*C} FDA(2005.1,IENS,10)={SHORT_DESCRIPTION} set:{LAST_ACCESS_DATE*C} FDA(2005.1,IENS,12)={LAST_ACCESS_DATE} set:{IQ*C} FDA(2005.1,IENS,13)={IQ} set:{DUPE*C} FDA(2005.1,IENS,13.5)={DUPE} set:{PROCEDUREEXAM_DATETIME*C} FDA(2005.1,IENS,15)={PROCEDUREEXAM_DATETIME} set:{PARENT_GLOBAL_ROOT_D0*C} FDA(2005.1,IENS,17)={PARENT_GLOBAL_ROOT_D0} set:{PARENT_DATA_FILE_IMAGE_POINTER*C} FDA(2005.1,IENS,18)={PARENT_DATA_FILE_IMAGE_POINTER} set:{EXPORT_REQUEST_STATUS*C} FDA(2005.1,IENS,19)={EXPORT_REQUEST_STATUS} set:{DELETED_DATE*C} FDA(2005.1,IENS,30.1)={DELETED_DATE} set:{DELETED_REASON*C} FDA(2005.1,IENS,30.2)={DELETED_REASON} set:{PACKAGE_INDEX*C} FDA(2005.1,IENS,40)={PACKAGE_INDEX} set:{ORIGIN_INDEX*C} FDA(2005.1,IENS,45)={ORIGIN_INDEX} set:{PATH_ACCESSION_NUMBER*C} FDA(2005.1,IENS,50)={PATH_ACCESSION_NUMBER} set:{SPECIMEN_DESCRIPTION*C} FDA(2005.1,IENS,51)={SPECIMEN_DESCRIPTION} set:{SPECIMEN*C} FDA(2005.1,IENS,52)={SPECIMEN} set:{STAIN*C} FDA(2005.1,IENS,53)={STAIN} set:{MICROSCOPIC_OBJECTIVE*C} FDA(2005.1,IENS,54)={MICROSCOPIC_OBJECTIVE} set:{PACS_UID*C} FDA(2005.1,IENS,60)={PACS_UID} set:{PARENT_GLOBAL_ROOT_D1*C} FDA(2005.1,IENS,63)={PARENT_GLOBAL_ROOT_D1} set:{BIG_FILE_EXTENSION*C} FDA(2005.1,IENS,104)={BIG_FILE_EXTENSION} set:{TRACKING_ID*C} FDA(2005.1,IENS,108)={TRACKING_ID} set:{CREATE_METHOD*C} FDA(2005.1,IENS,109)={CREATE_METHOD} set:{DOCUMENT_DATE*C} FDA(2005.1,IENS,110)={DOCUMENT_DATE} set:{CONTROLLED_IMAGE*C} FDA(2005.1,IENS,112)={CONTROLLED_IMAGE} set:{STATUS*C} FDA(2005.1,IENS,113)={STATUS} set:{NUMBER_OF_PAGES*C} FDA(2005.1,IENS,114)={NUMBER_OF_PAGES} set:{LINKED_TYPE*C} FDA(2005.1,IENS,115.2)={LINKED_TYPE} set:{LINKED_DATE*C} FDA(2005.1,IENS,115.3)={LINKED_DATE} set:{NEW_SOP_INSTANCE_UID*C} FDA(2005.1,IENS,252)={NEW_SOP_INSTANCE_UID} set:{SERIES_UID*C} FDA(2005.1,IENS,253)={SERIES_UID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.1)") set %SkipFiling=1 if $d(%FMERR(2005.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LONG_DESCRIPTION*C} { set D0={RowId} kill wp if {LONG_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({LONG_DESCRIPTION},$c(13,10)) { set wp(i)=$p({LONG_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(2005.1,{RowId},11,,wproot,"%FMERR(2005.1)") if $d(%FMERR(2005.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.IMAGEAUDIT21D28S index {OBJECT_NAME}'="" 1 ^MAG conditional 2005.1 "B" $$TRUNCATE({OBJECT_NAME},30)) {IEN} 0]]> index ^MAG nonnull 2005.1 "E" {FILEREF} {IEN} 0]]> data ^MAG 2005.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "FBIG" 3 "^" 2 12 "^" 100 7 "^" "METHOD" 1 "^" 2 1 "^" 30 2 "^" 30 3 "^" 100 6 "^" 0 12 "^" 2 9 "^" 0 2 "^" 0 11 "^" 0 9 "^" 100 13 "^" 100 12 3 new data,i,node set {LONG_DESCRIPTION}="" merge data=^MAG(2005.1,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {LONG_DESCRIPTION}={LONG_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PATH" 5 "^" "SOP" 2 "^" 100 10 "^" 0 1 "^" 40 6 "^" 40 1 "^" "PACS" 1 "^" 2 8 "^" 2 7 "^" 2 10 "^" "PATH" 1 "^" 0 8 "^" 2 5 "^" "SERIESUID" 1 "^" 2 4 "^" "PATH" 3 "^" "PATH" 2 "^" "PATH" 4 "^" 100 8 "^" 2 3 "^" 100 5 index ^MAG nonnull 2005.1 "P" {PACS_UID} {IEN} 0]]> index ^MAG nonnull 2005.1 "SERIESUID" {SERIES_UID} {IEN} 0]]> Generated class for FileMan File Number: '2005.82' File Name: 'IMAGE INDEX FOR CLASS' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file has all the class types of images and is used in the indexing of images, which allow clinicians to apply sort filters when viewing or researching images. This file is updated by Imaging and should not be edited on-site. Request for additions or modifications should be submitted to the Imaging Developers group. persistent _PUBLIC 0 RowId IMAGE_INDEX_FOR_CLASS_2005_82 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.07084392 67178,44710.188650263 right IMAGE INDEX FOR CLASS 2005.82 2.56 12/04/2024 12:25:10 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.82,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter the name of class for the image. For example ADMIN for administrative images. This field is required for all images and is requested during image capture. %Library.String 1 3 NAME FileMan Field Label: 'STATUS' FileMan Field Number: '1' This field is used to inactivate an entry in this file. It affects which classes can be selected in the filtering option of VistA Imaging Display. %Library.EnumString 4 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.82," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2005.82,"+1,",.01)={"NAME"} set:{STATUS}'="" FDA(2005.82,"+1,",1)={"STATUS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.82)") set %SkipFiling=1 if $d(%FMERR(2005.82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2005.82,IENS,.01)={NAME} set:{STATUS*C} FDA(2005.82,IENS,1)={STATUS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.82)") set %SkipFiling=1 if $d(%FMERR(2005.82,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.82)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.IMAGEINDEXFF0F1S index ^MAG nonnull 2005.82 "B" {NAME} {IEN} 0]]> data ^MAG 2005.82 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '2005.85' File Name: 'IMAGE INDEX FOR PROCEDURE/EVENT' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file has all the possible procedures or procedural events that an image can be associated with and will be used for indexing images. The PROCEDURE/EVENT associated with an image can be used in filters defined by a clinician. This file is updated by Imaging and should not be edited on-site. Request for additions or modifications should be submitted to the Imaging Developers group. persistent _PUBLIC 0 RowId IMAGE_INDEX_FOR_PROCEDUREEVENT_2005_85 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.096283009 67178,44710.217356984 right IMAGE INDEX FOR PROCEDURE/EVENT 2005.85 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '3' Enter 2-5 characters abbreviation for the procedure. This can be used as part of abstract label on image display. %Library.String 4 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.85,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the procedure/event for the image being captured. %Library.String 1 3 NAME FileMan Field Label: 'STATUS' FileMan Field Number: '4' This field is used to inactivate an entry in this file. It affects which procedures / events can be selected in the filtering option of VistA Imaging Display. %Library.EnumString 5 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.85," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2005.85,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(2005.85,"+1,",3)={"ABBREVIATION"} set:{STATUS}'="" FDA(2005.85,"+1,",4)={"STATUS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.85)") set %SkipFiling=1 if $d(%FMERR(2005.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2005.85,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(2005.85,IENS,3)={ABBREVIATION} set:{STATUS*C} FDA(2005.85,IENS,4)={STATUS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.85)") set %SkipFiling=1 if $d(%FMERR(2005.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.IMAGEINDEXFE75ES index {NAME}'="" 1 ^MAG conditional 2005.85 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^MAG nonnull 2005.85 "C" {ABBREVIATION} {IEN} 0]]> data ^MAG 2005.85 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 2 1 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '2005.84' File Name: 'IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file has all the specialties and sub-specialties that an image can be captured to. These specialties will be used to allow clinicians the flexibility to filter images according to only the images they are interested in researching or viewing. This file is updated by Imaging and should not be edited on-site. Request for additions or modifications should be submitted to the Imaging Developers group. persistent _PUBLIC 0 RowId IMAGE_INDEX_FOR_SPECIALTYSUBSPECIALTY_2005_84 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.111752904 67178,44710.248219454 right IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY 2005.84 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '3' Enter an abbreviation for this specialty. %Library.String 4 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.84,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the Specialty or SubSpecialty that an images is captured to and will be used in sorting during image display. %Library.String 1 3 NAME FileMan Field Label: 'STATUS' FileMan Field Number: '4' This field is used to inactivate an entry in this file. It affects which specialties can be selected in the filtering option of VistA Imaging Display. %Library.EnumString 5 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.84," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2005.84,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(2005.84,"+1,",3)={"ABBREVIATION"} set:{STATUS}'="" FDA(2005.84,"+1,",4)={"STATUS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.84)") set %SkipFiling=1 if $d(%FMERR(2005.84,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.84)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2005.84,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(2005.84,IENS,3)={ABBREVIATION} set:{STATUS*C} FDA(2005.84,IENS,4)={STATUS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.84)") set %SkipFiling=1 if $d(%FMERR(2005.84,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.84)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.IMAGEINDEXFO4E7S index ^MAG nonnull 2005.84 "B" {NAME} {IEN} 0]]> index ^MAG nonnull 2005.84 "C" {ABBREVIATION} {IEN} 0]]> data ^MAG 2005.84 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 2 1 "^" 0 1 "^" 0 4 Generated class for FileMan File Number: '2005.83' File Name: 'IMAGE INDEX FOR TYPES' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file has all the types of images and is used in the indexing images to allow clinicians to apply sort filters when viewing or researching images. This file is updated by Imaging and should not be edited on-site. Request for additions or modifications should be submitted to the Imaging Developers group. persistent _PUBLIC 0 RowId IMAGE_INDEX_FOR_TYPES_2005_83 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.117288056 67178,44710.27877742 right IMAGE INDEX FOR TYPES 2005.83 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '3' Enter an abbreviation for this image type. %Library.String 5 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.83,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field describes the image type. It is required for all images: Document Images and Clinical Images. %Library.String 1 3 NAME FileMan Field Label: 'STATUS' FileMan Field Number: '2' This field is used to inactivate an entry in this file. It affects which types can be selected in the filtering option of VistA Imaging Display. %Library.EnumString 4 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.83," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2005.83,"+1,",.01)={"NAME"} set:{STATUS}'="" FDA(2005.83,"+1,",2)={"STATUS"} set:{ABBREVIATION}'="" FDA(2005.83,"+1,",3)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.83)") set %SkipFiling=1 if $d(%FMERR(2005.83,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.83)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2005.83,IENS,.01)={NAME} set:{STATUS*C} FDA(2005.83,IENS,2)={STATUS} set:{ABBREVIATION*C} FDA(2005.83,IENS,3)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.83)") set %SkipFiling=1 if $d(%FMERR(2005.83,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.83)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.IMAGEINDEXF772ES index ^MAG nonnull 2005.83 "B" {NAME} {IEN} 0]]> data ^MAG 2005.83 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 1 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '79.1' File Name: 'IMAGING LOCATIONS' Class generated by %fm2class version 2.56 This file contains, for each imagaing location entry, parameters that the module uses during various stages of exam and report processing and inquiring. The parameter switches allow the 'customizing' of the module for each location by the package coordinator. Within an imaging division there may be a number of physical locations where a imaging procedure can be performed. The module is designed to handle multiple locations within a division. However, each location can only be associated with one division. These parameters are loaded into the user's partition once the module determines which division and location the user is currently associated with. This is determined by one of two ways: 1) the device the user is using is an entry in the 'INPUT DEVICES' sub-file for a location or 2) if (1) is not true than the module will simply ask the user what his/her current location is. Entries in this file should not be deleted. Adding new entries is always allowed. Data Storage ------------ The data for the 'IMAGING LOCATIONS' file is stored in the ^RA(79.1, global. At the present time this file is very static after day-one initialization is complete. However, it still should be journaled. It should also be translated if the operating system supports this function. Input Templates --------------- The following is a list of input templates used by the package and the entry in the OPTIONS file (#19) that uses the template: Compiled Name Routine Description; Option(s) ---- ------- ----------------------- RA LOCATION PARAMETERS Used to enter/edit location parameters that are controlled by the package coordinator; RA SYSLOC RA SITE MANAGER Used to enter/edit location parameters that are controlled by IRM; RA DEVICE If any modifications to these input templates are needed for local purposes, then great care should be taken not to degrade any branching logic in the template. Print Templates --------------- The following is a list of print templates used by the package: Name Description; Option(s) ---- ---------------------- RA IMAGE LOC LIST Print the location parameters for the entries in this file; RA SYSLOCLIST RA EXAM ROOM LIST Prints a list of cameras/equip/rms and the locations associated with the camera/equip/rm; RA SYSEXLIST Sort Templates -------------- The following is a list of sort templates used by the package: Name Related Print Template ---- ---------------------- RA IMAGE LOC LIST RA IMAGE LOC LIST RA EXAM ROOM LIST RA EXAM ROOM LIST The modification of any sort templates is not recommended. persistent _PUBLIC 0 RowId IMAGING_LOCATIONS_79_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.129969306 67178,44710.31093324 right IMAGING LOCATIONS 79.1 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'AFTER HOURS BEGIN TIME' FileMan Field Number: '83' This location parameter is used in conjunction with the ALTERNATE REQUEST PRINTER to set the time of day that requests will automatically start printing on the ALTERNATE REQUEST PRINTER. %Library.FilemanTime 16 AFTER_HOURS_BEGIN_TIME FileMan Field Label: 'AFTER HOURS END TIME' FileMan Field Number: '84' This location parameter is used in conjunction with the ALTERNATE REQUEST PRINTER to set the time of day that requests will automatically be routed back to the REQUEST PRINTER. %Library.FilemanTime 17 AFTER_HOURS_END_TIME FileMan Field Label: 'AFTER HOURS HOLIDAY' FileMan Field Number: '86' This location parameter is used in conjunction with the ALTERNATE REQUEST PRINTER to determine if holidays are considered after hours. If set to YES, radiology requests will be routed to the ALTERNATE REQUEST PRINTER all day on holidays. Note that this parameter relies on the HOLIDAY file (#40.5) being populated with the each year's holidays. If it is not populated, holidays will not be included in after hours printing. %Library.EnumString 19 AFTER_HOURS_HOLIDAY FileMan Field Label: 'AFTER HOURS WEEKEND' FileMan Field Number: '85' This location parameter is used in conjunction with the ALTERNATE REQUEST PRINTER to determine if weekends (Saturday/Sunday) are considered after hours. If set to YES, radiology requests will be routed to the ALTERNATE REQUEST PRINTER all day on the weekend. %Library.EnumString 18 AFTER_HOURS_WEEKEND FileMan Field Label: 'ALLOW 'RELEASED/NOT VERIFIED'' FileMan Field Number: '17' This Imaging Location parameter can be set to 'Yes' to allow reports to have the status 'RELEASED/NOT VERIFIED' which permits the displaying of the report to users outside of the Imaging service even if it is not yet verified. %Library.EnumString 9 ALLOW_RELEASEDNOT_VERIFIED FileMan Field Label: 'ALTERNATE PRINTER USAGE' FileMan Field Number: '82' This location parameter is used in conjunction with the ALTERNATE REQUEST PRINTER to define it's usage. The choices are: 1 AFTER HOURS PRINTER 2 ALTERNATE PRINTER If After Hours Printer is selected, the printing logic will evaluate the After Hours parameters BEGIN/END times, along with WEEKEND, HOLIDAY and CATEGORY OF EXAM to determine if the request should be routed to the ALTERNATE REQUEST PRINTER. If Alternate Printer is selected, the alternate printer parameters REQUESTING LOCATION and CATEGORY OF EXAM will be evaluated to determine if the request should be routed to the ALTERNATE REQUEST PRINTER. %Library.EnumString 15 ALTERNATE_PRINTER_USAGE FileMan Field Label: 'ARP CATEGORY OF EXAM' FileMan Field Number: '87' This location parameter is used in conjunction with the ALTERNATE REQUEST PRINTER to determine if the category of exam (patient classification) of the request will be routed to the ALTERNATE REQUEST PRINTER. %Library.EnumString 20 ARP_CATEGORY_OF_EXAM FileMan Field Label: 'CREDIT METHOD' FileMan Field Number: '21' This field indicates the type of credit this location receives for examinations. The default is REGULAR (code 0), which means that for this imaging location both the exam and the interpretation are done at your facility. If this imaging location has been set up to register exams done in another facility, with the imaging interpretation only done at this facility, enter code 1. If exams are done in this location, but interpretation is done elsewhere, enter code 3. If both the exam and the interpretation are done elsewhere, and exams entered for this imaging location are entered only for record-keeping purposes, enter code 2. %Library.EnumString 13 CREDIT_METHOD FileMan Field Label: 'HOW MANY EXAM LABELS PER EXAM' FileMan Field Number: '8' HOW MANY EXAM LABELS TO PRINT PER CASE? This imaging location parameter is used to set up the number of exam labels to print per registered case. It must contain a whole number between 0 and 9. %Library.Numeric 6 HOW_MANY_EXAM_LABELS_PER_EXAM FileMan Field Label: 'HOW MANY FLASH CARDS PER VISIT' FileMan Field Number: '2' HOW MANY FLASH CARDS TO PRINT PER VISIT? This imaging 'locations' parameter is used to set up the number of flash cards to print per patient visit. It must contain a whole number between 0 and 10. If the Division parameter 'Print Flash Card for each exam' is set to 'Yes', this location parameter is ignored. %Library.Numeric 4 HOW_MANY_FLASH_CARDS_PER_VISIT FileMan Field Label: 'HOW MANY JACKET LBLS PER VISIT' FileMan Field Number: '4' HOW MANY JACKET LABELS TO PRINT PER VISIT? This 'locations' parameter is used to set up the number of jacket labels to print per patient visit. It must contain a whole number between 0 and 10. %Library.Numeric 5 HOW_MANY_JACKET_LBLS_PER_VISIT Internal Entry Number %Library.String $$next^%apiSQL("$p(^RA(79.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '19' Contains the date the Imaging Location was inactivated. Orders cannot be submitted to an inactive location and cases cannot be registered in an inactive location. %Library.FilemanTimeStamp 11 INACTIVE FileMan Field Label: 'PRINT DX CODES IN REPORT?' FileMan Field Number: '18' PRINT DIAGNOSTIC CODES IN THE BODY OF THE REPORT? If this field is set to Yes, all primary and secondary diagnostic codes associated with the exam will be printed on the exam report. (Note: Since the primary diagnostic code may be printed in exam report headers and footers, you may also need to change report header and footer set-ups to get the diagnostic codes printed exactly as you wish.) %Library.EnumString 10 PRINT_DX_CODES_IN_REPORT FileMan Field Label: 'REPORT LEFT MARGIN' FileMan Field Number: '14' LEFT MARGIN FOR REPORT TEXT This field indicates which column the text for 'clinical history', 'report' and 'impression' should start at when printing the report. Enter a number between 1 and 20. %Library.Numeric 7 REPORT_LEFT_MARGIN FileMan Field Label: 'REPORT RIGHT MARGIN' FileMan Field Number: '15' RIGHT MARGIN FOR REPORT TEXT This field indicates which column the text for 'clinical history', 'report' and 'impression' should end at when printing the report. Enter a number between 50 and 130. %Library.Numeric 8 REPORT_RIGHT_MARGIN FileMan Field Label: 'SUPPRESS ORDERING?' FileMan Field Number: '.1' This imaging location parameter can be set to 'Yes' to indicate that location will not be available to submit an imaging request to in CPRS. It is recommended that this be set for 'No Credit' locations only. %Library.EnumString 3 SUPPRESS_ORDERING FileMan Field Label: 'URGENT REQUEST ALERTS?' FileMan Field Number: '20' This field will determine if alerts will be sent to the Imaging Personnel defined in the STAT REQUEST ALERT RECIPIENTS field. If this field is set to 'Yes', then all the users in the STAT REQUEST ALERT RECIPIENTS field will be sent an alert for urgent requests. To use this feature, the Division parameter 'Ask Imaging Location' must be set to 'YES', and OE/RR Version 3.0 or higher must be installed. %Library.EnumString 12 URGENT_REQUEST_ALERTS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 21 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VOICE DICTATION AUTO-PRINT' FileMan Field Number: '26' If this field is Y , and voice dictation is used to enter a report, a copy of the report will be automatically printed on the device defined in field REPORT PRINTER NAME. %Library.EnumString 14 VOICE_DICTATION_AUTOPRINT BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RA(79.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SUPPRESS_ORDERING}'="" FDA(79.1,"+1,",.1)={"SUPPRESS_ORDERING"} set:{HOW_MANY_FLASH_CARDS_PER_VISIT}'="" FDA(79.1,"+1,",2)={"HOW_MANY_FLASH_CARDS_PER_VISIT"} set:{HOW_MANY_JACKET_LBLS_PER_VISIT}'="" FDA(79.1,"+1,",4)={"HOW_MANY_JACKET_LBLS_PER_VISIT"} set:{HOW_MANY_EXAM_LABELS_PER_EXAM}'="" FDA(79.1,"+1,",8)={"HOW_MANY_EXAM_LABELS_PER_EXAM"} set:{REPORT_LEFT_MARGIN}'="" FDA(79.1,"+1,",14)={"REPORT_LEFT_MARGIN"} set:{REPORT_RIGHT_MARGIN}'="" FDA(79.1,"+1,",15)={"REPORT_RIGHT_MARGIN"} set:{ALLOW_RELEASEDNOT_VERIFIED}'="" FDA(79.1,"+1,",17)={"ALLOW_RELEASEDNOT_VERIFIED"} set:{PRINT_DX_CODES_IN_REPORT}'="" FDA(79.1,"+1,",18)={"PRINT_DX_CODES_IN_REPORT"} set:{INACTIVE}'="" FDA(79.1,"+1,",19)={"INACTIVE"} set:{URGENT_REQUEST_ALERTS}'="" FDA(79.1,"+1,",20)={"URGENT_REQUEST_ALERTS"} set:{CREDIT_METHOD}'="" FDA(79.1,"+1,",21)={"CREDIT_METHOD"} set:{VOICE_DICTATION_AUTOPRINT}'="" FDA(79.1,"+1,",26)={"VOICE_DICTATION_AUTOPRINT"} set:{ALTERNATE_PRINTER_USAGE}'="" FDA(79.1,"+1,",82)={"ALTERNATE_PRINTER_USAGE"} set:{AFTER_HOURS_BEGIN_TIME}'="" FDA(79.1,"+1,",83)={"AFTER_HOURS_BEGIN_TIME"} set:{AFTER_HOURS_END_TIME}'="" FDA(79.1,"+1,",84)={"AFTER_HOURS_END_TIME"} set:{AFTER_HOURS_WEEKEND}'="" FDA(79.1,"+1,",85)={"AFTER_HOURS_WEEKEND"} set:{AFTER_HOURS_HOLIDAY}'="" FDA(79.1,"+1,",86)={"AFTER_HOURS_HOLIDAY"} set:{ARP_CATEGORY_OF_EXAM}'="" FDA(79.1,"+1,",87)={"ARP_CATEGORY_OF_EXAM"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(79.1)") set %SkipFiling=1 if $d(%FMERR(79.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(79.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SUPPRESS_ORDERING*C} FDA(79.1,IENS,.1)={SUPPRESS_ORDERING} set:{HOW_MANY_FLASH_CARDS_PER_VISIT*C} FDA(79.1,IENS,2)={HOW_MANY_FLASH_CARDS_PER_VISIT} set:{HOW_MANY_JACKET_LBLS_PER_VISIT*C} FDA(79.1,IENS,4)={HOW_MANY_JACKET_LBLS_PER_VISIT} set:{HOW_MANY_EXAM_LABELS_PER_EXAM*C} FDA(79.1,IENS,8)={HOW_MANY_EXAM_LABELS_PER_EXAM} set:{REPORT_LEFT_MARGIN*C} FDA(79.1,IENS,14)={REPORT_LEFT_MARGIN} set:{REPORT_RIGHT_MARGIN*C} FDA(79.1,IENS,15)={REPORT_RIGHT_MARGIN} set:{ALLOW_RELEASEDNOT_VERIFIED*C} FDA(79.1,IENS,17)={ALLOW_RELEASEDNOT_VERIFIED} set:{PRINT_DX_CODES_IN_REPORT*C} FDA(79.1,IENS,18)={PRINT_DX_CODES_IN_REPORT} set:{INACTIVE*C} FDA(79.1,IENS,19)={INACTIVE} set:{URGENT_REQUEST_ALERTS*C} FDA(79.1,IENS,20)={URGENT_REQUEST_ALERTS} set:{CREDIT_METHOD*C} FDA(79.1,IENS,21)={CREDIT_METHOD} set:{VOICE_DICTATION_AUTOPRINT*C} FDA(79.1,IENS,26)={VOICE_DICTATION_AUTOPRINT} set:{ALTERNATE_PRINTER_USAGE*C} FDA(79.1,IENS,82)={ALTERNATE_PRINTER_USAGE} set:{AFTER_HOURS_BEGIN_TIME*C} FDA(79.1,IENS,83)={AFTER_HOURS_BEGIN_TIME} set:{AFTER_HOURS_END_TIME*C} FDA(79.1,IENS,84)={AFTER_HOURS_END_TIME} set:{AFTER_HOURS_WEEKEND*C} FDA(79.1,IENS,85)={AFTER_HOURS_WEEKEND} set:{AFTER_HOURS_HOLIDAY*C} FDA(79.1,IENS,86)={AFTER_HOURS_HOLIDAY} set:{ARP_CATEGORY_OF_EXAM*C} FDA(79.1,IENS,87)={ARP_CATEGORY_OF_EXAM} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(79.1)") set %SkipFiling=1 if $d(%FMERR(79.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(79.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.IMAGINGLOCA161FS index {CREDIT_METHOD}'="" 1 ^RA conditional 79.1 "ACM" $$TRUNCATE({CREDIT_METHOD},1)) {IEN} 0]]> data ^RA 79.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "ARP" 3 "^" "ARP" 4 "^" "ARP" 6 "^" "ARP" 5 "^" 0 17 "^" "ARP" 2 "^" "ARP" 7 "^" 0 21 "^" 0 8 "^" 0 2 "^" 0 4 "^" 0 19 "^" 0 18 "^" 0 14 "^" 0 15 "^" .1 1 "^" 0 20 "^" 0 26 Generated class for FileMan File Number: '79.2' File Name: 'IMAGING TYPE' Class generated by %fm2class version 2.56 This file contains, for each imaging type entry, parameters that the module uses during various stages of exam and report processing and inquiring. The parameter switches allow the 'customizing' of the module for each type of imaging. WARNING: ENTRIES SHOULD NOT BE DELETED FROM THIS FILE. Data Storage ------------ The data for the 'IMAGING TYPE' file is stored in the ^RA(79.2, global. At the present time this file is very static after day-one initialization is complete. However, it still should be journaled. It should also be translated if the operating system supports this function. Input Templates --------------- The following is a list of input templates used by the package and the entry in the OPTIONS file (#19) that uses the template: Compiled Name Routine Description; Option(s) ---- ------- ---------------------- RA IMAGE PARAMETERS Used to specify timeout seconds and whether the hardware system the module is running on is under fail-soft mode; RA FAILSOFT RA ON-LINE CRITERIA Used to indicate how long certain data should remain on file before it can be purged; RA PURGE If any modifications to these input templates are needed for local purposes, then great care should be taken not to degrade any branching logic in the template. Print Templates --------------- The following is a list of print templates used by the package: Name Description; Option(s) ---- ---------------------- RA ACTIVITY LOG Prints a list of the activity log entries for the imaging type; persistent _PUBLIC 0 RowId IMAGING_TYPE_79_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.142963461 67178,44710.34492657 right IMAGING TYPE 79.2 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '3' ABBREVIATION ASSOCIATED WITH THIS IMAGING TYPE This is the abbreviation associated with this type of imaging. It is between 1 and 4 characters in length and is used as a cross reference and for quick look ups. DO NOT CHANGE ABBREVIATIONS; changing abbreviations will cause problems between the Order Entry and Radiology/Nuc Med interface. %Library.String 10 ABBREVIATION FileMan Field Label: 'ACTIVITY LOG CUT-OFF' FileMan Field Number: '.11' ACTIVITY LOG CUT-OFF DATE This field contains the imaging type parameter that tells the purge routine of the module how many days to keep the various activity logs on-line. The amount of days is a whole number between 90 and 99999 and is determined at each site by the package coordinator and the computer site manager. %Library.Numeric 4 ACTIVITY_LOG_CUTOFF FileMan Field Label: 'CASE NUMBER TURNOVER DATE' FileMan Field Number: '26' DATE WHEN THE CASE NUMBERS ARE RESET This field contains the date the case numbers are scheduled to be recycled. This date will always be the next Sunday's date. %Library.FilemanDate 14 CASE_NUMBER_TURNOVER_DATE FileMan Field Label: 'CLINICAL HISTORY CUT-OFF' FileMan Field Number: '.13' CLINICAL HISTORY CUT-OFF DATE This field contains the imaging type parameter that tells the purge routine of the module how many days to keep the clinical history of the visit on-line. The amount of days is a whole number between 90 and 99999 and is determined by the package coordinator and the computer site manager. %Library.Numeric 6 CLINICAL_HISTORY_CUTOFF Internal Entry Number %Library.String $$next^%apiSQL("$p(^RA(79.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTRODUCTION TEXT' FileMan Field Number: '50' INTRODUCTION TEXT FOR THIS IMAGING TYPE This field provides a quick installation guide to be displayed when the rad/nuc med system is initialized or reinitialized. It describes aspects of the module to the site manager and how to proceed. %Library.String 15 INTRODUCTION_TEXT FileMan Field Label: 'NEXT CASE NUMBER' FileMan Field Number: '25' CASE NUMBER OF NEXT EXAM This field is used to contain the next available case number for this type of imaging. Case numbers are generated by the system in sequential order and are available for reuse the following week after the exam status becomes complete. Case numbers are recycled on Sunday at 12:01 AM. %Library.Numeric 13 NEXT_CASE_NUMBER FileMan Field Label: 'OPERATING CONDITIONS' FileMan Field Number: '4' OPERATING CONDITIONS IMAGING PARAMETER This field contains the hardware conditions parameter that tells the system the type of operating conditions that are in effect. The available conditions are: 'N' for normal and 'E' for emergency. Under NORMAL conditions, the system uses the parameters set up in the 'Imaging Locations' file to determine which input and printer devices to use. Under EMERGENCY conditions, the system ignores all the location parameters set up and the user is prompted for this information. %Library.EnumString 11 OPERATING_CONDITIONS FileMan Field Label: 'ORDER DATA CUT-OFF' FileMan Field Number: '.16' This field contains the imaging type parameter that tells the purge routine of the module how many days to keep the orders on-line. The amount of days is a whole number between 30 and 99999 and is determined by the package coordinator and the computer site manager. %Library.Numeric 9 ORDER_DATA_CUTOFF FileMan Field Label: 'PFSS Dept. Code' FileMan Field Number: '90' The 3 character numeric code represents the Department Code used by the PFSS project. %Library.String 16 PFSS_DEPT__CODE FileMan Field Label: '*PRE-REGISTER DATA CUT-OFF' FileMan Field Number: '.15' PRE-REGISTER DATA CUT-OFF DATE This field contains the imaging type parameter that tells the purge routine of the module how many days to keep the pre-register data on-line. The amount of days is a whole number between 90 and 9999 days and is determined at each site by the radiology coordinator and the computer site manager. %Library.Numeric 8 PREREGISTER_DATA_CUTOFF FileMan Field Label: 'RADIOPHARMACEUTICALS USED?' FileMan Field Number: '5' WILL RADIOPHARMACEUTICALS BE USED? This field is used to determine if radiopharmaceuticals will be used for this imaging type. If so, then the nuclear medicine logic paths of this software will be triggered at all appropriate points. %Library.EnumString 12 RADIOPHARMACEUTICALS_USED FileMan Field Label: 'REPORT CUT-OFF' FileMan Field Number: '.12' REPORT CUT-OFF DATE This field contains the imaging type parameter that tells the purge routine of the module how many days to keep the reports on-line. The report 'impression' will always stay on-line even after the reports are purged. The amount of days is a whole number between 90 and 99999 and is determined at each site by the package coordinator and the computer site manager. %Library.Numeric 5 REPORT_CUTOFF FileMan Field Label: 'TRACKING TIME CUT-OFF' FileMan Field Number: '.14' TRACKING TIME CUT-OFF DATE This field applies to sites that are using the tracking function of the system to record when the exam status changes from one status to another. It contains the imaging type parameter that tells the purge routine of the module how many days to keep the 'tracking time' information on-line. The amount of days is a whole number between 90 and 99999 and is determined at each site by the package coordinator and the computer site manager. %Library.Numeric 7 TRACKING_TIME_CUTOFF FileMan Field Label: 'TYPE OF IMAGING' FileMan Field Number: '.01' NAME OF THIS TYPE OF IMAGING This field contains the name of this type of imaging. DO NOT ADD, EDIT OR DELETE imaging type names; this will cause problems between the Radiology/Nuclear Med and Order Entry interface. %Library.String 1 3 TYPE_OF_IMAGING SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 17 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RA(79.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{TYPE_OF_IMAGING}'="" FDA(79.2,"+1,",.01)={"TYPE_OF_IMAGING"} set:{ACTIVITY_LOG_CUTOFF}'="" FDA(79.2,"+1,",.11)={"ACTIVITY_LOG_CUTOFF"} set:{REPORT_CUTOFF}'="" FDA(79.2,"+1,",.12)={"REPORT_CUTOFF"} set:{CLINICAL_HISTORY_CUTOFF}'="" FDA(79.2,"+1,",.13)={"CLINICAL_HISTORY_CUTOFF"} set:{TRACKING_TIME_CUTOFF}'="" FDA(79.2,"+1,",.14)={"TRACKING_TIME_CUTOFF"} set:{PREREGISTER_DATA_CUTOFF}'="" FDA(79.2,"+1,",.15)={"PREREGISTER_DATA_CUTOFF"} set:{ORDER_DATA_CUTOFF}'="" FDA(79.2,"+1,",.16)={"ORDER_DATA_CUTOFF"} set:{ABBREVIATION}'="" FDA(79.2,"+1,",3)={"ABBREVIATION"} set:{OPERATING_CONDITIONS}'="" FDA(79.2,"+1,",4)={"OPERATING_CONDITIONS"} set:{RADIOPHARMACEUTICALS_USED}'="" FDA(79.2,"+1,",5)={"RADIOPHARMACEUTICALS_USED"} set:{NEXT_CASE_NUMBER}'="" FDA(79.2,"+1,",25)={"NEXT_CASE_NUMBER"} set:{CASE_NUMBER_TURNOVER_DATE}'="" FDA(79.2,"+1,",26)={"CASE_NUMBER_TURNOVER_DATE"} set:{PFSS_DEPT__CODE}'="" FDA(79.2,"+1,",90)={"PFSS_DEPT__CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(79.2)") set %SkipFiling=1 if $d(%FMERR(79.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(79.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {INTRODUCTION_TEXT}'="" { set D0={RowId} for i=1:1:$l({INTRODUCTION_TEXT},$c(13,10)) { set wp(i)=$p({INTRODUCTION_TEXT},$c(13,10),i) } do WP^DIE(79.2,{RowId},50,,"wp","%FMERR(79.2)") if $d(%FMERR(79.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(79.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{TYPE_OF_IMAGING*C} FDA(79.2,IENS,.01)={TYPE_OF_IMAGING} set:{ACTIVITY_LOG_CUTOFF*C} FDA(79.2,IENS,.11)={ACTIVITY_LOG_CUTOFF} set:{REPORT_CUTOFF*C} FDA(79.2,IENS,.12)={REPORT_CUTOFF} set:{CLINICAL_HISTORY_CUTOFF*C} FDA(79.2,IENS,.13)={CLINICAL_HISTORY_CUTOFF} set:{TRACKING_TIME_CUTOFF*C} FDA(79.2,IENS,.14)={TRACKING_TIME_CUTOFF} set:{PREREGISTER_DATA_CUTOFF*C} FDA(79.2,IENS,.15)={PREREGISTER_DATA_CUTOFF} set:{ORDER_DATA_CUTOFF*C} FDA(79.2,IENS,.16)={ORDER_DATA_CUTOFF} set:{ABBREVIATION*C} FDA(79.2,IENS,3)={ABBREVIATION} set:{OPERATING_CONDITIONS*C} FDA(79.2,IENS,4)={OPERATING_CONDITIONS} set:{RADIOPHARMACEUTICALS_USED*C} FDA(79.2,IENS,5)={RADIOPHARMACEUTICALS_USED} set:{NEXT_CASE_NUMBER*C} FDA(79.2,IENS,25)={NEXT_CASE_NUMBER} set:{CASE_NUMBER_TURNOVER_DATE*C} FDA(79.2,IENS,26)={CASE_NUMBER_TURNOVER_DATE} set:{PFSS_DEPT__CODE*C} FDA(79.2,IENS,90)={PFSS_DEPT__CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(79.2)") set %SkipFiling=1 if $d(%FMERR(79.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(79.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {INTRODUCTION_TEXT*C} { set D0={RowId} kill wp if {INTRODUCTION_TEXT}'="" { set wproot="wp" for i=1:1:$l({INTRODUCTION_TEXT},$c(13,10)) { set wp(i)=$p({INTRODUCTION_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(79.2,{RowId},50,,wproot,"%FMERR(79.2)") if $d(%FMERR(79.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(79.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.IMAGINGTYPE792S index {OPERATING_CONDITIONS}'="" 1 ^RA conditional 79.2 "AC" $$TRUNCATE({OPERATING_CONDITIONS},30)) {IEN} 0]]> index ^RA nonnull 79.2 "B" {TYPE_OF_IMAGING} {IEN} 0]]> index ^RA nonnull 79.2 "C" {ABBREVIATION} {IEN} 0]]> data ^RA 79.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" .1 1 "^" "CN" 2 "^" .1 3 1 new data,i,node set {INTRODUCTION_TEXT}="" merge data=^RA(79.2,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INTRODUCTION_TEXT}={INTRODUCTION_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "CN" 1 "^" 0 4 "^" .1 6 "^" 0 6 "^" .1 5 "^" 0 5 "^" .1 2 "^" .1 4 "^" 0 1 Generated class for FileMan File Number: '393' File Name: 'INCOMPLETE RECORDS' Class generated by %fm2class version 2.56 This file is the main file for the Incomplete Records Tracking package IRT This is where all of the data is stored that will be displayed for each deficiency on the enter/edit screens and on all of the reports. persistent _PUBLIC 0 RowId INCOMPLETE_RECORDS_393 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.163962061 67178,44710.378626564 right INCOMPLETE RECORDS 393 2.56 12/04/2024 12:25:10 1 1 IEN 1 PATIENT_MOVEMENT_405]]> ADMISSION VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 FKey_ADMISSION NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN NEW_PERSON_200]]> DICTATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DICTATED_BY MEDICAL_CENTER_DIVISION_40_8]]> DIVISION VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 FKey_DIVISION HOSPITAL_LOCATION_44]]> LOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_LOCATION PATIENT_2]]> PATIENT VALIP.prosthetic.fm2cw.PATIENT2 FKey_PATIENT NEW_PERSON_200]]> PHYSICIANFORDEFICIENCY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PHYSICIAN_FOR_DEFICIENCY NEW_PERSON_200]]> PHYSICIANRESPONSIBLE VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PHYSICIAN_RESPONSIBLE NEW_PERSON_200]]> PRIMARYPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PHYSICIAN NEW_PERSON_200]]> REVIEWEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REVIEWED_BY MAS_SERVICE_393_1]]> SERVICE VALIP.prosthetic.fm2cw.MASSERVICE3931 FKey_SERVICE NEW_PERSON_200]]> SIGNEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SIGNED_BY FACILITY_TREATING_SPECIALTY_45_7]]> SPECIALTY VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 FKey_SPECIALTY IRT_STATUS_393_2]]> STATUS VALIP.prosthetic.fm2cw.IRTSTATUS3932 FKey_STATUS Foreign Key constraint for Variable Pointer reference field TRANSCRIBED_BY_PERSON TRANSCRIBEDBYPERSON VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_TRANSCRIBED_BY_PERSON Foreign Key constraint for Variable Pointer reference field TRANSCRIBED_BY_VENDOR TRANSCRIBEDBYVENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_TRANSCRIBED_BY_VENDOR IRT_TYPE_OF_DEFICIENCY_393_3]]> TYPEOFDEFICIENCY VALIP.prosthetic.fm2cw.IRTTYPEOFDEFICIENCY3933 FKey_TYPE_OF_DEFICIENCY FileMan Field Label: 'ADMISSION' FileMan Field Number: '.04' Enter the admission associated with this report. Enter nothing if this is an outpatient op report. VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 6 ADMISSION DATE/TIME MOVEMENT DATE/TIME Enter in this field the date/time of the movement (admission, transfer, discharge, treating specialty transfer, lodger check-in, or lodger check- out). Time must be included.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {ADMISSION_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ADMISSION_DATETIME 1 FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '.1' Enter the physician responsible for reviewing this summary (if applicable). VALIP.prosthetic.fm2cw.NEWPERSON200 12 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'COMMENTS' FileMan Field Number: '20.01' This field is a free text field that the user may add any comments that they need to, in regards to the deficiency. Each deficiency has a comment field. %Library.String 28 COMMENTS FileMan Field Label: 'DATE DICTATED' FileMan Field Number: '10.01' Enter the date on which this record was dictated. Time of day may also be entered. %Library.FilemanTimeStamp 17 DATE_DICTATED FileMan Field Label: 'DATE REVIEWED' FileMan Field Number: '10.07' Enter the date on which this summary or op report was reviewed. Entry of a review date/reviewer is optional. %Library.FilemanTimeStamp 26 DATE_REVIEWED FileMan Field Label: 'DATE SIGNED' FileMan Field Number: '10.05' Enter the date on which this summary was signed by the responsible provider. %Library.FilemanTimeStamp 24 DATE_SIGNED FileMan Field Label: 'DATE TRANSCRIBED' FileMan Field Number: '10.03' Enter the date (or date/time) on which this report was transcribed. %Library.FilemanTimeStamp 19 DATE_TRANSCRIBED FileMan Field Label: 'DICTATED BY' FileMan Field Number: '10.02' Enter the user responsible for dictation of this summary or op report. VALIP.prosthetic.fm2cw.NEWPERSON200 18 DICTATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {DICTATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DICTATED_BY_NAME 1 FileMan Field Label: 'DIVISION' FileMan Field Number: '.06' Enter the division at which this event took place. Will initially be determined by the WARD field. VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 8 DIVISION NAME Enter in this field the name of a division at your facility. It may be the main building, a satelite clinic, a domiciliary, or a nursing home.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {DIVISION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIVISION_NAME 1 FileMan Field Label: 'EVENT DATE' FileMan Field Number: '.03' Enter the date of the event (discharge date for discharge summaries, date of summary for interim summaries, or date of surgery for op reports). %Library.FilemanTimeStamp 5 EVENT_DATE Internal Entry Number %Library.String $$next^%apiSQL("$p(^VAS(393,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INPATIENT REPORT?' FileMan Field Number: '.13' Enter 1 if this report is for an inpatient episode. Enter 0 if it is an outpatient op report. %Library.EnumString 15 INPATIENT_REPORT FileMan Field Label: 'LOCATION' FileMan Field Number: '.05' Enter the location of the patient at the time of the event (discharge operation or interim summary. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 7 LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOCATION_NAME 1 FileMan Field Label: 'PATIENT' FileMan Field Number: '.01' Enter the patient for which this summary or op report has been recorded. VALIP.prosthetic.fm2cw.PATIENT2 1 3 PATIENT NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME 1 FileMan Field Label: 'PHYSICIAN FOR DEFICIENCY' FileMan Field Number: '.14' This field contains the name of the physician that is responsible for the deficiency at the present time. This field changes whenever an action is taken against a deficiency and the status changes. This field will be displayed on all the IRT reports as well as all of the enter/edit screens. VALIP.prosthetic.fm2cw.NEWPERSON200 16 PHYSICIAN_FOR_DEFICIENCY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {PHYSICIAN_FOR_DEFICIENCY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PHYSICIAN_FOR_DEFICIENCY_NAME 1 FileMan Field Label: 'PHYSICIAN RESPONSIBLE' FileMan Field Number: '.12' This is the physician that is responsible for the dictation of the report. VALIP.prosthetic.fm2cw.NEWPERSON200 14 PHYSICIAN_RESPONSIBLE NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {PHYSICIAN_RESPONSIBLE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PHYSICIAN_RESPONSIBLE_NAME 1 FileMan Field Label: 'PRIMARY PHYSICIAN' FileMan Field Number: '.09' Enter the physician responsible for the patient... usually the physician that will be responsible for the dictation of the summary or report. VALIP.prosthetic.fm2cw.NEWPERSON200 11 PRIMARY_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {PRIMARY_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PHYSICIAN_NAME 1 FileMan Field Label: 'REVIEWED BY' FileMan Field Number: '10.08' Enter the name of the individual responsible for reviewing the signed summary or op report. VALIP.prosthetic.fm2cw.NEWPERSON200 27 REVIEWED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {REVIEWED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REVIEWED_BY_NAME 1 FileMan Field Label: 'SERVICE' FileMan Field Number: '.08' Enter the service responsible for filing this report. This field will be used to generate reports that are incomplete by service. VALIP.prosthetic.fm2cw.MASSERVICE3931 10 SERVICE NAME This field contains the name of the MAS SERVICES. It contains the service names for both inpatient wards as well as outpatient clinics.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_NAME 1 FileMan Field Label: 'SIGNED BY' FileMan Field Number: '10.06' Enter in this field the name of the provider that signed this summary or op report. VALIP.prosthetic.fm2cw.NEWPERSON200 25 SIGNED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {SIGNED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SIGNED_BY_NAME 1 FileMan Field Label: 'SPECIALTY' FileMan Field Number: '.07' Enter the treating specialty the patient had at the time of this event. VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 9 SPECIALTY NAME Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SPECIALTY_NAME 1 FileMan Field Label: 'STATUS' FileMan Field Number: '.11' Enter the status of this report at the present time. VALIP.prosthetic.fm2cw.IRTSTATUS3932 13 STATUS NAME This is the name of the status that a IRT record must go through on its way to being completed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {STATUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATUS_NAME 1 FileMan Field Label: 'TRANSCRIBED BY' FileMan Field Number: '10.04' Enter the person or vendor that transcribed this report. %Library.String 20 1 TRANSCRIBEDBYPERSON,TRANSCRIBEDBYVENDOR TRANSCRIBED_BY Variable Pointer Reference Field for Pointer field PERSON 'NEW PERSON' VALIP.prosthetic.fm2cw.NEWPERSON200 21 1 TRANSCRIBED_BY_PERSON NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {TRANSCRIBED_BY_PERSON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TRANSCRIBED_BY_PERSON_NAME 1 Variable Pointer Value Field for Pointer field TRANSCRIBED_BY %Library.String 1 23 if {TRANSCRIBED_BY_PERSON_NAME}'="" { set {*}={TRANSCRIBED_BY_PERSON_NAME} quit } if {TRANSCRIBED_BY_VENDOR_NAME}'="" { set {*}={TRANSCRIBED_BY_VENDOR_NAME} quit } set {*}="" 1 TRANSCRIBED_BY_VALUE Variable Pointer Reference Field for Pointer field VENDOR 'VENDOR' VALIP.prosthetic.fm2cw.VENDOR440 22 1 TRANSCRIBED_BY_VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {TRANSCRIBED_BY_VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TRANSCRIBED_BY_VENDOR_NAME 1 FileMan Field Label: 'TYPE OF DEFICIENCY' FileMan Field Number: '.02' Enter the type of deficiency that is being tracked. VALIP.prosthetic.fm2cw.IRTTYPEOFDEFICIENCY3933 4 TYPE_OF_DEFICIENCY NAME This field contains the names of the reports or Items that will be tracked by the IRT package.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INCOMPLETE_RECORDS_393 where %ID=:id) set {TYPE_OF_DEFICIENCY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_OF_DEFICIENCY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 29 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^VAS(393," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{PATIENT}'="" FDA(393,"+1,",.01)={"PATIENT"} set:{TYPE_OF_DEFICIENCY}'="" FDA(393,"+1,",.02)={"TYPE_OF_DEFICIENCY"} set:{EVENT_DATE}'="" FDA(393,"+1,",.03)={"EVENT_DATE"} set:{ADMISSION}'="" FDA(393,"+1,",.04)={"ADMISSION"} set:{LOCATION}'="" FDA(393,"+1,",.05)={"LOCATION"} set:{DIVISION}'="" FDA(393,"+1,",.06)={"DIVISION"} set:{SPECIALTY}'="" FDA(393,"+1,",.07)={"SPECIALTY"} set:{SERVICE}'="" FDA(393,"+1,",.08)={"SERVICE"} set:{PRIMARY_PHYSICIAN}'="" FDA(393,"+1,",.09)={"PRIMARY_PHYSICIAN"} set:{ATTENDING_PHYSICIAN}'="" FDA(393,"+1,",.1)={"ATTENDING_PHYSICIAN"} set:{STATUS}'="" FDA(393,"+1,",.11)={"STATUS"} set:{PHYSICIAN_RESPONSIBLE}'="" FDA(393,"+1,",.12)={"PHYSICIAN_RESPONSIBLE"} set:{INPATIENT_REPORT}'="" FDA(393,"+1,",.13)={"INPATIENT_REPORT"} set:{PHYSICIAN_FOR_DEFICIENCY}'="" FDA(393,"+1,",.14)={"PHYSICIAN_FOR_DEFICIENCY"} set:{DATE_DICTATED}'="" FDA(393,"+1,",10.01)={"DATE_DICTATED"} set:{DICTATED_BY}'="" FDA(393,"+1,",10.02)={"DICTATED_BY"} set:{DATE_TRANSCRIBED}'="" FDA(393,"+1,",10.03)={"DATE_TRANSCRIBED"} set:{TRANSCRIBED_BY}'="" FDA(393,"+1,",10.04)={"TRANSCRIBED_BY"} set:{DATE_SIGNED}'="" FDA(393,"+1,",10.05)={"DATE_SIGNED"} set:{SIGNED_BY}'="" FDA(393,"+1,",10.06)={"SIGNED_BY"} set:{DATE_REVIEWED}'="" FDA(393,"+1,",10.07)={"DATE_REVIEWED"} set:{REVIEWED_BY}'="" FDA(393,"+1,",10.08)={"REVIEWED_BY"} set:{COMMENTS}'="" FDA(393,"+1,",20.01)={"COMMENTS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(393)") set %SkipFiling=1 if $d(%FMERR(393,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{PATIENT*C} FDA(393,IENS,.01)={PATIENT} set:{TYPE_OF_DEFICIENCY*C} FDA(393,IENS,.02)={TYPE_OF_DEFICIENCY} set:{EVENT_DATE*C} FDA(393,IENS,.03)={EVENT_DATE} set:{ADMISSION*C} FDA(393,IENS,.04)={ADMISSION} set:{LOCATION*C} FDA(393,IENS,.05)={LOCATION} set:{DIVISION*C} FDA(393,IENS,.06)={DIVISION} set:{SPECIALTY*C} FDA(393,IENS,.07)={SPECIALTY} set:{SERVICE*C} FDA(393,IENS,.08)={SERVICE} set:{PRIMARY_PHYSICIAN*C} FDA(393,IENS,.09)={PRIMARY_PHYSICIAN} set:{ATTENDING_PHYSICIAN*C} FDA(393,IENS,.1)={ATTENDING_PHYSICIAN} set:{STATUS*C} FDA(393,IENS,.11)={STATUS} set:{PHYSICIAN_RESPONSIBLE*C} FDA(393,IENS,.12)={PHYSICIAN_RESPONSIBLE} set:{INPATIENT_REPORT*C} FDA(393,IENS,.13)={INPATIENT_REPORT} set:{PHYSICIAN_FOR_DEFICIENCY*C} FDA(393,IENS,.14)={PHYSICIAN_FOR_DEFICIENCY} set:{DATE_DICTATED*C} FDA(393,IENS,10.01)={DATE_DICTATED} set:{DICTATED_BY*C} FDA(393,IENS,10.02)={DICTATED_BY} set:{DATE_TRANSCRIBED*C} FDA(393,IENS,10.03)={DATE_TRANSCRIBED} set:{TRANSCRIBED_BY*C} FDA(393,IENS,10.04)={TRANSCRIBED_BY} set:{DATE_SIGNED*C} FDA(393,IENS,10.05)={DATE_SIGNED} set:{SIGNED_BY*C} FDA(393,IENS,10.06)={SIGNED_BY} set:{DATE_REVIEWED*C} FDA(393,IENS,10.07)={DATE_REVIEWED} set:{REVIEWED_BY*C} FDA(393,IENS,10.08)={REVIEWED_BY} set:{COMMENTS*C} FDA(393,IENS,20.01)={COMMENTS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(393)") set %SkipFiling=1 if $d(%FMERR(393,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.INCOMPLETER9E3BS index ^VAS nonnull 393 "AC" {SERVICE} {IEN} 0]]> index ^VAS nonnull 393 "ADM" {ADMISSION} {IEN} 0]]> index ^VAS nonnull 393 "B" {PATIENT} {IEN} 0]]> index ^VAS nonnull 393 "C" {EVENT_DATE} {IEN} 0]]> data ^VAS 393 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 10 "^" "MSG" 1 "^" "DT" 1 "^" "DT" 7 "^" "DT" 5 "^" "DT" 3 "^" "DT" 2 "^" 0 6 "^" 0 3 "^" 0 13 "^" 0 5 "^" 0 1 "^" 0 14 "^" 0 12 "^" 0 9 "^" "DT" 8 "^" 0 8 "^" "DT" 6 "^" 0 7 "^" 0 11 "^" "DT" 4 If $p($p($g(^VAS({S1},{S2},"DT")),"^",4),";",2,999)'="VA(200," s {TRANSCRIBED_BY_PERSON}="" Quit s {TRANSCRIBED_BY_PERSON}=$p($p($g(^VAS({S1},{S2},"DT")),"^",4),";") If $p($p($g(^VAS({S1},{S2},"DT")),"^",4),";",2,999)'="PRC(440," s {TRANSCRIBED_BY_VENDOR}="" Quit s {TRANSCRIBED_BY_VENDOR}=$p($p($g(^VAS({S1},{S2},"DT")),"^",4),";") "^" 0 2 Generated class for FileMan File Number: '694.1' File Name: 'INDICATION' Class generated by %fm2class version 2.56 This file holds the indication for procedures for the various medical procedures. persistent _PUBLIC 0 RowId INDICATION_694_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.176936272 67178,44710.422016299 right INDICATION 694.1 2.56 12/04/2024 12:25:10 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(694.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDICATION' FileMan Field Number: '.01' This field contains a list of indications for procedures used by various modules and sub-modules of the medicine package. %Library.String 1 3 INDICATION Relationship for Sub-File/Multiple to file name MEDICAL TYPE child VALIP.prosthetic.fm2cw.SUBMEDICALTYPE69411 children INDICATION6941 1 SUB_MEDICAL_TYPE_694_11 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(694.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{INDICATION}'="" FDA(694.1,"+1,",.01)={"INDICATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(694.1)") set %SkipFiling=1 if $d(%FMERR(694.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{INDICATION*C} FDA(694.1,IENS,.01)={INDICATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.1)") set %SkipFiling=1 if $d(%FMERR(694.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(694.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.INDICATION6941S index ^MCAR nonnull 694.1 "B" {INDICATION} {IEN} 0]]> data ^MCAR 694.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '4' File Name: 'INSTITUTION' Class generated by %fm2class version 2.56 This file contains a listing of VA institutions. It is cross-referenced by name and station number. The Number field is no longer meaningful (it had previously referenced the station number). persistent _PUBLIC 0 RowId INSTITUTION_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.207015965 67178,44710.479474712 right INSTITUTION 4 2.56 12/04/2024 12:25:10 1 1 IEN 1 COUNTRY_CODE_779_004]]> COUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_COUNTRY DOMAIN_4_2]]> DOMAIN60 VALIP.prosthetic.fm2cw.DOMAIN42 FKey_DOMAIN60 FACILITY_TYPE_4_1]]> FACILITYTYPE VALIP.prosthetic.fm2cw.FACILITYTYPE41 FKey_FACILITY_TYPE WORLD_TIMEZONES_1_71]]> LOCATIONTIMEZONE VALIP.prosthetic.fm2cw.WORLDTIMEZONES171 FKey_LOCATION_TIMEZONE AGENCY_4_11]]> POINTERTOAGENCY VALIP.prosthetic.fm2cw.AGENCY411 FKey_POINTER_TO_AGENCY INSTITUTION_4]]> REPORTINGSTATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_REPORTING_STATION STATE_5]]> STATE VALIP.prosthetic.fm2cw.STATE5 FKey_STATE STATE_5]]> STATEMAILING VALIP.prosthetic.fm2cw.STATE5 FKey_STATE_MAILING FileMan Field Label: 'ACOS HOSPITAL ID' FileMan Field Number: '51' American College of Surgeons Hospital ID This field holds the six-digit code assigned to this facility by the American College of Surgeons (ACOS) Commission on Cancer, the organization that accredits a hospital's Cancer Program and Tumor Registry. A facility will only have an ACOS number if they have requested a Cancer Program survey from the ACOS (not all facilities will have a number). %Library.String 22 ACOS_HOSPITAL_ID FileMan Field Label: 'AGENCY CODE' FileMan Field Number: '95' A code to identify the Government agency that this site belongs to. This is a duplicate of the POINTER TO AGENCY field. %Library.EnumString 26 AGENCY_CODE FileMan Field Label: 'BILLING FACILITY NAME' FileMan Field Number: '200' This field is the billing facility name populated with the GOLD STANDARD NAME provided by the CBO and required for pharmacies, CBOC's, VAMC's, etc - Anything that could be identified as a Billing Facility (Billing Provider) for billing in VistA. This new field is not editable locally (same as the .01 and 100 fields). Updates would be managed through Forum and the Master File Update mechanisms only. %Library.String 33 BILLING_FACILITY_NAME FileMan Field Label: 'CERNER' FileMan Field Number: '102' This field indicates if a facility has been converted to CERNER. %Library.EnumString 32 CERNER FileMan Field Label: 'CITY' FileMan Field Number: '1.03' The city the facility is physically located. %Library.String 11 CITY FileMan Field Label: 'CITY (MAILING)' FileMan Field Number: '4.03' The City of the facility's mailing address. %Library.String 15 CITY_MAILING FileMan Field Label: 'COUNTRY' FileMan Field Number: '801' Country of this location VALIP.prosthetic.fm2cw.COUNTRYCODE779004 36 COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 COUNTRY_CODE 1 FileMan Field Label: 'CURRENT LOCATION' FileMan Field Number: '720' This field flags entries for use in the Event Capture software. '1' for 'YES' (ACTIVE) '0' for 'NO' (INACTIVE) %Library.EnumString 34 CURRENT_LOCATION FileMan Field Label: 'DISTRICT' FileMan Field Number: '.03' This is the Medical District of the Institution file. Therefore it is not to be changed except by appropriately knowledgeable individuals. %Library.Numeric 5 DISTRICT FileMan Field Label: 'DOMAIN' FileMan Field Number: '60' A pointer to the domain so the institution can be linked to a E-mail domain. VALIP.prosthetic.fm2cw.DOMAIN42 25 DOMAIN60 NAME The exact name of the domain, as used in network addressing This name is the exact name of the domain, as used in network addressing. It consists of "." (dot) pieces that are formed hierarchically starting at the right. Domains with dot pieces to the left are administered by the domain whose domain name consists of its name less the 1st dot piece. For example: A.DOMAIN.COM is administered by DOMAIN.COM. The domain name may be from 1 to 64 characters. Each dot piece may be up to 20 characters, and must begin with an alpha or numeric, and be composed of only alpha, numeric, or "-" characters.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {DOMAIN60_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DOMAIN60_NAME 1 FileMan Field Label: 'FACILITY DEA EXPIRATION DATE' FileMan Field Number: '52.1' This field contains the expiration date for DEA#. %Library.FilemanDate 24 FACILITY_DEA_EXPIRATION_DATE FileMan Field Label: 'FACILITY DEA NUMBER' FileMan Field Number: '52' This field holds the facility DEA number. This allows house officers who do not have their own DEA # to use a VA # for Digital Signatures. %Library.String 23 FACILITY_DEA_NUMBER FileMan Field Label: 'FACILITY TYPE' FileMan Field Number: '13' The type of facility. A replacement for the type field. VALIP.prosthetic.fm2cw.FACILITYTYPE41 20 FACILITY_TYPE NAME Type Code This is the Facility type code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {FACILITY_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FACILITY_TYPE_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE FACILITY FLAG' FileMan Field Number: '101' %Library.EnumString 31 INACTIVE_FACILITY_FLAG FileMan Field Label: 'LOCATION TIMEZONE' FileMan Field Number: '800' This is the timezone of this specific location. VALIP.prosthetic.fm2cw.WORLDTIMEZONES171 35 LOCATION_TIMEZONE NAME This is the name of the timezone.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {LOCATION_TIMEZONE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOCATION_TIMEZONE_NAME 1 FileMan Field Label: 'MULTI-DIVISION FACILITY' FileMan Field Number: '5' Flag to indicate this is a multi-division facility. %Library.EnumString 18 MULTIDIVISION_FACILITY FileMan Field Label: 'NAME' FileMan Field Number: '.01' INSTITUTION NAME This is the name of the institution with out modifiers like state or type. %Library.String 1 3 NAME FileMan Field Label: 'NPI' FileMan Field Number: '41.99' Current Unique National Provider ID. A unique meaningless integer assigned to providers. %Library.String 21 NPI FileMan Field Label: 'OFFICIAL VA NAME' FileMan Field Number: '100' This field holds the Offical VA name for this VA facility. The value in this field should not be changed by the site. %Library.String 30 OFFICIAL_VA_NAME FileMan Field Label: 'POINTER TO AGENCY' FileMan Field Number: '97' A pointer to a file that identifies the government agency that this site belongs to. Keep in sync with the Agency code field. VALIP.prosthetic.fm2cw.AGENCY411 28 POINTER_TO_AGENCY NAME The name of the agency.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {POINTER_TO_AGENCY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 POINTER_TO_AGENCY_NAME 1 FileMan Field Label: 'REGION' FileMan Field Number: '.07' VA region number. %Library.Numeric 8 REGION FileMan Field Label: 'REPORTING STATION' FileMan Field Number: '96' This is a pointer back to the Institution file that indicates the site that does the reporting to VACO. VALIP.prosthetic.fm2cw.INSTITUTION4 27 REPORTING_STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {REPORTING_STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REPORTING_STATION_NAME 1 FileMan Field Label: 'SHORT NAME' FileMan Field Number: '.05' Short version of name. %Library.String 6 SHORT_NAME FileMan Field Label: 'STATE' FileMan Field Number: '.02' State that the institution is physically located. VALIP.prosthetic.fm2cw.STATE5 4 STATE FileMan Field Label: 'STATE (MAILING)' FileMan Field Number: '4.04' The State of the facility's mailing address. VALIP.prosthetic.fm2cw.STATE5 16 STATE_MAILING NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {STATE_MAILING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_MAILING_NAME 1 NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.INSTITUTION_4 where %ID=:id) set {STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_NAME 1 FileMan Field Label: 'STATION NUMBER' FileMan Field Number: '99' This is the 3 digit station number plus any modifiers. %Library.String 29 STATION_NUMBER FileMan Field Label: 'STATUS' FileMan Field Number: '11' An Institution has a STATUS (#11) of either LOCAL or NATIONAL. Inactive facilities are flagged as such by the field INACTIVE FACILITY FLAG (#101). National entries are facilities that have a STATION NUMBER (#99) approved by Information Management Service (045A4). National entries are maintained by the Master File Server located on FORUM. Local entries are facilities that are entered locally. Local entries no not have a STATION NUMBER (#99). (Only offically approved station numbers are allowed in the STATION NUMBER (#99) field.) All national entries will have a STATUS (#11) of NATIONAL. Do not edit the STATUS (#11) of a national entry. Do not set a LOCAL entry to a STATUS (#11) of NATIONAL. %Library.EnumString 19 STATUS FileMan Field Label: 'STREET ADDR. 1' FileMan Field Number: '1.01' First line of the street address (physical) of the facility. %Library.String 9 STREET_ADDR__1 FileMan Field Label: 'STREET ADDR. 2' FileMan Field Number: '1.02' Second line of street address (physical) of the facility. %Library.String 10 STREET_ADDR__2 FileMan Field Label: 'ST. ADDR. 1 (MAILING)' FileMan Field Number: '4.01' First line of the street address (mailing) of the facility. %Library.String 13 ST__ADDR__1_MAILING FileMan Field Label: 'ST. ADDR. 2 (MAILING)' FileMan Field Number: '4.02' Second line of the street address (mailing) of the facility. %Library.String 14 ST__ADDR__2_MAILING Relationship for Sub-File/Multiple to file name ASSOCIATIONS child VALIP.prosthetic.fm2cw.SUBASSOCIATIONS4014 children INSTITUTION4 1 SUB_ASSOCIATIONS_4_014 Relationship for Sub-File/Multiple to file name CONTACT child VALIP.prosthetic.fm2cw.SUBCONTACT403 children INSTITUTION4 1 SUB_CONTACT_4_03 Relationship for Sub-File/Multiple to file name EFFECTIVE DATE/TIME child VALIP.prosthetic.fm2cw.SUBEFFECTIVEDATETIME4042 children INSTITUTION4 1 SUB_EFFECTIVE_DATETIME_4_042 Relationship for Sub-File/Multiple to file name HISTORY child VALIP.prosthetic.fm2cw.SUBHISTORY4999 children INSTITUTION4 1 SUB_HISTORY_4_999 Relationship for Sub-File/Multiple to file name IDENTIFIER child VALIP.prosthetic.fm2cw.SUBIDENTIFIER49999 children INSTITUTION4 1 SUB_IDENTIFIER_4_9999 Relationship for Sub-File/Multiple to file name TAXONOMY CODE child VALIP.prosthetic.fm2cw.SUBTAXONOMYCODE4043 children INSTITUTION4 1 SUB_TAXONOMY_CODE_4_043 FileMan Field Label: 'TIMEZONE EXCEPTION' FileMan Field Number: '802' This location does not follow the timezone and country timeframe changes therefore only follows STANDARD time. Example: Some locations in the USA do not follow the change to DAYLIGHT SAVINGS but remain STANDARD all year long. Those locations would need this exception defined. Puerto Rico's timezone is Atlantic which is also used by Canada, Dominican Republic, and Bermuda. Canada and Bermuda change timeframes and Puerto Rico and Dominican Republic do not. A location in Puerto Rico or Dominican Republic would need to have the exception field set to SST only. %Library.EnumString 37 TIMEZONE_EXCEPTION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 38 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VA TYPE CODE' FileMan Field Number: '.06' This field is being replaced by the Facitily type field. %Library.EnumString 7 VA_TYPE_CODE FileMan Field Label: 'ZIP' FileMan Field Number: '1.04' Postal ZIP code for the physical address of the facility. %Library.String 12 ZIP FileMan Field Label: 'ZIP (MAILING)' FileMan Field Number: '4.05' Postal ZIP code for the mailing address of the facility. %Library.String 17 ZIP_MAILING BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(4,"+1,",.01)={"NAME"} set:{STATE}'="" FDA(4,"+1,",.02)={"STATE"} set:{DISTRICT}'="" FDA(4,"+1,",.03)={"DISTRICT"} set:{SHORT_NAME}'="" FDA(4,"+1,",.05)={"SHORT_NAME"} set:{VA_TYPE_CODE}'="" FDA(4,"+1,",.06)={"VA_TYPE_CODE"} set:{REGION}'="" FDA(4,"+1,",.07)={"REGION"} set:{STREET_ADDR__1}'="" FDA(4,"+1,",1.01)={"STREET_ADDR__1"} set:{STREET_ADDR__2}'="" FDA(4,"+1,",1.02)={"STREET_ADDR__2"} set:{CITY}'="" FDA(4,"+1,",1.03)={"CITY"} set:{ZIP}'="" FDA(4,"+1,",1.04)={"ZIP"} set:{ST__ADDR__1_MAILING}'="" FDA(4,"+1,",4.01)={"ST__ADDR__1_MAILING"} set:{ST__ADDR__2_MAILING}'="" FDA(4,"+1,",4.02)={"ST__ADDR__2_MAILING"} set:{CITY_MAILING}'="" FDA(4,"+1,",4.03)={"CITY_MAILING"} set:{STATE_MAILING}'="" FDA(4,"+1,",4.04)={"STATE_MAILING"} set:{ZIP_MAILING}'="" FDA(4,"+1,",4.05)={"ZIP_MAILING"} set:{MULTIDIVISION_FACILITY}'="" FDA(4,"+1,",5)={"MULTIDIVISION_FACILITY"} set:{STATUS}'="" FDA(4,"+1,",11)={"STATUS"} set:{FACILITY_TYPE}'="" FDA(4,"+1,",13)={"FACILITY_TYPE"} set:{NPI}'="" FDA(4,"+1,",41.99)={"NPI"} set:{ACOS_HOSPITAL_ID}'="" FDA(4,"+1,",51)={"ACOS_HOSPITAL_ID"} set:{FACILITY_DEA_NUMBER}'="" FDA(4,"+1,",52)={"FACILITY_DEA_NUMBER"} set:{FACILITY_DEA_EXPIRATION_DATE}'="" FDA(4,"+1,",52.1)={"FACILITY_DEA_EXPIRATION_DATE"} set:{DOMAIN60}'="" FDA(4,"+1,",60)={"DOMAIN60"} set:{AGENCY_CODE}'="" FDA(4,"+1,",95)={"AGENCY_CODE"} set:{REPORTING_STATION}'="" FDA(4,"+1,",96)={"REPORTING_STATION"} set:{POINTER_TO_AGENCY}'="" FDA(4,"+1,",97)={"POINTER_TO_AGENCY"} set:{STATION_NUMBER}'="" FDA(4,"+1,",99)={"STATION_NUMBER"} set:{OFFICIAL_VA_NAME}'="" FDA(4,"+1,",100)={"OFFICIAL_VA_NAME"} set:{INACTIVE_FACILITY_FLAG}'="" FDA(4,"+1,",101)={"INACTIVE_FACILITY_FLAG"} set:{CERNER}'="" FDA(4,"+1,",102)={"CERNER"} set:{BILLING_FACILITY_NAME}'="" FDA(4,"+1,",200)={"BILLING_FACILITY_NAME"} set:{CURRENT_LOCATION}'="" FDA(4,"+1,",720)={"CURRENT_LOCATION"} set:{LOCATION_TIMEZONE}'="" FDA(4,"+1,",800)={"LOCATION_TIMEZONE"} set:{COUNTRY}'="" FDA(4,"+1,",801)={"COUNTRY"} set:{TIMEZONE_EXCEPTION}'="" FDA(4,"+1,",802)={"TIMEZONE_EXCEPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(4)") set %SkipFiling=1 if $d(%FMERR(4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(4,IENS,.01)={NAME} set:{STATE*C} FDA(4,IENS,.02)={STATE} set:{DISTRICT*C} FDA(4,IENS,.03)={DISTRICT} set:{SHORT_NAME*C} FDA(4,IENS,.05)={SHORT_NAME} set:{VA_TYPE_CODE*C} FDA(4,IENS,.06)={VA_TYPE_CODE} set:{REGION*C} FDA(4,IENS,.07)={REGION} set:{STREET_ADDR__1*C} FDA(4,IENS,1.01)={STREET_ADDR__1} set:{STREET_ADDR__2*C} FDA(4,IENS,1.02)={STREET_ADDR__2} set:{CITY*C} FDA(4,IENS,1.03)={CITY} set:{ZIP*C} FDA(4,IENS,1.04)={ZIP} set:{ST__ADDR__1_MAILING*C} FDA(4,IENS,4.01)={ST__ADDR__1_MAILING} set:{ST__ADDR__2_MAILING*C} FDA(4,IENS,4.02)={ST__ADDR__2_MAILING} set:{CITY_MAILING*C} FDA(4,IENS,4.03)={CITY_MAILING} set:{STATE_MAILING*C} FDA(4,IENS,4.04)={STATE_MAILING} set:{ZIP_MAILING*C} FDA(4,IENS,4.05)={ZIP_MAILING} set:{MULTIDIVISION_FACILITY*C} FDA(4,IENS,5)={MULTIDIVISION_FACILITY} set:{STATUS*C} FDA(4,IENS,11)={STATUS} set:{FACILITY_TYPE*C} FDA(4,IENS,13)={FACILITY_TYPE} set:{NPI*C} FDA(4,IENS,41.99)={NPI} set:{ACOS_HOSPITAL_ID*C} FDA(4,IENS,51)={ACOS_HOSPITAL_ID} set:{FACILITY_DEA_NUMBER*C} FDA(4,IENS,52)={FACILITY_DEA_NUMBER} set:{FACILITY_DEA_EXPIRATION_DATE*C} FDA(4,IENS,52.1)={FACILITY_DEA_EXPIRATION_DATE} set:{DOMAIN60*C} FDA(4,IENS,60)={DOMAIN60} set:{AGENCY_CODE*C} FDA(4,IENS,95)={AGENCY_CODE} set:{REPORTING_STATION*C} FDA(4,IENS,96)={REPORTING_STATION} set:{POINTER_TO_AGENCY*C} FDA(4,IENS,97)={POINTER_TO_AGENCY} set:{STATION_NUMBER*C} FDA(4,IENS,99)={STATION_NUMBER} set:{OFFICIAL_VA_NAME*C} FDA(4,IENS,100)={OFFICIAL_VA_NAME} set:{INACTIVE_FACILITY_FLAG*C} FDA(4,IENS,101)={INACTIVE_FACILITY_FLAG} set:{CERNER*C} FDA(4,IENS,102)={CERNER} set:{BILLING_FACILITY_NAME*C} FDA(4,IENS,200)={BILLING_FACILITY_NAME} set:{CURRENT_LOCATION*C} FDA(4,IENS,720)={CURRENT_LOCATION} set:{LOCATION_TIMEZONE*C} FDA(4,IENS,800)={LOCATION_TIMEZONE} set:{COUNTRY*C} FDA(4,IENS,801)={COUNTRY} set:{TIMEZONE_EXCEPTION*C} FDA(4,IENS,802)={TIMEZONE_EXCEPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4)") set %SkipFiling=1 if $d(%FMERR(4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.INSTITUTION4S index {NPI}'="" 1 ^DIC conditional 4 "ANPI" $$TRUNCATE({NPI},30)) {IEN} 0]]> index ^DIC nonnull 4 "B" {NAME} {IEN} 0]]> index {OFFICIAL_VA_NAME}'="" 1 ^DIC conditional 4 "C" $$TRUNCATE({OFFICIAL_VA_NAME},30)) {IEN} 0]]> data ^DIC 4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 5 1 "^" 99 5 "^" 99 2 "^" 102 1 "^" 1 3 "^" 4 3 "^" 8 2 "^" "EC" 1 "^" 0 3 "^" 6 1 "^" "DEA" 2 "^" "DEA" 1 "^" 3 1 "^" 99 4 "^" 8 1 "^" "DIV" 1 "^" 0 1 "^" "NPI" 1 "^" 99 3 "^" 99 7 "^" 0 7 "^" 99 6 "^" 0 5 "^" 0 2 "^" 4 4 "^" 99 1 "^" 0 11 "^" 1 1 "^" 1 2 "^" 4 1 "^" 4 2 "^" 8 3 "^" 0 6 "^" 1 4 "^" 4 5 index ^DIC nonnull 4 "XUMF" {STATUS} {IEN} 0]]> Generated class for FileMan File Number: '4.05' File Name: 'INSTITUTION ASSOCIATION TYPES' Class generated by %fm2class version 2.56 This file is used to link entries in the Institution file into associations that are meaningful. persistent _PUBLIC 0 RowId INSTITUTION_ASSOCIATION_TYPES_4_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.184838399 67178,44710.524906557 right INSTITUTION ASSOCIATION TYPES 4.05 2.56 12/04/2024 12:25:10 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(4.05,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' Institution Associations Types can be uniquely identified by number throughout the VHA in VistA. %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(4.05," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(4.05,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(4.05)") set %SkipFiling=1 if $d(%FMERR(4.05,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.05)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(4.05,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.05)") set %SkipFiling=1 if $d(%FMERR(4.05,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.05)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.INSTITUTIONC63CS index ^DIC nonnull 4.05 "B" {NAME} {IEN} 0]]> data ^DIC 4.05 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '699.48' File Name: 'INSTRUMENT' Class generated by %fm2class version 2.56 This file holds the various instruments used in medical procedures with a screen to differentiate the area of medicine. persistent _PUBLIC 0 RowId INSTRUMENT_699_48 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.202064743 67178,44710.55464226 right INSTRUMENT 699.48 2.56 12/04/2024 12:25:10 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.48,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '1' This field is used as a screen to distinguish GI instruments from Pulmonary instruments. %Library.EnumString 4 MEDICAL_PACKAGE_USE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains instruments used in GI and Pulmonary procedures. This list is built locally through options on the management menus. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.48," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.48,"+1,",.01)={"NAME"} set:{MEDICAL_PACKAGE_USE}'="" FDA(699.48,"+1,",1)={"MEDICAL_PACKAGE_USE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.48)") set %SkipFiling=1 if $d(%FMERR(699.48,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.48)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.48,IENS,.01)={NAME} set:{MEDICAL_PACKAGE_USE*C} FDA(699.48,IENS,1)={MEDICAL_PACKAGE_USE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.48)") set %SkipFiling=1 if $d(%FMERR(699.48,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.48)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.INSTRUMENT69727S index ^MCAR nonnull 699.48 "B" {NAME} {IEN} 0]]> index ^MCAR nonnull 699.48 "C" {MEDICAL_PACKAGE_USE} {IEN} 0]]> data ^MCAR 699.48 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '693.2' File Name: 'INTERPRETATION' Class generated by %fm2class version 2.56 This file holds interpretations for Cardiac Catheterization and PFT studies. persistent _PUBLIC 0 RowId INTERPRETATION_693_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.207193468 67178,44710.585193853 right INTERPRETATION 693.2 2.56 12/04/2024 12:25:10 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(693.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERPRETATION' FileMan Field Number: '.01' This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests. %Library.String 1 3 INTERPRETATION FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '1' This field is used as a screen to differentiate Catheterization interpretations from Pulmonary Function Test Interpretations %Library.EnumString 4 MEDICAL_PACKAGE_USE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(693.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{INTERPRETATION}'="" FDA(693.2,"+1,",.01)={"INTERPRETATION"} set:{MEDICAL_PACKAGE_USE}'="" FDA(693.2,"+1,",1)={"MEDICAL_PACKAGE_USE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(693.2)") set %SkipFiling=1 if $d(%FMERR(693.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(693.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{INTERPRETATION*C} FDA(693.2,IENS,.01)={INTERPRETATION} set:{MEDICAL_PACKAGE_USE*C} FDA(693.2,IENS,1)={MEDICAL_PACKAGE_USE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(693.2)") set %SkipFiling=1 if $d(%FMERR(693.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(693.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.INTERPRETATA448S index ^MCAR nonnull 693.2 "B" {INTERPRETATION} {IEN} 0]]> data ^MCAR 693.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '393.2' File Name: 'IRT STATUS' Class generated by %fm2class version 2.56 This is the file that contains the names of the statuses that an IRT record must go thru to its completion. persistent _PUBLIC 0 RowId IRT_STATUS_393_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.225812966 67178,44710.614527615 right IRT STATUS 393.2 2.56 12/04/2024 12:25:10 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(393.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the status that a IRT record must go through on its way to being completed. %Library.String 1 3 NAME FileMan Field Label: 'PRINT NAME' FileMan Field Number: '.02' This field contains a shortened version of the status name. It is used for displaying the status on reports. %Library.String 4 PRINT_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(393.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(393.2,"+1,",.01)={"NAME"} set:{PRINT_NAME}'="" FDA(393.2,"+1,",.02)={"PRINT_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(393.2)") set %SkipFiling=1 if $d(%FMERR(393.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(393.2,IENS,.01)={NAME} set:{PRINT_NAME*C} FDA(393.2,IENS,.02)={PRINT_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(393.2)") set %SkipFiling=1 if $d(%FMERR(393.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.IRTSTATUS3932S index ^DG nonnull 393.2 "B" {NAME} {IEN} 0]]> data ^DG 393.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '393.3' File Name: 'IRT TYPE OF DEFICIENCY' Class generated by %fm2class version 2.56 This file contains the names of the types of deficiencies that are tracked in the IRT package. persistent _PUBLIC 0 RowId IRT_TYPE_OF_DEFICIENCY_393_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.232813081 67178,44710.644280982 right IRT TYPE OF DEFICIENCY 393.3 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '.02' This field contains the three character abbreviation for the type of report. It is used on the outputs. %Library.String 4 ABBREVIATION FileMan Field Label: 'DAYS FOR DICTATION' FileMan Field Number: '.03' This field contains the number in days before the report being tracked is considered incomplete for dictation. %Library.Numeric 5 DAYS_FOR_DICTATION FileMan Field Label: 'DAYS FOR REVIEW' FileMan Field Number: '.05' This field contains the number in days before the report being tracked is considered incomplete for review, if the facility reviews. %Library.Numeric 7 DAYS_FOR_REVIEW FileMan Field Label: 'DAYS FOR SIGNATURE' FileMan Field Number: '.04' This field contains the number in days before the report being tracked is considered incomplete for the physicians signature. %Library.Numeric 6 DAYS_FOR_SIGNATURE Internal Entry Number %Library.String $$next^%apiSQL("$p(^VAS(393.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the names of the reports or Items that will be tracked by the IRT package. %Library.String 1 3 NAME %Library.EnumString 9 STANDARD_DEFICIENCY FileMan Field Label: 'TRACK DEFICIENCY' FileMan Field Number: '.07' This field turns the tracking of the deficiency on or off. If this field is set to 'Yes' or 1, the deficiency will be one that is tracked by the site. If this field is set to 'N0' or 0, the facility will not track this deficiency and this deficiency will not appear as a choice in any of the Enter/Edit options. %Library.EnumString 8 TRACK_DEFICIENCY FileMan Field Label: 'UNEDITABLE DEFICIENCY' FileMan Field Number: '.09' This field is not seen by the user. It distinguishes the deficiencies that are transported with the TYPE OF DEFICIENCY file 393.3. Those deficiencies are highlighted on the screen under the Add a New/Edit Deficiency option. This is the field that is checked for highlighting purposes. %Library.EnumString 10 UNEDITABLE_DEFICIENCY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^VAS(393.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(393.3,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(393.3,"+1,",.02)={"ABBREVIATION"} set:{DAYS_FOR_DICTATION}'="" FDA(393.3,"+1,",.03)={"DAYS_FOR_DICTATION"} set:{DAYS_FOR_SIGNATURE}'="" FDA(393.3,"+1,",.04)={"DAYS_FOR_SIGNATURE"} set:{DAYS_FOR_REVIEW}'="" FDA(393.3,"+1,",.05)={"DAYS_FOR_REVIEW"} set:{TRACK_DEFICIENCY}'="" FDA(393.3,"+1,",.07)={"TRACK_DEFICIENCY"} set:{STANDARD_DEFICIENCY}'="" FDA(393.3,"+1,",.08)={"STANDARD_DEFICIENCY"} set:{UNEDITABLE_DEFICIENCY}'="" FDA(393.3,"+1,",.09)={"UNEDITABLE_DEFICIENCY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(393.3)") set %SkipFiling=1 if $d(%FMERR(393.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(393.3,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(393.3,IENS,.02)={ABBREVIATION} set:{DAYS_FOR_DICTATION*C} FDA(393.3,IENS,.03)={DAYS_FOR_DICTATION} set:{DAYS_FOR_SIGNATURE*C} FDA(393.3,IENS,.04)={DAYS_FOR_SIGNATURE} set:{DAYS_FOR_REVIEW*C} FDA(393.3,IENS,.05)={DAYS_FOR_REVIEW} set:{TRACK_DEFICIENCY*C} FDA(393.3,IENS,.07)={TRACK_DEFICIENCY} set:{STANDARD_DEFICIENCY*C} FDA(393.3,IENS,.08)={STANDARD_DEFICIENCY} set:{UNEDITABLE_DEFICIENCY*C} FDA(393.3,IENS,.09)={UNEDITABLE_DEFICIENCY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(393.3)") set %SkipFiling=1 if $d(%FMERR(393.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.IRTTYPEOFDE295DS index ^VAS nonnull 393.3 "B" {NAME} {IEN} 0]]> data ^VAS 393.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 5 "^" 0 4 "^" 0 1 "^" 0 8 "^" 0 7 "^" 0 9 Generated class for FileMan File Number: '441' File Name: 'ITEM MASTER' Class generated by %fm2class version 2.56 This file contains descriptive information for any supply item that can be ordered. Contains information needed for purchasing or ordering the item. Any item that is purchased repetitively should be entered to this file. persistent _PUBLIC 0 RowId ITEM_MASTER_441 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.420756203 67178,44710.675647924 right ITEM MASTER 441 2.56 12/04/2024 12:25:10 1 1 IEN 1 BUDGET_OBJECT_CODE_420_2]]> BOC VALIP.prosthetic.fm2cw.BUDGETOBJECTCODE4202 FKey_BOC NEW_PERSON_200]]> CREATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CREATED_BY FEDERAL_SUPPLY_CLASSIFICATION_441_2]]> FSC VALIP.prosthetic.fm2cw.FEDERALSUPPLYCLASSIFICATION4412 FKey_FSC NEW_PERSON_200]]> INACTIVATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INACTIVATED_BY VENDOR_440]]> LASTVENDORORDERED VALIP.prosthetic.fm2cw.VENDOR440 FKey_LAST_VENDOR_ORDERED VENDOR_440]]> MANDATORYSOURCE VALIP.prosthetic.fm2cw.VENDOR440 FKey_MANDATORY_SOURCE MANUFACTURER_440_4]]> MANUFACTURER VALIP.prosthetic.fm2cw.MANUFACTURER4404 FKey_MANUFACTURER ITEM_MASTER_441]]> REPLACEMENTITEM VALIP.prosthetic.fm2cw.ITEMMASTER441 FKey_REPLACEMENT_ITEM GENERIC_INVENTORY_445]]> SETPACKASSEMBLEDBY VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_SETPACK_ASSEMBLED_BY SIC_CODE_444_2]]> SICCODE VALIP.prosthetic.fm2cw.SICCODE4442 FKey_SIC_CODE UNIT_OF_ISSUE_420_5]]> SKU VALIP.prosthetic.fm2cw.UNITOFISSUE4205 FKey_SKU SOURCE_MFGSTOCK_NUMBER_440_45]]> SOURCEMFGPARTNO VALIP.prosthetic.fm2cw.SOURCEMFGSTOCKNUMBER44045 FKey_SOURCE_MFG_PART_NO_ FileMan Field Label: 'BOC' FileMan Field Number: '12' This is the BOC for this item. VALIP.prosthetic.fm2cw.BUDGETOBJECTCODE4202 14 BOC NAME This is the budget object code, a space and the budget object code name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {BOC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 BOC_NAME 1 FileMan Field Label: 'CASE CART/TRAY/INSTRUMENT KIT' FileMan Field Number: '.06' This field indicates whether an item is a case cart or instrument kit. Case cart and instrument kits should not be purchased from outside of the hospital. This is the purchaseable item indicator. 'P' stands for items purchased outside the hospital. 'S' stands for a set/pack assembled in hospital from purchased items. %Library.EnumString 5 CASE_CARTTRAYINSTRUMENT_KIT FileMan Field Label: 'CREATED BY' FileMan Field Number: '15' This is the person who created the item. VALIP.prosthetic.fm2cw.NEWPERSON200 17 CREATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {CREATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREATED_BY_NAME 1 FileMan Field Label: 'DATE INACTIVATED' FileMan Field Number: '17' This is the date the item was inactivated. %Library.FilemanDate 20 DATE_INACTIVATED FileMan Field Label: 'DATE ITEM CREATED' FileMan Field Number: '14' This is the date the item was created. %Library.FilemanDate 16 DATE_ITEM_CREATED FileMan Field Label: 'DATE UPDATED BY NIF' FileMan Field Number: '53' Do Not Edit - This field is populated when this item is created or updated by the NIF/IFCAP interface and should not be interactively edited. %Library.FilemanDate 33 DATE_UPDATED_BY_NIF FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '.1' This is the description of the item. %Library.String 6 DESCRIPTION FileMan Field Label: 'DRUG TYPE CODE' FileMan Field Number: '22' This is the set of drug type codes (Narcotic, Controlled substance, or Other) which will appear on the LOG code sheet. %Library.EnumString 26 DRUG_TYPE_CODE FileMan Field Label: 'FOOD GROUP' FileMan Field Number: '20' This is the catalog food group returned from ISMS by a catalog request. %Library.EnumString 24 FOOD_GROUP FileMan Field Label: 'FSC' FileMan Field Number: '2' Federal Supply Classification This is the federal supply classification. VALIP.prosthetic.fm2cw.FEDERALSUPPLYCLASSIFICATION4412 7 FSC NUMBER This is the 4-character long Federal Supply Classification (FSC) code or Product Service Code (PSC).]]> %Library.String 1 NUMBER into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {FSC_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 FSC_NUMBER 1 FileMan Field Label: 'HAZARDOUS MATERIAL' FileMan Field Number: '7' This is a flag to state if this ITEM is hazardous. %Library.EnumString 11 HAZARDOUS_MATERIAL Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRC(441,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVATED BY' FileMan Field Number: '18' This is the person who inactivated the item. VALIP.prosthetic.fm2cw.NEWPERSON200 21 INACTIVATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {INACTIVATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INACTIVATED_BY_NAME 1 FileMan Field Label: 'INACTIVATED ITEM?' FileMan Field Number: '16' This is the set of codes for an inactivated item. This field is set to '1' by option to inactivate an item. %Library.EnumString 18 INACTIVATED_ITEM FileMan Field Label: 'INC' FileMan Field Number: '3' This field lists the Item Name Code for this item. %Library.String 8 INC FileMan Field Label: 'LAST VENDOR ORDERED' FileMan Field Number: '9' This is the last vendor ordered. VALIP.prosthetic.fm2cw.VENDOR440 12 LAST_VENDOR_ORDERED NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {LAST_VENDOR_ORDERED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAST_VENDOR_ORDERED_NAME 1 FileMan Field Label: 'MANDATORY SOURCE' FileMan Field Number: '10' This is the mandatory source for an item. VALIP.prosthetic.fm2cw.VENDOR440 13 MANDATORY_SOURCE NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {MANDATORY_SOURCE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MANDATORY_SOURCE_NAME 1 FileMan Field Label: 'MANUFACTURER' FileMan Field Number: '25' This field links the item to the company that manufactured it. VALIP.prosthetic.fm2cw.MANUFACTURER4404 29 MANUFACTURER NAME This field holds the manufacturer's name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {MANUFACTURER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MANUFACTURER_NAME 1 FileMan Field Label: 'MFG PART NO.' FileMan Field Number: '19' This is the Manufacturer's Part Number (#). %Library.String 22 MFG_PART_NO_ FileMan Field Label: 'NIF ITEM NUMBER' FileMan Field Number: '51' This is the Item Number assigned to this item in the National Item File (NIF). This field is populated by a feed from the NIF and its edit is restricted to only highly privileged users. %Library.Numeric 31 NIF_ITEM_NUMBER FileMan Field Label: 'NIF UPDATE DATE' FileMan Field Number: '54' Do Not Edit - This field is populated by the enhanced NIF/IFCAP Item Master file interface. It is the date that the item entry was most recently edited in the NIF. %Library.FilemanDate 34 NIF_UPDATE_DATE FileMan Field Label: 'NSN' FileMan Field Number: '5' NATIONAL STOCK NUMBER This is the National Stock Number for the item. %Library.String 9 NSN FileMan Field Label: 'NSN VERIFIED' FileMan Field Number: '5.5' The date that the National Stock Number was verified. %Library.FilemanDate 10 NSN_VERIFIED FileMan Field Label: 'NUMBER' FileMan Field Number: '.01' This is the item number. Values 20000000 and higher are reserved for the National Formulary and created by the NIF/IFCAP interface. %Library.Numeric 1 3 NUMBER FileMan Field Label: 'PRE_NIF LONG DESCRIPTION' FileMan Field Number: '50' This field stores the value of the DESCRIPTION field (#.1) prior to the overwriting of that field's value with the value from the National Item File (NIF) database. This field MUST NOT be edited. It is for historical record only. %Library.String 30 PRE_NIF_LONG_DESCRIPTION FileMan Field Label: 'PRE_NIF SHORT DESCRIPTION' FileMan Field Number: '52' This field stores the value of the SHORT DESCRIPTION field (#.05) prior to that field's overwrite with the value of the Brief Item Description from the National Item File (NIF). This field must not be edited. It is for historical record only. %Library.String 32 PRE_NIF_SHORT_DESCRIPTION FileMan Field Label: 'REPLACEMENT ITEM' FileMan Field Number: '16.5' This is the replacement item for an inactivated item. VALIP.prosthetic.fm2cw.ITEMMASTER441 19 REPLACEMENT_ITEM NUMBER This is the item number. Values 20000000 and higher are reserved for the National Formulary and created by the NIF/IFCAP interface.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {REPLACEMENT_ITEM_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 REPLACEMENT_ITEM_NUMBER 1 FileMan Field Label: 'REUSABLE ITEM' FileMan Field Number: '23' This field is used for case carts/instrument kits. If an item is a reusable item (field set to YES), the item will not be charged to the inventory point during the ordering and posting process. Also, reusable items will not increment/decrement the quantity on-hand when assembling or disassembling case carts or instrument kits. If the field is not set to YES, the item is treated as a disposable item. %Library.EnumString 27 REUSABLE_ITEM FileMan Field Label: 'SET/PACK ASSEMBLED BY' FileMan Field Number: '13' When a Set/Pack type item is added to this file (by the Generic Inventory Package), the Inventory point that added the item is stuffed into this field by the program. It is then used as a screen to keep other inventory points from changing the data associated with the item. VALIP.prosthetic.fm2cw.GENERICINVENTORY445 15 SETPACK_ASSEMBLED_BY INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {SETPACK_ASSEMBLED_BY_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 SETPACK_ASSEMBLED_BY_INVENTORY_POINT 1 FileMan Field Label: 'SHORT DESCRIPTION' FileMan Field Number: '.05' This is the short description of the item. %Library.String 1 4 SHORT_DESCRIPTION FileMan Field Label: 'SIC CODE' FileMan Field Number: '24' The Standard Industrial Classification coding system categorizes organizations by type of economic activity. The SIC code is used in the Request for Quotation (RFQ) module to direct requests to the appropriate group of potential vendors. VALIP.prosthetic.fm2cw.SICCODE4442 28 SIC_CODE NAME This is the Standard Industrial Classification Code and Name, which are used to classify organizations by economic activity.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {SIC_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SIC_CODE_NAME 1 FileMan Field Label: 'SKU' FileMan Field Number: '21' This is the Stock Keeping Unit of Measure. VALIP.prosthetic.fm2cw.UNITOFISSUE4205 25 SKU NAME This is the name of the unit of the item.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {SKU_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SKU_NAME 1 FileMan Field Label: 'SOURCE MFG PART NO.' FileMan Field Number: '19.1' This field indicates from where the editor determined the manufacturer's part number for this product. VALIP.prosthetic.fm2cw.SOURCEMFGSTOCKNUMBER44045 23 SOURCE_MFG_PART_NO_ ABBREVIATION This is the identifier for the organization from whom the manufacturer's part number or vendor's stock number was obtained.]]> %Library.String 1 ABBREVIATION into :val from VALIP_prosthetic_fm2cw.ITEM_MASTER_441 where %ID=:id) set {SOURCE_MFG_PART_NO__ABBREVIATION}=$select(SQLCODE=0:val,1:"")]]> 1 SOURCE_MFG_PART_NO__ABBREVIATION 1 Relationship for Sub-File/Multiple to file name FCP child VALIP.prosthetic.fm2cw.SUBFCP44103 children ITEMMASTER441 1 SUB_FCP_441_03 Relationship for Sub-File/Multiple to file name SYNONYM child VALIP.prosthetic.fm2cw.SUBSYNONYM44105 children ITEMMASTER441 1 SUB_SYNONYM_441_05 Relationship for Sub-File/Multiple to file name VENDOR child VALIP.prosthetic.fm2cw.SUBVENDOR44101 children ITEMMASTER441 1 SUB_VENDOR_441_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 35 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRC(441," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NUMBER}'="" FDA(441,"+1,",.01)={"NUMBER"} set:{SHORT_DESCRIPTION}'="" FDA(441,"+1,",.05)={"SHORT_DESCRIPTION"} set:{CASE_CARTTRAYINSTRUMENT_KIT}'="" FDA(441,"+1,",.06)={"CASE_CARTTRAYINSTRUMENT_KIT"} set:{FSC}'="" FDA(441,"+1,",2)={"FSC"} set:{INC}'="" FDA(441,"+1,",3)={"INC"} set:{NSN}'="" FDA(441,"+1,",5)={"NSN"} set:{NSN_VERIFIED}'="" FDA(441,"+1,",5.5)={"NSN_VERIFIED"} set:{HAZARDOUS_MATERIAL}'="" FDA(441,"+1,",7)={"HAZARDOUS_MATERIAL"} set:{LAST_VENDOR_ORDERED}'="" FDA(441,"+1,",9)={"LAST_VENDOR_ORDERED"} set:{MANDATORY_SOURCE}'="" FDA(441,"+1,",10)={"MANDATORY_SOURCE"} set:{BOC}'="" FDA(441,"+1,",12)={"BOC"} set:{SETPACK_ASSEMBLED_BY}'="" FDA(441,"+1,",13)={"SETPACK_ASSEMBLED_BY"} set:{DATE_ITEM_CREATED}'="" FDA(441,"+1,",14)={"DATE_ITEM_CREATED"} set:{CREATED_BY}'="" FDA(441,"+1,",15)={"CREATED_BY"} set:{INACTIVATED_ITEM}'="" FDA(441,"+1,",16)={"INACTIVATED_ITEM"} set:{REPLACEMENT_ITEM}'="" FDA(441,"+1,",16.5)={"REPLACEMENT_ITEM"} set:{DATE_INACTIVATED}'="" FDA(441,"+1,",17)={"DATE_INACTIVATED"} set:{INACTIVATED_BY}'="" FDA(441,"+1,",18)={"INACTIVATED_BY"} set:{MFG_PART_NO_}'="" FDA(441,"+1,",19)={"MFG_PART_NO_"} set:{SOURCE_MFG_PART_NO_}'="" FDA(441,"+1,",19.1)={"SOURCE_MFG_PART_NO_"} set:{FOOD_GROUP}'="" FDA(441,"+1,",20)={"FOOD_GROUP"} set:{SKU}'="" FDA(441,"+1,",21)={"SKU"} set:{DRUG_TYPE_CODE}'="" FDA(441,"+1,",22)={"DRUG_TYPE_CODE"} set:{REUSABLE_ITEM}'="" FDA(441,"+1,",23)={"REUSABLE_ITEM"} set:{SIC_CODE}'="" FDA(441,"+1,",24)={"SIC_CODE"} set:{MANUFACTURER}'="" FDA(441,"+1,",25)={"MANUFACTURER"} set:{NIF_ITEM_NUMBER}'="" FDA(441,"+1,",51)={"NIF_ITEM_NUMBER"} set:{PRE_NIF_SHORT_DESCRIPTION}'="" FDA(441,"+1,",52)={"PRE_NIF_SHORT_DESCRIPTION"} set:{DATE_UPDATED_BY_NIF}'="" FDA(441,"+1,",53)={"DATE_UPDATED_BY_NIF"} set:{NIF_UPDATE_DATE}'="" FDA(441,"+1,",54)={"NIF_UPDATE_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(441)") set %SkipFiling=1 if $d(%FMERR(441,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(441,{RowId},.1,,"wp","%FMERR(441)") if $d(%FMERR(441,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PRE_NIF_LONG_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({PRE_NIF_LONG_DESCRIPTION},$c(13,10)) { set wp(i)=$p({PRE_NIF_LONG_DESCRIPTION},$c(13,10),i) } do WP^DIE(441,{RowId},50,,"wp","%FMERR(441)") if $d(%FMERR(441,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NUMBER*C} FDA(441,IENS,.01)={NUMBER} set:{SHORT_DESCRIPTION*C} FDA(441,IENS,.05)={SHORT_DESCRIPTION} set:{CASE_CARTTRAYINSTRUMENT_KIT*C} FDA(441,IENS,.06)={CASE_CARTTRAYINSTRUMENT_KIT} set:{FSC*C} FDA(441,IENS,2)={FSC} set:{INC*C} FDA(441,IENS,3)={INC} set:{NSN*C} FDA(441,IENS,5)={NSN} set:{NSN_VERIFIED*C} FDA(441,IENS,5.5)={NSN_VERIFIED} set:{HAZARDOUS_MATERIAL*C} FDA(441,IENS,7)={HAZARDOUS_MATERIAL} set:{LAST_VENDOR_ORDERED*C} FDA(441,IENS,9)={LAST_VENDOR_ORDERED} set:{MANDATORY_SOURCE*C} FDA(441,IENS,10)={MANDATORY_SOURCE} set:{BOC*C} FDA(441,IENS,12)={BOC} set:{SETPACK_ASSEMBLED_BY*C} FDA(441,IENS,13)={SETPACK_ASSEMBLED_BY} set:{DATE_ITEM_CREATED*C} FDA(441,IENS,14)={DATE_ITEM_CREATED} set:{CREATED_BY*C} FDA(441,IENS,15)={CREATED_BY} set:{INACTIVATED_ITEM*C} FDA(441,IENS,16)={INACTIVATED_ITEM} set:{REPLACEMENT_ITEM*C} FDA(441,IENS,16.5)={REPLACEMENT_ITEM} set:{DATE_INACTIVATED*C} FDA(441,IENS,17)={DATE_INACTIVATED} set:{INACTIVATED_BY*C} FDA(441,IENS,18)={INACTIVATED_BY} set:{MFG_PART_NO_*C} FDA(441,IENS,19)={MFG_PART_NO_} set:{SOURCE_MFG_PART_NO_*C} FDA(441,IENS,19.1)={SOURCE_MFG_PART_NO_} set:{FOOD_GROUP*C} FDA(441,IENS,20)={FOOD_GROUP} set:{SKU*C} FDA(441,IENS,21)={SKU} set:{DRUG_TYPE_CODE*C} FDA(441,IENS,22)={DRUG_TYPE_CODE} set:{REUSABLE_ITEM*C} FDA(441,IENS,23)={REUSABLE_ITEM} set:{SIC_CODE*C} FDA(441,IENS,24)={SIC_CODE} set:{MANUFACTURER*C} FDA(441,IENS,25)={MANUFACTURER} set:{NIF_ITEM_NUMBER*C} FDA(441,IENS,51)={NIF_ITEM_NUMBER} set:{PRE_NIF_SHORT_DESCRIPTION*C} FDA(441,IENS,52)={PRE_NIF_SHORT_DESCRIPTION} set:{DATE_UPDATED_BY_NIF*C} FDA(441,IENS,53)={DATE_UPDATED_BY_NIF} set:{NIF_UPDATE_DATE*C} FDA(441,IENS,54)={NIF_UPDATE_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(441)") set %SkipFiling=1 if $d(%FMERR(441,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(441,{RowId},.1,,wproot,"%FMERR(441)") if $d(%FMERR(441,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PRE_NIF_LONG_DESCRIPTION*C} { set D0={RowId} kill wp if {PRE_NIF_LONG_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({PRE_NIF_LONG_DESCRIPTION},$c(13,10)) { set wp(i)=$p({PRE_NIF_LONG_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(441,{RowId},50,,wproot,"%FMERR(441)") if $d(%FMERR(441,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(441)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.ITEMMASTER441S index ^PRC nonnull 441 "BB" {NSN} {IEN} 0]]> index ^PRC nonnull 441 "B" {NUMBER} {IEN} 0]]> index ^PRC nonnull 441 "C" {SHORT_DESCRIPTION} {IEN} 0]]> index ^PRC nonnull 441 "I" {NIF_ITEM_NUMBER} {IEN} 0]]> data ^PRC 441 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 10 "^" 0 6 "^" 0 11 "^" 3 2 "^" 0 9 "^" 3 11 1 new data,i,node set {DESCRIPTION}="" merge data=^PRC(441,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 3 9 "^" 3 7 "^" 0 3 "^" 0 14 "^" 3 3 "^" 3 1 "^" 0 12 "^" 0 4 "^" 0 8 "^" 3 12 "^" 3 5 "^" 0 15 "^" 3 14 "^" 0 5 "^" 3 6 "^" 0 1 8 new data,i,node set {PRE_NIF_LONG_DESCRIPTION}="" merge data=^PRC(441,{S2},8) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PRE_NIF_LONG_DESCRIPTION}={PRE_NIF_LONG_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 9 1 "^" 3 4 "^" 0 13 "^" 0 7 "^" 0 2 "^" 3 10 "^" 3 8 "^" 3 13 Generated class for FileMan File Number: '63' File Name: 'LAB DATA' Class generated by %fm2class version 2.56 Patient's laboratory data CROSS REFERENCE DESCRIPTION: ^LR("AEMA",'YEAR SPECIMEN TAKEN','ACCESSION #',LRDFN,'DATE/TIME SPECIMEN TAKEN')="" ^LR("AEM",'DATE/TIME SPECIMEN RECEIVED',LRDFN,'DATE/TIME SPECIMEN TAKEN')="" Similar x-refs exists for SURGICAL PATHOLOGY: "ASPA" and "ASP" CYTOLOGY: "ACYA" and "ACY" AUTOPSY: "AAUA" and "AAU" ^LR("AAU",'AUTOPSY DATE/TIME',LRDFN)="" ^LR("AD",DT,'ORGANISM','ACCESSION'_" ")=LRDFN Set when an organism to be reported to the health department is entered. ^LR(LRDFN,"CH",LRIDT,1,"AC",DUZ,$H)=DATE REPORT COMPLETED^VERIFY PERSON^ COMMENT (DELETED) Set when a comment is deleted from a verified test, used by the routine LRDCOM. persistent _PUBLIC 0 RowId LAB_DATA_63 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.268934347 67178,44710.790122626 right LAB DATA 63 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'ABO GROUP' FileMan Field Number: '.05' PATIENT'S ABO BLOOD TYPE ABO blood group of patient %Library.EnumString 6 ABO_GROUP FileMan Field Label: 'ADRENAL, LEFT (gm)' FileMan Field Number: '25.7' Left adrenal %Library.Numeric 42 ADRENAL_LEFT_GM FileMan Field Label: 'ADRENAL, RIGHT (gm)' FileMan Field Number: '25.8' Right adrenal %Library.Numeric 43 ADRENAL_RIGHT_GM FileMan Field Label: 'AGE AT DEATH' FileMan Field Number: '12.5' This is the age of the patient at the time of death. %Library.String 16 AGE_AT_DEATH FileMan Field Label: 'AORTIC VALVE (cm)' FileMan Field Number: '29' Body organ %Library.Numeric 52 AORTIC_VALVE_CM FileMan Field Label: 'AUTOPSY DATE/TIME' FileMan Field Number: '11' This is the date/time of the autopsy. %Library.FilemanTimeStamp 14 AUTOPSY_DATETIME FileMan Field Label: 'AUTOPSY RELEASE DATE/TIME' FileMan Field Number: '14.7' Date and time autopsy verified. %Library.FilemanTimeStamp 24 AUTOPSY_RELEASE_DATETIME FileMan Field Label: 'AUTOPSY TYPE' FileMan Field Number: '13.7' This is the autopsy type. %Library.EnumString 20 AUTOPSY_TYPE FileMan Field Label: 'AUTOPSY TYPIST' FileMan Field Number: '13.01' The name of the Autopsy typist %Library.String 18 AUTOPSY_TYPIST FileMan Field Label: 'AUTOPSY ACC #' FileMan Field Number: '14' This is the number of this autopsy. %Library.String 21 AUTOPSY__ACC_ FileMan Field Label: 'BLOOD BANK COMMENTS' FileMan Field Number: '.076' These are blood bank comments for this patient. %Library.String 8 BLOOD_BANK_COMMENTS FileMan Field Label: 'BODY HEIGHT (in)' FileMan Field Number: '16' Height of body in inches %Library.Numeric 26 BODY_HEIGHT_IN FileMan Field Label: 'BODY WT (lb)' FileMan Field Number: '17' Weight of body in pounds %Library.Numeric 27 BODY_WT_LB FileMan Field Label: 'BRAIN (gm)' FileMan Field Number: '25' Body organ %Library.Numeric 35 BRAIN_GM FileMan Field Label: 'CLINICAL DIAGNOSES' FileMan Field Number: '32.2' These are the clinical diagnoses. %Library.String 59 CLINICAL_DIAGNOSES FileMan Field Label: 'CLINICAL DIAGNOSIS CLARIFIED' FileMan Field Number: '83.2' If clinical dx insufficient (ex. intracranial hemorrhage) did autopsy clarify the dx (ex. ruptured aneurysm) ? %Library.EnumString 62 CLINICAL_DIAGNOSIS_CLARIFIED FileMan Field Label: 'DATE/TIME OF DEATH' FileMan Field Number: '12' This is the date/time of death. %Library.String 1 15 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S A=^LR(D0,0),B=+$P(A,U,2),C=+$P(A,U,3),A=^DIC(B,0,"GL"),Y=$S($D(@(A_C_",.35)")):+^(.35),1:"") D D^LRU S X=Y set {DATETIME_OF_DEATH}=X 1 DATETIME_OF_DEATH FileMan Field Label: 'DATE AUTOPSY REPORT COMPLETED' FileMan Field Number: '13' This is the date the autopsy report was completed. %Library.FilemanTimeStamp 17 DATE_AUTOPSY_REPORT_COMPLETED FileMan Field Label: 'DATE FINAL AUTOPSY DIAGNOSES' FileMan Field Number: '13.1' This is the date the final autopsy diagnoses are completed. %Library.FilemanTimeStamp 19 DATE_FINAL_AUTOPSY_DIAGNOSES FileMan Field Label: 'DATE REPORT MODIFIED - AU' FileMan Field Number: '102' This is the date the report was modified if it was modified after it was electronically signed/released. %Library.FilemanTimeStamp 63 DATE_REPORT_MODIFIED__AU FileMan Field Label: 'DIAGNOSIS MODIFIED' FileMan Field Number: '102.2' 1 = Diagnosis modified AFTER report was electronically signed/released. %Library.EnumString 64 DIAGNOSIS_MODIFIED FileMan Field Label: 'DO NOT TRANSFUSE' FileMan Field Number: '.04' If DO NOT TRANSFUSE is entered then the patient cannot be transfused until the reason for not transfusing a blood component is resolved. The reason can be entered in the BLOOD BANK COMMENTS field. %Library.EnumString 5 DO_NOT_TRANSFUSE FileMan Field Label: 'HEART (gm)' FileMan Field Number: '24' Body organ %Library.Numeric 34 HEART_GM FileMan Field Label: 'HOSPITAL ID' FileMan Field Number: '.09' Computed field to present the hospital ID from the parent file. %Library.String 1 9 0 S L=^LR(L1,0),X=$P($S($D(@(^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_",0)")):^(0),1:""),"^",9),X=$S(X?9N:$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9),1:X) set {HOSPITAL_ID}=X]]> 1 HOSPITAL_ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^LR(0),""^"",3)") 1 2 IEN FileMan Field Label: 'KIDNEY,LT (gm)' FileMan Field Number: '23' Left kidney %Library.Numeric 33 KIDNEYLT_GM FileMan Field Label: 'KIDNEY,RT (gm)' FileMan Field Number: '22' Right kidney %Library.Numeric 32 KIDNEYRT_GM FileMan Field Label: 'LEFT VENTRICLE (cm)' FileMan Field Number: '31' Body organ %Library.Numeric 54 LEFT_VENTRICLE_CM FileMan Field Label: 'LIVER (gm)' FileMan Field Number: '20' Body organ %Library.Numeric 30 LIVER_GM FileMan Field Label: 'LOCATION' FileMan Field Number: '14.1' WARD OR OTHER LOCATION This is the requesting location. %Library.String 22 LOCATION FileMan Field Label: 'LOCATION TYPE' FileMan Field Number: '.092' This field is used for Workload Classification. Other location type is the default answer. %Library.EnumString 11 LOCATION_TYPE FileMan Field Label: 'LRDFN' FileMan Field Number: '.01' The internal file number of the "patient" (or other entity) %Library.Numeric 1 3 LRDFN FileMan Field Label: 'LUNG,LT (gm)' FileMan Field Number: '19' Left lung %Library.Numeric 29 LUNGLT_GM FileMan Field Label: 'LUNG,RT (gm)' FileMan Field Number: '18' Right lung %Library.Numeric 28 LUNGRT_GM FileMan Field Label: 'MAJOR DIAGNOSTIC DISAGREEMENT' FileMan Field Number: '83.1' If major diagnostic disagreements between autopsy and clinical findings enter 'YES' else enter 'NO'. %Library.EnumString 61 MAJOR_DIAGNOSTIC_DISAGREEMENT FileMan Field Label: 'MITRAL VALVE (cm)' FileMan Field Number: '28' Body organ %Library.Numeric 51 MITRAL_VALVE_CM FileMan Field Label: 'NAME' FileMan Field Number: '.03' The internal file number in the parent file for this entry. %Library.Numeric 1 4 NAME Computed Field For Node .1 %Library.String 1 12 s {NODE__1}=$g(^LR({IEN},.1)) 1 NODE__1 FileMan Field Label: 'OVARY, LEFT (gm)' FileMan Field Number: '25.93' Left ovary %Library.Numeric 47 OVARY_LEFT_GM FileMan Field Label: 'OVARY, RIGHT (gm)' FileMan Field Number: '25.94' Right ovary %Library.Numeric 48 OVARY_RIGHT_GM FileMan Field Label: 'PANCREAS (gm)' FileMan Field Number: '25.9' Body organ %Library.Numeric 44 PANCREAS_GM FileMan Field Label: 'PARATHYROID, LEFT LOWER (gm)' FileMan Field Number: '25.4' Left lower parathyroid %Library.Numeric 39 PARATHYROID_LEFT__LOWER_GM FileMan Field Label: 'PARATHYROID, LEFT UPPER (gm)' FileMan Field Number: '25.3' Left upper parathyroid %Library.Numeric 38 PARATHYROID_LEFT__UPPER_GM FileMan Field Label: 'PARATHYROID, RIGHT LOWER (gm)' FileMan Field Number: '25.6' Right lower parathyroid %Library.Numeric 41 PARATHYROID_RIGHT_LOWER_GM FileMan Field Label: 'PARATHYROID, RIGHT UPPER (gm)' FileMan Field Number: '25.5' Right upper parathyroid %Library.Numeric 40 PARATHYROID_RIGHT_UPPER_GM FileMan Field Label: 'PATHOLOGICAL DIAGNOSES' FileMan Field Number: '32.3' These are the pathological diagnoses. %Library.String 60 PATHOLOGICAL_DIAGNOSES FileMan Field Label: 'PAT. INFO.' FileMan Field Number: '.091' Patient information %Library.String 10 PAT__INFO_ FileMan Field Label: 'PERICARDIAL CAVITY (ml)' FileMan Field Number: '31.3' Body organ %Library.Numeric 57 PERICARDIAL_CAVITY_ML FileMan Field Label: 'PERITONEAL CAVITY (ml)' FileMan Field Number: '31.4' Body organ %Library.Numeric 58 PERITONEAL_CAVITY_ML FileMan Field Label: 'PITUITARY GLAND (gm)' FileMan Field Number: '25.1' Body organ %Library.Numeric 36 PITUITARY_GLAND_GM FileMan Field Label: 'PLEURAL CAVITY, LEFT (ml)' FileMan Field Number: '31.1' Left pleural cavity %Library.Numeric 55 PLEURAL_CAVITY_LEFT_ML FileMan Field Label: 'PLEURAL CAVITY, RIGHT (ml)' FileMan Field Number: '31.2' Right pleural cavity %Library.Numeric 56 PLEURAL_CAVITY_RIGHT_ML FileMan Field Label: 'PROVISIONAL ANAT DX DATE' FileMan Field Number: '14.9' PROVISIONAL ANATOMIC DIAGNOSIS DATE Date provisional anatomic diagnoses reported %Library.FilemanDate 25 PROVISIONAL_ANAT_DX_DATE FileMan Field Label: 'PULMONIC VALVE (cm)' FileMan Field Number: '27' Body organ %Library.Numeric 50 PULMONIC_VALVE_CM FileMan Field Label: 'REPORT ROUTING (LOCATION)' FileMan Field Number: '.1' The most current location where a lab procedure was requested. %Library.String 1 13 s {REPORT_ROUTING_LOCATION}=$e({NODE__1},1,19) 1 REPORT_ROUTING_LOCATION FileMan Field Label: 'RH TYPE' FileMan Field Number: '.06' This is the patient's RH blood type. %Library.EnumString 7 RH_TYPE FileMan Field Label: 'RIGHT VENTRICLE (cm)' FileMan Field Number: '30' Body organ %Library.Numeric 53 RIGHT_VENTRICLE_CM FileMan Field Label: 'SERVICE' FileMan Field Number: '14.5' This is the service to which this patient was assigned. %Library.EnumString 23 SERVICE FileMan Field Label: 'SPLEEN (gm)' FileMan Field Number: '21' Body organ %Library.Numeric 31 SPLEEN_GM FileMan Field Label: 'TESTIS, LEFT (gm)' FileMan Field Number: '25.91' Left testis %Library.Numeric 45 TESTIS_LEFT_GM FileMan Field Label: 'TESTIS, RIGHT (gm)' FileMan Field Number: '25.92' Right testis %Library.Numeric 46 TESTIS_RIGHT_GM FileMan Field Label: 'THYROID GLAND (gm)' FileMan Field Number: '25.2' Body organ %Library.Numeric 37 THYROID_GLAND_GM FileMan Field Label: 'TRICUSPID VALVE (cm)' FileMan Field Number: '26' Body organ %Library.Numeric 49 TRICUSPID_VALVE_CM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 65 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LR(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{LRDFN}'="" FDA(63,"+1,",.01)={"LRDFN"} set:{NAME}'="" FDA(63,"+1,",.03)={"NAME"} set:{DO_NOT_TRANSFUSE}'="" FDA(63,"+1,",.04)={"DO_NOT_TRANSFUSE"} set:{ABO_GROUP}'="" FDA(63,"+1,",.05)={"ABO_GROUP"} set:{RH_TYPE}'="" FDA(63,"+1,",.06)={"RH_TYPE"} set:{PAT__INFO_}'="" FDA(63,"+1,",.091)={"PAT__INFO_"} set:{LOCATION_TYPE}'="" FDA(63,"+1,",.092)={"LOCATION_TYPE"} set:{AUTOPSY_DATETIME}'="" FDA(63,"+1,",11)={"AUTOPSY_DATETIME"} set:{AGE_AT_DEATH}'="" FDA(63,"+1,",12.5)={"AGE_AT_DEATH"} set:{DATE_AUTOPSY_REPORT_COMPLETED}'="" FDA(63,"+1,",13)={"DATE_AUTOPSY_REPORT_COMPLETED"} set:{AUTOPSY_TYPIST}'="" FDA(63,"+1,",13.01)={"AUTOPSY_TYPIST"} set:{DATE_FINAL_AUTOPSY_DIAGNOSES}'="" FDA(63,"+1,",13.1)={"DATE_FINAL_AUTOPSY_DIAGNOSES"} set:{AUTOPSY_TYPE}'="" FDA(63,"+1,",13.7)={"AUTOPSY_TYPE"} set:{AUTOPSY__ACC_}'="" FDA(63,"+1,",14)={"AUTOPSY__ACC_"} set:{LOCATION}'="" FDA(63,"+1,",14.1)={"LOCATION"} set:{SERVICE}'="" FDA(63,"+1,",14.5)={"SERVICE"} set:{AUTOPSY_RELEASE_DATETIME}'="" FDA(63,"+1,",14.7)={"AUTOPSY_RELEASE_DATETIME"} set:{PROVISIONAL_ANAT_DX_DATE}'="" FDA(63,"+1,",14.9)={"PROVISIONAL_ANAT_DX_DATE"} set:{BODY_HEIGHT_IN}'="" FDA(63,"+1,",16)={"BODY_HEIGHT_IN"} set:{BODY_WT_LB}'="" FDA(63,"+1,",17)={"BODY_WT_LB"} set:{LUNGRT_GM}'="" FDA(63,"+1,",18)={"LUNGRT_GM"} set:{LUNGLT_GM}'="" FDA(63,"+1,",19)={"LUNGLT_GM"} set:{LIVER_GM}'="" FDA(63,"+1,",20)={"LIVER_GM"} set:{SPLEEN_GM}'="" FDA(63,"+1,",21)={"SPLEEN_GM"} set:{KIDNEYRT_GM}'="" FDA(63,"+1,",22)={"KIDNEYRT_GM"} set:{KIDNEYLT_GM}'="" FDA(63,"+1,",23)={"KIDNEYLT_GM"} set:{HEART_GM}'="" FDA(63,"+1,",24)={"HEART_GM"} set:{BRAIN_GM}'="" FDA(63,"+1,",25)={"BRAIN_GM"} set:{PITUITARY_GLAND_GM}'="" FDA(63,"+1,",25.1)={"PITUITARY_GLAND_GM"} set:{THYROID_GLAND_GM}'="" FDA(63,"+1,",25.2)={"THYROID_GLAND_GM"} set:{PARATHYROID_LEFT__UPPER_GM}'="" FDA(63,"+1,",25.3)={"PARATHYROID_LEFT__UPPER_GM"} set:{PARATHYROID_LEFT__LOWER_GM}'="" FDA(63,"+1,",25.4)={"PARATHYROID_LEFT__LOWER_GM"} set:{PARATHYROID_RIGHT_UPPER_GM}'="" FDA(63,"+1,",25.5)={"PARATHYROID_RIGHT_UPPER_GM"} set:{PARATHYROID_RIGHT_LOWER_GM}'="" FDA(63,"+1,",25.6)={"PARATHYROID_RIGHT_LOWER_GM"} set:{ADRENAL_LEFT_GM}'="" FDA(63,"+1,",25.7)={"ADRENAL_LEFT_GM"} set:{ADRENAL_RIGHT_GM}'="" FDA(63,"+1,",25.8)={"ADRENAL_RIGHT_GM"} set:{PANCREAS_GM}'="" FDA(63,"+1,",25.9)={"PANCREAS_GM"} set:{TESTIS_LEFT_GM}'="" FDA(63,"+1,",25.91)={"TESTIS_LEFT_GM"} set:{TESTIS_RIGHT_GM}'="" FDA(63,"+1,",25.92)={"TESTIS_RIGHT_GM"} set:{OVARY_LEFT_GM}'="" FDA(63,"+1,",25.93)={"OVARY_LEFT_GM"} set:{OVARY_RIGHT_GM}'="" FDA(63,"+1,",25.94)={"OVARY_RIGHT_GM"} set:{TRICUSPID_VALVE_CM}'="" FDA(63,"+1,",26)={"TRICUSPID_VALVE_CM"} set:{PULMONIC_VALVE_CM}'="" FDA(63,"+1,",27)={"PULMONIC_VALVE_CM"} set:{MITRAL_VALVE_CM}'="" FDA(63,"+1,",28)={"MITRAL_VALVE_CM"} set:{AORTIC_VALVE_CM}'="" FDA(63,"+1,",29)={"AORTIC_VALVE_CM"} set:{RIGHT_VENTRICLE_CM}'="" FDA(63,"+1,",30)={"RIGHT_VENTRICLE_CM"} set:{LEFT_VENTRICLE_CM}'="" FDA(63,"+1,",31)={"LEFT_VENTRICLE_CM"} set:{PLEURAL_CAVITY_LEFT_ML}'="" FDA(63,"+1,",31.1)={"PLEURAL_CAVITY_LEFT_ML"} set:{PLEURAL_CAVITY_RIGHT_ML}'="" FDA(63,"+1,",31.2)={"PLEURAL_CAVITY_RIGHT_ML"} set:{PERICARDIAL_CAVITY_ML}'="" FDA(63,"+1,",31.3)={"PERICARDIAL_CAVITY_ML"} set:{PERITONEAL_CAVITY_ML}'="" FDA(63,"+1,",31.4)={"PERITONEAL_CAVITY_ML"} set:{MAJOR_DIAGNOSTIC_DISAGREEMENT}'="" FDA(63,"+1,",83.1)={"MAJOR_DIAGNOSTIC_DISAGREEMENT"} set:{CLINICAL_DIAGNOSIS_CLARIFIED}'="" FDA(63,"+1,",83.2)={"CLINICAL_DIAGNOSIS_CLARIFIED"} set:{DATE_REPORT_MODIFIED__AU}'="" FDA(63,"+1,",102)={"DATE_REPORT_MODIFIED__AU"} set:{DIAGNOSIS_MODIFIED}'="" FDA(63,"+1,",102.2)={"DIAGNOSIS_MODIFIED"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(63)") set %SkipFiling=1 if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {BLOOD_BANK_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({BLOOD_BANK_COMMENTS},$c(13,10)) { set wp(i)=$p({BLOOD_BANK_COMMENTS},$c(13,10),i) } do WP^DIE(63,{RowId},.076,,"wp","%FMERR(63)") if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CLINICAL_DIAGNOSES}'="" { set D0={RowId} for i=1:1:$l({CLINICAL_DIAGNOSES},$c(13,10)) { set wp(i)=$p({CLINICAL_DIAGNOSES},$c(13,10),i) } do WP^DIE(63,{RowId},32.2,,"wp","%FMERR(63)") if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PATHOLOGICAL_DIAGNOSES}'="" { set D0={RowId} for i=1:1:$l({PATHOLOGICAL_DIAGNOSES},$c(13,10)) { set wp(i)=$p({PATHOLOGICAL_DIAGNOSES},$c(13,10),i) } do WP^DIE(63,{RowId},32.3,,"wp","%FMERR(63)") if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{LRDFN*C} FDA(63,IENS,.01)={LRDFN} set:{NAME*C} FDA(63,IENS,.03)={NAME} set:{DO_NOT_TRANSFUSE*C} FDA(63,IENS,.04)={DO_NOT_TRANSFUSE} set:{ABO_GROUP*C} FDA(63,IENS,.05)={ABO_GROUP} set:{RH_TYPE*C} FDA(63,IENS,.06)={RH_TYPE} set:{PAT__INFO_*C} FDA(63,IENS,.091)={PAT__INFO_} set:{LOCATION_TYPE*C} FDA(63,IENS,.092)={LOCATION_TYPE} set:{AUTOPSY_DATETIME*C} FDA(63,IENS,11)={AUTOPSY_DATETIME} set:{AGE_AT_DEATH*C} FDA(63,IENS,12.5)={AGE_AT_DEATH} set:{DATE_AUTOPSY_REPORT_COMPLETED*C} FDA(63,IENS,13)={DATE_AUTOPSY_REPORT_COMPLETED} set:{AUTOPSY_TYPIST*C} FDA(63,IENS,13.01)={AUTOPSY_TYPIST} set:{DATE_FINAL_AUTOPSY_DIAGNOSES*C} FDA(63,IENS,13.1)={DATE_FINAL_AUTOPSY_DIAGNOSES} set:{AUTOPSY_TYPE*C} FDA(63,IENS,13.7)={AUTOPSY_TYPE} set:{AUTOPSY__ACC_*C} FDA(63,IENS,14)={AUTOPSY__ACC_} set:{LOCATION*C} FDA(63,IENS,14.1)={LOCATION} set:{SERVICE*C} FDA(63,IENS,14.5)={SERVICE} set:{AUTOPSY_RELEASE_DATETIME*C} FDA(63,IENS,14.7)={AUTOPSY_RELEASE_DATETIME} set:{PROVISIONAL_ANAT_DX_DATE*C} FDA(63,IENS,14.9)={PROVISIONAL_ANAT_DX_DATE} set:{BODY_HEIGHT_IN*C} FDA(63,IENS,16)={BODY_HEIGHT_IN} set:{BODY_WT_LB*C} FDA(63,IENS,17)={BODY_WT_LB} set:{LUNGRT_GM*C} FDA(63,IENS,18)={LUNGRT_GM} set:{LUNGLT_GM*C} FDA(63,IENS,19)={LUNGLT_GM} set:{LIVER_GM*C} FDA(63,IENS,20)={LIVER_GM} set:{SPLEEN_GM*C} FDA(63,IENS,21)={SPLEEN_GM} set:{KIDNEYRT_GM*C} FDA(63,IENS,22)={KIDNEYRT_GM} set:{KIDNEYLT_GM*C} FDA(63,IENS,23)={KIDNEYLT_GM} set:{HEART_GM*C} FDA(63,IENS,24)={HEART_GM} set:{BRAIN_GM*C} FDA(63,IENS,25)={BRAIN_GM} set:{PITUITARY_GLAND_GM*C} FDA(63,IENS,25.1)={PITUITARY_GLAND_GM} set:{THYROID_GLAND_GM*C} FDA(63,IENS,25.2)={THYROID_GLAND_GM} set:{PARATHYROID_LEFT__UPPER_GM*C} FDA(63,IENS,25.3)={PARATHYROID_LEFT__UPPER_GM} set:{PARATHYROID_LEFT__LOWER_GM*C} FDA(63,IENS,25.4)={PARATHYROID_LEFT__LOWER_GM} set:{PARATHYROID_RIGHT_UPPER_GM*C} FDA(63,IENS,25.5)={PARATHYROID_RIGHT_UPPER_GM} set:{PARATHYROID_RIGHT_LOWER_GM*C} FDA(63,IENS,25.6)={PARATHYROID_RIGHT_LOWER_GM} set:{ADRENAL_LEFT_GM*C} FDA(63,IENS,25.7)={ADRENAL_LEFT_GM} set:{ADRENAL_RIGHT_GM*C} FDA(63,IENS,25.8)={ADRENAL_RIGHT_GM} set:{PANCREAS_GM*C} FDA(63,IENS,25.9)={PANCREAS_GM} set:{TESTIS_LEFT_GM*C} FDA(63,IENS,25.91)={TESTIS_LEFT_GM} set:{TESTIS_RIGHT_GM*C} FDA(63,IENS,25.92)={TESTIS_RIGHT_GM} set:{OVARY_LEFT_GM*C} FDA(63,IENS,25.93)={OVARY_LEFT_GM} set:{OVARY_RIGHT_GM*C} FDA(63,IENS,25.94)={OVARY_RIGHT_GM} set:{TRICUSPID_VALVE_CM*C} FDA(63,IENS,26)={TRICUSPID_VALVE_CM} set:{PULMONIC_VALVE_CM*C} FDA(63,IENS,27)={PULMONIC_VALVE_CM} set:{MITRAL_VALVE_CM*C} FDA(63,IENS,28)={MITRAL_VALVE_CM} set:{AORTIC_VALVE_CM*C} FDA(63,IENS,29)={AORTIC_VALVE_CM} set:{RIGHT_VENTRICLE_CM*C} FDA(63,IENS,30)={RIGHT_VENTRICLE_CM} set:{LEFT_VENTRICLE_CM*C} FDA(63,IENS,31)={LEFT_VENTRICLE_CM} set:{PLEURAL_CAVITY_LEFT_ML*C} FDA(63,IENS,31.1)={PLEURAL_CAVITY_LEFT_ML} set:{PLEURAL_CAVITY_RIGHT_ML*C} FDA(63,IENS,31.2)={PLEURAL_CAVITY_RIGHT_ML} set:{PERICARDIAL_CAVITY_ML*C} FDA(63,IENS,31.3)={PERICARDIAL_CAVITY_ML} set:{PERITONEAL_CAVITY_ML*C} FDA(63,IENS,31.4)={PERITONEAL_CAVITY_ML} set:{MAJOR_DIAGNOSTIC_DISAGREEMENT*C} FDA(63,IENS,83.1)={MAJOR_DIAGNOSTIC_DISAGREEMENT} set:{CLINICAL_DIAGNOSIS_CLARIFIED*C} FDA(63,IENS,83.2)={CLINICAL_DIAGNOSIS_CLARIFIED} set:{DATE_REPORT_MODIFIED__AU*C} FDA(63,IENS,102)={DATE_REPORT_MODIFIED__AU} set:{DIAGNOSIS_MODIFIED*C} FDA(63,IENS,102.2)={DIAGNOSIS_MODIFIED} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(63)") set %SkipFiling=1 if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {BLOOD_BANK_COMMENTS*C} { set D0={RowId} kill wp if {BLOOD_BANK_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({BLOOD_BANK_COMMENTS},$c(13,10)) { set wp(i)=$p({BLOOD_BANK_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(63,{RowId},.076,,wproot,"%FMERR(63)") if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CLINICAL_DIAGNOSES*C} { set D0={RowId} kill wp if {CLINICAL_DIAGNOSES}'="" { set wproot="wp" for i=1:1:$l({CLINICAL_DIAGNOSES},$c(13,10)) { set wp(i)=$p({CLINICAL_DIAGNOSES},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(63,{RowId},32.2,,wproot,"%FMERR(63)") if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PATHOLOGICAL_DIAGNOSES*C} { set D0={RowId} kill wp if {PATHOLOGICAL_DIAGNOSES}'="" { set wproot="wp" for i=1:1:$l({PATHOLOGICAL_DIAGNOSES},$c(13,10)) { set wp(i)=$p({PATHOLOGICAL_DIAGNOSES},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(63,{RowId},32.3,,wproot,"%FMERR(63)") if $d(%FMERR(63,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(63)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.LABDATA63S index ^LR nonnull "B" {LRDFN} {IEN} 0]]> data ^LR {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 5 "^" "AW" 17 "^" "AW" 18 "^" "AU" 9 "^" "AV" 4 "^" "AU" 1 "^" "AU" 15 "^" "AU" 11 "^" "AU" 13 "^" "AU" 6 3 new data,i,node set {BLOOD_BANK_COMMENTS}="" merge data=^LR({S1},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {BLOOD_BANK_COMMENTS}={BLOOD_BANK_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "AW" 1 "^" "AW" 2 "^" "AW" 10 81 new data,i,node set {CLINICAL_DIAGNOSES}="" merge data=^LR({S1},81) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CLINICAL_DIAGNOSES}={CLINICAL_DIAGNOSES}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 83 2 "^" "AU" 3 "^" "AU" 4 "^" 102 1 "^" 102 3 "^" 0 4 "^" "AW" 9 "^" "AW" 8 "^" "AW" 7 "^" "AV" 6 "^" "AW" 5 "^" "AU" 5 "^" .092 1 "^" 0 1 "^" "AW" 4 "^" "AW" 3 "^" 83 1 "^" "AV" 3 "^" 0 3 "^" "AWI" 4 "^" "AWI" 5 "^" "AWI" 1 "^" "AW" 14 "^" "AW" 13 "^" "AW" 16 "^" "AW" 15 82 new data,i,node set {PATHOLOGICAL_DIAGNOSES}="" merge data=^LR({S1},82) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PATHOLOGICAL_DIAGNOSES}={PATHOLOGICAL_DIAGNOSES}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .091 1 "^" "AV" 9 "^" "AV" 10 "^" "AW" 11 "^" "AV" 7 "^" "AV" 8 "^" "AU" 17 "^" "AV" 2 "^" 0 6 "^" "AV" 5 "^" "AU" 8 "^" "AW" 6 "^" "AWI" 2 "^" "AWI" 3 "^" "AW" 12 "^" "AV" 1 Generated class for FileMan File Number: '60' File Name: 'LABORATORY TEST' Class generated by %fm2class version 2.56 This is the file that holds the names and ordering, display of tests. persistent _PUBLIC 0 RowId LABORATORY_TEST_60 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.267473467 67178,44710.748740923 right LABORATORY TEST 60 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'AMA COMPLIANT/BILLABLE PANEL' FileMan Field Number: '508' If this panel test is an AMA compliant or otherwise billable panel, enter a 'Yes' in this field. If this field is set to 'Yes' and a valid CPT code is on file, the CPT code for the panel will be sent to PCE for billing purposes as a bundled panel. If this field is set to 'No', the panel will be unbundled into it's individual atomic tests and the CPT codes for those atomic tests will be sent to PCE for billing purposes. Note: This field is only functional for a panel test. This field is ignored for an atomic test. Refer to the Clinical Indicator Data Capture (CIDC) implementation guide for further instruction for managing this field. %Library.EnumString 38 AMA_COMPLIANTBILLABLE_PANEL FileMan Field Label: '*ASK AMIS/CAP CODES' FileMan Field Number: '501' This field is not longer used by AMIS/WORKLOAD. It will be made obsolete with V5.2 and will be deleted in later release. Consult the section on workload in your implementation guide. %Library.EnumString 35 ASK_AMISCAP_CODES FileMan Field Label: 'BILLABLE' FileMan Field Number: '138' Yes: Test satisfies definition of a Standardized Billable Test (SBT) and will count for Laboratory workload. Is a test that a provider can order, has its own published CPT Code and is performed by Lab personnel. No: Test is not an SBT because it is either not separately orderable by a provider, does not have its own CPT Code, is a calculated test result, or is a test that is performed by non-lab personnel. %Library.EnumString 29 BILLABLE FileMan Field Label: 'CALCULATION TEST' FileMan Field Number: '136' Whether the test result is calculated (not directly measured) %Library.EnumString 27 CALCULATION_TEST FileMan Field Label: 'CATALOG ITEM' FileMan Field Number: '64.2' This field is used to indicate that this entry is to be included in the Electronic Catalog. %Library.EnumString 20 CATALOG_ITEM FileMan Field Label: 'CIS TEST CODE' FileMan Field Number: '504' This field is used by Clinical Information System such as those found in MICU. This field is not used with the laboratory package it self but is a special field for interface with external system computer systems. %Library.String 37 CIS_TEST_CODE FileMan Field Label: 'COMBINE TEST DURING ORDER' FileMan Field Number: '503' This field works in conjunction with combine test field in 69.9 If you do not want this to be combined with any other test answer NO --- A NULL ANSWER MEANS YES %Library.EnumString 36 COMBINE_TEST_DURING_ORDER FileMan Field Label: 'CREATION DATE' FileMan Field Number: '131' The creation date of the test. %Library.FilemanDate 22 CREATION_DATE FileMan Field Label: 'CULTURE ID PREFIX' FileMan Field Number: '412' Used by the Vitek to make the accession number unique for down load. This number should be zero to nine. This number is appended to the front of the accession number. If there is no entry in this field, this test will not be downloaded. %Library.Numeric 34 CULTURE_ID_PREFIX FileMan Field Label: 'DATA TYPE' FileMan Field Number: '411' Computed field. %Library.String 1 33 set U="^",D0=$piece({RowId},"||",1) S X=$P(^LAB(60,D0,0),U,12) I X]"" S X=$P(@(U_X_"0)"),U,2),X=$S(X["F":"FREE TEXT",X["N":"NUMERIC",X["S":"SET",1:"OTHER") set {DATA_TYPE}=X 1 DATA_TYPE FileMan Field Label: 'EXTRA LABELS' FileMan Field Number: '16' If blank, the minimum number of labels (accounting for required volume) is generated. Enter a positive number for extra copies, -1 if NO label is desired. %Library.Numeric 13 EXTRA_LABELS FileMan Field Label: 'FIELD' FileMan Field Number: '13' Data Dictionary field in file 63. %Library.String 11 FIELD FileMan Field Label: 'GENERAL PROCESSING INST.' FileMan Field Number: '110' This may include any processing instructions pertinent to this test. %Library.String 21 GENERAL_PROCESSING_INST_ FileMan Field Label: 'GENERAL WARD INSTRUCTIONS' FileMan Field Number: '310' Text to be seen by the ward each time the test is ordered regardless of the type of collection sample. %Library.String 31 GENERAL_WARD_INSTRUCTIONS Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(60,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INPUT TRANSFORM' FileMan Field Number: '410' Computed field. %Library.String 1 32 set U="^",D0=$piece({RowId},"||",1) S X=$P(^LAB(60,D0,0),U,12) I X]"" S Y=@(U_X_"0)"),X=$S($P(Y,U,2)["S":$P(Y,U,3),1:$P(Y,U,5,99)) set {INPUT_TRANSFORM}=X 1 INPUT_TRANSFORM FileMan Field Label: 'IN HOUSE TEST' FileMan Field Number: '134' Tests are performed on-site using instruments or manual methods. %Library.EnumString 25 IN_HOUSE_TEST FileMan Field Label: 'LOCATION (DATA NAME)' FileMan Field Number: '5' LOCATION (DATA NAME) is the exact character representation of the corresponding entry in the RESULTS file. The input transform receives from SUBSCRIPT of the previously defined piece, as well as the node and piece information from the data definition file for the result. %Library.String 7 LOCATION_DATA_NAME FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the Laboratory test you are defining in this entry. %Library.String 1 3 NAME FileMan Field Label: 'POC TEST' FileMan Field Number: '135' Tests performed using POC equipment, ie, glucometers, coagulation, INR, etc, that are performed outside the main laboratory, ie, wards, ICU, OR, etc. %Library.EnumString 26 POC_TEST FileMan Field Label: 'PRETTY PRINT ENTRY' FileMan Field Number: '54' This is the Pretty Print Routine (see next field) line entry point. Some programs have more than one entry to give a "special" display. %Library.String 17 PRETTY_PRINT_ENTRY FileMan Field Label: 'PRETTY PRINT ROUTINE' FileMan Field Number: '55' If no entry is made, (and the test is type 'O'utput or 'B'oth), display output from the [LRGEN] menu option is a general cumulative. With a program name here, [LRGEN] instead runs the alternate program for display. %Library.String 18 PRETTY_PRINT_ROUTINE FileMan Field Label: 'PRINT CODE' FileMan Field Number: '53' Represents MUMPS code for extraction or justification of the value that is in the file. It's particularly useful for displaying abbreviated information for sets. It could be used to append trailing zeros after a decimal point. %Library.String 16 PRINT_CODE FileMan Field Label: 'PRINT NAME' FileMan Field Number: '51' Default test heading for cumulative results reports. (May be different in LAB REPORTS file 64.5.) in LAB REPORTS file 64.5) %Library.String 1 14 PRINT_NAME FileMan Field Label: 'PRINT ORDER' FileMan Field Number: '56' This is the print order of the test within its accession area. %Library.Numeric 19 PRINT_ORDER FileMan Field Label: '*QUICK INDEX' FileMan Field Number: '15' No longer used. Will be deleted after this version. index list. Enter YES to include, @ to delete. %Library.EnumString 12 QUICK_INDEX FileMan Field Label: 'REQUIRED TEST' FileMan Field Number: '10' This field should be YES if this is a mandatory test, i.e., if no data is reported, the default status is "pending". reported, the default status is "pending". %Library.EnumString 10 REQUIRED_TEST FileMan Field Label: 'Reserved' FileMan Field Number: '52' Reserved for future use. %Library.String 15 RESERVED FileMan Field Label: 'SCANNED IMAGE TEST' FileMan Field Number: '137' This field indicates if the result is scanned due to complexity. %Library.EnumString 28 SCANNED_IMAGE_TEST FileMan Field Label: 'SUBSCRIPT' FileMan Field Number: '4' SUBSCRIPT is the pointer to the legal subscripts in the LR SUBSCRIPT file. CH for Chem, Hem, Tox, Ser, Ria, etc., MI for Microbiology, BB for Blood Bank, EM for Electron Microscopy, SP for Surgical Pathology, CY for Cytology, AU for Autopsy. This field is required for all orderable tests. Bank, EM for Electron Microscopy, SP for Surgical Pathology, CY for Cytology, AU for Autopsy. %Library.EnumString 6 SUBSCRIPT FileMan Field Label: 'TEST COST' FileMan Field Number: '1' Enter the cost of the test. %Library.Numeric 4 TEST_COST FileMan Field Label: 'TEST INACTIVE' FileMan Field Number: '132' This field indicates if a test is inactive. If it is Y the test is inactive. %Library.EnumString 23 TEST_INACTIVE FileMan Field Label: 'TEST INACTIVE DATE' FileMan Field Number: '133' This is the date that a Test was determined to be inactive. %Library.FilemanDate 24 TEST_INACTIVE_DATE FileMan Field Label: 'TYPE' FileMan Field Number: '3' I == (Input) test can be ordered but not displayed by the computer. O == (Output) test can be displayed but never ordered by itself. B == (Both) test can be ordered and displayed. N == (Neither) test is internal to lab only. %Library.EnumString 5 TYPE FileMan Field Label: 'UNIQUE ACCESSION #' FileMan Field Number: '7' If this field contains YES then this test will have a unique accession number whenever it is accessioned, even though it may be ordered with other tests. If the test may be performed with other tests on the same specimen, this field should be blank. %Library.EnumString 8 UNIQUE_ACCESSION_ FileMan Field Label: 'UNIQUE COLLECTION SAMPLE' FileMan Field Number: '8' This field should be entered only if the test is never done on any other collection sample than the ONE designated in Select COLLECTION SAMPLE: The system will then not bother asking if the sample is the correct one. %Library.EnumString 9 UNIQUE_COLLECTION_SAMPLE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 39 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WORKLOAD CAPTURE' FileMan Field Number: '139' Yes: The test is a stand-alone product, ie, is an SBT, that has its own labor and supply costs. No: There is no labor or supply cost associated with producing the test because the test is already part of the labor/supply costs of another test. %Library.EnumString 30 WORKLOAD_CAPTURE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(60," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(60,"+1,",.01)={"NAME"} set:{TEST_COST}'="" FDA(60,"+1,",1)={"TEST_COST"} set:{TYPE}'="" FDA(60,"+1,",3)={"TYPE"} set:{SUBSCRIPT}'="" FDA(60,"+1,",4)={"SUBSCRIPT"} set:{LOCATION_DATA_NAME}'="" FDA(60,"+1,",5)={"LOCATION_DATA_NAME"} set:{UNIQUE_ACCESSION_}'="" FDA(60,"+1,",7)={"UNIQUE_ACCESSION_"} set:{UNIQUE_COLLECTION_SAMPLE}'="" FDA(60,"+1,",8)={"UNIQUE_COLLECTION_SAMPLE"} set:{REQUIRED_TEST}'="" FDA(60,"+1,",10)={"REQUIRED_TEST"} set:{FIELD}'="" FDA(60,"+1,",13)={"FIELD"} set:{QUICK_INDEX}'="" FDA(60,"+1,",15)={"QUICK_INDEX"} set:{EXTRA_LABELS}'="" FDA(60,"+1,",16)={"EXTRA_LABELS"} set:{PRINT_NAME}'="" FDA(60,"+1,",51)={"PRINT_NAME"} set:{RESERVED}'="" FDA(60,"+1,",52)={"RESERVED"} set:{PRINT_CODE}'="" FDA(60,"+1,",53)={"PRINT_CODE"} set:{PRETTY_PRINT_ENTRY}'="" FDA(60,"+1,",54)={"PRETTY_PRINT_ENTRY"} set:{PRETTY_PRINT_ROUTINE}'="" FDA(60,"+1,",55)={"PRETTY_PRINT_ROUTINE"} set:{PRINT_ORDER}'="" FDA(60,"+1,",56)={"PRINT_ORDER"} set:{CATALOG_ITEM}'="" FDA(60,"+1,",64.2)={"CATALOG_ITEM"} set:{CREATION_DATE}'="" FDA(60,"+1,",131)={"CREATION_DATE"} set:{TEST_INACTIVE}'="" FDA(60,"+1,",132)={"TEST_INACTIVE"} set:{TEST_INACTIVE_DATE}'="" FDA(60,"+1,",133)={"TEST_INACTIVE_DATE"} set:{IN_HOUSE_TEST}'="" FDA(60,"+1,",134)={"IN_HOUSE_TEST"} set:{POC_TEST}'="" FDA(60,"+1,",135)={"POC_TEST"} set:{CALCULATION_TEST}'="" FDA(60,"+1,",136)={"CALCULATION_TEST"} set:{SCANNED_IMAGE_TEST}'="" FDA(60,"+1,",137)={"SCANNED_IMAGE_TEST"} set:{BILLABLE}'="" FDA(60,"+1,",138)={"BILLABLE"} set:{WORKLOAD_CAPTURE}'="" FDA(60,"+1,",139)={"WORKLOAD_CAPTURE"} set:{CULTURE_ID_PREFIX}'="" FDA(60,"+1,",412)={"CULTURE_ID_PREFIX"} set:{ASK_AMISCAP_CODES}'="" FDA(60,"+1,",501)={"ASK_AMISCAP_CODES"} set:{COMBINE_TEST_DURING_ORDER}'="" FDA(60,"+1,",503)={"COMBINE_TEST_DURING_ORDER"} set:{CIS_TEST_CODE}'="" FDA(60,"+1,",504)={"CIS_TEST_CODE"} set:{AMA_COMPLIANTBILLABLE_PANEL}'="" FDA(60,"+1,",508)={"AMA_COMPLIANTBILLABLE_PANEL"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(60)") set %SkipFiling=1 if $d(%FMERR(60,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(60)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {GENERAL_PROCESSING_INST_}'="" { set D0={RowId} for i=1:1:$l({GENERAL_PROCESSING_INST_},$c(13,10)) { set wp(i)=$p({GENERAL_PROCESSING_INST_},$c(13,10),i) } do WP^DIE(60,{RowId},110,,"wp","%FMERR(60)") if $d(%FMERR(60,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(60)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_WARD_INSTRUCTIONS}'="" { set D0={RowId} for i=1:1:$l({GENERAL_WARD_INSTRUCTIONS},$c(13,10)) { set wp(i)=$p({GENERAL_WARD_INSTRUCTIONS},$c(13,10),i) } do WP^DIE(60,{RowId},310,,"wp","%FMERR(60)") if $d(%FMERR(60,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(60)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(60,IENS,.01)={NAME} set:{TEST_COST*C} FDA(60,IENS,1)={TEST_COST} set:{TYPE*C} FDA(60,IENS,3)={TYPE} set:{SUBSCRIPT*C} FDA(60,IENS,4)={SUBSCRIPT} set:{LOCATION_DATA_NAME*C} FDA(60,IENS,5)={LOCATION_DATA_NAME} set:{UNIQUE_ACCESSION_*C} FDA(60,IENS,7)={UNIQUE_ACCESSION_} set:{UNIQUE_COLLECTION_SAMPLE*C} FDA(60,IENS,8)={UNIQUE_COLLECTION_SAMPLE} set:{REQUIRED_TEST*C} FDA(60,IENS,10)={REQUIRED_TEST} set:{FIELD*C} FDA(60,IENS,13)={FIELD} set:{QUICK_INDEX*C} FDA(60,IENS,15)={QUICK_INDEX} set:{EXTRA_LABELS*C} FDA(60,IENS,16)={EXTRA_LABELS} set:{PRINT_NAME*C} FDA(60,IENS,51)={PRINT_NAME} set:{RESERVED*C} FDA(60,IENS,52)={RESERVED} set:{PRINT_CODE*C} FDA(60,IENS,53)={PRINT_CODE} set:{PRETTY_PRINT_ENTRY*C} FDA(60,IENS,54)={PRETTY_PRINT_ENTRY} set:{PRETTY_PRINT_ROUTINE*C} FDA(60,IENS,55)={PRETTY_PRINT_ROUTINE} set:{PRINT_ORDER*C} FDA(60,IENS,56)={PRINT_ORDER} set:{CATALOG_ITEM*C} FDA(60,IENS,64.2)={CATALOG_ITEM} set:{CREATION_DATE*C} FDA(60,IENS,131)={CREATION_DATE} set:{TEST_INACTIVE*C} FDA(60,IENS,132)={TEST_INACTIVE} set:{TEST_INACTIVE_DATE*C} FDA(60,IENS,133)={TEST_INACTIVE_DATE} set:{IN_HOUSE_TEST*C} FDA(60,IENS,134)={IN_HOUSE_TEST} set:{POC_TEST*C} FDA(60,IENS,135)={POC_TEST} set:{CALCULATION_TEST*C} FDA(60,IENS,136)={CALCULATION_TEST} set:{SCANNED_IMAGE_TEST*C} FDA(60,IENS,137)={SCANNED_IMAGE_TEST} set:{BILLABLE*C} FDA(60,IENS,138)={BILLABLE} set:{WORKLOAD_CAPTURE*C} FDA(60,IENS,139)={WORKLOAD_CAPTURE} set:{CULTURE_ID_PREFIX*C} FDA(60,IENS,412)={CULTURE_ID_PREFIX} set:{ASK_AMISCAP_CODES*C} FDA(60,IENS,501)={ASK_AMISCAP_CODES} set:{COMBINE_TEST_DURING_ORDER*C} FDA(60,IENS,503)={COMBINE_TEST_DURING_ORDER} set:{CIS_TEST_CODE*C} FDA(60,IENS,504)={CIS_TEST_CODE} set:{AMA_COMPLIANTBILLABLE_PANEL*C} FDA(60,IENS,508)={AMA_COMPLIANTBILLABLE_PANEL} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(60)") set %SkipFiling=1 if $d(%FMERR(60,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(60)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {GENERAL_PROCESSING_INST_*C} { set D0={RowId} kill wp if {GENERAL_PROCESSING_INST_}'="" { set wproot="wp" for i=1:1:$l({GENERAL_PROCESSING_INST_},$c(13,10)) { set wp(i)=$p({GENERAL_PROCESSING_INST_},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(60,{RowId},110,,wproot,"%FMERR(60)") if $d(%FMERR(60,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(60)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_WARD_INSTRUCTIONS*C} { set D0={RowId} kill wp if {GENERAL_WARD_INSTRUCTIONS}'="" { set wproot="wp" for i=1:1:$l({GENERAL_WARD_INSTRUCTIONS},$c(13,10)) { set wp(i)=$p({GENERAL_WARD_INSTRUCTIONS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(60,{RowId},310,,wproot,"%FMERR(60)") if $d(%FMERR(60,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(60)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.LABORATORYTEE8DS index ^LAB nonnull 60 "B" {NAME} {IEN} 0]]> index ^LAB nonnull 60 "C" {LOCATION_DATA_NAME} {IEN} 0]]> index ^LAB nonnull 60 "D" {PRINT_NAME} {IEN} 0]]> data ^LAB 60 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 12 1 "^" 0 2 "^" 14 8 "^" 14 6 "^" 64 3 "^" 10 1 "^" 0 20 "^" 14 1 "^" 0 21 "^" 0 15 "^" 0 12 7 new data,i,node set {GENERAL_PROCESSING_INST_}="" merge data=^LAB(60,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_PROCESSING_INST_}={GENERAL_PROCESSING_INST_}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 6 new data,i,node set {GENERAL_WARD_INSTRUCTIONS}="" merge data=^LAB(60,{S2},6) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_WARD_INSTRUCTIONS}={GENERAL_WARD_INSTRUCTIONS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 14 4 "^" 0 5 "^" 0 1 "^" 14 5 "^" .1 4 "^" .1 5 "^" .1 3 "^" .1 1 "^" .1 6 "^" 0 13 "^" 0 17 "^" .1 2 "^" 14 7 "^" 0 4 "^" 0 11 "^" 14 2 "^" 14 3 "^" 0 3 "^" 0 7 "^" 0 8 "^" 14 9 Generated class for FileMan File Number: '.85' File Name: 'LANGUAGE' Class generated by %fm2class version 2.56 The LANGUAGE file is used both to officially identify a language, and to store MUMPS code needed to do language-specific conversions of data such as dates and numbers. The KIDS build for FileMan 22.2 contains all languages in ISO 639-2:1998(as revised 11/21/2012). When installed without the KIDS build, FileMan 22.2 installs 11 languages. A pointer to this file from the TRANSLATION multiple on the DIALOG file also allows non-English text to be returned via FileMan calls. A note to VISTA developers: Although users can select entries by name, software should use the official two or three letter codes to eliminate mistakes resulting from languages that have similar spelling. persistent _PUBLIC 0 RowId LANGUAGE__85 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.27881784 67178,44710.83843803 right LANGUAGE .85 2.56 12/04/2024 12:25:10 1 1 IEN 1 LANGUAGE__85]]> LINGUISTICCATEGORY VALIP.prosthetic.fm2cw.LANGUAGE85 FKey_LINGUISTIC_CATEGORY LANGUAGE__85]]> MEMBEROFLANGUAGESET VALIP.prosthetic.fm2cw.LANGUAGE85 FKey_MEMBER_OF_LANGUAGE_SET FileMan Field Label: 'ALTERNATE THREE LETTER CODE' FileMan Field Number: '.05' This is the alternate three letter code for a language. This will only be used in cases where the language abbreviation is different in English than in the native language. E.g. GER instead of DEU; for German instead of Deutsch. This alternate abbreviation can be found in ISO 639-2/B. %Library.String 8 ALTERNATE_THREE_LETTER_CODE FileMan Field Label: 'CARDINAL NUMBER FORMAT' FileMan Field Number: '10.3' MUMPS code used to transfer a number in Y to its cardinal equivalent in this language. The code should set Y to the cardinal equivalent without altering any other variables in the environment. Ex. in English: Y=2000 becomes Y=2,000 Y=1234567 becomes Y=1,234,567 %Library.String 1 23 s {CARDINAL_NUMBER_FORMAT}=$e({NODE_CRD},1,245) 1 CARDINAL_NUMBER_FORMAT FileMan Field Label: 'DATE/TIME FORMAT' FileMan Field Number: '10.2' MUMPS code used to transfer a date or date/time in Y from FileMan internal format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS. The code should set Y to the output, without altering any other variables in the environment. Ex. in English: Y=2940612.031245 becomes Y=JUN 12,1994@03:12:45 %Library.String 1 17 s {DATETIME_FORMAT}=$e({NODE_DD},1,245) 1 DATETIME_FORMAT FileMan Field Label: 'DATE/TIME FORMAT (FMTE)' FileMan Field Number: '10.21' MUMPS code used to transfer a date or date/time in Y from FileMan internal format, to printable format based on the various outputs from routine FMTE^DILIBF. This is an extrinsic function. Coming in to this MUMPS code, in addition to the internal date in Y, a third parameter will be defined to contain flags equivalent to the flag passed as the second input parameter to FMTE^DILIBF. The code should set Y to the output, without altering any other variables in the environment. The output should be formatted based on these flags: 1 MMM DD, YYYY@HH:MM:SS 2 MM/DD/YY@HH:MM:SS no leading zeroes on month,day 3 DD/MM/YY@HH:MM:SS no leading zeroes on month,day 4 YY/MM/DD@HH:MM:SS 5 MMM DD,YYYY@HH:MM:SS no space before year,no leading zero on day 6 MM-DD-YYYY @ HH:MM:SS spaces separate time 7 MM-DD-YYYY@HH:MM:SS no leading zeroes on month,day letters in the flag S return always seconds U return uppercase month names P return time as am,pm D return only date part %Library.String 1 19 s {DATETIME_FORMAT_FMTE}=$e({NODE_FMTE},1,245) 1 DATETIME_FORMAT_FMTE FileMan Field Label: 'DATE INPUT' FileMan Field Number: '20.2' %Library.String 1 29 s {DATE_INPUT}=$e({NODE_20_2},1,245) 1 DATE_INPUT FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '10' %Library.String 13 DESCRIPTION FileMan Field Label: 'FOUR LETTER CODE' FileMan Field Number: '.04' Enter the four letter code associated with the language in ISO-639-6. %Library.String 7 FOUR_LETTER_CODE FileMan Field Label: 'ID NUMBER' FileMan Field Number: '.001' A number that is used to uniquely identify a language. This number corresponds to the Kernel system variable DUZ("LANG"), which is set during Kernel signon to signify which language Fileman should use. %Library.String 1 3 Set {*}={IEN} 1 ID_NUMBER Internal Entry Number %Library.String $$next^%apiSQL("$p(^DI(.85,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LINGUISTIC CATEGORY' FileMan Field Number: '.08' Enter a language collection to which this language belongs. VALIP.prosthetic.fm2cw.LANGUAGE85 11 LINGUISTIC_CATEGORY NAME Language-Name Enter the English name of the language, not the native name. The default is the English name from ISO 639, converted where necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is used. However, this use of ISO 639's spelling as a default is overridden in several different ways to improve consistency across entries and to reduce selection error.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.LANGUAGE__85 where %ID=:id) set {LINGUISTIC_CATEGORY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LINGUISTIC_CATEGORY_NAME 1 FileMan Field Label: 'LOWERCASE CONVERSION' FileMan Field Number: '10.5' MUMPS code used to convert text in Y to its lower-case equivalent in this language. The code should set Y to the external format without altering any other variables in the environment. In English, changes: ABcdEFgHij to: abcdefghij %Library.String 1 27 s {LOWERCASE_CONVERSION}=$e({NODE_LC},1,245) 1 LOWERCASE_CONVERSION FileMan Field Label: 'MEMBER OF LANGUAGE SET' FileMan Field Number: '.09' If this language is a dialect of a macrolanguage, select the macrolanguage to which it belongs. (E.g. Cantonese is a dialect of Chinese; thus Chinese is Cantonese's macrolanguage.) VALIP.prosthetic.fm2cw.LANGUAGE85 12 MEMBER_OF_LANGUAGE_SET NAME Language-Name Enter the English name of the language, not the native name. The default is the English name from ISO 639, converted where necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is used. However, this use of ISO 639's spelling as a default is overridden in several different ways to improve consistency across entries and to reduce selection error.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.LANGUAGE__85 where %ID=:id) set {MEMBER_OF_LANGUAGE_SET_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEMBER_OF_LANGUAGE_SET_NAME 1 FileMan Field Label: 'NAME' FileMan Field Number: '.01' Language-Name Enter the English name of the language, not the native name. The default is the English name from ISO 639, converted where necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is used. However, this use of ISO 639's spelling as a default is overridden in several different ways to improve consistency across entries and to reduce selection error. %Library.String 1 4 NAME Computed Field For Node 20.2 %Library.String 1 28 s {NODE_20_2}=$g(^DI(.85,{IEN},20.2)) 1 NODE_20_2 Computed Field For Node CRD %Library.String 1 22 s {NODE_CRD}=$g(^DI(.85,{IEN},"CRD")) 1 NODE_CRD Computed Field For Node DD %Library.String 1 16 s {NODE_DD}=$g(^DI(.85,{IEN},"DD")) 1 NODE_DD Computed Field For Node FMTE %Library.String 1 18 s {NODE_FMTE}=$g(^DI(.85,{IEN},"FMTE")) 1 NODE_FMTE Computed Field For Node LC %Library.String 1 26 s {NODE_LC}=$g(^DI(.85,{IEN},"LC")) 1 NODE_LC Computed Field For Node ORD %Library.String 1 14 s {NODE_ORD}=$g(^DI(.85,{IEN},"ORD")) 1 NODE_ORD Computed Field For Node TIME %Library.String 1 20 s {NODE_TIME}=$g(^DI(.85,{IEN},"TIME")) 1 NODE_TIME Computed Field For Node UC %Library.String 1 24 s {NODE_UC}=$g(^DI(.85,{IEN},"UC")) 1 NODE_UC FileMan Field Label: 'ORDINAL NUMBER FORMAT' FileMan Field Number: '10.1' MUMPS code used to transfer a number in Y to its ordinal equivalent in this language. The code should set Y to the ordinal equivalent without altering any other variables in the environment. Ex. in English: Y=1 becomes Y=1ST Y=2 becomes Y=2ND Y=3 becomes Y=3RD etc. %Library.String 1 15 s {ORDINAL_NUMBER_FORMAT}=$e({NODE_ORD},1,245) 1 ORDINAL_NUMBER_FORMAT FileMan Field Label: 'SCOPE' FileMan Field Number: '.06' Enter the Scope of a Language. Individual if the language is an individually identifiable language (e.g. 'Cantonese'). Macrolanguage if the language encopasses several other languages (e.g. 'Chinese') Collective if the language is a language group (e.g. 'Languages, Sino-Tibetan') Special and Local are reserved for specific entries. %Library.EnumString 9 SCOPE Relationship for Sub-File/Multiple to file name ALTERNATE NAME child VALIP.prosthetic.fm2cw.SUBALTERNATENAME8501 children LANGUAGE85 1 SUB_ALTERNATE_NAME__8501 FileMan Field Label: 'THREE LETTER CODE' FileMan Field Number: '.03' Enter the three-letter code defined for this language in the ISO 639-2/B standard. %Library.String 6 THREE_LETTER_CODE FileMan Field Label: 'TIME' FileMan Field Number: '10.22' The code stored here will be used to get formatted output of the time part belonging to a FileMan Date/Time value. %Library.String 1 21 s {TIME10_22}=$e({NODE_TIME},1,245) 1 TIME10_22 FileMan Field Label: 'TWO LETTER CODE' FileMan Field Number: '.02' Enter the two-letter code defined for this language in the ISO 639-1 standard. Not every language has a two-letter code; for those that do not leave this field blank. %Library.String 5 TWO_LETTER_CODE FileMan Field Label: 'TYPE' FileMan Field Number: '.07' Historical Status Living means that the language is spoken today (e.g. English). Constructed means that the language is artificial (e.g. Esperanto). Ancient means that the language is very old and not spoken any more (e.g. Ancient Egyptian). Historical means that the language was being used in the Medieval times and is not spoken any more (e.g. Old High German). Extinct means that the language was being used recently but has died out (e.g. Cornish). %Library.EnumString 10 TYPE FileMan Field Label: 'UPPERCASE CONVERSION' FileMan Field Number: '10.4' MUMPS code used to convert text in Y to its upper-case equivalent in this language. The code should set Y to the external format without altering any other variables in the environment. In English, changes abCdeF to: ABCDEF %Library.String 1 25 s {UPPERCASE_CONVERSION}=$e({NODE_UC},1,245) 1 UPPERCASE_CONVERSION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 30 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DI(.85," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(.85,"+1,",.01)={"NAME"} set:{TWO_LETTER_CODE}'="" FDA(.85,"+1,",.02)={"TWO_LETTER_CODE"} set:{THREE_LETTER_CODE}'="" FDA(.85,"+1,",.03)={"THREE_LETTER_CODE"} set:{FOUR_LETTER_CODE}'="" FDA(.85,"+1,",.04)={"FOUR_LETTER_CODE"} set:{ALTERNATE_THREE_LETTER_CODE}'="" FDA(.85,"+1,",.05)={"ALTERNATE_THREE_LETTER_CODE"} set:{SCOPE}'="" FDA(.85,"+1,",.06)={"SCOPE"} set:{TYPE}'="" FDA(.85,"+1,",.07)={"TYPE"} set:{LINGUISTIC_CATEGORY}'="" FDA(.85,"+1,",.08)={"LINGUISTIC_CATEGORY"} set:{MEMBER_OF_LANGUAGE_SET}'="" FDA(.85,"+1,",.09)={"MEMBER_OF_LANGUAGE_SET"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(.85)") set %SkipFiling=1 if $d(%FMERR(.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(.85,{RowId},10,,"wp","%FMERR(.85)") if $d(%FMERR(.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(.85,IENS,.01)={NAME} set:{TWO_LETTER_CODE*C} FDA(.85,IENS,.02)={TWO_LETTER_CODE} set:{THREE_LETTER_CODE*C} FDA(.85,IENS,.03)={THREE_LETTER_CODE} set:{FOUR_LETTER_CODE*C} FDA(.85,IENS,.04)={FOUR_LETTER_CODE} set:{ALTERNATE_THREE_LETTER_CODE*C} FDA(.85,IENS,.05)={ALTERNATE_THREE_LETTER_CODE} set:{SCOPE*C} FDA(.85,IENS,.06)={SCOPE} set:{TYPE*C} FDA(.85,IENS,.07)={TYPE} set:{LINGUISTIC_CATEGORY*C} FDA(.85,IENS,.08)={LINGUISTIC_CATEGORY} set:{MEMBER_OF_LANGUAGE_SET*C} FDA(.85,IENS,.09)={MEMBER_OF_LANGUAGE_SET} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(.85)") set %SkipFiling=1 if $d(%FMERR(.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(.85,{RowId},10,,wproot,"%FMERR(.85)") if $d(%FMERR(.85,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(.85)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.LANGUAGE85S index ^DI nonnull .85 "B" {NAME} {IEN} 0]]> index ^DI nonnull .85 "C" {TWO_LETTER_CODE} {IEN} 0]]> index ^DI nonnull .85 "D" {THREE_LETTER_CODE} {IEN} 0]]> data ^DI .85 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 10 new data,i,node set {DESCRIPTION}="" merge data=^DI(.85,{S2},10) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 4 "^" 0 8 "^" 0 9 "^" 0 1 "^" 0 6 "^" 0 3 "^" 0 2 "^" 0 7 Generated class for FileMan File Number: '696.5' File Name: 'LEFT VENTRICULOGRAPHY' Class generated by %fm2class version 2.56 This file stores the left ventricular segments for use by the Cardiac Catheterization procedure. persistent _PUBLIC 0 RowId LEFT_VENTRICULOGRAPHY_696_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.294088731 67178,44710.876882035 right LEFT VENTRICULOGRAPHY 696.5 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'DISPLAY CODE' FileMan Field Number: '1' This field identifies the order corresponding to a heart diagram. %Library.Numeric 4 DISPLAY_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This file stores a list of Left Ventricular Segments for use by the Cardiac Catheterization sub-module. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696.5,"+1,",.01)={"NAME"} set:{DISPLAY_CODE}'="" FDA(696.5,"+1,",1)={"DISPLAY_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696.5)") set %SkipFiling=1 if $d(%FMERR(696.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696.5,IENS,.01)={NAME} set:{DISPLAY_CODE*C} FDA(696.5,IENS,1)={DISPLAY_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.5)") set %SkipFiling=1 if $d(%FMERR(696.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.LEFTVENTRICC955S index ^MCAR nonnull 696.5 "B" {NAME} {IEN} 0]]> index ^MCAR nonnull 696.5 "D" {DISPLAY_CODE} {IEN} 0]]> data ^MCAR 696.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '696.2' File Name: 'LESION MORPHOLOGY' Class generated by %fm2class version 2.56 This file holds the various morphologies pointed to by the MORPHOLOGY subfields of the CARDIAC CATHETERIZATION file. persistent _PUBLIC 0 RowId LESION_MORPHOLOGY_696_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.317878101 67178,44710.910031714 right LESION MORPHOLOGY 696.2 2.56 12/04/2024 12:25:10 1 1 IEN 1 MORPHOLOGY_FIELD_61_1]]> MORPHOLOGYFIELD VALIP.prosthetic.fm2cw.MORPHOLOGYFIELD611 FKey_MORPHOLOGY_FIELD Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MORPHOLOGY FIELD' FileMan Field Number: '1' This field is a link to the Laboratory Morphology Field file. VALIP.prosthetic.fm2cw.MORPHOLOGYFIELD611 4 MORPHOLOGY_FIELD NAME The name of the morphology.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.LESION_MORPHOLOGY_696_2 where %ID=:id) set {MORPHOLOGY_FIELD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MORPHOLOGY_FIELD_NAME 1 FileMan Field Label: 'NAME' FileMan Field Number: '.01' This file holds the various morphologies for the segment fields and percent narrowing field in Catheterization. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696.2,"+1,",.01)={"NAME"} set:{MORPHOLOGY_FIELD}'="" FDA(696.2,"+1,",1)={"MORPHOLOGY_FIELD"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696.2)") set %SkipFiling=1 if $d(%FMERR(696.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696.2,IENS,.01)={NAME} set:{MORPHOLOGY_FIELD*C} FDA(696.2,IENS,1)={MORPHOLOGY_FIELD} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.2)") set %SkipFiling=1 if $d(%FMERR(696.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.LESIONMORPH40F7S index ^MCAR nonnull 696.2 "B" {NAME} {IEN} 0]]> data ^MCAR 696.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '407.5' File Name: 'LETTER' Class generated by %fm2class version 2.56 This file contains all letters that may be sent out by a site. These include letters notifying patients of future appointments, cancelled appointments, and scheduled admissions. The site can edit the text that they would like to appear in these letters. persistent _PUBLIC 0 RowId LETTER_407_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.333412322 67178,44710.944783899 right LETTER 407.5 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'FINAL SECTION OF LETTER' FileMan Field Number: '3' The final section of the letter is a word-processing field in which, through a scheduling menu option, the user can enter the body of the letter with site=specific information or announcements for the veteran. %Library.String 6 FINAL_SECTION_OF_LETTER Internal Entry Number %Library.String $$next^%apiSQL("$p(^VA(407.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INITIAL SECTION OF LETTER' FileMan Field Number: '2' The initial section of the letter is the portion that has been pre-\ programmed by the developer to include items such as veteran's name, address, social security number and is in the format of a VA style letter. The first paragraph automatically lists the clinic and date/time he/she may have or had an appointment in one of the facility's outpatient areas. %Library.String 5 INITIAL_SECTION_OF_LETTER FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of a letter that has been initially created by the developer in a 'skeleton form' and the user edits the body of the letter. These letters are utilized mostly in the Scheduling Module of the MAS DHCP software. %Library.String 1 3 NAME FileMan Field Label: 'PRINT CLINIC LOCATION?' FileMan Field Number: '5' This field controls the printing of the clinic physical location for a Scheduling letter regardless of its type. %Library.EnumString 8 PRINT_CLINIC_LOCATION FileMan Field Label: 'PRINT DEFAULT PROVIDER?' FileMan Field Number: '4' This field controls the printing of the clinic default provider on a Scheduling letter regardless of its type. %Library.EnumString 7 PRINT_DEFAULT_PROVIDER FileMan Field Label: 'TYPE' FileMan Field Number: '1' The letter created is assigned a type for user specific needs. For example, a letter created to alert a veteran that he has an appointment and a new travel legislation has been passed, the user may call this letter 'Beneficiary Travel'. %Library.String 1 4 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^VA(407.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(407.5,"+1,",.01)={"NAME"} set:{TYPE}'="" FDA(407.5,"+1,",1)={"TYPE"} set:{PRINT_DEFAULT_PROVIDER}'="" FDA(407.5,"+1,",4)={"PRINT_DEFAULT_PROVIDER"} set:{PRINT_CLINIC_LOCATION}'="" FDA(407.5,"+1,",5)={"PRINT_CLINIC_LOCATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(407.5)") set %SkipFiling=1 if $d(%FMERR(407.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {INITIAL_SECTION_OF_LETTER}'="" { set D0={RowId} for i=1:1:$l({INITIAL_SECTION_OF_LETTER},$c(13,10)) { set wp(i)=$p({INITIAL_SECTION_OF_LETTER},$c(13,10),i) } do WP^DIE(407.5,{RowId},2,,"wp","%FMERR(407.5)") if $d(%FMERR(407.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FINAL_SECTION_OF_LETTER}'="" { set D0={RowId} for i=1:1:$l({FINAL_SECTION_OF_LETTER},$c(13,10)) { set wp(i)=$p({FINAL_SECTION_OF_LETTER},$c(13,10),i) } do WP^DIE(407.5,{RowId},3,,"wp","%FMERR(407.5)") if $d(%FMERR(407.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(407.5,IENS,.01)={NAME} set:{TYPE*C} FDA(407.5,IENS,1)={TYPE} set:{PRINT_DEFAULT_PROVIDER*C} FDA(407.5,IENS,4)={PRINT_DEFAULT_PROVIDER} set:{PRINT_CLINIC_LOCATION*C} FDA(407.5,IENS,5)={PRINT_CLINIC_LOCATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(407.5)") set %SkipFiling=1 if $d(%FMERR(407.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {INITIAL_SECTION_OF_LETTER*C} { set D0={RowId} kill wp if {INITIAL_SECTION_OF_LETTER}'="" { set wproot="wp" for i=1:1:$l({INITIAL_SECTION_OF_LETTER},$c(13,10)) { set wp(i)=$p({INITIAL_SECTION_OF_LETTER},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(407.5,{RowId},2,,wproot,"%FMERR(407.5)") if $d(%FMERR(407.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FINAL_SECTION_OF_LETTER*C} { set D0={RowId} kill wp if {FINAL_SECTION_OF_LETTER}'="" { set wproot="wp" for i=1:1:$l({FINAL_SECTION_OF_LETTER},$c(13,10)) { set wp(i)=$p({FINAL_SECTION_OF_LETTER},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(407.5,{RowId},3,,wproot,"%FMERR(407.5)") if $d(%FMERR(407.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.LETTER4075S index ^VA nonnull 407.5 "B" {NAME} {IEN} 0]]> index {TYPE}'="" 1 ^VA conditional 407.5 "C" $$TRUNCATE({TYPE},30)) {IEN} 0]]> data ^VA 407.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 new data,i,node set {FINAL_SECTION_OF_LETTER}="" merge data=^VA(407.5,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {FINAL_SECTION_OF_LETTER}={FINAL_SECTION_OF_LETTER}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 1 new data,i,node set {INITIAL_SECTION_OF_LETTER}="" merge data=^VA(407.5,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INITIAL_SECTION_OF_LETTER}={INITIAL_SECTION_OF_LETTER}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 3 2 "^" 3 1 "^" 0 2 Generated class for FileMan File Number: '137.45' File Name: 'LOCAL SURGICAL SPECIALTY' Class generated by %fm2class version 2.56 This file contains the Surgical Specialties used locally. This file contains all the entries in the national SURGICAL SPECIALTY file (45.3) as well as locally created entries. All entries should point to a standard entry in the national SURGICAL SPECIALTY file. persistent _PUBLIC 0 RowId LOCAL_SURGICAL_SPECIALTY_137_45 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.343043428 67178,44710.976428122 right LOCAL SURGICAL SPECIALTY 137.45 2.56 12/04/2024 12:25:10 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '11' Specialty Code This is a code used for selecting local surgical specialties. Your answer may be a number, number/letter combination, or brief alphabetic code. The specialty code is optional. %Library.String 5 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(137.45,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to make this specialty inactive and to prevent its selection and use by users in the Surgery Package. %Library.EnumString 4 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name of Local Surgical Specialty This is the name of the 'local' surgical specialty used at this site. %Library.String 1 3 NAME FileMan Field Label: 'ROBOTIC DEFAULT' FileMan Field Number: '12' Robotic Default Setting this field to NO - ROBOTICS NOT USED will cause the software to automatically set the ROBOTIC ASSISTANCE (Y/N) field to NO when a surgical case is created and this specialty is selected. The value of the ROBOTIC ASSISTANCE (Y/N) for the case can still be modified for the case later. Leave this field blank if the specialty uses robotics for any procedures. %Library.EnumString 6 ROBOTIC_DEFAULT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(137.45," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(137.45,"+1,",.01)={"NAME"} set:{INACTIVE}'="" FDA(137.45,"+1,",10)={"INACTIVE"} set:{CODE}'="" FDA(137.45,"+1,",11)={"CODE"} set:{ROBOTIC_DEFAULT}'="" FDA(137.45,"+1,",12)={"ROBOTIC_DEFAULT"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(137.45)") set %SkipFiling=1 if $d(%FMERR(137.45,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(137.45)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(137.45,IENS,.01)={NAME} set:{INACTIVE*C} FDA(137.45,IENS,10)={INACTIVE} set:{CODE*C} FDA(137.45,IENS,11)={CODE} set:{ROBOTIC_DEFAULT*C} FDA(137.45,IENS,12)={ROBOTIC_DEFAULT} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(137.45)") set %SkipFiling=1 if $d(%FMERR(137.45,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(137.45)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.LOCALSURGIC988AS index ^SRO nonnull 137.45 "D" {CODE} {IEN} 0]]> data ^SRO 137.45 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 3 "^" 0 1 "^" 0 6 Generated class for FileMan File Number: '9999999.06' File Name: 'LOCATION' Class generated by %fm2class version 2.56 This file contains the IHS Standard Facilities and their Associated codes, CHS Vendors, pointers to their respective service units and areas, a 2-4 character abbreviation, and the highest medical record number assigned by that facility. Changes to this data dictionary should be coordinated thru the IHS DBA. This file reflects entries in the IHS Standard Code Book, section VIII-C Area - Service Unit - Facility. Local additions or modifications should not be made. Monthly updates (if required) are provided by the IHS DBA thru the patch module. persistent _PUBLIC 0 RowId LOCATION_9999999_06 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.346977325 67178,44711.007331451 right LOCATION 9999999.06 2.56 12/04/2024 12:25:11 1 1 IEN 1 INSTITUTION_4]]> NAME VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^AUTTLOC(0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field points to the Institution file (#4) and has the same internal number as that file. Thus, the location has the same name as the Institution file (#4). The location is also referred to as the Facility. VALIP.prosthetic.fm2cw.INSTITUTION4 1 3 NAME NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.LOCATION_9999999_06 where %ID=:id) set {NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^AUTTLOC(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(9999999.06,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(9999999.06)") set %SkipFiling=1 if $d(%FMERR(9999999.06,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9999999.06)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(9999999.06,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(9999999.06)") set %SkipFiling=1 if $d(%FMERR(9999999.06,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9999999.06)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.LOCATION9996792S index ^AUTTLOC nonnull "B" {NAME} {IEN} 0]]> data ^AUTTLOC {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '699.83' File Name: 'LOCATION OF PAIN/PNEUMONIAS' Class generated by %fm2class version 2.56 This file stores the location of pain for GI Endoscopies and location of pneumonia for Pulmonary Endoscopy with a screen to differentiate them. persistent _PUBLIC 0 RowId LOCATION_OF_PAINPNEUMONIAS_699_83 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.361640652 67178,44711.037218266 right LOCATION OF PAIN/PNEUMONIAS 699.83 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.83,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field is pointed to by the Location of Pain field for GI Endoscopies and the Location of Pneumonia for Pulmonary Endoscopies. The data is a specified list of sub-anatomies that are commonly used by these two fields. NOTE: The Location of Pain field has been removed from the GI Endoscopy templates in version 2. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name MEDICAL USE child VALIP.prosthetic.fm2cw.SUBMEDICALUSE699831 children LOCATIONOFPAINPNEUMONIAS69983 1 SUB_MEDICAL_USE_699_831 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.83," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.83,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.83)") set %SkipFiling=1 if $d(%FMERR(699.83,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.83)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.83,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.83)") set %SkipFiling=1 if $d(%FMERR(699.83,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.83)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.LOCATIONOFPBE19S index ^MCAR nonnull 699.83 "B" {NAME} {IEN} 0]]> data ^MCAR 699.83 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '40.9' File Name: 'LOCATION TYPE' Class generated by %fm2class version 2.56 This file contains a list of possible locations at your facility. persistent _PUBLIC 0 RowId LOCATION_TYPE_40_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.368847098 67178,44711.066542297 right LOCATION TYPE 40.9 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'DESIGNATION' FileMan Field Number: '1' Enter a unique designation for each location type. No two may have the designation. Must contains 1-2 characters. %Library.String 1 4 DESIGNATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(40.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter the name of the location type. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(40.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(40.9,"+1,",.01)={"NAME"} set:{DESIGNATION}'="" FDA(40.9,"+1,",1)={"DESIGNATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(40.9)") set %SkipFiling=1 if $d(%FMERR(40.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(40.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(40.9,IENS,.01)={NAME} set:{DESIGNATION*C} FDA(40.9,IENS,1)={DESIGNATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(40.9)") set %SkipFiling=1 if $d(%FMERR(40.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(40.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.LOCATIONTYPD06FS index ^DIC nonnull 40.9 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 40.9 "C" {DESIGNATION} {IEN} 0]]> data ^DIC 40.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '2005.81' File Name: 'MAG DESCRIPTIVE CATEGORIES' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed | | in any way. Modifications to this software may result in an | | adulterated medical device under 21CFR820, the use of which | | is considered to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ The purpose of this file is to present a standard list of Image Categories to the user. The user of the VistA Imaging Capture application is able to select from this list during the capturing of images that are not associated with a specific VistA Package. This file is pointed to by the Image file (2005) and the Image Audit file (2005.1). persistent _PUBLIC 0 RowId MAG_DESCRIPTIVE_CATEGORIES_2005_81 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.374029915 67178,44711.098108424 right MAG DESCRIPTIVE CATEGORIES 2005.81 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'ACTION DESC' FileMan Field Number: '11' This field indicates whether some software action will be taken when this type of image is captured. For example, scanned MEANS TESTS will be automatically copied to a subdirectory at the HEC. %Library.String 6 ACTION_DESC FileMan Field Label: 'ACTION IS ACTIVE' FileMan Field Number: '10' The action associated with this type of Document is performed when the image is first successfully saved. This flag can turn On/Off the processing of the Action. %Library.EnumString 5 ACTION_IS_ACTIVE FileMan Field Label: 'ACTION ROUTINE' FileMan Field Number: '13' The routine to call to perform the action. %Library.String 8 ACTION_ROUTINE FileMan Field Label: 'ACTION TAG' FileMan Field Number: '12' The TAG of the Routine that will be called to perform the action. %Library.String 7 ACTION_TAG FileMan Field Label: 'CLASS' FileMan Field Number: '1' This field indicates the class of document/image being captured. Defined classes include Adminstrative (A) for scanned documents, Clinical (C) for images not associated with a VistA package report, or Old (O) for categories that are no longer used. %Library.EnumString 4 CLASS Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.81,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Descriptive name of the category or document type. The list of categories is presented to the VistA Imaging Capture user when they select 'User defined Specialty/Category' or 'ADMIN'. can be entered. %Library.String 1 3 NAME FileMan Field Label: 'ORIGIN INDEX' FileMan Field Number: '45' This field is used to indicate whether the image or document originated inside or outside VA. %Library.EnumString 10 ORIGIN_INDEX FileMan Field Label: 'PACKAGE INDEX' FileMan Field Number: '40' This is an abbreviation of the package that the image is attached to. %Library.EnumString 9 PACKAGE_INDEX SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.81," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2005.81,"+1,",.01)={"NAME"} set:{CLASS}'="" FDA(2005.81,"+1,",1)={"CLASS"} set:{ACTION_IS_ACTIVE}'="" FDA(2005.81,"+1,",10)={"ACTION_IS_ACTIVE"} set:{ACTION_DESC}'="" FDA(2005.81,"+1,",11)={"ACTION_DESC"} set:{ACTION_TAG}'="" FDA(2005.81,"+1,",12)={"ACTION_TAG"} set:{ACTION_ROUTINE}'="" FDA(2005.81,"+1,",13)={"ACTION_ROUTINE"} set:{PACKAGE_INDEX}'="" FDA(2005.81,"+1,",40)={"PACKAGE_INDEX"} set:{ORIGIN_INDEX}'="" FDA(2005.81,"+1,",45)={"ORIGIN_INDEX"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.81)") set %SkipFiling=1 if $d(%FMERR(2005.81,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.81)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2005.81,IENS,.01)={NAME} set:{CLASS*C} FDA(2005.81,IENS,1)={CLASS} set:{ACTION_IS_ACTIVE*C} FDA(2005.81,IENS,10)={ACTION_IS_ACTIVE} set:{ACTION_DESC*C} FDA(2005.81,IENS,11)={ACTION_DESC} set:{ACTION_TAG*C} FDA(2005.81,IENS,12)={ACTION_TAG} set:{ACTION_ROUTINE*C} FDA(2005.81,IENS,13)={ACTION_ROUTINE} set:{PACKAGE_INDEX*C} FDA(2005.81,IENS,40)={PACKAGE_INDEX} set:{ORIGIN_INDEX*C} FDA(2005.81,IENS,45)={ORIGIN_INDEX} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.81)") set %SkipFiling=1 if $d(%FMERR(2005.81,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.81)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MAGDESCRIPTID7DS index {NAME}'="" 1 ^MAG conditional 2005.81 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^MAG 2005.81 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 2 "^" 1 1 "^" 1 4 "^" 1 3 "^" 0 2 "^" 0 1 "^" 2 6 "^" 2 1 Generated class for FileMan File Number: '2005.88' File Name: 'MAG REASON' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file stores valid reasons (justifications) for actions performed on images: copying, printing, etc. Once a reason is referenced by a record of other file (e.g. IMAGE file (#2005)), it cannot be deleted. Use the DATE OF INACTIVATION field (.03) to exclude the reason from the list presented to the users. This file is defined by the patch MAG*3*93. persistent _PUBLIC 0 RowId MAG_REASON_2005_88 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.378239287 67178,44711.130981192 right MAG REASON 2005.88 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '.04' This field stores the code that uniquely identifies the reason. You must not modify value of this field unless you are instructed to do so by the VistA support personnel or Imaging software developers. "Standard" reasons (i.e. those distributed with the Imaging software) have numeric codes. Codes of "local" reasons created by the users at the sites consist from record IENs preceded by letter L (e.g. "L12"). When a new record is created, this field is automatically pre-populated with a "local" code. %Library.String 6 CODE FileMan Field Label: 'DATE OF INACTIVATION' FileMan Field Number: '.03' If this field is not empty and the stored date is no later than today's date, then this record is excluded from the list of reasons presented to the user (e.g. by the GUI application). Use this field to exclude records from selection without deleting them. This is especially important if inactive records are pointed to by records of other files. %Library.FilemanDate 5 DATE_OF_INACTIVATION FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' This field stores an optional explanation for the reason. The text can be presented to the user by the GUI application as a context sensitive help. %Library.String 7 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.88,0),""^"",3)") 1 2 IEN FileMan Field Label: 'REASON' FileMan Field Number: '.01' This field stores a valid reason/justification for action(s). %Library.String 1 3 REASON FileMan Field Label: 'TYPE' FileMan Field Number: '.02' This field indicates actions that this reason is applicable to. Actions are represented by the concatenation of the following characters: C - Copy image D - Delete image P - Print image S - Change image status For example, if a reason is applicable for copying and printing, then the value of this field should be "CP". %Library.String 4 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.88," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{REASON}'="" FDA(2005.88,"+1,",.01)={"REASON"} set:{TYPE}'="" FDA(2005.88,"+1,",.02)={"TYPE"} set:{DATE_OF_INACTIVATION}'="" FDA(2005.88,"+1,",.03)={"DATE_OF_INACTIVATION"} set:{CODE}'="" FDA(2005.88,"+1,",.04)={"CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.88)") set %SkipFiling=1 if $d(%FMERR(2005.88,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.88)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(2005.88,{RowId},1,,"wp","%FMERR(2005.88)") if $d(%FMERR(2005.88,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.88)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{REASON*C} FDA(2005.88,IENS,.01)={REASON} set:{TYPE*C} FDA(2005.88,IENS,.02)={TYPE} set:{DATE_OF_INACTIVATION*C} FDA(2005.88,IENS,.03)={DATE_OF_INACTIVATION} set:{CODE*C} FDA(2005.88,IENS,.04)={CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.88)") set %SkipFiling=1 if $d(%FMERR(2005.88,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.88)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(2005.88,{RowId},1,,wproot,"%FMERR(2005.88)") if $d(%FMERR(2005.88,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.88)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MAGREASON20655CS index {REASON}'="" 1 ^MAG conditional 2005.88 "B" $$TRUNCATE({REASON},30)) {IEN} 0]]> index ^MAG nonnull 2005.88 "C" {CODE} {IEN} 0]]> data ^MAG 2005.88 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 3 1 new data,i,node set {DESCRIPTION}="" merge data=^MAG(2005.88,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '3.8' File Name: 'MAIL GROUP' Class generated by %fm2class version 2.56 This file holds the names of all groups known to MailMan, and their members. persistent _PUBLIC 0 RowId MAIL_GROUP_3_8 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.388026067 67178,44711.16154215 right MAIL GROUP 3.8 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'ALLOW SELF ENROLLMENT?' FileMan Field Number: '7' If this field is set to "YES", then users may use the JOIN option to make themselves members of the group, or to drop their names from the group. This option is only operative with public groups. %Library.EnumString 6 ALLOW_SELF_ENROLLMENT FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '3' The definition and/or purpose of this mail group. %Library.String 4 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^XMB(3.8,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LAST REFERENCED' FileMan Field Number: '9' This is the date on which this mail group was last referenced. %Library.FilemanDate 8 LAST_REFERENCED FileMan Field Label: 'NAME' FileMan Field Number: '.01' MAIL GROUP NAME The name of a mail group, i.e. a list of recipients who can all be addressed at once by reference to this name. %Library.String 1 3 NAME FileMan Field Label: 'REFERENCE COUNT' FileMan Field Number: '8' This is a count of the number of times this mailgroup has been used as a recipient of a message. This will help site managers monitor the activity of mail groups. %Library.Numeric 7 REFERENCE_COUNT FileMan Field Label: 'RESTRICTIONS' FileMan Field Number: '10' This field is only applicable for PRIVATE mail groups. It is ignored for PUBLIC mail groups. This field controls who may address (send messages to) this PRIVATE mail group. If 0 (zero) or null, then the group is unrestricted, and all members may address the group. If 1, then only the organizer may address the group. The group is a personal group. Note that non-members cannot address private mail groups. %Library.EnumString 9 RESTRICTIONS FileMan Field Label: 'TYPE' FileMan Field Number: '4' The type of mail group determines who can send mail to it. Provided there are no AUTHORIZED SENDERS specified, anyone can send mail to a public group and only its members can send mail to a private group. If there are AUTHORIZED SENDERS specified, only those users can address the group. %Library.EnumString 5 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^XMB(3.8," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(3.8,"+1,",.01)={"NAME"} set:{TYPE}'="" FDA(3.8,"+1,",4)={"TYPE"} set:{ALLOW_SELF_ENROLLMENT}'="" FDA(3.8,"+1,",7)={"ALLOW_SELF_ENROLLMENT"} set:{REFERENCE_COUNT}'="" FDA(3.8,"+1,",8)={"REFERENCE_COUNT"} set:{LAST_REFERENCED}'="" FDA(3.8,"+1,",9)={"LAST_REFERENCED"} set:{RESTRICTIONS}'="" FDA(3.8,"+1,",10)={"RESTRICTIONS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(3.8)") set %SkipFiling=1 if $d(%FMERR(3.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(3.8,{RowId},3,,"wp","%FMERR(3.8)") if $d(%FMERR(3.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(3.8,IENS,.01)={NAME} set:{TYPE*C} FDA(3.8,IENS,4)={TYPE} set:{ALLOW_SELF_ENROLLMENT*C} FDA(3.8,IENS,7)={ALLOW_SELF_ENROLLMENT} set:{REFERENCE_COUNT*C} FDA(3.8,IENS,8)={REFERENCE_COUNT} set:{LAST_REFERENCED*C} FDA(3.8,IENS,9)={LAST_REFERENCED} set:{RESTRICTIONS*C} FDA(3.8,IENS,10)={RESTRICTIONS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(3.8)") set %SkipFiling=1 if $d(%FMERR(3.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(3.8,{RowId},3,,wproot,"%FMERR(3.8)") if $d(%FMERR(3.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.MAILGROUP38S index ^XMB nonnull 3.8 "B" {NAME} {IEN} 0]]> data ^XMB 3.8 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 2 new data,i,node set {DESCRIPTION}="" merge data=^XMB(3.8,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 5 "^" 0 1 "^" 0 4 "^" 0 6 "^" 0 2 Generated class for FileMan File Number: '80.3' File Name: 'MAJOR DIAGNOSTIC CATEGORY' Class generated by %fm2class version 2.56 This file contains Major Diagnostic Categories as used in PTF coding. persistent _PUBLIC 0 RowId MAJOR_DIAGNOSTIC_CATEGORY_80_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.391669877 67178,44711.193275381 right MAJOR DIAGNOSTIC CATEGORY 80.3 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^ICM(0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' MAJOR DIAGNOSTIC CATEGORY Name of the MDC. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' corresponds to the MDC #. %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ICM(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(80.3,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(80.3)") set %SkipFiling=1 if $d(%FMERR(80.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(80.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(80.3,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.3)") set %SkipFiling=1 if $d(%FMERR(80.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(80.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MAJORDIAGNODFBFS index ^ICM nonnull "B" {NAME} {IEN} 0]]> data ^ICM {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '440.4' File Name: 'MANUFACTURER' Class generated by %fm2class version 2.56 This file contains a list of manufactures of items stored in the Item Master file (#441). persistent _PUBLIC 0 RowId MANUFACTURER_440_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.39810339 67178,44711.224054851 right MANUFACTURER 440.4 2.56 12/04/2024 12:25:11 1 1 IEN 1 %Library.String 5 DUNS_NO_ FileMan Field Label: 'ID NUMBER' FileMan Field Number: '.001' This is the user selected Internal Entry Number (IEN) for this entry and serves as an entry identification number. %Library.String 1 3 Set {*}={IEN} 1 ID_NUMBER Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRC(440.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '1' This field flags an entry as inactive and can be used in fields referencing this file to restrict selection of inactive entries. %Library.EnumString 6 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field holds the manufacturer's name. %Library.String 1 4 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRC(440.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(440.4,"+1,",.01)={"NAME"} set:{DUNS_NO_}'="" FDA(440.4,"+1,",.5)={"DUNS_NO_"} set:{INACTIVE}'="" FDA(440.4,"+1,",1)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(440.4)") set %SkipFiling=1 if $d(%FMERR(440.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(440.4,IENS,.01)={NAME} set:{DUNS_NO_*C} FDA(440.4,IENS,.5)={DUNS_NO_} set:{INACTIVE*C} FDA(440.4,IENS,1)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(440.4)") set %SkipFiling=1 if $d(%FMERR(440.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MANUFACTUREEAC9S index {NAME}'="" 1 ^PRC conditional 440.4 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index {DUNS_NO_}'="" 1 ^PRC conditional 440.4 "C" $$TRUNCATE({DUNS_NO_},30)) {IEN} 0]]> index ^PRC nonnull 440.4 "D" {NAME} {IEN} 0]]> data ^PRC 440.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '11' File Name: 'MARITAL STATUS' Class generated by %fm2class version 2.56 The MARTIAL STATUS file currently consists of six entries which are distributed by the MAS development team. Alteration of any of the six entries or addition of entries to this file which are not distributed by the MAS developers may have a negative impact on the performance of the MAS module as well as other modules. persistent _PUBLIC 0 RowId MARITAL_STATUS_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.406434147 67178,44711.255449617 right MARITAL STATUS 11 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains an abbreviation for this marital status. Outputs throughout DHCP may use this abbreviation if there is insufficient room to display the entire marital status name. %Library.String 4 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(11,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MARITAL STATUS CODE' FileMan Field Number: '2' This field contains the code for the marital status. It must NOT be edited unless through a software upgrade! This field is used widely throughout DHCP to determine programming flow. It will be displayed on the patient's data card as well as many other places throughout DHCP. %Library.EnumString 5 MARITAL_STATUS_CODE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the acceptable marital status as distributed by the MAS package. These entries should not be altered in any way nor should entries be added or removed. Editing of this data can have negative affects on the performance of the MAS module as well as other DHCP modules. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(11," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(11,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(11,"+1,",1)={"ABBREVIATION"} set:{MARITAL_STATUS_CODE}'="" FDA(11,"+1,",2)={"MARITAL_STATUS_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(11)") set %SkipFiling=1 if $d(%FMERR(11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(11,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(11,IENS,1)={ABBREVIATION} set:{MARITAL_STATUS_CODE*C} FDA(11,IENS,2)={MARITAL_STATUS_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(11)") set %SkipFiling=1 if $d(%FMERR(11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MARITALSTATUE6ES index ^DIC nonnull 11 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 11 "C" {ABBREVIATION} {IEN} 0]]> data ^DIC 11 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '8.1' File Name: 'MAS ELIGIBILITY CODE' Class generated by %fm2class version 2.56 The MAS ELIGIBILITY CODE file consists of those codes which have been established by VACO MAS. Addition to this file of local codes or modification of those codes distributed by the MAS package developers could have a negative impact on the performance of the MAS module as well as other modules. If local codes are desired, the site can enter them in the ELIGIBILITY CODE file (#8). Each code entered in the ELIGIBILITY CODE file must point to an entry in MAS ELIGIBILITY CODE file via the MAS ELIGIBILITY CODE field. persistent _PUBLIC 0 RowId MAS_ELIGIBILITY_CODE_8_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.410070366 67178,44711.287234205 right MAS ELIGIBILITY CODE 8.1 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '2' This field may contain an abbreviation for the eligibility name. It may be used in place of the name in selected prints. %Library.String 5 ABBREVIATION FileMan Field Label: 'CARD COLOR' FileMan Field Number: '1' This field indicates the color of the patient's card for the MAS eligibility. %Library.EnumString 4 CARD_COLOR Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(8.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '6' If the eligibility is inactive then this field will be set to 'YES'. %Library.EnumString 9 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the official name of the MAS eligibility code. %Library.String 1 3 NAME FileMan Field Label: 'PRINT NAME' FileMan Field Number: '5' This field contains a shorten eligibility name that is used for output that has limited space to print. %Library.String 8 PRINT_NAME FileMan Field Label: 'SELECT AS ADDITIONAL' FileMan Field Number: '7' This field indicates whether patients may be assigned this eligibility as an 'additional' eligibility. If the field is set to 'NO' or is not filled in, then the eligibility can only be assigned as a primary eligibility. If set to 'YES', then the eligibility can be used as both a primary and an 'additional' eligibility. %Library.EnumString 10 SELECT_AS_ADDITIONAL FileMan Field Label: 'TYPE' FileMan Field Number: '4' This field indicates the type of patient that can be assigned this eligibility. The patient is either a 'veteran' or a 'non-veteran' type. %Library.EnumString 7 TYPE FileMan Field Label: 'VA CODE NUMBER' FileMan Field Number: '3' This field contains the VA CODE NUMBER that has been assigned to this eligibility. %Library.Numeric 1 6 VA_CODE_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(8.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(8.1,"+1,",.01)={"NAME"} set:{CARD_COLOR}'="" FDA(8.1,"+1,",1)={"CARD_COLOR"} set:{ABBREVIATION}'="" FDA(8.1,"+1,",2)={"ABBREVIATION"} set:{VA_CODE_NUMBER}'="" FDA(8.1,"+1,",3)={"VA_CODE_NUMBER"} set:{TYPE}'="" FDA(8.1,"+1,",4)={"TYPE"} set:{PRINT_NAME}'="" FDA(8.1,"+1,",5)={"PRINT_NAME"} set:{INACTIVE}'="" FDA(8.1,"+1,",6)={"INACTIVE"} set:{SELECT_AS_ADDITIONAL}'="" FDA(8.1,"+1,",7)={"SELECT_AS_ADDITIONAL"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8.1)") set %SkipFiling=1 if $d(%FMERR(8.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(8.1,IENS,.01)={NAME} set:{CARD_COLOR*C} FDA(8.1,IENS,1)={CARD_COLOR} set:{ABBREVIATION*C} FDA(8.1,IENS,2)={ABBREVIATION} set:{VA_CODE_NUMBER*C} FDA(8.1,IENS,3)={VA_CODE_NUMBER} set:{TYPE*C} FDA(8.1,IENS,4)={TYPE} set:{PRINT_NAME*C} FDA(8.1,IENS,5)={PRINT_NAME} set:{INACTIVE*C} FDA(8.1,IENS,6)={INACTIVE} set:{SELECT_AS_ADDITIONAL*C} FDA(8.1,IENS,7)={SELECT_AS_ADDITIONAL} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8.1)") set %SkipFiling=1 if $d(%FMERR(8.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MASELIGIBILA68AS index ^DIC nonnull 8.1 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 8.1 "C" {VA_CODE_NUMBER} {IEN} 0]]> data ^DIC 8.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 7 "^" 0 1 "^" 0 6 "^" 0 8 "^" 0 5 "^" 0 4 Generated class for FileMan File Number: '393.1' File Name: 'MAS SERVICE' Class generated by %fm2class version 2.56 This file stores all the possible services for both wards and clinics. persistent _PUBLIC 0 RowId MAS_SERVICE_393_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.415956043 67178,44711.319952097 right MAS SERVICE 393.1 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '.02' This field contains the code for the MAS SERVICES. It can be 1-3 characters. %Library.String 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(393.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the MAS SERVICES. It contains the service names for both inpatient wards as well as outpatient clinics. %Library.String 1 3 NAME FileMan Field Label: 'PRINT NAME' FileMan Field Number: '.03' This field contains the print name for the MAS SERVICE. It is a shortened version of the full name. It is used to display the service for reports. %Library.String 5 PRINT_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(393.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(393.1,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(393.1,"+1,",.02)={"CODE"} set:{PRINT_NAME}'="" FDA(393.1,"+1,",.03)={"PRINT_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(393.1)") set %SkipFiling=1 if $d(%FMERR(393.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(393.1,IENS,.01)={NAME} set:{CODE*C} FDA(393.1,IENS,.02)={CODE} set:{PRINT_NAME*C} FDA(393.1,IENS,.03)={PRINT_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(393.1)") set %SkipFiling=1 if $d(%FMERR(393.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(393.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.MASSERVICE3931S index ^DG nonnull 393.1 "AC" {CODE} {IEN} 0]]> index ^DG nonnull 393.1 "B" {NAME} {IEN} 0]]> data ^DG 393.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '408.32' File Name: 'MEANS TEST STATUS' Class generated by %fm2class version 2.56 This file contains the statuses associated with the means test. persistent _PUBLIC 0 RowId MEANS_TEST_STATUS_408_32 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.421776047 67178,44711.350705383 right MEANS TEST STATUS 408.32 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '.02' Enter in this field the code associated with the financial test status. %Library.String 5 CODE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '50' Enter in this field the description associated with the financial test status. %Library.String 7 DESCRIPTION FileMan Field Label: 'ENTRY NUMBER' FileMan Field Number: '.001' Enter in this field the internal entry number associated with this status. %Library.String 1 3 Set {*}={IEN} 1 ENTRY_NUMBER Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(408.32,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MESSAGE' FileMan Field Number: '100' Enter in this field the message associated with the financial test status. %Library.String 8 MESSAGE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter in this field the name of the financial test status. %Library.String 1 4 NAME FileMan Field Label: 'TYPE OF CARE' FileMan Field Number: '.03' Enter in this field the type of care the financial test status is associated with. %Library.EnumString 6 TYPE_OF_CARE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(408.32," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(408.32,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(408.32,"+1,",.02)={"CODE"} set:{TYPE_OF_CARE}'="" FDA(408.32,"+1,",.03)={"TYPE_OF_CARE"} set:{MESSAGE}'="" FDA(408.32,"+1,",100)={"MESSAGE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(408.32)") set %SkipFiling=1 if $d(%FMERR(408.32,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(408.32)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(408.32,{RowId},50,,"wp","%FMERR(408.32)") if $d(%FMERR(408.32,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(408.32)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(408.32,IENS,.01)={NAME} set:{CODE*C} FDA(408.32,IENS,.02)={CODE} set:{TYPE_OF_CARE*C} FDA(408.32,IENS,.03)={TYPE_OF_CARE} set:{MESSAGE*C} FDA(408.32,IENS,100)={MESSAGE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(408.32)") set %SkipFiling=1 if $d(%FMERR(408.32,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(408.32)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(408.32,{RowId},50,,wproot,"%FMERR(408.32)") if $d(%FMERR(408.32,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(408.32)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MEANSTESTSTA3A4S index ^DG nonnull 408.32 "B" {NAME} {IEN} 0]]> index ^DG nonnull 408.32 "C" {CODE} {IEN} 0]]> data ^DG 408.32 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "D" new data,i,node set {DESCRIPTION}="" merge data=^DG(408.32,{S2},"D") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "MSG" 1 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '40.8' File Name: 'MEDICAL CENTER DIVISION' Class generated by %fm2class version 2.56 This file contains the Medical Center Divisions which are defined using the 'MAS Parameter Entry/Edit' option. The primary facility as well as any NHCU, Domiciliary or other division should be defined within this file. persistent _PUBLIC 0 RowId MEDICAL_CENTER_DIVISION_40_8 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.454396116 67178,44711.3824864 right MEDICAL CENTER DIVISION 40.8 2.56 12/04/2024 12:25:11 1 1 IEN 1 RECORD_TYPES_195_2]]> DEFAULTMEDICALRECORDTYPE VALIP.prosthetic.fm2cw.RECORDTYPES1952 FKey_DEFAULT_MEDICAL_RECORD_TYPE INSTITUTION_4]]> INSTITUTIONFILEPOINTER VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_INSTITUTION_FILE_POINTER NEW_PERSON_200]]> PRFOWNERSHIPEDITEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRF_OWNERSHIP_EDITED_BY SUBSCRIPTION_CONTROL_774]]> RAISUBSCRIPTIONNUMBER VALIP.prosthetic.fm2cw.SUBSCRIPTIONCONTROL774 FKey_RAI_SUBSCRIPTION_NUMBER FileMan Field Label: 'ADDRESS LOCATION ON LETTERS' FileMan Field Number: '30.01' Enter the location (top or bottom) where the address should appear for letters generated for appointments or other activities at this division. %Library.EnumString 19 ADDRESS_LOCATION_ON_LETTERS FileMan Field Label: 'ARE REPORTS REVIEWED?' FileMan Field Number: '100.03' If this division requires a second physician to review the summary, respond YES, otherwise respond NO. %Library.EnumString 28 ARE_REPORTS_REVIEWED FileMan Field Label: 'DAYS FOR DICTATION' FileMan Field Number: '100.06' Enter the number of days the physician has to dictate a summary before it is considered incomplete. %Library.Numeric 31 DAYS_FOR_DICTATION FileMan Field Label: 'DAYS FOR REVIEW' FileMan Field Number: '100.08' Enter the number of days the reviewing physician has to review the report once it has been signed. %Library.Numeric 33 DAYS_FOR_REVIEW FileMan Field Label: 'DAYS FOR SIGNATURE' FileMan Field Number: '100.07' Enter the number of days from the date of transcription the physician has in order to sign the summary or op report. %Library.Numeric 32 DAYS_FOR_SIGNATURE FileMan Field Label: 'DEFAULT 1010 PRINTER' FileMan Field Number: '7' Enter the printer which the 1010, 1010I, and 1010F outputs will display on if no other printer is selected. The reports will only print to this printer for registrations at this division. %Library.String 12 DEFAULT_1010_PRINTER FileMan Field Label: 'DEFAULT DRUG PROFILE PRINTER' FileMan Field Number: '8' Enter the printer on which the pharmacy drug profile will display if no other printer is selected. The drug profile will only display to this printer for registrations entered at this division. %Library.String 13 DEFAULT_DRUG_PROFILE_PRINTER FileMan Field Label: 'DEFAULT MEDICAL RECORD TYPE' FileMan Field Number: '100.3' Incomplete Records Tracking will use this entry as the default Medical record type for Division when pulling patient information. If blank, MEDICAL RECORD will be default value. VALIP.prosthetic.fm2cw.RECORDTYPES1952 37 DEFAULT_MEDICAL_RECORD_TYPE NAME This describes the record as to function.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.MEDICAL_CENTER_DIVISION_40_8 where %ID=:id) set {DEFAULT_MEDICAL_RECORD_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEFAULT_MEDICAL_RECORD_TYPE_NAME 1 FileMan Field Label: 'DEFAULT PHYS. FOR SIGNATURE' FileMan Field Number: '100.1' This is a new field in file 40.8 the MEDICAL CENTER DIVISION file. This field will be asked in the Set Up IRT Parameters option and will be used to store the default of the physician who will be responsible for the signature of a deficiency. It will be either the Primary or the Attending physician. %Library.EnumString 35 DEFAULT_PHYS__FOR_SIGNATURE FileMan Field Label: 'DEFAULT PRIMARY PHYSICIAN' FileMan Field Number: '100.02' Enter 'P' if the PRIMARY CARE PHYSICIAN is responsible for this summary or op report or 'A' if the ATTENDING PHYSICIAN is responsible. If, for example, you choose ATTENDING PHYSICIAN, the ATTENDING PHYSICIAN of record in bed control, when the summary or OP report is created, will be the default. You may, however, edit the PHYSICIAN RESPONSIBLE at any time. %Library.EnumString 27 DEFAULT_PRIMARY_PHYSICIAN FileMan Field Label: 'DEFAULT REVIEWING PHYSICIAN' FileMan Field Number: '100.04' If summaries require review, enter the PRIMARY or ATTENDING physician responsible. If, for example, you choose ATTENDING PHYSICIAN, the ATTENDING PHYSICIAN of record in bed control, when the summary or OP report is created, will be the default. %Library.EnumString 29 DEFAULT_REVIEWING_PHYSICIAN FileMan Field Label: 'DEFAULT ROUTING SLIP PRINTER' FileMan Field Number: '9' Enter the printer on which the routing slip will appear if no other printer is selected. The routing slip will only display to this printer for registrations entered at this division. %Library.String 14 DEFAULT_ROUTING_SLIP_PRINTER FileMan Field Label: 'DISPLAY MEANS TEST REQUIRED' FileMan Field Number: '35.01' This field determines whether a Means Test Required message is displayed on patient lookups at this division %Library.EnumString 23 DISPLAY_MEANS_TEST_REQUIRED FileMan Field Label: 'DISPLAY MEANS TEST REQ IF GUI' FileMan Field Number: '35.03' This field determines whether a Means Test Required message is displayed on patient GUI lookups %Library.EnumString 25 DISPLAY_MEANS_TEST_REQ_IF_GUI FileMan Field Label: 'DIVISION PTF PRINTER' FileMan Field Number: '9.1' This is the printer on which you want all PTF messages to appear for this division. It overrides the printer defined in the DEFAULT PTF MESSAGE PRINTER prompt located in the ADT PARAMETER file. %Library.String 15 DIVISION_PTF_PRINTER FileMan Field Label: 'FACILITY NUMBER' FileMan Field Number: '1' Enter the number of the facility that this division is affiliated with. This should be the 3 digit facility number the site is assigned by Central Office officials. It may also include a suffix. %Library.String 1 7 FACILITY_NUMBER Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(40.8,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INCOMPLETE SUMMARIES MESSAGE' FileMan Field Number: '100.09' This field contains the message that the facility wants displayed at the end of each page for each type of report. %Library.String 34 INCOMPLETE_SUMMARIES_MESSAGE FileMan Field Label: 'INSTITUTION FILE POINTER' FileMan Field Number: '.07' Enter the entry in the institution file that corresponds to this division. It is IMPERATIVE that you respond to this prompt properly as this affects transmission of data to Austin as well as many other statistical reports. VALIP.prosthetic.fm2cw.INSTITUTION4 5 INSTITUTION_FILE_POINTER NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.MEDICAL_CENTER_DIVISION_40_8 where %ID=:id) set {INSTITUTION_FILE_POINTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INSTITUTION_FILE_POINTER_NAME 1 FileMan Field Label: 'MEANS TEST TEXT' FileMan Field Number: '35.02' If you have answered 'Yes' to the Means Test Required prompt, you can enter text here to be displayed upon patient lookup, such as where to report to complete the Means Test, etc. %Library.String 24 MEANS_TEST_TEXT FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter in this field the name of a division at your facility. It may be the main building, a satelite clinic, a domiciliary, or a nursing home. %Library.String 1 4 NAME %Library.EnumString 11 NHCUDOMHOSP_GL FileMan Field Label: 'NUM' FileMan Field Number: '.001' This field contains the internal entry number of the division as determined by VA FileMan. %Library.String 1 3 Set {*}={IEN} 1 NUM FileMan Field Label: 'OP EKG START TIME' FileMan Field Number: '30.03' Enter the time in the morning at which ekg tests begin. This is used by the auto-rebook functionality to prevent ekg test being scheduled too early. For example, if a patient has an appointment at 2pm with ekg at 11pm and the appointment is cancelled and auto-rebooked for 8am, the ekg would have been scheduled for 5am. This will prevent this from occurring. %Library.String 21 OP_EKG_START_TIME FileMan Field Label: 'OP LAB TEST START TIME' FileMan Field Number: '30.02' Enter the time in the morning at which lab tests begin. This is used by the auto-rebook functionality to prevent lab test being scheduled too early. For example, if a patient has an appointment at 2pm with lab at 11pm and the appointment is cancelled and autorebooked for 8am, the lab would have been scheduled for 5am. This will prevent this from occurring. %Library.String 20 OP_LAB_TEST_START_TIME FileMan Field Label: 'OP X-RAY START TIME' FileMan Field Number: '30.04' Enter the time in the morning at which x-ray tests begin. This is used by the auto-rebook functionality to prevent x-ray test being scheduled too early. For example, if a patient has an appointment at 2pm with x-ray at 11pm and the appointment is cancelled and auto-rebooked for 8am, the x-ray would have been scheduled for 5am. This will prevent this from occurring. %Library.String 22 OP_XRAY_START_TIME FileMan Field Label: 'OUTPATIENT ONLY' FileMan Field Number: '3' Enter yes if this division has only outpatient medical services (no inpatient wards). %Library.EnumString 8 OUTPATIENT_ONLY FileMan Field Label: 'PRF ASSIGNMENT OWNERSHIP' FileMan Field Number: '26.01' This field contains the indicator of whether or not this medical center division has been designated as a patient record flag assignment owner. Data in this field should not be added or edited except through the use of the Patient Record Flags software that is part of Registration. %Library.EnumString 16 PRF_ASSIGNMENT_OWNERSHIP FileMan Field Label: 'PRF OWNERSHIP EDITED' FileMan Field Number: '26.02' This field is used as part of the audit trail for the enabling/disabling of medical center divisions as patient record flag assignment owners. This field will contain the date/time that the PRF ASSIGNMENT OWNERSHIP indicator was edited. Data in this field should not be added or edited except through the use of the Patient Record Flags software that is part of Registration. %Library.FilemanTimeStamp 17 PRF_OWNERSHIP_EDITED FileMan Field Label: 'PRF OWNERSHIP EDITED BY' FileMan Field Number: '26.03' This field is used as part of the audit trail for the enabling/disabling of medical center divisions as patient record flag assignment owners. This field will contain the user responsible for editing the PRF ASSIGNMENT OWNERSHIP indicator. Data in this field should not be added or edited except through the use of the Patient Record Flags software that is part of Registration. VALIP.prosthetic.fm2cw.NEWPERSON200 18 PRF_OWNERSHIP_EDITED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.MEDICAL_CENTER_DIVISION_40_8 where %ID=:id) set {PRF_OWNERSHIP_EDITED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRF_OWNERSHIP_EDITED_BY_NAME 1 %Library.EnumString 9 PRINT_AA96_ON_GL %Library.EnumString 10 PRINT_AA_ON_GL FileMan Field Label: 'PRINT WRISTBANDS' FileMan Field Number: '.08' This field determines whether the patient's wristbands are printed at this division. %Library.EnumString 6 PRINT_WRISTBANDS FileMan Field Label: 'RAI SUBSCRIPTION NUMBER' FileMan Field Number: '900.01' This field points to the subscribing RAI/MDS COTS system subscription registry for patient updates. This subscription control number is specific to this division. Do not change the control number once set up as this will prevent the COTS system from being updated by VistA. Use only documented API calls to create or retrieve the subscription control number. VALIP.prosthetic.fm2cw.SUBSCRIPTIONCONTROL774 38 RAI_SUBSCRIPTION_NUMBER NUMBER A new entry in this file is created by making a call to $$ACT^HLSUB.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.MEDICAL_CENTER_DIVISION_40_8 where %ID=:id) set {RAI_SUBSCRIPTION_NUMBER_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 RAI_SUBSCRIPTION_NUMBER_NUMBER 1 FileMan Field Label: 'STD. DEFIC. FOR SHORT FORMS?' FileMan Field Number: '100.2' By entering yes in this field, the IRT Backgroud Job will create standard deficiencies for short form discharges ( discharged less than 48 hours after admission). If you enter no in this field the standard deficiencies will not be created for short forms in the IRT Background Job. %Library.EnumString 36 STD__DEFIC__FOR_SHORT_FORMS Relationship for Sub-File/Multiple to file name CENSUS DATE child VALIP.prosthetic.fm2cw.SUBCENSUSDATE40802 children MEDICALCENTERDIVISION408 1 SUB_CENSUS_DATE_40_802 Relationship for Sub-File/Multiple to file name EMPLOYEE HEALTH COUNTS child VALIP.prosthetic.fm2cw.SUBEMPLOYEEHEALTHCOUNTS40801 children MEDICALCENTERDIVISION408 1 SUB_EMPLOYEE_HEALTH_COUNTS_40_801 Relationship for Sub-File/Multiple to file name OP VISIT DATE child VALIP.prosthetic.fm2cw.SUBOPVISITDATE40808 children MEDICALCENTERDIVISION408 1 SUB_OP_VISIT_DATE_40_808 Relationship for Sub-File/Multiple to file name TREATING SPECIALTY child VALIP.prosthetic.fm2cw.SUBTREATINGSPECIALTY40806 children MEDICALCENTERDIVISION408 1 SUB_TREATING_SPECIALTY_40_806 FileMan Field Label: 'TRACK INCOMPLETE SUMMARIES?' FileMan Field Number: '100.01' Is this division using the MAS summary tracking package? %Library.EnumString 26 TRACK_INCOMPLETE_SUMMARIES FileMan Field Label: 'TRACK OUTPATIENT OP REPORTS?' FileMan Field Number: '100.05' If you want to track outpatient op reports at this division, respond YES. Otherwise, respond NO. %Library.EnumString 30 TRACK_OUTPATIENT_OP_REPORTS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 39 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(40.8," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(40.8,"+1,",.01)={"NAME"} set:{INSTITUTION_FILE_POINTER}'="" FDA(40.8,"+1,",.07)={"INSTITUTION_FILE_POINTER"} set:{PRINT_WRISTBANDS}'="" FDA(40.8,"+1,",.08)={"PRINT_WRISTBANDS"} set:{FACILITY_NUMBER}'="" FDA(40.8,"+1,",1)={"FACILITY_NUMBER"} set:{OUTPATIENT_ONLY}'="" FDA(40.8,"+1,",3)={"OUTPATIENT_ONLY"} set:{PRINT_AA96_ON_GL}'="" FDA(40.8,"+1,",4)={"PRINT_AA96_ON_GL"} set:{PRINT_AA_ON_GL}'="" FDA(40.8,"+1,",5)={"PRINT_AA_ON_GL"} set:{NHCUDOMHOSP_GL}'="" FDA(40.8,"+1,",6)={"NHCUDOMHOSP_GL"} set:{DEFAULT_1010_PRINTER}'="" FDA(40.8,"+1,",7)={"DEFAULT_1010_PRINTER"} set:{DEFAULT_DRUG_PROFILE_PRINTER}'="" FDA(40.8,"+1,",8)={"DEFAULT_DRUG_PROFILE_PRINTER"} set:{DEFAULT_ROUTING_SLIP_PRINTER}'="" FDA(40.8,"+1,",9)={"DEFAULT_ROUTING_SLIP_PRINTER"} set:{DIVISION_PTF_PRINTER}'="" FDA(40.8,"+1,",9.1)={"DIVISION_PTF_PRINTER"} set:{PRF_ASSIGNMENT_OWNERSHIP}'="" FDA(40.8,"+1,",26.01)={"PRF_ASSIGNMENT_OWNERSHIP"} set:{PRF_OWNERSHIP_EDITED}'="" FDA(40.8,"+1,",26.02)={"PRF_OWNERSHIP_EDITED"} set:{PRF_OWNERSHIP_EDITED_BY}'="" FDA(40.8,"+1,",26.03)={"PRF_OWNERSHIP_EDITED_BY"} set:{ADDRESS_LOCATION_ON_LETTERS}'="" FDA(40.8,"+1,",30.01)={"ADDRESS_LOCATION_ON_LETTERS"} set:{OP_LAB_TEST_START_TIME}'="" FDA(40.8,"+1,",30.02)={"OP_LAB_TEST_START_TIME"} set:{OP_EKG_START_TIME}'="" FDA(40.8,"+1,",30.03)={"OP_EKG_START_TIME"} set:{OP_XRAY_START_TIME}'="" FDA(40.8,"+1,",30.04)={"OP_XRAY_START_TIME"} set:{DISPLAY_MEANS_TEST_REQUIRED}'="" FDA(40.8,"+1,",35.01)={"DISPLAY_MEANS_TEST_REQUIRED"} set:{MEANS_TEST_TEXT}'="" FDA(40.8,"+1,",35.02)={"MEANS_TEST_TEXT"} set:{DISPLAY_MEANS_TEST_REQ_IF_GUI}'="" FDA(40.8,"+1,",35.03)={"DISPLAY_MEANS_TEST_REQ_IF_GUI"} set:{TRACK_INCOMPLETE_SUMMARIES}'="" FDA(40.8,"+1,",100.01)={"TRACK_INCOMPLETE_SUMMARIES"} set:{DEFAULT_PRIMARY_PHYSICIAN}'="" FDA(40.8,"+1,",100.02)={"DEFAULT_PRIMARY_PHYSICIAN"} set:{ARE_REPORTS_REVIEWED}'="" FDA(40.8,"+1,",100.03)={"ARE_REPORTS_REVIEWED"} set:{DEFAULT_REVIEWING_PHYSICIAN}'="" FDA(40.8,"+1,",100.04)={"DEFAULT_REVIEWING_PHYSICIAN"} set:{TRACK_OUTPATIENT_OP_REPORTS}'="" FDA(40.8,"+1,",100.05)={"TRACK_OUTPATIENT_OP_REPORTS"} set:{DAYS_FOR_DICTATION}'="" FDA(40.8,"+1,",100.06)={"DAYS_FOR_DICTATION"} set:{DAYS_FOR_SIGNATURE}'="" FDA(40.8,"+1,",100.07)={"DAYS_FOR_SIGNATURE"} set:{DAYS_FOR_REVIEW}'="" FDA(40.8,"+1,",100.08)={"DAYS_FOR_REVIEW"} set:{INCOMPLETE_SUMMARIES_MESSAGE}'="" FDA(40.8,"+1,",100.09)={"INCOMPLETE_SUMMARIES_MESSAGE"} set:{DEFAULT_PHYS__FOR_SIGNATURE}'="" FDA(40.8,"+1,",100.1)={"DEFAULT_PHYS__FOR_SIGNATURE"} set:{STD__DEFIC__FOR_SHORT_FORMS}'="" FDA(40.8,"+1,",100.2)={"STD__DEFIC__FOR_SHORT_FORMS"} set:{DEFAULT_MEDICAL_RECORD_TYPE}'="" FDA(40.8,"+1,",100.3)={"DEFAULT_MEDICAL_RECORD_TYPE"} set:{RAI_SUBSCRIPTION_NUMBER}'="" FDA(40.8,"+1,",900.01)={"RAI_SUBSCRIPTION_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(40.8)") set %SkipFiling=1 if $d(%FMERR(40.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(40.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(40.8,IENS,.01)={NAME} set:{INSTITUTION_FILE_POINTER*C} FDA(40.8,IENS,.07)={INSTITUTION_FILE_POINTER} set:{PRINT_WRISTBANDS*C} FDA(40.8,IENS,.08)={PRINT_WRISTBANDS} set:{FACILITY_NUMBER*C} FDA(40.8,IENS,1)={FACILITY_NUMBER} set:{OUTPATIENT_ONLY*C} FDA(40.8,IENS,3)={OUTPATIENT_ONLY} set:{PRINT_AA96_ON_GL*C} FDA(40.8,IENS,4)={PRINT_AA96_ON_GL} set:{PRINT_AA_ON_GL*C} FDA(40.8,IENS,5)={PRINT_AA_ON_GL} set:{NHCUDOMHOSP_GL*C} FDA(40.8,IENS,6)={NHCUDOMHOSP_GL} set:{DEFAULT_1010_PRINTER*C} FDA(40.8,IENS,7)={DEFAULT_1010_PRINTER} set:{DEFAULT_DRUG_PROFILE_PRINTER*C} FDA(40.8,IENS,8)={DEFAULT_DRUG_PROFILE_PRINTER} set:{DEFAULT_ROUTING_SLIP_PRINTER*C} FDA(40.8,IENS,9)={DEFAULT_ROUTING_SLIP_PRINTER} set:{DIVISION_PTF_PRINTER*C} FDA(40.8,IENS,9.1)={DIVISION_PTF_PRINTER} set:{PRF_ASSIGNMENT_OWNERSHIP*C} FDA(40.8,IENS,26.01)={PRF_ASSIGNMENT_OWNERSHIP} set:{PRF_OWNERSHIP_EDITED*C} FDA(40.8,IENS,26.02)={PRF_OWNERSHIP_EDITED} set:{PRF_OWNERSHIP_EDITED_BY*C} FDA(40.8,IENS,26.03)={PRF_OWNERSHIP_EDITED_BY} set:{ADDRESS_LOCATION_ON_LETTERS*C} FDA(40.8,IENS,30.01)={ADDRESS_LOCATION_ON_LETTERS} set:{OP_LAB_TEST_START_TIME*C} FDA(40.8,IENS,30.02)={OP_LAB_TEST_START_TIME} set:{OP_EKG_START_TIME*C} FDA(40.8,IENS,30.03)={OP_EKG_START_TIME} set:{OP_XRAY_START_TIME*C} FDA(40.8,IENS,30.04)={OP_XRAY_START_TIME} set:{DISPLAY_MEANS_TEST_REQUIRED*C} FDA(40.8,IENS,35.01)={DISPLAY_MEANS_TEST_REQUIRED} set:{MEANS_TEST_TEXT*C} FDA(40.8,IENS,35.02)={MEANS_TEST_TEXT} set:{DISPLAY_MEANS_TEST_REQ_IF_GUI*C} FDA(40.8,IENS,35.03)={DISPLAY_MEANS_TEST_REQ_IF_GUI} set:{TRACK_INCOMPLETE_SUMMARIES*C} FDA(40.8,IENS,100.01)={TRACK_INCOMPLETE_SUMMARIES} set:{DEFAULT_PRIMARY_PHYSICIAN*C} FDA(40.8,IENS,100.02)={DEFAULT_PRIMARY_PHYSICIAN} set:{ARE_REPORTS_REVIEWED*C} FDA(40.8,IENS,100.03)={ARE_REPORTS_REVIEWED} set:{DEFAULT_REVIEWING_PHYSICIAN*C} FDA(40.8,IENS,100.04)={DEFAULT_REVIEWING_PHYSICIAN} set:{TRACK_OUTPATIENT_OP_REPORTS*C} FDA(40.8,IENS,100.05)={TRACK_OUTPATIENT_OP_REPORTS} set:{DAYS_FOR_DICTATION*C} FDA(40.8,IENS,100.06)={DAYS_FOR_DICTATION} set:{DAYS_FOR_SIGNATURE*C} FDA(40.8,IENS,100.07)={DAYS_FOR_SIGNATURE} set:{DAYS_FOR_REVIEW*C} FDA(40.8,IENS,100.08)={DAYS_FOR_REVIEW} set:{INCOMPLETE_SUMMARIES_MESSAGE*C} FDA(40.8,IENS,100.09)={INCOMPLETE_SUMMARIES_MESSAGE} set:{DEFAULT_PHYS__FOR_SIGNATURE*C} FDA(40.8,IENS,100.1)={DEFAULT_PHYS__FOR_SIGNATURE} set:{STD__DEFIC__FOR_SHORT_FORMS*C} FDA(40.8,IENS,100.2)={STD__DEFIC__FOR_SHORT_FORMS} set:{DEFAULT_MEDICAL_RECORD_TYPE*C} FDA(40.8,IENS,100.3)={DEFAULT_MEDICAL_RECORD_TYPE} set:{RAI_SUBSCRIPTION_NUMBER*C} FDA(40.8,IENS,900.01)={RAI_SUBSCRIPTION_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(40.8)") set %SkipFiling=1 if $d(%FMERR(40.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(40.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MEDICALCENT43CAS index ^DG nonnull 40.8 "AD" {INSTITUTION_FILE_POINTER} {IEN} 0]]> index {NAME}'="" 1 ^DG conditional 40.8 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^DG nonnull 40.8 "C" {FACILITY_NUMBER} {IEN} 0]]> data ^DG 40.8 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "LTR" 1 "^" "DT" 3 "^" "DT" 6 "^" "DT" 8 "^" "DT" 7 "^" "DEV" 1 "^" "DEV" 2 "^" "DT" 12 "^" "DT" 10 "^" "DT" 2 "^" "DT" 4 "^" "DEV" 3 "^" "MT" 1 "^" "MT" 3 "^" "DEV" 4 "^" 0 2 "^" "DT" 9 "^" 0 7 "^" "MT" 2 "^" 0 1 "^" 0 6 "^" "LTR" 3 "^" "LTR" 2 "^" "LTR" 4 "^" 0 3 "^" "PRF" 1 "^" "PRF" 2 "^" "PRF" 3 "^" 0 4 "^" 0 5 "^" 0 8 "^" "RAI" 1 "^" "DT" 11 "^" "DT" 1 "^" "DT" 5 Generated class for FileMan File Number: '693' File Name: 'MEDICAL DESCRIPTION' Class generated by %fm2class version 2.56 Listing of allowable Echo conclusions for use in Echo option and listing of Hematology Bone Marrow descriptions. persistent _PUBLIC 0 RowId MEDICAL_DESCRIPTION_693 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.443713116 67178,44711.429635723 right MEDICAL DESCRIPTION 693 2.56 12/04/2024 12:25:11 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDPOINTER VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_POINTER FileMan Field Label: 'ICD POINTER' FileMan Field Number: '2' This field links the description with an ICD diagnosis. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 5 ICD_POINTER CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.MEDICAL_DESCRIPTION_693 where %ID=:id) set {ICD_POINTER_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_POINTER_CODE_NUMBER 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(693,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '3' This field is used as a screen to separate the Echo conclusions from the Hematology bone marrow description %Library.EnumString 6 MEDICAL_PACKAGE_USE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field serves as a list of Echo conclusions for the Echo file and a list of Bone Marrow Descriptions for the Hematology file. %Library.String 1 3 NAME FileMan Field Label: 'SYNONYM' FileMan Field Number: '1' This field allows an alternate name for the Medical description. %Library.String 4 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(693," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(693,"+1,",.01)={"NAME"} set:{SYNONYM}'="" FDA(693,"+1,",1)={"SYNONYM"} set:{ICD_POINTER}'="" FDA(693,"+1,",2)={"ICD_POINTER"} set:{MEDICAL_PACKAGE_USE}'="" FDA(693,"+1,",3)={"MEDICAL_PACKAGE_USE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(693)") set %SkipFiling=1 if $d(%FMERR(693,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(693)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(693,IENS,.01)={NAME} set:{SYNONYM*C} FDA(693,IENS,1)={SYNONYM} set:{ICD_POINTER*C} FDA(693,IENS,2)={ICD_POINTER} set:{MEDICAL_PACKAGE_USE*C} FDA(693,IENS,3)={MEDICAL_PACKAGE_USE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(693)") set %SkipFiling=1 if $d(%FMERR(693,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(693)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MEDICALDESC5230S index {NAME}'="" 1 ^MCAR conditional 693 "B" $$TRUNCATE({NAME},100)) {IEN} 0]]> index ^MCAR nonnull 693 "C" {SYNONYM} {IEN} 0]]> data ^MCAR 693 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 4 "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '697.5' File Name: 'MEDICAL DIAGNOSIS/ICD CODES' Class generated by %fm2class version 2.56 THIS FILE CONTAINS VARIOUS MEDICAL DIAGNOSES WITH A SCREEN TO DIFFERENTIATE THE AREA OF MEDICINE ASSOCIATED WITH IT. IT ALSO STORES THE VARIOUS ICD CODES ASSOCIATED WITH EACH DIAGNOSIS persistent _PUBLIC 0 RowId MEDICAL_DIAGNOSISICD_CODES_697_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.44552776 67178,44711.4618776 right MEDICAL DIAGNOSIS/ICD CODES 697.5 2.56 12/04/2024 12:25:11 1 1 IEN 1 ICD_DIAGNOSIS_80]]> INTEGRATORICDCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_INTEGRATOR_ICD_CODE FileMan Field Label: 'DIAGNOSIS' FileMan Field Number: '.01' This field identifies a list of diagnoses for the various medical tests. %Library.String 1 3 DIAGNOSIS Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(697.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTEGRATOR ICD CODE' FileMan Field Number: '4' VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 5 INTEGRATOR_ICD_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.MEDICAL_DIAGNOSISICD_CODES_697_5 where %ID=:id) set {INTEGRATOR_ICD_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 INTEGRATOR_ICD_CODE_CODE_NUMBER 1 FileMan Field Label: 'SPECIAL DIAGNOSIS TYPE' FileMan Field Number: '2' This field is used as a screen to allow separation of diagnoses within a specified procedure. %Library.EnumString 4 SPECIAL_DIAGNOSIS_TYPE Relationship for Sub-File/Multiple to file name ICD CODE child VALIP.prosthetic.fm2cw.SUBICDCODE69751 children MEDICALDIAGNOSISICDCODES6975 1 SUB_ICD_CODE_697_51 Relationship for Sub-File/Multiple to file name *PROCEDURE child VALIP.prosthetic.fm2cw.SUBPROCEDURE69753 children MEDICALDIAGNOSISICDCODES6975 1 SUB_PROCEDURE_697_53 Relationship for Sub-File/Multiple to file name PROCEDURE NAME child VALIP.prosthetic.fm2cw.SUBPROCEDURENAME69755 children MEDICALDIAGNOSISICDCODES6975 1 SUB_PROCEDURE_NAME_697_55 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(697.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DIAGNOSIS}'="" FDA(697.5,"+1,",.01)={"DIAGNOSIS"} set:{SPECIAL_DIAGNOSIS_TYPE}'="" FDA(697.5,"+1,",2)={"SPECIAL_DIAGNOSIS_TYPE"} set:{INTEGRATOR_ICD_CODE}'="" FDA(697.5,"+1,",4)={"INTEGRATOR_ICD_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(697.5)") set %SkipFiling=1 if $d(%FMERR(697.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DIAGNOSIS*C} FDA(697.5,IENS,.01)={DIAGNOSIS} set:{SPECIAL_DIAGNOSIS_TYPE*C} FDA(697.5,IENS,2)={SPECIAL_DIAGNOSIS_TYPE} set:{INTEGRATOR_ICD_CODE*C} FDA(697.5,IENS,4)={INTEGRATOR_ICD_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.5)") set %SkipFiling=1 if $d(%FMERR(697.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MEDICALDIAGBDE9S index {DIAGNOSIS}'="" 1 ^MCAR conditional 697.5 "B" $$TRUNCATE({DIAGNOSIS},30)) {IEN} 0]]> data ^MCAR 697.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 "^" 3 1 Generated class for FileMan File Number: '690' File Name: 'MEDICAL PATIENT' Class generated by %fm2class version 2.56 This file stores medicine patients' DINUM to the PATIENT file and also keeps a cross-reference of procedures done on a patient. persistent _PUBLIC 0 RowId MEDICAL_PATIENT_690 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.458315571 67178,44711.494242438 right MEDICAL PATIENT 690 2.56 12/04/2024 12:25:11 1 1 IEN 1 PATIENT_2]]> NAME VALIP.prosthetic.fm2cw.PATIENT2 FKey_NAME FileMan Field Label: 'ALLERGIES' FileMan Field Number: '2' This field identifies if the patient has allergies. %Library.String 1 5 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(690,2,9.3) S X=$S('$D(^DIC(57,+$P(Y(690,2,202),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(690,2,80) S D1=Y(690,2,181) set {ALLERGIES}=X 1 ALLERGIES FileMan Field Label: 'CAUSE OF DEATH' FileMan Field Number: '11' This field identifies the cause of death. %Library.EnumString 12 CAUSE_OF_DEATH FileMan Field Label: 'DATE OF FILE CLOSURE' FileMan Field Number: '13' This field identifies the date when the file is closed. %Library.FilemanTimeStamp 14 DATE_OF_FILE_CLOSURE FileMan Field Label: 'DATE OF INITIAL IMPLANT' FileMan Field Number: '16' This field identifies the date of implant. %Library.FilemanTimeStamp 16 DATE_OF_INITIAL_IMPLANT FileMan Field Label: 'DISCHARGE (PACEMAKER) REASON' FileMan Field Number: '14' This field identifies the rationale for the release of the patient. %Library.String 15 DISCHARGE_PACEMAKER_REASON FileMan Field Label: 'GLAUCOMA' FileMan Field Number: '5' This field identifies if the patient has glaucoma. %Library.EnumString 8 GLAUCOMA FileMan Field Label: 'HISTORY COMMENTS' FileMan Field Number: '6' This field identifies a free text field. Enter any pertinent history comments. %Library.String 9 HISTORY_COMMENTS FileMan Field Label: 'HISTORY OF BLEEDING DISORDER' FileMan Field Number: '3' This field identifies if the patient has a history of bleeding disorder. %Library.EnumString 6 HISTORY_OF_BLEEDING_DISORDER Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(690,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDICATION FOR FILE CLOSURE' FileMan Field Number: '10' This field identifies the reason for the file to be closed. %Library.EnumString 11 INDICATION_FOR_FILE_CLOSURE FileMan Field Label: 'LIVER BIOPSY' FileMan Field Number: '1' This field identifies if a liver biopsy has been done. %Library.EnumString 4 LIVER_BIOPSY FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period. VALIP.prosthetic.fm2cw.PATIENT2 1 3 NAME NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.MEDICAL_PATIENT_690 where %ID=:id) set {NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_NAME 1 FileMan Field Label: 'PSC STATUS' FileMan Field Number: '9' This field indicates the Pacemaker Surveillance Center Status. %Library.EnumString 10 PSC_STATUS FileMan Field Label: 'REASON FOR FILE CLOSURE' FileMan Field Number: '18' This field identifies an extended explanation for the file to be closed. %Library.String 18 REASON_FOR_FILE_CLOSURE Relationship for Sub-File/Multiple to file name PACING INDICATION child VALIP.prosthetic.fm2cw.SUBPACINGINDICATION69007 children MEDICALPATIENT690 1 SUB_PACING_INDICATION_690_07 Relationship for Sub-File/Multiple to file name RISK FACTOR (PACE) child VALIP.prosthetic.fm2cw.SUBRISKFACTORPACE69008 children MEDICALPATIENT690 1 SUB_RISK_FACTOR_PACE_690_08 Relationship for Sub-File/Multiple to file name TRANSMITTED PACEMAKER REPORTS child VALIP.prosthetic.fm2cw.SUBTRANSMITTEDPACEMAKERREPORTS690015 children MEDICALPATIENT690 1 SUB_TRANSMITTED_PACEMAKER_REPORTS_690_015 FileMan Field Label: 'SUDDENNESS OF DEATH' FileMan Field Number: '12' This field identifies the reason for the sudden death. %Library.EnumString 13 SUDDENNESS_OF_DEATH FileMan Field Label: 'TELEPHONE FOLLOWUP PROVIDED BY' FileMan Field Number: '17' This field identifies the location for a follow-up visit. %Library.EnumString 17 TELEPHONE_FOLLOWUP_PROVIDED_BY FileMan Field Label: 'VALVULAR HEART DISEASE' FileMan Field Number: '4' This field identifies if the patient has a valvular heart disease. %Library.EnumString 7 VALVULAR_HEART_DISEASE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 19 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(690," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(690,"+1,",.01)={"NAME"} set:{LIVER_BIOPSY}'="" FDA(690,"+1,",1)={"LIVER_BIOPSY"} set:{HISTORY_OF_BLEEDING_DISORDER}'="" FDA(690,"+1,",3)={"HISTORY_OF_BLEEDING_DISORDER"} set:{VALVULAR_HEART_DISEASE}'="" FDA(690,"+1,",4)={"VALVULAR_HEART_DISEASE"} set:{GLAUCOMA}'="" FDA(690,"+1,",5)={"GLAUCOMA"} set:{HISTORY_COMMENTS}'="" FDA(690,"+1,",6)={"HISTORY_COMMENTS"} set:{PSC_STATUS}'="" FDA(690,"+1,",9)={"PSC_STATUS"} set:{INDICATION_FOR_FILE_CLOSURE}'="" FDA(690,"+1,",10)={"INDICATION_FOR_FILE_CLOSURE"} set:{CAUSE_OF_DEATH}'="" FDA(690,"+1,",11)={"CAUSE_OF_DEATH"} set:{SUDDENNESS_OF_DEATH}'="" FDA(690,"+1,",12)={"SUDDENNESS_OF_DEATH"} set:{DATE_OF_FILE_CLOSURE}'="" FDA(690,"+1,",13)={"DATE_OF_FILE_CLOSURE"} set:{DISCHARGE_PACEMAKER_REASON}'="" FDA(690,"+1,",14)={"DISCHARGE_PACEMAKER_REASON"} set:{DATE_OF_INITIAL_IMPLANT}'="" FDA(690,"+1,",16)={"DATE_OF_INITIAL_IMPLANT"} set:{TELEPHONE_FOLLOWUP_PROVIDED_BY}'="" FDA(690,"+1,",17)={"TELEPHONE_FOLLOWUP_PROVIDED_BY"} set:{REASON_FOR_FILE_CLOSURE}'="" FDA(690,"+1,",18)={"REASON_FOR_FILE_CLOSURE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(690)") set %SkipFiling=1 if $d(%FMERR(690,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(690)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(690,IENS,.01)={NAME} set:{LIVER_BIOPSY*C} FDA(690,IENS,1)={LIVER_BIOPSY} set:{HISTORY_OF_BLEEDING_DISORDER*C} FDA(690,IENS,3)={HISTORY_OF_BLEEDING_DISORDER} set:{VALVULAR_HEART_DISEASE*C} FDA(690,IENS,4)={VALVULAR_HEART_DISEASE} set:{GLAUCOMA*C} FDA(690,IENS,5)={GLAUCOMA} set:{HISTORY_COMMENTS*C} FDA(690,IENS,6)={HISTORY_COMMENTS} set:{PSC_STATUS*C} FDA(690,IENS,9)={PSC_STATUS} set:{INDICATION_FOR_FILE_CLOSURE*C} FDA(690,IENS,10)={INDICATION_FOR_FILE_CLOSURE} set:{CAUSE_OF_DEATH*C} FDA(690,IENS,11)={CAUSE_OF_DEATH} set:{SUDDENNESS_OF_DEATH*C} FDA(690,IENS,12)={SUDDENNESS_OF_DEATH} set:{DATE_OF_FILE_CLOSURE*C} FDA(690,IENS,13)={DATE_OF_FILE_CLOSURE} set:{DISCHARGE_PACEMAKER_REASON*C} FDA(690,IENS,14)={DISCHARGE_PACEMAKER_REASON} set:{DATE_OF_INITIAL_IMPLANT*C} FDA(690,IENS,16)={DATE_OF_INITIAL_IMPLANT} set:{TELEPHONE_FOLLOWUP_PROVIDED_BY*C} FDA(690,IENS,17)={TELEPHONE_FOLLOWUP_PROVIDED_BY} set:{REASON_FOR_FILE_CLOSURE*C} FDA(690,IENS,18)={REASON_FOR_FILE_CLOSURE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(690)") set %SkipFiling=1 if $d(%FMERR(690,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(690)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MEDICALPATIC851S index ^MCAR nonnull 690 "B" {NAME} {IEN} 0]]> data ^MCAR 690 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "P3" 2 "^" "P3" 4 "^" "P3" 6 "^" "P3" 5 "^" "GI" 5 "^" "GI" 6 "^" "GI" 3 "^" "P3" 1 "^" "GI" 1 "^" 0 1 "^" "P2" 1 "^" "P3" 7 "^" "P3" 3 "^" "P2" 2 "^" "GI" 4 Generated class for FileMan File Number: '723' File Name: 'MEDICAL SPECIALTY' Class generated by %fm2class version 2.56 This file contains the medical specialties associated with DSS units and ordering sections associated with patient procedures. Entries in this file will be determined by the Decision Support System (DSS) Program Office or designee. This file should NOT be modified directly using VA FileMan. Any additions, deletions, or modifications will be distributed nationally through the release of the Event Capture software. persistent _PUBLIC 0 RowId MEDICAL_SPECIALTY_723 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.470635464 67178,44711.529848663 right MEDICAL SPECIALTY 723 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^ECC(723,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the medical specialty. This information will be used when entering procedures within the Event Capture software. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ECC(723," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(723,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(723)") set %SkipFiling=1 if $d(%FMERR(723,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(723)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(723,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(723)") set %SkipFiling=1 if $d(%FMERR(723,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(723)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MEDICALSPEC3FB9S index {NAME}'="" 1 ^ECC conditional 723 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^ECC 723 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '695' File Name: 'MEDICATION' Class generated by %fm2class version 2.56 This file stores the medications used in the various Medicine procedures. persistent _PUBLIC 0 RowId MEDICATION_695 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.477876098 67178,44711.559612553 right MEDICATION 695 2.56 12/04/2024 12:25:11 1 1 IEN 1 DRUG_50]]> GENERICNAME VALIP.prosthetic.fm2cw.DRUG50 FKey_GENERIC_NAME FileMan Field Label: 'GENERIC NAME' FileMan Field Number: '.01' This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology. VALIP.prosthetic.fm2cw.DRUG50 1 3 GENERIC_NAME GENERIC NAME This is the generic name of the drug. In addition, if this entry is marked for CMOP transmission, the generic name cannot be edited unless it is UNmarked for CMOP transmission first.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.MEDICATION_695 where %ID=:id) set {GENERIC_NAME_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 GENERIC_NAME_GENERIC_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695,0),""^"",3)") 1 2 IEN Relationship for Sub-File/Multiple to file name MEDICAL PACKAGE USE child VALIP.prosthetic.fm2cw.SUBMEDICALPACKAGEUSE69501 children MEDICATION695 1 SUB_MEDICAL_PACKAGE_USE_695_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{GENERIC_NAME}'="" FDA(695,"+1,",.01)={"GENERIC_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695)") set %SkipFiling=1 if $d(%FMERR(695,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{GENERIC_NAME*C} FDA(695,IENS,.01)={GENERIC_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695)") set %SkipFiling=1 if $d(%FMERR(695,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.MEDICATION695S index ^MCAR nonnull 695 "B" {GENERIC_NAME} {IEN} 0]]> data ^MCAR 695 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '390.03' File Name: 'MHV DECLINED REASONS' Class generated by %fm2class version 2.56 The MHV Declined Reasons file contains pre-defined text reasons explaining why the patient has declined My HealtheVet registration. persistent _PUBLIC 0 RowId MHV_DECLINED_REASONS_390_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.492268521 67178,44711.590130223 right MHV DECLINED REASONS 390.03 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DGMHV(390.03,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a short pre-defined text reason a patient might decline My HealtheVet registration. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field contains the internal entry number of the MHV DECLINED REASONS entry. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'SELECTABLE AT' FileMan Field Number: '1' This field contains a list of (A)ction prompt locations at which this action should display. %Library.EnumString 5 SELECTABLE_AT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DGMHV(390.03," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(390.03,"+1,",.01)={"NAME"} set:{SELECTABLE_AT}'="" FDA(390.03,"+1,",1)={"SELECTABLE_AT"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(390.03)") set %SkipFiling=1 if $d(%FMERR(390.03,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(390.03)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(390.03,IENS,.01)={NAME} set:{SELECTABLE_AT*C} FDA(390.03,IENS,1)={SELECTABLE_AT} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(390.03)") set %SkipFiling=1 if $d(%FMERR(390.03,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(390.03)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MHVDECLINED7A9DS index {NAME}'="" 1 ^DGMHV conditional 390.03 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^DGMHV 390.03 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '696.7' File Name: 'MITRAL REGURG ON LV GRAM' Class generated by %fm2class version 2.56 This file holds the types of mitral regurgitation used by the Cardiac Catheterization procedure. persistent _PUBLIC 0 RowId MITRAL_REGURG_ON_LV_GRAM_696_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.502966983 67178,44711.62090304 right MITRAL REGURG ON LV GRAM 696.7 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696.7,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This file holds the list of allowable Mitral Regurgitations for use by the Cardiac Catheterization file. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696.7," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696.7,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696.7)") set %SkipFiling=1 if $d(%FMERR(696.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696.7,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.7)") set %SkipFiling=1 if $d(%FMERR(696.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MITRALREGURF811S index ^MCAR nonnull 696.7 "B" {NAME} {IEN} 0]]> data ^MCAR 696.7 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '699.57' File Name: 'MODIFIER' Class generated by %fm2class version 2.56 This file holds modifiers used for Endoscopic Procedures with a screen to differentiate the type of sub-procedure(s) the modifier is related to. persistent _PUBLIC 0 RowId MODIFIER_699_57 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.505096239 67178,44711.651155293 right MODIFIER 699.57 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.57,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies an adjective list which modifies or enhances the gross for GI and Pulmonary Endoscopic procedures. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.57," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.57,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.57)") set %SkipFiling=1 if $d(%FMERR(699.57,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.57)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.57,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.57)") set %SkipFiling=1 if $d(%FMERR(699.57,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.57)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.MODIFIER69957S index ^MCAR nonnull 699.57 "B" {NAME} {IEN} 0]]> data ^MCAR 699.57 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '61.1' File Name: 'MORPHOLOGY FIELD' Class generated by %fm2class version 2.56 This is the MORPHOLOGY file of SNOMED persistent _PUBLIC 0 RowId MORPHOLOGY_FIELD_61_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.518788703 67178,44711.684215114 right MORPHOLOGY FIELD 61.1 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '6' This must be a 1 to 5 character abbreviation for this morphology and will be used as a unique code for it. %Library.String 6 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(61.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of the morphology. %Library.String 1 3 NAME FileMan Field Label: 'ON SHORT LIST' FileMan Field Number: '4' If answered YES the entry will appear on a short list of codes generated by the search option of FileMan. %Library.EnumString 5 ON_SHORT_LIST FileMan Field Label: 'SNOMED CODE' FileMan Field Number: '2' ENTER CHARACTERS FOLLOWING 'M-' IN SNOMED REFERENCE BOOK The characters following "M-" in the SNOMED reference book. %Library.String 1 4 SNOMED_CODE Relationship for Sub-File/Multiple to file name JOURNAL REFERENCE child VALIP.prosthetic.fm2cw.SUBJOURNALREFERENCE6112 children MORPHOLOGYFIELD611 1 SUB_JOURNAL_REFERENCE_61_12 Relationship for Sub-File/Multiple to file name SYNONYMS child VALIP.prosthetic.fm2cw.SUBSYNONYMS6111 children MORPHOLOGYFIELD611 1 SUB_SYNONYMS_61_11 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(61.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(61.1,"+1,",.01)={"NAME"} set:{SNOMED_CODE}'="" FDA(61.1,"+1,",2)={"SNOMED_CODE"} set:{ON_SHORT_LIST}'="" FDA(61.1,"+1,",4)={"ON_SHORT_LIST"} set:{ABBREVIATION}'="" FDA(61.1,"+1,",6)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(61.1)") set %SkipFiling=1 if $d(%FMERR(61.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(61.1,IENS,.01)={NAME} set:{SNOMED_CODE*C} FDA(61.1,IENS,2)={SNOMED_CODE} set:{ON_SHORT_LIST*C} FDA(61.1,IENS,4)={ON_SHORT_LIST} set:{ABBREVIATION*C} FDA(61.1,IENS,6)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(61.1)") set %SkipFiling=1 if $d(%FMERR(61.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MORPHOLOGYF22FES index {NAME}'="" 1 ^LAB conditional 61.1 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^LAB nonnull 61.1 "C" {SNOMED_CODE} {IEN} 0]]> data ^LAB 61.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 7 "^" 0 1 "^" 0 4 "^" 0 2 Generated class for FileMan File Number: '696.3' File Name: 'MORPHOLOGY OF DISTAL VESSEL' Class generated by %fm2class version 2.56 This file stores the allowable morphologies for distal vessels. It is pointed to by the CARDIAC CATHETERIZATION file. persistent _PUBLIC 0 RowId MORPHOLOGY_OF_DISTAL_VESSEL_696_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.525312752 67178,44711.717420467 right MORPHOLOGY OF DISTAL VESSEL 696.3 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field stores the list of morphologies for Distal Vessels for use by the Cardiac Catheterization file. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696.3,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696.3)") set %SkipFiling=1 if $d(%FMERR(696.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696.3,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.3)") set %SkipFiling=1 if $d(%FMERR(696.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.MORPHOLOGYOF41BS index ^MCAR nonnull 696.3 "B" {NAME} {IEN} 0]]> data ^MCAR 696.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '20' File Name: 'NAME COMPONENTS' Class generated by %fm2class version 2.56 This file, introduced with Name Standardization (Patch XU*8.0*134), holds the component parts of a person's name as follows: Family (Last) Name (field #1) Given (First) Name (field #2) Middle Name (field #3) Prefix (field #4) Suffix (field #5) Degree (field #6) The "source name" that has these components is identified by the following three fields: File (field #.01) Field (field #.02) IENS (field #.03) The "ANAME" cross-reference on the Family (Last) Name, Given (First) Name, Middle Name, and Suffix fields keeps each component in synchronization with the corresponding source name. In the case of Patch XU*8.0*134, the source name is the .01 field (the Name field) of the NEW PERSON file (#200). The Degree and Prefix fields are not considered part of a standard name, but can be used to build formatted names for display. persistent _PUBLIC 0 RowId NAME_COMPONENTS_20 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.532327086 67178,44711.749446534 right NAME COMPONENTS 20 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'DEGREE' FileMan Field Number: '6' This field holds any academic or professional degree that have been earned by the user. This would be things like BS, BA, MD, and PHD. Each degree must be a valid code from the EDUCATION (#20.11) file. The field can contain multiple degrees delimited by a single blank space up to the 10 character field length. This would be like PHD MD or BA CNA etc. No leading or trailing spaces. %Library.String 11 DEGREE FileMan Field Label: 'FAMILY (LAST) NAME' FileMan Field Number: '1' LAST NAME Answer with the person's family (last) name. It must begin with an upper-case letter and can contain only upper-case letters, numbers, and punctuation, excluding circumflexes (^) and grave accents (`). %Library.String 6 FAMILY_LAST_NAME FileMan Field Label: 'FIELD' FileMan Field Number: '.02' Answer must be the number of the field that contains the name. %Library.Numeric 4 FIELD FileMan Field Label: 'FILE' FileMan Field Number: '.01' Answer must be the number of the file or subfile that contains the name field. %Library.Numeric 1 3 FILE FileMan Field Label: 'GIVEN (FIRST) NAME' FileMan Field Number: '2' FIRST NAME Answer with the person's given (first) name. It must begin with an upper-case letter and can contain only upper-case letters, numbers, and punctuation, excluding circumflexes (^) and grave accents (`). %Library.String 7 GIVEN_FIRST_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^VA(20,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IENS' FileMan Field Number: '.03' Answer must be the IENS of the entry that contains the name. %Library.String 5 IENS FileMan Field Label: 'MIDDLE NAME' FileMan Field Number: '3' Answer with the person's middle name. It must begin with an upper-case letter and can contain only upper-case letters, numbers, and punctuation, excluding circumflexes (^) and grave accents (`). Middle names of NMI and NMN are not accepted. %Library.String 8 MIDDLE_NAME FileMan Field Label: 'NOTES ABOUT NAME' FileMan Field Number: '11' This field stores notes about the name. During the New Person Name Conversion, which is run as part of the post-install routine of Patch XU*8.0*134, if a name in the NEW PERSON file contains text in parentheses (), brackets [], or braces {}, that text is removed from the name, and the original name with the parenthetical text is recorded in this field. %Library.String 13 NOTES_ABOUT_NAME FileMan Field Label: 'PREFIX' FileMan Field Number: '4' Answer with the name prefix, such as MR or MS. Answer must begin with an upper-case letter and can contain only upper-case letters, numbers, and punctuation, excluding circumflexes (^) and grave accents (`). %Library.String 9 PREFIX FileMan Field Label: 'SOURCE NAME FORMAT FLAGS' FileMan Field Number: '7' When the name fields in the Name Components file are edited, the "ANAME" cross-reference updates the corresponding name field in the source file. This SOURCE NAME FORMAT FLAGS field can be used to control the format of the name placed in the source name field. Answer with the flags used in $$NAMEFMT^XLFNAME API. For example, C : Return a Comma between the Family (Last) and Given (First) Names. L : Truncate the returned name to the maximum length as specified by the data type of the source name field. L# : Truncate the returned name to a maximum length of # characters, where # is an integer between 1 and 256. S : Standardize the name components before building the formatted name. If this field is null (i.e., no flags are specified), the default is "CLS". %Library.String 12 SOURCE_NAME_FORMAT_FLAGS FileMan Field Label: 'SUFFIX' FileMan Field Number: '5' Answer with the name suffix(es), such as JR, SR, II, or III. Answer must begin with an upper-case letter and can contain only upper-case letters, numbers, and punctuation, excluding circumflexes (^) and grave accents (`). %Library.String 10 SUFFIX SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^VA(20," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{FILE}'="" FDA(20,"+1,",.01)={"FILE"} set:{FIELD}'="" FDA(20,"+1,",.02)={"FIELD"} set:{IENS}'="" FDA(20,"+1,",.03)={"IENS"} set:{FAMILY_LAST_NAME}'="" FDA(20,"+1,",1)={"FAMILY_LAST_NAME"} set:{GIVEN_FIRST_NAME}'="" FDA(20,"+1,",2)={"GIVEN_FIRST_NAME"} set:{MIDDLE_NAME}'="" FDA(20,"+1,",3)={"MIDDLE_NAME"} set:{PREFIX}'="" FDA(20,"+1,",4)={"PREFIX"} set:{SUFFIX}'="" FDA(20,"+1,",5)={"SUFFIX"} set:{DEGREE}'="" FDA(20,"+1,",6)={"DEGREE"} set:{SOURCE_NAME_FORMAT_FLAGS}'="" FDA(20,"+1,",7)={"SOURCE_NAME_FORMAT_FLAGS"} set:{NOTES_ABOUT_NAME}'="" FDA(20,"+1,",11)={"NOTES_ABOUT_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(20)") set %SkipFiling=1 if $d(%FMERR(20,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(20)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{FILE*C} FDA(20,IENS,.01)={FILE} set:{FIELD*C} FDA(20,IENS,.02)={FIELD} set:{IENS*C} FDA(20,IENS,.03)={IENS} set:{FAMILY_LAST_NAME*C} FDA(20,IENS,1)={FAMILY_LAST_NAME} set:{GIVEN_FIRST_NAME*C} FDA(20,IENS,2)={GIVEN_FIRST_NAME} set:{MIDDLE_NAME*C} FDA(20,IENS,3)={MIDDLE_NAME} set:{PREFIX*C} FDA(20,IENS,4)={PREFIX} set:{SUFFIX*C} FDA(20,IENS,5)={SUFFIX} set:{DEGREE*C} FDA(20,IENS,6)={DEGREE} set:{SOURCE_NAME_FORMAT_FLAGS*C} FDA(20,IENS,7)={SOURCE_NAME_FORMAT_FLAGS} set:{NOTES_ABOUT_NAME*C} FDA(20,IENS,11)={NOTES_ABOUT_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(20)") set %SkipFiling=1 if $d(%FMERR(20,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(20)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.NAMECOMPONE55FDS index ^VA nonnull 20 "BB" {FILE} {FIELD} {IENS} {IEN} 0]]> index ^VA nonnull 20 "B" {FILE} {IEN} 0]]> data ^VA 20 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 6 "^" 1 1 "^" 0 2 "^" 0 1 "^" 1 2 "^" 0 3 "^" 1 3 "^" 11 1 "^" 1 4 "^" 1 7 "^" 1 5 persistent _PUBLIC 0 RowId NATIONAL_SERVICE_730 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.539227267 67178,44711.785485682 right NATIONAL SERVICE 730 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'DSS SERVICE CODE' FileMan Field Number: '3' DSS National Service Code for clinical services. Data is provided by DSS Bedford Technical Service Office and is not editable by the local site. %Library.String 6 DSS_SERVICE_CODE FileMan Field Label: 'GENERAL PRIVILEGE' FileMan Field Number: '747' General Privilege associated with this National Service. Used by the Credentials Tracking module of the Quality Assurance package. %Library.String 8 GENERAL_PRIVILEGE Internal Entry Number %Library.String $$next^%apiSQL("$p(^ECC(730,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LOCAL SERVICE?' FileMan Field Number: '2' Does this service exist at the local site? If so, answer with a "Y" or "1", if not, answer with "N", "0", or press return. %Library.EnumString 5 LOCAL_SERVICE FileMan Field Label: 'NAME' FileMan Field Number: '.01' SERVICE NAME Free-text name of this national service. %Library.String 1 3 NAME FileMan Field Label: 'ROUTING SYMBOL' FileMan Field Number: '1' Routing symbol for national service selected. %Library.String 4 ROUTING_SYMBOL FileMan Field Label: 'VA COST CENTER' FileMan Field Number: '4' VA Cost Center associated with the service. Data is provided by DSS Bedford Technical Service Office and is not editable by the local site. %Library.String 7 VA_COST_CENTER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ECC(730," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(730,"+1,",.01)={"NAME"} set:{ROUTING_SYMBOL}'="" FDA(730,"+1,",1)={"ROUTING_SYMBOL"} set:{LOCAL_SERVICE}'="" FDA(730,"+1,",2)={"LOCAL_SERVICE"} set:{DSS_SERVICE_CODE}'="" FDA(730,"+1,",3)={"DSS_SERVICE_CODE"} set:{VA_COST_CENTER}'="" FDA(730,"+1,",4)={"VA_COST_CENTER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(730)") set %SkipFiling=1 if $d(%FMERR(730,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(730)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {GENERAL_PRIVILEGE}'="" { set D0={RowId} for i=1:1:$l({GENERAL_PRIVILEGE},$c(13,10)) { set wp(i)=$p({GENERAL_PRIVILEGE},$c(13,10),i) } do WP^DIE(730,{RowId},747,,"wp","%FMERR(730)") if $d(%FMERR(730,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(730)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(730,IENS,.01)={NAME} set:{ROUTING_SYMBOL*C} FDA(730,IENS,1)={ROUTING_SYMBOL} set:{LOCAL_SERVICE*C} FDA(730,IENS,2)={LOCAL_SERVICE} set:{DSS_SERVICE_CODE*C} FDA(730,IENS,3)={DSS_SERVICE_CODE} set:{VA_COST_CENTER*C} FDA(730,IENS,4)={VA_COST_CENTER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(730)") set %SkipFiling=1 if $d(%FMERR(730,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(730)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {GENERAL_PRIVILEGE*C} { set D0={RowId} kill wp if {GENERAL_PRIVILEGE}'="" { set wproot="wp" for i=1:1:$l({GENERAL_PRIVILEGE},$c(13,10)) { set wp(i)=$p({GENERAL_PRIVILEGE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(730,{RowId},747,,wproot,"%FMERR(730)") if $d(%FMERR(730,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(730)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.NATIONALSER9324S index {NAME}'="" 1 ^ECC conditional 730 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^ECC nonnull 730 "C" {DSS_SERVICE_CODE} {IEN} 0]]> data ^ECC 730 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "QAR" new data,i,node set {GENERAL_PRIVILEGE}="" merge data=^ECC(730,{S2},"QAR") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_PRIVILEGE}={GENERAL_PRIVILEGE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 3 "^" 0 1 "^" 0 2 "^" 0 5 persistent _PUBLIC 0 RowId NETWORK_LOCATION_2005_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.563149173 67178,44711.818420123 right NETWORK LOCATION 2005.2 2.56 12/04/2024 12:25:11 1 1 IEN 1 FileMan Field Label: 'ABSTRACT' FileMan Field Number: '8' Site supports 'ABSTRACT' files This field is a flag indicating whether or not a network location supports ABSTRACT image files'. %Library.EnumString 12 ABSTRACT FileMan Field Label: 'BIG' FileMan Field Number: '10' Site supports 'BIG' files This field is a flag indicating whether or not a network location supports BIG image files. %Library.EnumString 14 BIG FileMan Field Label: 'COMPRESSION' FileMan Field Number: '14' Type of data compression This field indicates which type of compression, if any, is to use while transmitting files to this network location. %Library.EnumString 17 COMPRESSION FileMan Field Label: 'DICOM' FileMan Field Number: '12' Site supports 'DICOM' files This field is a flag indicating whether or not a network location supports DICOM image files. %Library.EnumString 16 DICOM FileMan Field Label: 'FREE SPACE' FileMan Field Number: '4' This is the amount of available space remaining for this network location. The information in this field is dependent on the connectivity of the share and may be set to zero if the share is not available. This field is maintained by the RPC MAGQ FS CHNGE. %Library.Numeric 7 FREE_SPACE FileMan Field Label: 'FULL' FileMan Field Number: '9' Site supports 'FULL' files This field is a flag indicating whether or not a network location supports FULL image files. %Library.EnumString 13 FULL9 FileMan Field Label: 'HASH SUBDIRECTORY' FileMan Field Number: '7' Control whether subdirectory should be hashed. %Library.EnumString 11 HASH_SUBDIRECTORY Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LAST PURGE DATE' FileMan Field Number: '24' This field indicates the date and time of the most recent purge at this network location. An automatic purge will be executed at most once per day; the value of this field determines whether or not a purge has already taken place. %Library.FilemanTimeStamp 26 LAST_PURGE_DATE FileMan Field Label: 'MAINTAINCONNECTION' FileMan Field Number: '17' %Library.EnumString 20 MAINTAINCONNECTION FileMan Field Label: 'MAX # RETRY ON CONNECT' FileMan Field Number: '18' Maximum number of retries on connect This field indicates the number of attempts to make to connect with the network location. When no connection can be established within this number of attempts, the status of the network location will be set to 'Off-Line'. %Library.Numeric 21 MAX__RETRY_ON_CONNECT FileMan Field Label: 'MAX # RETRY ON TRANSMIT' FileMan Field Number: '19' Maximum number of retries on transmit This field indicates the number of attempts to make to transmit a file. When a file cannot be transmitted within this number of attempts, its status will be set to 'FAILED'. %Library.Numeric 22 MAX__RETRY_ON_TRANSMIT FileMan Field Label: 'MUSE SITE #' FileMan Field Number: '28' If this is a MUSE EKG network location, enter the MUSE site number for this location. Typically, a site with a single MUSE server that holds EKGs for one site uses 1. If a MUSE server stores EKGs for more than one site, then Marquette assigns each site a MUSE site number. %Library.Numeric 30 MUSE_SITE_ FileMan Field Label: 'NETWORK LOCATION' FileMan Field Number: '.01' This is the alias name of an Imaging share. %Library.String 1 3 NETWORK_LOCATION FileMan Field Label: 'OPERATIONAL STATUS' FileMan Field Number: '5' Reachability Status This field tells the Imaging software whether or not this network location, where images are stored, is online. The default is online if the field is null. %Library.EnumString 8 OPERATIONAL_STATUS FileMan Field Label: 'PASSWORD' FileMan Field Number: '16' Password This field is a password used with a user name to establish a connection with this network location. %Library.String 19 PASSWORD FileMan Field Label: 'PHYSICAL REFERENCE' FileMan Field Number: '1' This is the physical network location where the image is stored. This is the Universal Naming Convention (UNC) path for the Image Storage. For example: \\ISWIMG01\IMAGE1\ This is a required field for all entries except for an entry defined with a RAID-GROUP STORAGE TYPE (#6). Duplicate PHYSICAL REFERENCE values within the same VistA Imaging configuration PLACE (#.04) are not allowed. %Library.String 4 PHYSICAL_REFERENCE FileMan Field Label: 'READ ONLY' FileMan Field Number: '5.5' This field enables applications to filter shares that are designated as read only by active VistA Imaging applications. %Library.EnumString 9 READ_ONLY FileMan Field Label: 'RETENTION PERIOD' FileMan Field Number: '23' Number of days before automatic purge This field indicates the number of days to retain routed image files at the location identified by this entry in the NETWORK LOCATION file. When Images are present for more than this number of days, they are candidates for automatic removal. %Library.Numeric 25 RETENTION_PERIOD FileMan Field Label: 'ROUTER' FileMan Field Number: '26' This boolean value is used to designate certain network location shares as routing shares. This is necessary to allow clinical WS applications access to images on these shares but to prevent the background processor from designating this share as the current write location. %Library.EnumString 28 ROUTER FileMan Field Label: 'SITE' FileMan Field Number: '25' This field is a code for the site of the 'network location. This code is typically a three-letter abbreviation\acronym (WAS for Washington DC, STL for St. Louis, etcetera). For stations 'at home', a longer code that starts with "HOME" is entered. %Library.String 27 SITE FileMan Field Label: 'SPACE USED' FileMan Field Number: '3' This is the amount of space which has been used for this network location - this value is device dependent. %Library.Numeric 6 SPACE_USED FileMan Field Label: 'STORAGE TYPE' FileMan Field Number: '6' This field describes the media type of this network location. It should be MAGNETIC for a magnetic disk server. Jukeboxes should be WORM-DG for Data General Jukeboxes under OpenNetware or WORM-PDT for Pegasus Jukeboxes or WORM-OTG for OTG Disk Extender. WORM-DG and WORM-PDT are for backward compatibility only. Note: WORM stands for Write Once, Read Many. The GCC type refers to the Generic Carbon Copy (GCC) utility. URL is used for Web based file access. Type 'RTR' should be used to identify network entries that are used for Routing images. Type 'GRP' will identify a group entry and will allow sites to group network locations. This functionality is useful for the Background Processor and Verifier applications. %Library.EnumString 10 STORAGE_TYPE FileMan Field Label: 'SUBDIRECTORY' FileMan Field Number: '21' Subdirectory at network location Files are typically not stored in root directories. This field is the name of a subdirectory where files are to be stored. The value of this field is concatenated to the name of the network location (the 'physical name') to create the complete path-name for the location where files are to be stored. When "directory hashing" iS active, additional subdirectory names will be added to the above-mentioned path-name before the file name is appended. %Library.String 24 SUBDIRECTORY FileMan Field Label: 'SYNTAX' FileMan Field Number: '20' Syntax for physical name This field is a code for the syntax that describes the actual (physical) name of the network location. %Library.EnumString 23 SYNTAX FileMan Field Label: 'TEXT' FileMan Field Number: '11' Site supports 'TEXT' files This field is a flag indicating whether or not a network location supports TEXT image files. %Library.EnumString 15 TEXT FileMan Field Label: 'TIME OFFLINE' FileMan Field Number: '27' This field is a time stamp indicating when the equipment in question most recently went off-line. This time stamp is used by the Routing software to decide whether or not to attempt to reconnect to a destination that was not reachable at an earlier stage. %Library.FilemanTimeStamp 29 TIME_OFFLINE FileMan Field Label: 'TOTAL SPACE' FileMan Field Number: '2' This is the total available formatted space of this network location. The information in this field is dependent on the connectivity of the share and may be set to zero if the share is not available. This field is maintained by the RPC MAGQ FS CHNGE. %Library.Numeric 5 TOTAL_SPACE FileMan Field Label: 'USER NAME' FileMan Field Number: '15' User name This field is for a user name used to establish a connection with the network location. %Library.String 18 USER_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 31 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NETWORK_LOCATION}'="" FDA(2005.2,"+1,",.01)={"NETWORK_LOCATION"} set:{PHYSICAL_REFERENCE}'="" FDA(2005.2,"+1,",1)={"PHYSICAL_REFERENCE"} set:{TOTAL_SPACE}'="" FDA(2005.2,"+1,",2)={"TOTAL_SPACE"} set:{SPACE_USED}'="" FDA(2005.2,"+1,",3)={"SPACE_USED"} set:{FREE_SPACE}'="" FDA(2005.2,"+1,",4)={"FREE_SPACE"} set:{OPERATIONAL_STATUS}'="" FDA(2005.2,"+1,",5)={"OPERATIONAL_STATUS"} set:{READ_ONLY}'="" FDA(2005.2,"+1,",5.5)={"READ_ONLY"} set:{STORAGE_TYPE}'="" FDA(2005.2,"+1,",6)={"STORAGE_TYPE"} set:{HASH_SUBDIRECTORY}'="" FDA(2005.2,"+1,",7)={"HASH_SUBDIRECTORY"} set:{ABSTRACT}'="" FDA(2005.2,"+1,",8)={"ABSTRACT"} set:{FULL9}'="" FDA(2005.2,"+1,",9)={"FULL9"} set:{BIG}'="" FDA(2005.2,"+1,",10)={"BIG"} set:{TEXT}'="" FDA(2005.2,"+1,",11)={"TEXT"} set:{DICOM}'="" FDA(2005.2,"+1,",12)={"DICOM"} set:{COMPRESSION}'="" FDA(2005.2,"+1,",14)={"COMPRESSION"} set:{USER_NAME}'="" FDA(2005.2,"+1,",15)={"USER_NAME"} set:{PASSWORD}'="" FDA(2005.2,"+1,",16)={"PASSWORD"} set:{MAINTAINCONNECTION}'="" FDA(2005.2,"+1,",17)={"MAINTAINCONNECTION"} set:{MAX__RETRY_ON_CONNECT}'="" FDA(2005.2,"+1,",18)={"MAX__RETRY_ON_CONNECT"} set:{MAX__RETRY_ON_TRANSMIT}'="" FDA(2005.2,"+1,",19)={"MAX__RETRY_ON_TRANSMIT"} set:{SYNTAX}'="" FDA(2005.2,"+1,",20)={"SYNTAX"} set:{SUBDIRECTORY}'="" FDA(2005.2,"+1,",21)={"SUBDIRECTORY"} set:{RETENTION_PERIOD}'="" FDA(2005.2,"+1,",23)={"RETENTION_PERIOD"} set:{LAST_PURGE_DATE}'="" FDA(2005.2,"+1,",24)={"LAST_PURGE_DATE"} set:{SITE}'="" FDA(2005.2,"+1,",25)={"SITE"} set:{ROUTER}'="" FDA(2005.2,"+1,",26)={"ROUTER"} set:{TIME_OFFLINE}'="" FDA(2005.2,"+1,",27)={"TIME_OFFLINE"} set:{MUSE_SITE_}'="" FDA(2005.2,"+1,",28)={"MUSE_SITE_"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.2)") set %SkipFiling=1 if $d(%FMERR(2005.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NETWORK_LOCATION*C} FDA(2005.2,IENS,.01)={NETWORK_LOCATION} set:{PHYSICAL_REFERENCE*C} FDA(2005.2,IENS,1)={PHYSICAL_REFERENCE} set:{TOTAL_SPACE*C} FDA(2005.2,IENS,2)={TOTAL_SPACE} set:{SPACE_USED*C} FDA(2005.2,IENS,3)={SPACE_USED} set:{FREE_SPACE*C} FDA(2005.2,IENS,4)={FREE_SPACE} set:{OPERATIONAL_STATUS*C} FDA(2005.2,IENS,5)={OPERATIONAL_STATUS} set:{READ_ONLY*C} FDA(2005.2,IENS,5.5)={READ_ONLY} set:{STORAGE_TYPE*C} FDA(2005.2,IENS,6)={STORAGE_TYPE} set:{HASH_SUBDIRECTORY*C} FDA(2005.2,IENS,7)={HASH_SUBDIRECTORY} set:{ABSTRACT*C} FDA(2005.2,IENS,8)={ABSTRACT} set:{FULL9*C} FDA(2005.2,IENS,9)={FULL9} set:{BIG*C} FDA(2005.2,IENS,10)={BIG} set:{TEXT*C} FDA(2005.2,IENS,11)={TEXT} set:{DICOM*C} FDA(2005.2,IENS,12)={DICOM} set:{COMPRESSION*C} FDA(2005.2,IENS,14)={COMPRESSION} set:{USER_NAME*C} FDA(2005.2,IENS,15)={USER_NAME} set:{PASSWORD*C} FDA(2005.2,IENS,16)={PASSWORD} set:{MAINTAINCONNECTION*C} FDA(2005.2,IENS,17)={MAINTAINCONNECTION} set:{MAX__RETRY_ON_CONNECT*C} FDA(2005.2,IENS,18)={MAX__RETRY_ON_CONNECT} set:{MAX__RETRY_ON_TRANSMIT*C} FDA(2005.2,IENS,19)={MAX__RETRY_ON_TRANSMIT} set:{SYNTAX*C} FDA(2005.2,IENS,20)={SYNTAX} set:{SUBDIRECTORY*C} FDA(2005.2,IENS,21)={SUBDIRECTORY} set:{RETENTION_PERIOD*C} FDA(2005.2,IENS,23)={RETENTION_PERIOD} set:{LAST_PURGE_DATE*C} FDA(2005.2,IENS,24)={LAST_PURGE_DATE} set:{SITE*C} FDA(2005.2,IENS,25)={SITE} set:{ROUTER*C} FDA(2005.2,IENS,26)={ROUTER} set:{TIME_OFFLINE*C} FDA(2005.2,IENS,27)={TIME_OFFLINE} set:{MUSE_SITE_*C} FDA(2005.2,IENS,28)={MUSE_SITE_} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.2)") set %SkipFiling=1 if $d(%FMERR(2005.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.NETWORKLOCADF65S index ^MAG nonnull 2005.2 "AC" {PHYSICAL_REFERENCE} {IEN} 0]]> index ^MAG nonnull 2005.2 "B" {NETWORK_LOCATION} {IEN} 0]]> index ^MAG nonnull 2005.2 "E" {STORAGE_TYPE} {IEN} 0]]> data ^MAG 2005.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 1 "^" 1 3 "^" 1 7 "^" 1 5 "^" 0 5 "^" 1 2 "^" 0 8 "^" 3 4 "^" 2 3 "^" 3 2 "^" 3 3 "^" 6 1 "^" 0 1 "^" 0 6 "^" 2 2 "^" 0 2 "^" 1 6 "^" 3 1 "^" 0 9 "^" 3 5 "^" 0 4 "^" 0 7 "^" 4 2 "^" 4 1 "^" 1 4 "^" 3 6 "^" 0 3 "^" 2 1 Generated class for FileMan File Number: '200' File Name: 'NEW PERSON' Class generated by %fm2class version 2.56 This file contains data on employees, users, practitioners, etc. who were previously in Files 3,6,16 and others. DHCP packages must check with the KERNEL developers to see that a given number/namespace is clear for them to use. Field numbers 53-59.9 reserved for Pharm. Nodes and X-ref 'PS*'. Field numbers 70-79.9 reserved for Radiology Nodes and X-ref 'RA*'. Field numbers 720-725 reserved for DSSM Nodes and X-ref 'EC*' and 'AEC*'. Field numbers 740-749.9 reserved for QA Nodes and X-ref 'QA*'. Field numbers 654-654.9 reserved for Social work Node 654 and X-ref 'SW*'. Field numbers 500-500.9 reserved for mailman Node 500 and X-ref 'XM*' and 'AXM*'. persistent _PUBLIC 0 RowId NEW_PERSON_200 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.662296323 67178,44711.888532618 right NEW PERSON 200 2.56 12/04/2024 12:25:11 1 1 IEN 1 REMOTE_APPLICATION_8994_5]]> CREATEDBY VALIP.prosthetic.fm2cw.REMOTEAPPLICATION89945 FKey_CREATED_BY NEW_PERSON_200]]> CREATOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CREATOR HL7_DEGREE_771_9]]> CURRENTDEGREELEVEL VALIP.prosthetic.fm2cw.HL7DEGREE7719 FKey_CURRENT_DEGREE_LEVEL TERMINAL_TYPE_3_2]]> DEFAULTTERMINALTYPEFORLM VALIP.prosthetic.fm2cw.TERMINALTYPE32 FKey_DEFAULT_TERMINAL_TYPE_FOR_LM NEW_PERSON_200]]> DELEGATEOF VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELEGATE_OF NEW_PERSON_200]]> EXCLUSIONARYCHECKEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_EXCLUSIONARY_CHECKED_BY NEW_PERSON_200]]> IMMEDIATESUPERVISOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_IMMEDIATE_SUPERVISOR LANGUAGE__85]]> LANGUAGE20007 VALIP.prosthetic.fm2cw.LANGUAGE85 FKey_LANGUAGE200_07 OPTION_19]]> LASTOPTIONACCESSED VALIP.prosthetic.fm2cw.OPTION19 FKey_LAST_OPTION_ACCESSED NAME_COMPONENTS_20]]> NAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_NAME_COMPONENTS PAID_EMPLOYEE_450]]> PAIDEMPLOYEE VALIP.prosthetic.fm2cw.PAIDEMPLOYEE450 FKey_PAID_EMPLOYEE OERR_LIST_100_21]]> PATIENTSELECTIONLIST VALIP.prosthetic.fm2cw.OERRLIST10021 FKey_PATIENT_SELECTION_LIST ALTERNATE_EDITOR_1_2]]> PREFERREDEDITOR VALIP.prosthetic.fm2cw.ALTERNATEEDITOR12 FKey_PREFERRED_EDITOR OPTION_19]]> PRIMARYMENUOPTION VALIP.prosthetic.fm2cw.OPTION19 FKey_PRIMARY_MENU_OPTION OPTION_19]]> PRIMARYWINDOW VALIP.prosthetic.fm2cw.OPTION19 FKey_PRIMARY_WINDOW PROBLEM_SELECTION_LIST_125]]> PROBLEMSELECTIONLIST VALIP.prosthetic.fm2cw.PROBLEMSELECTIONLIST125 FKey_PROBLEM_SELECTION_LIST PROGRAM_OF_STUDY_8932_2]]> PROGRAMOFSTUDY VALIP.prosthetic.fm2cw.PROGRAMOFSTUDY89322 FKey_PROGRAM_OF_STUDY PROVIDER_CLASS_7]]> PROVIDERCLASS VALIP.prosthetic.fm2cw.PROVIDERCLASS7 FKey_PROVIDER_CLASS SERVICESECTION_49]]> SERVICESECTION VALIP.prosthetic.fm2cw.SERVICESECTION49 FKey_SERVICESECTION STATE_5]]> STATE VALIP.prosthetic.fm2cw.STATE5 FKey_STATE NEW_PERSON_200]]> SURROGATE VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SURROGATE STATE_5]]> TEMPORARYSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_TEMPORARY_STATE TERMINAL_TYPE_3_2]]> TERMINALTYPELASTUSED VALIP.prosthetic.fm2cw.TERMINALTYPE32 FKey_TERMINAL_TYPE_LAST_USED TITLE_3_1]]> TITLE VALIP.prosthetic.fm2cw.TITLE31 FKey_TITLE NEW_PERSON_200]]> USUALCOSIGNER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_USUAL_COSIGNER INSTITUTION_4]]> VHATRAININGFACILITY VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_VHA_TRAINING_FACILITY FileMan Field Label: 'ACCESS CODE' FileMan Field Number: '2' This is a unique code to identify a user to the system. This code is hashed so that it can't be looked up to find out the code. The access code will appear as a string of numbers, but must be entered as a separate entry. Users who have no access code will not receive mail. *** This field should never be edited directly - do not remove WRITE ACCESS! %Library.String 29 ACCESS_CODE FileMan Field Label: 'ADUPN' FileMan Field Number: '205.5' Active Directory UPN Identity and Access Management Active Directory User Principle Name (AD UPN) field. %Library.String 139 ADUPN FileMan Field Label: 'ALLOWED TO USE SPOOLER' FileMan Field Number: '41' If set to 'YES', this user will be able to use the spool device to create spool documents. %Library.EnumString 77 ALLOWED_TO_USE_SPOOLER FileMan Field Label: 'ALLOW ARA ACCESS' FileMan Field Number: '11.6' This field is for a control that is under development. %Library.EnumString 49 ALLOW_ARA_ACCESS FileMan Field Label: 'ALLOW VERIFYING OF OTHERS' FileMan Field Number: '71' If this field is set to 'YES' and the 'ALLOW VERIFYING BY RESIDENTS' division parameter is also set to 'YES' then this resident is allowed to verify reports associated with another interpreting physician. (If both parameters are set to 'YES' the 'On-line Verifying of Reports' option will prompt the user to 'Select Interpreting Physician: ' allowing the user to select an interpreting physician other than him/herself.) If this field is set to 'NO' then this resident is only allowed to verify his/her own reports. If the division parameter 'ALLOW VERIFYING BY RESIDENT' is set to 'NO' then regardless of how this field is set, the resident will not be allowed to verify other interpreting physicians' reports. If the user is classified as Interpreting Staff, s/he will be allowed to select another interpreting physician's name and reports if this field is set to 'YES'. %Library.EnumString 107 ALLOW_VERIFYING_OF_OTHERS FileMan Field Label: 'ALWAYS SHOW SECONDARIES' FileMan Field Number: '200.11' This field is a flag used by the menu system to control if the user is shown there secondary menu list with one '?' or two. %Library.EnumString 120 ALWAYS_SHOW_SECONDARIES FileMan Field Label: 'APPOINTMENT STATUS' FileMan Field Number: '747.11' Contains the Appointment Status for this person. %Library.EnumString 151 APPOINTMENT_STATUS FileMan Field Label: 'ARA VALUE' FileMan Field Number: '11.7' This value is used to identify the user in non interactive connections. %Library.String 50 ARA_VALUE FileMan Field Label: 'ASK DEVICE TYPE AT SIGN-ON' FileMan Field Number: '200.05' This field controls if the user/terminal should be asked for a terminal type during sign-on. If set to YES then the system will try and get the terminal type from the terminal. If this doesn't work, then user is prompted. If set to NO then the one from the users Last Sign-on field or the device subtype will be used. %Library.EnumString 114 ASK_DEVICE_TYPE_AT_SIGNON FileMan Field Label: 'ASK TERMINAL TYPE AT LM ENTRY' FileMan Field Number: '8983.12' If set to yes, the terminal type will be asked upon entry to the editor. %Library.EnumString 166 ASK_TERMINAL_TYPE_AT_LM_ENTRY FileMan Field Label: 'AUTHORIZED TO WRITE MED ORDERS' FileMan Field Number: '53.1' This field is used to determin if the provider is authorized to write orders. %Library.EnumString 84 AUTHORIZED_TO_WRITE_MED_ORDERS FileMan Field Label: 'AUTHORIZE RELEASE OF NPI' FileMan Field Number: '41.97' Answer 1 (Yes) if this disclosure of an individual practitioner's NPI is to a non-VA health care provider or its agent to support, or in anticipation of supporting, the submission of health care reimbursement claims by non-VA health care providers or their agents (ex., display of FEE Basis authorizations). Per Routine Use Amendment #18 to the Privacy Act of 1974 this disclosure can be made without requiring consent (Blanket Authority) from the practitioner. %Library.EnumString 80 AUTHORIZE_RELEASE_OF_NPI FileMan Field Label: 'AUTO MENU' FileMan Field Number: '200.06' This field controls whether the user will see menus automatically displayed (as if he had typed a "?") each time a new option is presented. %Library.EnumString 115 AUTO_MENU FileMan Field Label: 'AUTO SIGN-ON' FileMan Field Number: '200.18' This field will control if the Auto Sign-on (Single Sign-on) is enabled for use with terminal sessions. %Library.EnumString 121 AUTO_SIGNON FileMan Field Label: 'BADGE NUMBER' FileMan Field Number: '910.1' Enter the badge number assigned to the VA police officer. %Library.Numeric 157 BADGE_NUMBER FileMan Field Label: 'BRIGHT CHARS AT EXIT FROM LM' FileMan Field Number: '8983.15' If set to yes, the terminal will be left in high intensity after exiting. %Library.EnumString 169 BRIGHT_CHARS_AT_EXIT_FROM_LM FileMan Field Label: 'CAN MAKE INTO A MAIL MESSAGE' FileMan Field Number: '41.2' If set to 'YES', the document is given the status of a mail message and the user will be able to use all MailMan functions such as copying and forwarding. As a mail message, the document can no longer be manipulated with the spooler since its flag in the Spool Document File has been deleted. %Library.EnumString 79 CAN_MAKE_INTO_A_MAIL_MESSAGE FileMan Field Label: 'CITY' FileMan Field Number: '.114' This is the city of the permanent address of the new person. %Library.String 7 CITY FileMan Field Label: 'CLINICAL CORE TRAINEE' FileMan Field Number: '12.6' This field designates whether or not the person is an active Trainee. %Library.EnumString 56 CLINICAL_CORE_TRAINEE FileMan Field Label: 'COMMERCIAL PHONE' FileMan Field Number: '.135' This is a commercial phone number used by IFCAP. %Library.String 22 COMMERCIAL_PHONE FileMan Field Label: 'CREATED BY' FileMan Field Number: '202.06' This field's value is set at the time of user creation by approved REMOTE APPLICATIONs (VISITOR). It can be edited and managed by the ISSO, IT Manager, or their delegates, to indicate that the user accesses this local VistA system from a remote system. VALIP.prosthetic.fm2cw.REMOTEAPPLICATION89945 131 CREATED_BY NAME This is the NAME of the REMOTE GUI APPLICATION for which the data in this entry pertains.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {CREATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREATED_BY_NAME 1 FileMan Field Label: 'CREATOR' FileMan Field Number: '31' This is the name of the user who entered this user into the user file. It is automatically set by the ADD USER option. VALIP.prosthetic.fm2cw.NEWPERSON200 73 CREATOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {CREATOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREATOR_NAME 1 FileMan Field Label: 'CURRENT DEGREE LEVEL' FileMan Field Number: '12.1' This is the current degree level upon entry into the current training program/residency at this VA medical facility. VALIP.prosthetic.fm2cw.HL7DEGREE7719 51 CURRENT_DEGREE_LEVEL NAME The HL7 educational degree (e.g., ASSOCIATE OF ARTS)]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {CURRENT_DEGREE_LEVEL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_DEGREE_LEVEL_NAME 1 FileMan Field Label: 'DATE ACCESS CODE LAST CHANGED' FileMan Field Number: '2.2' This is the date the ACCESS CODE was last changed. It is used to see that codes are changed on a regular basis. %Library.FilemanDate 1 31 set U="^",X=$zdate(+$h),%DT="X" do ^%DT set DT=Y,D0=$piece({RowId},"||",1) S X=$P(^VA(200,D0,0),U,3) I X]"",$D(^VA(200,"A",X,D0)),^(D0) S %H=+^(D0) D YMD^%DTC set {DATE_ACCESS_CODE_LAST_CHANGED}=X 1 DATE_ACCESS_CODE_LAST_CHANGED FileMan Field Label: 'DATE ENTERED' FileMan Field Number: '30' This is the date on which the user was entered into the user file. It is automatically inserted into the file by the ADD USER option. %Library.FilemanDate 72 DATE_ENTERED FileMan Field Label: 'DATE E-SIG LAST CHANGED' FileMan Field Number: '20.1' A $H date of the last time the E-Sig code was changed. Triggered by a X-ref on the ELECTRONIC SIGNATURE CODE field. %Library.String 66 DATE_ESIG_LAST_CHANGED FileMan Field Label: 'DATE EXCLUSIONARY LIST CHECKED' FileMan Field Number: '53.94' The date Exclusionary Check was performed. %Library.FilemanDate 97 DATE_EXCLUSIONARY_LIST_CHECKED FileMan Field Label: 'DATE HL7 TRAINEE RECORD BUILT' FileMan Field Number: '12.5' This is the date that the trainee information was built and sent to the OAA server. %Library.FilemanDate 55 DATE_HL7_TRAINEE_RECORD_BUILT FileMan Field Label: 'DATE LAST ACCESSED LM WP' FileMan Field Number: '8983.16' The date and time a user last accessed the LetterMan word processor document editor. %Library.FilemanTimeStamp 170 DATE_LAST_ACCESSED_LM_WP FileMan Field Label: 'DATE NO LONGER TRAINEE' FileMan Field Number: '12.7' This is the date when a Registered Trainee is no longer to be considered an trainee. This may be at the end of a rotation period or at the end VA training experience. %Library.FilemanDate 57 DATE_NO_LONGER_TRAINEE FileMan Field Label: 'DATE VERIFY CODE LAST CHANGED' FileMan Field Number: '11.2' This field is triggered by a change in the VERIFY CODE. It is used to determine when the USER must be notified to change their code. %Library.String 48 DATE_VERIFY_CODE_LAST_CHANGED FileMan Field Label: 'DEA#' FileMan Field Number: '53.2' This field is used to enter the Drug Enforcement Agency (DEA) number. Enter the DEA number as two upper case letters followed by 7 digits. e.g., AA1234567. %Library.String 86 DEA FileMan Field Label: 'DEA EXPIRATION DATE' FileMan Field Number: '747.44' This field contains the expiration date for DEA #. %Library.FilemanDate 153 DEA_EXPIRATION_DATE FileMan Field Label: 'DEFAULT TERMINAL TYPE FOR LM' FileMan Field Number: '8983.13' This field stores the default terminal type for a user. VALIP.prosthetic.fm2cw.TERMINALTYPE32 167 DEFAULT_TERMINAL_TYPE_FOR_LM NAME Name should be in following form: C- for video terminals PK- for printers with keyboards P- for printers without keyboards M- for modems]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {DEFAULT_TERMINAL_TYPE_FOR_LM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEFAULT_TERMINAL_TYPE_FOR_LM_NAME 1 FileMan Field Label: 'DEGREE' FileMan Field Number: '10.6' This field holds any academic or professional degree that have been earned by the user. This would be things like BS, BA, MD, and PHD. The field can contain multiple degrees delimited by a single blank space up to the 10 character field length. This would be like PHD MD or BA CNA etc. No leading or trailing spaces. %Library.String 45 DEGREE FileMan Field Label: 'DELEGATE OF' FileMan Field Number: '19' This field holds the name of the person who has delegated menu manager authority to the user. The user is thus the 'delegate of' the person named here. VALIP.prosthetic.fm2cw.NEWPERSON200 63 DELEGATE_OF NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {DELEGATE_OF_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELEGATE_OF_NAME 1 FileMan Field Label: 'DELEGATION DATE' FileMan Field Number: '19.1' This field records the data that the user became a delegate. %Library.FilemanDate 64 DELEGATION_DATE FileMan Field Label: 'DELEGATION LEVEL' FileMan Field Number: '19.2' This field records the level of delegation authority with respect to the systems manager, level zero. When the systems manager delegates authority to someone else, that person will be at level one. Levels are maintained so that lower level delegates cannot interfere with the menus of higher level delegates. %Library.Numeric 65 DELEGATION_LEVEL FileMan Field Label: 'DELETE ALL MAIL ACCESS' FileMan Field Number: '9.21' This gives you the ability to purge all of a user's mail related information. This includes Mail messages, Mail Boxes, Mail Groups, Surrogate privlages when that user is terminated. This is recomended. %Library.EnumString 40 DELETE_ALL_MAIL_ACCESS FileMan Field Label: 'DELETE KEYS AT TERMINATION' FileMan Field Number: '9.22' This gives you the ability to delete all of a user's security keys, and delagated keys when the user is terminated. This is recomended. %Library.EnumString 41 DELETE_KEYS_AT_TERMINATION FileMan Field Label: 'DETOX/MAINTENANCE ID NUMBER' FileMan Field Number: '53.11' This field holds the Detoxification/Maintenance ID number used for the substance abuse providers that is "DATA-waived". (one X, one alpha, 7 numbers) %Library.String 85 DETOXMAINTENANCE_ID_NUMBER FileMan Field Label: 'DETOX CALCULATED' FileMan Field Number: '9001' %Library.String 1 174 set U="^",D0=$piece({RowId},"||",1) S X=$$DETOX^XUSER(D0) set {DETOX_CALCULATED}=X 1 DETOX_CALCULATED FileMan Field Label: 'DIGITAL PAGER' FileMan Field Number: '.138' This field holds a phone number for a DIGITAL PAGER that this person carries with them. It needs to be a format that can be understood by a sending MODEM. %Library.String 25 DIGITAL_PAGER FileMan Field Label: 'DISABILITY USER' FileMan Field Number: '508.1' This field indicates disability users. Applications for disability users need to check this field for the 508 compliance. %Library.EnumString 145 DISABILITY_USER FileMan Field Label: 'DISPLAY HELP AT ENTRY TO LM' FileMan Field Number: '8983.11' If set to yes, a help text will be displayed before entering the editor. This is used primarily for new users. %Library.EnumString 165 DISPLAY_HELP_AT_ENTRY_TO_LM FileMan Field Label: 'DISPLAY LM COMMANDS' FileMan Field Number: '8983.14' If set to yes, the list of commands will be displayed at the bottom of the screen when entering the command mode. %Library.EnumString 168 DISPLAY_LM_COMMANDS FileMan Field Label: 'DISUSER' FileMan Field Number: '7' This field, if set to YES (1), marks a user that is not allowed to log on to this system. It will leave all Menus, Keys and other attributes enabled for the user. An example would be an external support person that you only want to be able to log on to your system when you are monitoring them. Setting this field would prevent them from logging on to the system until you cleared the field. %Library.EnumString 35 DISUSER FileMan Field Label: 'DOB' FileMan Field Number: '5' This is the date of birth of the new person. %Library.FilemanDate 34 DOB FileMan Field Label: 'ELECTRONIC SIGNATURE CODE' FileMan Field Number: '20.4' This field contains the encrypted code which the user types when signing documents electronically. The user's input will be compared to this field when validating his electronic signature. All electronic signature codes should be treated as confidential. %Library.String 69 ELECTRONIC_SIGNATURE_CODE FileMan Field Label: 'EMAIL ADDRESS' FileMan Field Number: '.151' This field contains the e-mail address to which an outside person or vendor can send correspondence. (i.e. firstname.lastname@med.domain or lastname.firstname@aadomain.ext or lastname.firstname_i+@aadomain.ext as in smith.robert_b+@aadomain.ext for Robert B. Smith on Forum). (* Note: period replaces comma in lastname.firstname syntax, underscore replaces space, and plus sign replaces period following middle initial for VISTA MailMan addresses.) This address may appear on documents going to vendors. %Library.String 27 EMAIL_ADDRESS FileMan Field Label: 'END DATE OF TEMP ADDRESS' FileMan Field Number: '.1218' This is the ending date for use of the temporary address for the new person. %Library.FilemanDate 17 END_DATE_OF_TEMP_ADDRESS FileMan Field Label: 'Entry Last Edit Date' FileMan Field Number: '202.04' This field holds the date time this entry in the file was last edited. The following fields now trigger the current date to the ENTRY LAST EDIT DATE field: DISUSER (#7), ACCESS CODE (#2), and TERMINATION DATE (#9.2). %Library.FilemanTimeStamp 129 ENTRY_LAST_EDIT_DATE FileMan Field Label: 'Enumeration Completed' FileMan Field Number: '901' This field notes the date/time the VPID assignment was completed. %Library.FilemanTimeStamp 155 ENUMERATION_COMPLETED FileMan Field Label: 'Enumeration Initiated' FileMan Field Number: '900' This field notes the date/time the VPID enumeration attempt was initiated. %Library.FilemanTimeStamp 154 ENUMERATION_INITIATED FileMan Field Label: 'EXCLUSIONARY CHECKED BY' FileMan Field Number: '53.96' User ID of the person who made the entry. VALIP.prosthetic.fm2cw.NEWPERSON200 99 EXCLUSIONARY_CHECKED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {EXCLUSIONARY_CHECKED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EXCLUSIONARY_CHECKED_BY_NAME 1 FileMan Field Label: 'EXCLUSIONARY CHECK PERFORMED' FileMan Field Number: '53.93' Department of Health and Human Services provides an exclusionary list of Medical Practitioners (providers excluded are those who are not allowed to receive payment for government services due to various reasons). When adding NON-VA Physicians, they must be checked against this list. A value of 1 indicates that an Exclusionary Check was performed for this physician. %Library.EnumString 96 EXCLUSIONARY_CHECK_PERFORMED FileMan Field Label: 'FAX NUMBER' FileMan Field Number: '.136' This field holds a phone number for a FAX machine for this user. It needs to be a format that can be understood by a sending MODEM. %Library.String 23 FAX_NUMBER FileMan Field Label: 'FILE MANAGER ACCESS CODE' FileMan Field Number: '3' DUZ(0) This is the string that is put in DUZ(0) for use by fileman to check file and field access. %Library.String 32 FILE_MANAGER_ACCESS_CODE FileMan Field Label: 'FILE RANGE' FileMan Field Number: '31.1' This field limits a user to a specific range of file numbers. When creating new files, only a number within this range can be assigned to the new file. %Library.String 74 FILE_RANGE FileMan Field Label: 'FYear' FileMan Field Number: '8932.3' This field is the Fellowship year of a person. %Library.Numeric 162 FYEAR FileMan Field Label: 'FY assigned' FileMan Field Number: '8932.31' This field holds the Date that the FYear field was edited. %Library.FilemanDate 163 FY_ASSIGNED FileMan Field Label: 'HINQ EMPLOYEE NUMBER' FileMan Field Number: '14.9' The employee number associated with HINQ passwords from the DVB should be entered here. %Library.String 61 HINQ_EMPLOYEE_NUMBER Internal Entry Number %Library.String $$next^%apiSQL("$p(^VA(200,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IMMEDIATE SUPERVISOR' FileMan Field Number: '654.1' This field is used to indicate the immediate supervisor of the social worker. VALIP.prosthetic.fm2cw.NEWPERSON200 147 IMMEDIATE_SUPERVISOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {IMMEDIATE_SUPERVISOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMMEDIATE_SUPERVISOR_NAME 1 FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '53.4' This field is used to show the inactive date of a provider whereas they can no longer write orders. %Library.FilemanDate 88 INACTIVE_DATE FileMan Field Label: 'INITIAL' FileMan Field Number: '1' These are the initials of the user, which may be entered for naming users. %Library.String 28 INITIAL FileMan Field Label: 'KEYSTROKES FROM LM WP' FileMan Field Number: '8983.18' This field stores the total number of keystrokes a user has typed from the word processor document editor. %Library.Numeric 172 KEYSTROKES_FROM_LM_WP FileMan Field Label: 'KEY DELEGATION LEVEL' FileMan Field Number: '50.1' This a simple, numeric value which prevents removing delegated keys from someone with a lower level number. %Library.Numeric 83 KEY_DELEGATION_LEVEL FileMan Field Label: 'LANGUAGE' FileMan Field Number: '200.07' The value in this field replaces the Default Language field in the Kernel Site Parameters file. It points to the Language file for the VA FileMan Dialog file. VALIP.prosthetic.fm2cw.LANGUAGE85 116 LANGUAGE200_07 NAME Language-Name Enter the English name of the language, not the native name. The default is the English name from ISO 639, converted where necessary to ASCII. Where the ISO 639 standards disagree (cf. "Central Khmer" in ISO 639-1 to "Khmer" in ISO 639-3), the most recent standard's spelling is used. However, this use of ISO 639's spelling as a default is overridden in several different ways to improve consistency across entries and to reduce selection error.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {LANGUAGE200_07_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LANGUAGE200_07_NAME 1 FileMan Field Label: 'LAST OPTION ACCESSED' FileMan Field Number: '202.1' This field holds the last option accessed by the user, when the user selects the CONTINUE option instead of HALTing. When the user logs on again, he will be able to continue directly at that option. VALIP.prosthetic.fm2cw.OPTION19 132 LAST_OPTION_ACCESSED NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {LAST_OPTION_ACCESSED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAST_OPTION_ACCESSED_NAME 1 FileMan Field Label: 'LAST OPTION MAIN MENU' FileMan Field Number: '202.2' This field holds an indicator of which primary or secondary menu a user was in, after selecting the CONTINUE option. It is used in con- junction with the LAST OPTION ACCESSED to resume when a user logs back on. %Library.String 133 LAST_OPTION_MAIN_MENU FileMan Field Label: 'LAST SIGN-ON DATE/TIME' FileMan Field Number: '202' This field is set when a user signs on to the system. %Library.FilemanTimeStamp 126 LAST_SIGNON_DATETIME %Library.String 53 LAST_TRAINING_MONTH__YEAR FileMan Field Label: 'LOCKOUT USER UNTIL' FileMan Field Number: '202.05' This field is used by the signon code to lockout users that have tried bad VERIFY codes too many times. This field holds the date/time that the user should be locked out of the system until. It is set with the current time plus the lockout time. %Library.FilemanTimeStamp 130 LOCKOUT_USER_UNTIL FileMan Field Label: 'MAIL CODE' FileMan Field Number: '28' VA HOSPITAL SERVICE NUMBER, I.E. 116A FOR PSYCHIATRY, 116B FOR PSYCHOLOGY, ETC This is the mail code for the new person. %Library.String 70 MAIL_CODE FileMan Field Label: 'MULTI-DEVICE DESPOOLING' FileMan Field Number: '41.1' If set to 'YES', the user will be able to print (despool) a spooled document to more than one device simultaneously. %Library.EnumString 78 MULTIDEVICE_DESPOOLING FileMan Field Label: 'MULTIPLE SIGN-ON' FileMan Field Number: '200.04' This field, if filled in, overrides the SITE and DEVICE Files as to whether this user can sign-on to multiple terminals at the same time, or is limited to one workstation (IP), only one connection. If you select "Only one IP" be sure to put a value into the "MULTIPLE SIGN-ON LIMIT" field so users can sign-on at least once. Values are: 0 = Only one connection. 1 = Multiple connections from multiple IP's. 2 = Only one IP address. %Library.EnumString 113 MULTIPLE_SIGNON FileMan Field Label: 'MULTIPLE SIGN-ON LIMIT' FileMan Field Number: '200.19' Multiple Sign-on Limit This field, if filled in, overrides the SITE file. This field sets an upper limit on the number of concurrent sessions that this user can have from one IP address when the Multiple Sign-on field (#204) is set to "One IP" %Library.Numeric 122 MULTIPLE_SIGNON_LIMIT FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 1 3 NAME FileMan Field Label: 'NAME COMPONENTS' FileMan Field Number: '10.1' Answer with the entry in the NAME COMPONENTS file that contains the components of the person's name. VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 44 NAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {NAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_COMPONENTS_FILE 1 FileMan Field Label: 'NETWORK USERNAME' FileMan Field Number: '501.1' Network Username This is the username that is used by the Windows Active Directory. It should be 'VHA' + 3 char station ID + first 5 of last name + first character of first name. Holders of the XUMGR key can override this. %Library.String 143 NETWORK_USERNAME FileMan Field Label: 'NICK NAME' FileMan Field Number: '13' This is a string that is used in the sign-on greeting and for mailman user lookup. %Library.String 59 NICK_NAME FileMan Field Label: 'NON-VA PRESCRIBER' FileMan Field Number: '53.91' The Transitional Pharmacy Care Project (TPB) introduces fields 53.91 - 53.96, to allow a NON-VA Physician to be added to the New Person file (#200), so that Outpatient Pharmacy could process medication prescribed by such physicians. A value of 1 indicates that this person is a NON-VA Physician. %Library.EnumString 94 NONVA_PRESCRIBER FileMan Field Label: 'NPI' FileMan Field Number: '41.99' Each VHA Billable Practitioner should have applied for the NPI through CMS' National Plan and Provider Enumeration System (NPPES). NPI Confirmation Letters are sent by CMS and indicate the NPI assigned. Practitioners may present their NPI Confirmation Letter as a source document to verify the accuracy of the NPI or you may contact your Local NPI Maintenance Team Leader for assistance. %Library.String 82 NPI FileMan Field Label: 'NPI ENTRY STATUS' FileMan Field Number: '41.98' This field is used in tracking the entry status of NPI d ata for those providers who require an NPI. The providers needing this value are identified based on data entered in the PERSON CLASS subfile which indicates providers that may be related to billing activities. The value is initially set to N or NEEDS ENTRY. It can be changed to E or EXEMPT for individuals who have been identified, but who due to administrative activities, etc., will not be involved in activities requiring billing. When the NPI value is entered, the value is changed to D or DONE. %Library.EnumString 81 NPI_ENTRY_STATUS FileMan Field Label: 'OFFICE PHONE' FileMan Field Number: '.132' This is the business/office telephone for the new person. %Library.String 19 OFFICE_PHONE FileMan Field Label: 'ON EXCLUSIONARY LIST' FileMan Field Number: '53.95' Was the NON-VA Physician on the Exclusionary Check List? A value of 1 indicates that the Physician was on the Exclusionary Check. %Library.EnumString 98 ON_EXCLUSIONARY_LIST FileMan Field Label: 'PAC' FileMan Field Number: '14' This is a code to be checked before a user is allowed to get into programmer mode. %Library.String 60 PAC FileMan Field Label: 'PAID EMPLOYEE' FileMan Field Number: '450' This field is a pointer to the PAID EMPLOYEE (#450) file. VALIP.prosthetic.fm2cw.PAIDEMPLOYEE450 142 PAID_EMPLOYEE EMPLOYEE NAME An employee name has the following order and meaning: LAST NAME, followed by a comma; FIRST NAME or INITIAL; a blank space; MIDDLE NAME or INITIAL; and if applicable, a blank space, JR, SR or INITIAL. For example, DOE,JOHN T JR. No periods are placed after either initials or titles.]]> %Library.String 1 EMPLOYEE_NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PAID_EMPLOYEE_EMPLOYEE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PAID_EMPLOYEE_EMPLOYEE_NAME 1 FileMan Field Label: 'PATIENT SELECTION LIST' FileMan Field Number: '101.02' If a value is entered into this field, the user is allowed to select only those patients associated with this OE/RR LIST. VALIP.prosthetic.fm2cw.OERRLIST10021 110 PATIENT_SELECTION_LIST NAME This is the name of the list being defined.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PATIENT_SELECTION_LIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_SELECTION_LIST_NAME 1 FileMan Field Label: 'PERSON FILE POINTER' FileMan Field Number: '8980.16' This field holds a pointer to the person file so there will be a way to provide a cross reference to help convert 'person file' pointers into 'new person file' pointer after the person file is removed. %Library.String 164 PERSON_FILE_POINTER FileMan Field Label: 'PGYear' FileMan Field Number: '8932.2' This field holds what Post Graduate year a person is. %Library.Numeric 160 PGYEAR FileMan Field Label: 'PGY assigned' FileMan Field Number: '8932.21' This field holds the date that the PGYear field was last edited. %Library.FilemanDate 161 PGY_ASSIGNED FileMan Field Label: 'PHONE #3' FileMan Field Number: '.133' This is an alternate telephone number where the new person might also be reached. %Library.String 20 PHONE_3 FileMan Field Label: 'PHONE #4' FileMan Field Number: '.134' This is another alternate telephone number where the new person might also be reached. %Library.String 21 PHONE_4 FileMan Field Label: 'PHONE (HOME)' FileMan Field Number: '.131' This is the telephone number for the new person. %Library.String 18 PHONE_HOME FileMan Field Label: 'POSITION/TITLE' FileMan Field Number: '654.15' This field will be used to indicate the position/title of the social worker. %Library.EnumString 148 POSITIONTITLE FileMan Field Label: 'PREFERRED EDITOR' FileMan Field Number: '31.3' If an entry exists in this field, then whenever a user edits data in a FileMan word-processing field, they will automatically be transferred into their preferred editor. If this field is blank, then the default editor will be either the FileMan screen editor when editing within ScreenMan format, or the standard FileMan line editor in all other cases. VALIP.prosthetic.fm2cw.ALTERNATEEDITOR12 76 PREFERRED_EDITOR NAME This is the name of the alternate editor. It must start with a unique character.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PREFERRED_EDITOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREFERRED_EDITOR_NAME 1 FileMan Field Label: 'PRIMARY MENU OPTION' FileMan Field Number: '201' This is the menu option that this user will be dropped into if none of the following are set: (in the order checked) Tied routine, Device primary menu. VALIP.prosthetic.fm2cw.OPTION19 123 PRIMARY_MENU_OPTION NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PRIMARY_MENU_OPTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_MENU_OPTION_NAME 1 FileMan Field Label: 'PRIMARY WINDOW' FileMan Field Number: '201.1' This is the lead or first window launched at startup. VALIP.prosthetic.fm2cw.OPTION19 124 PRIMARY_WINDOW NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PRIMARY_WINDOW_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_WINDOW_NAME 1 FileMan Field Label: 'PROBLEM LIST PRIMARY VIEW' FileMan Field Number: '125' This string contains the user's preferred view of the problem list. Problems are assigned a category based upon the service of the provider who entered and/or is treating the problem; a screen may then be invoked allowing a filtered view of the problem list. %Library.String 111 PROBLEM_LIST_PRIMARY_VIEW FileMan Field Label: 'PROBLEM SELECTION LIST' FileMan Field Number: '125.1' This is the user's preferred default list of problems to select from when adding to a patient's problem list. If there is a list specified here from the Problem Selection List File (#125), it will be automatically presented to the user when the "Add New Problem(s)" action is selected; otherwise, the user will simply be prompted to select a problem from the Clinical Lexicon Utility. VALIP.prosthetic.fm2cw.PROBLEMSELECTIONLIST125 112 PROBLEM_SELECTION_LIST NAME This is a free text name for the list; it must be unique. National lists are prefixed with a "VA-".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PROBLEM_SELECTION_LIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROBLEM_SELECTION_LIST_NAME 1 FileMan Field Label: 'PROGRAM OF STUDY' FileMan Field Number: '12.2' This is the discipline that best describes the trainee's current program of study at this VA medical facility. VALIP.prosthetic.fm2cw.PROGRAMOFSTUDY89322 52 PROGRAM_OF_STUDY NAME This is the name of the program of study.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PROGRAM_OF_STUDY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROGRAM_OF_STUDY_NAME 1 FileMan Field Label: 'PROHIBITED TIMES FOR SIGN-ON' FileMan Field Number: '15' This is a pair of times within which the user will not be allowed access to the computer. They should be entered in Military format, for example 0900-1300 would prohibit signons from 9AM to 1PM each day. %Library.String 62 PROHIBITED_TIMES_FOR_SIGNON FileMan Field Label: 'PROVIDER CLASS' FileMan Field Number: '53.5' This field is used to show the providers class. VALIP.prosthetic.fm2cw.PROVIDERCLASS7 89 PROVIDER_CLASS NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {PROVIDER_CLASS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROVIDER_CLASS_NAME 1 FileMan Field Label: 'PROVIDER KEY' FileMan Field Number: '8932.001' This Computed field gets a 1 if the user holds the provider key. It is expected that the field will be removed or changed after the Person class field conversion is completed. %Library.String 1 159 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S X=($D(^XUSEC("PROVIDER",D0))[1) set {PROVIDER_KEY}=X 1 PROVIDER_KEY FileMan Field Label: 'PROVIDER TYPE' FileMan Field Number: '53.6' This field is used to show the type of provider (staff, fee, etc.) %Library.EnumString 90 PROVIDER_TYPE FileMan Field Label: 'RAD/NUC MED INACTIVE DATE' FileMan Field Number: '73' This field contains the date that this person was inactivated as a Rad/Nuc Med user. %Library.FilemanDate 108 RADNUC_MED_INACTIVE_DATE FileMan Field Label: 'RANK' FileMan Field Number: '910.2' Enter the VA police officer's assigned rank designation, i.e., CHIEF, LIEUTENANT, PATROL OFFICER, etc. %Library.String 158 RANK FileMan Field Label: 'REMARKS' FileMan Field Number: '53.9' REMARKS This field is used to enter remarks and or comments about the provider. %Library.String 93 REMARKS FileMan Field Label: 'RENEW DATE' FileMan Field Number: '747.113' Contains the Renewal Date for our General Privilege. %Library.FilemanDate 152 RENEW_DATE FileMan Field Label: 'REQUIRES COSIGNER' FileMan Field Number: '53.7' This field is used to determine if the provider needs a cosigner. %Library.EnumString 91 REQUIRES_COSIGNER FileMan Field Label: 'Requires Transmission' FileMan Field Number: '902' This field is used to note that this record was just added to this file, or that an edit was made to the fields that MPI cares about capturing and a VPID needs to be assigned or an update message needs to be sent. Fields being monitored for change are: .01 NAME .111 STREET ADDRESS 1 .112 STREET ADDRESS 2 .113 STREET ADDRESS 3 .114 CITY .115 STATE .116 ZIP CODE .131 PHONE (HOME) 4 SEX 5 DOB 9 SSN 41.99 NPI 53.2 DEA# 200.06,.01 VISITED FROM 200.06,2 DUZ AT HOME SITE %Library.EnumString 156 REQUIRES_TRANSMISSION FileMan Field Label: 'RESERVED' FileMan Field Number: '200.08' Place holder, see file 3.5 #51.8 %Library.String 117 RESERVED FileMan Field Label: 'RESTRICT PATIENT SELECTION' FileMan Field Number: '101.01' Answer 'YES' to restrict this user to selecting only those patients associated with the list pointed to by the PATIENT SELECTION LIST field (#101.02). %Library.EnumString 109 RESTRICT_PATIENT_SELECTION FileMan Field Label: 'ROOM' FileMan Field Number: '.141' This is the room number assigned to the new person. %Library.String 26 ROOM FileMan Field Label: 'SCHEDULE III NARCOTIC' FileMan Field Number: '55.3' This field is used to determine if the provider has privileges for Schedule III narcotic. %Library.EnumString 102 SCHEDULE_III_NARCOTIC FileMan Field Label: 'SCHEDULE III NON-NARCOTIC' FileMan Field Number: '55.4' This field is used to determine if the provider has privileges for Schedule III non-narcotic. %Library.EnumString 103 SCHEDULE_III_NONNARCOTIC FileMan Field Label: 'SCHEDULE II NARCOTIC' FileMan Field Number: '55.1' This field is used to determine if the provider has privileges for Schedule II narcotic. %Library.EnumString 100 SCHEDULE_II_NARCOTIC FileMan Field Label: 'SCHEDULE II NON-NARCOTIC' FileMan Field Number: '55.2' This field is used to determine if the provider has privileges for Schedule II non-narcotic. %Library.EnumString 101 SCHEDULE_II_NONNARCOTIC FileMan Field Label: 'SCHEDULE IV' FileMan Field Number: '55.5' This field is used to determine if the provider has privileges for Schedule IV controlled substances. %Library.EnumString 104 SCHEDULE_IV FileMan Field Label: 'SCHEDULE V' FileMan Field Number: '55.6' This field is used to determine if the provider has privileges for Schedule V controlled substances. %Library.EnumString 105 SCHEDULE_V FileMan Field Label: 'SECID' FileMan Field Number: '205.1' SecID Identity and Access Management SECID field used to uniquely identify a VistA user by Security ID. *** This field should never be edited directly - do not remove WRITE ACCESS! %Library.String 135 SECID FileMan Field Label: 'SECURITY TRAINING LAST' FileMan Field Number: '442.1' %Library.FilemanDate 141 SECURITY_TRAINING_LAST FileMan Field Label: 'SERVICE/SECTION' FileMan Field Number: '29' This is the name of the service or section for the new person. VALIP.prosthetic.fm2cw.SERVICESECTION49 71 SERVICESECTION NAME Enter Service or Section name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {SERVICESECTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICESECTION_NAME 1 FileMan Field Label: 'SEX' FileMan Field Number: '4' This is the gender for the new person. %Library.EnumString 33 SEX FileMan Field Label: 'SIGNATURE BLOCK PRINTED NAME' FileMan Field Number: '20.2' The name entered must contain the surname of the user. The name must be 2 to 40 characters in length. This field can then contain the name of the user as they wish it to be displayed with the notation that they signed the document electronically. For example: John R. Doe, M.D. or Fred A. Sample, RN. %Library.String 67 SIGNATURE_BLOCK_PRINTED_NAME FileMan Field Label: 'SIGNATURE BLOCK TITLE' FileMan Field Number: '20.3' This field should contain the title of the person who is electronically signing a document. Examples of titles are Chief of Surgery, Dietician, Clinical Pharmacist, etc. This title will print next to the name of the person who signs the document. The person's name will be taken from the SIGNATURE BLOCK PRINTED NAME field. The title must be 2 to 50 characters in length. %Library.String 68 SIGNATURE_BLOCK_TITLE FileMan Field Label: 'SOCIAL WORKER'S NUMBER' FileMan Field Number: '654.2' Unique number assigned to social worker by service. Enter a number 01-999. %Library.Numeric 149 SOCIAL_WORKERS_NUMBER FileMan Field Label: 'SOCIAL WORKER ?' FileMan Field Number: '654' This field will be used to indicate if the user is a Social Worker. It will also act as a screen for lookups. %Library.EnumString 146 SOCIAL_WORKER_ FileMan Field Label: 'SSN' FileMan Field Number: '9' This is the social security number of the new person. %Library.String 38 SSN FileMan Field Label: 'STAFF REVIEW REQUIRED' FileMan Field Number: '70' This field applies to 'Interpreting Resident' personnel. If it contains a 'yes', an interpreting staff is required to review this resident's report results. %Library.EnumString 106 STAFF_REVIEW_REQUIRED FileMan Field Label: 'STARTUP DEFAULT' FileMan Field Number: '201.2' This field determines if the Primary Menu or the Primary Window is loaded at logon. %Library.EnumString 125 STARTUP_DEFAULT FileMan Field Label: 'START DATE OF TEMP ADDRES' FileMan Field Number: '.1217' This is the beginning date for use of the temporary address for the new person. %Library.FilemanDate 16 START_DATE_OF_TEMP_ADDRES FileMan Field Label: 'START OF TRAINING' FileMan Field Number: '12.8' %Library.FilemanDate 58 START_OF_TRAINING FileMan Field Label: 'STATE' FileMan Field Number: '.115' This is the state of the permanent address of the new person. VALIP.prosthetic.fm2cw.STATE5 8 STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_NAME 1 FileMan Field Label: 'STREET ADDRESS 1' FileMan Field Number: '.111' This is the first line of the street address of the permanent address of the new person. %Library.String 4 STREET_ADDRESS_1 FileMan Field Label: 'STREET ADDRESS 2' FileMan Field Number: '.112' This is the second line of the street address of the permanent address of the new person. %Library.String 5 STREET_ADDRESS_2 FileMan Field Label: 'STREET ADDRESS 3' FileMan Field Number: '.113' This is the third line of the street address of the permanent address of the new person. %Library.String 6 STREET_ADDRESS_3 FileMan Field Label: 'SUBJECT ALTERNATIVE NAME' FileMan Field Number: '501.2' This is a name from the PIV card field SUBJECT ALTERNATIVE NAME also known as USER PRINCIPLE NAME. The subject alternative name extension allows identities to be bound to the subject of the certificate. These identities may be included in addition to or in place of the identity in the subject field of the certificate. Subject alternative name is defined by an Internet electronic mail address. When the subjectAltName extension contains an Internet mail address, the address MUST be stored in the rfc822Name. %Library.String 144 SUBJECT_ALTERNATIVE_NAME FileMan Field Label: 'SUBJECT ORGANIZATION' FileMan Field Number: '205.2' Subject Organization Identity and Access Management SUBJECT ORGANIZATION field used to identify the Organization of an externally authenticated user (Subject). Examples: "Department of Veterans Affairs" or "Department of Defense" *** This field should never be edited directly - do not remove WRITE ACCESS! %Library.String 136 SUBJECT_ORGANIZATION FileMan Field Label: 'SUBJECT ORGANIZATION ID' FileMan Field Number: '205.3' Subject Organization ID Identity and Access Management SUBJECT ORGANIZATION ID field used to uniquely identify the Organization that is providing the identification for an externally authenticated user (Subject). The organization ID may be an Object Identifier (OID), using the urn format (that is, "urn:oid:" appended with the OID); or it may be a URL assigned to that organization. For SSOi this will be hard-coded to Department of Veterans Affairs official Home Community ID. NHIN standards specify that the web address of the Subject Organization is typically stored in this field (example: http://familymedicalclinic.org). *** This field should never be edited directly - do not remove WRITE ACCESS! %Library.String 137 SUBJECT_ORGANIZATION_ID Relationship for Sub-File/Multiple to file name ACCESSIBLE FILE child VALIP.prosthetic.fm2cw.SUBACCESSIBLEFILE200032 children NEWPERSON200 1 SUB_ACCESSIBLE_FILE_200_032 Relationship for Sub-File/Multiple to file name ALERT DATE/TIME child VALIP.prosthetic.fm2cw.SUBALERTDATETIME200194 children NEWPERSON200 1 SUB_ALERT_DATETIME_200_194 Relationship for Sub-File/Multiple to file name ALIAS child VALIP.prosthetic.fm2cw.SUBALIAS20004 children NEWPERSON200 1 SUB_ALIAS_200_04 Relationship for Sub-File/Multiple to file name ALLOWABLE NEW MENU PREFIX child VALIP.prosthetic.fm2cw.SUBALLOWABLENEWMENUPREFIX200196 children NEWPERSON200 1 SUB_ALLOWABLE_NEW_MENU_PREFIX_200_196 Relationship for Sub-File/Multiple to file name CPRS TAB child VALIP.prosthetic.fm2cw.SUBCPRSTAB200010113 children NEWPERSON200 1 SUB_CPRS_TAB_200_010113 Relationship for Sub-File/Multiple to file name DEFINED FORMATS FOR LM child VALIP.prosthetic.fm2cw.SUBDEFINEDFORMATSFORLM2000089832 children NEWPERSON200 1 SUB_DEFINED_FORMATS_FOR_LM_200_0089832 Relationship for Sub-File/Multiple to file name DEFINED PHRASES FOR LM child VALIP.prosthetic.fm2cw.SUBDEFINEDPHRASESFORLM2000089833 children NEWPERSON200 1 SUB_DEFINED_PHRASES_FOR_LM_200_0089833 Relationship for Sub-File/Multiple to file name DELEGATED KEYS child VALIP.prosthetic.fm2cw.SUBDELEGATEDKEYS200052 children NEWPERSON200 1 SUB_DELEGATED_KEYS_200_052 Relationship for Sub-File/Multiple to file name DELEGATED OPTIONS child VALIP.prosthetic.fm2cw.SUBDELEGATEDOPTIONS20019 children NEWPERSON200 1 SUB_DELEGATED_OPTIONS_200_19 Relationship for Sub-File/Multiple to file name DIVISION child VALIP.prosthetic.fm2cw.SUBDIVISION20002 children NEWPERSON200 1 SUB_DIVISION_200_02 Relationship for Sub-File/Multiple to file name DMMS UNITS child VALIP.prosthetic.fm2cw.SUBDMMSUNITS20072 children NEWPERSON200 1 SUB_DMMS_UNITS_200_72 Relationship for Sub-File/Multiple to file name EFFECTIVE DATE/TIME child VALIP.prosthetic.fm2cw.SUBEFFECTIVEDATETIME200042 children NEWPERSON200 1 SUB_EFFECTIVE_DATETIME_200_042 Relationship for Sub-File/Multiple to file name KEYS child VALIP.prosthetic.fm2cw.SUBKEYS200051 children NEWPERSON200 1 SUB_KEYS_200_051 Relationship for Sub-File/Multiple to file name LICENSING STATE child VALIP.prosthetic.fm2cw.SUBLICENSINGSTATE200541 children NEWPERSON200 1 SUB_LICENSING_STATE_200_541 Relationship for Sub-File/Multiple to file name LM LIMIT WP FIELDS TO EDIT child VALIP.prosthetic.fm2cw.SUBLMLIMITWPFIELDSTOEDIT2000089834 children NEWPERSON200 1 SUB_LM_LIMIT_WP_FIELDS_TO_EDIT_200_0089834 Relationship for Sub-File/Multiple to file name MENU TEMPLATE child VALIP.prosthetic.fm2cw.SUBMENUTEMPLATE200198 children NEWPERSON200 1 SUB_MENU_TEMPLATE_200_198 Relationship for Sub-File/Multiple to file name NETWORK ADDRESS child VALIP.prosthetic.fm2cw.SUBNETWORKADDRESS200005 children NEWPERSON200 1 SUB_NETWORK_ADDRESS_200_005 Relationship for Sub-File/Multiple to file name NEW DEA #'S child VALIP.prosthetic.fm2cw.SUBNEWDEAS2005321 children NEWPERSON200 1 SUB_NEW_DEA_S_200_5321 Relationship for Sub-File/Multiple to file name PERSONAL DIAGNOSES LIST child VALIP.prosthetic.fm2cw.SUBPERSONALDIAGNOSESLIST2000351 children NEWPERSON200 1 SUB_PERSONAL_DIAGNOSES_LIST_200_0351 Relationship for Sub-File/Multiple to file name PERSON CLASS child VALIP.prosthetic.fm2cw.SUBPERSONCLASS20005 children NEWPERSON200 1 SUB_PERSON_CLASS_200_05 Relationship for Sub-File/Multiple to file name RAD/NUC MED CLASSIFICATION child VALIP.prosthetic.fm2cw.SUBRADNUCMEDCLASSIFICATION200072 children NEWPERSON200 1 SUB_RADNUC_MED_CLASSIFICATION_200_072 Relationship for Sub-File/Multiple to file name RAD/NUC MED LOCATION ACCESS child VALIP.prosthetic.fm2cw.SUBRADNUCMEDLOCATIONACCESS200074 children NEWPERSON200 1 SUB_RADNUC_MED_LOCATION_ACCESS_200_074 Relationship for Sub-File/Multiple to file name SECONDARY MENU OPTIONS child VALIP.prosthetic.fm2cw.SUBSECONDARYMENUOPTIONS20003 children NEWPERSON200 1 SUB_SECONDARY_MENU_OPTIONS_200_03 Relationship for Sub-File/Multiple to file name SPELLING EXCEPTION DICTIONARY child VALIP.prosthetic.fm2cw.SUBSPELLINGEXCEPTIONDICTIONARY2000089831 children NEWPERSON200 1 SUB_SPELLING_EXCEPTION_DICTIONARY_200_0089831 Relationship for Sub-File/Multiple to file name STATE ISSUING DEA NUMBER child VALIP.prosthetic.fm2cw.SUBSTATEISSUINGDEANUMBER20055 children NEWPERSON200 1 SUB_STATE_ISSUING_DEA_NUMBER_200_55 Relationship for Sub-File/Multiple to file name UCI child VALIP.prosthetic.fm2cw.SUBUCI20001 children NEWPERSON200 1 SUB_UCI_200_01 Relationship for Sub-File/Multiple to file name USER CLASS child VALIP.prosthetic.fm2cw.SUBUSERCLASS20007 children NEWPERSON200 1 SUB_USER_CLASS_200_07 Relationship for Sub-File/Multiple to file name VISITED FROM child VALIP.prosthetic.fm2cw.SUBVISITEDFROM20006 children NEWPERSON200 1 SUB_VISITED_FROM_200_06 FileMan Field Label: 'SUPPLY EMPLOYEE' FileMan Field Number: '400' %Library.EnumString 140 SUPPLY_EMPLOYEE FileMan Field Label: 'SURROGATE' FileMan Field Number: '654.3' This field will be used to indicate a surrogate supervisor. When this field has data, the surrogate supervisor will have access to data pertaining to worker information for the surrogated supervisor. VALIP.prosthetic.fm2cw.NEWPERSON200 150 SURROGATE NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {SURROGATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURROGATE_NAME 1 FileMan Field Label: 'TAX ID' FileMan Field Number: '53.92' TAX ID of the NON-VA Physician's Private Clinic, where the prescription was written. %Library.String 95 TAX_ID FileMan Field Label: 'TEMPORARY ADDRESS 1' FileMan Field Number: '.1211' This is the first line of a temporary address for the new person. %Library.String 10 TEMPORARY_ADDRESS_1 FileMan Field Label: 'TEMPORARY ADDRESS 2' FileMan Field Number: '.1212' This is the second line of a temporary address for the new person. %Library.String 11 TEMPORARY_ADDRESS_2 FileMan Field Label: 'TEMPORARY ADDRESS 3' FileMan Field Number: '.1213' This is the third line of a temporary address for the new person. %Library.String 12 TEMPORARY_ADDRESS_3 FileMan Field Label: 'TEMPORARY CITY' FileMan Field Number: '.1214' This is the city of the temporary location for the new person. %Library.String 13 TEMPORARY_CITY FileMan Field Label: 'TEMPORARY STATE' FileMan Field Number: '.1215' This is the state of the temporary location for the new person. VALIP.prosthetic.fm2cw.STATE5 14 TEMPORARY_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {TEMPORARY_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TEMPORARY_STATE_NAME 1 FileMan Field Label: 'TEMPORARY ZIP CODE' FileMan Field Number: '.1216' This is the postal ZIP code for the temporary location for the new person. %Library.String 15 TEMPORARY_ZIP_CODE FileMan Field Label: 'TERMINAL TYPE LAST USED' FileMan Field Number: '9.3' This field holds a pointer to the last terminal type the user selected at sign-on or in edit user char. VALIP.prosthetic.fm2cw.TERMINALTYPE32 42 TERMINAL_TYPE_LAST_USED NAME Name should be in following form: C- for video terminals PK- for printers with keyboards P- for printers without keyboards M- for modems]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {TERMINAL_TYPE_LAST_USED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TERMINAL_TYPE_LAST_USED_NAME 1 FileMan Field Label: 'TERMINATION DATE' FileMan Field Number: '9.2' This is the date after which the computer will no longer recognize this user's ACCESS CODE. Once this date has passed, when the USER TERMINATE job runs it will clean out this users data based on flags in the NEW PERSON file. %Library.FilemanDate 39 TERMINATION_DATE FileMan Field Label: 'Termination Reason' FileMan Field Number: '9.4' This field holds a short description of why the user has been terminated or has DISUSER flag set. %Library.String 43 TERMINATION_REASON FileMan Field Label: 'TEXT TERMINATOR' FileMan Field Number: '31.2' If specified, the character string in this field will be used instead of a carriage return to mark the end of word-processing text. It will be used in all VA FileMan word-processing contexts, e.g. in mail messages. It can facilitate the uploading of files from a PC environment. Note that the VA FileMan edit menu provides an option for temporarily specifying a text terminator for that edit session only. %Library.String 75 TEXT_TERMINATOR FileMan Field Label: 'TIMED READ (# OF SECONDS)' FileMan Field Number: '200.1' This field, if filled in, overrides the SITE and DEVICE files as to the time this user has to respond to a timed read. Stored in DTIME. %Library.Numeric 119 TIMED_READ__OF_SECONDS FileMan Field Label: 'TIMESTAMP' FileMan Field Number: '203.1' This is the time at which this option was last modified. It is triggered automatically by the appropriate fields. If a CPU references an option which has been modified since it was last rebuilt, it triggers a rebuilding of the options. %Library.String 134 TIMESTAMP FileMan Field Label: 'TITLE' FileMan Field Number: '8' This is the title for the new person. VALIP.prosthetic.fm2cw.TITLE31 37 TITLE NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {TITLE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TITLE_NAME 1 FileMan Field Label: 'TOTAL MINUTES USING LM WP' FileMan Field Number: '8983.17' The total minutes a user has used the LetterMan word processor document editor. %Library.Numeric 171 TOTAL_MINUTES_USING_LM_WP FileMan Field Label: 'TYPE-AHEAD' FileMan Field Number: '200.09' If type ahead is selected, the user will be able to type text ahead of what the computer is actually reading. The computer stores the keystrokes from the user, which may be confusing if the computer is slow but more efficient if the user is careful. %Library.EnumString 118 TYPEAHEAD FileMan Field Label: 'UNIQUE USER ID' FileMan Field Number: '205.4' Unique User ID Identity and Access Management UNIQUE USER ID field used to uniquely identify a user (Subject) within the Subject Organization. The combination of Subject Organization ID (OID) and Unique User ID (UID) is cross-referenced in VistA and must be unique. For VA SSOi, this will be the user SecID. Within NHIN this could be the subject of the NHIN SAML token which would contain email address of a X.509 name. *** This field should never be edited directly - do not remove WRITE ACCESS! %Library.String 138 UNIQUE_USER_ID FileMan Field Label: 'USUAL COSIGNER' FileMan Field Number: '53.8' This field is used to show the usual cosigner for the provider. VALIP.prosthetic.fm2cw.NEWPERSON200 92 USUAL_COSIGNER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {USUAL_COSIGNER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USUAL_COSIGNER_NAME 1 FileMan Field Label: 'VA#' FileMan Field Number: '53.3' This field is used to enter the VA number. The VA number must be unique. %Library.String 87 VA SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 175 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFY CODE' FileMan Field Number: '11' This is the code that is used to verify that the ACCESS CODE was not found by accident. It may be entered at logon time immediately after the ACCESS CODE by typing a semicolon, then the VERIFY CODE. Verify codes may be changed by the user with the CHANGE USER CHARACTERISTICS option. The kernel site parameter field LIFETIME OF VERIFY CODE forces the user to periodically enter a new verify code. %Library.String 46 VERIFY_CODE FileMan Field Label: 'VERIFY CODE never expires' FileMan Field Number: '7.2' This field will control if the users VERIFY code will expire at the interval set by the Kernel System Parameter LIFETIME OF VERIFY CODE. This field should only be used for access to the VistA system from other systems making connection with the RPCBroker and have very controlled access. Only persons with the XUMGR key are allowed to set this flag. %Library.EnumString 36 VERIFY_CODE_NEVER_EXPIRES FileMan Field Label: 'VHA TRAINING FACILITY' FileMan Field Number: '12.4' VALIP.prosthetic.fm2cw.INSTITUTION4 54 VHA_TRAINING_FACILITY NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NEW_PERSON_200 where %ID=:id) set {VHA_TRAINING_FACILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VHA_TRAINING_FACILITY_NAME 1 FileMan Field Label: 'VOICE PAGER' FileMan Field Number: '.137' This field holds a phone number for an ANALOG PAGER that this person carries with them. It needs to be a format that can be understood by a sending MODEM. %Library.String 24 VOICE_PAGER FileMan Field Label: 'VPID' FileMan Field Number: '9000' VA Person Identification Code The VA Person Identification Number which was assigned by the Person Service central system. Used to uniquely identify a Person. %Library.String 173 VPID FileMan Field Label: 'Want to edit ACCESS CODE (Y/N)' FileMan Field Number: '2.1' ACCESS CODE Entering a YES to this field calls the KERNEL routine for entering ACCESS codes. No data is stored for this field. %Library.String 30 WANT_TO_EDIT_ACCESS_CODE_YN FileMan Field Label: 'Want to edit VERIFY CODE (Y/N)' FileMan Field Number: '11.1' VERIFY CODE Entering a YES to this field calls the KERNEL routine for entering VERIFY codes. No data is stored for this field. %Library.String 47 WANT_TO_EDIT_VERIFY_CODE_YN FileMan Field Label: 'XUS Active User' FileMan Field Number: '202.03' If a user gets the ** MULTIPULE SIGN-ON NOT ALLOWED ** message this field can be set to NO to allow them to sign-on again. This flag is set by XUS and XUSCLEAN. %Library.EnumString 128 XUS_ACTIVE_USER FileMan Field Label: 'XUS Logon Attempt Count' FileMan Field Number: '202.02' This is used to let the user know about unsuccessful logon atempts. %Library.Numeric 127 XUS_LOGON_ATTEMPT_COUNT FileMan Field Label: 'ZIP CODE' FileMan Field Number: '.116' This is the postal ZIP code of the permanent address of the new person. %Library.String 9 ZIP_CODE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^VA(200," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(200,"+1,",.01)={"NAME"} set:{STREET_ADDRESS_1}'="" FDA(200,"+1,",.111)={"STREET_ADDRESS_1"} set:{STREET_ADDRESS_2}'="" FDA(200,"+1,",.112)={"STREET_ADDRESS_2"} set:{STREET_ADDRESS_3}'="" FDA(200,"+1,",.113)={"STREET_ADDRESS_3"} set:{CITY}'="" FDA(200,"+1,",.114)={"CITY"} set:{STATE}'="" FDA(200,"+1,",.115)={"STATE"} set:{ZIP_CODE}'="" FDA(200,"+1,",.116)={"ZIP_CODE"} set:{TEMPORARY_ADDRESS_1}'="" FDA(200,"+1,",.1211)={"TEMPORARY_ADDRESS_1"} set:{TEMPORARY_ADDRESS_2}'="" FDA(200,"+1,",.1212)={"TEMPORARY_ADDRESS_2"} set:{TEMPORARY_ADDRESS_3}'="" FDA(200,"+1,",.1213)={"TEMPORARY_ADDRESS_3"} set:{TEMPORARY_CITY}'="" FDA(200,"+1,",.1214)={"TEMPORARY_CITY"} set:{TEMPORARY_STATE}'="" FDA(200,"+1,",.1215)={"TEMPORARY_STATE"} set:{TEMPORARY_ZIP_CODE}'="" FDA(200,"+1,",.1216)={"TEMPORARY_ZIP_CODE"} set:{START_DATE_OF_TEMP_ADDRES}'="" FDA(200,"+1,",.1217)={"START_DATE_OF_TEMP_ADDRES"} set:{END_DATE_OF_TEMP_ADDRESS}'="" FDA(200,"+1,",.1218)={"END_DATE_OF_TEMP_ADDRESS"} set:{PHONE_HOME}'="" FDA(200,"+1,",.131)={"PHONE_HOME"} set:{OFFICE_PHONE}'="" FDA(200,"+1,",.132)={"OFFICE_PHONE"} set:{PHONE_3}'="" FDA(200,"+1,",.133)={"PHONE_3"} set:{PHONE_4}'="" FDA(200,"+1,",.134)={"PHONE_4"} set:{COMMERCIAL_PHONE}'="" FDA(200,"+1,",.135)={"COMMERCIAL_PHONE"} set:{FAX_NUMBER}'="" FDA(200,"+1,",.136)={"FAX_NUMBER"} set:{VOICE_PAGER}'="" FDA(200,"+1,",.137)={"VOICE_PAGER"} set:{DIGITAL_PAGER}'="" FDA(200,"+1,",.138)={"DIGITAL_PAGER"} set:{ROOM}'="" FDA(200,"+1,",.141)={"ROOM"} set:{EMAIL_ADDRESS}'="" FDA(200,"+1,",.151)={"EMAIL_ADDRESS"} set:{INITIAL}'="" FDA(200,"+1,",1)={"INITIAL"} set:{ACCESS_CODE}'="" FDA(200,"+1,",2)={"ACCESS_CODE"} set:{WANT_TO_EDIT_ACCESS_CODE_YN}'="" FDA(200,"+1,",2.1)={"WANT_TO_EDIT_ACCESS_CODE_YN"} set:{FILE_MANAGER_ACCESS_CODE}'="" FDA(200,"+1,",3)={"FILE_MANAGER_ACCESS_CODE"} set:{SEX}'="" FDA(200,"+1,",4)={"SEX"} set:{DOB}'="" FDA(200,"+1,",5)={"DOB"} set:{DISUSER}'="" FDA(200,"+1,",7)={"DISUSER"} set:{VERIFY_CODE_NEVER_EXPIRES}'="" FDA(200,"+1,",7.2)={"VERIFY_CODE_NEVER_EXPIRES"} set:{TITLE}'="" FDA(200,"+1,",8)={"TITLE"} set:{SSN}'="" FDA(200,"+1,",9)={"SSN"} set:{TERMINATION_DATE}'="" FDA(200,"+1,",9.2)={"TERMINATION_DATE"} set:{DELETE_ALL_MAIL_ACCESS}'="" FDA(200,"+1,",9.21)={"DELETE_ALL_MAIL_ACCESS"} set:{DELETE_KEYS_AT_TERMINATION}'="" FDA(200,"+1,",9.22)={"DELETE_KEYS_AT_TERMINATION"} set:{TERMINAL_TYPE_LAST_USED}'="" FDA(200,"+1,",9.3)={"TERMINAL_TYPE_LAST_USED"} set:{TERMINATION_REASON}'="" FDA(200,"+1,",9.4)={"TERMINATION_REASON"} set:{NAME_COMPONENTS}'="" FDA(200,"+1,",10.1)={"NAME_COMPONENTS"} set:{DEGREE}'="" FDA(200,"+1,",10.6)={"DEGREE"} set:{VERIFY_CODE}'="" FDA(200,"+1,",11)={"VERIFY_CODE"} set:{WANT_TO_EDIT_VERIFY_CODE_YN}'="" FDA(200,"+1,",11.1)={"WANT_TO_EDIT_VERIFY_CODE_YN"} set:{DATE_VERIFY_CODE_LAST_CHANGED}'="" FDA(200,"+1,",11.2)={"DATE_VERIFY_CODE_LAST_CHANGED"} set:{ALLOW_ARA_ACCESS}'="" FDA(200,"+1,",11.6)={"ALLOW_ARA_ACCESS"} set:{ARA_VALUE}'="" FDA(200,"+1,",11.7)={"ARA_VALUE"} set:{CURRENT_DEGREE_LEVEL}'="" FDA(200,"+1,",12.1)={"CURRENT_DEGREE_LEVEL"} set:{PROGRAM_OF_STUDY}'="" FDA(200,"+1,",12.2)={"PROGRAM_OF_STUDY"} set:{LAST_TRAINING_MONTH__YEAR}'="" FDA(200,"+1,",12.3)={"LAST_TRAINING_MONTH__YEAR"} set:{VHA_TRAINING_FACILITY}'="" FDA(200,"+1,",12.4)={"VHA_TRAINING_FACILITY"} set:{DATE_HL7_TRAINEE_RECORD_BUILT}'="" FDA(200,"+1,",12.5)={"DATE_HL7_TRAINEE_RECORD_BUILT"} set:{CLINICAL_CORE_TRAINEE}'="" FDA(200,"+1,",12.6)={"CLINICAL_CORE_TRAINEE"} set:{DATE_NO_LONGER_TRAINEE}'="" FDA(200,"+1,",12.7)={"DATE_NO_LONGER_TRAINEE"} set:{START_OF_TRAINING}'="" FDA(200,"+1,",12.8)={"START_OF_TRAINING"} set:{NICK_NAME}'="" FDA(200,"+1,",13)={"NICK_NAME"} set:{PAC}'="" FDA(200,"+1,",14)={"PAC"} set:{HINQ_EMPLOYEE_NUMBER}'="" FDA(200,"+1,",14.9)={"HINQ_EMPLOYEE_NUMBER"} set:{PROHIBITED_TIMES_FOR_SIGNON}'="" FDA(200,"+1,",15)={"PROHIBITED_TIMES_FOR_SIGNON"} set:{DELEGATE_OF}'="" FDA(200,"+1,",19)={"DELEGATE_OF"} set:{DELEGATION_DATE}'="" FDA(200,"+1,",19.1)={"DELEGATION_DATE"} set:{DELEGATION_LEVEL}'="" FDA(200,"+1,",19.2)={"DELEGATION_LEVEL"} set:{DATE_ESIG_LAST_CHANGED}'="" FDA(200,"+1,",20.1)={"DATE_ESIG_LAST_CHANGED"} set:{SIGNATURE_BLOCK_PRINTED_NAME}'="" FDA(200,"+1,",20.2)={"SIGNATURE_BLOCK_PRINTED_NAME"} set:{SIGNATURE_BLOCK_TITLE}'="" FDA(200,"+1,",20.3)={"SIGNATURE_BLOCK_TITLE"} set:{ELECTRONIC_SIGNATURE_CODE}'="" FDA(200,"+1,",20.4)={"ELECTRONIC_SIGNATURE_CODE"} set:{MAIL_CODE}'="" FDA(200,"+1,",28)={"MAIL_CODE"} set:{SERVICESECTION}'="" FDA(200,"+1,",29)={"SERVICESECTION"} set:{DATE_ENTERED}'="" FDA(200,"+1,",30)={"DATE_ENTERED"} set:{CREATOR}'="" FDA(200,"+1,",31)={"CREATOR"} set:{FILE_RANGE}'="" FDA(200,"+1,",31.1)={"FILE_RANGE"} set:{TEXT_TERMINATOR}'="" FDA(200,"+1,",31.2)={"TEXT_TERMINATOR"} set:{PREFERRED_EDITOR}'="" FDA(200,"+1,",31.3)={"PREFERRED_EDITOR"} set:{ALLOWED_TO_USE_SPOOLER}'="" FDA(200,"+1,",41)={"ALLOWED_TO_USE_SPOOLER"} set:{MULTIDEVICE_DESPOOLING}'="" FDA(200,"+1,",41.1)={"MULTIDEVICE_DESPOOLING"} set:{CAN_MAKE_INTO_A_MAIL_MESSAGE}'="" FDA(200,"+1,",41.2)={"CAN_MAKE_INTO_A_MAIL_MESSAGE"} set:{AUTHORIZE_RELEASE_OF_NPI}'="" FDA(200,"+1,",41.97)={"AUTHORIZE_RELEASE_OF_NPI"} set:{NPI_ENTRY_STATUS}'="" FDA(200,"+1,",41.98)={"NPI_ENTRY_STATUS"} set:{NPI}'="" FDA(200,"+1,",41.99)={"NPI"} set:{KEY_DELEGATION_LEVEL}'="" FDA(200,"+1,",50.1)={"KEY_DELEGATION_LEVEL"} set:{AUTHORIZED_TO_WRITE_MED_ORDERS}'="" FDA(200,"+1,",53.1)={"AUTHORIZED_TO_WRITE_MED_ORDERS"} set:{DETOXMAINTENANCE_ID_NUMBER}'="" FDA(200,"+1,",53.11)={"DETOXMAINTENANCE_ID_NUMBER"} set:{DEA}'="" FDA(200,"+1,",53.2)={"DEA"} set:{VA}'="" FDA(200,"+1,",53.3)={"VA"} set:{INACTIVE_DATE}'="" FDA(200,"+1,",53.4)={"INACTIVE_DATE"} set:{PROVIDER_CLASS}'="" FDA(200,"+1,",53.5)={"PROVIDER_CLASS"} set:{PROVIDER_TYPE}'="" FDA(200,"+1,",53.6)={"PROVIDER_TYPE"} set:{REQUIRES_COSIGNER}'="" FDA(200,"+1,",53.7)={"REQUIRES_COSIGNER"} set:{USUAL_COSIGNER}'="" FDA(200,"+1,",53.8)={"USUAL_COSIGNER"} set:{REMARKS}'="" FDA(200,"+1,",53.9)={"REMARKS"} set:{NONVA_PRESCRIBER}'="" FDA(200,"+1,",53.91)={"NONVA_PRESCRIBER"} set:{TAX_ID}'="" FDA(200,"+1,",53.92)={"TAX_ID"} set:{EXCLUSIONARY_CHECK_PERFORMED}'="" FDA(200,"+1,",53.93)={"EXCLUSIONARY_CHECK_PERFORMED"} set:{DATE_EXCLUSIONARY_LIST_CHECKED}'="" FDA(200,"+1,",53.94)={"DATE_EXCLUSIONARY_LIST_CHECKED"} set:{ON_EXCLUSIONARY_LIST}'="" FDA(200,"+1,",53.95)={"ON_EXCLUSIONARY_LIST"} set:{EXCLUSIONARY_CHECKED_BY}'="" FDA(200,"+1,",53.96)={"EXCLUSIONARY_CHECKED_BY"} set:{SCHEDULE_II_NARCOTIC}'="" FDA(200,"+1,",55.1)={"SCHEDULE_II_NARCOTIC"} set:{SCHEDULE_II_NONNARCOTIC}'="" FDA(200,"+1,",55.2)={"SCHEDULE_II_NONNARCOTIC"} set:{SCHEDULE_III_NARCOTIC}'="" FDA(200,"+1,",55.3)={"SCHEDULE_III_NARCOTIC"} set:{SCHEDULE_III_NONNARCOTIC}'="" FDA(200,"+1,",55.4)={"SCHEDULE_III_NONNARCOTIC"} set:{SCHEDULE_IV}'="" FDA(200,"+1,",55.5)={"SCHEDULE_IV"} set:{SCHEDULE_V}'="" FDA(200,"+1,",55.6)={"SCHEDULE_V"} set:{STAFF_REVIEW_REQUIRED}'="" FDA(200,"+1,",70)={"STAFF_REVIEW_REQUIRED"} set:{ALLOW_VERIFYING_OF_OTHERS}'="" FDA(200,"+1,",71)={"ALLOW_VERIFYING_OF_OTHERS"} set:{RADNUC_MED_INACTIVE_DATE}'="" FDA(200,"+1,",73)={"RADNUC_MED_INACTIVE_DATE"} set:{RESTRICT_PATIENT_SELECTION}'="" FDA(200,"+1,",101.01)={"RESTRICT_PATIENT_SELECTION"} set:{PATIENT_SELECTION_LIST}'="" FDA(200,"+1,",101.02)={"PATIENT_SELECTION_LIST"} set:{PROBLEM_LIST_PRIMARY_VIEW}'="" FDA(200,"+1,",125)={"PROBLEM_LIST_PRIMARY_VIEW"} set:{PROBLEM_SELECTION_LIST}'="" FDA(200,"+1,",125.1)={"PROBLEM_SELECTION_LIST"} set:{MULTIPLE_SIGNON}'="" FDA(200,"+1,",200.04)={"MULTIPLE_SIGNON"} set:{ASK_DEVICE_TYPE_AT_SIGNON}'="" FDA(200,"+1,",200.05)={"ASK_DEVICE_TYPE_AT_SIGNON"} set:{AUTO_MENU}'="" FDA(200,"+1,",200.06)={"AUTO_MENU"} set:{LANGUAGE200_07}'="" FDA(200,"+1,",200.07)={"LANGUAGE200_07"} set:{RESERVED}'="" FDA(200,"+1,",200.08)={"RESERVED"} set:{TYPEAHEAD}'="" FDA(200,"+1,",200.09)={"TYPEAHEAD"} set:{TIMED_READ__OF_SECONDS}'="" FDA(200,"+1,",200.1)={"TIMED_READ__OF_SECONDS"} set:{ALWAYS_SHOW_SECONDARIES}'="" FDA(200,"+1,",200.11)={"ALWAYS_SHOW_SECONDARIES"} set:{AUTO_SIGNON}'="" FDA(200,"+1,",200.18)={"AUTO_SIGNON"} set:{MULTIPLE_SIGNON_LIMIT}'="" FDA(200,"+1,",200.19)={"MULTIPLE_SIGNON_LIMIT"} set:{PRIMARY_MENU_OPTION}'="" FDA(200,"+1,",201)={"PRIMARY_MENU_OPTION"} set:{PRIMARY_WINDOW}'="" FDA(200,"+1,",201.1)={"PRIMARY_WINDOW"} set:{STARTUP_DEFAULT}'="" FDA(200,"+1,",201.2)={"STARTUP_DEFAULT"} set:{LAST_SIGNON_DATETIME}'="" FDA(200,"+1,",202)={"LAST_SIGNON_DATETIME"} set:{XUS_LOGON_ATTEMPT_COUNT}'="" FDA(200,"+1,",202.02)={"XUS_LOGON_ATTEMPT_COUNT"} set:{XUS_ACTIVE_USER}'="" FDA(200,"+1,",202.03)={"XUS_ACTIVE_USER"} set:{ENTRY_LAST_EDIT_DATE}'="" FDA(200,"+1,",202.04)={"ENTRY_LAST_EDIT_DATE"} set:{LOCKOUT_USER_UNTIL}'="" FDA(200,"+1,",202.05)={"LOCKOUT_USER_UNTIL"} set:{CREATED_BY}'="" FDA(200,"+1,",202.06)={"CREATED_BY"} set:{LAST_OPTION_ACCESSED}'="" FDA(200,"+1,",202.1)={"LAST_OPTION_ACCESSED"} set:{LAST_OPTION_MAIN_MENU}'="" FDA(200,"+1,",202.2)={"LAST_OPTION_MAIN_MENU"} set:{TIMESTAMP}'="" FDA(200,"+1,",203.1)={"TIMESTAMP"} set:{SECID}'="" FDA(200,"+1,",205.1)={"SECID"} set:{SUBJECT_ORGANIZATION}'="" FDA(200,"+1,",205.2)={"SUBJECT_ORGANIZATION"} set:{SUBJECT_ORGANIZATION_ID}'="" FDA(200,"+1,",205.3)={"SUBJECT_ORGANIZATION_ID"} set:{UNIQUE_USER_ID}'="" FDA(200,"+1,",205.4)={"UNIQUE_USER_ID"} set:{ADUPN}'="" FDA(200,"+1,",205.5)={"ADUPN"} set:{SUPPLY_EMPLOYEE}'="" FDA(200,"+1,",400)={"SUPPLY_EMPLOYEE"} set:{SECURITY_TRAINING_LAST}'="" FDA(200,"+1,",442.1)={"SECURITY_TRAINING_LAST"} set:{PAID_EMPLOYEE}'="" FDA(200,"+1,",450)={"PAID_EMPLOYEE"} set:{NETWORK_USERNAME}'="" FDA(200,"+1,",501.1)={"NETWORK_USERNAME"} set:{SUBJECT_ALTERNATIVE_NAME}'="" FDA(200,"+1,",501.2)={"SUBJECT_ALTERNATIVE_NAME"} set:{DISABILITY_USER}'="" FDA(200,"+1,",508.1)={"DISABILITY_USER"} set:{SOCIAL_WORKER_}'="" FDA(200,"+1,",654)={"SOCIAL_WORKER_"} set:{IMMEDIATE_SUPERVISOR}'="" FDA(200,"+1,",654.1)={"IMMEDIATE_SUPERVISOR"} set:{POSITIONTITLE}'="" FDA(200,"+1,",654.15)={"POSITIONTITLE"} set:{SOCIAL_WORKERS_NUMBER}'="" FDA(200,"+1,",654.2)={"SOCIAL_WORKERS_NUMBER"} set:{SURROGATE}'="" FDA(200,"+1,",654.3)={"SURROGATE"} set:{APPOINTMENT_STATUS}'="" FDA(200,"+1,",747.11)={"APPOINTMENT_STATUS"} set:{RENEW_DATE}'="" FDA(200,"+1,",747.113)={"RENEW_DATE"} set:{DEA_EXPIRATION_DATE}'="" FDA(200,"+1,",747.44)={"DEA_EXPIRATION_DATE"} set:{ENUMERATION_INITIATED}'="" FDA(200,"+1,",900)={"ENUMERATION_INITIATED"} set:{ENUMERATION_COMPLETED}'="" FDA(200,"+1,",901)={"ENUMERATION_COMPLETED"} set:{REQUIRES_TRANSMISSION}'="" FDA(200,"+1,",902)={"REQUIRES_TRANSMISSION"} set:{BADGE_NUMBER}'="" FDA(200,"+1,",910.1)={"BADGE_NUMBER"} set:{RANK}'="" FDA(200,"+1,",910.2)={"RANK"} set:{PGYEAR}'="" FDA(200,"+1,",8932.2)={"PGYEAR"} set:{PGY_ASSIGNED}'="" FDA(200,"+1,",8932.21)={"PGY_ASSIGNED"} set:{FYEAR}'="" FDA(200,"+1,",8932.3)={"FYEAR"} set:{FY_ASSIGNED}'="" FDA(200,"+1,",8932.31)={"FY_ASSIGNED"} set:{PERSON_FILE_POINTER}'="" FDA(200,"+1,",8980.16)={"PERSON_FILE_POINTER"} set:{DISPLAY_HELP_AT_ENTRY_TO_LM}'="" FDA(200,"+1,",8983.11)={"DISPLAY_HELP_AT_ENTRY_TO_LM"} set:{ASK_TERMINAL_TYPE_AT_LM_ENTRY}'="" FDA(200,"+1,",8983.12)={"ASK_TERMINAL_TYPE_AT_LM_ENTRY"} set:{DEFAULT_TERMINAL_TYPE_FOR_LM}'="" FDA(200,"+1,",8983.13)={"DEFAULT_TERMINAL_TYPE_FOR_LM"} set:{DISPLAY_LM_COMMANDS}'="" FDA(200,"+1,",8983.14)={"DISPLAY_LM_COMMANDS"} set:{BRIGHT_CHARS_AT_EXIT_FROM_LM}'="" FDA(200,"+1,",8983.15)={"BRIGHT_CHARS_AT_EXIT_FROM_LM"} set:{DATE_LAST_ACCESSED_LM_WP}'="" FDA(200,"+1,",8983.16)={"DATE_LAST_ACCESSED_LM_WP"} set:{TOTAL_MINUTES_USING_LM_WP}'="" FDA(200,"+1,",8983.17)={"TOTAL_MINUTES_USING_LM_WP"} set:{KEYSTROKES_FROM_LM_WP}'="" FDA(200,"+1,",8983.18)={"KEYSTROKES_FROM_LM_WP"} set:{VPID}'="" FDA(200,"+1,",9000)={"VPID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(200)") set %SkipFiling=1 if $d(%FMERR(200,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(200)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(200,IENS,.01)={NAME} set:{STREET_ADDRESS_1*C} FDA(200,IENS,.111)={STREET_ADDRESS_1} set:{STREET_ADDRESS_2*C} FDA(200,IENS,.112)={STREET_ADDRESS_2} set:{STREET_ADDRESS_3*C} FDA(200,IENS,.113)={STREET_ADDRESS_3} set:{CITY*C} FDA(200,IENS,.114)={CITY} set:{STATE*C} FDA(200,IENS,.115)={STATE} set:{ZIP_CODE*C} FDA(200,IENS,.116)={ZIP_CODE} set:{TEMPORARY_ADDRESS_1*C} FDA(200,IENS,.1211)={TEMPORARY_ADDRESS_1} set:{TEMPORARY_ADDRESS_2*C} FDA(200,IENS,.1212)={TEMPORARY_ADDRESS_2} set:{TEMPORARY_ADDRESS_3*C} FDA(200,IENS,.1213)={TEMPORARY_ADDRESS_3} set:{TEMPORARY_CITY*C} FDA(200,IENS,.1214)={TEMPORARY_CITY} set:{TEMPORARY_STATE*C} FDA(200,IENS,.1215)={TEMPORARY_STATE} set:{TEMPORARY_ZIP_CODE*C} FDA(200,IENS,.1216)={TEMPORARY_ZIP_CODE} set:{START_DATE_OF_TEMP_ADDRES*C} FDA(200,IENS,.1217)={START_DATE_OF_TEMP_ADDRES} set:{END_DATE_OF_TEMP_ADDRESS*C} FDA(200,IENS,.1218)={END_DATE_OF_TEMP_ADDRESS} set:{PHONE_HOME*C} FDA(200,IENS,.131)={PHONE_HOME} set:{OFFICE_PHONE*C} FDA(200,IENS,.132)={OFFICE_PHONE} set:{PHONE_3*C} FDA(200,IENS,.133)={PHONE_3} set:{PHONE_4*C} FDA(200,IENS,.134)={PHONE_4} set:{COMMERCIAL_PHONE*C} FDA(200,IENS,.135)={COMMERCIAL_PHONE} set:{FAX_NUMBER*C} FDA(200,IENS,.136)={FAX_NUMBER} set:{VOICE_PAGER*C} FDA(200,IENS,.137)={VOICE_PAGER} set:{DIGITAL_PAGER*C} FDA(200,IENS,.138)={DIGITAL_PAGER} set:{ROOM*C} FDA(200,IENS,.141)={ROOM} set:{EMAIL_ADDRESS*C} FDA(200,IENS,.151)={EMAIL_ADDRESS} set:{INITIAL*C} FDA(200,IENS,1)={INITIAL} set:{ACCESS_CODE*C} FDA(200,IENS,2)={ACCESS_CODE} set:{WANT_TO_EDIT_ACCESS_CODE_YN*C} FDA(200,IENS,2.1)={WANT_TO_EDIT_ACCESS_CODE_YN} set:{FILE_MANAGER_ACCESS_CODE*C} FDA(200,IENS,3)={FILE_MANAGER_ACCESS_CODE} set:{SEX*C} FDA(200,IENS,4)={SEX} set:{DOB*C} FDA(200,IENS,5)={DOB} set:{DISUSER*C} FDA(200,IENS,7)={DISUSER} set:{VERIFY_CODE_NEVER_EXPIRES*C} FDA(200,IENS,7.2)={VERIFY_CODE_NEVER_EXPIRES} set:{TITLE*C} FDA(200,IENS,8)={TITLE} set:{SSN*C} FDA(200,IENS,9)={SSN} set:{TERMINATION_DATE*C} FDA(200,IENS,9.2)={TERMINATION_DATE} set:{DELETE_ALL_MAIL_ACCESS*C} FDA(200,IENS,9.21)={DELETE_ALL_MAIL_ACCESS} set:{DELETE_KEYS_AT_TERMINATION*C} FDA(200,IENS,9.22)={DELETE_KEYS_AT_TERMINATION} set:{TERMINAL_TYPE_LAST_USED*C} FDA(200,IENS,9.3)={TERMINAL_TYPE_LAST_USED} set:{TERMINATION_REASON*C} FDA(200,IENS,9.4)={TERMINATION_REASON} set:{NAME_COMPONENTS*C} FDA(200,IENS,10.1)={NAME_COMPONENTS} set:{DEGREE*C} FDA(200,IENS,10.6)={DEGREE} set:{VERIFY_CODE*C} FDA(200,IENS,11)={VERIFY_CODE} set:{WANT_TO_EDIT_VERIFY_CODE_YN*C} FDA(200,IENS,11.1)={WANT_TO_EDIT_VERIFY_CODE_YN} set:{DATE_VERIFY_CODE_LAST_CHANGED*C} FDA(200,IENS,11.2)={DATE_VERIFY_CODE_LAST_CHANGED} set:{ALLOW_ARA_ACCESS*C} FDA(200,IENS,11.6)={ALLOW_ARA_ACCESS} set:{ARA_VALUE*C} FDA(200,IENS,11.7)={ARA_VALUE} set:{CURRENT_DEGREE_LEVEL*C} FDA(200,IENS,12.1)={CURRENT_DEGREE_LEVEL} set:{PROGRAM_OF_STUDY*C} FDA(200,IENS,12.2)={PROGRAM_OF_STUDY} set:{LAST_TRAINING_MONTH__YEAR*C} FDA(200,IENS,12.3)={LAST_TRAINING_MONTH__YEAR} set:{VHA_TRAINING_FACILITY*C} FDA(200,IENS,12.4)={VHA_TRAINING_FACILITY} set:{DATE_HL7_TRAINEE_RECORD_BUILT*C} FDA(200,IENS,12.5)={DATE_HL7_TRAINEE_RECORD_BUILT} set:{CLINICAL_CORE_TRAINEE*C} FDA(200,IENS,12.6)={CLINICAL_CORE_TRAINEE} set:{DATE_NO_LONGER_TRAINEE*C} FDA(200,IENS,12.7)={DATE_NO_LONGER_TRAINEE} set:{START_OF_TRAINING*C} FDA(200,IENS,12.8)={START_OF_TRAINING} set:{NICK_NAME*C} FDA(200,IENS,13)={NICK_NAME} set:{PAC*C} FDA(200,IENS,14)={PAC} set:{HINQ_EMPLOYEE_NUMBER*C} FDA(200,IENS,14.9)={HINQ_EMPLOYEE_NUMBER} set:{PROHIBITED_TIMES_FOR_SIGNON*C} FDA(200,IENS,15)={PROHIBITED_TIMES_FOR_SIGNON} set:{DELEGATE_OF*C} FDA(200,IENS,19)={DELEGATE_OF} set:{DELEGATION_DATE*C} FDA(200,IENS,19.1)={DELEGATION_DATE} set:{DELEGATION_LEVEL*C} FDA(200,IENS,19.2)={DELEGATION_LEVEL} set:{DATE_ESIG_LAST_CHANGED*C} FDA(200,IENS,20.1)={DATE_ESIG_LAST_CHANGED} set:{SIGNATURE_BLOCK_PRINTED_NAME*C} FDA(200,IENS,20.2)={SIGNATURE_BLOCK_PRINTED_NAME} set:{SIGNATURE_BLOCK_TITLE*C} FDA(200,IENS,20.3)={SIGNATURE_BLOCK_TITLE} set:{ELECTRONIC_SIGNATURE_CODE*C} FDA(200,IENS,20.4)={ELECTRONIC_SIGNATURE_CODE} set:{MAIL_CODE*C} FDA(200,IENS,28)={MAIL_CODE} set:{SERVICESECTION*C} FDA(200,IENS,29)={SERVICESECTION} set:{DATE_ENTERED*C} FDA(200,IENS,30)={DATE_ENTERED} set:{CREATOR*C} FDA(200,IENS,31)={CREATOR} set:{FILE_RANGE*C} FDA(200,IENS,31.1)={FILE_RANGE} set:{TEXT_TERMINATOR*C} FDA(200,IENS,31.2)={TEXT_TERMINATOR} set:{PREFERRED_EDITOR*C} FDA(200,IENS,31.3)={PREFERRED_EDITOR} set:{ALLOWED_TO_USE_SPOOLER*C} FDA(200,IENS,41)={ALLOWED_TO_USE_SPOOLER} set:{MULTIDEVICE_DESPOOLING*C} FDA(200,IENS,41.1)={MULTIDEVICE_DESPOOLING} set:{CAN_MAKE_INTO_A_MAIL_MESSAGE*C} FDA(200,IENS,41.2)={CAN_MAKE_INTO_A_MAIL_MESSAGE} set:{AUTHORIZE_RELEASE_OF_NPI*C} FDA(200,IENS,41.97)={AUTHORIZE_RELEASE_OF_NPI} set:{NPI_ENTRY_STATUS*C} FDA(200,IENS,41.98)={NPI_ENTRY_STATUS} set:{NPI*C} FDA(200,IENS,41.99)={NPI} set:{KEY_DELEGATION_LEVEL*C} FDA(200,IENS,50.1)={KEY_DELEGATION_LEVEL} set:{AUTHORIZED_TO_WRITE_MED_ORDERS*C} FDA(200,IENS,53.1)={AUTHORIZED_TO_WRITE_MED_ORDERS} set:{DETOXMAINTENANCE_ID_NUMBER*C} FDA(200,IENS,53.11)={DETOXMAINTENANCE_ID_NUMBER} set:{DEA*C} FDA(200,IENS,53.2)={DEA} set:{VA*C} FDA(200,IENS,53.3)={VA} set:{INACTIVE_DATE*C} FDA(200,IENS,53.4)={INACTIVE_DATE} set:{PROVIDER_CLASS*C} FDA(200,IENS,53.5)={PROVIDER_CLASS} set:{PROVIDER_TYPE*C} FDA(200,IENS,53.6)={PROVIDER_TYPE} set:{REQUIRES_COSIGNER*C} FDA(200,IENS,53.7)={REQUIRES_COSIGNER} set:{USUAL_COSIGNER*C} FDA(200,IENS,53.8)={USUAL_COSIGNER} set:{REMARKS*C} FDA(200,IENS,53.9)={REMARKS} set:{NONVA_PRESCRIBER*C} FDA(200,IENS,53.91)={NONVA_PRESCRIBER} set:{TAX_ID*C} FDA(200,IENS,53.92)={TAX_ID} set:{EXCLUSIONARY_CHECK_PERFORMED*C} FDA(200,IENS,53.93)={EXCLUSIONARY_CHECK_PERFORMED} set:{DATE_EXCLUSIONARY_LIST_CHECKED*C} FDA(200,IENS,53.94)={DATE_EXCLUSIONARY_LIST_CHECKED} set:{ON_EXCLUSIONARY_LIST*C} FDA(200,IENS,53.95)={ON_EXCLUSIONARY_LIST} set:{EXCLUSIONARY_CHECKED_BY*C} FDA(200,IENS,53.96)={EXCLUSIONARY_CHECKED_BY} set:{SCHEDULE_II_NARCOTIC*C} FDA(200,IENS,55.1)={SCHEDULE_II_NARCOTIC} set:{SCHEDULE_II_NONNARCOTIC*C} FDA(200,IENS,55.2)={SCHEDULE_II_NONNARCOTIC} set:{SCHEDULE_III_NARCOTIC*C} FDA(200,IENS,55.3)={SCHEDULE_III_NARCOTIC} set:{SCHEDULE_III_NONNARCOTIC*C} FDA(200,IENS,55.4)={SCHEDULE_III_NONNARCOTIC} set:{SCHEDULE_IV*C} FDA(200,IENS,55.5)={SCHEDULE_IV} set:{SCHEDULE_V*C} FDA(200,IENS,55.6)={SCHEDULE_V} set:{STAFF_REVIEW_REQUIRED*C} FDA(200,IENS,70)={STAFF_REVIEW_REQUIRED} set:{ALLOW_VERIFYING_OF_OTHERS*C} FDA(200,IENS,71)={ALLOW_VERIFYING_OF_OTHERS} set:{RADNUC_MED_INACTIVE_DATE*C} FDA(200,IENS,73)={RADNUC_MED_INACTIVE_DATE} set:{RESTRICT_PATIENT_SELECTION*C} FDA(200,IENS,101.01)={RESTRICT_PATIENT_SELECTION} set:{PATIENT_SELECTION_LIST*C} FDA(200,IENS,101.02)={PATIENT_SELECTION_LIST} set:{PROBLEM_LIST_PRIMARY_VIEW*C} FDA(200,IENS,125)={PROBLEM_LIST_PRIMARY_VIEW} set:{PROBLEM_SELECTION_LIST*C} FDA(200,IENS,125.1)={PROBLEM_SELECTION_LIST} set:{MULTIPLE_SIGNON*C} FDA(200,IENS,200.04)={MULTIPLE_SIGNON} set:{ASK_DEVICE_TYPE_AT_SIGNON*C} FDA(200,IENS,200.05)={ASK_DEVICE_TYPE_AT_SIGNON} set:{AUTO_MENU*C} FDA(200,IENS,200.06)={AUTO_MENU} set:{LANGUAGE200_07*C} FDA(200,IENS,200.07)={LANGUAGE200_07} set:{RESERVED*C} FDA(200,IENS,200.08)={RESERVED} set:{TYPEAHEAD*C} FDA(200,IENS,200.09)={TYPEAHEAD} set:{TIMED_READ__OF_SECONDS*C} FDA(200,IENS,200.1)={TIMED_READ__OF_SECONDS} set:{ALWAYS_SHOW_SECONDARIES*C} FDA(200,IENS,200.11)={ALWAYS_SHOW_SECONDARIES} set:{AUTO_SIGNON*C} FDA(200,IENS,200.18)={AUTO_SIGNON} set:{MULTIPLE_SIGNON_LIMIT*C} FDA(200,IENS,200.19)={MULTIPLE_SIGNON_LIMIT} set:{PRIMARY_MENU_OPTION*C} FDA(200,IENS,201)={PRIMARY_MENU_OPTION} set:{PRIMARY_WINDOW*C} FDA(200,IENS,201.1)={PRIMARY_WINDOW} set:{STARTUP_DEFAULT*C} FDA(200,IENS,201.2)={STARTUP_DEFAULT} set:{LAST_SIGNON_DATETIME*C} FDA(200,IENS,202)={LAST_SIGNON_DATETIME} set:{XUS_LOGON_ATTEMPT_COUNT*C} FDA(200,IENS,202.02)={XUS_LOGON_ATTEMPT_COUNT} set:{XUS_ACTIVE_USER*C} FDA(200,IENS,202.03)={XUS_ACTIVE_USER} set:{ENTRY_LAST_EDIT_DATE*C} FDA(200,IENS,202.04)={ENTRY_LAST_EDIT_DATE} set:{LOCKOUT_USER_UNTIL*C} FDA(200,IENS,202.05)={LOCKOUT_USER_UNTIL} set:{CREATED_BY*C} FDA(200,IENS,202.06)={CREATED_BY} set:{LAST_OPTION_ACCESSED*C} FDA(200,IENS,202.1)={LAST_OPTION_ACCESSED} set:{LAST_OPTION_MAIN_MENU*C} FDA(200,IENS,202.2)={LAST_OPTION_MAIN_MENU} set:{TIMESTAMP*C} FDA(200,IENS,203.1)={TIMESTAMP} set:{SECID*C} FDA(200,IENS,205.1)={SECID} set:{SUBJECT_ORGANIZATION*C} FDA(200,IENS,205.2)={SUBJECT_ORGANIZATION} set:{SUBJECT_ORGANIZATION_ID*C} FDA(200,IENS,205.3)={SUBJECT_ORGANIZATION_ID} set:{UNIQUE_USER_ID*C} FDA(200,IENS,205.4)={UNIQUE_USER_ID} set:{ADUPN*C} FDA(200,IENS,205.5)={ADUPN} set:{SUPPLY_EMPLOYEE*C} FDA(200,IENS,400)={SUPPLY_EMPLOYEE} set:{SECURITY_TRAINING_LAST*C} FDA(200,IENS,442.1)={SECURITY_TRAINING_LAST} set:{PAID_EMPLOYEE*C} FDA(200,IENS,450)={PAID_EMPLOYEE} set:{NETWORK_USERNAME*C} FDA(200,IENS,501.1)={NETWORK_USERNAME} set:{SUBJECT_ALTERNATIVE_NAME*C} FDA(200,IENS,501.2)={SUBJECT_ALTERNATIVE_NAME} set:{DISABILITY_USER*C} FDA(200,IENS,508.1)={DISABILITY_USER} set:{SOCIAL_WORKER_*C} FDA(200,IENS,654)={SOCIAL_WORKER_} set:{IMMEDIATE_SUPERVISOR*C} FDA(200,IENS,654.1)={IMMEDIATE_SUPERVISOR} set:{POSITIONTITLE*C} FDA(200,IENS,654.15)={POSITIONTITLE} set:{SOCIAL_WORKERS_NUMBER*C} FDA(200,IENS,654.2)={SOCIAL_WORKERS_NUMBER} set:{SURROGATE*C} FDA(200,IENS,654.3)={SURROGATE} set:{APPOINTMENT_STATUS*C} FDA(200,IENS,747.11)={APPOINTMENT_STATUS} set:{RENEW_DATE*C} FDA(200,IENS,747.113)={RENEW_DATE} set:{DEA_EXPIRATION_DATE*C} FDA(200,IENS,747.44)={DEA_EXPIRATION_DATE} set:{ENUMERATION_INITIATED*C} FDA(200,IENS,900)={ENUMERATION_INITIATED} set:{ENUMERATION_COMPLETED*C} FDA(200,IENS,901)={ENUMERATION_COMPLETED} set:{REQUIRES_TRANSMISSION*C} FDA(200,IENS,902)={REQUIRES_TRANSMISSION} set:{BADGE_NUMBER*C} FDA(200,IENS,910.1)={BADGE_NUMBER} set:{RANK*C} FDA(200,IENS,910.2)={RANK} set:{PGYEAR*C} FDA(200,IENS,8932.2)={PGYEAR} set:{PGY_ASSIGNED*C} FDA(200,IENS,8932.21)={PGY_ASSIGNED} set:{FYEAR*C} FDA(200,IENS,8932.3)={FYEAR} set:{FY_ASSIGNED*C} FDA(200,IENS,8932.31)={FY_ASSIGNED} set:{PERSON_FILE_POINTER*C} FDA(200,IENS,8980.16)={PERSON_FILE_POINTER} set:{DISPLAY_HELP_AT_ENTRY_TO_LM*C} FDA(200,IENS,8983.11)={DISPLAY_HELP_AT_ENTRY_TO_LM} set:{ASK_TERMINAL_TYPE_AT_LM_ENTRY*C} FDA(200,IENS,8983.12)={ASK_TERMINAL_TYPE_AT_LM_ENTRY} set:{DEFAULT_TERMINAL_TYPE_FOR_LM*C} FDA(200,IENS,8983.13)={DEFAULT_TERMINAL_TYPE_FOR_LM} set:{DISPLAY_LM_COMMANDS*C} FDA(200,IENS,8983.14)={DISPLAY_LM_COMMANDS} set:{BRIGHT_CHARS_AT_EXIT_FROM_LM*C} FDA(200,IENS,8983.15)={BRIGHT_CHARS_AT_EXIT_FROM_LM} set:{DATE_LAST_ACCESSED_LM_WP*C} FDA(200,IENS,8983.16)={DATE_LAST_ACCESSED_LM_WP} set:{TOTAL_MINUTES_USING_LM_WP*C} FDA(200,IENS,8983.17)={TOTAL_MINUTES_USING_LM_WP} set:{KEYSTROKES_FROM_LM_WP*C} FDA(200,IENS,8983.18)={KEYSTROKES_FROM_LM_WP} set:{VPID*C} FDA(200,IENS,9000)={VPID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200)") set %SkipFiling=1 if $d(%FMERR(200,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(200)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.NEWPERSON200S index ^VA nonnull 200 "A16" {PERSON_FILE_POINTER} {IEN} 0]]> index ^VA nonnull 200 "AC" {HINQ_EMPLOYEE_NUMBER} {IEN} 0]]> index ^VA nonnull 200 "ACSW" {SURROGATE} {IEN} 0]]> index ^VA nonnull 200 "ADUPN" {ADUPN} {IEN} 0]]> index {NPI}'="" 1 ^VA conditional 200 "ANPI" $$TRUNCATE({NPI},30)) {IEN} 0]]> index ^VA nonnull 200 "AOAA" {DATE_HL7_TRAINEE_RECORD_BUILT} {IEN} 0]]> index {SUBJECT_ORGANIZATION_ID}'="" 1 ^VA conditional 200 "AOIUID" $$TRUNCATE({SUBJECT_ORGANIZATION_ID},30)) $$TRUNCATE({UNIQUE_USER_ID},30)) {IEN} 0]]> index ^VA nonnull 200 "AP" {PRIMARY_MENU_OPTION} {IEN} 0]]> index ^VA nonnull 200 "ARA" {ARA_VALUE} {IEN} 0]]> index {SUBJECT_ALTERNATIVE_NAME}'="" 1 ^VA conditional 200 "ASAN" $$TRUNCATE({SUBJECT_ALTERNATIVE_NAME},30)) {IEN} 0]]> index {SECID}'="" 1 ^VA conditional 200 "ASECID" $$TRUNCATE({SECID},30)) {IEN} 0]]> index ^VA nonnull 200 "ASWC" {IMMEDIATE_SUPERVISOR} {IEN} 0]]> index ^VA nonnull 200 "ASWD" {SOCIAL_WORKERS_NUMBER} {IEN} 0]]> index ^VA nonnull 200 "AVPID" {VPID} {IEN} 0]]> index {NAME}'="" 1 ^VA conditional 200 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^VA nonnull 200 "B" {NAME} {IEN} 0]]> index ^VA nonnull 200 "C" {INITIAL} {IEN} 0]]> index ^VA nonnull 200 "E" {SERVICESECTION} {IEN} 0]]> data ^VA 200 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 205 5 "^" "SPL" 1 "^" .1 6 "^" "RA" 2 "^" 200 11 "^" "QAR12" 1 "^" .1 7 "^" 200 5 "^" "LM" 2 "^" "PS" 1 "^" "NPI" 3 "^" 200 6 "^" 200 18 "^" "ESP" 1 "^" "LM" 5 "^" "SPL" 3 "^" .11 4 "^" 12 6 "^" .13 5 "^" 1.1 6 "^" 1 8 "^" 12 1 "^" 1 7 "^" 20 1 "^" "TPB" 4 "^" 12 5 "^" "LM" 6 "^" 12 7 "^" .1 1 "^" "PS" 2 "^" "QAR" 9 "^" "LM" 3 "^" 3.1 6 "^" 19 1 "^" 19 2 "^" 19 3 "^" 0 5 "^" 0 6 "^" "PS" 11 "^" .13 8 "^" 508 1 "^" "LM" 1 "^" "LM" 4 "^" 0 7 "^" 1 3 "^" 20 4 "^" .15 1 "^" .121 8 "^" 1.1 4 "^" "MPI" 2 "^" "MPI" 1 "^" "TPB" 6 "^" "TPB" 3 "^" .13 6 "^" 0 4 "^" 1 1 "^" "USC2" 3 "^" "USC2" 4 "^" .1 9 "^" 654 2 "^" "PS" 4 "^" 0 2 "^" "LM" 8 "^" 50 1 "^" 200 7 "^" 202.1 1 "^" 202.1 2 "^" 1.1 1 "^" 12 3 "^" 1.1 5 "^" 5 2 "^" "SPL" 2 "^" 200 4 "^" 200 19 "^" 0 1 "^" 3.1 1 "^" 501 1 "^" .1 4 "^" "TPB" 1 "^" "NPI" 1 "^" "NPI" 2 "^" .13 2 "^" "TPB" 5 "^" .1 5 "^" 450 1 "^" 101 2 "^" 0 16 "^" "USC2" 1 "^" "USC2" 2 "^" .13 3 "^" .13 4 "^" .13 1 "^" 654 5 "^" 1 5 "^" 201 1 "^" 201 2 "^" 125 1 "^" 125 2 "^" 12 2 "^" 0 12 "^" "PS" 5 "^" "PS" 6 "^" "RA" 3 "^" "ESP" 2 "^" "PS" 9 "^" "QAR8" 2 "^" "PS" 7 "^" "MPI" 3 "^" "XUS" 8 "^" 101 1 "^" .14 1 "^" "PS3" 3 "^" "PS3" 4 "^" "PS3" 1 "^" "PS3" 2 "^" "PS3" 5 "^" "PS3" 6 "^" 205 1 "^" 4 1 "^" 5 1 "^" 1 2 "^" 20 2 "^" 20 3 "^" 654 3 "^" 654 1 "^" 1 9 "^" "RA" 1 "^" 201 3 "^" .121 7 "^" 12 8 "^" .11 5 "^" .11 1 "^" .11 2 "^" .11 3 "^" 501 2 "^" 205 2 "^" 205 3 "^" 400 1 "^" 654 4 "^" "TPB" 2 "^" .121 1 "^" .121 2 "^" .121 3 "^" .121 4 "^" .121 5 "^" .121 6 "^" 1.2 1 "^" 0 11 "^" 0 13 "^" 1 4 "^" 200 10 "^" 203.1 1 "^" 0 9 "^" "LM" 7 "^" 200 9 "^" 205 4 "^" "PS" 8 "^" "PS" 3 "^" .1 2 "^" 0 8 "^" 12 4 "^" .13 7 "^" "VPID" 1 "^" .1 10 "^" .1 11 "^" 1.1 3 "^" 1.1 2 "^" .11 6 index {DEA}'="" 1 ^VA conditional 200 "PS1" $$TRUNCATE({DEA},30)) {IEN} 0]]> index ^VA nonnull 200 "PS2" {VA} {IEN} 0]]> index ^VA nonnull 200 "SSN" {SSN} {IEN} 0]]> Generated class for FileMan File Number: '699.88' File Name: 'NON-ENDOSCOPIC PROCEDURE' Class generated by %fm2class version 2.56 Stores the types of Non-endoscopic Procedures for use with GI module. persistent _PUBLIC 0 RowId NONENDOSCOPIC_PROCEDURE_699_88 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.568648527 67178,44711.997725814 right NON-ENDOSCOPIC PROCEDURE 699.88 2.56 12/04/2024 12:25:11 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.88,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This contains a list of GI non-Endoscopic procedures. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.88," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.88,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.88)") set %SkipFiling=1 if $d(%FMERR(699.88,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.88)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.88,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.88)") set %SkipFiling=1 if $d(%FMERR(699.88,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.88)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.NONENDOSCOPBA66S index ^MCAR nonnull 699.88 "B" {NAME} {IEN} 0]]> data ^MCAR 699.88 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '698.9' File Name: 'NON-MAGNET ECG RHYTHM' Class generated by %fm2class version 2.56 This file holds the rhythms for use by the Basic Rhythm field of the PACEMAKER SURVEILLANCE file. persistent _PUBLIC 0 RowId NONMAGNET_ECG_RHYTHM_698_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.570150398 67178,44712.030116803 right NON-MAGNET ECG RHYTHM 698.9 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '2' This field identifies the shortened form of the rhythm identifier. %Library.String 4 ABBREVIATION FileMan Field Label: 'ECG RHYTHM' FileMan Field Number: '.01' This field identifies the ECG rhythm. %Library.String 1 3 ECG_RHYTHM Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(698.9,0),""^"",3)") 1 2 IEN SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(698.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ECG_RHYTHM}'="" FDA(698.9,"+1,",.01)={"ECG_RHYTHM"} set:{ABBREVIATION}'="" FDA(698.9,"+1,",2)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(698.9)") set %SkipFiling=1 if $d(%FMERR(698.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ECG_RHYTHM*C} FDA(698.9,IENS,.01)={ECG_RHYTHM} set:{ABBREVIATION*C} FDA(698.9,IENS,2)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.9)") set %SkipFiling=1 if $d(%FMERR(698.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.NONMAGNETEC7ED7S index {ECG_RHYTHM}'="" 1 ^MCAR conditional 698.9 "B" $$TRUNCATE({ECG_RHYTHM},30)) {IEN} 0]]> index ^MCAR nonnull 698.9 "D" {ABBREVIATION} {IEN} 0]]> data ^MCAR 698.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '695.9' File Name: 'NORMALITY OF CORONARY VESSEL' Class generated by %fm2class version 2.56 This file stores the normality of the cardiac vessels for use by the CATHETERIZATION file. persistent _PUBLIC 0 RowId NORMALITY_OF_CORONARY_VESSEL_695_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.594958091 67178,44712.061331287 right NORMALITY OF CORONARY VESSEL 695.9 2.56 12/04/2024 12:25:12 1 1 IEN 1 MORPHOLOGY_FIELD_61_1]]> MORPHOLOGYFIELD VALIP.prosthetic.fm2cw.MORPHOLOGYFIELD611 FKey_MORPHOLOGY_FIELD Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MORPHOLOGY FIELD' FileMan Field Number: '1' This field is a link to the Laboratory Morphology Field file. VALIP.prosthetic.fm2cw.MORPHOLOGYFIELD611 4 MORPHOLOGY_FIELD NAME The name of the morphology.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.NORMALITY_OF_CORONARY_VESSEL_695_9 where %ID=:id) set {MORPHOLOGY_FIELD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MORPHOLOGY_FIELD_NAME 1 FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the Coronary Vessel Normalities for various segments of the coronary vessel. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(695.9,"+1,",.01)={"NAME"} set:{MORPHOLOGY_FIELD}'="" FDA(695.9,"+1,",1)={"MORPHOLOGY_FIELD"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695.9)") set %SkipFiling=1 if $d(%FMERR(695.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(695.9,IENS,.01)={NAME} set:{MORPHOLOGY_FIELD*C} FDA(695.9,IENS,1)={MORPHOLOGY_FIELD} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.9)") set %SkipFiling=1 if $d(%FMERR(695.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.NORMALITYOF255AS index ^MCAR nonnull 695.9 "B" {NAME} {IEN} 0]]> data ^MCAR 695.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '2005.02' File Name: 'OBJECT TYPE' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a Class II medical device. As such, it may not be changed | | in any way. Modifications to this software may result in an | | adulterated medical device under 21CFR820, the use of which | | is considered to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ This file contains an entry for every type of object handled by the VistA Imaging System. It is exported with data. All sites must have entries for the data types distributed in order to display objects sent via multimedia mail. The Object Type file handles objects of various types. These include: * still images * image groups * graphics or waveforms * scanned documents * audio files Other types are expected in the future (i.e., image overlays, motion video chips, and office automation files). An object, such as an image series, may actually consist of multiple objects. In this case, the object type is Group. The Object Group multiple field is used to point to a set of objects in the Image file. Each object type has associated methods (software routines) for performing certain actions. For example, there are methods for displaying images and image abstracts. The group type is used to combine multiple objects of the same or different types to create complex objects. There are different image types, for example: * black and white high-resolution x-rays * black and white ultrasound images (lower resolution) * pseudo-color nuclear medicine scans * medium resolution true color bronchoscopy images * pathology images Each type of object has a number of specific characteristics, including the methods required to display them. For example, each object type has a type name and an associated display method or window. All accesses to objects use the file finder routine ^MAGFILE or ^MAGFILEA to find the network location needed. Different entry points of this routine will find locations of full files, abstract files, and jukebox copies of files. In addition, the network write location will be returned for image captures. persistent _PUBLIC 0 RowId OBJECT_TYPE_2005_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.59828479 67178,44712.092413782 right OBJECT TYPE 2005.02 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: 'ABSTRACT REQUIRED' FileMan Field Number: '.02' This field is reserved for future use and will indicates whether a separate abstract file is required for this type of object. %Library.EnumString 4 ABSTRACT_REQUIRED FileMan Field Label: 'DEFAULT EXTENSION' FileMan Field Number: '5' This is the default extension for this type of object. When Object Type is not known, at time of capture, the extension is used to determine the type. %Library.String 6 DEFAULT_EXTENSION FileMan Field Label: 'EDIT TEMPLATE' FileMan Field Number: '2' This field is reserved for future use for the name of the edit template used to enter data pertaining to this type of object. %Library.String 5 EDIT_TEMPLATE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.02,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Each kind of data supported by the Imaging System has an entry in the Object Type file. The Object Type file manages the kinds of actions which that type of object can have and the routines that are executed for each action. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.02," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2005.02,"+1,",.01)={"NAME"} set:{ABSTRACT_REQUIRED}'="" FDA(2005.02,"+1,",.02)={"ABSTRACT_REQUIRED"} set:{EDIT_TEMPLATE}'="" FDA(2005.02,"+1,",2)={"EDIT_TEMPLATE"} set:{DEFAULT_EXTENSION}'="" FDA(2005.02,"+1,",5)={"DEFAULT_EXTENSION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.02)") set %SkipFiling=1 if $d(%FMERR(2005.02,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.02)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2005.02,IENS,.01)={NAME} set:{ABSTRACT_REQUIRED*C} FDA(2005.02,IENS,.02)={ABSTRACT_REQUIRED} set:{EDIT_TEMPLATE*C} FDA(2005.02,IENS,2)={EDIT_TEMPLATE} set:{DEFAULT_EXTENSION*C} FDA(2005.02,IENS,5)={DEFAULT_EXTENSION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.02)") set %SkipFiling=1 if $d(%FMERR(2005.02,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.02)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.OBJECTTYPE28215S index ^MAG nonnull 2005.02 "AD" {DEFAULT_EXTENSION} {IEN} 0]]> index ^MAG nonnull 2005.02 "B" {NAME} {IEN} 0]]> data ^MAG 2005.02 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 4 1 "^" 2 1 "^" 0 1 Generated class for FileMan File Number: '100.21' File Name: 'OE/RR LIST' Class generated by %fm2class version 2.56 This file contains data related to lists. Generally these lists take the form of provider(s)/patients. persistent _PUBLIC 0 RowId OERR_LIST_100_21 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.627537083 67178,44712.124172045 right OE/RR LIST 100.21 2.56 12/04/2024 12:25:12 1 1 IEN 1 NEW_PERSON_200]]> CREATOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CREATOR Foreign Key constraint for Variable Pointer reference field CURATOR_REMINDER_LIST_RULE CURATORREMINDERLISTRULE VALIP.prosthetic.fm2cw.REMINDERLISTRULE8104 FKey_CURATOR_REMINDER_LIST_RULE DEVICE_3_5]]> DEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_DEVICE FileMan Field Label: 'CREATION D/T' FileMan Field Number: '1.65' This field stores the date of creation of the list. %Library.FilemanTimeStamp 8 CREATION_DT FileMan Field Label: 'CREATOR' FileMan Field Number: '1.6' Creator of Team List This is the IEN of the user who creates the Team List. VALIP.prosthetic.fm2cw.NEWPERSON200 7 CREATOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OERR_LIST_100_21 where %ID=:id) set {CREATOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREATOR_NAME 1 FileMan Field Label: 'CURATOR' FileMan Field Number: '12.2' This is the package or entity that is responsible for curating the members on this list. %Library.String 12 1 CURATORREMINDERLISTRULE CURATOR Variable Pointer Reference Field for Pointer field REMINDER_LIST_RULE 'REMINDER LIST RULE' VALIP.prosthetic.fm2cw.REMINDERLISTRULE8104 13 1 CURATOR_REMINDER_LIST_RULE NAME This is the name of the list rule. National list rules are prefixed VA- and class national. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OERR_LIST_100_21 where %ID=:id) set {CURATOR_REMINDER_LIST_RULE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CURATOR_REMINDER_LIST_RULE_NAME 1 Variable Pointer Value Field for Pointer field CURATOR %Library.String 1 14 if {CURATOR_REMINDER_LIST_RULE_NAME}'="" { set {*}={CURATOR_REMINDER_LIST_RULE_NAME} quit } set {*}="" 1 CURATOR_VALUE FileMan Field Label: 'DEVICE' FileMan Field Number: '1.5' Device from the DEVICE file linked to the list. VALIP.prosthetic.fm2cw.DEVICE35 6 DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OERR_LIST_100_21 where %ID=:id) set {DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEVICE_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^OR(100.21,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LAST UPDATED D/T' FileMan Field Number: '12.1' This is the date/time the members on this list were last updated. %Library.FilemanTimeStamp 11 LAST_UPDATED_DT FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the list being defined. %Library.String 1 3 NAME FileMan Field Label: 'SUBSCRIBE' FileMan Field Number: '1.7' This field stores either a Y or N (for YES or NO) entry and is used in CPRS to determine whether or not individual users will be allowed to add or remove themselves as members of the team list if it is of autolink or manual type. %Library.EnumString 9 SUBSCRIBE Relationship for Sub-File/Multiple to file name AUTOLINK child VALIP.prosthetic.fm2cw.SUBAUTOLINK100213 children OERRLIST10021 1 SUB_AUTOLINK_100_213 Relationship for Sub-File/Multiple to file name MEMBER child VALIP.prosthetic.fm2cw.SUBMEMBER1002101 children OERRLIST10021 1 SUB_MEMBER_100_2101 Relationship for Sub-File/Multiple to file name USER child VALIP.prosthetic.fm2cw.SUBUSER100212 children OERRLIST10021 1 SUB_USER_100_212 FileMan Field Label: 'TYPE' FileMan Field Number: '1' This is the type of list being defined. List type currently includes team and personal. o Team lists o TM - Manually maintained (addition and removal) o TA - Maintained by Autolinks for addition and removal of patients. o MRAL - Manual removal of patients from the list with Autolink addition of patients to the list. o Personal lists o P - Manually maintained (addition and removal) %Library.EnumString 5 TYPE FileMan Field Label: 'UPPER CASE' FileMan Field Number: '.1' This is the name of the list in upper case. Used for look-up. %Library.String 4 UPPER_CASE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 15 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VISIBILITY' FileMan Field Number: '11' PATIENT LIST VISIBILITY This field is used as a means to control who can see this list and the patients that are contained within it. If it is set to 0, then only the owner can see it. If it is set to 1, then everybody can see it. The default is owner only. %Library.EnumString 10 VISIBILITY BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^OR(100.21," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(100.21,"+1,",.01)={"NAME"} set:{UPPER_CASE}'="" FDA(100.21,"+1,",.1)={"UPPER_CASE"} set:{TYPE}'="" FDA(100.21,"+1,",1)={"TYPE"} set:{DEVICE}'="" FDA(100.21,"+1,",1.5)={"DEVICE"} set:{CREATOR}'="" FDA(100.21,"+1,",1.6)={"CREATOR"} set:{CREATION_DT}'="" FDA(100.21,"+1,",1.65)={"CREATION_DT"} set:{SUBSCRIBE}'="" FDA(100.21,"+1,",1.7)={"SUBSCRIBE"} set:{VISIBILITY}'="" FDA(100.21,"+1,",11)={"VISIBILITY"} set:{LAST_UPDATED_DT}'="" FDA(100.21,"+1,",12.1)={"LAST_UPDATED_DT"} set:{CURATOR}'="" FDA(100.21,"+1,",12.2)={"CURATOR"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(100.21)") set %SkipFiling=1 if $d(%FMERR(100.21,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100.21)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(100.21,IENS,.01)={NAME} set:{UPPER_CASE*C} FDA(100.21,IENS,.1)={UPPER_CASE} set:{TYPE*C} FDA(100.21,IENS,1)={TYPE} set:{DEVICE*C} FDA(100.21,IENS,1.5)={DEVICE} set:{CREATOR*C} FDA(100.21,IENS,1.6)={CREATOR} set:{CREATION_DT*C} FDA(100.21,IENS,1.65)={CREATION_DT} set:{SUBSCRIBE*C} FDA(100.21,IENS,1.7)={SUBSCRIBE} set:{VISIBILITY*C} FDA(100.21,IENS,11)={VISIBILITY} set:{LAST_UPDATED_DT*C} FDA(100.21,IENS,12.1)={LAST_UPDATED_DT} set:{CURATOR*C} FDA(100.21,IENS,12.2)={CURATOR} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(100.21)") set %SkipFiling=1 if $d(%FMERR(100.21,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100.21)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.OERRLIST10021S index ^OR nonnull 100.21 "B" {NAME} {IEN} 0]]> index ^OR nonnull 100.21 "D" {UPPER_CASE} {IEN} 0]]> data ^OR 100.21 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 7 "^" 0 5 "^" 12 2 If $p($p($g(^OR({S1},{S2},12)),"^",2),";",2,999)'="PXRM(810.4," s {CURATOR_REMINDER_LIST_RULE}="" Quit s {CURATOR_REMINDER_LIST_RULE}=$p($p($g(^OR({S1},{S2},12)),"^",2),";") "^" 0 4 "^" 12 1 "^" 0 1 "^" 0 6 "^" 0 2 "^" 0 3 "^" 11 1 Generated class for FileMan File Number: '131.7' File Name: 'OPERATING ROOM' Class generated by %fm2class version 2.56 This file contains information regarding the operating rooms. It includes a number of fields that cannot be edited using fileman. Those fields include the PATTERN, BLOCK SCHEDULE DATE and SERVICE BLOCKOUT. persistent _PUBLIC 0 RowId OPERATING_ROOM_131_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.624752716 67178,44712.162511504 right OPERATING ROOM 131.7 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: 'CLEANING TIME' FileMan Field Number: '10' Average Time to Clean this Operating Room This is the average number of minutes required to clean this operating room after completion of a case. It will be used in determining operating room utilization. %Library.Numeric 6 CLEANING_TIME Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRS(0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '99' Inactive? Enter 'YES' to make this operating room inactive and to prevent its selection and use by users of the Surgery package. A 'YES' in this field indicates that this operating room is not in service. %Library.EnumString 7 INACTIVE FileMan Field Label: 'LOCATION' FileMan Field Number: '1' Location of the Operating Room This is the physical location of the operating room. %Library.String 3 LOCATION FileMan Field Label: 'REMARKS' FileMan Field Number: '4' Remarks or Comments Relating Specifically to this Room These are comments relating specifically to this operating room. %Library.String 5 REMARKS FileMan Field Label: 'TELEPHONE' FileMan Field Number: '3' Telephone Number This is the telephone number of the operating room. %Library.String 4 TELEPHONE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRS(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{LOCATION}'="" FDA(131.7,"+1,",1)={"LOCATION"} set:{TELEPHONE}'="" FDA(131.7,"+1,",3)={"TELEPHONE"} set:{REMARKS}'="" FDA(131.7,"+1,",4)={"REMARKS"} set:{CLEANING_TIME}'="" FDA(131.7,"+1,",10)={"CLEANING_TIME"} set:{INACTIVE}'="" FDA(131.7,"+1,",99)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(131.7)") set %SkipFiling=1 if $d(%FMERR(131.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(131.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{LOCATION*C} FDA(131.7,IENS,1)={LOCATION} set:{TELEPHONE*C} FDA(131.7,IENS,3)={TELEPHONE} set:{REMARKS*C} FDA(131.7,IENS,4)={REMARKS} set:{CLEANING_TIME*C} FDA(131.7,IENS,10)={CLEANING_TIME} set:{INACTIVE*C} FDA(131.7,IENS,99)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(131.7)") set %SkipFiling=1 if $d(%FMERR(131.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(131.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.OPERATINGRODE9ES data ^SRS {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 3 1 "^" 0 6 "^" 0 2 "^" 0 5 "^" 0 4 Generated class for FileMan File Number: '19' File Name: 'OPTION' Class generated by %fm2class version 2.56 Information in this file is used to drive the menu system. Options are created, associated with others on menus, locked, set out-of-order, assigned prohibited times or devices, or given entry/exit actions. The Edit Options of Menu Management should be used (instead of VA FileMan) so that the global root (DIC) and other such fields are given the correct values. Options may be tailored by setting FileMan variables via this file. The Order Enter/Results Reporting package is accessed by using the appropriate option type. It is cross-referenced by name, menu text, uppercase menu text, type, item, synonym, help frame, out-of-order message, lock, prohibited times, restricted devices, and priority. persistent _PUBLIC 0 RowId OPTION_19 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.70253921 67178,44712.194637556 right OPTION 19 2.56 12/04/2024 12:25:12 1 1 IEN 1 NEW_PERSON_200]]> CREATOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CREATOR HELP_FRAME_9_2]]> HELPFRAME VALIP.prosthetic.fm2cw.HELPFRAME92 FKey_HELP_FRAME PACKAGE_9_4]]> PACKAGE VALIP.prosthetic.fm2cw.PACKAGE94 FKey_PACKAGE BULLETIN_3_6]]> SERVERBULLETIN VALIP.prosthetic.fm2cw.BULLETIN36 FKey_SERVER_BULLETIN DEVICE_3_5]]> SERVERDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_SERVER_DEVICE MAIL_GROUP_3_8]]> SERVERMAILGROUP VALIP.prosthetic.fm2cw.MAILGROUP38 FKey_SERVER_MAIL_GROUP FileMan Field Label: 'BY(0)' FileMan Field Number: '76' This variable can be set when you want to sort using a specified cross-reference (even MUMPS), or a list of record numbers in any global, or a list of results on a search template. The only criteria is that the last subscript to sort through is an internal entry number (record number) for the file being printed. This variable should contain the static part of a cross-reference or an open global reference, without the leading up-arrow. Or, if printing from a list of search results, the variable should contain the name of a search template surrounded by square brackets. Ex.: BY(0) = TMP("ZZTEST",$J, BY(0) = DIZ(662001,"AC", BY(0) = [ZZSEARCH] %Library.String 95 BY0 FileMan Field Label: 'BY' FileMan Field Number: '64' Used in the PRINT type option. Enter the fields to be sorted by (delimited by commas) or a bracketed sort template name. Example: '.1,.01 or [SORT TEMPLATE NAME] %Library.String 1 72 s {BY64}=$e({NODE_64},1,245) 1 BY64 FileMan Field Label: 'CREATOR' FileMan Field Number: '3.6' The user who created this option This field defaults to the DUZ of the user who originally set up this option. VALIP.prosthetic.fm2cw.NEWPERSON200 13 CREATOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OPTION_19 where %ID=:id) set {CREATOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREATOR_NAME 1 FileMan Field Label: 'DCOPIES' FileMan Field Number: '68' Used in the PRINT type option. The number of copies desired. SDP space must be available on your system for this option. %Library.Numeric 79 DCOPIES FileMan Field Label: 'DDSFILE' FileMan Field Number: '41' This is the root of the file being edited or displayed entered without the up-arrow, e.g., "DIC(19,". %Library.String 51 DDSFILE FileMan Field Label: 'DDSFILE(1)' FileMan Field Number: '42' This is the global root of the subfile being edited or displayed. %Library.String 52 DDSFILE1 FileMan Field Label: 'DDSPAGE' FileMan Field Number: '43' This optional variable contains the page number of the first page to display to the user when the ScreenMan form is invoked. If this variable is not defined, then by default the first page the user sees is Page 1. %Library.Numeric 53 DDSPAGE S or E, or entered an "Exit" or "Save" command from the Command Line, whether or not any changes were actually made on the form.]]> %Library.String 54 DDSPARM FileMan Field Label: 'DELEGABLE' FileMan Field Number: '13' If this field is marked 'no' in the option file then the XQSMD software will not delegate this option to a user. %Library.EnumString 23 DELEGABLE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '3.5' This field contains a brief explanation of the particular option. It will be displayed in the menu system to the user when '???' are entered to the selection choice of the parent menu. %Library.String 12 DESCRIPTION FileMan Field Label: '*DEVICE FOR QUEUED JOB OUTPUT' FileMan Field Number: '201' This field is OBSOLETE, Please use the new Option scheduling File. %Library.String 118 DEVICE_FOR_QUEUED_JOB_OUTPUT FileMan Field Label: 'DHD' FileMan Field Number: '67' Used in the PRINT type option. Enter the free text heading you want printed as the header of your output. (Do not include quotes in your header) %Library.String 1 78 s {DHD}=$e({NODE_67},1,245) 1 DHD FileMan Field Label: 'DHIT' FileMan Field Number: '71' Used in the PRINT type option. Enter a string of MUMPS code that will be executed for every entry after all the fields specified in FLDS have been printed. %Library.String 1 90 s {DHIT}=$e({NODE_71},1,245) 1 DHIT FileMan Field Label: 'DIASKHD' FileMan Field Number: '79' If this field is set to '1' then the variable DIASKHDR will be defined when FileMan is called to print. The user will then be prompted for a header for the report. %Library.EnumString 99 DIASKHD FileMan Field Label: 'DIC(0)' FileMan Field Number: '31' Used in conjunction with the EDIT and INQUIRE type options for finding an entry. Enter the parameters used in file-lookups. A = Ask and reask entry C = Cross reference suppression is turned off E = Echo back the entry F = Forget storing the lookup value (for space bar recall) I = Ignore any special lookup program L = Learning (LAYGO - adding a new entry) allowed M = Look up entry using all available indexes N = Allow internal entry number as input O = Look up an entry in the old way Q = Question input if match not found X = Exact match of input required Z = Zero entry node returned in variable Y(0) and the external value of the .01 field in Y(0,0) %Library.String 1 39 s {DIC0}=$e({NODE_31},1,9) 1 DIC0 FileMan Field Label: 'DIC(A)' FileMan Field Number: '32' Used in conjunction with the EDIT and INQUIRE type option for finding an entry. Enter the prompt to be displayed instead of the usual 'Select FILENAME NAME' format. Example: DIC(A)="Please enter patient name: " Would display to user - Please enter patient name: Rather than the usual - Select PATIENT NAME: %Library.String 1 41 s {DICA}=$e({NODE_32},1,245) 1 DICA FileMan Field Label: 'DIC(B)' FileMan Field Number: '33' Used in conjunction with the EDIT and INQUIRE type options for finding an entry. Enter the default value you want displayed to user when selecting the entry to use. Example: DIC(B)="JONES,JOHN" Would produce the display - Select PATIENT NAME: JONES,JOHN// Rather than the usual display - Select PATIENT NAME: %Library.String 1 43 s {DICB}=$e({NODE_33},1,245) 1 DICB FileMan Field Label: 'DIC(S)' FileMan Field Number: '34' Used in conjunction with INQUIRE and EDIT type options for screening entry selection. Enter executable MUMPS code that will screen out entries that should NOT be selected. An entry is only selectable when the executable code produces a truth value of 1. For example: DIC(S)=I $P(^(0),U,2)="M" allows only males to be selected if the second piece of the entry's zero node contained an 'M' for Male or 'F' for Female. %Library.String 1 45 s {DICS}=$e({NODE_34},1,245) 1 DICS FileMan Field Label: 'DIC(W)' FileMan Field Number: '35' Used in conjunction with the EDIT and INQUIRE type options for matching user input. Enter MUMPS code that will be executed each time a match (matches) is found for user input. Example: DIC(W)=W:$D(^(.1)) "Patient is currently on ward ",^(.1) produces the display - JONES,JOHN Patient is currently on ward 2SE NOTE: This will override identifier displays. %Library.String 1 47 s {DICW}=$e({NODE_35},1,245) 1 DICW FileMan Field Label: 'DIC {DIC}' FileMan Field Number: '30' SELECT FILE IN DIC Used in conjunction with EDIT and INQUIRE type options to lookup an entry. for use. The global reference of the file to be used in lookup (without the '^'). For example: DPT( %Library.String 1 37 s {DIC_DIC}=$e({NODE_30},1,64) 1 DIC_DIC FileMan Field Label: 'DIC {DIP}' FileMan Field Number: '60' The global reference of the file to be used in PRINT type option. example: DPT( %Library.String 1 65 s {DIC_DIP}=$e({NODE_60},1,64) 1 DIC_DIP FileMan Field Label: 'DIC {DIQ}' FileMan Field Number: '80' Used in the INQUIRY type option. The global reference of the file to be used in the inquiry. example: DPT( %Library.String 1 102 s {DIC_DIQ}=$e({NODE_80},1,64) 1 DIC_DIQ FileMan Field Label: 'DIE' FileMan Field Number: '50' Used in the EDIT type option. The global reference of the file to be used in the edit. example: DPT( %Library.String 1 56 s {DIE}=$e({NODE_50},1,64) 1 DIE FileMan Field Label: '*DIE(W)' FileMan Field Number: '54' Enter a WRITE statement in this field and the WRITE statement will be used instead of VA FileMan's regular prompt for the field being edited. %Library.String 1 63 s {DIEW}=$e({NODE_54},1,245) 1 DIEW FileMan Field Label: 'DIOBEG' FileMan Field Number: '72' Used in the PRINT type option. Enter a string of MUMPS code that will be executed before the printout starts. %Library.String 1 92 s {DIOBEG}=$e({NODE_72},1,245) 1 DIOBEG FileMan Field Label: 'DIOEND' FileMan Field Number: '73' Used in the PRINT type option. Enter a string of MUMPS code that will be executed after the printout has finished but before returning to the calling program. %Library.String 1 94 s {DIOEND}=$e({NODE_73},1,245) 1 DIOEND FileMan Field Label: 'DIPCRIT' FileMan Field Number: '78' When set to 1, causes SEARCH or SORT criteria to print in the heading of the first page of a report, along with the standard header. If called from SEARCH option, both SEARCH and SORT criteria print. %Library.EnumString 98 DIPCRIT FileMan Field Label: 'DIQ(0)' FileMan Field Number: '82' This field determines if you want Computed Fields and Record Number (IEN) displayed with each record. Leave this field blank if you don't want Record Number or Computed Fields displayed. %Library.EnumString 1 106 s {DIQ0}=$e({NODE_82},1,245) 1 DIQ0 2791231) If used in conjunction with fields DIS(1), DIS(2), and DIS(3), the entry will print if DIS(0) and DIS(1) are true, OR if DIS(0) and DIS(2) are true, OR if DIS(0) and DIS(3) are true. Note: You may have DIS(0) only, or DIS(0) in combination with DIS(1) only, or DIS(1) and DIS(2), or DIS(1), DIS(2), and DIS(3). ]]> %Library.String 1 81 s {DIS0}=$e({NODE_69},1,245) 1 DIS0 FileMan Field Label: 'DIS(1)' FileMan Field Number: '69.1' This field may be used in PRINT options along with DIS(0) and the other DIS(n) fields. Each DIS field is examined in order (beginning with 0) for M code that will produce a $T value to determine whether or not the data pointed to by D0 should be printed. See the description of D(0) (field #69) for more information. %Library.String 1 83 s {DIS1}=$e({NODE_69_1},1,245) 1 DIS1 FileMan Field Label: 'DIS(2)' FileMan Field Number: '69.2' This field may be used in PRINT options along with DIS(0) and the other DIS(n) fields. Each DIS field is examined in order (beginning with 0) for M code that will produce a $T value to determine whether or not the data pointed to by D0 should be printed. See the description of D(0) (field #69) for more information. %Library.String 1 85 s {DIS2}=$e({NODE_69_2},1,245) 1 DIS2 FileMan Field Label: 'DIS(3)' FileMan Field Number: '69.3' This field may be used in PRINT options along with DIS(0) and the other DIS(n) fields. Each DIS field is examined in order (beginning with 0) for M code that will produce a $T value to determine whether or not the data pointed to by D0 should be printed. See the description of D(0) (field #69) for more information. %Library.String 1 87 s {DIS3}=$e({NODE_69_3},1,245) 1 DIS3 FileMan Field Label: 'DISPLAY OPTION?' FileMan Field Number: '11' This field controls the action of the Menu system if the user has automenu turned on. If this field is set then the menu system will stop and ask 'Press return to continue'. before showing the menu again. %Library.EnumString 21 DISPLAY_OPTION FileMan Field Label: 'DISTEMP' FileMan Field Number: '79.5' This field MUST be defined in order to call the FileMan routine to RE-DO a search using the search criteria from an existing SEARCH TEMPLATE (routine ENS^DIS). The field must contain the name of a SEARCH TEMPLATE. This template name can be enclosed in square brackets but the brackets are not required. Note that if there are already search results on the template, they will be replaced by a new list of search results when this option is run. %Library.String 100 DISTEMP FileMan Field Label: 'DISUPNO' FileMan Field Number: '77' If there are no matches found in a SEARCH, or if there are no records to print in a PRINT, VA FileMan still prints a header and a message informing the user that there were 0 matches, or no records to print. If this input variable is set to 1, that print of the header will be suppressed and nothing will print. %Library.EnumString 97 DISUPNO FileMan Field Label: '*DR()' FileMan Field Number: '52' %Library.String 1 60 s {DR}=$e({NODE_52},1,245) 1 DR FileMan Field Label: 'DR{DDS}' FileMan Field Number: '40' This field contains the name of the form from the Form File enclosed in square brackets, e.g., "[MYFORM]". %Library.String 50 DRDDS FileMan Field Label: 'DR {DIE}' FileMan Field Number: '51' Used in the EDIT type option. Enter the string of field numbers (delimited by semi-colons) to be edited or a bracketed input template name. example: .01;.03;3;.351 or [INPUT TEMPLATE NAME] %Library.String 1 58 s {DR_DIE}=$e({NODE_51},1,245) 1 DR_DIE FileMan Field Label: 'DR {DIQ}' FileMan Field Number: '81' Used in the INQUIRY type option. Enter the GLOBAL SUBSCRIPTS that you want displayed on the inquiry. Any fields residing in these global nodes will be displayed in standard captioned output format. Multiple subscripts can be delimited by a semi-colon or a range of subscripts may be used delimiting the starting subscript and ending subscript with a colon. NOTE: Field security is not matched against user access for this option. Data will be displayed regardless of user READ access to those fields. example: DR {DIQ}=0;.1 Would display any fields whose global location was in either global node 0 or global node .1 %Library.String 1 104 s {DR_DIQ}=$e({NODE_81},1,245) 1 DR_DIQ FileMan Field Label: 'D.' FileMan Field Number: '36' Used in conjunction with the INQUIRE and EDIT type options for selecting an entry. Enter the subscript of the cross reference to be used for entry look-up. example: D.=C Would only check for user input against the "C" cross-reference. If DIC(0) contains an "M" meaning multi-index look-up, then this value will be used as a starting point for the multi-index look-up. To restrict the look-up only to a single index then DIC(0) must NOT contain an "M". %Library.String 1 49 s {D_}=$e({NODE_36},1,245) 1 D_ FileMan Field Label: 'ENTRY ACTION' FileMan Field Number: '20' MUMPS code that is executed upon entry to this option for all option types. When an option is first envoked this code is executed, but if you drop back into the option from a higher-level option (with a simple [RETURN]), for instance, it is NOT executed. See Header field (field # 26). %Library.String 1 28 s {ENTRY_ACTION}=$e({NODE_20},1,245) 1 ENTRY_ACTION FileMan Field Label: 'EXIT ACTION' FileMan Field Number: '15' This field contains mumps code which will be executed on leaving this option. It is applicable to all option types. %Library.String 1 26 s {EXIT_ACTION}=$e({NODE_15},1,245) 1 EXIT_ACTION FileMan Field Label: 'E ACTION PRESENT' FileMan Field Number: '14' This field will contain a '1' if the option has an entry action in field #20. %Library.EnumString 24 E_ACTION_PRESENT FileMan Field Label: 'FLDS' FileMan Field Number: '63' Used in the PRINT type option. Enter the fields to be printed (delimited by commas) or the bracketed print template name. Fileman formatting criteria can also be entered. example: .01;"PATIENT NAME";C1,.02,.1 or [PRINT TEMPLATE NAME] %Library.String 1 70 s {FLDS}=$e({NODE_63},1,245) 1 FLDS %Library.String 1 74 s {FR}=$e({NODE_65},1,245) 1 FR FileMan Field Label: 'HEADER' FileMan Field Number: '26' This field of MUMPS code is executed each time the option is envoked, whether the user is moving down through the tree of options, or backing up through the options already envoked; unlike the entry action which is only executed when envoking an option from above, and not when backing up into it. %Library.String 1 35 s {HEADER}=$e({NODE_26},1,245) 1 HEADER FileMan Field Label: 'HEADER PRESENT?' FileMan Field Number: '.26' This field is set to 1 by a trigger on field #26 when MUMPS code is entered into it. %Library.EnumString 6 HEADER_PRESENT FileMan Field Label: 'HELP FRAME' FileMan Field Number: '3.7' This field contains a pointer to the help text which describes this option. The help text is displayed to the user on entering '?OPTION'. VALIP.prosthetic.fm2cw.HELPFRAME92 14 HELP_FRAME NAME SHORT DESCRIPTION OF THE FRAME The unique name of the frame, preceded with the package prefix name, similar to option names.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OPTION_19 where %ID=:id) set {HELP_FRAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HELP_FRAME_NAME 1 FileMan Field Label: 'ICON' FileMan Field Number: '300' %Library.String 132 ICON Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(19,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDEPENDENTLY INVOCABLE' FileMan Field Number: '110' Independently Invocable This field is only to document those options that the site can't randomly add to other options. If this field is NO then this option requires that some option or action has been done before it can be called. If this field is YES then this option can be invoked at any time. It is up to the developer to set this field. The MENU system doesn't look at this at any time. %Library.EnumString 116 INDEPENDENTLY_INVOCABLE FileMan Field Label: 'IOP' FileMan Field Number: '70' The default output device. Enter a valid Device Name or "HOME" to mean output will always go to the home device. %Library.String 88 IOP FileMan Field Label: 'KEEP FROM DELETING' FileMan Field Number: '209.2' This field is to keep the DELETE UNREFERENCED OPTIONS routine from selecting this option for deletion even if it isn't referenced in the normal ways. Like "Parent of Queuable Options" (ZTMQUEUABLE OPTIONS) or XUCOMMAD. Normal options don't need to set this field. %Library.EnumString 122 KEEP_FROM_DELETING FileMan Field Label: 'L(0)' FileMan Field Number: '76.1' This variable should ONLY be set if BY(0) is set, and is REQUIRED if BY(0) is set. It should be equal to the total number of variable subscripts that FileMan needs to sort through in order to reach the record number, PLUS 1 for the record number itself. For example, if BY(0) defines a regular cross-reference, L(0)=2 (1 for the cross-referenced field value, and 1 for the record number, D0). If sorting through a list of record numbers in ^TMP($J,D0), L(0)=1 (1 for the record number, D0). %Library.Numeric 96 L0 FileMan Field Label: 'LOCK' FileMan Field Number: '3' The name of the key required of the user to access this option This field is used to deny access to users which have this option as part of their menu. If an option has a lock, then only users which hold the matching key can access it. %Library.String 10 LOCK FileMan Field Label: 'L.' FileMan Field Number: '62' Used in the PRINT type option. This entry should always contain a 0. If a 1 is entered for this field, all predetermined ranges of sorts (fields TO and FR), print fields (field FLDS) and header (DHD) are overriden and the user will be asked for sort ranges, print fields and header. %Library.String 1 68 s {L_}=$e({NODE_62},1,245) 1 L_ FileMan Field Label: 'MENU TEXT' FileMan Field Number: '1' The option's text, as it appears on the menu The name as the option as it will be displayed to the user within the menu system. ** The 'C' X-ref has been moved to the uppercase field. ** %Library.String 1 7 MENU_TEXT FileMan Field Label: 'NAME' FileMan Field Number: '.01' A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A". %Library.String 1 3 NAME Computed Field For Node 100 %Library.String 1 110 s {NODE_100}=$g(^DIC(19,{IEN},100)) 1 NODE_100 Computed Field For Node 100.1 %Library.String 1 112 s {NODE_100_1}=$g(^DIC(19,{IEN},100.1)) 1 NODE_100_1 Computed Field For Node 100.2 %Library.String 1 114 s {NODE_100_2}=$g(^DIC(19,{IEN},100.2)) 1 NODE_100_2 Computed Field For Node 15 %Library.String 1 25 s {NODE_15}=$g(^DIC(19,{IEN},15)) 1 NODE_15 Computed Field For Node 20 %Library.String 1 27 s {NODE_20}=$g(^DIC(19,{IEN},20)) 1 NODE_20 Computed Field For Node 22 %Library.String 1 30 s {NODE_22}=$g(^DIC(19,{IEN},22)) 1 NODE_22 Computed Field For Node 25 %Library.String 1 32 s {NODE_25}=$g(^DIC(19,{IEN},25)) 1 NODE_25 Computed Field For Node 26 %Library.String 1 34 s {NODE_26}=$g(^DIC(19,{IEN},26)) 1 NODE_26 Computed Field For Node 30 %Library.String 1 36 s {NODE_30}=$g(^DIC(19,{IEN},30)) 1 NODE_30 Computed Field For Node 31 %Library.String 1 38 s {NODE_31}=$g(^DIC(19,{IEN},31)) 1 NODE_31 Computed Field For Node 32 %Library.String 1 40 s {NODE_32}=$g(^DIC(19,{IEN},32)) 1 NODE_32 Computed Field For Node 33 %Library.String 1 42 s {NODE_33}=$g(^DIC(19,{IEN},33)) 1 NODE_33 Computed Field For Node 34 %Library.String 1 44 s {NODE_34}=$g(^DIC(19,{IEN},34)) 1 NODE_34 Computed Field For Node 35 %Library.String 1 46 s {NODE_35}=$g(^DIC(19,{IEN},35)) 1 NODE_35 Computed Field For Node 36 %Library.String 1 48 s {NODE_36}=$g(^DIC(19,{IEN},36)) 1 NODE_36 Computed Field For Node 50 %Library.String 1 55 s {NODE_50}=$g(^DIC(19,{IEN},50)) 1 NODE_50 Computed Field For Node 51 %Library.String 1 57 s {NODE_51}=$g(^DIC(19,{IEN},51)) 1 NODE_51 Computed Field For Node 52 %Library.String 1 59 s {NODE_52}=$g(^DIC(19,{IEN},52)) 1 NODE_52 Computed Field For Node 54 %Library.String 1 62 s {NODE_54}=$g(^DIC(19,{IEN},54)) 1 NODE_54 Computed Field For Node 60 %Library.String 1 64 s {NODE_60}=$g(^DIC(19,{IEN},60)) 1 NODE_60 Computed Field For Node 62 %Library.String 1 67 s {NODE_62}=$g(^DIC(19,{IEN},62)) 1 NODE_62 Computed Field For Node 63 %Library.String 1 69 s {NODE_63}=$g(^DIC(19,{IEN},63)) 1 NODE_63 Computed Field For Node 64 %Library.String 1 71 s {NODE_64}=$g(^DIC(19,{IEN},64)) 1 NODE_64 Computed Field For Node 65 %Library.String 1 73 s {NODE_65}=$g(^DIC(19,{IEN},65)) 1 NODE_65 Computed Field For Node 66 %Library.String 1 75 s {NODE_66}=$g(^DIC(19,{IEN},66)) 1 NODE_66 Computed Field For Node 67 %Library.String 1 77 s {NODE_67}=$g(^DIC(19,{IEN},67)) 1 NODE_67 Computed Field For Node 69 %Library.String 1 80 s {NODE_69}=$g(^DIC(19,{IEN},69)) 1 NODE_69 Computed Field For Node 69.1 %Library.String 1 82 s {NODE_69_1}=$g(^DIC(19,{IEN},69.1)) 1 NODE_69_1 Computed Field For Node 69.2 %Library.String 1 84 s {NODE_69_2}=$g(^DIC(19,{IEN},69.2)) 1 NODE_69_2 Computed Field For Node 69.3 %Library.String 1 86 s {NODE_69_3}=$g(^DIC(19,{IEN},69.3)) 1 NODE_69_3 Computed Field For Node 71 %Library.String 1 89 s {NODE_71}=$g(^DIC(19,{IEN},71)) 1 NODE_71 Computed Field For Node 72 %Library.String 1 91 s {NODE_72}=$g(^DIC(19,{IEN},72)) 1 NODE_72 Computed Field For Node 73 %Library.String 1 93 s {NODE_73}=$g(^DIC(19,{IEN},73)) 1 NODE_73 Computed Field For Node 80 %Library.String 1 101 s {NODE_80}=$g(^DIC(19,{IEN},80)) 1 NODE_80 Computed Field For Node 81 %Library.String 1 103 s {NODE_81}=$g(^DIC(19,{IEN},81)) 1 NODE_81 Computed Field For Node 82 %Library.String 1 105 s {NODE_82}=$g(^DIC(19,{IEN},82)) 1 NODE_82 FileMan Field Label: 'NO UP-ARROW' FileMan Field Number: '53' Used in the EDIT type option. If an 'N' is entered, no up-arrowing (^) is allowed while editing either for exiting the edit entirely or branching to other fields. If an 'OUTOK' is entered, you may up-arrow (^) entirely out of the edit but not be allowed to jump to other fields. If an 'BACK' is entered, you may jump to a previously edited field but not entirely out. If an 'BACKOUTOK' is entered, you may jump back to previously edited fields and up-arrow (^) to exit. If no entry is in this field, you may jump to other fields or up-arrow (^) out of the entire edit process. %Library.EnumString 61 NO_UPARROW FileMan Field Label: '*ORDER CANCEL ACTION' FileMan Field Number: '100.1' %Library.String 1 113 s {ORDER_CANCEL_ACTION}=$e({NODE_100_1},1,245) 1 ORDER_CANCEL_ACTION FileMan Field Label: '*ORDER PRINT ACTION' FileMan Field Number: '100' %Library.String 1 111 s {ORDER_PRINT_ACTION}=$e({NODE_100},1,245) 1 ORDER_PRINT_ACTION FileMan Field Label: '*ORDER PURGE ACTION' FileMan Field Number: '100.2' %Library.String 1 115 s {ORDER_PURGE_ACTION}=$e({NODE_100_2},1,245) 1 ORDER_PURGE_ACTION FileMan Field Label: 'OUTPUT RESTRICTED?' FileMan Field Number: '3.93' This field will contain a '1' if output from this option is restricted to certain days and times. %Library.EnumString 17 OUTPUT_RESTRICTED FileMan Field Label: 'OUT OF ORDER MESSAGE' FileMan Field Number: '2' If there is a message here, the option is out of order This field is used to temporarily disable an option. If it is filled in, the message here will be displayed whenever the user attempts to select the option. %Library.String 9 OUT_OF_ORDER_MESSAGE FileMan Field Label: 'PACKAGE' FileMan Field Number: '12' This field indicates the package with which this option is associated. VALIP.prosthetic.fm2cw.PACKAGE94 22 PACKAGE NAME The name of this Package.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OPTION_19 where %ID=:id) set {PACKAGE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PACKAGE_NAME 1 FileMan Field Label: 'PG' FileMan Field Number: '61' Used in the PRINT type option. The page number that should appear on first page of report. (This number ONLY effects page numbering, NOT at which entry the report should begin printing). If this field is left blank, then page 1 is assumed. %Library.Numeric 66 PG FileMan Field Label: 'PRIMARY MENU' FileMan Field Number: '1613' This field will have a value only if the Option is a 'high-level' menu Option, which could be assigned to a typical user. For example, the value of this field might be "PHARMACIST", or "ADMISSIONS CLERK" %Library.String 134 PRIMARY_MENU FileMan Field Label: 'PRIORITY' FileMan Field Number: '3.8' If this field is null, the option will run at the current priority, otherwise, priorities range from 1-10, a low number indicating lower priority. The priority is in effect while the current option is being executed. %Library.Numeric 15 PRIORITY FileMan Field Label: 'PROHIBITED TIMES' FileMan Field Number: '3.9' This specifies a time range during which this option cannot be accessed. The time should be entered in military format. For example, to prohibit an option from running between 9 AM and 2 PM, enter 0900-1400. %Library.String 16 PROHIBITED_TIMES FileMan Field Label: 'PROTECTED VARIABLES' FileMan Field Number: '1840' This field holds a list of variables that need to be protected when another package call KILL^XUSCLEAN. These should all be documented package wide variables. The format is that of a list of variable names separated by commas. i.e. DUZ,DTIME,DT %Library.String 135 PROTECTED_VARIABLES FileMan Field Label: '*QUEUED TO RUN AT WHAT TIME' FileMan Field Number: '200' TIME AT WHICH TASKMAN WILL AUTOMATICALLY START UP THIS OPTION This field is OBSOLETE, Please use the new Option scheduling File. %Library.FilemanDate 117 QUEUED_TO_RUN_AT_WHAT_TIME FileMan Field Label: '*QUEUED TO RUN ON VOLUME SET' FileMan Field Number: '203' This field is OBSOLETE, Please use the new Option scheduling File. %Library.String 120 QUEUED_TO_RUN_ON_VOLUME_SET FileMan Field Label: '*RESCHEDULING FREQUENCY' FileMan Field Number: '202' FREQUENCY WITH WHICH THIS OPTION WILL BE AUTOMATICALLY RESCHEDULED TO RUN This field is OBSOLETE, Please use the new Option scheduling File. %Library.String 119 RESCHEDULING_FREQUENCY FileMan Field Label: 'RESTRICT DEVICES?' FileMan Field Number: '3.95' This indicates whether the option is allowed to run on selected devices only. If this field contains a 'y', the option will be enabled only for the devices entered in the field 'PERMITTED DEVICE.' %Library.EnumString 18 RESTRICT_DEVICES FileMan Field Label: 'REVERSE/NEGATIVE LOCK' FileMan Field Number: '3.01' This field may contain a pointer to the Key File. If it does, the user may not access this option if he or she holds that key. %Library.String 11 REVERSENEGATIVE_LOCK FileMan Field Label: 'REV KEY PRESENT' FileMan Field Number: '.16' This field will be set to '1' if this option has a reverse key assigned to it. %Library.EnumString 5 REV_KEY_PRESENT FileMan Field Label: 'ROUTINE' FileMan Field Number: '25' A ROUTINE TO EXECUTE, IF OPTION TYPE "R" Indicate the name of the tag, routine, and parameters. e.g. ROUTINE, or TAG^ROUTINE(parameters). %Library.String 1 33 s {ROUTINE}=$e({NODE_25},1,245) 1 ROUTINE FileMan Field Label: 'SAVE REQUEST' FileMan Field Number: '226' If there is a 1 in this field or if this field is null, then the server request message is saved in a mailbox for the Postmaster that is named "S."option_name. %Library.EnumString 129 SAVE_REQUEST FileMan Field Label: 'SCHEDULING RECOMMENDED' FileMan Field Number: '209' This field should be filled in by developers to allow reports of options that a site should consider seting up for background scheduling. %Library.EnumString 121 SCHEDULING_RECOMMENDED FileMan Field Label: 'SERVER ACTION' FileMan Field Number: '221' A set of codes which tell the menu system what to do when a request for this server option is received from the mail system. %Library.EnumString 124 SERVER_ACTION FileMan Field Label: 'SERVER AUDIT' FileMan Field Number: '223' This set of codes will determine whethere or not auditing will take place. If auditing is turned on with a 'Y' (YES) response the menu system will record: 1. The server option requested, 2. Date/time of the request, 3. User (Postmaster), 4. Device (none), 5. Job #, 6. Date/time of exit from the option, 7. CPU, 8. Request result (error message, "task completed normally", etc. %Library.EnumString 126 SERVER_AUDIT FileMan Field Label: 'SERVER BULLETIN' FileMan Field Number: '220' This field may contain a pointer to the bulletin which will override the default bulletin XQSERVER for a server-type option. This bulletin will be usedto notify the users in the event of a security breach, etc. VALIP.prosthetic.fm2cw.BULLETIN36 123 SERVER_BULLETIN NAME A Unique name of bulletin, beginning with the package prefix This field is the name of the bulletin, in the standard format of a two character package prefix, followed by a descriptive name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OPTION_19 where %ID=:id) set {SERVER_BULLETIN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVER_BULLETIN_NAME 1 FileMan Field Label: 'SERVER DEVICE' FileMan Field Number: '227' VALIP.prosthetic.fm2cw.DEVICE35 130 SERVER_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OPTION_19 where %ID=:id) set {SERVER_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVER_DEVICE_NAME 1 FileMan Field Label: 'SERVER MAIL GROUP' FileMan Field Number: '222' This field amy contain a pointer to the Mail Group file. This mail group will be notified in the even of a security breach etc. when a server-type option is envoked. VALIP.prosthetic.fm2cw.MAILGROUP38 125 SERVER_MAIL_GROUP NAME MAIL GROUP NAME The name of a mail group, i.e. a list of recipients who can all be addressed at once by reference to this name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.OPTION_19 where %ID=:id) set {SERVER_MAIL_GROUP_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVER_MAIL_GROUP_NAME 1 FileMan Field Label: 'SERVER REPLY' FileMan Field Number: '225' This field controls the transmission of replies to server requests via network mail. If the field contains 'R' a reply will be transmitted to the sender of the server request. If the field contains an 'E' a network reply will be transmitted only in the event that an error was trapped during the attemp to run a server option, Entry or Exit Actions, or the routine associated with a server option. %Library.EnumString 128 SERVER_REPLY FileMan Field Label: 'Short Menu Text' FileMan Field Number: '10.1' This field contains a short version of the Menu Text field (field # 1) for use with multi-column displays. It is a mandatory field. %Library.String 20 SHORT_MENU_TEXT FileMan Field Label: '*SPECIAL QUEUEING' FileMan Field Number: '1916' This field is OBSOLETE, Please use the new Option scheduling File. %Library.EnumString 136 SPECIAL_QUEUEING Relationship for Sub-File/Multiple to file name DISPAR(0,N) child VALIP.prosthetic.fm2cw.SUBDISPAR0N1904 children OPTION19 1 SUB_DISPAR0N_19_04 Relationship for Sub-File/Multiple to file name FR(0,N) child VALIP.prosthetic.fm2cw.SUBFR0N1902 children OPTION19 1 SUB_FR0N_19_02 Relationship for Sub-File/Multiple to file name MENU child VALIP.prosthetic.fm2cw.SUBMENU1901 children OPTION19 1 SUB_MENU_19_01 Relationship for Sub-File/Multiple to file name PERMITTED DEVICE child VALIP.prosthetic.fm2cw.SUBPERMITTEDDEVICE19396 children OPTION19 1 SUB_PERMITTED_DEVICE_19_396 Relationship for Sub-File/Multiple to file name QUEUING REQUIRED child VALIP.prosthetic.fm2cw.SUBQUEUINGREQUIRED19392 children OPTION19 1 SUB_QUEUING_REQUIRED_19_392 Relationship for Sub-File/Multiple to file name RPC child VALIP.prosthetic.fm2cw.SUBRPC1905 children OPTION19 1 SUB_RPC_19_05 Relationship for Sub-File/Multiple to file name SYNONYM child VALIP.prosthetic.fm2cw.SUBSYNONYM190668 children OPTION19 1 SUB_SYNONYM_19_0668 Relationship for Sub-File/Multiple to file name TIMES/DAYS PROHIBITED child VALIP.prosthetic.fm2cw.SUBTIMESDAYSPROHIBITED19391 children OPTION19 1 SUB_TIMESDAYS_PROHIBITED_19_391 Relationship for Sub-File/Multiple to file name TO(0,N) child VALIP.prosthetic.fm2cw.SUBTO0N1903 children OPTION19 1 SUB_TO0N_19_03 FileMan Field Label: 'SUPRESS BULLETIN' FileMan Field Number: '224' SUPRESS SERVER REQUEST BULLETIN If this field contains a 'Y' no bulletin will be fired when a server request is recieved. The default is to send a bulletin. If there is no bulletin in field #220 (SERVER BULLETIN) then the default bulletin XQSERVER is fired off. %Library.EnumString 127 SUPRESS_BULLETIN FileMan Field Label: 'SUPRESS DEVICE PROMPT' FileMan Field Number: '83' %Library.EnumString 107 SUPRESS_DEVICE_PROMPT FileMan Field Label: 'TIMESTAMP' FileMan Field Number: '99' This field contains the timestamp for when the option was created. %Library.String 108 TIMESTAMP FileMan Field Label: 'TIMESTAMP OF PRIMARY MENU' FileMan Field Number: '99.1' This field contains the timestamp of when this primary menu tree was rebuilt. %Library.String 109 TIMESTAMP_OF_PRIMARY_MENU FileMan Field Label: 'TITLE' FileMan Field Number: '301' %Library.String 133 TITLE %Library.String 1 76 s {TO66}=$e({NODE_66},1,245) 1 TO66 FileMan Field Label: 'TYPE' FileMan Field Number: '4' THE TYPE OF OPTION This field indicates the 'category' or type of option. A print-type option, for instance, will call FileMan to print something. Menu-type options point to other options in the tree-structured menu system. The other fields in the options file are filled in depending on the type. There are several fields that will tell a print-type option what to print and how to print it, for example. These same fields may be meaningless to another options type. %Library.EnumString 19 TYPE FileMan Field Label: 'UPPERCASE MENU TEXT' FileMan Field Number: '1.1' %Library.String 8 UPPERCASE_MENU_TEXT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 137 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'XQUIT EXECUTABLE' FileMan Field Number: '22' This field contains code which is executed by the menu system when an XQUIT variable is detected after the execution of this option's ENTRY ACTION. If the execution of this field produces the variable XQNOBACK the Menu System will not attempt to return the user to their previous option, but leave the user at the present stack location. In the case of jumps, the user may be returned to an option that is quite far away if XQNOBACK is not defined. Obviously, the problem that resulted in an XQUIT should first be solved before XQNOBACK is set. If there is no code in this field the default is to return the user to their previous option. %Library.String 1 31 s {XQUIT_EXECUTABLE}=$e({NODE_22},1,245) 1 XQUIT_EXECUTABLE FileMan Field Label: 'XQUIT MESSAGE' FileMan Field Number: '21' %Library.String 29 XQUIT_MESSAGE FileMan Field Label: 'X ACTION PRESENT' FileMan Field Number: '.15' This field will be set to '1' if the option has an entry action. %Library.EnumString 4 X_ACTION_PRESENT FileMan Field Label: 'ZTSK RETENTION DAYS' FileMan Field Number: '228' This is a number between 1 and 365 to incicate the number of days that a server task should be retained by Task Manager in ^ZTSK. The default is 14 days if nothing is entered in this field. For long-term retention see field 226 which allows you to save the server message in a Postmaster mailbox. %Library.Numeric 131 ZTSK_RETENTION_DAYS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(19," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(19,"+1,",.01)={"NAME"} set:{X_ACTION_PRESENT}'="" FDA(19,"+1,",.15)={"X_ACTION_PRESENT"} set:{REV_KEY_PRESENT}'="" FDA(19,"+1,",.16)={"REV_KEY_PRESENT"} set:{HEADER_PRESENT}'="" FDA(19,"+1,",.26)={"HEADER_PRESENT"} set:{MENU_TEXT}'="" FDA(19,"+1,",1)={"MENU_TEXT"} set:{UPPERCASE_MENU_TEXT}'="" FDA(19,"+1,",1.1)={"UPPERCASE_MENU_TEXT"} set:{OUT_OF_ORDER_MESSAGE}'="" FDA(19,"+1,",2)={"OUT_OF_ORDER_MESSAGE"} set:{LOCK}'="" FDA(19,"+1,",3)={"LOCK"} set:{REVERSENEGATIVE_LOCK}'="" FDA(19,"+1,",3.01)={"REVERSENEGATIVE_LOCK"} set:{CREATOR}'="" FDA(19,"+1,",3.6)={"CREATOR"} set:{HELP_FRAME}'="" FDA(19,"+1,",3.7)={"HELP_FRAME"} set:{PRIORITY}'="" FDA(19,"+1,",3.8)={"PRIORITY"} set:{PROHIBITED_TIMES}'="" FDA(19,"+1,",3.9)={"PROHIBITED_TIMES"} set:{OUTPUT_RESTRICTED}'="" FDA(19,"+1,",3.93)={"OUTPUT_RESTRICTED"} set:{RESTRICT_DEVICES}'="" FDA(19,"+1,",3.95)={"RESTRICT_DEVICES"} set:{TYPE}'="" FDA(19,"+1,",4)={"TYPE"} set:{SHORT_MENU_TEXT}'="" FDA(19,"+1,",10.1)={"SHORT_MENU_TEXT"} set:{DISPLAY_OPTION}'="" FDA(19,"+1,",11)={"DISPLAY_OPTION"} set:{PACKAGE}'="" FDA(19,"+1,",12)={"PACKAGE"} set:{DELEGABLE}'="" FDA(19,"+1,",13)={"DELEGABLE"} set:{E_ACTION_PRESENT}'="" FDA(19,"+1,",14)={"E_ACTION_PRESENT"} set:{DRDDS}'="" FDA(19,"+1,",40)={"DRDDS"} set:{DDSFILE}'="" FDA(19,"+1,",41)={"DDSFILE"} set:{DDSFILE1}'="" FDA(19,"+1,",42)={"DDSFILE1"} set:{DDSPAGE}'="" FDA(19,"+1,",43)={"DDSPAGE"} set:{DDSPARM}'="" FDA(19,"+1,",44)={"DDSPARM"} set:{NO_UPARROW}'="" FDA(19,"+1,",53)={"NO_UPARROW"} set:{PG}'="" FDA(19,"+1,",61)={"PG"} set:{DCOPIES}'="" FDA(19,"+1,",68)={"DCOPIES"} set:{IOP}'="" FDA(19,"+1,",70)={"IOP"} set:{BY0}'="" FDA(19,"+1,",76)={"BY0"} set:{L0}'="" FDA(19,"+1,",76.1)={"L0"} set:{DISUPNO}'="" FDA(19,"+1,",77)={"DISUPNO"} set:{DIPCRIT}'="" FDA(19,"+1,",78)={"DIPCRIT"} set:{DIASKHD}'="" FDA(19,"+1,",79)={"DIASKHD"} set:{DISTEMP}'="" FDA(19,"+1,",79.5)={"DISTEMP"} set:{SUPRESS_DEVICE_PROMPT}'="" FDA(19,"+1,",83)={"SUPRESS_DEVICE_PROMPT"} set:{TIMESTAMP}'="" FDA(19,"+1,",99)={"TIMESTAMP"} set:{TIMESTAMP_OF_PRIMARY_MENU}'="" FDA(19,"+1,",99.1)={"TIMESTAMP_OF_PRIMARY_MENU"} set:{INDEPENDENTLY_INVOCABLE}'="" FDA(19,"+1,",110)={"INDEPENDENTLY_INVOCABLE"} set:{QUEUED_TO_RUN_AT_WHAT_TIME}'="" FDA(19,"+1,",200)={"QUEUED_TO_RUN_AT_WHAT_TIME"} set:{DEVICE_FOR_QUEUED_JOB_OUTPUT}'="" FDA(19,"+1,",201)={"DEVICE_FOR_QUEUED_JOB_OUTPUT"} set:{RESCHEDULING_FREQUENCY}'="" FDA(19,"+1,",202)={"RESCHEDULING_FREQUENCY"} set:{QUEUED_TO_RUN_ON_VOLUME_SET}'="" FDA(19,"+1,",203)={"QUEUED_TO_RUN_ON_VOLUME_SET"} set:{SCHEDULING_RECOMMENDED}'="" FDA(19,"+1,",209)={"SCHEDULING_RECOMMENDED"} set:{KEEP_FROM_DELETING}'="" FDA(19,"+1,",209.2)={"KEEP_FROM_DELETING"} set:{SERVER_BULLETIN}'="" FDA(19,"+1,",220)={"SERVER_BULLETIN"} set:{SERVER_ACTION}'="" FDA(19,"+1,",221)={"SERVER_ACTION"} set:{SERVER_MAIL_GROUP}'="" FDA(19,"+1,",222)={"SERVER_MAIL_GROUP"} set:{SERVER_AUDIT}'="" FDA(19,"+1,",223)={"SERVER_AUDIT"} set:{SUPRESS_BULLETIN}'="" FDA(19,"+1,",224)={"SUPRESS_BULLETIN"} set:{SERVER_REPLY}'="" FDA(19,"+1,",225)={"SERVER_REPLY"} set:{SAVE_REQUEST}'="" FDA(19,"+1,",226)={"SAVE_REQUEST"} set:{SERVER_DEVICE}'="" FDA(19,"+1,",227)={"SERVER_DEVICE"} set:{ZTSK_RETENTION_DAYS}'="" FDA(19,"+1,",228)={"ZTSK_RETENTION_DAYS"} set:{ICON}'="" FDA(19,"+1,",300)={"ICON"} set:{TITLE}'="" FDA(19,"+1,",301)={"TITLE"} set:{PRIMARY_MENU}'="" FDA(19,"+1,",1613)={"PRIMARY_MENU"} set:{PROTECTED_VARIABLES}'="" FDA(19,"+1,",1840)={"PROTECTED_VARIABLES"} set:{SPECIAL_QUEUEING}'="" FDA(19,"+1,",1916)={"SPECIAL_QUEUEING"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(19)") set %SkipFiling=1 if $d(%FMERR(19,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(19,{RowId},3.5,,"wp","%FMERR(19)") if $d(%FMERR(19,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {XQUIT_MESSAGE}'="" { set D0={RowId} for i=1:1:$l({XQUIT_MESSAGE},$c(13,10)) { set wp(i)=$p({XQUIT_MESSAGE},$c(13,10),i) } do WP^DIE(19,{RowId},21,,"wp","%FMERR(19)") if $d(%FMERR(19,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(19,IENS,.01)={NAME} set:{X_ACTION_PRESENT*C} FDA(19,IENS,.15)={X_ACTION_PRESENT} set:{REV_KEY_PRESENT*C} FDA(19,IENS,.16)={REV_KEY_PRESENT} set:{HEADER_PRESENT*C} FDA(19,IENS,.26)={HEADER_PRESENT} set:{MENU_TEXT*C} FDA(19,IENS,1)={MENU_TEXT} set:{UPPERCASE_MENU_TEXT*C} FDA(19,IENS,1.1)={UPPERCASE_MENU_TEXT} set:{OUT_OF_ORDER_MESSAGE*C} FDA(19,IENS,2)={OUT_OF_ORDER_MESSAGE} set:{LOCK*C} FDA(19,IENS,3)={LOCK} set:{REVERSENEGATIVE_LOCK*C} FDA(19,IENS,3.01)={REVERSENEGATIVE_LOCK} set:{CREATOR*C} FDA(19,IENS,3.6)={CREATOR} set:{HELP_FRAME*C} FDA(19,IENS,3.7)={HELP_FRAME} set:{PRIORITY*C} FDA(19,IENS,3.8)={PRIORITY} set:{PROHIBITED_TIMES*C} FDA(19,IENS,3.9)={PROHIBITED_TIMES} set:{OUTPUT_RESTRICTED*C} FDA(19,IENS,3.93)={OUTPUT_RESTRICTED} set:{RESTRICT_DEVICES*C} FDA(19,IENS,3.95)={RESTRICT_DEVICES} set:{TYPE*C} FDA(19,IENS,4)={TYPE} set:{SHORT_MENU_TEXT*C} FDA(19,IENS,10.1)={SHORT_MENU_TEXT} set:{DISPLAY_OPTION*C} FDA(19,IENS,11)={DISPLAY_OPTION} set:{PACKAGE*C} FDA(19,IENS,12)={PACKAGE} set:{DELEGABLE*C} FDA(19,IENS,13)={DELEGABLE} set:{E_ACTION_PRESENT*C} FDA(19,IENS,14)={E_ACTION_PRESENT} set:{DRDDS*C} FDA(19,IENS,40)={DRDDS} set:{DDSFILE*C} FDA(19,IENS,41)={DDSFILE} set:{DDSFILE1*C} FDA(19,IENS,42)={DDSFILE1} set:{DDSPAGE*C} FDA(19,IENS,43)={DDSPAGE} set:{DDSPARM*C} FDA(19,IENS,44)={DDSPARM} set:{NO_UPARROW*C} FDA(19,IENS,53)={NO_UPARROW} set:{PG*C} FDA(19,IENS,61)={PG} set:{DCOPIES*C} FDA(19,IENS,68)={DCOPIES} set:{IOP*C} FDA(19,IENS,70)={IOP} set:{BY0*C} FDA(19,IENS,76)={BY0} set:{L0*C} FDA(19,IENS,76.1)={L0} set:{DISUPNO*C} FDA(19,IENS,77)={DISUPNO} set:{DIPCRIT*C} FDA(19,IENS,78)={DIPCRIT} set:{DIASKHD*C} FDA(19,IENS,79)={DIASKHD} set:{DISTEMP*C} FDA(19,IENS,79.5)={DISTEMP} set:{SUPRESS_DEVICE_PROMPT*C} FDA(19,IENS,83)={SUPRESS_DEVICE_PROMPT} set:{TIMESTAMP*C} FDA(19,IENS,99)={TIMESTAMP} set:{TIMESTAMP_OF_PRIMARY_MENU*C} FDA(19,IENS,99.1)={TIMESTAMP_OF_PRIMARY_MENU} set:{INDEPENDENTLY_INVOCABLE*C} FDA(19,IENS,110)={INDEPENDENTLY_INVOCABLE} set:{QUEUED_TO_RUN_AT_WHAT_TIME*C} FDA(19,IENS,200)={QUEUED_TO_RUN_AT_WHAT_TIME} set:{DEVICE_FOR_QUEUED_JOB_OUTPUT*C} FDA(19,IENS,201)={DEVICE_FOR_QUEUED_JOB_OUTPUT} set:{RESCHEDULING_FREQUENCY*C} FDA(19,IENS,202)={RESCHEDULING_FREQUENCY} set:{QUEUED_TO_RUN_ON_VOLUME_SET*C} FDA(19,IENS,203)={QUEUED_TO_RUN_ON_VOLUME_SET} set:{SCHEDULING_RECOMMENDED*C} FDA(19,IENS,209)={SCHEDULING_RECOMMENDED} set:{KEEP_FROM_DELETING*C} FDA(19,IENS,209.2)={KEEP_FROM_DELETING} set:{SERVER_BULLETIN*C} FDA(19,IENS,220)={SERVER_BULLETIN} set:{SERVER_ACTION*C} FDA(19,IENS,221)={SERVER_ACTION} set:{SERVER_MAIL_GROUP*C} FDA(19,IENS,222)={SERVER_MAIL_GROUP} set:{SERVER_AUDIT*C} FDA(19,IENS,223)={SERVER_AUDIT} set:{SUPRESS_BULLETIN*C} FDA(19,IENS,224)={SUPRESS_BULLETIN} set:{SERVER_REPLY*C} FDA(19,IENS,225)={SERVER_REPLY} set:{SAVE_REQUEST*C} FDA(19,IENS,226)={SAVE_REQUEST} set:{SERVER_DEVICE*C} FDA(19,IENS,227)={SERVER_DEVICE} set:{ZTSK_RETENTION_DAYS*C} FDA(19,IENS,228)={ZTSK_RETENTION_DAYS} set:{ICON*C} FDA(19,IENS,300)={ICON} set:{TITLE*C} FDA(19,IENS,301)={TITLE} set:{PRIMARY_MENU*C} FDA(19,IENS,1613)={PRIMARY_MENU} set:{PROTECTED_VARIABLES*C} FDA(19,IENS,1840)={PROTECTED_VARIABLES} set:{SPECIAL_QUEUEING*C} FDA(19,IENS,1916)={SPECIAL_QUEUEING} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19)") set %SkipFiling=1 if $d(%FMERR(19,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(19,{RowId},3.5,,wproot,"%FMERR(19)") if $d(%FMERR(19,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {XQUIT_MESSAGE*C} { set D0={RowId} kill wp if {XQUIT_MESSAGE}'="" { set wproot="wp" for i=1:1:$l({XQUIT_MESSAGE},$c(13,10)) { set wp(i)=$p({XQUIT_MESSAGE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(19,{RowId},21,,wproot,"%FMERR(19)") if $d(%FMERR(19,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.OPTION19S index ^DIC nonnull 19 "AC" {HELP_FRAME} {IEN} 0]]> index ^DIC nonnull 19 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 19 "C" {UPPERCASE_MENU_TEXT} {IEN} 0]]> data ^DIC 19 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 76 1 "^" 0 5 "^" 68 1 "^" 41 1 "^" 42 1 "^" 43 1 "^" 43 2 "^" 0 13 1 new data,i,node set {DESCRIPTION}="" merge data=^DIC(19,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 200 2 "^" 79 1 "^" 79 3 "^" 0 11 "^" 79 4 "^" 79 2 "^" 40 1 "^" 0 14 "^" 0 17 "^" 0 7 "^" "W" 1 "^" 2 1 "^" 70 1 "^" 200.9 2 "^" 79 5 "^" 0 6 "^" 0 2 "^" 0 1 "^" 53 1 "^" 0 18 "^" 0 3 "^" 0 12 "^" 61 1 "^" 1613 1 "^" 0 8 "^" 0 9 "^" "NOKILL" 1 "^" 200 1 "^" 200 4 "^" 200 3 "^" 0 10 "^" 3 1 "^" 0 16 "^" 220 7 "^" 200.9 1 "^" 220 2 "^" 220 4 "^" 220 1 "^" 220 8 "^" 220 3 "^" 220 6 "^" 10.1 1 "^" 1916 1 "^" 220 5 "^" 83 1 "^" 99 1 "^" 99.1 1 "^" "W" 2 "^" 0 4 "^" "U" 1 21 new data,i,node set {XQUIT_MESSAGE}="" merge data=^DIC(19,{S2},21) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {XQUIT_MESSAGE}={XQUIT_MESSAGE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 15 "^" 220 9 Generated class for FileMan File Number: '101.13' File Name: 'OR CPRS TABS' Class generated by %fm2class version 2.56 This file stores CPRS GUI Cover Sheet tab acronyms. persistent _PUBLIC 0 RowId OR_CPRS_TABS_101_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.653064716 67178,44712.407169669 right OR CPRS TABS 101.13 2.56 12/04/2024 12:25:12 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^ORD(101.13,0),""^"",3)") 1 2 IEN FileMan Field Label: 'TAB DESCRIPTION' FileMan Field Number: '1' This field stores descriptions of CPRS GUI Cover Sheet tab acronyms. %Library.String 4 TAB_DESCRIPTION FileMan Field Label: 'TAB NAME' FileMan Field Number: '.01' This field stores CPRS GUI Cover Sheet tab acronyms. %Library.String 1 3 TAB_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ORD(101.13," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{TAB_NAME}'="" FDA(101.13,"+1,",.01)={"TAB_NAME"} set:{TAB_DESCRIPTION}'="" FDA(101.13,"+1,",1)={"TAB_DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(101.13)") set %SkipFiling=1 if $d(%FMERR(101.13,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101.13)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{TAB_NAME*C} FDA(101.13,IENS,.01)={TAB_NAME} set:{TAB_DESCRIPTION*C} FDA(101.13,IENS,1)={TAB_DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(101.13)") set %SkipFiling=1 if $d(%FMERR(101.13,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101.13)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ORCPRSTABS1448DS index ^ORD nonnull 101.13 "B" {TAB_NAME} {IEN} 0]]> data ^ORD 101.13 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '100' File Name: 'ORDER' Class generated by %fm2class version 2.56 This is the file of orders/requisitions made for any package through the Order Entry Option (OR). persistent _PUBLIC 0 RowId ORDER_100 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.707802592 67178,44712.275871403 right ORDER 100 2.56 12/04/2024 12:25:12 1 1 IEN 1 Foreign Key constraint for Variable Pointer reference field DIALOG_DIALOG DIALOGDIALOG VALIP.prosthetic.fm2cw.ORDERDIALOG10141 FKey_DIALOG_DIALOG Foreign Key constraint for Variable Pointer reference field DIALOG_OPTION DIALOGOPTION VALIP.prosthetic.fm2cw.OPTION19 FKey_DIALOG_OPTION Foreign Key constraint for Variable Pointer reference field DIALOG_PROTOCOL DIALOGPROTOCOL VALIP.prosthetic.fm2cw.PROTOCOL101 FKey_DIALOG_PROTOCOL Foreign Key constraint for Variable Pointer reference field ITEM_ORDERED_LAB_TEST ITEMORDEREDLABTEST VALIP.prosthetic.fm2cw.LABORATORYTEST60 FKey_ITEM_ORDERED_LAB_TEST Foreign Key constraint for Variable Pointer reference field ITEM_ORDERED_ORDER_DIALOG ITEMORDEREDORDERDIALOG VALIP.prosthetic.fm2cw.ORDERDIALOG10141 FKey_ITEM_ORDERED_ORDER_DIALOG Foreign Key constraint for Variable Pointer reference field ITEM_ORDERED_PROTOCOL ITEMORDEREDPROTOCOL VALIP.prosthetic.fm2cw.OPTION19 FKey_ITEM_ORDERED_PROTOCOL Foreign Key constraint for Variable Pointer reference field OBJECT_OF_ORDER_PATIENT OBJECTOFORDERPATIENT VALIP.prosthetic.fm2cw.PATIENT2 FKey_OBJECT_OF_ORDER_PATIENT Foreign Key constraint for Variable Pointer reference field OBJECT_OF_ORDER_REFERRAL OBJECTOFORDERREFERRAL VALIP.prosthetic.fm2cw.REFERRALPATIENT67 FKey_OBJECT_OF_ORDER_REFERRAL Foreign Key constraint for Variable Pointer reference field PATIENT_LOCATION_HOSPITAL_LOCATION PATIENTLOCATIONHOSPITALLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_PATIENT_LOCATION_HOSPITAL_LOCATION FileMan Field Label: 'ABNORMAL RESULTS' FileMan Field Number: '72' This field indicates whether the results for this order were abnormal, or outside of normal ranges. %Library.EnumString 51 ABNORMAL_RESULTS FileMan Field Label: 'AGENT ORANGE EXPOSURE' FileMan Field Number: '53' If a patient has been identified as having been exposed to Agent Orange (AO) during service in Vietnam, then the provider may be asked when signing the order if it is for treatment of a condition related to AO and his/her response to this question will be stored in this field. Currently this question is only asked for Outpatient Medications, and the response is passed to that package with the new order. %Library.EnumString 40 AGENT_ORANGE_EXPOSURE FileMan Field Label: 'BA AGENT ORANGE EXPOSURE' FileMan Field Number: '92' %Library.EnumString 55 BA_AGENT_ORANGE_EXPOSURE FileMan Field Label: 'BA COMBAT VETERAN' FileMan Field Number: '96' %Library.EnumString 59 BA_COMBAT_VETERAN FileMan Field Label: 'BA HEAD AND/OR NECK CANCER' FileMan Field Number: '95' %Library.EnumString 58 BA_HEAD_ANDOR_NECK_CANCER FileMan Field Label: 'BA IONIZING RADIATION EXPOSURE' FileMan Field Number: '93' %Library.EnumString 56 BA_IONIZING_RADIATION_EXPOSURE FileMan Field Label: 'BA MILITARY SEXUAL TRAUMA' FileMan Field Number: '91' %Library.EnumString 54 BA_MILITARY_SEXUAL_TRAUMA FileMan Field Label: 'BA SERVICE CONNECTED CONDITION' FileMan Field Number: '90' When signing orders, the provider may be asked if this order is for treatment of a service-connected condition; his/her response to this question will be stored in this field. %Library.EnumString 53 BA_SERVICE_CONNECTED_CONDITION FileMan Field Label: 'BA SHIPBOARD HAZARD' FileMan Field Number: '98' %Library.EnumString 60 BA_SHIPBOARD_HAZARD FileMan Field Label: 'BA SOUTHWEST ASIA CONDITIONS' FileMan Field Number: '94' %Library.EnumString 57 BA_SOUTHWEST_ASIA_CONDITIONS FileMan Field Label: 'COMBAT VETERAN' FileMan Field Number: '57' When signing orders, the provider may be asked if this order is for treatment of a combat-related condition; his/her response to this question will be stored in this field. Currently this question is only asked for Outpatient Medications, and the response is passed to that package with the new order. %Library.EnumString 44 COMBAT_VETERAN FileMan Field Label: 'COMPLETED' FileMan Field Number: '66' This is the date/time the order was marked as complete. %Library.FilemanTimeStamp 48 COMPLETED FileMan Field Label: 'COST' FileMan Field Number: '13' This is the cost of filling this order. %Library.Numeric 27 COST FileMan Field Label: 'CURRENT ACTION' FileMan Field Number: '30' This is the item number of the action in the Order Actions multiple that is currently being carried out on this order; it will be used to build the text for the Current Orders list. %Library.Numeric 32 CURRENT_ACTION FileMan Field Label: 'DATE OF LAST ACTIVITY' FileMan Field Number: '31' This is the date/time the order was last updated. %Library.FilemanTimeStamp 33 DATE_OF_LAST_ACTIVITY FileMan Field Label: 'DC DATE/TIME' FileMan Field Number: '63' This is the date/time the order was DC'ed. %Library.FilemanTimeStamp 46 DC_DATETIME FileMan Field Label: 'DC ORIGINAL ORDER' FileMan Field Number: '69' This field is only accessed by CPRS. This field is set to True if both the original order and the pending renewal order are discontinued. This field is set to False if only the pending renewal order is discontinued. If only the pending renewal order is discontinued, CPRS assigns the original order's status to the status it received from the pharmacy package. %Library.EnumString 49 DC_ORIGINAL_ORDER FileMan Field Label: 'DC REASON TEXT' FileMan Field Number: '65' This is the text of the DC reason. %Library.String 47 DC_REASON_TEXT FileMan Field Label: 'DIALOG' FileMan Field Number: '2' This is the dialog that created this order. %Library.String 10 1 DIALOGOPTION,DIALOGPROTOCOL,DIALOGDIALOG DIALOG Variable Pointer Reference Field for Pointer field DIALOG 'ORDER DIALOG' VALIP.prosthetic.fm2cw.ORDERDIALOG10141 13 1 DIALOG_DIALOG NAME This is the name of the dialog; entries that were converted from the Protocol file will retain the same name. Namespacing is not required, but still encouraged.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {DIALOG_DIALOG_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIALOG_DIALOG_NAME 1 Variable Pointer Reference Field for Pointer field OPTION 'OPTION' VALIP.prosthetic.fm2cw.OPTION19 11 1 DIALOG_OPTION NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {DIALOG_OPTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIALOG_OPTION_NAME 1 Variable Pointer Reference Field for Pointer field PROTOCOL 'PROTOCOL' VALIP.prosthetic.fm2cw.PROTOCOL101 12 1 DIALOG_PROTOCOL NAME A unique name, which is preceded by the package namespace.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {DIALOG_PROTOCOL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIALOG_PROTOCOL_NAME 1 Variable Pointer Value Field for Pointer field DIALOG %Library.String 1 14 if {DIALOG_OPTION_NAME}'="" { set {*}={DIALOG_OPTION_NAME} quit } if {DIALOG_PROTOCOL_NAME}'="" { set {*}={DIALOG_PROTOCOL_NAME} quit } if {DIALOG_DIALOG_NAME}'="" { set {*}={DIALOG_DIALOG_NAME} quit } set {*}="" 1 DIALOG_VALUE FileMan Field Label: 'FINDINGS' FileMan Field Number: '73' This field contains the text of any significant findings for the results of this order. %Library.String 52 FINDINGS FileMan Field Label: 'GRACE DAYS BEFORE PURGE' FileMan Field Number: '32' This is the number of days to hold an order from the date of last activity. The order in OE/RR may be purged after this date. The default is 30 days. If a package needs the order retained for a period longer than 30 days, this can be specified when the order is created by setting the variable ORPURG to the appropriate number of days before calling FILE^ORX. %Library.Numeric 34 GRACE_DAYS_BEFORE_PURGE FileMan Field Label: 'HEAD AND/OR NECK CANCER' FileMan Field Number: '56' If a patient has been identified as having been treated for head or neck cancer due to nose or throat radium treatments while in the military, then the provider may be asked when signing the order if it is for treatment of head or neck cancer and his/her response to this question will be stored in this field. Currently this question is only asked for Outpatient Medications, and the response is passed to that package with the new order. %Library.EnumString 43 HEAD_ANDOR_NECK_CANCER Internal Entry Number %Library.String $$next^%apiSQL("$p(^OR(100,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IONIZING RADIATION EXPOSURE' FileMan Field Number: '54' If a patient has been identified as having been treated for exposure to ionizing radiation (IR) during military service, then the provider may be asked when signing the order if it is for treatment of a condition related to IR and his/her response to this question will be stored in this field. Currently this question is only asked for Outpatient Medications, and the response is passed to that package with the new order. %Library.EnumString 41 IONIZING_RADIATION_EXPOSURE FileMan Field Label: 'ITEM ORDERED' FileMan Field Number: '7' This is the variable pointer to the file and item ordered. %Library.String 19 1 ITEMORDEREDPROTOCOL,ITEMORDEREDLABTEST,ITEMORDEREDORDERDIALOG ITEM_ORDERED Variable Pointer Reference Field for Pointer field LAB_TEST 'LABORATORY TEST' VALIP.prosthetic.fm2cw.LABORATORYTEST60 21 1 ITEM_ORDERED_LAB_TEST NAME This is the name of the Laboratory test you are defining in this entry.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {ITEM_ORDERED_LAB_TEST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_ORDERED_LAB_TEST_NAME 1 Variable Pointer Reference Field for Pointer field ORDER_DIALOG 'ORDER DIALOG' VALIP.prosthetic.fm2cw.ORDERDIALOG10141 22 1 ITEM_ORDERED_ORDER_DIALOG NAME This is the name of the dialog; entries that were converted from the Protocol file will retain the same name. Namespacing is not required, but still encouraged.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {ITEM_ORDERED_ORDER_DIALOG_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_ORDERED_ORDER_DIALOG_NAME 1 Variable Pointer Reference Field for Pointer field PROTOCOL 'OPTION' VALIP.prosthetic.fm2cw.OPTION19 20 1 ITEM_ORDERED_PROTOCOL NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {ITEM_ORDERED_PROTOCOL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_ORDERED_PROTOCOL_NAME 1 Variable Pointer Value Field for Pointer field ITEM_ORDERED %Library.String 1 23 if {ITEM_ORDERED_PROTOCOL_NAME}'="" { set {*}={ITEM_ORDERED_PROTOCOL_NAME} quit } if {ITEM_ORDERED_LAB_TEST_NAME}'="" { set {*}={ITEM_ORDERED_LAB_TEST_NAME} quit } if {ITEM_ORDERED_ORDER_DIALOG_NAME}'="" { set {*}={ITEM_ORDERED_ORDER_DIALOG_NAME} quit } set {*}="" 1 ITEM_ORDERED_VALUE FileMan Field Label: 'LAPSED DATE/TIME' FileMan Field Number: '39' This field will specify when the order was Lapsed. Lapsing takes place in routine ORTSKLPS and is part of the ORMTIME scheduled option. %Library.FilemanTimeStamp 37 LAPSED_DATETIME FileMan Field Label: 'MST' FileMan Field Number: '52' MILITARY SEXUAL TRAUMA If a patient has been identified as having been treated for Military Sexual Trauma (MST), then the provider may be asked when signing the order if it is for treatment of a condition related to MST and his/her response to this question will be stored in this field. Currently this question is only asked for Outpatient Medications, and the response is passed to that package with the new order. %Library.EnumString 39 MST Computed Field For Node 4 %Library.String 1 35 s {NODE_4}=$g(^OR(100,{IEN},4)) 1 NODE_4 FileMan Field Label: 'OBJECT OF ORDER' FileMan Field Number: '.02' This is the individual object of the order. Depending on the parent file entry, this would be the Patient, Control Point, etc. %Library.String 4 1 OBJECTOFORDERPATIENT,OBJECTOFORDERREFERRAL OBJECT_OF_ORDER Variable Pointer Reference Field for Pointer field PATIENT 'PATIENT' VALIP.prosthetic.fm2cw.PATIENT2 5 1 OBJECT_OF_ORDER_PATIENT NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {OBJECT_OF_ORDER_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OBJECT_OF_ORDER_PATIENT_NAME 1 Variable Pointer Reference Field for Pointer field REFERRAL 'REFERRAL PATIENT' VALIP.prosthetic.fm2cw.REFERRALPATIENT67 6 1 OBJECT_OF_ORDER_REFERRAL NAME Name of patient.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {OBJECT_OF_ORDER_REFERRAL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OBJECT_OF_ORDER_REFERRAL_NAME 1 Variable Pointer Value Field for Pointer field OBJECT_OF_ORDER %Library.String 1 7 if {OBJECT_OF_ORDER_PATIENT_NAME}'="" { set {*}={OBJECT_OF_ORDER_PATIENT_NAME} quit } if {OBJECT_OF_ORDER_REFERRAL_NAME}'="" { set {*}={OBJECT_OF_ORDER_REFERRAL_NAME} quit } set {*}="" 1 OBJECT_OF_ORDER_VALUE FileMan Field Label: 'ORDER #' FileMan Field Number: '.01' This is the internal order number of the file. %Library.Numeric 1 3 ORDER_ FileMan Field Label: 'PACKAGE REFERENCE' FileMan Field Number: '33' This information allows the package to link the order in OR with its more detailed order information in the individual package. It is the package's responsibility to define and determine the structure of this information. %Library.String 1 36 s {PACKAGE_REFERENCE}=$e({NODE_4},1,200) 1 PACKAGE_REFERENCE FileMan Field Label: 'PATIENT APPOINTMENT' FileMan Field Number: '16' This is the appointment date/time for outpatients and is only entered when inpatient medications are ordered for them. %Library.FilemanTimeStamp 29 PATIENT_APPOINTMENT FileMan Field Label: 'PATIENT CLASS' FileMan Field Number: '10' This is the patient's inpatient classification for this order; an inpatient may have some orders performed on an outpatient basis. %Library.EnumString 26 PATIENT_CLASS FileMan Field Label: 'PATIENT LOCATION' FileMan Field Number: '6' This is the hospital location from which the order originated. %Library.String 16 1 PATIENTLOCATIONHOSPITALLOCATION PATIENT_LOCATION Variable Pointer Reference Field for Pointer field HOSPITAL_LOCATION 'HOSPITAL LOCATION' VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 17 1 PATIENT_LOCATION_HOSPITAL_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.ORDER_100 where %ID=:id) set {PATIENT_LOCATION_HOSPITAL_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_LOCATION_HOSPITAL_LOCATION_NAME 1 Variable Pointer Value Field for Pointer field PATIENT_LOCATION %Library.String 1 18 if {PATIENT_LOCATION_HOSPITAL_LOCATION_NAME}'="" { set {*}={PATIENT_LOCATION_HOSPITAL_LOCATION_NAME} quit } set {*}="" 1 PATIENT_LOCATION_VALUE FileMan Field Label: 'RESULTS DATE/TIME' FileMan Field Number: '71' This field contains the date/time that results became available for this order; only Lab, Radiology, and Consult orders have results. %Library.FilemanTimeStamp 50 RESULTS_DATETIME FileMan Field Label: 'SERVICE CONNECTED CONDITION' FileMan Field Number: '51' When signing orders, the provider may be asked if this order is for treatment of a service-connected condition; his/her response to this question will be stored in this field. Currently this question is only asked for Outpatient Medications, and the response is passed to that package with the new order. %Library.EnumString 38 SERVICE_CONNECTED_CONDITION FileMan Field Label: 'SHIPBOARD HAZARD' FileMan Field Number: '58' %Library.EnumString 45 SHIPBOARD_HAZARD FileMan Field Label: 'SIGNATURE REQUIRED' FileMan Field Number: '14' This is the OR key required to sign this order. If set to 2, only users with the ORES key will be allowed to sign this order; if set to 1, users with either the ORELSE or ORES keys will be allowed to sign. A 0 or "" indicates that no signature is required. %Library.EnumString 28 SIGNATURE_REQUIRED FileMan Field Label: 'SOUTHWEST ASIA CONDITIONS' FileMan Field Number: '55' If a patient has been identified as having been treated for exposure to environmental contaminants (EC) during the Persian Gulf War, then the provider may be asked when signing the order if it is for treatment of a condition related to EC and his/her response to this question will be stored in this field. Currently this question is only asked for Outpatient Medications, and the response is passed to that package with the new order. %Library.EnumString 42 SOUTHWEST_ASIA_CONDITIONS FileMan Field Label: 'START DATE' FileMan Field Number: '21' This is the start date/time of the order. %Library.FilemanTimeStamp 30 START_DATE FileMan Field Label: 'STOP DATE' FileMan Field Number: '22' This is the stop date/time of the order. %Library.FilemanTimeStamp 31 STOP_DATE FileMan Field Label: 'TEMPORARY DEA# STORAGE' FileMan Field Number: '110' This field contains the DEA# that was selected or used when placing a CS order as the provider may have multiple DEA #s. During the order signing process, this DEA# will be associated with the order and will be used for validating the provider credentials instead of the DEA# field (#53.2) in NEW PERSON file (#200). %Library.String 61 TEMPORARY_DEA_STORAGE FileMan Field Label: 'TYPE' FileMan Field Number: '8.1' This field is used to determine the type of order that is being processed. Different things happen depending on the order type. %Library.EnumString 25 TYPE FileMan Field Label: 'UAP Last Reviewed' FileMan Field Number: '.62' Unified Action Profile Reviewed Date This is the Date Someone last reviewed the order on the screen using the Unified Action Profile Popup menu option for a selected order %Library.FilemanTimeStamp 9 UAP_LAST_REVIEWED FileMan Field Label: 'UAP Reviewed?' FileMan Field Number: '.61' Unified Action Profile Review Status This field is added to record and track if an order has been reviewed during the patient discharge process. If someone has reviewed an order in CPRS in the Unified Action Profile form the selection they made from the set of codes presented is recorded in this field for a selected order. %Library.EnumString 8 UAP_REVIEWED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 62 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VEILED' FileMan Field Number: '8' This field is set when creating an order to prevent the order from being displayed on the review screen until the order is complete and accepted. %Library.EnumString 24 VEILED FileMan Field Label: 'WHEN ENTERED' FileMan Field Number: '4' This is the date/time of completion of the initiation of the order. %Library.FilemanTimeStamp 15 WHEN_ENTERED BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^OR(100," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ORDER_}'="" FDA(100,"+1,",.01)={"ORDER_"} set:{OBJECT_OF_ORDER}'="" FDA(100,"+1,",.02)={"OBJECT_OF_ORDER"} set:{UAP_REVIEWED}'="" FDA(100,"+1,",.61)={"UAP_REVIEWED"} set:{UAP_LAST_REVIEWED}'="" FDA(100,"+1,",.62)={"UAP_LAST_REVIEWED"} set:{DIALOG}'="" FDA(100,"+1,",2)={"DIALOG"} set:{WHEN_ENTERED}'="" FDA(100,"+1,",4)={"WHEN_ENTERED"} set:{PATIENT_LOCATION}'="" FDA(100,"+1,",6)={"PATIENT_LOCATION"} set:{ITEM_ORDERED}'="" FDA(100,"+1,",7)={"ITEM_ORDERED"} set:{VEILED}'="" FDA(100,"+1,",8)={"VEILED"} set:{TYPE}'="" FDA(100,"+1,",8.1)={"TYPE"} set:{PATIENT_CLASS}'="" FDA(100,"+1,",10)={"PATIENT_CLASS"} set:{COST}'="" FDA(100,"+1,",13)={"COST"} set:{SIGNATURE_REQUIRED}'="" FDA(100,"+1,",14)={"SIGNATURE_REQUIRED"} set:{PATIENT_APPOINTMENT}'="" FDA(100,"+1,",16)={"PATIENT_APPOINTMENT"} set:{START_DATE}'="" FDA(100,"+1,",21)={"START_DATE"} set:{STOP_DATE}'="" FDA(100,"+1,",22)={"STOP_DATE"} set:{CURRENT_ACTION}'="" FDA(100,"+1,",30)={"CURRENT_ACTION"} set:{DATE_OF_LAST_ACTIVITY}'="" FDA(100,"+1,",31)={"DATE_OF_LAST_ACTIVITY"} set:{GRACE_DAYS_BEFORE_PURGE}'="" FDA(100,"+1,",32)={"GRACE_DAYS_BEFORE_PURGE"} set:{LAPSED_DATETIME}'="" FDA(100,"+1,",39)={"LAPSED_DATETIME"} set:{SERVICE_CONNECTED_CONDITION}'="" FDA(100,"+1,",51)={"SERVICE_CONNECTED_CONDITION"} set:{MST}'="" FDA(100,"+1,",52)={"MST"} set:{AGENT_ORANGE_EXPOSURE}'="" FDA(100,"+1,",53)={"AGENT_ORANGE_EXPOSURE"} set:{IONIZING_RADIATION_EXPOSURE}'="" FDA(100,"+1,",54)={"IONIZING_RADIATION_EXPOSURE"} set:{SOUTHWEST_ASIA_CONDITIONS}'="" FDA(100,"+1,",55)={"SOUTHWEST_ASIA_CONDITIONS"} set:{HEAD_ANDOR_NECK_CANCER}'="" FDA(100,"+1,",56)={"HEAD_ANDOR_NECK_CANCER"} set:{COMBAT_VETERAN}'="" FDA(100,"+1,",57)={"COMBAT_VETERAN"} set:{SHIPBOARD_HAZARD}'="" FDA(100,"+1,",58)={"SHIPBOARD_HAZARD"} set:{DC_DATETIME}'="" FDA(100,"+1,",63)={"DC_DATETIME"} set:{DC_REASON_TEXT}'="" FDA(100,"+1,",65)={"DC_REASON_TEXT"} set:{COMPLETED}'="" FDA(100,"+1,",66)={"COMPLETED"} set:{DC_ORIGINAL_ORDER}'="" FDA(100,"+1,",69)={"DC_ORIGINAL_ORDER"} set:{RESULTS_DATETIME}'="" FDA(100,"+1,",71)={"RESULTS_DATETIME"} set:{ABNORMAL_RESULTS}'="" FDA(100,"+1,",72)={"ABNORMAL_RESULTS"} set:{FINDINGS}'="" FDA(100,"+1,",73)={"FINDINGS"} set:{BA_SERVICE_CONNECTED_CONDITION}'="" FDA(100,"+1,",90)={"BA_SERVICE_CONNECTED_CONDITION"} set:{BA_MILITARY_SEXUAL_TRAUMA}'="" FDA(100,"+1,",91)={"BA_MILITARY_SEXUAL_TRAUMA"} set:{BA_AGENT_ORANGE_EXPOSURE}'="" FDA(100,"+1,",92)={"BA_AGENT_ORANGE_EXPOSURE"} set:{BA_IONIZING_RADIATION_EXPOSURE}'="" FDA(100,"+1,",93)={"BA_IONIZING_RADIATION_EXPOSURE"} set:{BA_SOUTHWEST_ASIA_CONDITIONS}'="" FDA(100,"+1,",94)={"BA_SOUTHWEST_ASIA_CONDITIONS"} set:{BA_HEAD_ANDOR_NECK_CANCER}'="" FDA(100,"+1,",95)={"BA_HEAD_ANDOR_NECK_CANCER"} set:{BA_COMBAT_VETERAN}'="" FDA(100,"+1,",96)={"BA_COMBAT_VETERAN"} set:{BA_SHIPBOARD_HAZARD}'="" FDA(100,"+1,",98)={"BA_SHIPBOARD_HAZARD"} set:{TEMPORARY_DEA_STORAGE}'="" FDA(100,"+1,",110)={"TEMPORARY_DEA_STORAGE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(100)") set %SkipFiling=1 if $d(%FMERR(100,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ORDER_*C} FDA(100,IENS,.01)={ORDER_} set:{OBJECT_OF_ORDER*C} FDA(100,IENS,.02)={OBJECT_OF_ORDER} set:{UAP_REVIEWED*C} FDA(100,IENS,.61)={UAP_REVIEWED} set:{UAP_LAST_REVIEWED*C} FDA(100,IENS,.62)={UAP_LAST_REVIEWED} set:{DIALOG*C} FDA(100,IENS,2)={DIALOG} set:{WHEN_ENTERED*C} FDA(100,IENS,4)={WHEN_ENTERED} set:{PATIENT_LOCATION*C} FDA(100,IENS,6)={PATIENT_LOCATION} set:{ITEM_ORDERED*C} FDA(100,IENS,7)={ITEM_ORDERED} set:{VEILED*C} FDA(100,IENS,8)={VEILED} set:{TYPE*C} FDA(100,IENS,8.1)={TYPE} set:{PATIENT_CLASS*C} FDA(100,IENS,10)={PATIENT_CLASS} set:{COST*C} FDA(100,IENS,13)={COST} set:{SIGNATURE_REQUIRED*C} FDA(100,IENS,14)={SIGNATURE_REQUIRED} set:{PATIENT_APPOINTMENT*C} FDA(100,IENS,16)={PATIENT_APPOINTMENT} set:{START_DATE*C} FDA(100,IENS,21)={START_DATE} set:{STOP_DATE*C} FDA(100,IENS,22)={STOP_DATE} set:{CURRENT_ACTION*C} FDA(100,IENS,30)={CURRENT_ACTION} set:{DATE_OF_LAST_ACTIVITY*C} FDA(100,IENS,31)={DATE_OF_LAST_ACTIVITY} set:{GRACE_DAYS_BEFORE_PURGE*C} FDA(100,IENS,32)={GRACE_DAYS_BEFORE_PURGE} set:{LAPSED_DATETIME*C} FDA(100,IENS,39)={LAPSED_DATETIME} set:{SERVICE_CONNECTED_CONDITION*C} FDA(100,IENS,51)={SERVICE_CONNECTED_CONDITION} set:{MST*C} FDA(100,IENS,52)={MST} set:{AGENT_ORANGE_EXPOSURE*C} FDA(100,IENS,53)={AGENT_ORANGE_EXPOSURE} set:{IONIZING_RADIATION_EXPOSURE*C} FDA(100,IENS,54)={IONIZING_RADIATION_EXPOSURE} set:{SOUTHWEST_ASIA_CONDITIONS*C} FDA(100,IENS,55)={SOUTHWEST_ASIA_CONDITIONS} set:{HEAD_ANDOR_NECK_CANCER*C} FDA(100,IENS,56)={HEAD_ANDOR_NECK_CANCER} set:{COMBAT_VETERAN*C} FDA(100,IENS,57)={COMBAT_VETERAN} set:{SHIPBOARD_HAZARD*C} FDA(100,IENS,58)={SHIPBOARD_HAZARD} set:{DC_DATETIME*C} FDA(100,IENS,63)={DC_DATETIME} set:{DC_REASON_TEXT*C} FDA(100,IENS,65)={DC_REASON_TEXT} set:{COMPLETED*C} FDA(100,IENS,66)={COMPLETED} set:{DC_ORIGINAL_ORDER*C} FDA(100,IENS,69)={DC_ORIGINAL_ORDER} set:{RESULTS_DATETIME*C} FDA(100,IENS,71)={RESULTS_DATETIME} set:{ABNORMAL_RESULTS*C} FDA(100,IENS,72)={ABNORMAL_RESULTS} set:{FINDINGS*C} FDA(100,IENS,73)={FINDINGS} set:{BA_SERVICE_CONNECTED_CONDITION*C} FDA(100,IENS,90)={BA_SERVICE_CONNECTED_CONDITION} set:{BA_MILITARY_SEXUAL_TRAUMA*C} FDA(100,IENS,91)={BA_MILITARY_SEXUAL_TRAUMA} set:{BA_AGENT_ORANGE_EXPOSURE*C} FDA(100,IENS,92)={BA_AGENT_ORANGE_EXPOSURE} set:{BA_IONIZING_RADIATION_EXPOSURE*C} FDA(100,IENS,93)={BA_IONIZING_RADIATION_EXPOSURE} set:{BA_SOUTHWEST_ASIA_CONDITIONS*C} FDA(100,IENS,94)={BA_SOUTHWEST_ASIA_CONDITIONS} set:{BA_HEAD_ANDOR_NECK_CANCER*C} FDA(100,IENS,95)={BA_HEAD_ANDOR_NECK_CANCER} set:{BA_COMBAT_VETERAN*C} FDA(100,IENS,96)={BA_COMBAT_VETERAN} set:{BA_SHIPBOARD_HAZARD*C} FDA(100,IENS,98)={BA_SHIPBOARD_HAZARD} set:{TEMPORARY_DEA_STORAGE*C} FDA(100,IENS,110)={TEMPORARY_DEA_STORAGE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(100)") set %SkipFiling=1 if $d(%FMERR(100,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.ORDER100S index {DIALOG}'="" 1 ^OR conditional 100 "C" $$TRUNCATE({DIALOG},30)) {IEN} 0]]> index {ITEM_ORDERED}'="" 1 ^OR conditional 100 "D" $$TRUNCATE({ITEM_ORDERED},30)) {IEN} 0]]> index ^OR nonnull 100 "E" {UAP_REVIEWED} {IEN} 0]]> data ^OR 100 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 7 2 "^" 5 3 "^" 5.2 3 "^" 5.2 7 "^" 5.2 6 "^" 5.2 4 "^" 5.2 2 "^" 5.2 1 "^" 5.2 8 "^" 5.2 5 "^" 5 7 "^" 6 6 "^" 0 15 "^" 3 7 "^" 3 1 "^" 6 3 "^" 6 9 "^" 6 5 "^" 0 5 If $p($p($g(^OR({S1},{S2},0)),"^",5),";",2,999)'="ORD(101.41," s {DIALOG_DIALOG}="" Quit s {DIALOG_DIALOG}=$p($p($g(^OR({S1},{S2},0)),"^",5),";") If $p($p($g(^OR({S1},{S2},0)),"^",5),";",2,999)'="DIC(19," s {DIALOG_OPTION}="" Quit s {DIALOG_OPTION}=$p($p($g(^OR({S1},{S2},0)),"^",5),";") If $p($p($g(^OR({S1},{S2},0)),"^",5),";",2,999)'="ORD(101," s {DIALOG_PROTOCOL}="" Quit s {DIALOG_PROTOCOL}=$p($p($g(^OR({S1},{S2},0)),"^",5),";") "^" 7 3 "^" 3 2 "^" 5 6 "^" 5 4 "^" 3 4 If $p($p($g(^OR({S1},{S2},3)),"^",4),";",2,999)'="LAB(60," s {ITEM_ORDERED_LAB_TEST}="" Quit s {ITEM_ORDERED_LAB_TEST}=$p($p($g(^OR({S1},{S2},3)),"^",4),";") If $p($p($g(^OR({S1},{S2},3)),"^",4),";",2,999)'="ORD(101.41," s {ITEM_ORDERED_ORDER_DIALOG}="" Quit s {ITEM_ORDERED_ORDER_DIALOG}=$p($p($g(^OR({S1},{S2},3)),"^",4),";") If $p($p($g(^OR({S1},{S2},3)),"^",4),";",2,999)'="DIC(19," s {ITEM_ORDERED_PROTOCOL}="" Quit s {ITEM_ORDERED_PROTOCOL}=$p($p($g(^OR({S1},{S2},3)),"^",4),";") "^" 10 1 "^" 5 2 "^" 0 2 If $p($p($g(^OR({S1},{S2},0)),"^",2),";",2,999)'="DPT(" s {OBJECT_OF_ORDER_PATIENT}="" Quit s {OBJECT_OF_ORDER_PATIENT}=$p($p($g(^OR({S1},{S2},0)),"^",2),";") If $p($p($g(^OR({S1},{S2},0)),"^",2),";",2,999)'="LRT(67," s {OBJECT_OF_ORDER_REFERRAL}="" Quit s {OBJECT_OF_ORDER_REFERRAL}=$p($p($g(^OR({S1},{S2},0)),"^",2),";") "^" 0 1 "^" 0 18 "^" 0 12 "^" 0 10 If $p($p($g(^OR({S1},{S2},0)),"^",10),";",2,999)'="SC(" s {PATIENT_LOCATION_HOSPITAL_LOCATION}="" Quit s {PATIENT_LOCATION_HOSPITAL_LOCATION}=$p($p($g(^OR({S1},{S2},0)),"^",10),";") "^" 7 1 "^" 5 1 "^" 5 8 "^" 0 16 "^" 5 5 "^" 0 8 "^" 0 9 "^" 11.1 1 "^" 3 11 "^" .61 2 "^" .61 1 "^" 3 8 "^" 0 7 Generated class for FileMan File Number: '101.41' File Name: 'ORDER DIALOG' Class generated by %fm2class version 2.56 This file contains the information needed to define how to prompt for each order, what values are acceptable, etc. persistent _PUBLIC 0 RowId ORDER_DIALOG_101_41 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.691711457 67178,44712.329743804 right ORDER DIALOG 101.41 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: 'ADDITIONAL TEXT' FileMan Field Number: '19' This is MUMPS code that will be executed when order ORIFN created by this dialog is about to be displayed; any string that should be appended to the order text should be returned in Y. %Library.String 1 16 s {ADDITIONAL_TEXT}=$e({NODE_9},1,245) 1 ADDITIONAL_TEXT order?" to allow for either exiting the processor or adding an additional order of the same type. This field can also be set to YES-DON'T ASK to force the processor to automatically drop into prompting for another order without asking first.]]> %Library.EnumString 9 ASK_FOR_ANOTHER_ORDER FileMan Field Label: 'AUTO-ACCEPT QUICK ORDER' FileMan Field Number: '58' This can be set to yes for a quick order so that it can be placed simply by clicking on it in the GUI (no ordering dialog is displayed). %Library.EnumString 31 AUTOACCEPT_QUICK_ORDER FileMan Field Label: 'COLUMN WIDTH' FileMan Field Number: '51' This is the width, in characters, for each column in a menu. For example, to have 3 columns on an 80 character device, enter a width of 26. %Library.Numeric 24 COLUMN_WIDTH FileMan Field Label: 'CREATE PARENT ORDER' FileMan Field Number: '56' This flag indicates whether a parent order should be created to group together all the orders created by this order set; this flag is only valid with SET type order dialogs. If this value is YES, a parent order will be created, and only the parent will be presented on the orders list for display and action; NO will prevent a parent from being created and all orders will be created and displayed independently. %Library.EnumString 29 CREATE_PARENT_ORDER FileMan Field Label: 'DATA TYPE' FileMan Field Number: '11' This is the type of data being prompted for; this field is used to define a call to the reader (^DIR) in most cases. %Library.EnumString 10 DATA_TYPE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '20' This is a description of the dialog and its uses. %Library.String 17 DESCRIPTION FileMan Field Label: 'DISABLE' FileMan Field Number: '3' This field disables use of this dialog when it contains text. The text should be a short message explaining why use of this dialog has been disabled, as it will be displayed if this dialog is selected. %Library.String 5 DISABLE FileMan Field Label: 'DISPLAY SUBHEADER' FileMan Field Number: '57' This flag indicates whether a subheader is to be displayed for each order in this set as it is processed and placed; this flag is only valid with SET type order dialogs. %Library.EnumString 30 DISPLAY_SUBHEADER FileMan Field Label: 'DISPLAY TEXT' FileMan Field Number: '2' The text of this dialog's name as it appears on a menu or subheader. %Library.String 4 DISPLAY_TEXT FileMan Field Label: 'DOMAIN' FileMan Field Number: '12' This is a parameter that may be used to further specify the data type. The string stored here should be appropriate for the second ^-piece of DIR(0) when used with the data type field. %Library.String 11 DOMAIN12 FileMan Field Label: 'ENTRY ACTION' FileMan Field Number: '30' This is MUMPS code that will be executed at the top of a dialog, prior to the execution of any prompts; it may perform functions such as listing the recent Radiology exams before ordering a new one, or alerting the user to an existing diet order before making a change. %Library.String 1 19 s {ENTRY_ACTION}=$e({NODE_3},1,245) 1 ENTRY_ACTION FileMan Field Label: 'EXIT ACTION' FileMan Field Number: '40' This is MUMPS code that will be executed upon completion of processing the dialog; it is currently used only with dialog-type entries. %Library.String 1 23 s {EXIT_ACTION}=$e({NODE_4},1,245) 1 EXIT_ACTION Start date/time STOP -> Stop date/time SCHEDULE -> Administration Schedule ORDERABLE -> Orderable Item DRUG -> Dispense Drug CANCEL -> Cancel Future Orders flag COMMENT -> Word processing comments These values must be unique among entries within an order dialog but do not need to be unique across the entire file. Be sure to check the IDs assigned to generic text entries to make sure that all IDs are unique. In order to avoid potential problems it's recommended that you use unique IDs for any local entries that you create.]]> %Library.String 12 ID Internal Entry Number %Library.String $$next^%apiSQL("$p(^ORD(101.41,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LISTBOX TEXT' FileMan Field Number: '54' %Library.String 27 LISTBOX_TEXT FileMan Field Label: 'MNEMONIC WIDTH' FileMan Field Number: '52' This field allows the width of item mnemonics to be varied; the default value is 5. %Library.Numeric 25 MNEMONIC_WIDTH FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the dialog; entries that were converted from the Protocol file will retain the same name. Namespacing is not required, but still encouraged. %Library.String 1 3 NAME Computed Field For Node 3 %Library.String 1 18 s {NODE_3}=$g(^ORD(101.41,{IEN},3)) 1 NODE_3 Computed Field For Node 3.1 %Library.String 1 20 s {NODE_3_1}=$g(^ORD(101.41,{IEN},3.1)) 1 NODE_3_1 Computed Field For Node 4 %Library.String 1 22 s {NODE_4}=$g(^ORD(101.41,{IEN},4)) 1 NODE_4 Computed Field For Node 7 %Library.String 1 13 s {NODE_7}=$g(^ORD(101.41,{IEN},7)) 1 NODE_7 Computed Field For Node 9 %Library.String 1 15 s {NODE_9}=$g(^ORD(101.41,{IEN},9)) 1 NODE_9 FileMan Field Label: 'PATH SWITCH' FileMan Field Number: '53' This switch allows the user, when traversing back UP the tree of menus and items, to select a new path back down the tree. In other words, the menu is redisplayed when returning to that menu's level in the tree and processing back down the tree is possible from that point. If nothing is selected from the menu, the path continues back up the tree. %Library.EnumString 26 PATH_SWITCH FileMan Field Label: 'QUICK SETUP' FileMan Field Number: '31' This is MUMPS code that will be executed in the place of the Entry Action when creating quick orders for this dialog; variables may be set here instead to bypass the usual dependence on specific patient values. %Library.String 1 21 s {QUICK_SETUP}=$e({NODE_3_1},1,245) 1 QUICK_SETUP FileMan Field Label: 'SIGNATURE REQUIRED' FileMan Field Number: '6' This field indicates what signature will be required for orders created by this dialog, to be considered complete and ready to release to the service for action. If this flag is set to NO and the dialog contains a prompt for item(s) from the Orderable Item file, the order created may still require a signature if any of the items ordered are individually flagged as requiring a signature. %Library.EnumString 7 SIGNATURE_REQUIRED FileMan Field Label: 'TIMESTAMP' FileMan Field Number: '99' For menus, this contains the $H time the menu was last compiled for use with the Unwinder utility (^XQOR). %Library.String 32 TIMESTAMP FileMan Field Label: 'TYPE' FileMan Field Number: '4' This field defines the type of order dialog to be processed. Control will be passed to the OE/RR Dialog Processor for dialog items; menu types are used for displaying and selecting dialog items. Action types will only execute the entry and exit actions, ignoring any items that may exist; these dialogs should not create entries in the Orders file. %Library.EnumString 6 TYPE FileMan Field Label: 'VALIDATION' FileMan Field Number: '17' This is MUMPS code that will be executed at the time of releasing an order created with this dialog; dialog responses may be checked again here before releasing the order to the service. %Library.String 1 14 s {VALIDATION}=$e({NODE_7},1,245) 1 VALIDATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 33 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFY ORDER' FileMan Field Number: '8' This field is a flag, which determines if the order created by this dialog will be presented to the user for verification before saving in the Orders file; for most quick orders, this flag should be set to 0 (no). %Library.EnumString 8 VERIFY_ORDER FileMan Field Label: 'WINDOW FORM ID' FileMan Field Number: '55' This field tells the GUI DELPHI code which form to use to process the order dialog. Each number represents a unique form. Following are some of the more common codes and their corresponding form in DELPHI. Form Name Windows Form ID --------- --------------- OD_ACTIVITY 100 OD_ALLERGY 105 OD_CONSULT 110 OD_PROCEDURE 112 OD_DIET_TXT 115 OD_DIET 117 OD_LAB 120 OD_MEDINPT 130 OD_MEDS 135 OD_MEDOUTPT 140 OD_NURSING 150 OD_MISC 151 OD_GENERIC 152 OD_IMAGING 160 OD_VITALS 171 OD_MEDIV 180 OD_TEXTONLY 999 %Library.Numeric 28 WINDOW_FORM_ID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ORD(101.41," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(101.41,"+1,",.01)={"NAME"} set:{DISPLAY_TEXT}'="" FDA(101.41,"+1,",2)={"DISPLAY_TEXT"} set:{DISABLE}'="" FDA(101.41,"+1,",3)={"DISABLE"} set:{TYPE}'="" FDA(101.41,"+1,",4)={"TYPE"} set:{SIGNATURE_REQUIRED}'="" FDA(101.41,"+1,",6)={"SIGNATURE_REQUIRED"} set:{VERIFY_ORDER}'="" FDA(101.41,"+1,",8)={"VERIFY_ORDER"} set:{ASK_FOR_ANOTHER_ORDER}'="" FDA(101.41,"+1,",9)={"ASK_FOR_ANOTHER_ORDER"} set:{DATA_TYPE}'="" FDA(101.41,"+1,",11)={"DATA_TYPE"} set:{DOMAIN12}'="" FDA(101.41,"+1,",12)={"DOMAIN12"} set:{ID}'="" FDA(101.41,"+1,",13)={"ID"} set:{COLUMN_WIDTH}'="" FDA(101.41,"+1,",51)={"COLUMN_WIDTH"} set:{MNEMONIC_WIDTH}'="" FDA(101.41,"+1,",52)={"MNEMONIC_WIDTH"} set:{PATH_SWITCH}'="" FDA(101.41,"+1,",53)={"PATH_SWITCH"} set:{LISTBOX_TEXT}'="" FDA(101.41,"+1,",54)={"LISTBOX_TEXT"} set:{WINDOW_FORM_ID}'="" FDA(101.41,"+1,",55)={"WINDOW_FORM_ID"} set:{CREATE_PARENT_ORDER}'="" FDA(101.41,"+1,",56)={"CREATE_PARENT_ORDER"} set:{DISPLAY_SUBHEADER}'="" FDA(101.41,"+1,",57)={"DISPLAY_SUBHEADER"} set:{AUTOACCEPT_QUICK_ORDER}'="" FDA(101.41,"+1,",58)={"AUTOACCEPT_QUICK_ORDER"} set:{TIMESTAMP}'="" FDA(101.41,"+1,",99)={"TIMESTAMP"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(101.41)") set %SkipFiling=1 if $d(%FMERR(101.41,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101.41)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(101.41,{RowId},20,,"wp","%FMERR(101.41)") if $d(%FMERR(101.41,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101.41)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(101.41,IENS,.01)={NAME} set:{DISPLAY_TEXT*C} FDA(101.41,IENS,2)={DISPLAY_TEXT} set:{DISABLE*C} FDA(101.41,IENS,3)={DISABLE} set:{TYPE*C} FDA(101.41,IENS,4)={TYPE} set:{SIGNATURE_REQUIRED*C} FDA(101.41,IENS,6)={SIGNATURE_REQUIRED} set:{VERIFY_ORDER*C} FDA(101.41,IENS,8)={VERIFY_ORDER} set:{ASK_FOR_ANOTHER_ORDER*C} FDA(101.41,IENS,9)={ASK_FOR_ANOTHER_ORDER} set:{DATA_TYPE*C} FDA(101.41,IENS,11)={DATA_TYPE} set:{DOMAIN12*C} FDA(101.41,IENS,12)={DOMAIN12} set:{ID*C} FDA(101.41,IENS,13)={ID} set:{COLUMN_WIDTH*C} FDA(101.41,IENS,51)={COLUMN_WIDTH} set:{MNEMONIC_WIDTH*C} FDA(101.41,IENS,52)={MNEMONIC_WIDTH} set:{PATH_SWITCH*C} FDA(101.41,IENS,53)={PATH_SWITCH} set:{LISTBOX_TEXT*C} FDA(101.41,IENS,54)={LISTBOX_TEXT} set:{WINDOW_FORM_ID*C} FDA(101.41,IENS,55)={WINDOW_FORM_ID} set:{CREATE_PARENT_ORDER*C} FDA(101.41,IENS,56)={CREATE_PARENT_ORDER} set:{DISPLAY_SUBHEADER*C} FDA(101.41,IENS,57)={DISPLAY_SUBHEADER} set:{AUTOACCEPT_QUICK_ORDER*C} FDA(101.41,IENS,58)={AUTOACCEPT_QUICK_ORDER} set:{TIMESTAMP*C} FDA(101.41,IENS,99)={TIMESTAMP} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(101.41)") set %SkipFiling=1 if $d(%FMERR(101.41,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101.41)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(101.41,{RowId},20,,wproot,"%FMERR(101.41)") if $d(%FMERR(101.41,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101.41)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ORDERDIALOG2FC6S index ^ORD nonnull 101.41 "AB" {NAME} {IEN} 0]]> index ^ORD nonnull 101.41 "B" {NAME} {IEN} 0]]> index ^ORD nonnull 101.41 "C" $$UP^XLFSTR($E({DISPLAY_TEXT},1,63)) {IEN} 0]]> data ^ORD 101.41 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 9 "^" 5 8 "^" 5 1 "^" 5 6 "^" 1 1 2 new data,i,node set {DESCRIPTION}="" merge data=^ORD(101.41,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 3 "^" 5 7 "^" 0 2 "^" 1 2 "^" 1 3 "^" 5 4 "^" 5 2 "^" 0 1 "^" 5 3 "^" 0 6 "^" 99 1 "^" 0 4 "^" 0 8 "^" 5 5 Generated class for FileMan File Number: '100.01' File Name: 'ORDER STATUS' Class generated by %fm2class version 2.56 This file contains the possible statuses that may be associated with an order in OE/RR. Per VHA Directive 2005-044, this file has been "locked down" by Data Standardization (DS). The file definition (i.e. data dictionary) shall not be modified. All additions, changes and deletions to entries in the file shall be done by Enterprise Reference Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS). Creating and/or editing locally defined fields in the file are not permitted. Use of locally defined fields that were created prior to VHA Directive 2005-044 shall not be supported. persistent _PUBLIC 0 RowId ORDER_STATUS_100_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.753101241 67178,44712.371609014 right ORDER STATUS 100.01 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '.1' This is the abbreviation of the status to be displayed on order reviews and printouts. The abbreviation is placed in its own node of the global and the entire node is reserved. This allows for the possibility of an abbreviation which contains an up arrow. %Library.String 1 7 s {ABBREVIATION}=$e({NODE__1},1,245) 1 ABBREVIATION FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' This is the description of the status. %Library.String 8 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^ORD(100.01,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MASTER ENTRY FOR VUID' FileMan Field Number: '99.98' This field identifies the Master entry for a VUID associated with a Term/Concept. %Library.EnumString 9 MASTER_ENTRY_FOR_VUID FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the status. %Library.String 1 4 NAME Computed Field For Node .1 %Library.String 1 6 s {NODE__1}=$g(^ORD(100.01,{IEN},.1)) 1 NODE__1 FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This is the number of the status entry. All entries are reserved. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'SHORT NAME' FileMan Field Number: '.02' This is a shorter version of the status name to be displayed on the Orders tab of the CPRS Chart. %Library.String 5 SHORT_NAME Relationship for Sub-File/Multiple to file name EFFECTIVE DATE/TIME child VALIP.prosthetic.fm2cw.SUBEFFECTIVEDATETIME1000199 children ORDERSTATUS10001 1 SUB_EFFECTIVE_DATETIME_100_0199 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VUID' FileMan Field Number: '99.99' VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide. %Library.String 10 VUID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ORD(100.01," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(100.01,"+1,",.01)={"NAME"} set:{SHORT_NAME}'="" FDA(100.01,"+1,",.02)={"SHORT_NAME"} set:{MASTER_ENTRY_FOR_VUID}'="" FDA(100.01,"+1,",99.98)={"MASTER_ENTRY_FOR_VUID"} set:{VUID}'="" FDA(100.01,"+1,",99.99)={"VUID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(100.01)") set %SkipFiling=1 if $d(%FMERR(100.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(100.01,{RowId},2,,"wp","%FMERR(100.01)") if $d(%FMERR(100.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(100.01,IENS,.01)={NAME} set:{SHORT_NAME*C} FDA(100.01,IENS,.02)={SHORT_NAME} set:{MASTER_ENTRY_FOR_VUID*C} FDA(100.01,IENS,99.98)={MASTER_ENTRY_FOR_VUID} set:{VUID*C} FDA(100.01,IENS,99.99)={VUID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(100.01)") set %SkipFiling=1 if $d(%FMERR(100.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(100.01,{RowId},2,,wproot,"%FMERR(100.01)") if $d(%FMERR(100.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(100.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.ORDERSTATUS8BF3S index ^ORD nonnull 100.01 "AMASTERVUID" {VUID} {MASTER_ENTRY_FOR_VUID} {IEN} 0]]> index ^ORD nonnull 100.01 "AVUID" {VUID} {IEN} 0]]> index ^ORD nonnull 100.01 "B" {NAME} {IEN} 0]]> data ^ORD 100.01 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 new data,i,node set {DESCRIPTION}="" merge data=^ORD(100.01,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "VUID" 2 "^" 0 1 "^" 0 2 "^" "VUID" 1 Generated class for FileMan File Number: '35' File Name: 'OTHER FEDERAL AGENCY' Class generated by %fm2class version 2.56 This file contains the names of federal agencies and countries. persistent _PUBLIC 0 RowId OTHER_FEDERAL_AGENCY_35 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.786804429 67178,44712.439819139 right OTHER FEDERAL AGENCY 35 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains an abbreviation for this federal agency. On outputs and other displays where the entire name of the federal agency may not fit, this abbreviation may appear instead. %Library.String 4 ABBREVIATION FileMan Field Label: 'ELIGIBILITY CODE NUMBER' FileMan Field Number: '2' Enter in this field the internal entry number of the MAS ELIGIBILITY CODE under which a patient receiving care from this federal agency may be entitled. %Library.Numeric 5 ELIGIBILITY_CODE_NUMBER FileMan Field Label: 'ENTRY TYPE' FileMan Field Number: '3' Enter the type of federal agency. If the entry is a country, enter C. If the entry is another federal agency, enter A. %Library.EnumString 6 ENTRY_TYPE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(35,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of a federal agency other than the Department of Veterans Affairs where a patient seen in the VA may be employed. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(35," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(35,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(35,"+1,",1)={"ABBREVIATION"} set:{ELIGIBILITY_CODE_NUMBER}'="" FDA(35,"+1,",2)={"ELIGIBILITY_CODE_NUMBER"} set:{ENTRY_TYPE}'="" FDA(35,"+1,",3)={"ENTRY_TYPE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(35)") set %SkipFiling=1 if $d(%FMERR(35,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(35)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(35,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(35,IENS,1)={ABBREVIATION} set:{ELIGIBILITY_CODE_NUMBER*C} FDA(35,IENS,2)={ELIGIBILITY_CODE_NUMBER} set:{ENTRY_TYPE*C} FDA(35,IENS,3)={ENTRY_TYPE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(35)") set %SkipFiling=1 if $d(%FMERR(35,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(35)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.OTHERFEDERADBB5S index ^DIC nonnull 35 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 35 "C" {ABBREVIATION} {IEN} 0]]> data ^DIC 35 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 4 "^" 0 1 Generated class for FileMan File Number: '59' File Name: 'OUTPATIENT SITE' Class generated by %fm2class version 2.56 This file holds the set of parameters which modify the operation of the outpatient pharmacy package to suit the needs of your site. The address information appears on the labels. Most of the other fields hold parameters which enable or disable a particular feature of the package. These parameters are loaded into a local variable when entering the package. Any changes made to these parameters will not be effective until the users exit from the package and re-enters it. persistent _PUBLIC 0 RowId OUTPATIENT_SITE_59 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.846669177 67178,44712.473402995 right OUTPATIENT SITE 59 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: 'AREA CODE' FileMan Field Number: '.03' This field is used for the area code of the outpatient site. %Library.Numeric 5 AREA_CODE FileMan Field Label: 'ASK METHOD OF PICKUP' FileMan Field Number: '.112' This field will be used to determine if method of pickup will be asked for window prescriptions. %Library.EnumString 15 ASK_METHOD_OF_PICKUP FileMan Field Label: 'AUTOMATED DISPENSE' FileMan Field Number: '105' This field will determine what version of the automated dispense machine this site is running. If the machine is older than HL7 V.2.4, enter letter O, if HL7 V.2.4 has been installed, enter 2.4. %Library.EnumString 47 AUTOMATED_DISPENSE FileMan Field Label: 'AUTO SUSPEND' FileMan Field Number: '.16' This field is used to determine if medication that is refilled or renewed before the next possible fill date is to be placed in suspense automatically. %Library.EnumString 30 AUTO_SUSPEND FileMan Field Label: 'BARCODES ON ACTION PROFILES' FileMan Field Number: '.1191' This field is used to indicate if barcodes are to print with the action profiles. Barcodes on action profiles are a new feature for version 6.0 of outpatient. The printer used must be setup or have barcode capabilities for the barcodes to print. Contact IRM to help determine which printer have barcode capabilities. %Library.EnumString 23 BARCODES_ON_ACTION_PROFILES FileMan Field Label: 'BARCODES ON REQUEST FORMS' FileMan Field Number: '.119' This field is used to determine if barcodes are printed on profiles, labels, and multi request forms. %Library.EnumString 22 BARCODES_ON_REQUEST_FORMS FileMan Field Label: 'BLANK LABEL BETWEEN PATIENTS' FileMan Field Number: '6' This field will determine if a blank label should print between patients on the label printers. %Library.EnumString 44 BLANK_LABEL_BETWEEN_PATIENTS FileMan Field Label: 'CANCEL DRUG IN SAME CLASS' FileMan Field Number: '.1' Prescriptions with duplicate classes can only be discontinued if this site parameter is set to 'Yes' and if the Rx has not been put on hold through CPRS. %Library.EnumString 13 CANCEL_DRUG_IN_SAME_CLASS FileMan Field Label: 'COPIES ON NEW' FileMan Field Number: '.115' This field will be used to determine the number copies for labels to print. %Library.EnumString 18 COPIES_ON_NEW FileMan Field Label: 'DAYS TO PULL SUSP CMOP CS' FileMan Field Number: '3.1' %Library.Numeric 37 DAYS_TO_PULL_SUSP_CMOP_CS FileMan Field Label: 'DAYS TO PULL SUSP CMOP NON-CS' FileMan Field Number: '3.4' %Library.Numeric 40 DAYS_TO_PULL_SUSP_CMOP_NONCS FileMan Field Label: 'DAYS TO PULL SUSP LOCAL CS' FileMan Field Number: '3.3' %Library.Numeric 39 DAYS_TO_PULL_SUSP_LOCAL_CS FileMan Field Label: 'DAYS TO PULL SUSP LOCAL NON-CS' FileMan Field Number: '3' %Library.Numeric 36 DAYS_TO_PULL_SUSP_LOCAL_NONCS FileMan Field Label: 'DISPENSE DNS NAME' FileMan Field Number: '2006' THIS IS THE DNS COMPUTER NAME OF THE AUTOMATED DISPENSING MACHINE THAT IS USED FOR THIS OUTPATIENT SITE DIVISION. %Library.String 67 DISPENSE_DNS_NAME FileMan Field Label: 'DISPENSE DNS PORT' FileMan Field Number: '2007' ENTER THE DNS PORT NUMBER ASSOCIATED WITH THE AUTOMATED DISPENSE MACHINE FOR THIS OUTPATIENT PHARMACY SITE DIVISION. %Library.Numeric 68 DISPENSE_DNS_PORT FileMan Field Label: 'DRUG CHECK FOR CLERK' FileMan Field Number: '.116' This field is used to determine if the duplicate drug warnings should be shown for non-pharmacist. %Library.EnumString 19 DRUG_CHECK_FOR_CLERK FileMan Field Label: 'EDIT DRUG' FileMan Field Number: '.13' This field will be used to determine if drugs can be changed during the prescription edit option. %Library.EnumString 27 EDIT_DRUG FileMan Field Label: 'EDIT PATIENT DATA' FileMan Field Number: '.123' This field is used to determine if editing of patient data will be allowed. %Library.EnumString 26 EDIT_PATIENT_DATA FileMan Field Label: 'ENABLE MASTER FILE UPDATE' FileMan Field Number: '105.2' This field will determine if the automated dispense machines are ready to receive HL7 V.2.4 messages. %Library.EnumString 49 ENABLE_MASTER_FILE_UPDATE FileMan Field Label: 'ERX DEFAULT LOOKBACK DAYS' FileMan Field Number: '10.2' This field holds the number of days in the past the eRx software will search the eRx holding queue on initial load, and when performing searches. %Library.Numeric 46 ERX_DEFAULT_LOOKBACK_DAYS FileMan Field Label: 'EXTERNAL INTERFACE' FileMan Field Number: '5' This field allows sites to alter the characteristics of the external interface. The Set of Codes field have the following values: 0 - the external interface is off 1 - send all drugs to the external interface; print labels locally 2 - send all drugs to the external interface; don't print labels locally 3 - send only marked drugs to the external interface; don't print labels locally 4 - send only marked drugs to external interface and print labels through VistA. %Library.EnumString 43 EXTERNAL_INTERFACE FileMan Field Label: 'FDA MED GUIDE PRINT SERVER URL' FileMan Field Number: '134' This is the Uniform Resource Locator(URL) and Port Number for the Print Server running the Java Application responsible for automatically printing of the Food and Drug Administration(FDA) Medication Guides for the division (e.g., 'http://127.00.0.1:port/'). If you do not want to use the FDA Medication Guide automatic printing functionality do not populate this field. %Library.String 54 FDA_MED_GUIDE_PRINT_SERVER_URL FileMan Field Label: 'FEE BASIS SUPPORT' FileMan Field Number: '.117' This field is used to determine if fee basis prescriptions are processed. %Library.EnumString 20 FEE_BASIS_SUPPORT FileMan Field Label: 'FILE RELEASE DATE/TIME' FileMan Field Number: '105.1' This field is used to indicate if the release date/time is to be filed for the prescription dispensed by an external interface. %Library.EnumString 48 FILE_RELEASE_DATETIME FileMan Field Label: 'HOLD FUNCTION?' FileMan Field Number: '.09' HOLD This site parameter is used to determine if the 'Hold' function will be used at the medical facility. %Library.EnumString 11 HOLD_FUNCTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PS(59,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '2004' This date will indicate that the Outpatient Site is no longer active, and cannot be selected through the Outpatient Pharmacy options. %Library.FilemanDate 66 INACTIVE_DATE FileMan Field Label: 'LABEL/PROFILE MONITOR MAX' FileMan Field Number: '109' Maximum number of label/profiles to be stored in the Label/Profile Monitor list for each printer device. The default and minimum value for this number is 1000. Each time the printer is used an entry is made in the Label/Profile monitor and if the monitor holds more entries than specified by this parameter, the oldest entry is deleted. %Library.Numeric 53 LABELPROFILE_MONITOR_MAX FileMan Field Label: 'LAST NARCOTIC NUMBER ISSUED' FileMan Field Number: '1002.1' This field is used to indicate last number issued for narcotic medications. %Library.Numeric 58 LAST_NARCOTIC_NUMBER_ISSUED FileMan Field Label: 'LAST PRESCRIPTION # ISSUED' FileMan Field Number: '2003' This field is used to store the last RX number used. %Library.Numeric 65 LAST_PRESCRIPTION__ISSUED FileMan Field Label: 'MAILING COMMENTS' FileMan Field Number: '.081' This field will be printed on the laser labels mailing address label. It can contain anything the site deems appropriate (i.e. whether mailing is "Forwarding service requested" or "Address service requested", etc.) %Library.String 10 MAILING_COMMENTS FileMan Field Label: 'MAILING FRANK CITY' FileMan Field Number: '.07' This field is used for the city in which the outpatient site is located. %Library.String 9 MAILING_FRANK_CITY FileMan Field Label: 'MAILING FRANK STREET ADDRESS' FileMan Field Number: '.02' This field is used for the address of the Outpatient Site. %Library.String 4 MAILING_FRANK_STREET_ADDRESS FileMan Field Label: 'MAILING FRANK ZIP+4 CODE' FileMan Field Number: '.05' This field is used for the zip code of the outpatient site. This field will allow zip+4 format (excluding the "-"). %Library.String 7 MAILING_FRANK_ZIP4_CODE FileMan Field Label: 'METHADONE PROGRAM' FileMan Field Number: '.51' This field will be used to determine if the site has a methadone program and if a particular drug should be prompted for. %Library.EnumString 34 METHADONE_PROGRAM FileMan Field Label: 'MULTI RX REQUEST FORM' FileMan Field Number: '.118' This field is used to determine if the multiple prescription request forms are printed with medication labels. %Library.EnumString 21 MULTI_RX_REQUEST_FORM FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the site. %Library.String 1 3 NAME FileMan Field Label: 'NARCOTICS NUMBERED DIFFERENTLY' FileMan Field Number: '1000' This field is used to determine if narcotics will be numbered differently from other medications/supplies. %Library.EnumString 55 NARCOTICS_NUMBERED_DIFFERENTLY FileMan Field Label: 'NARCOTIC LOWER BOUND' FileMan Field Number: '1001' This field is used to determine what prescription numbers narcotics are to start with if narcotics are numbered differently from other prescriptions/supplies. %Library.Numeric 56 NARCOTIC_LOWER_BOUND FileMan Field Label: 'NARCOTIC UPPER BOUND' FileMan Field Number: '1002' This field is used to determine the highest prescription number used for narcotics if this type of medication is numbered differently from other medications/supplies. %Library.Numeric 57 NARCOTIC_UPPER_BOUND FileMan Field Label: 'NARRATIVE FOR COPAY DOCUMENT' FileMan Field Number: '1004' This field contains information from the site regarding the copayment procedures for the patient to follow upon receipt of the copay document. For example, information may include a telephone number to call regarding billing inquiries, a payment mailing address, etc. %Library.String 59 NARRATIVE_FOR_COPAY_DOCUMENT FileMan Field Label: 'NARRATIVE NON-REFILLABLE RX' FileMan Field Number: '1006' This field contains information from the site regarding procedures for the patient to obtain a new prescription for his non-refillable medication. This field may contain address, phone number, etc that will assist the patient. %Library.String 61 NARRATIVE_NONREFILLABLE_RX FileMan Field Label: 'NARRATIVE REFILLABLE RX' FileMan Field Number: '1005' This field contains information from the site regarding procedures for the patient to obtain a refill of his refillable medication. May include the address, phone number, etc. that will assist the patient. %Library.String 60 NARRATIVE_REFILLABLE_RX FileMan Field Label: 'NCPDP NUMBER' FileMan Field Number: '1008' This field is the site-specific National Council for Prescription Drug Programs number (NCPDP), formerly referred to as the National Association of Boards of Pharmacy Number (NABP). %Library.String 62 NCPDP_NUMBER FileMan Field Label: 'NEW LABEL STOCK' FileMan Field Number: '4' This field will be used to determine which medication label stock will be used. %Library.EnumString 41 NEW_LABEL_STOCK FileMan Field Label: 'ONEVA PHARMACY FLAG' FileMan Field Number: '3001' This flag controls the functionality of the OneVA Pharmacy remote prescription logic. If the flag is turned on, this facility will be able to query prescriptions from other facilities, and will accept incoming refill and partial fills from other VA medical facilities. If the flag is turned 'off', no queries will be made, and external refill/partial fill requests will be declined. %Library.EnumString 71 ONEVA_PHARMACY_FLAG FileMan Field Label: 'PASS MEDS CANCEL' FileMan Field Number: '.15' This field is used to determine if pass medications are to be cancelled. %Library.EnumString 29 PASS_MEDS_CANCEL FileMan Field Label: 'PASS MEDS ON PROFILE' FileMan Field Number: '.113' This field is used to determine if pass medication within specified date range will be listed on profiles. %Library.EnumString 16 PASS_MEDS_ON_PROFILE FileMan Field Label: 'PHONE NUMBER' FileMan Field Number: '.04' This field is used for the telephone number of the outpatient site. %Library.String 6 PHONE_NUMBER FileMan Field Label: 'PRESCRIPTION # LOWER BOUND' FileMan Field Number: '2001' This field is used to enter the lowest prescription number for this site. %Library.Numeric 63 PRESCRIPTION__LOWER_BOUND FileMan Field Label: 'PRESCRIPTION # UPPER BOUND' FileMan Field Number: '2002' This field is used to enter the highest presciption number for this site. %Library.Numeric 64 PRESCRIPTION__UPPER_BOUND FileMan Field Label: 'PROCESS AUTO REFILLS FOR CNH' FileMan Field Number: '2035' This flag should be set to Yes, only if the site wants the scheduled AUTO REFILL [PSO AUTO REFILL] option to process refills for CNH patients. The AUTO REFILL job defaults to NO unless the site has this flagged as YES. %Library.EnumString 70 PROCESS_AUTO_REFILLS_FOR_CNH FileMan Field Label: 'PROCESS AUTO REFILLS FOR INPAT' FileMan Field Number: '2030' This flag should be set to Yes, only if the site wants the scheduled AUTO REFILL [PSO AUTO REFILL] option to process refills for patients who are currently an inpatient. The AUTO REFILL job defaults to NO unless the site has this flagged as YES. %Library.EnumString 69 PROCESS_AUTO_REFILLS_FOR_INPAT FileMan Field Label: 'PROC TEL REFILLS ALL DIVISIONS' FileMan Field Number: '4.2' The entry in this field is used as a sites default response to the "Process telephone refills for all divisions?" prompt when running the PROCESS TELEPHONE REFILLS option. If this field is set to Y the default prompt will be yes and N the default prompt will be NO. %Library.EnumString 42 PROC_TEL_REFILLS_ALL_DIVISIONS FileMan Field Label: 'PROFILE `SORT BY' DEFAULT' FileMan Field Number: '.114' This field will be used to determine the sort order of medications on profiles. %Library.EnumString 17 PROFILE_SORT_BY_DEFAULT FileMan Field Label: 'PROFILE WITH NEW PRESCRIPTIONS' FileMan Field Number: '.18' This field is used to determine if medication profiles are printed when new medication is ordered. %Library.EnumString 32 PROFILE_WITH_NEW_PRESCRIPTIONS FileMan Field Label: 'RECENTLY DC'D/EXPIRED DAYS' FileMan Field Number: '3.2' This field indicates the number of days a discontinued or expired med order appears in reverse video on a patient's med profile. %Library.Numeric 38 RECENTLY_DCDEXPIRED_DAYS FileMan Field Label: 'REFILL INACTIVE DRUG RXS' FileMan Field Number: '.111' This will be used to determine if inactive drugs will be used to refill active prescriptions. %Library.EnumString 14 REFILL_INACTIVE_DRUG_RXS FileMan Field Label: 'RENEWING RX'S ALLOWED' FileMan Field Number: '.14' This field will be used to determine if renewing of medications will be allowed. %Library.EnumString 28 RENEWING_RXS_ALLOWED FileMan Field Label: 'SCREEN PROFILES' FileMan Field Number: '.122' This field is used to determine if profiles are displayed when refilling and renewing medications. %Library.EnumString 25 SCREEN_PROFILES FileMan Field Label: 'SCRIPTALK AUTO-PRINT SETTINGS' FileMan Field Number: '107.1' Set this to 'A' to have a ScripTalk label automatically print for ScripTalk-enrolled patients whenever their regular medication label prints. Set to 'M' if ScripTalk labels will be printed manually. %Library.EnumString 50 SCRIPTALK_AUTOPRINT_SETTINGS FileMan Field Label: 'SCRIPTALK PRINTER TYPE' FileMan Field Number: '107.2' This field is used to determine the amount of readable prescription data that is printed on the ScripTalk labels that are read aloud by the ScripTalk Station Reader. Set this field according to the type of ScripTalk printer, either 2K or 10K. This setting is used to determine when to stop sending prescription data to the readable portion of the label and print a readable message to the patient to seek help for this particular prescription label, since there was not enough space for the prescription data. If this field is not set, the software will assume it is a 2K printer. %Library.EnumString 51 SCRIPTALK_PRINTER_TYPE FileMan Field Label: 'SHALL COMPUTER ASSIGN RX #S' FileMan Field Number: '.17' This field is used to determine if the computer will auto generate prescription numbers. %Library.EnumString 31 SHALL_COMPUTER_ASSIGN_RX_S FileMan Field Label: '*SITE DEA NUMBER' FileMan Field Number: '1' THIS FIELD IS NO LONGER USED! CLOZAPINE DATA ROLLUP HAS BEEN TAKEN OVER BY THE MENTAL HEALTH PACKAGE. This field will be used to indicate the Drug Enforcement Agency ID number for this site. %Library.String 35 SITE_DEA_NUMBER FileMan Field Label: 'SITE NUMBER' FileMan Field Number: '.06' This field is used to show the site/station number. %Library.String 1 8 SITE_NUMBER FileMan Field Label: 'SLAVED LABEL PRINTING' FileMan Field Number: '.2' This field will be used to allow printing of RX labels without being able to queue to a printer. This parameter is primarily for slaved printing of RX labels. If 'yes' is the answer the prompt for action to be taken on the label will include the '/PRINT' action. %Library.EnumString 33 SLAVED_LABEL_PRINTING FileMan Field Label: 'SUSPENSE FUNCTION?' FileMan Field Number: '.091' SUSPENSE This site parameter will be used to determine if the 'Suspense' feature will be used at the medical facility. %Library.EnumString 12 SUSPENSE_FUNCTION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 72 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFICATION' FileMan Field Number: '.12' This field is used to determine if prescriptions entered by a non-pharmacist are placed in a non-verified status. %Library.EnumString 24 VERIFICATION FileMan Field Label: 'VERIFYING PHARMACIST ON LABELS' FileMan Field Number: '7' This site parameter will determine if the name of the verifying pharmacist or the name of the person who made the order request will print on the Rx label. If the parameter is set to Yes the verifying pharmacist name will print. %Library.EnumString 45 VERIFYING_PHARMACIST_ON_LABELS FileMan Field Label: 'VOID OTHER LABELS' FileMan Field Number: '107.3' This field allows the site to define, by division, whether or not they wish to void the print of the drug name for the non-ScripTalk labels when the patient is enrolled in ScripTalk. %Library.EnumString 52 VOID_OTHER_LABELS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PS(59," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(59,"+1,",.01)={"NAME"} set:{MAILING_FRANK_STREET_ADDRESS}'="" FDA(59,"+1,",.02)={"MAILING_FRANK_STREET_ADDRESS"} set:{AREA_CODE}'="" FDA(59,"+1,",.03)={"AREA_CODE"} set:{PHONE_NUMBER}'="" FDA(59,"+1,",.04)={"PHONE_NUMBER"} set:{MAILING_FRANK_ZIP4_CODE}'="" FDA(59,"+1,",.05)={"MAILING_FRANK_ZIP4_CODE"} set:{SITE_NUMBER}'="" FDA(59,"+1,",.06)={"SITE_NUMBER"} set:{MAILING_FRANK_CITY}'="" FDA(59,"+1,",.07)={"MAILING_FRANK_CITY"} set:{MAILING_COMMENTS}'="" FDA(59,"+1,",.081)={"MAILING_COMMENTS"} set:{HOLD_FUNCTION}'="" FDA(59,"+1,",.09)={"HOLD_FUNCTION"} set:{SUSPENSE_FUNCTION}'="" FDA(59,"+1,",.091)={"SUSPENSE_FUNCTION"} set:{CANCEL_DRUG_IN_SAME_CLASS}'="" FDA(59,"+1,",.1)={"CANCEL_DRUG_IN_SAME_CLASS"} set:{REFILL_INACTIVE_DRUG_RXS}'="" FDA(59,"+1,",.111)={"REFILL_INACTIVE_DRUG_RXS"} set:{ASK_METHOD_OF_PICKUP}'="" FDA(59,"+1,",.112)={"ASK_METHOD_OF_PICKUP"} set:{PASS_MEDS_ON_PROFILE}'="" FDA(59,"+1,",.113)={"PASS_MEDS_ON_PROFILE"} set:{PROFILE_SORT_BY_DEFAULT}'="" FDA(59,"+1,",.114)={"PROFILE_SORT_BY_DEFAULT"} set:{COPIES_ON_NEW}'="" FDA(59,"+1,",.115)={"COPIES_ON_NEW"} set:{DRUG_CHECK_FOR_CLERK}'="" FDA(59,"+1,",.116)={"DRUG_CHECK_FOR_CLERK"} set:{FEE_BASIS_SUPPORT}'="" FDA(59,"+1,",.117)={"FEE_BASIS_SUPPORT"} set:{MULTI_RX_REQUEST_FORM}'="" FDA(59,"+1,",.118)={"MULTI_RX_REQUEST_FORM"} set:{BARCODES_ON_REQUEST_FORMS}'="" FDA(59,"+1,",.119)={"BARCODES_ON_REQUEST_FORMS"} set:{BARCODES_ON_ACTION_PROFILES}'="" FDA(59,"+1,",.1191)={"BARCODES_ON_ACTION_PROFILES"} set:{VERIFICATION}'="" FDA(59,"+1,",.12)={"VERIFICATION"} set:{SCREEN_PROFILES}'="" FDA(59,"+1,",.122)={"SCREEN_PROFILES"} set:{EDIT_PATIENT_DATA}'="" FDA(59,"+1,",.123)={"EDIT_PATIENT_DATA"} set:{EDIT_DRUG}'="" FDA(59,"+1,",.13)={"EDIT_DRUG"} set:{RENEWING_RXS_ALLOWED}'="" FDA(59,"+1,",.14)={"RENEWING_RXS_ALLOWED"} set:{PASS_MEDS_CANCEL}'="" FDA(59,"+1,",.15)={"PASS_MEDS_CANCEL"} set:{AUTO_SUSPEND}'="" FDA(59,"+1,",.16)={"AUTO_SUSPEND"} set:{SHALL_COMPUTER_ASSIGN_RX_S}'="" FDA(59,"+1,",.17)={"SHALL_COMPUTER_ASSIGN_RX_S"} set:{PROFILE_WITH_NEW_PRESCRIPTIONS}'="" FDA(59,"+1,",.18)={"PROFILE_WITH_NEW_PRESCRIPTIONS"} set:{SLAVED_LABEL_PRINTING}'="" FDA(59,"+1,",.2)={"SLAVED_LABEL_PRINTING"} set:{METHADONE_PROGRAM}'="" FDA(59,"+1,",.51)={"METHADONE_PROGRAM"} set:{SITE_DEA_NUMBER}'="" FDA(59,"+1,",1)={"SITE_DEA_NUMBER"} set:{DAYS_TO_PULL_SUSP_LOCAL_NONCS}'="" FDA(59,"+1,",3)={"DAYS_TO_PULL_SUSP_LOCAL_NONCS"} set:{DAYS_TO_PULL_SUSP_CMOP_CS}'="" FDA(59,"+1,",3.1)={"DAYS_TO_PULL_SUSP_CMOP_CS"} set:{RECENTLY_DCDEXPIRED_DAYS}'="" FDA(59,"+1,",3.2)={"RECENTLY_DCDEXPIRED_DAYS"} set:{DAYS_TO_PULL_SUSP_LOCAL_CS}'="" FDA(59,"+1,",3.3)={"DAYS_TO_PULL_SUSP_LOCAL_CS"} set:{DAYS_TO_PULL_SUSP_CMOP_NONCS}'="" FDA(59,"+1,",3.4)={"DAYS_TO_PULL_SUSP_CMOP_NONCS"} set:{NEW_LABEL_STOCK}'="" FDA(59,"+1,",4)={"NEW_LABEL_STOCK"} set:{PROC_TEL_REFILLS_ALL_DIVISIONS}'="" FDA(59,"+1,",4.2)={"PROC_TEL_REFILLS_ALL_DIVISIONS"} set:{EXTERNAL_INTERFACE}'="" FDA(59,"+1,",5)={"EXTERNAL_INTERFACE"} set:{BLANK_LABEL_BETWEEN_PATIENTS}'="" FDA(59,"+1,",6)={"BLANK_LABEL_BETWEEN_PATIENTS"} set:{VERIFYING_PHARMACIST_ON_LABELS}'="" FDA(59,"+1,",7)={"VERIFYING_PHARMACIST_ON_LABELS"} set:{ERX_DEFAULT_LOOKBACK_DAYS}'="" FDA(59,"+1,",10.2)={"ERX_DEFAULT_LOOKBACK_DAYS"} set:{AUTOMATED_DISPENSE}'="" FDA(59,"+1,",105)={"AUTOMATED_DISPENSE"} set:{FILE_RELEASE_DATETIME}'="" FDA(59,"+1,",105.1)={"FILE_RELEASE_DATETIME"} set:{ENABLE_MASTER_FILE_UPDATE}'="" FDA(59,"+1,",105.2)={"ENABLE_MASTER_FILE_UPDATE"} set:{SCRIPTALK_AUTOPRINT_SETTINGS}'="" FDA(59,"+1,",107.1)={"SCRIPTALK_AUTOPRINT_SETTINGS"} set:{SCRIPTALK_PRINTER_TYPE}'="" FDA(59,"+1,",107.2)={"SCRIPTALK_PRINTER_TYPE"} set:{VOID_OTHER_LABELS}'="" FDA(59,"+1,",107.3)={"VOID_OTHER_LABELS"} set:{LABELPROFILE_MONITOR_MAX}'="" FDA(59,"+1,",109)={"LABELPROFILE_MONITOR_MAX"} set:{FDA_MED_GUIDE_PRINT_SERVER_URL}'="" FDA(59,"+1,",134)={"FDA_MED_GUIDE_PRINT_SERVER_URL"} set:{NARCOTICS_NUMBERED_DIFFERENTLY}'="" FDA(59,"+1,",1000)={"NARCOTICS_NUMBERED_DIFFERENTLY"} set:{NARCOTIC_LOWER_BOUND}'="" FDA(59,"+1,",1001)={"NARCOTIC_LOWER_BOUND"} set:{NARCOTIC_UPPER_BOUND}'="" FDA(59,"+1,",1002)={"NARCOTIC_UPPER_BOUND"} set:{LAST_NARCOTIC_NUMBER_ISSUED}'="" FDA(59,"+1,",1002.1)={"LAST_NARCOTIC_NUMBER_ISSUED"} set:{NCPDP_NUMBER}'="" FDA(59,"+1,",1008)={"NCPDP_NUMBER"} set:{PRESCRIPTION__LOWER_BOUND}'="" FDA(59,"+1,",2001)={"PRESCRIPTION__LOWER_BOUND"} set:{PRESCRIPTION__UPPER_BOUND}'="" FDA(59,"+1,",2002)={"PRESCRIPTION__UPPER_BOUND"} set:{LAST_PRESCRIPTION__ISSUED}'="" FDA(59,"+1,",2003)={"LAST_PRESCRIPTION__ISSUED"} set:{INACTIVE_DATE}'="" FDA(59,"+1,",2004)={"INACTIVE_DATE"} set:{DISPENSE_DNS_NAME}'="" FDA(59,"+1,",2006)={"DISPENSE_DNS_NAME"} set:{DISPENSE_DNS_PORT}'="" FDA(59,"+1,",2007)={"DISPENSE_DNS_PORT"} set:{PROCESS_AUTO_REFILLS_FOR_INPAT}'="" FDA(59,"+1,",2030)={"PROCESS_AUTO_REFILLS_FOR_INPAT"} set:{PROCESS_AUTO_REFILLS_FOR_CNH}'="" FDA(59,"+1,",2035)={"PROCESS_AUTO_REFILLS_FOR_CNH"} set:{ONEVA_PHARMACY_FLAG}'="" FDA(59,"+1,",3001)={"ONEVA_PHARMACY_FLAG"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(59)") set %SkipFiling=1 if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {NARRATIVE_FOR_COPAY_DOCUMENT}'="" { set D0={RowId} for i=1:1:$l({NARRATIVE_FOR_COPAY_DOCUMENT},$c(13,10)) { set wp(i)=$p({NARRATIVE_FOR_COPAY_DOCUMENT},$c(13,10),i) } do WP^DIE(59,{RowId},1004,,"wp","%FMERR(59)") if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {NARRATIVE_REFILLABLE_RX}'="" { set D0={RowId} for i=1:1:$l({NARRATIVE_REFILLABLE_RX},$c(13,10)) { set wp(i)=$p({NARRATIVE_REFILLABLE_RX},$c(13,10),i) } do WP^DIE(59,{RowId},1005,,"wp","%FMERR(59)") if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {NARRATIVE_NONREFILLABLE_RX}'="" { set D0={RowId} for i=1:1:$l({NARRATIVE_NONREFILLABLE_RX},$c(13,10)) { set wp(i)=$p({NARRATIVE_NONREFILLABLE_RX},$c(13,10),i) } do WP^DIE(59,{RowId},1006,,"wp","%FMERR(59)") if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(59,IENS,.01)={NAME} set:{MAILING_FRANK_STREET_ADDRESS*C} FDA(59,IENS,.02)={MAILING_FRANK_STREET_ADDRESS} set:{AREA_CODE*C} FDA(59,IENS,.03)={AREA_CODE} set:{PHONE_NUMBER*C} FDA(59,IENS,.04)={PHONE_NUMBER} set:{MAILING_FRANK_ZIP4_CODE*C} FDA(59,IENS,.05)={MAILING_FRANK_ZIP4_CODE} set:{SITE_NUMBER*C} FDA(59,IENS,.06)={SITE_NUMBER} set:{MAILING_FRANK_CITY*C} FDA(59,IENS,.07)={MAILING_FRANK_CITY} set:{MAILING_COMMENTS*C} FDA(59,IENS,.081)={MAILING_COMMENTS} set:{HOLD_FUNCTION*C} FDA(59,IENS,.09)={HOLD_FUNCTION} set:{SUSPENSE_FUNCTION*C} FDA(59,IENS,.091)={SUSPENSE_FUNCTION} set:{CANCEL_DRUG_IN_SAME_CLASS*C} FDA(59,IENS,.1)={CANCEL_DRUG_IN_SAME_CLASS} set:{REFILL_INACTIVE_DRUG_RXS*C} FDA(59,IENS,.111)={REFILL_INACTIVE_DRUG_RXS} set:{ASK_METHOD_OF_PICKUP*C} FDA(59,IENS,.112)={ASK_METHOD_OF_PICKUP} set:{PASS_MEDS_ON_PROFILE*C} FDA(59,IENS,.113)={PASS_MEDS_ON_PROFILE} set:{PROFILE_SORT_BY_DEFAULT*C} FDA(59,IENS,.114)={PROFILE_SORT_BY_DEFAULT} set:{COPIES_ON_NEW*C} FDA(59,IENS,.115)={COPIES_ON_NEW} set:{DRUG_CHECK_FOR_CLERK*C} FDA(59,IENS,.116)={DRUG_CHECK_FOR_CLERK} set:{FEE_BASIS_SUPPORT*C} FDA(59,IENS,.117)={FEE_BASIS_SUPPORT} set:{MULTI_RX_REQUEST_FORM*C} FDA(59,IENS,.118)={MULTI_RX_REQUEST_FORM} set:{BARCODES_ON_REQUEST_FORMS*C} FDA(59,IENS,.119)={BARCODES_ON_REQUEST_FORMS} set:{BARCODES_ON_ACTION_PROFILES*C} FDA(59,IENS,.1191)={BARCODES_ON_ACTION_PROFILES} set:{VERIFICATION*C} FDA(59,IENS,.12)={VERIFICATION} set:{SCREEN_PROFILES*C} FDA(59,IENS,.122)={SCREEN_PROFILES} set:{EDIT_PATIENT_DATA*C} FDA(59,IENS,.123)={EDIT_PATIENT_DATA} set:{EDIT_DRUG*C} FDA(59,IENS,.13)={EDIT_DRUG} set:{RENEWING_RXS_ALLOWED*C} FDA(59,IENS,.14)={RENEWING_RXS_ALLOWED} set:{PASS_MEDS_CANCEL*C} FDA(59,IENS,.15)={PASS_MEDS_CANCEL} set:{AUTO_SUSPEND*C} FDA(59,IENS,.16)={AUTO_SUSPEND} set:{SHALL_COMPUTER_ASSIGN_RX_S*C} FDA(59,IENS,.17)={SHALL_COMPUTER_ASSIGN_RX_S} set:{PROFILE_WITH_NEW_PRESCRIPTIONS*C} FDA(59,IENS,.18)={PROFILE_WITH_NEW_PRESCRIPTIONS} set:{SLAVED_LABEL_PRINTING*C} FDA(59,IENS,.2)={SLAVED_LABEL_PRINTING} set:{METHADONE_PROGRAM*C} FDA(59,IENS,.51)={METHADONE_PROGRAM} set:{SITE_DEA_NUMBER*C} FDA(59,IENS,1)={SITE_DEA_NUMBER} set:{DAYS_TO_PULL_SUSP_LOCAL_NONCS*C} FDA(59,IENS,3)={DAYS_TO_PULL_SUSP_LOCAL_NONCS} set:{DAYS_TO_PULL_SUSP_CMOP_CS*C} FDA(59,IENS,3.1)={DAYS_TO_PULL_SUSP_CMOP_CS} set:{RECENTLY_DCDEXPIRED_DAYS*C} FDA(59,IENS,3.2)={RECENTLY_DCDEXPIRED_DAYS} set:{DAYS_TO_PULL_SUSP_LOCAL_CS*C} FDA(59,IENS,3.3)={DAYS_TO_PULL_SUSP_LOCAL_CS} set:{DAYS_TO_PULL_SUSP_CMOP_NONCS*C} FDA(59,IENS,3.4)={DAYS_TO_PULL_SUSP_CMOP_NONCS} set:{NEW_LABEL_STOCK*C} FDA(59,IENS,4)={NEW_LABEL_STOCK} set:{PROC_TEL_REFILLS_ALL_DIVISIONS*C} FDA(59,IENS,4.2)={PROC_TEL_REFILLS_ALL_DIVISIONS} set:{EXTERNAL_INTERFACE*C} FDA(59,IENS,5)={EXTERNAL_INTERFACE} set:{BLANK_LABEL_BETWEEN_PATIENTS*C} FDA(59,IENS,6)={BLANK_LABEL_BETWEEN_PATIENTS} set:{VERIFYING_PHARMACIST_ON_LABELS*C} FDA(59,IENS,7)={VERIFYING_PHARMACIST_ON_LABELS} set:{ERX_DEFAULT_LOOKBACK_DAYS*C} FDA(59,IENS,10.2)={ERX_DEFAULT_LOOKBACK_DAYS} set:{AUTOMATED_DISPENSE*C} FDA(59,IENS,105)={AUTOMATED_DISPENSE} set:{FILE_RELEASE_DATETIME*C} FDA(59,IENS,105.1)={FILE_RELEASE_DATETIME} set:{ENABLE_MASTER_FILE_UPDATE*C} FDA(59,IENS,105.2)={ENABLE_MASTER_FILE_UPDATE} set:{SCRIPTALK_AUTOPRINT_SETTINGS*C} FDA(59,IENS,107.1)={SCRIPTALK_AUTOPRINT_SETTINGS} set:{SCRIPTALK_PRINTER_TYPE*C} FDA(59,IENS,107.2)={SCRIPTALK_PRINTER_TYPE} set:{VOID_OTHER_LABELS*C} FDA(59,IENS,107.3)={VOID_OTHER_LABELS} set:{LABELPROFILE_MONITOR_MAX*C} FDA(59,IENS,109)={LABELPROFILE_MONITOR_MAX} set:{FDA_MED_GUIDE_PRINT_SERVER_URL*C} FDA(59,IENS,134)={FDA_MED_GUIDE_PRINT_SERVER_URL} set:{NARCOTICS_NUMBERED_DIFFERENTLY*C} FDA(59,IENS,1000)={NARCOTICS_NUMBERED_DIFFERENTLY} set:{NARCOTIC_LOWER_BOUND*C} FDA(59,IENS,1001)={NARCOTIC_LOWER_BOUND} set:{NARCOTIC_UPPER_BOUND*C} FDA(59,IENS,1002)={NARCOTIC_UPPER_BOUND} set:{LAST_NARCOTIC_NUMBER_ISSUED*C} FDA(59,IENS,1002.1)={LAST_NARCOTIC_NUMBER_ISSUED} set:{NCPDP_NUMBER*C} FDA(59,IENS,1008)={NCPDP_NUMBER} set:{PRESCRIPTION__LOWER_BOUND*C} FDA(59,IENS,2001)={PRESCRIPTION__LOWER_BOUND} set:{PRESCRIPTION__UPPER_BOUND*C} FDA(59,IENS,2002)={PRESCRIPTION__UPPER_BOUND} set:{LAST_PRESCRIPTION__ISSUED*C} FDA(59,IENS,2003)={LAST_PRESCRIPTION__ISSUED} set:{INACTIVE_DATE*C} FDA(59,IENS,2004)={INACTIVE_DATE} set:{DISPENSE_DNS_NAME*C} FDA(59,IENS,2006)={DISPENSE_DNS_NAME} set:{DISPENSE_DNS_PORT*C} FDA(59,IENS,2007)={DISPENSE_DNS_PORT} set:{PROCESS_AUTO_REFILLS_FOR_INPAT*C} FDA(59,IENS,2030)={PROCESS_AUTO_REFILLS_FOR_INPAT} set:{PROCESS_AUTO_REFILLS_FOR_CNH*C} FDA(59,IENS,2035)={PROCESS_AUTO_REFILLS_FOR_CNH} set:{ONEVA_PHARMACY_FLAG*C} FDA(59,IENS,3001)={ONEVA_PHARMACY_FLAG} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(59)") set %SkipFiling=1 if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {NARRATIVE_FOR_COPAY_DOCUMENT*C} { set D0={RowId} kill wp if {NARRATIVE_FOR_COPAY_DOCUMENT}'="" { set wproot="wp" for i=1:1:$l({NARRATIVE_FOR_COPAY_DOCUMENT},$c(13,10)) { set wp(i)=$p({NARRATIVE_FOR_COPAY_DOCUMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(59,{RowId},1004,,wproot,"%FMERR(59)") if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {NARRATIVE_REFILLABLE_RX*C} { set D0={RowId} kill wp if {NARRATIVE_REFILLABLE_RX}'="" { set wproot="wp" for i=1:1:$l({NARRATIVE_REFILLABLE_RX},$c(13,10)) { set wp(i)=$p({NARRATIVE_REFILLABLE_RX},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(59,{RowId},1005,,wproot,"%FMERR(59)") if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {NARRATIVE_NONREFILLABLE_RX*C} { set D0={RowId} kill wp if {NARRATIVE_NONREFILLABLE_RX}'="" { set wproot="wp" for i=1:1:$l({NARRATIVE_NONREFILLABLE_RX},$c(13,10)) { set wp(i)=$p({NARRATIVE_NONREFILLABLE_RX},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(59,{RowId},1006,,wproot,"%FMERR(59)") if $d(%FMERR(59,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(59)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.OUTPATIENTS29D7S index ^PS nonnull 59 "B" {NAME} {IEN} 0]]> index ^PS nonnull 59 "C" {SITE_NUMBER} {IEN} 0]]> data ^PS 59 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 1 12 "^" "DISP" 1 "^" 1 6 "^" 1 1 "^" 1 19 "^" 1 31 "^" 1 10 "^" 1 15 "^" 1 9 "^" 1 35 "^" 1 34 "^" 1 27 "^" 8 5 "^" 8 6 "^" 1 16 "^" 1 3 "^" 1 22 "^" "DISP" 3 "^" 10 2 "^" 1 30 "^" "FDAS" 1 "^" 1 17 "^" "DISP" 2 "^" 1 23 "^" "I" 1 "^" 0 9 "^" 3 3 "^" 8 3 "^" 9 1 "^" 0 7 "^" 0 2 "^" 0 5 "^" 5 1 "^" 1 18 "^" 0 1 "^" 2 1 "^" 3 1 "^" 3 2 4 new data,i,node set {NARRATIVE_FOR_COPAY_DOCUMENT}="" merge data=^PS(59,{S2},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {NARRATIVE_FOR_COPAY_DOCUMENT}={NARRATIVE_FOR_COPAY_DOCUMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 7 new data,i,node set {NARRATIVE_NONREFILLABLE_RX}="" merge data=^PS(59,{S2},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {NARRATIVE_NONREFILLABLE_RX}={NARRATIVE_NONREFILLABLE_RX}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 6 new data,i,node set {NARRATIVE_REFILLABLE_RX}="" merge data=^PS(59,{S2},6) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {NARRATIVE_REFILLABLE_RX}={NARRATIVE_REFILLABLE_RX}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "SAND" 3 "^" 1 28 "^" 9 2 "^" 1 5 "^" 1 13 "^" 0 4 "^" 8 1 "^" 8 2 "^" "RF" 2 "^" "RF" 1 "^" "RF" 3 "^" 1 14 "^" 1 8 "^" 1 33 "^" 1 11 "^" 1 4 "^" 1 21 "^" "STALK" 2 "^" "STALK" 3 "^" 1 7 "^" "SAND" 1 "^" 0 6 "^" 1 26 "^" 1 24 "^" 1 2 "^" 1 32 "^" "STALK" 4 Generated class for FileMan File Number: '698.4' File Name: 'PACEMAKER EQUIPMENT' Class generated by %fm2class version 2.56 This file holds the various Generators, Leads, PSA Analyzers and telephone transmitters used in the Pacemaker module persistent _PUBLIC 0 RowId PACEMAKER_EQUIPMENT_698_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.818683258 67178,44712.528256964 right PACEMAKER EQUIPMENT 698.4 2.56 12/04/2024 12:25:12 1 1 IEN 1 PACEMAKER_MANUFACTURER_698_6]]> MANUFACTURER VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 FKey_MANUFACTURER Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(698.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MANUFACTURER' FileMan Field Number: '2' This field identifies the manufacturer. VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 5 MANUFACTURER NAME This field identifies the name of the manufacturer.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_EQUIPMENT_698_4 where %ID=:id) set {MANUFACTURER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MANUFACTURER_NAME 1 FileMan Field Label: 'MODEL NUMBER/NAME' FileMan Field Number: '.01' This field identifies the model identifier. %Library.String 1 3 MODEL_NUMBERNAME FileMan Field Label: 'TYPE OF EQUIPMENT' FileMan Field Number: '1' This field identifies the equipment description. %Library.EnumString 4 TYPE_OF_EQUIPMENT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(698.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{MODEL_NUMBERNAME}'="" FDA(698.4,"+1,",.01)={"MODEL_NUMBERNAME"} set:{TYPE_OF_EQUIPMENT}'="" FDA(698.4,"+1,",1)={"TYPE_OF_EQUIPMENT"} set:{MANUFACTURER}'="" FDA(698.4,"+1,",2)={"MANUFACTURER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(698.4)") set %SkipFiling=1 if $d(%FMERR(698.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{MODEL_NUMBERNAME*C} FDA(698.4,IENS,.01)={MODEL_NUMBERNAME} set:{TYPE_OF_EQUIPMENT*C} FDA(698.4,IENS,1)={TYPE_OF_EQUIPMENT} set:{MANUFACTURER*C} FDA(698.4,IENS,2)={MANUFACTURER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.4)") set %SkipFiling=1 if $d(%FMERR(698.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PACEMAKEREQA40CS index ^MCAR nonnull 698.4 "B" {MODEL_NUMBERNAME} {IEN} 0]]> index ^MCAR nonnull 698.4 "C" {TYPE_OF_EQUIPMENT} {IEN} 0]]> index ^MCAR nonnull 698.4 "D" {MANUFACTURER} {IEN} 0]]> data ^MCAR 698.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '698.6' File Name: 'PACEMAKER MANUFACTURER' Class generated by %fm2class version 2.56 This file holds the manufacturer's name for the various equipment (Generators, A Leads, V Leads, PSAs, and telephone transmitters) used by Pacemaker. persistent _PUBLIC 0 RowId PACEMAKER_MANUFACTURER_698_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.844573996 67178,44712.561563228 right PACEMAKER MANUFACTURER 698.6 2.56 12/04/2024 12:25:12 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(698.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MNEMONIC' FileMan Field Number: '1' This field identifies the abbreviated manufacturer name. %Library.String 1 4 MNEMONIC FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies the name of the manufacturer. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(698.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(698.6,"+1,",.01)={"NAME"} set:{MNEMONIC}'="" FDA(698.6,"+1,",1)={"MNEMONIC"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(698.6)") set %SkipFiling=1 if $d(%FMERR(698.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(698.6,IENS,.01)={NAME} set:{MNEMONIC*C} FDA(698.6,IENS,1)={MNEMONIC} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.6)") set %SkipFiling=1 if $d(%FMERR(698.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PACEMAKERMANA89S index ^MCAR nonnull 698.6 "B" {NAME} {IEN} 0]]> index ^MCAR nonnull 698.6 "C" {MNEMONIC} {IEN} 0]]> data ^MCAR 698.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '698.3' File Name: 'PACEMAKER SURVEILLANCE' Class generated by %fm2class version 2.56 This file holds the telephone/clinic follow-up data for Pacemaker. persistent _PUBLIC 0 RowId PACEMAKER_SURVEILLANCE_698_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.898505805 67178,44712.618591593 right PACEMAKER SURVEILLANCE 698.3 2.56 12/04/2024 12:25:12 1 1 IEN 1 NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN NONMAGNET_ECG_RHYTHM_698_9]]> BASICRHYTHM VALIP.prosthetic.fm2cw.NONMAGNETECGRHYTHM6989 FKey_BASIC_RHYTHM NEW_PERSON_200]]> CALLER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CALLER NEW_PERSON_200]]> FELLOW VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER REASON_MEDICINE_695_8]]> REASONFORREPROGRAMMING VALIP.prosthetic.fm2cw.REASONMEDICINE6958 FKey_REASON_FOR_REPROGRAMMING FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '300' VALIP.prosthetic.fm2cw.NEWPERSON200 45 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'A-V DELAY WO MAG (MSEC)' FileMan Field Number: '11' This allows documentation of a current rhythm parameter. %Library.Numeric 11 AV_DELAY_WO_MAG_MSEC FileMan Field Label: 'A-V DELAY W MAG (MSEC)' FileMan Field Number: '12' This allows documentation of a current rhythm parameter. %Library.Numeric 12 AV_DELAY_W_MAG_MSEC FileMan Field Label: 'BASIC RHYTHM' FileMan Field Number: '15' This allows documentation of the current rhythm. VALIP.prosthetic.fm2cw.NONMAGNETECGRHYTHM6989 15 BASIC_RHYTHM ECG RHYTHM This field identifies the ECG rhythm.]]> %Library.String 1 ECG_RHYTHM into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {BASIC_RHYTHM_ECG_RHYTHM}=$select(SQLCODE=0:val,1:"")]]> 1 BASIC_RHYTHM_ECG_RHYTHM 1 FileMan Field Label: 'BATTERY VOLTAGE' FileMan Field Number: '13' This allows documentation of current power state. %Library.Numeric 13 BATTERY_VOLTAGE FileMan Field Label: 'CALLER' FileMan Field Number: '2' This field identifies the surveillance operator. VALIP.prosthetic.fm2cw.NEWPERSON200 5 CALLER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {CALLER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CALLER_NAME 1 FileMan Field Label: 'CAPTURE (ATRIAL)' FileMan Field Number: '106' This allows documentation of atrial capture. %Library.EnumString 28 CAPTURE_ATRIAL FileMan Field Label: 'CAPTURE (VENTRICULAR)' FileMan Field Number: '206' This allows documentation of ventricular capture. %Library.EnumString 39 CAPTURE_VENTRICULAR FileMan Field Label: 'COMMENTS' FileMan Field Number: '500' This allows a documentation area of free form. %Library.String 50 COMMENTS FileMan Field Label: 'DATA GATHERING MODE' FileMan Field Number: '3' This defines the surveillance technique. %Library.EnumString 6 DATA_GATHERING_MODE FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This allows analysis based on time. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'FAST OR SLOW CHECK' FileMan Field Number: '492' This allows documentation of fast/slow check. %Library.EnumString 48 FAST_OR_SLOW_CHECK FileMan Field Label: 'FELLOW' FileMan Field Number: '301' This field identifies the name of the Cardiology Fellow for this Surveillance Entry. VALIP.prosthetic.fm2cw.NEWPERSON200 46 FELLOW NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {FELLOW_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW_NAME 1 FileMan Field Label: 'FOLLOWUP COMMENT' FileMan Field Number: '491' This allows a documentation area of free form. %Library.String 47 FOLLOWUP_COMMENT FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 56 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(698.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEASURED A-LEAD AMPLITUDE (MV)' FileMan Field Number: '102' This allows documentation of atrial lead voltage. %Library.Numeric 24 MEASURED_ALEAD_AMPLITUDE_MV FileMan Field Label: 'MEASURED V-LEAD AMPLITUDE (MV)' FileMan Field Number: '202' This allows documentation of ventricular lead voltage. %Library.Numeric 35 MEASURED_VLEAD_AMPLITUDE_MV FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' Patient's name. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'NEXT FOLLOW-UP DATE' FileMan Field Number: '493' This allows documentation of the scheduled follow-up date. %Library.FilemanTimeStamp 49 NEXT_FOLLOWUP_DATE FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 55 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 54 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PERCENT OF PACED BEATS' FileMan Field Number: '16' This allows documentation of the current rate of generator activity. %Library.Numeric 16 PERCENT_OF_PACED_BEATS FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 53 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This field identifies a required free-text summary (1 to 79 characters) of the surveillance. This summary will appear on the Summary of Patient Procedures. %Library.String 51 PROCEDURE_SUMMARY FileMan Field Label: 'PULSE INTERVAL (MSEC) WO MAG' FileMan Field Number: '4' This allows documentation of a current rate parameter. %Library.Numeric 7 PULSE_INTERVAL_MSEC_WO_MAG FileMan Field Label: 'PULSE INTERVAL (MSEC) W MAG' FileMan Field Number: '6' This allows documentation of a current rate parameter. %Library.Numeric 9 PULSE_INTERVAL_MSEC_W_MAG FileMan Field Label: 'PULSE WIDTH (ATRIAL-MSEC)' FileMan Field Number: '101' This allows documentation of a pulse segment rate parameter. %Library.Numeric 23 PULSE_WIDTH_ATRIALMSEC FileMan Field Label: 'PULSE WIDTH (VENTRICLE-MSEC)' FileMan Field Number: '201' This allows documentation of a pulse segment rate parameter. %Library.Numeric 34 PULSE_WIDTH_VENTRICLEMSEC FileMan Field Label: 'RATE WO MAG' FileMan Field Number: '5' This allows documentation of a current rate parameter. %Library.Numeric 1 8 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(698.3,5,9.2) S X=$S(Y(698.3,5,2):Y(698.3,5,3),Y(698.3,5,4):X) S X=$J(X,0,1) set {RATE_WO_MAG}=X 1 RATE_WO_MAG FileMan Field Label: 'RATE W MAG' FileMan Field Number: '7' This allows documentation of a current rate parameter. %Library.Numeric 1 10 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(698.3,7,9.2) S X=$S(Y(698.3,7,2):Y(698.3,7,3),Y(698.3,7,4):X) S X=$J(X,0,1) set {RATE_W_MAG}=X 1 RATE_W_MAG FileMan Field Label: 'RATIO (T/L) (ATRIAL)' FileMan Field Number: '103' This allows documentation of a performance ratio. %Library.Numeric 25 RATIO_TL_ATRIAL FileMan Field Label: 'RATIO (T/L) (VENTRICLE)' FileMan Field Number: '203' This allows documentation of a performance ratio. %Library.Numeric 36 RATIO_TL_VENTRICLE FileMan Field Label: 'REASON FOR REPROGRAMMING' FileMan Field Number: '55' This allows documentation of the adjustment rationale. VALIP.prosthetic.fm2cw.REASONMEDICINE6958 22 REASON_FOR_REPROGRAMMING NAME This field holds a list of Medical reasons for various areas of Medicine. Examples: Explain reasons for Pacemaker, Reason for stopping for PFT, etc.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PACEMAKER_SURVEILLANCE_698_3 where %ID=:id) set {REASON_FOR_REPROGRAMMING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REASON_FOR_REPROGRAMMING_NAME 1 FileMan Field Label: 'REPROGRAMMED A-V DELAY (MSECS)' FileMan Field Number: '52' This allows documentation of a rhythm adjustment. %Library.Numeric 19 REPROGRAMMED_AV_DELAY_MSECS FileMan Field Label: 'REPROGRAMMED HYSTERESIS' FileMan Field Number: '53' This allows documentation of a hysteresis adjustment. %Library.Numeric 20 REPROGRAMMED_HYSTERESIS FileMan Field Label: 'REPROGRAMMED PACING MODE' FileMan Field Number: '54' This allows documentation of an adjustment to device operations. %Library.EnumString 21 REPROGRAMMED_PACING_MODE FileMan Field Label: 'REPROGRAMMED RATE' FileMan Field Number: '50' This allows documentation of rate adjustments. %Library.Numeric 17 REPROGRAMMED_RATE FileMan Field Label: 'REPROGR. V-AMPLITUDE (VOLTS)' FileMan Field Number: '222' This allows documentation of ventricular voltage adjustments. %Library.Numeric 42 REPROGR__VAMPLITUDE_VOLTS FileMan Field Label: 'REPROG. A-AMPLITUDE (VOLTS)' FileMan Field Number: '122' This allows documentation of atrial voltage adjustments. %Library.Numeric 31 REPROG__AAMPLITUDE_VOLTS FileMan Field Label: 'REPROG. UPPER RATE LIMIT' FileMan Field Number: '51' This allows documentation of a rate adjustment. %Library.Numeric 18 REPROG__UPPER_RATE_LIMIT FileMan Field Label: 'REPR.ATRIAL REFRACTORY PERIOD' FileMan Field Number: '124' This allows documentation of adjustments to atrial refraction. %Library.Numeric 33 REPR_ATRIAL_REFRACTORY_PERIOD FileMan Field Label: 'REPR.PULSE WIDTH (ATRIAL-MSEC)' FileMan Field Number: '121' This allows documentation of a pulse segment adjustment. %Library.Numeric 30 REPR_PULSE_WIDTH_ATRIALMSEC FileMan Field Label: 'REPR.PULSE WIDTH (VENT-MSEC)' FileMan Field Number: '221' This allows documentation of a pulse segment adjustment. %Library.Numeric 41 REPR_PULSE_WIDTH_VENTMSEC FileMan Field Label: 'REPR.SENSITIVITY(ATRIAL-VOLTS)' FileMan Field Number: '123' This allows documentation of adjustments to atrial sense. %Library.Numeric 32 REPR_SENSITIVITYATRIALVOLTS FileMan Field Label: 'REPR.SENSITIVITY (VENTR.-MV)' FileMan Field Number: '223' This allows documentation of adjustments to ventricular sense. %Library.Numeric 43 REPR_SENSITIVITY_VENTR_MV FileMan Field Label: 'REPR. VENT. REFRACTORY PERIOD' FileMan Field Number: '224' This allows documentation of adjustments to ventricular refraction. %Library.Numeric 44 REPR__VENT__REFRACTORY_PERIOD FileMan Field Label: 'RESISTANCE' FileMan Field Number: '14' This allows documentation of the current ohms parameter. %Library.Numeric 14 RESISTANCE FileMan Field Label: 'SENSE (ATRIAL)' FileMan Field Number: '107' This allows documentation of atrial sense. %Library.EnumString 29 SENSE_ATRIAL FileMan Field Label: 'SENSE (VENTRICULAR)' FileMan Field Number: '207' This allows documentation of ventricular sense. %Library.EnumString 40 SENSE_VENTRICULAR Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69832 children PACEMAKERSURVEILLANCE6983 1 SUB_ICD_DIAGNOSIS_698_32 FileMan Field Label: 'SUMMARY' FileMan Field Number: '601' This field identifies a required summary of the surveillance (Normal, Abnormal, or Borderline). This will appear on the Summary of Patient Procedures. %Library.EnumString 52 SUMMARY FileMan Field Label: 'THRESHOLD AMPLITUDE (ATRIAL)' FileMan Field Number: '105' This allows documentation of the atrial voltage threshold. %Library.Numeric 27 THRESHOLD_AMPLITUDE_ATRIAL FileMan Field Label: 'THRESHOLD AMPLITUDE (VENT.)' FileMan Field Number: '205' This allows documentation of the ventricular voltage threshold. %Library.Numeric 38 THRESHOLD_AMPLITUDE_VENT_ FileMan Field Label: 'THRESHOLD WIDTH (ATRIAL)' FileMan Field Number: '104' This allows documentation of the atrial threshold parameter. %Library.Numeric 26 THRESHOLD_WIDTH_ATRIAL FileMan Field Label: 'THRESHOLD WIDTH (VENTRICLE)' FileMan Field Number: '204' This allows documentation of the ventricular threshold. %Library.Numeric 37 THRESHOLD_WIDTH_VENTRICLE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 57 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(698.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(698.3,"+1,",.01)={"DATETIME"} set:{MEDICAL_PATIENT}'="" FDA(698.3,"+1,",1)={"MEDICAL_PATIENT"} set:{CALLER}'="" FDA(698.3,"+1,",2)={"CALLER"} set:{DATA_GATHERING_MODE}'="" FDA(698.3,"+1,",3)={"DATA_GATHERING_MODE"} set:{PULSE_INTERVAL_MSEC_WO_MAG}'="" FDA(698.3,"+1,",4)={"PULSE_INTERVAL_MSEC_WO_MAG"} set:{PULSE_INTERVAL_MSEC_W_MAG}'="" FDA(698.3,"+1,",6)={"PULSE_INTERVAL_MSEC_W_MAG"} set:{AV_DELAY_WO_MAG_MSEC}'="" FDA(698.3,"+1,",11)={"AV_DELAY_WO_MAG_MSEC"} set:{AV_DELAY_W_MAG_MSEC}'="" FDA(698.3,"+1,",12)={"AV_DELAY_W_MAG_MSEC"} set:{BATTERY_VOLTAGE}'="" FDA(698.3,"+1,",13)={"BATTERY_VOLTAGE"} set:{RESISTANCE}'="" FDA(698.3,"+1,",14)={"RESISTANCE"} set:{BASIC_RHYTHM}'="" FDA(698.3,"+1,",15)={"BASIC_RHYTHM"} set:{PERCENT_OF_PACED_BEATS}'="" FDA(698.3,"+1,",16)={"PERCENT_OF_PACED_BEATS"} set:{REPROGRAMMED_RATE}'="" FDA(698.3,"+1,",50)={"REPROGRAMMED_RATE"} set:{REPROG__UPPER_RATE_LIMIT}'="" FDA(698.3,"+1,",51)={"REPROG__UPPER_RATE_LIMIT"} set:{REPROGRAMMED_AV_DELAY_MSECS}'="" FDA(698.3,"+1,",52)={"REPROGRAMMED_AV_DELAY_MSECS"} set:{REPROGRAMMED_HYSTERESIS}'="" FDA(698.3,"+1,",53)={"REPROGRAMMED_HYSTERESIS"} set:{REPROGRAMMED_PACING_MODE}'="" FDA(698.3,"+1,",54)={"REPROGRAMMED_PACING_MODE"} set:{REASON_FOR_REPROGRAMMING}'="" FDA(698.3,"+1,",55)={"REASON_FOR_REPROGRAMMING"} set:{PULSE_WIDTH_ATRIALMSEC}'="" FDA(698.3,"+1,",101)={"PULSE_WIDTH_ATRIALMSEC"} set:{MEASURED_ALEAD_AMPLITUDE_MV}'="" FDA(698.3,"+1,",102)={"MEASURED_ALEAD_AMPLITUDE_MV"} set:{RATIO_TL_ATRIAL}'="" FDA(698.3,"+1,",103)={"RATIO_TL_ATRIAL"} set:{THRESHOLD_WIDTH_ATRIAL}'="" FDA(698.3,"+1,",104)={"THRESHOLD_WIDTH_ATRIAL"} set:{THRESHOLD_AMPLITUDE_ATRIAL}'="" FDA(698.3,"+1,",105)={"THRESHOLD_AMPLITUDE_ATRIAL"} set:{CAPTURE_ATRIAL}'="" FDA(698.3,"+1,",106)={"CAPTURE_ATRIAL"} set:{SENSE_ATRIAL}'="" FDA(698.3,"+1,",107)={"SENSE_ATRIAL"} set:{REPR_PULSE_WIDTH_ATRIALMSEC}'="" FDA(698.3,"+1,",121)={"REPR_PULSE_WIDTH_ATRIALMSEC"} set:{REPROG__AAMPLITUDE_VOLTS}'="" FDA(698.3,"+1,",122)={"REPROG__AAMPLITUDE_VOLTS"} set:{REPR_SENSITIVITYATRIALVOLTS}'="" FDA(698.3,"+1,",123)={"REPR_SENSITIVITYATRIALVOLTS"} set:{REPR_ATRIAL_REFRACTORY_PERIOD}'="" FDA(698.3,"+1,",124)={"REPR_ATRIAL_REFRACTORY_PERIOD"} set:{PULSE_WIDTH_VENTRICLEMSEC}'="" FDA(698.3,"+1,",201)={"PULSE_WIDTH_VENTRICLEMSEC"} set:{MEASURED_VLEAD_AMPLITUDE_MV}'="" FDA(698.3,"+1,",202)={"MEASURED_VLEAD_AMPLITUDE_MV"} set:{RATIO_TL_VENTRICLE}'="" FDA(698.3,"+1,",203)={"RATIO_TL_VENTRICLE"} set:{THRESHOLD_WIDTH_VENTRICLE}'="" FDA(698.3,"+1,",204)={"THRESHOLD_WIDTH_VENTRICLE"} set:{THRESHOLD_AMPLITUDE_VENT_}'="" FDA(698.3,"+1,",205)={"THRESHOLD_AMPLITUDE_VENT_"} set:{CAPTURE_VENTRICULAR}'="" FDA(698.3,"+1,",206)={"CAPTURE_VENTRICULAR"} set:{SENSE_VENTRICULAR}'="" FDA(698.3,"+1,",207)={"SENSE_VENTRICULAR"} set:{REPR_PULSE_WIDTH_VENTMSEC}'="" FDA(698.3,"+1,",221)={"REPR_PULSE_WIDTH_VENTMSEC"} set:{REPROGR__VAMPLITUDE_VOLTS}'="" FDA(698.3,"+1,",222)={"REPROGR__VAMPLITUDE_VOLTS"} set:{REPR_SENSITIVITY_VENTR_MV}'="" FDA(698.3,"+1,",223)={"REPR_SENSITIVITY_VENTR_MV"} set:{REPR__VENT__REFRACTORY_PERIOD}'="" FDA(698.3,"+1,",224)={"REPR__VENT__REFRACTORY_PERIOD"} set:{ATTENDING_PHYSICIAN}'="" FDA(698.3,"+1,",300)={"ATTENDING_PHYSICIAN"} set:{FELLOW}'="" FDA(698.3,"+1,",301)={"FELLOW"} set:{FOLLOWUP_COMMENT}'="" FDA(698.3,"+1,",491)={"FOLLOWUP_COMMENT"} set:{FAST_OR_SLOW_CHECK}'="" FDA(698.3,"+1,",492)={"FAST_OR_SLOW_CHECK"} set:{NEXT_FOLLOWUP_DATE}'="" FDA(698.3,"+1,",493)={"NEXT_FOLLOWUP_DATE"} set:{PROCEDURE_SUMMARY}'="" FDA(698.3,"+1,",600)={"PROCEDURE_SUMMARY"} set:{SUMMARY}'="" FDA(698.3,"+1,",601)={"SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(698.3,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(698.3,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(698.3,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(698.3,"+1,",1001)={"GMRCO"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(698.3)") set %SkipFiling=1 if $d(%FMERR(698.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS}'="" { set D0={RowId} for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) } do WP^DIE(698.3,{RowId},500,,"wp","%FMERR(698.3)") if $d(%FMERR(698.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(698.3,IENS,.01)={DATETIME} set:{MEDICAL_PATIENT*C} FDA(698.3,IENS,1)={MEDICAL_PATIENT} set:{CALLER*C} FDA(698.3,IENS,2)={CALLER} set:{DATA_GATHERING_MODE*C} FDA(698.3,IENS,3)={DATA_GATHERING_MODE} set:{PULSE_INTERVAL_MSEC_WO_MAG*C} FDA(698.3,IENS,4)={PULSE_INTERVAL_MSEC_WO_MAG} set:{PULSE_INTERVAL_MSEC_W_MAG*C} FDA(698.3,IENS,6)={PULSE_INTERVAL_MSEC_W_MAG} set:{AV_DELAY_WO_MAG_MSEC*C} FDA(698.3,IENS,11)={AV_DELAY_WO_MAG_MSEC} set:{AV_DELAY_W_MAG_MSEC*C} FDA(698.3,IENS,12)={AV_DELAY_W_MAG_MSEC} set:{BATTERY_VOLTAGE*C} FDA(698.3,IENS,13)={BATTERY_VOLTAGE} set:{RESISTANCE*C} FDA(698.3,IENS,14)={RESISTANCE} set:{BASIC_RHYTHM*C} FDA(698.3,IENS,15)={BASIC_RHYTHM} set:{PERCENT_OF_PACED_BEATS*C} FDA(698.3,IENS,16)={PERCENT_OF_PACED_BEATS} set:{REPROGRAMMED_RATE*C} FDA(698.3,IENS,50)={REPROGRAMMED_RATE} set:{REPROG__UPPER_RATE_LIMIT*C} FDA(698.3,IENS,51)={REPROG__UPPER_RATE_LIMIT} set:{REPROGRAMMED_AV_DELAY_MSECS*C} FDA(698.3,IENS,52)={REPROGRAMMED_AV_DELAY_MSECS} set:{REPROGRAMMED_HYSTERESIS*C} FDA(698.3,IENS,53)={REPROGRAMMED_HYSTERESIS} set:{REPROGRAMMED_PACING_MODE*C} FDA(698.3,IENS,54)={REPROGRAMMED_PACING_MODE} set:{REASON_FOR_REPROGRAMMING*C} FDA(698.3,IENS,55)={REASON_FOR_REPROGRAMMING} set:{PULSE_WIDTH_ATRIALMSEC*C} FDA(698.3,IENS,101)={PULSE_WIDTH_ATRIALMSEC} set:{MEASURED_ALEAD_AMPLITUDE_MV*C} FDA(698.3,IENS,102)={MEASURED_ALEAD_AMPLITUDE_MV} set:{RATIO_TL_ATRIAL*C} FDA(698.3,IENS,103)={RATIO_TL_ATRIAL} set:{THRESHOLD_WIDTH_ATRIAL*C} FDA(698.3,IENS,104)={THRESHOLD_WIDTH_ATRIAL} set:{THRESHOLD_AMPLITUDE_ATRIAL*C} FDA(698.3,IENS,105)={THRESHOLD_AMPLITUDE_ATRIAL} set:{CAPTURE_ATRIAL*C} FDA(698.3,IENS,106)={CAPTURE_ATRIAL} set:{SENSE_ATRIAL*C} FDA(698.3,IENS,107)={SENSE_ATRIAL} set:{REPR_PULSE_WIDTH_ATRIALMSEC*C} FDA(698.3,IENS,121)={REPR_PULSE_WIDTH_ATRIALMSEC} set:{REPROG__AAMPLITUDE_VOLTS*C} FDA(698.3,IENS,122)={REPROG__AAMPLITUDE_VOLTS} set:{REPR_SENSITIVITYATRIALVOLTS*C} FDA(698.3,IENS,123)={REPR_SENSITIVITYATRIALVOLTS} set:{REPR_ATRIAL_REFRACTORY_PERIOD*C} FDA(698.3,IENS,124)={REPR_ATRIAL_REFRACTORY_PERIOD} set:{PULSE_WIDTH_VENTRICLEMSEC*C} FDA(698.3,IENS,201)={PULSE_WIDTH_VENTRICLEMSEC} set:{MEASURED_VLEAD_AMPLITUDE_MV*C} FDA(698.3,IENS,202)={MEASURED_VLEAD_AMPLITUDE_MV} set:{RATIO_TL_VENTRICLE*C} FDA(698.3,IENS,203)={RATIO_TL_VENTRICLE} set:{THRESHOLD_WIDTH_VENTRICLE*C} FDA(698.3,IENS,204)={THRESHOLD_WIDTH_VENTRICLE} set:{THRESHOLD_AMPLITUDE_VENT_*C} FDA(698.3,IENS,205)={THRESHOLD_AMPLITUDE_VENT_} set:{CAPTURE_VENTRICULAR*C} FDA(698.3,IENS,206)={CAPTURE_VENTRICULAR} set:{SENSE_VENTRICULAR*C} FDA(698.3,IENS,207)={SENSE_VENTRICULAR} set:{REPR_PULSE_WIDTH_VENTMSEC*C} FDA(698.3,IENS,221)={REPR_PULSE_WIDTH_VENTMSEC} set:{REPROGR__VAMPLITUDE_VOLTS*C} FDA(698.3,IENS,222)={REPROGR__VAMPLITUDE_VOLTS} set:{REPR_SENSITIVITY_VENTR_MV*C} FDA(698.3,IENS,223)={REPR_SENSITIVITY_VENTR_MV} set:{REPR__VENT__REFRACTORY_PERIOD*C} FDA(698.3,IENS,224)={REPR__VENT__REFRACTORY_PERIOD} set:{ATTENDING_PHYSICIAN*C} FDA(698.3,IENS,300)={ATTENDING_PHYSICIAN} set:{FELLOW*C} FDA(698.3,IENS,301)={FELLOW} set:{FOLLOWUP_COMMENT*C} FDA(698.3,IENS,491)={FOLLOWUP_COMMENT} set:{FAST_OR_SLOW_CHECK*C} FDA(698.3,IENS,492)={FAST_OR_SLOW_CHECK} set:{NEXT_FOLLOWUP_DATE*C} FDA(698.3,IENS,493)={NEXT_FOLLOWUP_DATE} set:{PROCEDURE_SUMMARY*C} FDA(698.3,IENS,600)={PROCEDURE_SUMMARY} set:{SUMMARY*C} FDA(698.3,IENS,601)={SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(698.3,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(698.3,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(698.3,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(698.3,IENS,1001)={GMRCO} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.3)") set %SkipFiling=1 if $d(%FMERR(698.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS*C} { set D0={RowId} kill wp if {COMMENTS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(698.3,{RowId},500,,wproot,"%FMERR(698.3)") if $d(%FMERR(698.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PACEMAKERSUBED1S index ^MCAR nonnull 698.3 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 698.3 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 698.3 "C" {MEDICAL_PATIENT} {IEN} 0]]> data ^MCAR 698.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 3 1 "^" 0 11 "^" 0 12 "^" 0 9 "^" 0 13 "^" 0 3 "^" 1 6 "^" 2 6 10 new data,i,node set {COMMENTS}="" merge data=^MCAR(698.3,{S2},10) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS}={COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 4 "^" 0 1 "^" 4 1 "^" 3 2 "^" 4 4 "^" "OR" 2 "^" 1 2 "^" 2 2 "^" 0 2 "^" 0 5 "^" "OR" 1 "^" "PCC" 1 "^" 0 10 "^" "PROV" 1 "^" .2 2 "^" 0 7 "^" 0 8 "^" 1 1 "^" 2 1 "^" 1 3 "^" 2 3 "^" 0 20 "^" 0 17 "^" 0 18 "^" 0 19 "^" 0 15 "^" 2 9 "^" 1 9 "^" 0 16 "^" 1 11 "^" 1 8 "^" 2 8 "^" 1 10 "^" 2 10 "^" 2 11 "^" 0 14 "^" 1 7 "^" 2 7 "^" .2 1 "^" 1 5 "^" 2 5 "^" 1 4 "^" 2 4 Generated class for FileMan File Number: '9.4' File Name: 'PACKAGE' Class generated by %fm2class version 2.56 This file identifies the elements of a package that will be transported by the initialization routines created by DIFROM. The prefix determines which namespaced entries will be retrieved from the Option, Bulletin, Help Frame, Function, and Security Key Files as well as the namespace that will be used to name the INIT routines built by running DIFROM. The Excluded Namespace field may be used to leave out some of these items. The File Multiple determines which files are sent with the package and whether data is included. Print, Input, Sort and Screen (FORM) templates are brought in by namespace, for the files listed in the File multiple. In addition, there are multiples for each type of template, that allow the user to specify individual templates outside the namespace to retrieve. Routines to be run before and after the INIT are specified in the Environment Check Routine, Pre-init after User Commit, and Post-Initialization Routine fields. The remaining fields are simply for documentation. persistent _PUBLIC 0 RowId PACKAGE_9_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.912701964 67178,44712.671591457 right PACKAGE 9.4 2.56 12/04/2024 12:25:12 1 1 IEN 1 FileMan Field Label: '*BULLETINS' FileMan Field Number: '1944' This presents information about any BULLETINs which are distributed along with the Package. %Library.String 1 19 set U="^",DICMX="",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 S D=$O(^XMB(3.6,"B",X,0)) S:D="" D=-1 X:$D(^XMB(3.6,D,0)) DICMX S X=$O(^XMB(3.6,"B",X)) I $P(X,XU,1)]""!(X="") S X="" Q set {BULLETINS}=X 1 BULLETINS FileMan Field Label: 'CLASS' FileMan Field Number: '11.3' The ranking Class of this software Package. %Library.EnumString 11 CLASS FileMan Field Label: 'CURRENT VERSION' FileMan Field Number: '13' This field holds the version number of the package currently running at this site. When a package initialization has been run, this field will be updated with the version number most recently installed. This can be either using the old format (1.0, 16.04, etc.) or the new format (18.0T4, 19.1V2, etc.) %Library.String 12 CURRENT_VERSION FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '3' This is a complete and detailed description of the Package's functions and capabilities. %Library.String 6 DESCRIPTION FileMan Field Label: 'DEVELOPER (PERSON/SITE)' FileMan Field Number: '10' The name of the principal Developer and Site for this Package. %Library.String 7 DEVELOPER_PERSONSITE FileMan Field Label: 'DEVELOPMENT ISC' FileMan Field Number: '11.01' The ISC responsible for the development and management of this Package. %Library.String 10 DEVELOPMENT_ISC FileMan Field Label: 'ENVIRONMENT CHECK DONE DATE' FileMan Field Number: '913.5' This is the date/time that the ENVIRONMENT CHECK routine last ran. When an INIT is run at a target site, and it contains an ENVIRONMENT CHECK routine, this field is updated automatically. %Library.FilemanTimeStamp 14 ENVIRONMENT_CHECK_DONE_DATE FileMan Field Label: 'ENVIRONMENT CHECK ROUTINE' FileMan Field Number: '913' DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED The name of the developer's routine which is run at the beginning of the NAMESPACE_INIT routine. This should just check the environment and should not alter any data, since the user has no way to exit out of the INIT process until this program runs to completion. %Library.String 13 ENVIRONMENT_CHECK_ROUTINE FileMan Field Label: '*HIGHEST FILE NUMBER' FileMan Field Number: '11' Inclusive upper bound of the range of file numbers assigned to this package. %Library.Numeric 9 HIGHEST_FILE_NUMBER Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(9.4,0),""^"",3)") 1 2 IEN FileMan Field Label: '*LOWEST FILE NUMBER' FileMan Field Number: '10.6' Inclusive lower bound of the range of file numbers allocated to this package. %Library.Numeric 8 LOWEST_FILE_NUMBER FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of this Package. %Library.String 1 3 NAME FileMan Field Label: '*OPTIONS' FileMan Field Number: '1946' This lists information concerning the OPTIONs which are distributed along with the Package. %Library.String 1 21 set U="^",DICMX="",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 S D=$O(^DIC(19,"B",X,0)) S:D="" D=-1 X:$D(^DIC(19,D,0)) DICMX S X=$O(^DIC(19,"B",X)) I $P(X,XU,1)]""!(X="") S X="" Q set {OPTIONS}=X 1 OPTIONS FileMan Field Label: 'POST-INITIALIZATION ROUTINE' FileMan Field Number: '914' DEVELOPERS ROUTINE TO BRANCH TO AT END OF 'INIT' ROUTINE The name of the developer's routine which is run immediately after the installation of the package. %Library.String 15 POSTINITIALIZATION_ROUTINE FileMan Field Label: 'POST-INIT COMPLETION DATE' FileMan Field Number: '914.5' This is the date/time that the POST-INIT last ran. When an INIT is run at a target site, and it contains a POST-INIT routine, this field is updated automatically. %Library.FilemanTimeStamp 16 POSTINIT_COMPLETION_DATE FileMan Field Label: 'PREFIX' FileMan Field Number: '1' NAMESPACE This is the unique namespace prefix assigned to the Package, e.g. XM for the MailMan routines and globals, DI for the FileMan routines, etc. This field is appended to letters (like "INIT") to be used as the names of INIT routines. %Library.String 1 4 PREFIX FileMan Field Label: 'PRE-INIT AFTER USER COMMIT' FileMan Field Number: '916' DEVELOPERS ROUTINE RUN AFTER 'INIT' QUESTIONS ANSWERED Name of the developer's routine that runs after the user has answered all of the questions in NAMESPACE_INIT but before the INIT files any new data. Used for data conversions, etc. that the developer needs to do before bringing in new data. %Library.String 17 PREINIT_AFTER_USER_COMMIT FileMan Field Label: 'PRE-INIT COMPLETION DATE' FileMan Field Number: '916.5' This is the date/time that the PRE-INIT AFTER USER COMMIT last ran. When an INIT is run at a target site, and it contains a PRE-INIT AFTER USER COMMIT routine, this field is updated automatically. %Library.FilemanTimeStamp 18 PREINIT_COMPLETION_DATE FileMan Field Label: '*SECURITY KEYS' FileMan Field Number: '1945' This describes the SECURITY KEYs which are distributed along with the Package. %Library.String 1 20 set U="^",DICMX="",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 X:$D(^XUSEC(X)) DICMX S X=$O(^XUSEC(X)) I $P(X,XU,1)]""!(X="") S X="" Q set {SECURITY_KEYS}=X 1 SECURITY_KEYS FileMan Field Label: 'SHORT DESCRIPTION' FileMan Field Number: '2' This is a brief description of this Package's functions. %Library.String 5 SHORT_DESCRIPTION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 22 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(9.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(9.4,"+1,",.01)={"NAME"} set:{PREFIX}'="" FDA(9.4,"+1,",1)={"PREFIX"} set:{SHORT_DESCRIPTION}'="" FDA(9.4,"+1,",2)={"SHORT_DESCRIPTION"} set:{DEVELOPER_PERSONSITE}'="" FDA(9.4,"+1,",10)={"DEVELOPER_PERSONSITE"} set:{LOWEST_FILE_NUMBER}'="" FDA(9.4,"+1,",10.6)={"LOWEST_FILE_NUMBER"} set:{HIGHEST_FILE_NUMBER}'="" FDA(9.4,"+1,",11)={"HIGHEST_FILE_NUMBER"} set:{DEVELOPMENT_ISC}'="" FDA(9.4,"+1,",11.01)={"DEVELOPMENT_ISC"} set:{CLASS}'="" FDA(9.4,"+1,",11.3)={"CLASS"} set:{CURRENT_VERSION}'="" FDA(9.4,"+1,",13)={"CURRENT_VERSION"} set:{ENVIRONMENT_CHECK_ROUTINE}'="" FDA(9.4,"+1,",913)={"ENVIRONMENT_CHECK_ROUTINE"} set:{ENVIRONMENT_CHECK_DONE_DATE}'="" FDA(9.4,"+1,",913.5)={"ENVIRONMENT_CHECK_DONE_DATE"} set:{POSTINITIALIZATION_ROUTINE}'="" FDA(9.4,"+1,",914)={"POSTINITIALIZATION_ROUTINE"} set:{POSTINIT_COMPLETION_DATE}'="" FDA(9.4,"+1,",914.5)={"POSTINIT_COMPLETION_DATE"} set:{PREINIT_AFTER_USER_COMMIT}'="" FDA(9.4,"+1,",916)={"PREINIT_AFTER_USER_COMMIT"} set:{PREINIT_COMPLETION_DATE}'="" FDA(9.4,"+1,",916.5)={"PREINIT_COMPLETION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(9.4)") set %SkipFiling=1 if $d(%FMERR(9.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(9.4,{RowId},3,,"wp","%FMERR(9.4)") if $d(%FMERR(9.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(9.4,IENS,.01)={NAME} set:{PREFIX*C} FDA(9.4,IENS,1)={PREFIX} set:{SHORT_DESCRIPTION*C} FDA(9.4,IENS,2)={SHORT_DESCRIPTION} set:{DEVELOPER_PERSONSITE*C} FDA(9.4,IENS,10)={DEVELOPER_PERSONSITE} set:{LOWEST_FILE_NUMBER*C} FDA(9.4,IENS,10.6)={LOWEST_FILE_NUMBER} set:{HIGHEST_FILE_NUMBER*C} FDA(9.4,IENS,11)={HIGHEST_FILE_NUMBER} set:{DEVELOPMENT_ISC*C} FDA(9.4,IENS,11.01)={DEVELOPMENT_ISC} set:{CLASS*C} FDA(9.4,IENS,11.3)={CLASS} set:{CURRENT_VERSION*C} FDA(9.4,IENS,13)={CURRENT_VERSION} set:{ENVIRONMENT_CHECK_ROUTINE*C} FDA(9.4,IENS,913)={ENVIRONMENT_CHECK_ROUTINE} set:{ENVIRONMENT_CHECK_DONE_DATE*C} FDA(9.4,IENS,913.5)={ENVIRONMENT_CHECK_DONE_DATE} set:{POSTINITIALIZATION_ROUTINE*C} FDA(9.4,IENS,914)={POSTINITIALIZATION_ROUTINE} set:{POSTINIT_COMPLETION_DATE*C} FDA(9.4,IENS,914.5)={POSTINIT_COMPLETION_DATE} set:{PREINIT_AFTER_USER_COMMIT*C} FDA(9.4,IENS,916)={PREINIT_AFTER_USER_COMMIT} set:{PREINIT_COMPLETION_DATE*C} FDA(9.4,IENS,916.5)={PREINIT_COMPLETION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(9.4)") set %SkipFiling=1 if $d(%FMERR(9.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(9.4,{RowId},3,,wproot,"%FMERR(9.4)") if $d(%FMERR(9.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.PACKAGE94S index ^DIC nonnull 9.4 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 9.4 "C" {PREFIX} {IEN} 0]]> data ^DIC 9.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 7 3 "^" "VERSION" 1 1 new data,i,node set {DESCRIPTION}="" merge data=^DIC(9.4,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "DEV" 1 "^" 5 1 "^" "PRE" 2 "^" "PRE" 1 "^" 11 2 "^" 11 1 "^" 0 1 "^" "INIT" 1 "^" "INIT" 2 "^" 0 2 "^" "INI" 1 "^" "INI" 2 "^" 0 3 Generated class for FileMan File Number: '450' File Name: 'PAID EMPLOYEE' Class generated by %fm2class version 2.56 This file contains employee master record data that is sent to the station from the Austin Data Processing Center. persistent _PUBLIC 0 RowId PAID_EMPLOYEE_450 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.348898347 67178,44712.709369715 right PAID EMPLOYEE 450 2.56 12/04/2024 12:25:12 1 1 IEN 1 NEW_PERSON_200]]> LABORDISTCODECHANGEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_LABOR_DIST_CODE_CHANGED_BY NEW_PERSON_200]]> NEWPERSON VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_NEW_PERSON FileMan Field Label: 'ACADEMIC TITLE' FileMan Field Number: '119' Identifies the academic title of a title 38 physician or dentist who holds a teaching position at a university or medical school. %Library.String 169 ACADEMIC_TITLE FileMan Field Label: 'ACCESSION/SEPARATION CODE' FileMan Field Number: '48' This code identifies the kind of HRM action (accession or separation) last used for an employee. personnel record. %Library.String 52 ACCESSIONSEPARATION_CODE FileMan Field Label: 'ACCESSION/SEPARATION EFF DATE' FileMan Field Number: '49' The date an accession or separation action for an employee was processed. %Library.FilemanDate 53 ACCESSIONSEPARATION_EFF_DATE FileMan Field Label: 'ACCESSION/SEPARATION NOA CODE' FileMan Field Number: '50' Identifies the nature of action used to either access or separate an employee. or terminate a condition of employment; or to create or change a personnel record. %Library.String 54 ACCESSIONSEPARATION_NOA_CODE FileMan Field Label: 'ACSB ACS AMT CPPD' FileMan Field Number: '236' The amount withheld from an employee's earnings for alimony or child support in the current pay period processed. %Library.Numeric 290 ACSB_ACS_AMT_CPPD FileMan Field Label: 'ACSB BACK PAY BALANCE-1' FileMan Field Number: '237' The arrears balance due on Alimony/Child Support/Bankruptcy. This amount is stated in the court order and is in addition to the current allotment for Alimony/Child Support. The balance will be adjusted each pay period to reflect the arrears deduction made. This field pertains to the first instance of Alimony/Child Support/Bankruptcy deductions. %Library.Numeric 291 ACSB_BACK_PAY_BALANCE1 FileMan Field Label: 'ACSB BACK PAY BALANCE-2' FileMan Field Number: '238' The balance due on Alimony/Child Support/Bankruptcy. This amount is stated in the court order and is in addition to the current allotment for Alimony/Child Support. The balance will be adjusted each pay period to reflect the arrears deduction made. This field pertains to the second instance of Alimony/Child Support/Bankruptcy deductions for the employee. %Library.Numeric 292 ACSB_BACK_PAY_BALANCE2 FileMan Field Label: 'ACSB BACK PAY DEDUCTION-1' FileMan Field Number: '239' The amount to be deducted each pay period and applied to the Alimony/ Child Support/Bankruptcy back pay balance. This amount is included in the comparison to the maximum amount of disposable pay that may be garnished. This field pertains to the second instance of Alimony/Child Support/Bankruptcy deductions for the employee. %Library.Numeric 293 ACSB_BACK_PAY_DEDUCTION1 FileMan Field Label: 'ACSB BACK PAY DEDUCTION-2' FileMan Field Number: '240' The amount to be deducted each pay period and applied to the Alimony/ Child Support/Bankruptcy back pay balance. This amount is included in the comparison to the maximum amount of disposable pay that may be garnished. This field pertains to the second instance of Alimony/Child Support/Bankruptcy deductions for the employee. %Library.Numeric 294 ACSB_BACK_PAY_DEDUCTION2 FileMan Field Label: 'ACSB BANKRUPTCY AMT CPPD' FileMan Field Number: '241' The amount withheld from an employee's earnings for bankruptcy payment in the current pay period processed. %Library.Numeric 295 ACSB_BANKRUPTCY_AMT_CPPD FileMan Field Label: 'ACSB CODE-1' FileMan Field Number: '242' This will be a pre-filled field with a "NO" response. When an employee has ACSB (Alimony, Child Support, Bankruptcy) and a Federal Tax Levy this field will have to be changed to "YES". A "YES" response means child support will precede the Federal Tax Levy in priority of deductions. %Library.String 296 ACSB_CODE1 FileMan Field Label: 'ACSB CODE-2' FileMan Field Number: '243' This field will be pre-filled with a "NO" response. When an employee has ACSB (Alimony, Child Support, Bankruptcy) and a Federal Tax Levy this field will have to be changed to "YES". A "YES" response will mean Child Support will precede the Federal Tax Levy in the priority of deductions. %Library.String 297 ACSB_CODE2 FileMan Field Label: 'ACSB CONTROL NUMBER-1' FileMan Field Number: '244' This is a five digit alphanumeric code which is assigned by the station. When the code begins with "A", it is Alimony/Child Support; "B" it is Bankruptcy. The following four digits are to be assigned sequentially beginning with 0001. The "A" or "B" is used to denote the position of the deduction in the priority of deductions. The control number is also used to identify the name and address to which the deduction is to be sent. An employee may have two instances of Alimony/Child Support/Bankruptcy deductions. This is the first. %Library.String 298 ACSB_CONTROL_NUMBER1 FileMan Field Label: 'ACSB CONTROL NUMBER-2' FileMan Field Number: '245' This is a five digit alphanumeric code which is assigned by the station. When the code begins with "A", it is Alimony/Child Support; when the code begins with "B" it is Bankruptcy. The following four digits are to be assigned sequentially beginning with 0001. The "A" or "B" is used to denote the position of the deduction in the priority of deductions. The control number is also used to identify the name and address to which the deduction is to be sent. This is the second instance of an Alimony/ Child Support/Bankruptcy deduction the employee may have. %Library.String 299 ACSB_CONTROL_NUMBER2 FileMan Field Label: 'ACSB CURRENT ALLOTMENT-1' FileMan Field Number: '246' The amount designated by the court order to be deducted each pay period for alimony or child support. This amount is compared to the maximum amount of disposable pay that may be garnished. If the allotment is less than the maximum amount of disposable pay then the whole allotment will be deducted. If the ACSB allotment is more than the maximum amount of disposable pay then only the maximum amount of disposable pay may be deducted. This field pertains to the first instance of Alimony/Child Support/Bankruptcy deductions. %Library.Numeric 300 ACSB_CURRENT_ALLOTMENT1 FileMan Field Label: 'ACSB CURRENT ALLOTMENT-2' FileMan Field Number: '247' The amount designated by the court order to be deducted each pay period for alimony or child support. This field pertains to the second instance of Alimony/Child Support/Bankruptcy deductions from an employee's pay. %Library.Numeric 301 ACSB_CURRENT_ALLOTMENT2 FileMan Field Label: 'ACSB FED/STATE PCT FACTOR-1' FileMan Field Number: '248' Federal/state percentage factor denotes the percentage rate that applies to the maximum amount of disposable pay that may be garnished each pay period. State and federal wage garnishment limitations set the percentage rate. If the state limitation is higher than the federal, the federal limitation will be used. An employee may have more than one instance of Alimony/Child Support/Bankruptcy deductions. This field refers to the first. %Library.Numeric 302 ACSB_FEDSTATE_PCT_FACTOR1 FileMan Field Label: 'ACSB FED/STATE PCT FACTOR-2' FileMan Field Number: '249' Federal/State percentage factor denotes the percentage rate that applies to the maximum amount of disposable pay that may be garnished each pay period. State and federal wage garnishment limitations set the percentage rate. If the state limitation is higher than the federal, the federal limitation will be used. This field pertains to the second instance of an Alimony/Child Support/Bankruptcy deduction for the employee. %Library.Numeric 303 ACSB_FEDSTATE_PCT_FACTOR2 FileMan Field Label: 'ACTUAL SSN' FileMan Field Number: '33' Indicates the employee's actual social security number when a dummy number was assigned for the social security number because the employee has two appointments at the same facility. %Library.String 37 ACTUAL_SSN FileMan Field Label: 'ADDL DIPLOMATE SPECIALTY A' FileMan Field Number: '120' Identifies the specialty or area of specialization for which a title 38 physician or dentist has been certified by the American Board of Specialists (ABS). An employee may have three of these codes on record. This field refers to specialty #2. %Library.String 170 ADDL_DIPLOMATE_SPECIALTY_A FileMan Field Label: 'ADDL DIPLOMATE SPECIALTY B' FileMan Field Number: '132' Identifies the specialty or area of specialization for which a title 38 physician or dentist has been certified by the American Board of Specialists (ABS). An employee may have three of these codes on record. This field refers to specialty #3. %Library.String 182 ADDL_DIPLOMATE_SPECIALTY_B FileMan Field Label: 'ADDNL LIFE INSURANCE' FileMan Field Number: '1' Code indicates the amount of additional basic life insurance applicable to projectable rotating or permanent tours of duty at night rates for shift 2 or 3. Applies to hourly rate Wage or Veteran Canteen Service employees. %Library.String 4 ADDNL_LIFE_INSURANCE FileMan Field Label: 'ADOPTION LEAVE USED CPPD' FileMan Field Number: '712' The number of hours or days used by an employee for adoption leave in the last pay period processed. %Library.Numeric 711 ADOPTION_LEAVE_USED_CPPD FileMan Field Label: 'ADOPTION LEAVE USED LYTD' FileMan Field Number: '713' The total number of hours or days of adoption leave used by an employee during the leave year to date. %Library.Numeric 712 ADOPTION_LEAVE_USED_LYTD FileMan Field Label: 'AGENCY TRANSFERRED TO' FileMan Field Number: '51' Code identifies the federal agency to which a VA employee is transferring. %Library.String 55 AGENCY_TRANSFERRED_TO FileMan Field Label: 'AL NON-ACCRUAL IND' FileMan Field Number: '460' Indicates an employee is not earning annual leave because the employee is serving under an appointment of less than 90 days. Applies to employees covered by the Civil Service Leave System. Values: N - employee can earn leave; Y - employee cannot earn leave. %Library.String 518 AL_NONACCRUAL_IND FileMan Field Label: 'ANNUAL LEAVE ACCRUAL RATE' FileMan Field Number: '89' Annual Leave Accrual Rate. %Library.String 94 ANNUAL_LEAVE_ACCRUAL_RATE FileMan Field Label: 'ANNUAL LEAVE CREDIT HOURS' FileMan Field Number: '461' The amount of annual leave credit hours a part-time employee was in a pay status and which have not been applied in the computation of accrued leave. %Library.Numeric 519 ANNUAL_LEAVE_CREDIT_HOURS FileMan Field Label: 'ANNUAL LEAVE CURRENT BALANCE' FileMan Field Number: '462' AL BAL The annual leave balance this leave year to date. %Library.Numeric 520 ANNUAL_LEAVE_CURRENT_BALANCE FileMan Field Label: 'ANNUAL LEAVE EARNED LYTD' FileMan Field Number: '463' The total number of annual leave days (to 3 decimal places) or hours which were earned by an employee during the current leave year. %Library.Numeric 521 ANNUAL_LEAVE_EARNED_LYTD FileMan Field Label: 'ANNUAL LEAVE EOPY BALANCE' FileMan Field Number: '464' The number of hours or days of unused annual leave an employee had to his/her credit at the end of the prior leave year. %Library.Numeric 522 ANNUAL_LEAVE_EOPY_BALANCE FileMan Field Label: 'ANNUAL LEAVE LUMP SUM AMT' FileMan Field Number: '525' The amount of lump sum annual leave paid an employee in the last pay period processed. This number also includes any hours of restored annual leave. A lump sum is paid at the time of separation from federal service or when an employee moves to a position that is not covered by an annual leave system. %Library.Numeric 585 ANNUAL_LEAVE_LUMP_SUM_AMT FileMan Field Label: 'ANNUAL LEAVE LUMP SUM HRS/DAYS' FileMan Field Number: '526' The number of hours or days of annual leave for which an employee is paid a lump sum. This number also includes any hours or days of restored annual leave. A lump sum is paid at the time of separation from federal service or when an employee moves to a position that is not covered by an annual leave system. %Library.Numeric 586 ANNUAL_LEAVE_LUMP_SUM_HRSDAYS FileMan Field Label: 'ANNUAL LEAVE RESTRICTION' FileMan Field Number: '92' Annual Leave Restriction date. %Library.FilemanDate 97 ANNUAL_LEAVE_RESTRICTION FileMan Field Label: 'ANNUAL LEAVE USED CPPD' FileMan Field Number: '465' The number of hours or days used by an employee for annual leave in the last pay period processed. %Library.Numeric 523 ANNUAL_LEAVE_USED_CPPD FileMan Field Label: 'ANNUAL LEAVE USED CPPD (HOURS)' FileMan Field Number: '592' The amount of annual leave used, converted to hours, for the last pay period processed. %Library.Numeric 655 ANNUAL_LEAVE_USED_CPPD_HOURS FileMan Field Label: 'ANNUAL LEAVE USED LYTD' FileMan Field Number: '466' the total number of hours or days of annual leave used by an employee during the current leave year. %Library.Numeric 524 ANNUAL_LEAVE_USED_LYTD FileMan Field Label: 'ANNUAL REVIEW IND' FileMan Field Number: '122' Code indicates that the annual verification of a physician or dentist is completed. %Library.String 172 ANNUAL_REVIEW_IND FileMan Field Label: 'ANNUAL TENURE CHANGE' FileMan Field Number: '121' This is an internal control field which notifies the station of a tenure change for physicians and dentists. %Library.String 171 ANNUAL_TENURE_CHANGE FileMan Field Label: 'ANNUITANT IND' FileMan Field Number: '602' The status of an annuitant appointed to a position in the Federal civilian service. %Library.String 665 ANNUITANT_IND FileMan Field Label: 'ASSIGNMENT' FileMan Field Number: '3' Identifies the specialty assignment of physicians, dentists and nurses; the religious denomination of chaplains; summer employees, trainees and other special programs. Must be used with both the occupation series code and the occupation series title. %Library.String 6 ASSIGNMENT FileMan Field Label: 'AUO AMT CPPD' FileMan Field Number: '543' The amount of administratively uncontrollable overtime received by an employee this pay period. This pay is limited to criminal investigators, grades GS-9 through GS-14, of the Office of the Inspector General assigned to Central Office. %Library.Numeric 603 AUO_AMT_CPPD FileMan Field Label: 'AUO PERCENT' FileMan Field Number: '544' Indicates the percentage to be paid to an employee whose position is classified in the criminal investigator series, GS/GM-1811, grades 9-14, and the exemption from the overtime provision of the FLSA. %Library.Numeric 604 AUO_PERCENT FileMan Field Label: 'BANK ACCOUNT NUMBER' FileMan Field Number: '440' Identifies the account at a financial institution where an employee's net pay or savings allotment is to be deposited under the Direct Deposit/ Electronic Funds Transfer program. %Library.String 498 BANK_ACCOUNT_NUMBER FileMan Field Label: 'BANK ACCOUNT TYPE' FileMan Field Number: '441' Code indicates the type of account at an employee's bank, checking or savings. %Library.String 499 BANK_ACCOUNT_TYPE FileMan Field Label: 'BANK EFT ROUTING NUMBER' FileMan Field Number: '442' A number that has been assigned to a specific financial organization for identification purposes, used to facilitate automatic distribution of employee salary payments and savings allotment data through the Direct Deposit/Electronic Funds Transfer (DD/EFT) program. Also used for Union Dues, discretionary (Voluntary) Allotments, Alimony/Child Support/ Bankruptcy (ACSB), Combined Federal Campaign (CFC) and other DD/EFT items. %Library.String 500 BANK_EFT_ROUTING_NUMBER FileMan Field Label: 'BASE PAY AMT PRIOR TO RET COV' FileMan Field Number: '534' The amount of basic compensation paid for a period of service rendered prior to the date of acquiring coverage under a retirement system. %Library.Numeric 594 BASE_PAY_AMT_PRIOR_TO_RET_COV FileMan Field Label: 'BASE PAY CHANGE PPD' FileMan Field Number: '535' This field contains the pay period number of the last salary rate change for an employee. %Library.String 595 BASE_PAY_CHANGE_PPD FileMan Field Label: 'BASE PAY CHANGE YEAR' FileMan Field Number: '536' This field contains the year of the last salary rate change for an employee. %Library.String 596 BASE_PAY_CHANGE_YEAR FileMan Field Label: 'BASE PAY CPPD' FileMan Field Number: '537' The amount of base pay an employee was paid for the last pay period processed. %Library.Numeric 597 BASE_PAY_CPPD FileMan Field Label: 'BASE PAY SUBJECT TO CSRS' FileMan Field Number: '539' Identifies that portion of the employee's base pay that is subject to Civil Service Retirement (CSR). %Library.Numeric 599 BASE_PAY_SUBJECT_TO_CSRS FileMan Field Label: 'BAYLOR PLAN AL CURRENT BAL' FileMan Field Number: '473' The current annual leave balance in hours (to 3 decimal places) for employees under the Baylor Plan. Baylor Plan employees work two twelve hour shifts between the hours of midnight Friday and midnight Sunday. For this tour of duty they are paid as if they had worked 80 hours. Leave accrual is the same as an 80 hour employee but leave charges are converted to 1.667 hours for each hour taken. %Library.Numeric 531 BAYLOR_PLAN_AL_CURRENT_BAL FileMan Field Label: 'BAYLOR PLAN AL EOPY BAL' FileMan Field Number: '474' The number of hours (to 3 decimal places) of annual leave a Baylor Plan employee has at the end of the prior leave year. %Library.Numeric 532 BAYLOR_PLAN_AL_EOPY_BAL FileMan Field Label: 'BAYLOR PLAN AL USED LYTD' FileMan Field Number: '475' The number of hours (to 3 decimal places) of annual leave used by the Baylor Plan employee since the beginning of the current leave year, as of the end of the most current pay period processed. %Library.Numeric 533 BAYLOR_PLAN_AL_USED_LYTD FileMan Field Label: 'BAYLOR PLAN LWOP CCY' FileMan Field Number: '476' The accumulated number of hours (to 3 decimal places) of leave without pay that an employee under the Baylor Plan has used in the current calendar year. Leave without pay charges are converted to 1.667 for each hour used. %Library.Numeric 534 BAYLOR_PLAN_LWOP_CCY FileMan Field Label: 'BAYLOR PLAN LWOP LYTD' FileMan Field Number: '477' The accumulated number of hours (to 3 decimal places) of leave without pay that an employee under the Baylor Plan has used in the current leave year. Leave without pay charges are converted to 1.667 for each hour used. %Library.Numeric 535 BAYLOR_PLAN_LWOP_LYTD FileMan Field Label: 'BAYLOR PLAN LWOP PROB PD' FileMan Field Number: '478' The total number of leave without pay hours taken by a Baylor Plan employee during the probationary period of employment. Leave without pay charges are converted to 1.667 for each hour used. %Library.Numeric 536 BAYLOR_PLAN_LWOP_PROB_PD FileMan Field Label: 'BAYLOR PLAN LWOP SINCE PROM' FileMan Field Number: '479' The total number of leave without pay hours used by an employee since the effective date of the last promotion. Leave without pay charges are converted to 1.667 for each hour used. %Library.Numeric 537 BAYLOR_PLAN_LWOP_SINCE_PROM FileMan Field Label: 'BAYLOR PLAN LWOP THIS STEP' FileMan Field Number: '480' The total number of leave without pay hours used by an employee since the last within grade increase. Leave without pay charges are converted to 1.667 for each hour used. %Library.Numeric 538 BAYLOR_PLAN_LWOP_THIS_STEP FileMan Field Label: 'BAYLOR PLAN RESTORED AL BAL-1' FileMan Field Number: '481' The balance represents the number of unused hours of restored annual leave. The balance is as of the last pay period processed. This field pertains to the first instance of restored annual leave for the Baylor Plan employee. %Library.Numeric 539 BAYLOR_PLAN_RESTORED_AL_BAL1 FileMan Field Label: 'BAYLOR PLAN RESTORED AL BAL-2' FileMan Field Number: '482' The balance represents the number of unused hours of restored annual leave. The balance is as of the last pay period processed. This field pertains to the second instance of restored annual leave for the Baylor Plan employee. %Library.Numeric 540 BAYLOR_PLAN_RESTORED_AL_BAL2 FileMan Field Label: 'BAYLOR PLAN RESTORED AL YEAR-1' FileMan Field Number: '483' The last digit of the leave year in which the restored annual leave must be used or forfeited (generally current leave year plus two). This field pertains to the first instance of restored annual leave for the Baylor Plan employee. %Library.String 541 BAYLOR_PLAN_RESTORED_AL_YEAR1 FileMan Field Label: 'BAYLOR PLAN RESTORED AL YEAR-2' FileMan Field Number: '484' The last digit of the leave year in which the restored annual leave must be used or forfeited (generally current leave year plus two). This field pertains to the second instance of restored annual leave for the Baylor Plan employee. %Library.String 542 BAYLOR_PLAN_RESTORED_AL_YEAR2 FileMan Field Label: 'BAYLOR PLAN SL CURRENT BAL' FileMan Field Number: '485' The current sick leave balance in hours (to 3 decimal places) for employees under the Baylor Plan. %Library.Numeric 543 BAYLOR_PLAN_SL_CURRENT_BAL FileMan Field Label: 'BAYLOR PLAN SL EOPY BAL' FileMan Field Number: '486' The number of hours (to 3 decimal places) of sick leave a Baylor Plan employee has at the end of the prior leave year. %Library.Numeric 544 BAYLOR_PLAN_SL_EOPY_BAL FileMan Field Label: 'BAYLOR PLAN SL USED LYTD' FileMan Field Number: '487' The number of hours (to 3 decimal places) of sick leave used by the Baylor Plan employee since the beginning of the current leave year, as of the end of the most current pay period processed. %Library.Numeric 545 BAYLOR_PLAN_SL_USED_LYTD FileMan Field Label: 'BEGINNING OF NONPAY STATUS' FileMan Field Number: '103' Beginning Date of Employee's Nonpay Status. %Library.FilemanDate 114 BEGINNING_OF_NONPAY_STATUS FileMan Field Label: 'BOARD ELIGIBLE SPECIALTY A' FileMan Field Number: '123' Identifies the medical specialty that a Title 38 physician or dentist has prepared for but for which certification has not been granted by the American Board of Specialties (ABS). An employee may have two eligibility codes on record. %Library.String 173 BOARD_ELIGIBLE_SPECIALTY_A FileMan Field Label: 'BOARD ELIGIBLE SPECIALTY B' FileMan Field Number: '124' Identifies the medical specialty that a Title 38 physician or dentist has prepared for but for which certification has not been granted by the American Board of Specialties (ABS). An employee may have two eligibility codes on record. %Library.String 174 BOARD_ELIGIBLE_SPECIALTY_B FileMan Field Label: 'BULK CHECK OPTION' FileMan Field Number: '443' This code identifies those employees entitled to receive their salary via the Designated Agent System (DAS). %Library.String 501 BULK_CHECK_OPTION FileMan Field Label: 'BUS CODE' FileMan Field Number: '52' The status of the employee's position regarding Federal employee bargaining unit representation. %Library.String 56 BUS_CODE FileMan Field Label: 'CARE/BEREAVE LEAVE USED CPPD' FileMan Field Number: '710' The number of hours or days used by an employye for care and bereavement leave in the last pay period processed. %Library.Numeric 709 CAREBEREAVE_LEAVE_USED_CPPD FileMan Field Label: 'CARE/BEREAVE LEAVE USED LYTD' FileMan Field Number: '711' The total number of hours or days of care and bereavement leave used by an employee during the leave year to date. %Library.Numeric 710 CAREBEREAVE_LEAVE_USED_LYTD FileMan Field Label: 'CAREER PROMOTION DETERMINATION' FileMan Field Number: '111' Career Promotion Determination date. %Library.FilemanDate 122 CAREER_PROMOTION_DETERMINATION FileMan Field Label: 'CENTRALIZED POSITION IND' FileMan Field Number: '53' Indicates that the position occupied by the employee is centralized to the Secretary of the Department of Veterans Affairs or other VA Central Office official. %Library.String 57 CENTRALIZED_POSITION_IND FileMan Field Label: 'CFC BIWEEKLY DEDUCTION' FileMan Field Number: '209' The actual amount of voluntary contributions being collected from an employee's biweekly pay for the Combined Federal Campaign. %Library.Numeric 263 CFC_BIWEEKLY_DEDUCTION FileMan Field Label: 'CFC CODE' FileMan Field Number: '210' Code identifies the specific location of the campaign's area headquarters that receives and disburses the employee's contribution. %Library.String 264 CFC_CODE FileMan Field Label: 'CFC DEDUCTION CPPD' FileMan Field Number: '211' The amount deducted from an employee's earnings as a voluntary charitable contribution. This is the actual deduction made for the last pay period processed. %Library.Numeric 265 CFC_DEDUCTION_CPPD FileMan Field Label: 'CHECK DISTRIBUTION CODE' FileMan Field Number: '444' Indicates that an employee has elected Direct Deposit/Electronic Funds Transfer (DD/EFT) of net pay each pay period. %Library.String 502 CHECK_DISTRIBUTION_CODE FileMan Field Label: 'CHECK MAILING ADDRESS LINE 1' FileMan Field Number: '181' The first line of the address, selected by the employee, to which his/her biweekly salary checks are to be mailed. %Library.String 231 CHECK_MAILING_ADDRESS_LINE_1 FileMan Field Label: 'CHECK MAILING ADDRESS LINE 2' FileMan Field Number: '182' The second line of the address, selected by the employee, to which his/her biweekly salary checks are to be mailed. %Library.String 232 CHECK_MAILING_ADDRESS_LINE_2 FileMan Field Label: 'CHECK MAILING ADDRESS LINE 3' FileMan Field Number: '183' The third line of the address, selected by the employee, to which his/her biweekly salary checks are to be mailed. %Library.String 233 CHECK_MAILING_ADDRESS_LINE_3 FileMan Field Label: 'CHECK MAILING ADDRESS ZIP CODE' FileMan Field Number: '184' The zip code of the address to which an employee designates his/her check mailed to. %Library.String 234 CHECK_MAILING_ADDRESS_ZIP_CODE FileMan Field Label: 'CITIZENSHIP' FileMan Field Number: '4' Field indicates an employee's United States citizenship status. %Library.String 7 CITIZENSHIP FileMan Field Label: 'CITY TAX-1 ADDNL AMT WITHHELD' FileMan Field Number: '187' The amount of additional primary city income tax that an employee has authorized to be withheld from earnings each pay period. %Library.Numeric 241 CITY_TAX1_ADDNL_AMT_WITHHELD FileMan Field Label: 'CITY TAX-1 AMT WITHHELD CPPD' FileMan Field Number: '188' The amount of primary city income tax withheld from an employee's gross earnings in the last pay period processed. %Library.Numeric 242 CITY_TAX1_AMT_WITHHELD_CPPD FileMan Field Label: 'CITY TAX-1 AMT WITHHELD CTPTD' FileMan Field Number: '189' The accumulated amount withheld from an employee's earnings for the primary city income tax in the current tax period to date. Tax periods are determined by the employee's city as biweekly, monthly or quarterly. This amount includes any additional withholding amount and the withholding based on claimed allowances %Library.Numeric 243 CITY_TAX1_AMT_WITHHELD_CTPTD FileMan Field Label: 'CITY TAX-1 AMT WITHHELD YTD' FileMan Field Number: '190' The accumulated amount of primary city income tax withheld from an employee's earnings for the current tax year to date. This amount includes any additional withholding amount and the withholding based on claimed allowances. %Library.Numeric 244 CITY_TAX1_AMT_WITHHELD_YTD FileMan Field Label: 'CITY TAX-1 EXEMPTION CODE-1' FileMan Field Number: '191' The code represents the number of exemptions; and/or any special factors that affect the computation of tax withholding from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's primary city. %Library.Numeric 245 CITY_TAX1_EXEMPTION_CODE1 FileMan Field Label: 'CITY TAX-1 EXEMPTION CODE-2' FileMan Field Number: '192' The code represents the number of exemptions; and/or any special factors that affect the computation of tax withholdings from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's primary city. %Library.Numeric 246 CITY_TAX1_EXEMPTION_CODE2 FileMan Field Label: 'CITY TAX-1 GROSS PAY CPPD' FileMan Field Number: '193' The accumulated amount of an employee's gross earnings that are subject to primary city tax in the current tax year to date. Tax periods are determined by the employee's primary city as biweekly, monthly or quarterly. %Library.Numeric 247 CITY_TAX1_GROSS_PAY_CPPD FileMan Field Label: 'CITY TAX-1 GROSS PAY YTD' FileMan Field Number: '194' The accumulated amount of an employee's gross earnings that are subject to income tax in the primary city for the current tax year to date. %Library.Numeric 248 CITY_TAX1_GROSS_PAY_YTD FileMan Field Label: 'CITY TAX-1 GSA CODE' FileMan Field Number: '195' Code identifies the assigned primary city tax withholding GSA code which indicates where payment or information will be reported to the taxing authority. %Library.String 249 CITY_TAX1_GSA_CODE FileMan Field Label: 'CITY TAX-1 MARITAL STATUS' FileMan Field Number: '196' This code is used to indicate an employee's marital status, married or single, for the purpose of computing primary city tax. Marital status is not a factor for every city tax. %Library.String 250 CITY_TAX1_MARITAL_STATUS FileMan Field Label: 'CITY TAX-1 RESIDENCE STATE' FileMan Field Number: '197' Code indicates whether an employee is a resident of the primary city in which taxes are being withheld. %Library.String 251 CITY_TAX1_RESIDENCE_STATE FileMan Field Label: 'CITY TAX-2 ADDNL AMT WITHHELD' FileMan Field Number: '198' The amount of additional secondary city income tax that an employee has authorized to be withheld from earnings each pay period. %Library.Numeric 252 CITY_TAX2_ADDNL_AMT_WITHHELD FileMan Field Label: 'CITY TAX-2 AMT WITHHELD CPPD' FileMan Field Number: '201' The amount of secondary city income tax withheld from an employee's gross earnings in the current pay period. %Library.Numeric 255 CITY_TAX2_AMT_WITHHELD_CPPD FileMan Field Label: 'CITY TAX-2 AMT WITHHELD CTPTD' FileMan Field Number: '199' The accumulated amount withheld from an employee's earnings for the secondary city income tax in the current tax period to date. Tax periods are determined by the employee's city as biweekly, monthly or quarterly. This amount includes any additional withholding amount and the withholding based on claimed allowances. %Library.Numeric 253 CITY_TAX2_AMT_WITHHELD_CTPTD FileMan Field Label: 'CITY TAX-2 AMT WITHHELD YTD' FileMan Field Number: '200' The accumulated amount of secondary city income tax withheld from an employee's earnings for the current tax year to date. This amount includes any additional withholding amount and the withholding based on claimed allowances. %Library.Numeric 254 CITY_TAX2_AMT_WITHHELD_YTD FileMan Field Label: 'CITY TAX-2 EXEMPTION CODE-1' FileMan Field Number: '202' Code represents the number of exemptions; and/or any special factors that affect the computation of tax withholdings from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's secondary city. %Library.Numeric 256 CITY_TAX2_EXEMPTION_CODE1 FileMan Field Label: 'CITY TAX-2 EXEMPTION CODE-2' FileMan Field Number: '203' Code represents the number of exemptions; and/or any special factors that affect the computation of tax withholdings from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's secondary city. %Library.Numeric 257 CITY_TAX2_EXEMPTION_CODE2 FileMan Field Label: 'CITY TAX-2 GROSS PAY CPPD' FileMan Field Number: '204' The accumulated amount of an employee's gross earnings that are subject to primary city tax in the current tax period to date. Tax periods are determined by the employee's secondary city as biweekly, monthly or quarterly. %Library.Numeric 258 CITY_TAX2_GROSS_PAY_CPPD FileMan Field Label: 'CITY TAX-2 GROSS PAY YTD' FileMan Field Number: '205' The accumulated amount of an employee's gross earnings that are subject to income tax in the secondary city for the current year to date. %Library.Numeric 259 CITY_TAX2_GROSS_PAY_YTD FileMan Field Label: 'CITY TAX-2 GSA CODE' FileMan Field Number: '206' Code identifies the assigned secondary city tax withholding GSA code which indicates where payment or information will be reported to the taxing authority. %Library.String 260 CITY_TAX2_GSA_CODE FileMan Field Label: 'CITY TAX-2 MARITAL STATUS' FileMan Field Number: '207' Code indicates an employee's marital status for the purpose of computing secondary city tax. Marital status is not a factor for every city tax. %Library.String 261 CITY_TAX2_MARITAL_STATUS FileMan Field Label: 'CITY TAX-2 RESIDENCE STATE' FileMan Field Number: '208' Code indicates whether an employee is a resident of the secondary city in which taxes are being withheld. %Library.String 262 CITY_TAX2_RESIDENCE_STATE FileMan Field Label: 'CLINICAL EXPERIENCE 1' FileMan Field Number: '168' The type of clinical nursing experience (at least one year in duration) which the employee has had. %Library.String 218 CLINICAL_EXPERIENCE_1 FileMan Field Label: 'CLINICAL EXPERIENCE 2' FileMan Field Number: '169' The type of clinical nursing experience (at least one year in duration) which the employee has had. %Library.String 219 CLINICAL_EXPERIENCE_2 FileMan Field Label: 'COLA' FileMan Field Number: '529' Indicates the percent used to calculate the amount of COLA paid to an employee each pay period. COLA is a percentage of base pay determined by OPM. %Library.Numeric 589 COLA FileMan Field Label: 'COLA AMT CPPD' FileMan Field Number: '527' The amount of the Cost Of Living Allowance (COLA) paid to an employee in the current pay period. Employees in specific geographic areas with higher cost of living receive a COLA in addition to base pay. The Office of Personnel Management designates COLA areas within the U.S. and its territories. %Library.Numeric 587 COLA_AMT_CPPD FileMan Field Label: 'COLA AMT YTD' FileMan Field Number: '528' Accumulated amount of Cost Of Living Allowance (COLA) paid to an employee. The total is for the current calendar year to date, through the last pay period processed. %Library.Numeric 588 COLA_AMT_YTD FileMan Field Label: 'COMMERCIAL GARNISHMENT-1' FileMan Field Number: '708' The first amount deducted for purposes of commerical garnishment. %Library.Numeric 707 COMMERCIAL_GARNISHMENT1 FileMan Field Label: 'COMMERCIAL GARNISHMENT-2' FileMan Field Number: '709' The second amount deducted for purposes of commercial garnishment. %Library.Numeric 708 COMMERCIAL_GARNISHMENT2 FileMan Field Label: 'COMMERCIAL GARNISHMENT-3' FileMan Field Number: '764' The third amount deducted for purposes of commercial garnishment. %Library.Numeric 763 COMMERCIAL_GARNISHMENT3 FileMan Field Label: 'COMMERCIAL GARNISHMENT-4' FileMan Field Number: '765' The fourth amount deducted for purposes of commercial garnishment. %Library.Numeric 764 COMMERCIAL_GARNISHMENT4 FileMan Field Label: 'COMPETITIVE LEVEL' FileMan Field Number: '37' Identifies positions in a competitive area that are the same grade or occupational level and which are so similar that employees may be assigned from one position to another during a reduction in force (RIF). %Library.String 41 COMPETITIVE_LEVEL FileMan Field Label: 'COMPRESSED/FLEXITIME CODE' FileMan Field Number: '54' Indicates an employee is working a tour that is approved as a compressed or flextime schedule. The field can be blank or coded with a "C" for Compressed or "F" for flextime. %Library.String 58 COMPRESSEDFLEXITIME_CODE FileMan Field Label: 'COMPTIME/CREDIT HRS BALANCE' FileMan Field Number: '496' COMP BAL The balance of compensatory time/credit hours an employee has at the end of the last pay period processed. This balance, sent by the AAC, may be a combination of credit hours and compensatory time and should be the total balance of compensatory earned in the last 7 pay periods plus the credit hours earned in the last 14 pay periods. Portions of the balance that are credit hours from over 7 pay periods past must be manually re-entered through OLDE for an additional 7 pay periods. %Library.Numeric 554 COMPTIMECREDIT_HRS_BALANCE FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD1' FileMan Field Number: '488' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period furthest into the past but not more than 7 pay periods ago. If a portion of the balance is credit hours then that portion can be re-entered in OLDE for an additional 7 pay periods. Each of the other pay periods in which comp/credit balances may have been earned are stored in separate fields. %Library.Numeric 546 COMPTIMECREDIT_HRS_BAL_PPD1 FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD2' FileMan Field Number: '489' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period 2nd to the furthest pay period into the past but not more than 7 pay periods ago. A portion of the balance may be credit hours from a recent pay period or credit hours that has been re-entered through OLDE for an additional 7 pay periods. %Library.Numeric 547 COMPTIMECREDIT_HRS_BAL_PPD2 FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD3' FileMan Field Number: '490' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period third from the furthest pay period into the past but not more than 7 pay periods ago. A portion of the balance may be credit hours from a recent pay period or credit hours that has been re-entered through OLDE for an additional 7 pay periods--or both. %Library.Numeric 548 COMPTIMECREDIT_HRS_BAL_PPD3 FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD4' FileMan Field Number: '491' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period fourth from the furthest pay period into the past but not more than 7 pay periods ago. A portion of the balance may be credit hours from a recent pay period or credit hours that has been re-entered through OLDE for an additional 7 pay periods--or both. %Library.Numeric 549 COMPTIMECREDIT_HRS_BAL_PPD4 FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD5' FileMan Field Number: '492' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period fifth from the furthest pay period into the past but not more than 7 pay periods ago. A portion of the balance may be credit hours from a recent pay period or credit hours that has been re-entered through OLDE for an additional 7 pay periods--or both. %Library.Numeric 550 COMPTIMECREDIT_HRS_BAL_PPD5 FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD6' FileMan Field Number: '493' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period sixth from the furthest pay period into the past but not more than 7 pay periods ago (a recent pay period). A portion of the balance may be credit hours from a recent pay period or credit hours that has been re-entered through OLDE for an additional 7 pay periods--or both. %Library.Numeric 551 COMPTIMECREDIT_HRS_BAL_PPD6 FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD7' FileMan Field Number: '494' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period seventh from the furthest pay period into the past but not more than 7 pay periods ago (a very recent pay period). A portion of the balance may be credit hours from a recent pay period or credit hours that has been re-entered through OLDE for an additional 7 pay periods--or both. %Library.Numeric 552 COMPTIMECREDIT_HRS_BAL_PPD7 FileMan Field Label: 'COMPTIME/CREDIT HRS BAL PPD8' FileMan Field Number: '495' The balance of unused hours of compensatory time/credit hours. This balance, sent by the AAC, may be a combination of credit hours and compensatory time. It is the balance of comp/credit earned in a pay period eighth from the furthest pay period into the past but not more than 7 pay periods ago (a very recent pay period). A portion of the balance may be credit hours from a recent pay period or credit hours that has been re-entered through OLDE for an additional 7 pay periods--or both. %Library.Numeric 553 COMPTIMECREDIT_HRS_BAL_PPD8 FileMan Field Label: 'COMPTIME/CREDIT HRS PPD1 NAME' FileMan Field Number: '497' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD1 (488). %Library.String 555 COMPTIMECREDIT_HRS_PPD1_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS PPD2 NAME' FileMan Field Number: '498' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD2 (489). %Library.String 556 COMPTIMECREDIT_HRS_PPD2_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS PPD3 NAME' FileMan Field Number: '499' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD3 (490). %Library.String 557 COMPTIMECREDIT_HRS_PPD3_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS PPD4 NAME' FileMan Field Number: '500' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD4 (491). %Library.String 558 COMPTIMECREDIT_HRS_PPD4_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS PPD5 NAME' FileMan Field Number: '501' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD5 (492). %Library.String 559 COMPTIMECREDIT_HRS_PPD5_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS PPD6 NAME' FileMan Field Number: '502' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD6 (493). %Library.String 560 COMPTIMECREDIT_HRS_PPD6_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS PPD7 NAME' FileMan Field Number: '503' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD7 (494). %Library.String 561 COMPTIMECREDIT_HRS_PPD7_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS PPD8 NAME' FileMan Field Number: '504' The pay period in which compensatory time/credit hours was earned by the employee. The amount earned is stored in the corresponding field--COMPTIME/CREDIT HRS BAL PPD8 (495). %Library.String 562 COMPTIMECREDIT_HRS_PPD8_NAME FileMan Field Label: 'COMPTIME/CREDIT HRS USED CPPD' FileMan Field Number: '505' Amount of compensatory time/credit hours used for the last pay period processed. Amount of each, comp or credit, must be tracked manually, as the system does not distinguish between the two types of time. %Library.Numeric 563 COMPTIMECREDIT_HRS_USED_CPPD FileMan Field Label: 'CONTINUING EDUC CODE (AT APPT)' FileMan Field Number: '125' The continuing education code at the time of appointment for Title 38 employees. %Library.String 175 CONTINUING_EDUC_CODE_AT_APPT FileMan Field Label: 'CONTINUING EDUC CODE (CURRENT)' FileMan Field Number: '126' The current continuing education code for Title 38 employees. %Library.String 176 CONTINUING_EDUC_CODE_CURRENT FileMan Field Label: 'CONVERSION TO CAREER TENURE' FileMan Field Number: '93' Conversion to Career Tenure date. %Library.FilemanDate 98 CONVERSION_TO_CAREER_TENURE FileMan Field Label: 'COUNTRY OF BIRTH' FileMan Field Number: '127' Identifies the country where a title 38 physician or dentist was born. %Library.String 177 COUNTRY_OF_BIRTH FileMan Field Label: 'COUNTRY OF MEDICAL SCHOOL' FileMan Field Number: '128' Identifies the country where a title 38 physician or dentist received his/her medical or dental degree. %Library.String 178 COUNTRY_OF_MEDICAL_SCHOOL FileMan Field Label: 'COUNTRY OF POST GR TRAINING' FileMan Field Number: '129' Identifies the country where a title 38 physician or dentist received the greatest amount of his/her postgraduate training. %Library.String 179 COUNTRY_OF_POST_GR_TRAINING FileMan Field Label: 'CREDITABLE MILITARY SERVICE' FileMan Field Number: '55' The amount of military service (years and months) which has been used to compute the employee's service computation date (SCD) for leave. %Library.String 59 CREDITABLE_MILITARY_SERVICE FileMan Field Label: 'CSRS DEDUCTION EOPY' FileMan Field Number: '329' The balance of Civil Service Retirement deductions for an employee at the end of the prior tax year. %Library.Numeric 383 CSRS_DEDUCTION_EOPY FileMan Field Label: 'CSRS DEDUCTION YTD' FileMan Field Number: '330' The accumulated total of Civil Service Retirement deducted from an employee this year through the last pay period processed. %Library.Numeric 384 CSRS_DEDUCTION_YTD FileMan Field Label: 'CSRS REEMP ANNUITANT DED CPPD' FileMan Field Number: '336' The actual amount collected this pay period for Civil Service Retirement System from a reemployed annuitant. %Library.Numeric 390 CSRS_REEMP_ANNUITANT_DED_CPPD FileMan Field Label: 'CURRENT APPT AUTH 1' FileMan Field Number: '56' The legal authority assigned by law, executive order, rule, regulation or other basis that authorizes the appointment of the employee to his/her current position. At times two current appointment authority codes may be authorized: CURRENT APPT AUTH 1 and CURRENT APPT AUTH 2. %Library.String 60 CURRENT_APPT_AUTH_1 FileMan Field Label: 'CURRENT APPT AUTH 2' FileMan Field Number: '57' The legal authority assigned by law, executive order, rule, regulation or other basis that authorizes the appointment of the employee to his/her current position. At times two current appointment authority codes may be authorized: CURRENT APPT AUTH 1 and CURRENT APPT AUTH 2. %Library.String 61 CURRENT_APPT_AUTH_2 FileMan Field Label: 'DATE ASSIGNED PRESENT POSITION' FileMan Field Number: '170' The date an individual was assigned to his/her present position. assigned to his/her present position. %Library.FilemanDate 220 DATE_ASSIGNED_PRESENT_POSITION FileMan Field Label: 'DATE AVAILABLE' FileMan Field Number: '171' The date that a candidate or incumbent of a centralized title 38 position will be available for relocation or re-assignment. Used for Professional Career Development (PCD). %Library.FilemanDate 221 DATE_AVAILABLE FileMan Field Label: 'DATE GRADUATED FROM PROF SCHL' FileMan Field Number: '107' Date Graduated From Professional School %Library.FilemanDate 118 DATE_GRADUATED_FROM_PROF_SCHL FileMan Field Label: 'DATE OF BIRTH' FileMan Field Number: '32' The month, day and year an employee was born. %Library.FilemanDate 36 DATE_OF_BIRTH FileMan Field Label: 'DATE OF ENTRY TO T38 POSITION' FileMan Field Number: '106' Date of Entry into Title 38 position. %Library.FilemanDate 117 DATE_OF_ENTRY_TO_T38_POSITION FileMan Field Label: 'DATE OF GRADE FOR T38 EMP' FileMan Field Number: '105' Date of Grade for Title 38 Employees. %Library.FilemanDate 116 DATE_OF_GRADE_FOR_T38_EMP FileMan Field Label: 'DEBT DEPOSIT ACCT 36F3875 CPPD' FileMan Field Number: '300' The amount deducted from an employee's earnings in the current pay period for recovery of debt due the U.S. government; deposited to the station's suspense account 36F3875 for subsequent disbursement or credit. %Library.Numeric 354 DEBT_DEPOSIT_ACCT_36F3875_CPPD FileMan Field Label: 'DEBT DEPOSIT ACCT 36X6875 CPPD' FileMan Field Number: '301' The amount deducted from an employee's earnings in the last pay period processed for credit of debt due the U.S. government; deposited to the station's suspense account 36X6875 to be disbursed to a non-federal payee. SA36X6875 is for bankruptcy, child support, etc. %Library.Numeric 355 DEBT_DEPOSIT_ACCT_36X6875_CPPD FileMan Field Label: 'DEBT REFUND ACCT 36F3875 CPPD' FileMan Field Number: '302' The amount of a payment that was disbursed to an employee from the station suspense account 36F3875, in this pay period or in a prior one. The disbursement is recorded in the current pay period processed. The payment was paid to the employee as an out-of-system payment, and may have occurred after the employee separated. %Library.Numeric 356 DEBT_REFUND_ACCT_36F3875_CPPD FileMan Field Label: 'DEBT REFUND ACCT 36X6875 CPPD' FileMan Field Number: '303' The amount of a payment that was disbursed from the station suspense account 36X6875, in this pay period or a prior one. The amount is recorded in the last pay period processed. The payment was paid to an employee as an out-of-system payment or a cash payment, and may have occurred after the employee separated. %Library.Numeric 357 DEBT_REFUND_ACCT_36X6875_CPPD FileMan Field Label: 'DIPLOMATE' FileMan Field Number: '139' Identifies the specialty or area of specialization for which a title 38 physician or dentist has been certified by the American Board of Specialists (ABS). An employee may have three of these codes on record. This refers to specialty #1. %Library.String 189 DIPLOMATE FileMan Field Label: 'DISABILITY RETIREMENT' FileMan Field Number: '58' Indicates that the retirement annuity estimate which is being requested is for a disability retirement. %Library.String 62 DISABILITY_RETIREMENT FileMan Field Label: 'DONOR LEAVE USED CPPD' FileMan Field Number: '716' The number of hours or days used by an employee for donor leave in the last pay period processed. %Library.Numeric 715 DONOR_LEAVE_USED_CPPD FileMan Field Label: 'DONOR LEAVE USED LYTD' FileMan Field Number: '717' The total number of hours or days of donor leave used by an employee during the leave year to date. %Library.Numeric 716 DONOR_LEAVE_USED_LYTD FileMan Field Label: 'DPNT CARE FLEX SPEND ACCT CPPD' FileMan Field Number: '761' The current pay period deduction from an employee's pay for the Dependent Care Flexible Spending Account (DCFSA). %Library.Numeric 760 DPNT_CARE_FLEX_SPEND_ACCT_CPPD FileMan Field Label: 'DPNT CARE FLEX SPEND ACCT YTD' FileMan Field Number: '760' The accumulated total of Dependent Care Flexible Spending Accounts deducted from an employee this year through the last pay period processed. %Library.Numeric 759 DPNT_CARE_FLEX_SPEND_ACCT_YTD FileMan Field Label: 'DUTY BASIS' FileMan Field Number: '9' Code identifies the time basis that an employee is scheduled to work. An employee may have a full-time, part-time or intermittent basis work schedule. %Library.String 12 DUTY_BASIS FileMan Field Label: 'DUTY STATION' FileMan Field Number: '590' Employee's work site when assigned at a location other than the parent station. %Library.String 653 DUTY_STATION FileMan Field Label: 'EARNED INCOME CREDIT AMT CPPD' FileMan Field Number: '445' The amount of earned income credit advanced to an employee in the last pay period processed. This is a tax credit against year end federal income tax liability. An employee qualifies for this credit based on income level. %Library.Numeric 503 EARNED_INCOME_CREDIT_AMT_CPPD FileMan Field Label: 'EARNED INCOME CREDIT AMT EPPD' FileMan Field Number: '446' The amount of federal income tax refunded every pay period due to the employee's filing of TD Form W-5, Earned Income Credit Advance Payment Certificate, with their payroll office. %Library.Numeric 504 EARNED_INCOME_CREDIT_AMT_EPPD FileMan Field Label: 'EARNED INCOME CREDIT AMT YTD' FileMan Field Number: '447' The accumulated total of advance income credit payments to date this tax year. %Library.Numeric 505 EARNED_INCOME_CREDIT_AMT_YTD FileMan Field Label: 'EARNED INCOME CREDIT CODE' FileMan Field Number: '448' The Revenue Act of 1978 provides that eligible employees may elect to receive advance payment of the earned income credit in their biweekly salary checks. This field will be coded when an employee submits a TD Form W-5, Earned Income Credit Advance Payment Certificate. This indicator will be Yes or No. Yes will indicate spouse and employee filing certificate and No will indicate spouse not filing certificate. %Library.String 506 EARNED_INCOME_CREDIT_CODE %Library.String 235 EARNINGS__LEAVE_OPTION %Library.String 752 EARNINGS__LEAVE_PRT_SELECTION FileMan Field Label: 'EDUCATION' FileMan Field Number: '10' Field identifies an employee's educational attainment. Code is based on years of schooling and academic degrees conferred. %Library.String 13 EDUCATION FileMan Field Label: 'ELIGIBLE FOR DRUG TESTING' FileMan Field Number: '115.17' Followup code DT (indicates key management employees who are subject to random drug testing). %Library.String 144 ELIGIBLE_FOR_DRUG_TESTING FileMan Field Label: 'ELIG FOR CONV TO COMP SERVICE' FileMan Field Number: '98' Eligibility for Conversion to the Competitive Service date. %Library.FilemanDate 104 ELIG_FOR_CONV_TO_COMP_SERVICE FileMan Field Label: 'EMPLOYEE NAME' FileMan Field Number: '.01' An employee name has the following order and meaning: LAST NAME, followed by a comma; FIRST NAME or INITIAL; a blank space; MIDDLE NAME or INITIAL; and if applicable, a blank space, JR, SR or INITIAL. For example, DOE,JOHN T JR. No periods are placed after either initials or titles. %Library.String 1 3 EMPLOYEE_NAME FileMan Field Label: 'EMPLOYEE PROVIDED VEHICLE VAL' FileMan Field Number: '304' Employees who have the use of a government owned or leased vehicle that is used to commute from home to work or work to home, must have the dollar value of the commuter usage reported to the Internal Revenue Service as income. This field is used to record the dollar amount of the usage. The income is reported on a fiscal year basis. %Library.Numeric 358 EMPLOYEE_PROVIDED_VEHICLE_VAL FileMan Field Label: 'Enumeration Completed' FileMan Field Number: '901' This field notes that date/time the VPID assignment was completed. %Library.FilemanTimeStamp 766 ENUMERATION_COMPLETED FileMan Field Label: 'Enumeration Initiated' FileMan Field Number: '900' This field notes that date/time the VPID enumeration attempt was initiated. %Library.FilemanTimeStamp 765 ENUMERATION_INITIATED FileMan Field Label: 'ENVIRONMENTAL HAZARD HRS CPPD' FileMan Field Number: '545' The number of hours paid to an employee for environmental differential pay in the last pay period processed. %Library.Numeric 605 ENVIRONMENTAL_HAZARD_HRS_CPPD FileMan Field Label: 'EXCEPTIONAL QUALIFICATIONS' FileMan Field Number: '702' A discretionary component of Title 38 special pay that may be authorized for a physician or dentist with special or distinguishing qualifications within a specialty or category of positions. %Library.Numeric 701 EXCEPTIONAL_QUALIFICATIONS FileMan Field Label: 'EXPIRATION OF AI BOARD CERT' FileMan Field Number: '115.01' Allergy and Immunology Board Certification Expiration date. %Library.FilemanDate 128 EXPIRATION_OF_AI_BOARD_CERT FileMan Field Label: 'EXPIRATION OF CR BOARD CERT' FileMan Field Number: '115.18' Colon and Rectal Surgery Board Certification Expiration date. %Library.FilemanDate 145 EXPIRATION_OF_CR_BOARD_CERT FileMan Field Label: 'EXPIRATION OF CS BOARD CERT' FileMan Field Number: '115.14' Certified Subspecialty Board Certification Expiration date. %Library.FilemanDate 141 EXPIRATION_OF_CS_BOARD_CERT FileMan Field Label: 'EXPIRATION OF DE BOARD CERT' FileMan Field Number: '115.02' Dermatology Board Certification Expiration date. %Library.FilemanDate 129 EXPIRATION_OF_DE_BOARD_CERT FileMan Field Label: 'EXPIRATION OF EM BOARD CERT' FileMan Field Number: '115.03' Emergency Medicine Board Certification Expiration date. %Library.FilemanDate 130 EXPIRATION_OF_EM_BOARD_CERT FileMan Field Label: 'EXPIRATION OF FERS PERIOD' FileMan Field Number: '113' Expiration of FERS Election Period date. %Library.FilemanDate 124 EXPIRATION_OF_FERS_PERIOD FileMan Field Label: 'EXPIRATION OF FORMAL DETAIL' FileMan Field Number: '96' Expiration of Formal Detail date. %Library.FilemanDate 101 EXPIRATION_OF_FORMAL_DETAIL FileMan Field Label: 'EXPIRATION OF FP BOARD CERT' FileMan Field Number: '115.04' Family Practice Board Certification Expiration date. %Library.FilemanDate 131 EXPIRATION_OF_FP_BOARD_CERT FileMan Field Label: 'EXPIRATION OF GEO LOCATION PAY' FileMan Field Number: '114.1' Expiration of Geographic Location Pay date. %Library.FilemanDate 126 EXPIRATION_OF_GEO_LOCATION_PAY FileMan Field Label: 'EXPIRATION OF GRADE RETENTION' FileMan Field Number: '100' Expiration of Grade Retention date. %Library.FilemanDate 111 EXPIRATION_OF_GRADE_RETENTION FileMan Field Label: 'EXPIRATION OF IM BOARD CERT' FileMan Field Number: '115.19' Internal Medicine Board Certification Expiration date. %Library.FilemanDate 146 EXPIRATION_OF_IM_BOARD_CERT FileMan Field Label: 'EXPIRATION OF LICENSURE' FileMan Field Number: '90' Expiration of Licensure, Registration, or Bar Membership date. %Library.FilemanDate 95 EXPIRATION_OF_LICENSURE FileMan Field Label: 'EXPIRATION OF LIMITED APPT' FileMan Field Number: '95' Expiration of Time-Limited Appointment date. %Library.FilemanDate 100 EXPIRATION_OF_LIMITED_APPT FileMan Field Label: 'EXPIRATION OF MG BOARD CERT' FileMan Field Number: '115.2' Medical Genetics Board Certification Expiration date. %Library.FilemanDate 147 EXPIRATION_OF_MG_BOARD_CERT FileMan Field Label: 'EXPIRATION OF NM BOARD CERT' FileMan Field Number: '115.05' Nuclear Medicine Board Certification Expiration date. %Library.FilemanDate 132 EXPIRATION_OF_NM_BOARD_CERT FileMan Field Label: 'EXPIRATION OF OG BOARD CERT' FileMan Field Number: '115.06' Obstetrics and Gynecology Board Certification Expiration date. %Library.FilemanDate 133 EXPIRATION_OF_OG_BOARD_CERT FileMan Field Label: 'EXPIRATION OF OP BOARD CERT' FileMan Field Number: '115.07' Ophthalmology Board Certification Expiration date. %Library.FilemanDate 134 EXPIRATION_OF_OP_BOARD_CERT FileMan Field Label: 'EXPIRATION OF OS BOARD CERT' FileMan Field Number: '115.08' Orthopedic Surgery Board Certification Expiration date. %Library.FilemanDate 135 EXPIRATION_OF_OS_BOARD_CERT FileMan Field Label: 'EXPIRATION OF PM BOARD CERT' FileMan Field Number: '115.09' Physical Medicine and Rehabilitation Board Certification Expiration date. %Library.FilemanDate 136 EXPIRATION_OF_PM_BOARD_CERT FileMan Field Label: 'EXPIRATION OF PN BOARD CERT' FileMan Field Number: '115.21' Psychiatry and Neurology Board Certification Expiration date. %Library.FilemanDate 148 EXPIRATION_OF_PN_BOARD_CERT FileMan Field Label: 'EXPIRATION OF PS BOARD CERT' FileMan Field Number: '115.1' Plastic Surgery Board Certification Expiration date. %Library.FilemanDate 137 EXPIRATION_OF_PS_BOARD_CERT FileMan Field Label: 'EXPIRATION OF RETENTION ALLOW' FileMan Field Number: '114.2' Expiration of Retention Allowance date. %Library.FilemanDate 127 EXPIRATION_OF_RETENTION_ALLOW FileMan Field Label: 'EXPIRATION OF SPEC PAY AGREE' FileMan Field Number: '108' Expiration of Special Pay Agreement date. %Library.FilemanDate 119 EXPIRATION_OF_SPEC_PAY_AGREE FileMan Field Label: 'EXPIRATION OF SU BOARD CERT' FileMan Field Number: '115.11' Surgery Board Certification Expiration date. %Library.FilemanDate 138 EXPIRATION_OF_SU_BOARD_CERT FileMan Field Label: 'EXPIRATION OF TS BOARD CERT' FileMan Field Number: '115.12' Thoracic Surgery Board Certification Expiration date. %Library.FilemanDate 139 EXPIRATION_OF_TS_BOARD_CERT FileMan Field Label: 'EXPIRATION OF UR BOARD CERT' FileMan Field Number: '115.13' Urology Board Certification Expiration date. %Library.FilemanDate 140 EXPIRATION_OF_UR_BOARD_CERT FileMan Field Label: 'EXTENDED LWOP IND' FileMan Field Number: '515' Indicates that an employee will be in a non-pay status for 31 days or more either due to an adverse action, leave without pay or furlough. %Library.String 575 EXTENDED_LWOP_IND FileMan Field Label: '1-YEAR PROB PERIOD INCEPTION' FileMan Field Number: '104' 1-year Probationary Period inception date. This field is received from the Austin Automation Center. %Library.FilemanDate 115 f1YEAR_PROB_PERIOD_INCEPTION FileMan Field Label: '2-YEAR PROB PERIOD INCEPTION' FileMan Field Number: '94' 2-Year Probationary Period inception date. This field is received from the Austin Automation Center. %Library.FilemanDate 99 f2YEAR_PROB_PERIOD_INCEPTION FileMan Field Label: '8B NORMAL HOURS' FileMan Field Number: '15' The number of hours an employee is hired to work each pay period. Hours are established or changed by an official personnel action. %Library.Numeric 18 f8B_NORMAL_HOURS FileMan Field Label: 'FEDERAL NONTAXABLE WAGES YTD' FileMan Field Number: '212' The accumulated amount of gross pay that is not subject to federal income tax. The total is for the current year through the last pay period processed. %Library.Numeric 266 FEDERAL_NONTAXABLE_WAGES_YTD FileMan Field Label: 'FEDERAL SERVICE DATE' FileMan Field Number: '110' Service Pin "Federal Service Date" for Retired Members of the Uniformed Services. %Library.FilemanDate 121 FEDERAL_SERVICE_DATE FileMan Field Label: 'FEDERAL TAX ADDNL AMT WITHHELD' FileMan Field Number: '213' The additional fixed dollar amount authorized by an employee to be withheld each pay period. Claimed on Form W-4. This additional amount is over and above the withholding based on claimed allowances. %Library.Numeric 267 FEDERAL_TAX_ADDNL_AMT_WITHHELD FileMan Field Label: 'FEDERAL TAX AMT WITHHELD CPPD' FileMan Field Number: '216' The amount of federal income tax withheld from an employee's earnings this pay period. %Library.Numeric 270 FEDERAL_TAX_AMT_WITHHELD_CPPD FileMan Field Label: 'FEDERAL TAX AMT WITHHELD QTD' FileMan Field Number: '214' The amount of federal income tax withheld from the earnings of an employee applicable to the current calendar quarter. %Library.Numeric 268 FEDERAL_TAX_AMT_WITHHELD_QTD FileMan Field Label: 'FEDERAL TAX AMT WITHHELD YTD' FileMan Field Number: '215' The accumulated amount withheld from an employee's earnings for the current year to date. This amount includes any additional amount withheld and withholding is based on claimed allowances. %Library.Numeric 269 FEDERAL_TAX_AMT_WITHHELD_YTD FileMan Field Label: 'FEDERAL TAX EXEMPTIONS' FileMan Field Number: '217' Code indicates the number of personal and dependent exemptions claimed by the employee on Form W-4. %Library.Numeric 271 FEDERAL_TAX_EXEMPTIONS FileMan Field Label: 'FEDERAL TAX GROSS PAY QTD' FileMan Field Number: '218' The gross earnings of an employee which are subject to federal income taxes applicable to the current calendar quarter. %Library.Numeric 272 FEDERAL_TAX_GROSS_PAY_QTD FileMan Field Label: 'FEDERAL TAX GROSS PAY YTD' FileMan Field Number: '219' The gross earnings of an employee which are subject to federal income taxes applicable to the current calendar year. %Library.Numeric 273 FEDERAL_TAX_GROSS_PAY_YTD FileMan Field Label: 'FEDERAL TAX LOCK-IN INDICATOR' FileMan Field Number: '754' When set to Y this field will prevent the employee from making changes via EEX to their federal tax withholding amount. (Possible Values: Y or N) %Library.String 753 FEDERAL_TAX_LOCKIN_INDICATOR FileMan Field Label: 'FED EMP HLTH BENE CRT ORD IND' FileMan Field Number: '752' The Federal Employee Health Benefit Court Order Indicator identifies employees who are under court order to pay for Alimony, Child Support or Bankruptcy. Possible values are C (under court order) or blank (not under court order). %Library.String 751 FED_EMP_HLTH_BENE_CRT_ORD_IND FileMan Field Label: 'FEGLI ADDNL DEDUCTION CPPD' FileMan Field Number: '223' The actual amount of additional optional life insurance premium deducted in the last pay period processed. %Library.Numeric 277 FEGLI_ADDNL_DEDUCTION_CPPD FileMan Field Label: 'FEGLI AGE CODE CPPD' FileMan Field Number: '224' Code identifies an employee's age group bracket which then determines the Federal Employee Group Life Insurance (FEGLI) premium withholding rate for a specific type of optional FEGLI coverage. Also used to report optional life insurance deductions, in the current pay period, to the Office of Personnel Management. %Library.Numeric 278 FEGLI_AGE_CODE_CPPD FileMan Field Label: 'FEGLI BASIC DEDUCTION CPPD' FileMan Field Number: '225' The amount deducted from an employee's earnings in the current pay period for basic life insurance premiums. This amount is the employee's share of the premium. %Library.Numeric 279 FEGLI_BASIC_DEDUCTION_CPPD FileMan Field Label: 'FEGLI CODE' FileMan Field Number: '226' Employee's coverage and type of insurance or noncoverage under the FEGLI program. %Library.String 280 FEGLI_CODE FileMan Field Label: 'FEGLI FAMILY DEDUCTION CPPD' FileMan Field Number: '227' The amount of premium for optional family life insurance deducted from an employee's gross earnings in the current pay period processed. %Library.Numeric 281 FEGLI_FAMILY_DEDUCTION_CPPD FileMan Field Label: 'FEGLI STANDARD DEDUCTION CPPD' FileMan Field Number: '228' The amount deducted from an employee's earnings in the current pay period for the standard optional life insurance premium. This amount is in addition to the basic premium and only applies to the employee who has selected standard optional coverage under the Federal Employee Group Life Insurance plan. There is no government contribution for this option. %Library.Numeric 282 FEGLI_STANDARD_DEDUCTION_CPPD FileMan Field Label: 'FEGLI VA SHARE CPPD' FileMan Field Number: '229' The government portion of basic life insurance paid in the current pay period. The employee pays two-thirds of the premium and the government pays one-third. %Library.Numeric 283 FEGLI_VA_SHARE_CPPD FileMan Field Label: 'FERS DEDUCTION EOPY' FileMan Field Number: '333' The accumulated total Federal Employee Retirement System (FERS) deductions collected from an employee at the end of the prior tax year. %Library.Numeric 387 FERS_DEDUCTION_EOPY FileMan Field Label: 'FERS DEDUCTION YTD' FileMan Field Number: '334' The amount of Federal Employee Retirement System (FERS) deductions collected from an employee this tax year. %Library.Numeric 388 FERS_DEDUCTION_YTD FileMan Field Label: 'FERS REDESIGNATED CSRS AMT' FileMan Field Number: '335' The portion of an employee's Civil Service Retirement fund which was frozen when the employee converted to the Federal Employee Retirement System (FERS). %Library.Numeric 389 FERS_REDESIGNATED_CSRS_AMT FileMan Field Label: 'FINAL PAY IND' FileMan Field Number: '449' Code indicates that a separating employee's final pay has been processed. %Library.String 507 FINAL_PAY_IND FileMan Field Label: 'FIRE FIGHTER' FileMan Field Number: '59' Indicates the employee is subject to a 7.5% Civil Service Retirement System (CSRS) and 1.3% (currently) for Federal Employee Retirement System (FERS) and Offset Retirement System, retirement deduction. %Library.String 63 FIRE_FIGHTER FileMan Field Label: 'FLSA' FileMan Field Number: '11' Code identifies whether an employee is covered under the Fair Labor Standards Act (FLSA) minimum wage and overtime provisions. %Library.String 14 FLSA FileMan Field Label: 'FLSA OVERTIME WEEK CODE CPPD' FileMan Field Number: '531' Code identifies those workweeks in which overtime was paid under the Federal Labor Standards Act (FLSA) regulations for either or both weeks of the pay period. This applies only to Title 5 employees and indicates that FLSA overtime pay was greater than Title 5 overtime pay. Codes are applicable to the last pay period processed. %Library.String 591 FLSA_OVERTIME_WEEK_CODE_CPPD FileMan Field Label: 'FLTCIP CPPD' FileMan Field Number: '751' The amount to be deducted each pay period from an employee's pay for Federal Long Term Care Insurance Program. %Library.Numeric 750 FLTCIP_CPPD FileMan Field Label: 'FLTCIP INDICATOR' FileMan Field Number: '750' Indicates whether the employee is eligible to participate in the Federal Long Term Care Insurance Program (FLTCIP). Possible values are Y or N. %Library.String 749 FLTCIP_INDICATOR FileMan Field Label: 'FOLLOWUP CODE 08' FileMan Field Number: '97.1' Reserved for future use. %Library.FilemanDate 103 FOLLOWUP_CODE_08 FileMan Field Label: 'FOLLOWUP CODE 10' FileMan Field Number: '98.1' Reserved for future use. %Library.FilemanDate 105 FOLLOWUP_CODE_10 FileMan Field Label: 'FOLLOWUP CODE 11' FileMan Field Number: '98.2' Reserved for future use. %Library.FilemanDate 106 FOLLOWUP_CODE_11 FileMan Field Label: 'FOLLOWUP CODE 12' FileMan Field Number: '98.3' Reserved for future use. %Library.FilemanDate 107 FOLLOWUP_CODE_12 FileMan Field Label: 'FOLLOWUP CODE 13' FileMan Field Number: '98.4' Reserved for future use. %Library.FilemanDate 108 FOLLOWUP_CODE_13 FileMan Field Label: 'FOLLOWUP CODE 15' FileMan Field Number: '99.1' Reserved for future use. %Library.FilemanDate 110 FOLLOWUP_CODE_15 FileMan Field Label: 'FOLLOWUP CODE 30' FileMan Field Number: '116.01' Temporary Station Use Followup Code date. %Library.FilemanDate 149 FOLLOWUP_CODE_30 FileMan Field Label: 'FOLLOWUP CODE 31' FileMan Field Number: '116.02' Temporary Station Use Followup Code date. %Library.FilemanDate 150 FOLLOWUP_CODE_31 FileMan Field Label: 'FOLLOWUP CODE 32' FileMan Field Number: '116.03' Temporary Station Use Followup Code date. %Library.FilemanDate 151 FOLLOWUP_CODE_32 FileMan Field Label: 'FOLLOWUP CODE 33' FileMan Field Number: '116.04' Temporary Station Use Followup Code date. %Library.FilemanDate 152 FOLLOWUP_CODE_33 FileMan Field Label: 'FOLLOWUP CODE 34' FileMan Field Number: '116.05' Temporary Station Use Followup Code date. %Library.FilemanDate 153 FOLLOWUP_CODE_34 FileMan Field Label: 'FOLLOWUP CODE 35' FileMan Field Number: '116.06' Temporary Station Use Followup Code date. %Library.FilemanDate 154 FOLLOWUP_CODE_35 FileMan Field Label: 'FOLLOWUP CODE 36' FileMan Field Number: '116.07' Temporary Station Use Followup Code date. %Library.FilemanDate 155 FOLLOWUP_CODE_36 FileMan Field Label: 'FOLLOWUP CODE 37' FileMan Field Number: '116.08' Temporary Station Use Followup Code date. %Library.FilemanDate 156 FOLLOWUP_CODE_37 FileMan Field Label: 'FOLLOWUP CODE 38' FileMan Field Number: '116.09' Temporary Station Use Followup Code date. %Library.FilemanDate 157 FOLLOWUP_CODE_38 FileMan Field Label: 'FOLLOWUP CODE 39' FileMan Field Number: '116.1' Temporary Station Use Followup Code date. %Library.FilemanDate 158 FOLLOWUP_CODE_39 FileMan Field Label: 'FOLLOWUP CODE 40' FileMan Field Number: '116.11' Permanent Station Use Followup Code date. %Library.FilemanDate 159 FOLLOWUP_CODE_40 FileMan Field Label: 'FOLLOWUP CODE 41' FileMan Field Number: '116.12' Permanent Station Use Followup Code date. %Library.FilemanDate 160 FOLLOWUP_CODE_41 FileMan Field Label: 'FOLLOWUP CODE 42' FileMan Field Number: '116.13' Permanent Station Use Followup Code date. %Library.FilemanDate 161 FOLLOWUP_CODE_42 FileMan Field Label: 'FOLLOWUP CODE 43' FileMan Field Number: '116.14' Permanent Station Use Followup Code date. %Library.FilemanDate 162 FOLLOWUP_CODE_43 FileMan Field Label: 'FOLLOWUP CODE 44' FileMan Field Number: '116.15' Permanent Station Use Followup Code date. %Library.FilemanDate 163 FOLLOWUP_CODE_44 FileMan Field Label: 'FOLLOWUP CODE 45' FileMan Field Number: '116.16' Permanent Station Use Followup Code date. %Library.FilemanDate 164 FOLLOWUP_CODE_45 FileMan Field Label: 'FOLLOWUP CODE 46' FileMan Field Number: '116.17' Permanent Station Use Followup Code date. %Library.FilemanDate 165 FOLLOWUP_CODE_46 FileMan Field Label: 'FOLLOWUP CODE 47' FileMan Field Number: '116.18' Permanent Station Use Followup Code date. %Library.FilemanDate 166 FOLLOWUP_CODE_47 FileMan Field Label: 'FOLLOWUP CODE 48' FileMan Field Number: '116.19' Permanent Station Use Followup Code date. %Library.FilemanDate 167 FOLLOWUP_CODE_48 FileMan Field Label: 'FOLLOWUP CODE 49' FileMan Field Number: '116.2' Permanent Station Use Followup Code date. %Library.FilemanDate 168 FOLLOWUP_CODE_49 FileMan Field Label: 'FOLLOWUP CODE S*' FileMan Field Number: '115.16' Followup Codes S2 and S3 dates. %Library.FilemanDate 143 FOLLOWUP_CODE_S FileMan Field Label: 'FOREIGN MEDICAL GRADUATE IND' FileMan Field Number: '131' Code identifies a physician or dentist whose medical schooling was obtained in a foreign country. %Library.String 181 FOREIGN_MEDICAL_GRADUATE_IND FileMan Field Label: 'FROZEN SERVICE' FileMan Field Number: '60' The total years and months of civilian and military service creditable for calculation of Service Computation Date (Leave) at the time the employee first becomes covered by the CSRS Offset or Federal Employees Retirement System (FERS). %Library.Numeric 64 FROZEN_SERVICE FileMan Field Label: 'FROZEN SICK LEAVE' FileMan Field Number: '508' The balance of sick leave accumulated under the Civil Service Retirement System and frozen when an employee changed to the Federal Employee Retirement System. %Library.Numeric 568 FROZEN_SICK_LEAVE FileMan Field Label: 'FTE EQUIVALENT' FileMan Field Number: '450' Full-time Employee Equivalent factor. %Library.Numeric 508 FTE_EQUIVALENT FileMan Field Label: 'FTL DEBT BALANCE' FileMan Field Number: '220' The initial amount of outstanding debt when the tax levy is received in the payroll office from the Internal Revenue Service. This balance is reduced each pay period by payroll deduction until the balance is zero. %Library.Numeric 274 FTL_DEBT_BALANCE FileMan Field Label: 'FTL EXEMPTED AMT EPPD' FileMan Field Number: '221' The amount of an employee's gross earnings that are exempt from withholding each pay period while the rest of the earnings are being sent to the Internal Revenue Service to liquidate a tax debt. %Library.Numeric 275 FTL_EXEMPTED_AMT_EPPD FileMan Field Label: 'FUNCTIONAL CODE' FileMan Field Number: '12' Code identifies the primary work function of the position. Applies to scientist and engineering positions. %Library.String 15 FUNCTIONAL_CODE FileMan Field Label: 'FUNCTIONAL EXPERIENCE 1' FileMan Field Number: '172' The type of functional nursing experience the employee has. This data element consists of two categories: FUNCTIONAL EXPERIENCE 1 and FUNCTIONAL EXPERIENCE 2. %Library.String 222 FUNCTIONAL_EXPERIENCE_1 FileMan Field Label: 'FUNCTIONAL EXPERIENCE 2' FileMan Field Number: '173' The type of functional nursing experience the employee has. This data element consists of two categories: FUNCTIONAL EXPERIENCE 1 and FUNCTIONAL EXPERIENCE 2. %Library.String 223 FUNCTIONAL_EXPERIENCE_2 FileMan Field Label: 'GAP/LOCALITY PAY AMT' FileMan Field Number: '83' The annual Geographic Adjustment Pay (GAP) or Locality Pay amount. %Library.Numeric 86 GAPLOCALITY_PAY_AMT FileMan Field Label: 'GAP AMT CPPD' FileMan Field Number: '83.1' Geographic Adjustment Pay amount for the most recently processed pay period. %Library.Numeric 87 GAP_AMT_CPPD FileMan Field Label: 'GARAGE DEDUCTION CPPD' FileMan Field Number: '318' The amount of garage rental fee deducted from an employee's earnings in the last pay period processed. %Library.Numeric 372 GARAGE_DEDUCTION_CPPD FileMan Field Label: 'GARAGE DEDUCTION EPPD' FileMan Field Number: '319' The amount authorized to be deducted from an employee's pay each pay period for garage rental furnished by the station. %Library.Numeric 373 GARAGE_DEDUCTION_EPPD FileMan Field Label: 'GEOGRAPHIC LOCATION PAY' FileMan Field Number: '701' A discretionary component of Title 38 special pay authorized for service in a Geographic Location that has extraordinary problems in recruiting or retaining physicians or dentists in certain specialties. %Library.Numeric 700 GEOGRAPHIC_LOCATION_PAY FileMan Field Label: 'GEOGRAPHIC PREFERENCE 1' FileMan Field Number: '174' The geographic preference of incumbents of or candidates for centralized title 38 physician or dentist positions. A total of two locations may be selected. This data element consists of two categories: GEOGRAPHIC PREFERENCE 1 and GEOGRAPHIC PREFERENCE 2. %Library.String 224 GEOGRAPHIC_PREFERENCE_1 FileMan Field Label: 'GEOGRAPHIC PREFERENCE 2' FileMan Field Number: '175' Code identifies the second geographic preference for mobility assignment purposes of incumbents or candidates for centralized Title 38 physician, dentist, or nurse positions. %Library.String 225 GEOGRAPHIC_PREFERENCE_2 FileMan Field Label: 'GRADE' FileMan Field Number: '13' An indicator of hierarchal relationships among positions covered by the same pay plan or system. %Library.String 16 GRADE FileMan Field Label: 'GROSS PAY CPPD' FileMan Field Number: '540' The amount of gross pay an employee was paid for the last pay period processed. %Library.Numeric 600 GROSS_PAY_CPPD FileMan Field Label: 'GROSS PAY PLUS BENEFITS CPPD' FileMan Field Number: '594' The total value of the employee's gross pay, uniform allowance, annuity and agency contributions for Medicare, life insurance, health benefits, retirement and Thrift Savings Plan. %Library.Numeric 657 GROSS_PAY_PLUS_BENEFITS_CPPD FileMan Field Label: 'GROSS PAY QTD' FileMan Field Number: '254' The gross amount earned by an employee this quarter. %Library.Numeric 308 GROSS_PAY_QTD FileMan Field Label: 'GROSS PAY YTD' FileMan Field Number: '255' The gross amount earned by an employee this year to date. %Library.Numeric 309 GROSS_PAY_YTD FileMan Field Label: 'HAZARD PAY DIFFERENTIAL' FileMan Field Number: '597' Hazard Pay Differential amount. %Library.Numeric 660 HAZARD_PAY_DIFFERENTIAL FileMan Field Label: 'HEALTH BENEFITS DEDUCTION CPPD' FileMan Field Number: '230' The amount of health insurance deducted from an employee's gross earnings in the last pay period processed. %Library.Numeric 284 HEALTH_BENEFITS_DEDUCTION_CPPD FileMan Field Label: 'HEALTH BENEFITS ELIGIBILITY' FileMan Field Number: '234' Code identifying the entitlement to continue Federal employee health benefits of either (1) an employee who has separated due to retirement or (2) the survivor of an employee who died during employment. %Library.String 288 HEALTH_BENEFITS_ELIGIBILITY FileMan Field Label: 'HEALTH BENEFITS NEXT PPD IND' FileMan Field Number: '232' Code indicates that the health insurance deductions of a new employee are not effective during the pay period he/she was hired. %Library.String 286 HEALTH_BENEFITS_NEXT_PPD_IND FileMan Field Label: 'HEALTH BENEFITS PRORATION IND' FileMan Field Number: '233' Indicates whether a part-time employee under a permanent appointment is subject to prorated health insurance deductions. %Library.String 287 HEALTH_BENEFITS_PRORATION_IND FileMan Field Label: 'HEALTH BENEFITS VA SHARE CPPD' FileMan Field Number: '235' The government portion of health insurance premium paid in the last pay period processed. %Library.Numeric 289 HEALTH_BENEFITS_VA_SHARE_CPPD FileMan Field Label: 'HEALTH INSURANCE' FileMan Field Number: '231' Designates the plan and option selected by a newly hired employee or the reason for nonenrollement. %Library.String 285 HEALTH_INSURANCE FileMan Field Label: 'HLTH CARE FLEX SPEND ACCT CPPD' FileMan Field Number: '759' The current pay period deduction from an employee's pay for the Health Care Flexible Spending Account (HCFSA). %Library.Numeric 758 HLTH_CARE_FLEX_SPEND_ACCT_CPPD FileMan Field Label: 'HLTH CARE FLEX SPEND ACCT YTD' FileMan Field Number: '758' The accumulated total of Health Care Flexible Spending Accounts deducted from an employee this year through the last pay period processed. %Library.Numeric 757 HLTH_CARE_FLEX_SPEND_ACCT_YTD FileMan Field Label: 'HOLIDAY AMT' FileMan Field Number: '546' The amount paid to an employee as premium pay for work performed on a holiday. This amount is for the last pay period processed. %Library.Numeric 606 HOLIDAY_AMT FileMan Field Label: 'HOLIDAY HOURS' FileMan Field Number: '547' The number of hours an employee was paid holiday premium pay in the last pay period processed. %Library.Numeric 607 HOLIDAY_HOURS FileMan Field Label: 'HOURS/SALARY LIMITATION' FileMan Field Number: '78' Maximum number of hours or maximum salary dollars a part-time or intermittent employee is authorized to work in a year. Limitation is based on the anniversary date of appointment. %Library.Numeric 81 HOURSSALARY_LIMITATION FileMan Field Label: 'HRS EXCESS 8 DAY AMT WK 1' FileMan Field Number: '616' Hours in excess of 8 in a day amount for week-1. %Library.Numeric 682 HRS_EXCESS_8_DAY_AMT_WK_1 FileMan Field Label: 'HRS EXCESS 8 DAY AMT WK 2' FileMan Field Number: '617' Hours in excess of 8 in a day amount for week-2. %Library.Numeric 683 HRS_EXCESS_8_DAY_AMT_WK_2 FileMan Field Label: 'HRS EXCESS 8 DAY WK 1' FileMan Field Number: '614' Hours in excess of 8 in a day for week-1. %Library.Numeric 680 HRS_EXCESS_8_DAY_WK_1 FileMan Field Label: 'HRS EXCESS 8 DAY WK 2' FileMan Field Number: '615' Hours in excess of 8 in a day for week-2. %Library.Numeric 681 HRS_EXCESS_8_DAY_WK_2 Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRSPC(0),""^"",3)") 1 2 IEN FileMan Field Label: 'INCENTIVE AWARD' FileMan Field Number: '587' The amount of an award paid to an employee in the last pay period processed. This award is granted under the Incentive Award Program. %Library.Numeric 648 INCENTIVE_AWARD FileMan Field Label: 'INSTRUCTIONAL PROGRAM' FileMan Field Number: '5' An employee's major field of study. %Library.String 8 INSTRUCTIONAL_PROGRAM FileMan Field Label: 'INTER-AGENCY LWOP IND' FileMan Field Number: '516' Indicates leave without pay is creditable for within grade increase purposes for an employee on loan to another agency, state, local or business organization. %Library.String 576 INTERAGENCY_LWOP_IND FileMan Field Label: 'INTERNSHIP CODE' FileMan Field Number: '133' Code identifies the status of non-career medical or dental residents, for pay and salary edit purposes. %Library.String 183 INTERNSHIP_CODE FileMan Field Label: 'INTMT EMP DAYS WORKED PROB PD' FileMan Field Number: '452' Data accumulated to determine the date the intermittent employee will complete his/her probationary period. %Library.Numeric 510 INTMT_EMP_DAYS_WORKED_PROB_PD FileMan Field Label: 'INTMT EMP DAYS WORKED STEP' FileMan Field Number: '453' Accumulated amount used to determine the due date of the next step increase for intermittent employees. %Library.Numeric 511 INTMT_EMP_DAYS_WORKED_STEP FileMan Field Label: 'INTMT EMP DAYS WORKED YTD' FileMan Field Number: '454' Accumulated amount used to determine creditable service for retirement purposes for intermittent employees. %Library.Numeric 512 INTMT_EMP_DAYS_WORKED_YTD FileMan Field Label: 'JOB SHARE' FileMan Field Number: '609' Indicator which identifies a part-time employee who shares a position with another part-time employee. %Library.String 675 JOB_SHARE FileMan Field Label: 'LABOR DIST CODE-1 COST CENTER' FileMan Field Number: '17' Identifies the Cost Center for fund appropriation accounting. This is related to the first of four possible Labor Distribution codes. %Library.String 21 LABOR_DIST_CODE1_COST_CENTER FileMan Field Label: 'LABOR DIST CODE-1 COST CTR/ORG' FileMan Field Number: '458' Identifies the organization unit where an employee is assigned. Also identifies the cost center for fund appropriation accounting. %Library.String 516 LABOR_DIST_CODE1_COST_CTRORG FileMan Field Label: 'LABOR DIST CODE-1 FUND CTRL PT' FileMan Field Number: '451' A three digit code used in the analysis and control of salary costs. Code is computer generated, but may be changed by station input. This is related to the first of four possible Labor Distribution codes. %Library.String 509 LABOR_DIST_CODE1_FUND_CTRL_PT FileMan Field Label: 'LABOR DIST CODE CHANGED BY' FileMan Field Number: '755' The type of interface or the internal entry number of the last person who changed any of the fields related to the Labor Distribution codes assigned to the employee. VALIP.prosthetic.fm2cw.NEWPERSON200 754 LABOR_DIST_CODE_CHANGED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PAID_EMPLOYEE_450 where %ID=:id) set {LABOR_DIST_CODE_CHANGED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LABOR_DIST_CODE_CHANGED_BY_NAME 1 FileMan Field Label: 'LABOR DIST CODE EDIT DATE' FileMan Field Number: '756' The date and time when the employee's Labor Distribution codes were last changed. %Library.FilemanTimeStamp 756 LABOR_DIST_CODE_EDIT_DATE FileMan Field Label: 'LAST PPD PROCESSED' FileMan Field Number: '455' This is the number of the last payroll period for which the computer has updated the employee's master record. %Library.String 513 LAST_PPD_PROCESSED FileMan Field Label: 'LEADERSHIP VA' FileMan Field Number: '62' Code which identifies an employee who currently participates in or has participated in the LVA Program. Used for tracking purposes. %Library.String 66 LEADERSHIP_VA FileMan Field Label: 'LEAVE ACCRUAL ELIG IND NPPD' FileMan Field Number: '467' Indicates eligibility of leave for employees whose time limited appointments of less than 90 days have been extended beyond 90 days. Values: N - not eligible; Y - eligible. %Library.String 525 LEAVE_ACCRUAL_ELIG_IND_NPPD FileMan Field Label: 'LEAVE GROUP' FileMan Field Number: '14' Indicates an employee's eligibility for leave. Also indicates the basis under a leave system for determining the rate of leave accrual. %Library.String 17 LEAVE_GROUP FileMan Field Label: 'LEVEL' FileMan Field Number: '604' Identifies title 38 nurses and nurse anesthetists that have enhanced qualifications or assignments. %Library.String 667 LEVEL604 FileMan Field Label: 'LIMITATION CODE' FileMan Field Number: '76' Indicates that the employee's appointment carries a restriction on either the number of hours of work which may be performed for pay purposes or on total salary dollars which may be earned. %Library.String 79 LIMITATION_CODE FileMan Field Label: 'LIMITATION EXP DATE' FileMan Field Number: '77' This is the beginning date of a salary limitation appointment. %Library.FilemanDate 80 LIMITATION_EXP_DATE FileMan Field Label: 'LIMITATION HOURS TO DATE' FileMan Field Number: '79' The accumulated number of hours worked by an employee from the date of appointment through the last pay period processed. This total is applied against the pay status hours limit established for a part-time or intermittent employee. On the anniversary date of the appointment this field is initialized in preparation for accumulating hours for the next year. %Library.Numeric 82 LIMITATION_HOURS_TO_DATE FileMan Field Label: 'LOCALITY PAY CPPD' FileMan Field Number: '83.2' Locality Pay amount for the most recently processed pay period. %Library.Numeric 88 LOCALITY_PAY_CPPD FileMan Field Label: 'LWOP CCY' FileMan Field Number: '517' This is a dual purpose field to record or adjust without pay in hours or days for the calendar year as applicable and to record or adjust retirement credit days for intermittent employees. %Library.Numeric 577 LWOP_CCY FileMan Field Label: 'LWOP CONTROL UNITS LYTD' FileMan Field Number: '518' Units are the equivalent number of full pay periods when sick and annual leave accruals have been reduced to excess without pay (WOP) time. Accruals are reduced in the pay period when WOP equals 80 hours or 14 days, as determined by the appointment. This is the accumulated number of pay periods in which accruals were reduced in the current leave year to date. %Library.Numeric 578 LWOP_CONTROL_UNITS_LYTD FileMan Field Label: 'LWOP FOR EDUCATION IND' FileMan Field Number: '130' Leave Without Pay (LWOP) for educational purposes by a physician, dentist, or nurse is creditable time for promotion and within grade increase purposes. Values: N - LWOP is not creditable; Y - LWOP is creditable. %Library.String 180 LWOP_FOR_EDUCATION_IND FileMan Field Label: 'LWOP HOURS/DAYS CPPD' FileMan Field Number: '519' The accumulated number of hours or days leave without pay was taken by an employee in the last pay period processed. %Library.Numeric 579 LWOP_HOURSDAYS_CPPD FileMan Field Label: 'LWOP HOURS CPPD' FileMan Field Number: '599' This is the number of hours the employee was in a leave without pay status in the last pay period processed. If the employee has his/her leave without pay amount measured in days, then that value is converted to the nearest whole hour value. %Library.Numeric 662 LWOP_HOURS_CPPD FileMan Field Label: 'LWOP LYTD' FileMan Field Number: '520' The accumulated number of hours or days of leave without pay used in the current leave year by a full-time employee. Data is accumulated for the purposes of reducing leave credits when an employee has used excess leave without pay in the year. %Library.Numeric 580 LWOP_LYTD FileMan Field Label: 'LWOP PROB PD' FileMan Field Number: '521' The accumulated number of hours or days taken as leave without pay. This total includes absence without leave, and covers the period from the beginning of the probationary period through the last pay period processed. Applies to a full-time or a part-time employee. %Library.Numeric 581 LWOP_PROB_PD FileMan Field Label: 'LWOP SINCE PROM' FileMan Field Number: '522' The number of days/hours of leave without pay since the last promotion for a Title 38 employee. %Library.Numeric 582 LWOP_SINCE_PROM FileMan Field Label: 'LWOP THIS STEP' FileMan Field Number: '523' The accumulated number of hours or days taken as leave without pay. This total includes absence without leave and covers the period from the effective date of the employee's last equivalent pay increase through the last pay period processed. Applies to a full-time employee. %Library.Numeric 583 LWOP_THIS_STEP FileMan Field Label: 'LWOP WG/PW PYTD' FileMan Field Number: '524' The accumulated number of hours of leave without pay taken by a wage administration employee or Veteran Canteen Service pieceworker. Total includes absence without leave and is for the current pay year to date, through the last pay period processed. %Library.Numeric 584 LWOP_WGPW_PYTD FileMan Field Label: 'MARITAL STATUS' FileMan Field Number: '222' Code indicates the marital status claimed by the employee on Form W-4. %Library.String 276 MARITAL_STATUS FileMan Field Label: 'MEDICAL MOS' FileMan Field Number: '63' An employee's medical specialty occupation while serving in the military. %Library.String 67 MEDICAL_MOS FileMan Field Label: 'MEDICARE AMT WITHHELD CPPD' FileMan Field Number: '250' The amount of tax for Medicare withheld from an employee's gross earnings in the last pay period processed. %Library.Numeric 304 MEDICARE_AMT_WITHHELD_CPPD FileMan Field Label: 'MEDICARE AMT WITHHELD QTD' FileMan Field Number: '251' Represents the amount of Medicare taxes deducted from an employee this quarter at this station. %Library.Numeric 305 MEDICARE_AMT_WITHHELD_QTD FileMan Field Label: 'MEDICARE AMT WITHHELD YTD' FileMan Field Number: '252' Represents the amount of Medicare taxes deducted from an employee at this station this year to date. %Library.Numeric 306 MEDICARE_AMT_WITHHELD_YTD FileMan Field Label: 'MEDICARE GROSS PAY CPPD' FileMan Field Number: '253' The amount of an employee's gross earnings that are subject to Medicare tax withholding in the last pay period processed. %Library.Numeric 307 MEDICARE_GROSS_PAY_CPPD FileMan Field Label: 'MEDICARE STATUS CODE' FileMan Field Number: '256' Indicates if an employee's gross earnings are subject to Medicare tax withholding. %Library.String 310 MEDICARE_STATUS_CODE FileMan Field Label: 'MEDICARE WAGES PRIOR AGCY YTD' FileMan Field Number: '257' Represents an employee's taxable earnings while employed at another station or by another federal agency in the current tax year. Used to determine when an affected employee will reach the annual Medicare wage and tax limitations in order to prevent overwithholding of Medicare taxes in the current tax year. %Library.Numeric 311 MEDICARE_WAGES_PRIOR_AGCY_YTD FileMan Field Label: 'MILITARY LEAVE BALANCE' FileMan Field Number: '506' The unused balance of military leave an employee has to use this fiscal year to date. Any balance remaining at the end of the fiscal year, up to 15 days for full-time employees, will carry over into the next fiscal year. %Library.Numeric 564 MILITARY_LEAVE_BALANCE FileMan Field Label: 'MILITARY LEAVE ELIGIBILITY IND' FileMan Field Number: '507' Indicates if an employee is eligible to accrue and use military leave during the fiscal year. %Library.String 565 MILITARY_LEAVE_ELIGIBILITY_IND FileMan Field Label: 'MILITARY LEAVE TYPE' FileMan Field Number: '507.1' The MILITARY LEAVE TYPE field indicates how the employee is charged Military Leave (ML). The possible values are: 0 - employee is not eligible to take Military Leave. 1 - employee is charged Military Leave in hours. 2 - employee is charged Military Leave in days. %Library.Numeric 566 MILITARY_LEAVE_TYPE FileMan Field Label: 'MILITARY LEAVE USED CPPD' FileMan Field Number: '507.2' The number of hours or days used by an employee for Military Leave in the last pay period processed. %Library.Numeric 567 MILITARY_LEAVE_USED_CPPD FileMan Field Label: 'MONTHLY ANNUITY' FileMan Field Number: '456' The monthly amount that reduces the base pay of a reemployed annuitant. These employees receive a monthly pension payment under Civil Service Retirement (CSR), and are subsequently reemployed in federal service. %Library.Numeric 514 MONTHLY_ANNUITY FileMan Field Label: 'MONTHLY NON-WORK IND' FileMan Field Number: '61' Indicates that an employee was not paid in a particular month and should not be included in certain employment reports. Value: N - Include; Y - Exclude. %Library.String 65 MONTHLY_NONWORK_IND FileMan Field Label: 'MOVING EXPENSES CPPD' FileMan Field Number: '532' The moving expenses amount for the current pay period. %Library.Numeric 592 MOVING_EXPENSES_CPPD FileMan Field Label: 'MSD ACTION CODE-1' FileMan Field Number: '258' This code identifies to which period of service a military service deposit applies. An employee may make deposits on three periods of service concurrently. This represents period 1. %Library.String 312 MSD_ACTION_CODE1 FileMan Field Label: 'MSD ACTION CODE-2' FileMan Field Number: '259' This code identifies to which period of service a military service deposit applies. An employee may make deposits on three periods of service concurrently. This represents period 2. %Library.String 313 MSD_ACTION_CODE2 FileMan Field Label: 'MSD ACTION CODE-3' FileMan Field Number: '260' This code identifies to which period of service a military service deposit applies. An employee may make deposits on three periods of service concurrently. This represents period 3. %Library.String 314 MSD_ACTION_CODE3 FileMan Field Label: 'MSD AMT DUE THIS PERIOD-1' FileMan Field Number: '261' The amount of retirement deposit due for a specific period of post-1956 military service. This field pertains to period 1 of the employee's military service deposits. %Library.Numeric 315 MSD_AMT_DUE_THIS_PERIOD1 FileMan Field Label: 'MSD AMT DUE THIS PERIOD-2' FileMan Field Number: '262' The amount of retirement deposit due for a specific period of post-1956 military service. This field pertains to period 2 of the employee's military service deposits. %Library.Numeric 316 MSD_AMT_DUE_THIS_PERIOD2 FileMan Field Label: 'MSD AMT DUE THIS PERIOD-3' FileMan Field Number: '263' The amount of retirement deposit due for a specific period of post-1956 military service. This field pertains to period 3 of the employee's military service deposits. %Library.Numeric 317 MSD_AMT_DUE_THIS_PERIOD3 FileMan Field Label: 'MSD AMT FOR INTEREST COMP' FileMan Field Number: '276' The balance of military service deposit that has not been paid at the closing of business on the day before the interest accrual date. The amount on which the interest is charged. %Library.Numeric 330 MSD_AMT_FOR_INTEREST_COMP FileMan Field Label: 'MSD AMT PAID YTD' FileMan Field Number: '277' The accumulated amounts paid into Civil Service Retirement for all deposits due for military service after 1956. The total includes all cash deposits and/or payroll deductions paid by an employee for the current tax year to date, through the last pay period processed. %Library.Numeric 331 MSD_AMT_PAID_YTD FileMan Field Label: 'MSD BRANCH OF SERVICE-1' FileMan Field Number: '264' Code identifies the branch of the military service in which an employee served, for a specific period of time after 1956. This field pertains to period 1 of the employee's military service deposits. %Library.String 318 MSD_BRANCH_OF_SERVICE1 FileMan Field Label: 'MSD BRANCH OF SERVICE-2' FileMan Field Number: '265' Code identifies the branch of the military service in which an employee served, for a specific period of time after 1956. This field pertains to period 2 of the employee's military service deposits. %Library.String 319 MSD_BRANCH_OF_SERVICE2 FileMan Field Label: 'MSD BRANCH OF SERVICE-3' FileMan Field Number: '266' Code identifies the branch of the military service in which an employee served, for a specific period of time after 1956. This field pertains to period 3 of the employee's military service deposits. %Library.String 320 MSD_BRANCH_OF_SERVICE3 FileMan Field Label: 'MSD CASH PAYMENT DATE' FileMan Field Number: '278' The date that a cash payment for military service deposit was made. The date is used for reference when determining the amount on which interest is to be charged. %Library.FilemanDate 332 MSD_CASH_PAYMENT_DATE FileMan Field Label: 'MSD DATE ENTERED MIL SVC-1' FileMan Field Number: '267' The date an employee entered on duty for a specific period of post-1956 military service. This period can apply toward Civil Service Retirement or Federal Employee Retirement as applicable. This field pertains to period 1 of the employee's military service deposits. %Library.FilemanDate 321 MSD_DATE_ENTERED_MIL_SVC1 FileMan Field Label: 'MSD DATE ENTERED MIL SVC-2' FileMan Field Number: '268' The date an employee entered on duty for a specific period of post-1956 military service. This period can apply toward Civil Service Retirement or Federal Employee Retirement as applicable. This field pertains to period 2 of the employee's military service deposits. %Library.FilemanDate 322 MSD_DATE_ENTERED_MIL_SVC2 FileMan Field Label: 'MSD DATE ENTERED MIL SVC-3' FileMan Field Number: '269' The date an employee entered on duty for a specific period of post-1956 military service. This period can apply toward Civil Service Retirement or Federal Employee Retirement as applicable. This field pertains to period 3 of the employee's military service deposits. %Library.FilemanDate 323 MSD_DATE_ENTERED_MIL_SVC3 FileMan Field Label: 'MSD DATE SEPARATED MIL SVC-1' FileMan Field Number: '270' The date an employee was separated from a specific period of post-1956 military service. This field pertains to period 1 of the employee's military service deposits. %Library.FilemanDate 324 MSD_DATE_SEPARATED_MIL_SVC1 FileMan Field Label: 'MSD DATE SEPARATED MIL SVC-2' FileMan Field Number: '271' The date an employee was separated from a specific period of post-1956 military service. This field pertains to period 2 of the employee's military service deposits. %Library.FilemanDate 325 MSD_DATE_SEPARATED_MIL_SVC2 FileMan Field Label: 'MSD DATE SEPARATED MIL SVC-3' FileMan Field Number: '272' The date an employee was separated from a specific period of post-1956 military service. This field pertains to period 3 of the employee's military service deposits. %Library.FilemanDate 326 MSD_DATE_SEPARATED_MIL_SVC3 FileMan Field Label: 'MSD DEDUCTION CPPD' FileMan Field Number: '279' The amount of military service deposit deduction authorized by an employee and deducted from his/her earnings in the current pay period processed. This is for retirement money on post-1956 military service. %Library.Numeric 333 MSD_DEDUCTION_CPPD FileMan Field Label: 'MSD DEDUCTION EPPD' FileMan Field Number: '280' The amount authorized to be deducted from an employee's pay each pay period for Civil Service Retirement deposit. The employee elects to pay this deposit to cover time served in the military after 1956. This deposit deduction is in addition to the regular deduction for CSR. %Library.Numeric 334 MSD_DEDUCTION_EPPD FileMan Field Label: 'MSD IND' FileMan Field Number: '281' Code indicates that an employee has elected to make a retirement deposit on his/her post-1956 military service time. %Library.String 335 MSD_IND FileMan Field Label: 'MSD INTEREST AMT CCY' FileMan Field Number: '282' The amount of interest computed on the balance of military service deposit due at the end of the interest free grace period (and annually thereafter) using the current year interest rate. %Library.Numeric 336 MSD_INTEREST_AMT_CCY FileMan Field Label: 'MSD INTEREST AMT PCY' FileMan Field Number: '283' The amount of interest computed on the balance of military service deposit due at the end of the interest free grace period (and annually thereafter) using the prior year interest rate. %Library.Numeric 337 MSD_INTEREST_AMT_PCY FileMan Field Label: 'MSD INTEREST COMP DATE' FileMan Field Number: '284' The date that the two year grace period begins, during which no interest is charged to the employee for the retirement deposit due for periods of military service after 1956. %Library.FilemanDate 338 MSD_INTEREST_COMP_DATE FileMan Field Label: 'MSD INTEREST RATE CCY' FileMan Field Number: '285' This is the rate of interest for the current calendar year. Military service deposit interest is computed on the interest accrual date balances using the calendar year interest rate. %Library.Numeric 339 MSD_INTEREST_RATE_CCY FileMan Field Label: 'MSD INTEREST RATE PCY' FileMan Field Number: '286' This is the rate of interest for the prior calendar year. %Library.Numeric 340 MSD_INTEREST_RATE_PCY FileMan Field Label: 'MSD LOST TIME-1' FileMan Field Number: '273' The number of days lost time in a specific post-1956 period of military service. An example of lost time is days an employee was absent without leave during this period of military service. Lost time may count for Civil Service Retirement. This field pertains to period 1 of the employee's military service deposits. %Library.Numeric 327 MSD_LOST_TIME1 FileMan Field Label: 'MSD LOST TIME-2' FileMan Field Number: '274' The number of days lost time in a specific post-1956 period. An example of lost time is days an employee was absent without leave during this period of military service. Lost time may count for Civil Service Retirement. This field pertains to period 2 of the employee's military service deposit. %Library.Numeric 328 MSD_LOST_TIME2 FileMan Field Label: 'MSD LOST TIME-3' FileMan Field Number: '275' The number of days lost in a specific post-1956 period of service. An example of lost time is days an employee was absent without leave during this period of military service. Lost time may count for Civil Service Retirement. This field pertains to period 3 of the employee's military service deposits. %Library.Numeric 329 MSD_LOST_TIME3 FileMan Field Label: 'MSD TOTAL AMT COLLECTED' FileMan Field Number: '287' The accumulated amount paid into Civil Service Retirement for all deposits due for military service after 1956. Total includes all cash deposits and/or payroll deductions paid by an employee since the employee's military data has been recorded in the record. The total is through the last pay period processed. %Library.Numeric 341 MSD_TOTAL_AMT_COLLECTED FileMan Field Label: 'MSD TOTAL AMT DUE' FileMan Field Number: '288' The sum of all retirement deposits due for all periods of military service after 1956. The sum can include up to three periods of military service. These deposits are in addition to biweekly deductions for Civil Service Retirement or Federal Employee Retirement. %Library.Numeric 342 MSD_TOTAL_AMT_DUE FileMan Field Label: 'MSD TOTAL INTEREST AMT' FileMan Field Number: '289' The total amount of interest charged for the fiscal year to an employee when making a military service deposit. This is the total interest charge to date. %Library.Numeric 343 MSD_TOTAL_INTEREST_AMT FileMan Field Label: 'NET PAY CPPD' FileMan Field Number: '541' The amount of net pay an employee received for the last pay period processed. %Library.Numeric 601 NET_PAY_CPPD FileMan Field Label: 'NET PAY OUT-OF-SYSTEM AMT CPPD' FileMan Field Number: '542' The net pay amount of an out-of-system payment that is being recovered in the affected employee's master record for income tax and wage reporting purposes. %Library.Numeric 602 NET_PAY_OUTOFSYSTEM_AMT_CPPD FileMan Field Label: 'NEW PERSON' FileMan Field Number: '700' This field is a pointer to the NEW PERSON (#200) file. VALIP.prosthetic.fm2cw.NEWPERSON200 699 NEW_PERSON NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PAID_EMPLOYEE_450 where %ID=:id) set {NEW_PERSON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NEW_PERSON_NAME 1 FileMan Field Label: 'NEW SSN' FileMan Field Number: '34' This is the social security number that replaces the previous number. The previous number may have been invalid or a temporarily assigned number while the employee applied for a social security number. %Library.String 38 NEW_SSN FileMan Field Label: 'NIGHT DIFF AMT CPPD' FileMan Field Number: '549' The amount paid to an eligible employee performing duty on a tour of duty, part or all of which qualifies for payment of a night shift differential. %Library.Numeric 609 NIGHT_DIFF_AMT_CPPD FileMan Field Label: 'NIGHT DIFF HRS CPPD' FileMan Field Number: '550' The number of hours an employee was paid night differential, shift differential, or tour differential premium pay in the last pay period processed. %Library.Numeric 610 NIGHT_DIFF_HRS_CPPD FileMan Field Label: 'NIGHT DIFF IND' FileMan Field Number: '551' This field is used when current year deductions for a wage employee includes an amount which was deducted from shift differential payments. It is used to make appropriate remarks on the employee's retirement record. %Library.String 611 NIGHT_DIFF_IND FileMan Field Label: 'NON-OVERTIME AMT' FileMan Field Number: '623' Non-overtime amount. %Library.Numeric 689 NONOVERTIME_AMT FileMan Field Label: 'NON-OVERTIME HOURS' FileMan Field Number: '622' Non-overtime hours. %Library.Numeric 688 NONOVERTIME_HOURS FileMan Field Label: 'NON-PAYABLE ANNUAL LEAVE' FileMan Field Number: '136' Total days of non-payable annual leave a resident has available to use. The balance is as of the last pay period processed. This annual leave may be used as long as the resident is in this program with the VA. If he/she resigns or is terminated the leave is forfeited. %Library.Numeric 186 NONPAYABLE_ANNUAL_LEAVE FileMan Field Label: 'NONPAY ANNUAL LEAVE USED CPPD' FileMan Field Number: '468' The number of non-available annual leave days used by an eligible employee in the last pay period processed. %Library.Numeric 526 NONPAY_ANNUAL_LEAVE_USED_CPPD FileMan Field Label: 'NONPAY HOURS/DAYS CPPD' FileMan Field Number: '66' The number of hours or days an employee is not being paid because he/she was not an employee in the last pay period processed. %Library.Numeric 69 NONPAY_HOURSDAYS_CPPD FileMan Field Label: 'NONPAY HOURS CPPD' FileMan Field Number: '598' This is the number of hours the employee was in a nonpay status in the last pay period processed. If the employee has his/her nonpay status measured in days, then that value is converted to the nearest whole hour value. %Library.Numeric 661 NONPAY_HOURS_CPPD FileMan Field Label: 'NONPAY IND' FileMan Field Number: '67' Indicates that an employee's net pay is not paid through the Central PAID System. %Library.String 70 NONPAY_IND FileMan Field Label: 'NORMAL HOURS' FileMan Field Number: '591' This field contains the number of normal hours an employee is scheduled to work in a pay period. For full-time physicians, dentists, career medical and dental staff (subaccounts 71,81 or pay plan Y) full-time hour equivalents are calculated. %Library.String 654 NORMAL_HOURS FileMan Field Label: 'NO AGREEMENT REASON (AT APPT)' FileMan Field Number: '134' Code indicates the reason a Title 38 physician or dentist did not qualify for, or elected not to receive, special pay at the time of the appointment. %Library.String 184 NO_AGREEMENT_REASON_AT_APPT FileMan Field Label: 'NO AGREEMENT REASON (CURRENT)' FileMan Field Number: '135' Code indicates the reason a Title 38 physician or dentist is not currently qualified for, or elected not to receive, special pay. %Library.String 185 NO_AGREEMENT_REASON_CURRENT FileMan Field Label: 'OASDI TAX AMT WITHHELD CPPD' FileMan Field Number: '290' The amount withheld from an employee not covered by the Civil Service Retirement System for a portion of the Old Age, Survivors and Disability Insurance tax in the last pay period processed. %Library.Numeric 344 OASDI_TAX_AMT_WITHHELD_CPPD FileMan Field Label: 'OASDI TAX AMT WITHHELD QTD' FileMan Field Number: '291' Represents the gross amount of Old Age, Survivors and Disability Insurance taxes deducted from an employee this quarter at this station. %Library.Numeric 345 OASDI_TAX_AMT_WITHHELD_QTD FileMan Field Label: 'OASDI TAX AMT WITHHELD YTD' FileMan Field Number: '292' The accumulated amount of Old Age, Survivors and Disability Insurance (OASDI) tax withheld from an employee's earnings. The total is for the current calendar year through the last pay period processed. The total cannot exceed the annual OASDI tax ceiling. %Library.Numeric 346 OASDI_TAX_AMT_WITHHELD_YTD FileMan Field Label: 'OASDI TAX GROSS PAY CPPD' FileMan Field Number: '293' The amount of an employee's gross earnings that were subject to Old Age, Survivors and Disability Insurance tax for the last pay period processed. %Library.Numeric 347 OASDI_TAX_GROSS_PAY_CPPD FileMan Field Label: 'OASDI TAX GROSS PAY QTD' FileMan Field Number: '294' The accumulated amount of an employee's earnings subject to Old Age, Survivors and Disability Insurance (OASDI) tax. The total is for the calendar quarter to date through the last pay period processed. The total cannot exceed the annual OASDI wage ceiling. %Library.Numeric 348 OASDI_TAX_GROSS_PAY_QTD FileMan Field Label: 'OASDI TAX GROSS PAY YTD' FileMan Field Number: '295' The accumulated amount of an employee's earnings subject to Old Age, Survivors and Disability Insurance (OASDI) tax. The total is for the calendar year to date through the last pay period processed. The total cannot exceed the annual OASDI wage ceiling. %Library.Numeric 349 OASDI_TAX_GROSS_PAY_YTD FileMan Field Label: 'OASDI TAX VA SHARE CPPD' FileMan Field Number: '296' The government's contribution to the Old Age, Survivors and Disability Insurance for the last pay period processed. %Library.Numeric 350 OASDI_TAX_VA_SHARE_CPPD FileMan Field Label: 'OASDI TAX VA SHARE QTD' FileMan Field Number: '297' The quarterly amount of government share of Old Age, Survivors and Disability Insurance. %Library.Numeric 351 OASDI_TAX_VA_SHARE_QTD FileMan Field Label: 'OASDI TAX VA SHARE YTD' FileMan Field Number: '298' The year-to-date amount of the government share of Old Age, Survivors and Disability Insurance. %Library.Numeric 352 OASDI_TAX_VA_SHARE_YTD FileMan Field Label: 'OASDI WAGES PRIOR AGCY YTD' FileMan Field Number: '299' Represents an employee's taxable earnings while employed at another VA station or by another federal agency in the current tax year. Used to determine when an affected employee will reach the annual Old Age, Survivors and Disability Insurance (OASDI) wage and tax limitations in order to prevent overwithholding of OASDI taxes in the current year. %Library.Numeric 353 OASDI_WAGES_PRIOR_AGCY_YTD FileMan Field Label: 'OBLIGATED SERVICE' FileMan Field Number: '99' Obligated Service date. %Library.FilemanDate 109 OBLIGATED_SERVICE FileMan Field Label: 'OCCUPATION SERIES CODE' FileMan Field Number: '15.5' Code that identifies the subdivision of an occupational family or group under which an employee's position is classified. %Library.String 1 19 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(450,15.5,9.2) S X=$E(Y(450,15.5,2),Y(450,15.5,3),X) set {OCCUPATION_SERIES_CODE}=X 1 OCCUPATION_SERIES_CODE %Library.String 20 OCCUPATION_SERIES__TITLE FileMan Field Label: 'OCC PRIV TAX DEDUCTION IND' FileMan Field Number: '305' Code identifies if an employee is subject to occupational privilege tax. Also denotes if this tax has been withheld in the current tax year. %Library.String 359 OCC_PRIV_TAX_DEDUCTION_IND FileMan Field Label: 'ON CALL AMT CPPD' FileMan Field Number: '552' The amount paid for hours an employee spent in an on-call status in the last pay period processed. This applies only to certain Title 38 medical personnel. %Library.Numeric 612 ON_CALL_AMT_CPPD FileMan Field Label: 'ON CALL HRS CPPD' FileMan Field Number: '553' The number of on-call hours an employee was paid for the last pay period processed. This applies only to certain Title 38 medical personnel. %Library.Numeric 613 ON_CALL_HRS_CPPD FileMan Field Label: 'OTHER DEDUCTION BALANCE-1' FileMan Field Number: '306' Denotes the outstanding balance of the employee's debt being collected by payroll deductions. Since an employee may have more than one separate recurring deductions, this balance can represent the first, second or the sum of both. %Library.Numeric 360 OTHER_DEDUCTION_BALANCE1 FileMan Field Label: 'OTHER DEDUCTION BALANCE-2' FileMan Field Number: '307' Denotes the outstanding balance of the employee's debt being collected by payroll deductions. This field pertains to the second instance of the recurring deductions. %Library.Numeric 361 OTHER_DEDUCTION_BALANCE2 FileMan Field Label: 'OTHER DEDUCTION BIWEEKLY AMT-1' FileMan Field Number: '308' The biweekly amount authorized by an employee to liquidate an indebtedness through payroll deductions. This field pertains to the first instance of recurring deductions. %Library.Numeric 362 OTHER_DEDUCTION_BIWEEKLY_AMT1 FileMan Field Label: 'OTHER DEDUCTION BIWEEKLY AMT-2' FileMan Field Number: '309' The biweekly amount authorized by an employee to liquidate an indebtedness through payroll deductions. This field pertains to the second instance of recurring deductions. %Library.Numeric 363 OTHER_DEDUCTION_BIWEEKLY_AMT2 FileMan Field Label: 'OTHER DEDUCTION CODE-1' FileMan Field Number: '310' The station assigned code to identify an employee's specific indebtedness that is being recovered by regular biweekly payroll deductions. This field pertains to the first instance of recurring deductions. %Library.String 364 OTHER_DEDUCTION_CODE1 FileMan Field Label: 'OTHER DEDUCTION CODE-2' FileMan Field Number: '311' The station assigned code to identify an employee's specific indebtedness that is being recovered by regular biweekly payroll deductions. An employee may have more than one recurring deduction. This field identifies the second. %Library.String 365 OTHER_DEDUCTION_CODE2 FileMan Field Label: 'OTHER SICK LEAVE USED CPPD' FileMan Field Number: '714' The number of hours or days used by an employee for other sick leave in the last pay period processed. %Library.Numeric 713 OTHER_SICK_LEAVE_USED_CPPD FileMan Field Label: 'OTHER SICK LEAVE USED LYTD' FileMan Field Number: '715' The total number of hours or days of other sick leave used by an employee during the leave year to date. %Library.Numeric 714 OTHER_SICK_LEAVE_USED_LYTD FileMan Field Label: 'OTHER TAX FROZEN CODE-1' FileMan Field Number: '312' Code indicates the income reporting to a particular taxing authority has been frozen. %Library.String 366 OTHER_TAX_FROZEN_CODE1 FileMan Field Label: 'OTHER TAX FROZEN CODE-2' FileMan Field Number: '313' Code indicates the income reporting to a particular state taxing authority has been frozen. %Library.String 367 OTHER_TAX_FROZEN_CODE2 FileMan Field Label: 'OTHER TAX GROSS PAY YTD-1' FileMan Field Number: '314' The accumulated amount of an employee's gross earnings in the current tax year to date. This total is reported to a state or city taxing authority. %Library.Numeric 368 OTHER_TAX_GROSS_PAY_YTD1 FileMan Field Label: 'OTHER TAX GROSS PAY YTD-2' FileMan Field Number: '315' The accumulated amount of an employee's gross earnings in the current tax year to date. This total is reported to a state or city taxing authority. %Library.Numeric 369 OTHER_TAX_GROSS_PAY_YTD2 FileMan Field Label: 'OTHER TAX GSA CODE-1' FileMan Field Number: '316' Code identifies the state or city that receives a report of an employee's gross pay for the current tax year. Codes are assigned by the GSA. %Library.String 370 OTHER_TAX_GSA_CODE1 FileMan Field Label: 'OTHER TAX GSA CODE-2' FileMan Field Number: '317' Code identifies the state or city that receives a report of an employee's gross pay for the current tax year. %Library.String 371 OTHER_TAX_GSA_CODE2 FileMan Field Label: 'OT ON HOL AMT' FileMan Field Number: '625' Overtime amount on a holiday. %Library.Numeric 691 OT_ON_HOL_AMT FileMan Field Label: 'OT ON HOL HOURS' FileMan Field Number: '624' Overtime hours on a holiday. %Library.Numeric 690 OT_ON_HOL_HOURS FileMan Field Label: 'OVERTIME AMT CPPD' FileMan Field Number: '554' The amount of overtime premium pay received by an employee for overtime hours worked in the current pay period processed. %Library.Numeric 614 OVERTIME_AMT_CPPD FileMan Field Label: 'OVERTIME AMT WK 1' FileMan Field Number: '612' Overtime amount for week-1. %Library.Numeric 678 OVERTIME_AMT_WK_1 FileMan Field Label: 'OVERTIME AMT WK 2' FileMan Field Number: '613' Overtime amount for week-2. %Library.Numeric 679 OVERTIME_AMT_WK_2 FileMan Field Label: 'OVERTIME HOURS CPPD' FileMan Field Number: '555' The number of hours for which an employee was paid overtime premium pay in the last pay period processed. %Library.Numeric 615 OVERTIME_HOURS_CPPD FileMan Field Label: 'OVERTIME HOURS WK 1' FileMan Field Number: '610' Overtime hours for week-1. %Library.Numeric 676 OVERTIME_HOURS_WK_1 FileMan Field Label: 'OVERTIME HOURS WK 2' FileMan Field Number: '611' Overtime hours for week-2. %Library.Numeric 677 OVERTIME_HOURS_WK_2 FileMan Field Label: 'OWCP BENEFICIARY IND' FileMan Field Number: '68' Indicates employee is an Office of Workman's Compensation Program beneficiary. Leave without pay charged will not be used for determining within grade increase eligibility or adjustment of service computation date. %Library.String 71 OWCP_BENEFICIARY_IND FileMan Field Label: 'PARKING DEDUCTION CPPD' FileMan Field Number: '321' The amount deducted from an employee's pay for parking furnished by the station. This is the actual amount deducted in the last pay period processed. %Library.Numeric 375 PARKING_DEDUCTION_CPPD FileMan Field Label: 'PARKING DEDUCTION EPPD' FileMan Field Number: '322' The amount to be deducted each pay period from an employee's pay for parking furnished by the station. %Library.Numeric 376 PARKING_DEDUCTION_EPPD FileMan Field Label: 'PART TIME/INTERMIT HRS TOTAL' FileMan Field Number: '70' Total number of hours worked by a part-time or intermittent employee that count towards retirement. This field is only updated after an SF-50 is processed for the employee. %Library.Numeric 73 PART_TIMEINTERMIT_HRS_TOTAL FileMan Field Label: 'PART TIME VHA IND' FileMan Field Number: '69' Code indicates that an employee's actual hours worked must be accumulated. "C" is placed here if Retirement/FICA = 1 or 4 and not reemployed annuitant and Pay Plan = L,M,N or Q and Duty Basis = 2 or 3 and Pay Basis is not "S". %Library.String 72 PART_TIME_VHA_IND FileMan Field Label: 'PAYABLE ANNUAL LEAVE' FileMan Field Number: '137' Total days payable to a resident for annual leave. This leave may be used or carried over to the next year. If the resident in this program resigns or is terminated the balance of this annual leave must be paid in a lump sum payment. %Library.Numeric 187 PAYABLE_ANNUAL_LEAVE FileMan Field Label: 'PAY BASIS' FileMan Field Number: '19' Code identifies the principal condition in terms of time, production or other criteria that serve as a basis for computing pay. %Library.String 23 PAY_BASIS FileMan Field Label: 'PAY PLAN' FileMan Field Number: '20' Code identifies the pay system under which the employee's compensation is determined. %Library.String 24 PAY_PLAN FileMan Field Label: 'PAY RATE DETERMINANT' FileMan Field Number: '21' Identifies special factors that were considered in determining an employee's salary. %Library.String 25 PAY_RATE_DETERMINANT FileMan Field Label: 'PERFORMANCE AWARD' FileMan Field Number: '587.1' The amount of a performance award paid to an employee in the last pay period. %Library.Numeric 649 PERFORMANCE_AWARD FileMan Field Label: 'PERF/PROFCY RATING CODE' FileMan Field Number: '22' The code used to identify an employee's level of performance/proficiency. %Library.String 26 PERFPROFCY_RATING_CODE FileMan Field Label: 'PHYSICIAN AND DENTIST PAY CAP' FileMan Field Number: '705' A VA approved maximum amount of total salary (base pay, GAP if applicable, and special pay) a physician or dentist may receive above the EL I pay cap. %Library.Numeric 704 PHYSICIAN_AND_DENTIST_PAY_CAP FileMan Field Label: 'PLACEMENT FOLLOWUP' FileMan Field Number: '91' Placement Followup date. %Library.FilemanDate 96 PLACEMENT_FOLLOWUP FileMan Field Label: 'PMRS IDENTIFIER' FileMan Field Number: '71' Code identifies the unit a Performance Management Rating System employee is assigned to. %Library.String 74 PMRS_IDENTIFIER FileMan Field Label: 'PMRS PERFORMANCE AWARD AMT' FileMan Field Number: '588' The amount of additional compensation paid to an employee under the Performance Management Rating System, based upon his/her evaluation. %Library.Numeric 651 PMRS_PERFORMANCE_AWARD_AMT FileMan Field Label: 'POSITION NUMBER' FileMan Field Number: '23' The number assigned to an employee's position under a pay system which requires a position number. The last character in the number indicates if the position can be filled by more than one employee and if it is a permanent or temporary position. %Library.String 27 POSITION_NUMBER FileMan Field Label: 'POSITION PREFERENCE' FileMan Field Number: '176' Position for which a candidate or incumbent wishes to be considered when a vacancy occurs. %Library.String 226 POSITION_PREFERENCE FileMan Field Label: 'POSITION RESPONSIBILITY' FileMan Field Number: '703' A discretionary component of Title 38 special pay that is authorized for physicians and dentists in certain positions. This component is also known as Executive Position Pay. %Library.Numeric 702 POSITION_RESPONSIBILITY FileMan Field Label: 'POST DIFF AMT CPPD' FileMan Field Number: '557' The amount of differential paid to an employee assigned to a post in Manila in the last pay period processed. Differential is computed as a percentage of base pay, and applies to employees whose parent station is not within the U.S. or its territories. %Library.Numeric 617 POST_DIFF_AMT_CPPD FileMan Field Label: 'PREAPPOINTMENT EXPERIENCE' FileMan Field Number: '138' Identifies the nature of the most recent employment experience of a title 38 Physician or Dentist prior to coming on VA rolls. %Library.String 188 PREAPPOINTMENT_EXPERIENCE FileMan Field Label: 'PREMIUM PAY IND' FileMan Field Number: '548' Upon receipt of written notification from the Personnel Officer that an eligible employee has been authorized to receive premium pay under the provisions of Public Law 98-160, the appropriate premium pay code must be entered into each affected employee's master record. %Library.String 608 PREMIUM_PAY_IND FileMan Field Label: 'PREMIUM PAY PCT' FileMan Field Number: '556' Represents the percent of salary payable for regularly scheduled standby duty. %Library.Numeric 616 PREMIUM_PAY_PCT FileMan Field Label: 'PRIOR PERFORMANCE 1' FileMan Field Number: '24' Code identifies an assigned level of achievement for an employee's accomplishment of assigned tasks for the past rating period. %Library.String 28 PRIOR_PERFORMANCE_1 FileMan Field Label: 'PRIOR PERFORMANCE 2' FileMan Field Number: '25' Code identifies an assigned level of achievement for an employee's accomplishment of assigned tasks for the second past rating period. %Library.String 29 PRIOR_PERFORMANCE_2 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 1' FileMan Field Number: '160' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 210 PRIOR_VA_EXPERIENCE_OTHER_1 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 2' FileMan Field Number: '161' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 211 PRIOR_VA_EXPERIENCE_OTHER_2 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 3' FileMan Field Number: '162' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 212 PRIOR_VA_EXPERIENCE_OTHER_3 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 4' FileMan Field Number: '163' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 213 PRIOR_VA_EXPERIENCE_OTHER_4 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 5' FileMan Field Number: '164' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 214 PRIOR_VA_EXPERIENCE_OTHER_5 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 6' FileMan Field Number: '165' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 215 PRIOR_VA_EXPERIENCE_OTHER_6 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 7' FileMan Field Number: '166' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 216 PRIOR_VA_EXPERIENCE_OTHER_7 FileMan Field Label: 'PRIOR VA EXPERIENCE (OTHER) 8' FileMan Field Number: '167' Identifies the type of training experience above the trainee level a title 38 physician or dentist had while working in a VA facility prior to the current period of service. An employee record may contain eight of these codes. %Library.String 217 PRIOR_VA_EXPERIENCE_OTHER_8 FileMan Field Label: 'PRIOR VA EXPERIENCE (S/I/R) 1' FileMan Field Number: '155' Identifies the type of training experience (student, resident, intern) a title 38 physician or dentist received in a VA facility prior to the current period of service. An employee record may contain five of these codes. %Library.String 205 PRIOR_VA_EXPERIENCE_SIR_1 FileMan Field Label: 'PRIOR VA EXPERIENCE (S/I/R) 2' FileMan Field Number: '156' Identifies the type of training experience (student, resident, intern) a title 38 physician or dentist received in a VA facility prior to the current period of service. An employee record may contain five of these codes. %Library.String 206 PRIOR_VA_EXPERIENCE_SIR_2 FileMan Field Label: 'PRIOR VA EXPERIENCE (S/I/R) 3' FileMan Field Number: '157' Identifies the type of training experience (student, resident, intern) a title 38 physician or dentist received in a VA facility prior to the current period of service. An employee record may contain five of these codes. %Library.String 207 PRIOR_VA_EXPERIENCE_SIR_3 FileMan Field Label: 'PRIOR VA EXPERIENCE (S/I/R) 4' FileMan Field Number: '158' Identifies the type of training experience (student, resident, intern) a title 38 physician or dentist received in a VA facility prior to the current period of service. An employee record may contain five of these codes. %Library.String 208 PRIOR_VA_EXPERIENCE_SIR_4 FileMan Field Label: 'PRIOR VA EXPERIENCE (S/I/R) 5' FileMan Field Number: '159' Identifies the type of training experience (student, resident, intern) a title 38 physician or dentist received in a VA facility prior to the current period of service. An employee record may contain five of these codes. %Library.String 209 PRIOR_VA_EXPERIENCE_SIR_5 FileMan Field Label: 'PROBATIONARY APPOINTMENT IND' FileMan Field Number: '72' Indicates employee's appointment is subject to completion of a probationary or trail period before it is considered permanent. %Library.String 75 PROBATIONARY_APPOINTMENT_IND FileMan Field Label: 'PROFICIENCY DATE' FileMan Field Number: '112' Proficiency Date. %Library.FilemanDate 123 PROFICIENCY_DATE FileMan Field Label: 'PROMOTION ELIGIBILITY IND' FileMan Field Number: '140' Notice of eligibility for promotion has been produced for a physician, dentist or nurse. %Library.String 190 PROMOTION_ELIGIBILITY_IND FileMan Field Label: 'PROPER GRADE' FileMan Field Number: '73' Code identifies the grade of the actual, lower grade position that the employee is assigned to during the two year grade retention period. This grade does not determine the employee's salary during the two-year grade retention period. %Library.String 76 PROPER_GRADE FileMan Field Label: 'PROPER PAY PLAN' FileMan Field Number: '74' Identifies the actual pay plan under retained grade. %Library.String 77 PROPER_PAY_PLAN FileMan Field Label: 'PUERTO RICO STATE TAX EXEMPT' FileMan Field Number: '372' A married employee of Puerto Rico may elect all or half of an exemption for himself/herself. This field will be coded with the percentage of the personal exemption elected by an employee for primary city tax withholding. %Library.Numeric 426 PUERTO_RICO_STATE_TAX_EXEMPT FileMan Field Label: 'PURCHASE AND HIRE CASH PAYMENT' FileMan Field Number: '533' The hourly fringe benefit payment for purchase and hire employees. %Library.Numeric 593 PURCHASE_AND_HIRE_CASH_PAYMENT FileMan Field Label: 'QUARTERS CODE' FileMan Field Number: '323' Code indicates whether or not the deduction for housekeeping quarters is taxable income. %Library.String 377 QUARTERS_CODE FileMan Field Label: 'QUARTERS DEDUCTION CPPD' FileMan Field Number: '325' The amount deducted from an employee's earnings for housekeeping quarters in the last pay period processed. %Library.Numeric 379 QUARTERS_DEDUCTION_CPPD FileMan Field Label: 'QUARTERS DEDUCTION EPPD' FileMan Field Number: '324' The amount that has been authorized to be deducted from an employee's pay each pay period for station housekeeping quarters (housing). %Library.Numeric 378 QUARTERS_DEDUCTION_EPPD FileMan Field Label: 'QUARTERS NON-HSKP DED CPPD' FileMan Field Number: '320' The amount deducted from an employee's earnings for non-housekeeping quarters in the last pay period processed. %Library.Numeric 374 QUARTERS_NONHSKP_DED_CPPD FileMan Field Label: 'QUARTERS STATION' FileMan Field Number: '326' Identifies the station furnishing the quarters (housing) and/or subsistence (meals) to an employee. The employee is located at the furnishing station, but is employed by another station. %Library.String 380 QUARTERS_STATION FileMan Field Label: 'RECRUITMENT BONUS' FileMan Field Number: '596' Recruitment Bonus amount. %Library.Numeric 659 RECRUITMENT_BONUS FileMan Field Label: 'REDETERMINATION OF WGI' FileMan Field Number: '97' Redetermination on Withheld Within-Grade Increase date. %Library.FilemanDate 102 REDETERMINATION_OF_WGI FileMan Field Label: 'REEMP ANNUITANT BASE PAY REDUC' FileMan Field Number: '538' The actual amount of money a reemployed annuitant's base pay was reduced in the last pay period processed. %Library.Numeric 598 REEMP_ANNUITANT_BASE_PAY_REDUC FileMan Field Label: 'REEMP ANNUITANT DED EOPY' FileMan Field Number: '331' The accumulated amount deducted for Civil Service Retirement from the pay of a reemployed annuitant at the end of the prior tax year. This amount is not matched by the agency and is identified separately for the Office of Personnel Management. %Library.Numeric 385 REEMP_ANNUITANT_DED_EOPY FileMan Field Label: 'REEMP ANNUITANT DED YTD' FileMan Field Number: '332' The accumulated amount deducted for Civil Service Retirement from the pay of a reemployed annuitant to date this tax year. This amount is not matched by the agency and is identified separately for the Office of Personnel Management. %Library.Numeric 386 REEMP_ANNUITANT_DED_YTD FileMan Field Label: 'REG HOURS AT OT RATE' FileMan Field Number: '562' The number of hours an employee was paid regular hours at the overtime rate, because they are in excess of 8 hours in a day rather than 40 in a week, in the last pay period processed. %Library.Numeric 622 REG_HOURS_AT_OT_RATE FileMan Field Label: 'REG HOURS AT OT RATE AMT WK 1' FileMan Field Number: '620' Regular hours at the overtime rate amount for week-1. %Library.Numeric 686 REG_HOURS_AT_OT_RATE_AMT_WK_1 FileMan Field Label: 'REG HOURS AT OT RATE AMT WK 2' FileMan Field Number: '621' Regular hours at the overtime rate amount for week-2. %Library.Numeric 687 REG_HOURS_AT_OT_RATE_AMT_WK_2 FileMan Field Label: 'REG HOURS AT OT RATE WK 1' FileMan Field Number: '618' Regular hours at the overtime rate for week-1. %Library.Numeric 684 REG_HOURS_AT_OT_RATE_WK_1 FileMan Field Label: 'REG HOURS AT OT RATE WK 2' FileMan Field Number: '619' Regular hours at the overtime rate for week-2. %Library.Numeric 685 REG_HOURS_AT_OT_RATE_WK_2 FileMan Field Label: 'RELOCATION BONUS' FileMan Field Number: '595' Relocation Bonus amount. %Library.Numeric 658 RELOCATION_BONUS FileMan Field Label: 'Requires Transmission' FileMan Field Number: '902' This field is used to note that this record was just added to file 450, or that an edit was made to the fields that MPI cares about capturing and an VPID needs to be assigned or an update message needs to be sent. %Library.EnumString 767 REQUIRES_TRANSMISSION FileMan Field Label: 'RESIDENCE ADDRESS LINE 1' FileMan Field Number: '186.1' Contains address information on the employee's residence. %Library.String 237 RESIDENCE_ADDRESS_LINE_1 FileMan Field Label: 'RESIDENCE ADDRESS LINE 2' FileMan Field Number: '186.2' Contains address information on the employee's residence. %Library.String 238 RESIDENCE_ADDRESS_LINE_2 FileMan Field Label: 'RESIDENCE ADDRESS LINE 3' FileMan Field Number: '186.3' Contains address information on the employee's residence. %Library.String 239 RESIDENCE_ADDRESS_LINE_3 FileMan Field Label: 'RESIDENCE ADDRESS ZIP CODE' FileMan Field Number: '186.4' Contains address information on the employee's residence. %Library.String 240 RESIDENCE_ADDRESS_ZIP_CODE FileMan Field Label: 'RESIDENCE STATE' FileMan Field Number: '186' This is a two-digit code, assigned by GSA, which identifies the state in which an employee resides. %Library.String 236 RESIDENCE_STATE FileMan Field Label: 'RESTORED ANNUAL LEAVE BAL-1' FileMan Field Number: '469' This balance represents the number of unused hours or days of restored annual leave as of the last pay period processed. Restored annual leave may be recorded for two separate occurences. This field identifies the first. identifies the first. %Library.Numeric 527 RESTORED_ANNUAL_LEAVE_BAL1 FileMan Field Label: 'RESTORED ANNUAL LEAVE BAL-2' FileMan Field Number: '470' This balance represents the number of unused hours or days of restored annual leave as of the last pay period processed. Restored annual leave may be recorded for two separate occurences. This field identifies the second. field identifies the second. %Library.Numeric 528 RESTORED_ANNUAL_LEAVE_BAL2 FileMan Field Label: 'RESTORED ANNUAL LEAVE YEAR-1' FileMan Field Number: '471' This code is the last digit of the leave year when an employee's restored annual leave must be used or it will be forfeited. Restored annual leave may be recorded for two separate occurences and this field identifies the first. %Library.String 529 RESTORED_ANNUAL_LEAVE_YEAR1 FileMan Field Label: 'RESTORED ANNUAL LEAVE YEAR-2' FileMan Field Number: '472' This code is the last digit of the leave year when an employee's restored annual leave must be used or it will be forfeited. Restored annual leave may be recorded for two separate occurences and this field identifies the second. %Library.String 530 RESTORED_ANNUAL_LEAVE_YEAR2 FileMan Field Label: 'RETENTION ALLOWANCE' FileMan Field Number: '608.1' The dollar amount paid to an employee with unusually high qualifications or special skills in those cases where an employee would be likely to leave if no allowance were paid. %Library.Numeric 674 RETENTION_ALLOWANCE FileMan Field Label: 'RETENTION ALLOWANCE PCT' FileMan Field Number: '608' The percentage of salary paid to an employee with unusually high qualifications or skills in those cases where an employee would be likely to leave if no allowance were paid. %Library.Numeric 673 RETENTION_ALLOWANCE_PCT FileMan Field Label: 'RETIRED MILITARY' FileMan Field Number: '64' Identifies an employee who is a retired member of a military service. Also indicates whether the employee's retirement pay is subject to reduction. %Library.String 68 RETIRED_MILITARY FileMan Field Label: 'RETIREMENT/FICA CODE CHANGE' FileMan Field Number: '115.15' Followup Code RR date. %Library.FilemanDate 142 RETIREMENTFICA_CODE_CHANGE FileMan Field Label: 'RETIREMENT ANN SURV ELIG CODE' FileMan Field Number: '75' Code indicates that a deceased employee has survivors eligible to receive retirement annuity payments. %Library.String 78 RETIREMENT_ANN_SURV_ELIG_CODE FileMan Field Label: 'RETIREMENT CODE' FileMan Field Number: '26' Identifies the retirement system and type of retirement that covers an employee. %Library.String 30 RETIREMENT_CODE FileMan Field Label: 'RETIREMENT DED CPPD' FileMan Field Number: '337' The amount deducted from an employee's earnings for retirement in the last pay period processed. %Library.Numeric 391 RETIREMENT_DED_CPPD FileMan Field Label: 'RETIREMENT VA SHARE CPPD' FileMan Field Number: '338' The amount the goverment contributed for retirement in the last pay period processed. %Library.Numeric 392 RETIREMENT_VA_SHARE_CPPD FileMan Field Label: 'RET MIL/DUAL COMP WAIVER' FileMan Field Number: '141' Indicates whether or not a physician or dentist who is a retired member of the uniformed service has obtained a waiver of the dual compensation provisions as stated in the Federal Personnel Manual, CH 550. %Library.String 191 RET_MILDUAL_COMP_WAIVER FileMan Field Label: 'SALARY' FileMan Field Number: '28' Rate of compensation which is payable to an employee. The rate is used in computing salary payments. The rate does not include night differential or other premium pay. %Library.Numeric 32 SALARY FileMan Field Label: 'SALARY DATE' FileMan Field Number: '27' The salary date indicates the beginning of the employee's waiting period for the next within-grade increase. %Library.FilemanDate 31 SALARY_DATE FileMan Field Label: 'SATURDAY AMT CPPD' FileMan Field Number: '558' The amount paid for Saturday premium work hours, paid to a nurse or a physician assistant or extended function dental auxiliary. This amount is for the last pay period processed. %Library.Numeric 618 SATURDAY_AMT_CPPD FileMan Field Label: 'SAVINGS ALLOTMENT-1 AMT CPPD' FileMan Field Number: '340' The amount deducted from earnings that an employee has authorized for deposit to a checking or savings account at a financial institution in the last pay period processed. This field pertains to the first savings allotment deduction. %Library.Numeric 394 SAVINGS_ALLOTMENT1_AMT_CPPD FileMan Field Label: 'SAVINGS ALLOTMENT-1 AMT EPPD' FileMan Field Number: '339' The amount deducted from earnings that an employee has authorized for deposit to a checking or savings account at a financial organization. %Library.Numeric 393 SAVINGS_ALLOTMENT1_AMT_EPPD FileMan Field Label: 'SAVINGS ALLOTMENT-2 AMT CPPD' FileMan Field Number: '342' The amount deducted from earnings that an employee has authorized for deposit to a checking or savings account at a financial institution in the last pay period processed. This field pertains to the second savings allotment deduction. %Library.Numeric 396 SAVINGS_ALLOTMENT2_AMT_CPPD FileMan Field Label: 'SAVINGS ALLOTMENT-2 AMT EPPD' FileMan Field Number: '341' The amount deducted from earnings that an employee has authorized for deposit to a checking or savings account at a financial institution. An employee may have other savings allotments with the same or other financial institution. This field is used when an employee has more than one allotment. %Library.Numeric 395 SAVINGS_ALLOTMENT2_AMT_EPPD FileMan Field Label: 'SAVINGS BOND-1 ADD LINE-1' FileMan Field Number: '344' The first line of the address, selected by the employee, to which the first bond is mailed. %Library.String 398 SAVINGS_BOND1_ADD_LINE1 FileMan Field Label: 'SAVINGS BOND-1 ADD LINE-2' FileMan Field Number: '345' The second line of the address, selected by the employee, to which the first bond is mailed. %Library.String 399 SAVINGS_BOND1_ADD_LINE2 FileMan Field Label: 'SAVINGS BOND-1 ADD LINE-3' FileMan Field Number: '346' The third line of the address, selected by the employee, to which the first bond is mailed. %Library.String 400 SAVINGS_BOND1_ADD_LINE3 FileMan Field Label: 'SAVINGS BOND-1 BALANCE' FileMan Field Number: '347' The accumulated amount deducted toward the purchase price of the first bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated in future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. %Library.Numeric 401 SAVINGS_BOND1_BALANCE FileMan Field Label: 'SAVINGS BOND-1 BENE CODE' FileMan Field Number: '348' Code indicates whether or not an employee has selected a beneficiary or co-owner for a bond purchased through the payroll deduction plan. This field pertains to the first bond allotment. %Library.String 402 SAVINGS_BOND1_BENE_CODE FileMan Field Label: 'SAVINGS BOND-1 CO-OWNER' FileMan Field Number: '349' The name of the designated beneficiary/co-owner of the first bond. A beneficiary or co-owner must be a person. %Library.String 403 SAVINGS_BOND1_COOWNER FileMan Field Label: 'SAVINGS BOND-1 CO-OWNER SSN' FileMan Field Number: '350' The social security number of the beneficiary or co-owner designated by the employee. This field pertains to the first bond allotment. %Library.String 404 SAVINGS_BOND1_COOWNER_SSN FileMan Field Label: 'SAVINGS BOND-1 DED BALANCE' FileMan Field Number: '351' The balance is the accumulated amount deducted toward the purchase price of the bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated into future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. This field pertains to the first bond allotment. %Library.Numeric 405 SAVINGS_BOND1_DED_BALANCE FileMan Field Label: 'SAVINGS BOND-1 DED EPPD' FileMan Field Number: '352' The amount the employee has authorized to be deducted each pay period for the purchase of a U.S. savings bond. This field pertains to the first savings bond allotment. %Library.Numeric 406 SAVINGS_BOND1_DED_EPPD FileMan Field Label: 'SAVINGS BOND-1 DENOMINATION' FileMan Field Number: '353' Code indicates the face value of the U.S. savings bond being purchased through the payroll deduction plan. An employee may purchase more than one bond at a time. This field represents the first bond. %Library.String 407 SAVINGS_BOND1_DENOMINATION FileMan Field Label: 'SAVINGS BOND-1 EFFECTIVE DATE' FileMan Field Number: '354' Denotes the date when the first bond allotment deductions have reached one-half of the purchase price of the bond. The effective date determines the bond's maturity and when interest begins to accrue. %Library.FilemanDate 408 SAVINGS_BOND1_EFFECTIVE_DATE FileMan Field Label: 'SAVINGS BOND-1 OWNER' FileMan Field Number: '355' The name of the designated owner of the U.S. savings bond purchased by an employee through the payroll deduction plan. The owner may be the employee, another individual, a public or private organization or a fiduciary. This field pertains to the first bond. %Library.String 409 SAVINGS_BOND1_OWNER FileMan Field Label: 'SAVINGS BOND-1 OWNER SSN' FileMan Field Number: '356' The social security number of the designated owner of a U.S. savings bond purchased by an employee through the payroll deduction plan. If the owner is not a person, an employer identification number must be shown. This field reflects the owner's social security number for the first bond. %Library.String 410 SAVINGS_BOND1_OWNER_SSN FileMan Field Label: 'SAVINGS BOND-1 TYPE' FileMan Field Number: '718' The one character string that identifies the type of the first bond. %Library.String 717 SAVINGS_BOND1_TYPE FileMan Field Label: 'SAVINGS BOND-1 ZIP CODE' FileMan Field Number: '357' The zip code of the address, selected by the employee, to which the first bond is mailed. %Library.String 411 SAVINGS_BOND1_ZIP_CODE FileMan Field Label: 'SAVINGS BOND-2 ADD LINE-1' FileMan Field Number: '358' The first line of the address, selected by the employee, to which the second bond is mailed. %Library.String 412 SAVINGS_BOND2_ADD_LINE1 FileMan Field Label: 'SAVINGS BOND-2 ADD LINE-2' FileMan Field Number: '359' The second line of the address, selected by the employee, to which the second bond is mailed. %Library.String 413 SAVINGS_BOND2_ADD_LINE2 FileMan Field Label: 'SAVINGS BOND-2 ADD LINE-3' FileMan Field Number: '360' The third line of the address, selected by the employee, to which the second bond is mailed. %Library.String 414 SAVINGS_BOND2_ADD_LINE3 FileMan Field Label: 'SAVINGS BOND-2 BALANCE' FileMan Field Number: '361' The accumulated amount deducted toward the purchase price of the second bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated in future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. %Library.Numeric 415 SAVINGS_BOND2_BALANCE FileMan Field Label: 'SAVINGS BOND-2 BENE CODE' FileMan Field Number: '362' Code indicates whether or not an employee has selected a beneficiary or co-owner for a bond purchased through the payroll deduction plan. This field pertains to the second bond allotment. %Library.String 416 SAVINGS_BOND2_BENE_CODE FileMan Field Label: 'SAVINGS BOND-2 CO-OWNER' FileMan Field Number: '363' The name of the designated beneficiary/co-owner of the second bond. A beneficiary or co-owner must be a person. %Library.String 417 SAVINGS_BOND2_COOWNER FileMan Field Label: 'SAVINGS BOND-2 CO-OWNER SSN' FileMan Field Number: '364' The social security number of the beneficiary or co-owner designated by the employee. This field pertains to the second bond allotment. %Library.String 418 SAVINGS_BOND2_COOWNER_SSN FileMan Field Label: 'SAVINGS BOND-2 DED BALANCE' FileMan Field Number: '365' The balance is the accumulated amount deducted toward the purchase price of the bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated into future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. This field pertains to the second bond allotment. %Library.Numeric 419 SAVINGS_BOND2_DED_BALANCE FileMan Field Label: 'SAVINGS BOND-2 DED EPPD' FileMan Field Number: '366' The amount the employee has authorized to be deducted each pay period for the purchase of a U.S. savings bond. This field pertains to the second savings bond allotment. %Library.Numeric 420 SAVINGS_BOND2_DED_EPPD FileMan Field Label: 'SAVINGS BOND-2 DENOMINATION' FileMan Field Number: '367' Code indicates the face value of the U.S. savings bond being purchased through the payroll deduction plan. An employee may purchase more than one bond at a time. This field represents the second bond. %Library.String 421 SAVINGS_BOND2_DENOMINATION FileMan Field Label: 'SAVINGS BOND-2 EFFECTIVE DATE' FileMan Field Number: '368' Denotes the date when the second bond allotment deductions have reached one-half of the purchase price of the bond. The effective date determines the bond's maturity and when interest begins to accrue. %Library.FilemanDate 422 SAVINGS_BOND2_EFFECTIVE_DATE FileMan Field Label: 'SAVINGS BOND-2 OWNER' FileMan Field Number: '369' The name of the designated owner of a U.S. savings bond purchased by an employee through the payroll deduction plan. The owner may be the employee, another individual, a public or private organization, or a fiduciary. This field pertains to the second bond. %Library.String 423 SAVINGS_BOND2_OWNER FileMan Field Label: 'SAVINGS BOND-2 OWNER SSN' FileMan Field Number: '370' The social security number of the designated owner of a U.S. savings bond purchased by an employee through the payroll deduction plan. If the owner is not a person, an employer identification number must be shown. This field reflects the owner's social security number for the second bond. %Library.String 424 SAVINGS_BOND2_OWNER_SSN FileMan Field Label: 'SAVINGS BOND-2 TYPE' FileMan Field Number: '719' The one character string that identifies the type of the second bond. %Library.String 718 SAVINGS_BOND2_TYPE FileMan Field Label: 'SAVINGS BOND-2 ZIP CODE' FileMan Field Number: '371' The zip code of the address, selected by the employee, to which the second bond is mailed. %Library.String 425 SAVINGS_BOND2_ZIP_CODE FileMan Field Label: 'SAVINGS BOND-3 ADD LINE-1' FileMan Field Number: '720' The first line of the address, selected by the employee, to which the third bond is mailed. %Library.String 719 SAVINGS_BOND3_ADD_LINE1 FileMan Field Label: 'SAVINGS BOND-3 ADD LINE-2' FileMan Field Number: '721' The second line of the address, selected by the employee, to which the third bond is mailed. %Library.String 720 SAVINGS_BOND3_ADD_LINE2 FileMan Field Label: 'SAVINGS BOND-3 ADD LINE-3' FileMan Field Number: '722' The third line of the address, selected by the employee, to which the third bond is mailed. %Library.String 721 SAVINGS_BOND3_ADD_LINE3 FileMan Field Label: 'SAVINGS BOND-3 BALANCE' FileMan Field Number: '723' The accumulated amount deducted toward the purchase price of the third bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated in future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. %Library.Numeric 722 SAVINGS_BOND3_BALANCE FileMan Field Label: 'SAVINGS BOND-3 BENE CODE' FileMan Field Number: '724' Code indicates whether or not an employee has selected a beneficiary or co-owner for a bond purchased through the payroll deduction plan. This field pertains to the third bond allotment. %Library.String 723 SAVINGS_BOND3_BENE_CODE FileMan Field Label: 'SAVINGS BOND-3 CO-OWNER' FileMan Field Number: '725' The name of the designated beneficiary/co-owner of the third bond. A beneficiary or co-owner must be a person. %Library.String 724 SAVINGS_BOND3_COOWNER FileMan Field Label: 'SAVINGS BOND-3 CO-OWNER SSN' FileMan Field Number: '726' The social security number of the beneficiary or co-owner designated by the employee. This field pertains to the third bond allotment. %Library.String 725 SAVINGS_BOND3_COOWNER_SSN FileMan Field Label: 'SAVINGS BOND-3 DED BALANCE' FileMan Field Number: '727' The balance is the accumulated amount deducted toward the purchase price of the bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated into future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. This field pertains to the third bond allotment. %Library.Numeric 726 SAVINGS_BOND3_DED_BALANCE FileMan Field Label: 'SAVINGS BOND-3 DED EPPD' FileMan Field Number: '728' The amount the employee has authorized to be deducted each pay period for the purchase of a U.S. savings bond. This field pertains to the third savings bond allotment. %Library.Numeric 727 SAVINGS_BOND3_DED_EPPD FileMan Field Label: 'SAVINGS BOND-3 DENOMINATION' FileMan Field Number: '729' Code indicates the face value of the U.S. savings bond being purchased through the payroll deduction plan. An employee may purchase more than one bond at a time. This field represents the third bond. %Library.String 728 SAVINGS_BOND3_DENOMINATION FileMan Field Label: 'SAVINGS BOND-3 EFFECTIVE DATE' FileMan Field Number: '730' Denotes the date when the third bond allotment deductions have reached one-half of the purchase price of the bond. The effective date determines the bond's maturity and when interest begins to accrue. %Library.FilemanDate 729 SAVINGS_BOND3_EFFECTIVE_DATE FileMan Field Label: 'SAVINGS BOND-3 OWNER' FileMan Field Number: '731' The name of the designated owner of a U.S. savings bond purchased by an employee through the payroll deduction plan. The owner may be the employee, another individual, a public or private organization, or a fiduciary. This field pertains to the third bond. %Library.String 730 SAVINGS_BOND3_OWNER FileMan Field Label: 'SAVINGS BOND-3 OWNER SSN' FileMan Field Number: '732' The social security number of the designated owner of a U.S. savings bond purchased by an employee through the payroll deduction plan. If the owner is not a person, an employer identification number must be shown. This field reflects the owner's social security number for the third bond. %Library.String 731 SAVINGS_BOND3_OWNER_SSN FileMan Field Label: 'SAVINGS BOND-3 TYPE' FileMan Field Number: '734' The one character string that identifies the type of the third bond. %Library.String 733 SAVINGS_BOND3_TYPE FileMan Field Label: 'SAVINGS BOND-3 ZIP CODE' FileMan Field Number: '733' The zip code of the address, selected by the employee, to which the third bond is mailed. %Library.String 732 SAVINGS_BOND3_ZIP_CODE FileMan Field Label: 'SAVINGS BOND-4 ADD LINE-1' FileMan Field Number: '735' The first line of the address, selected by the employee, to which the fourth bond is mailed. %Library.String 734 SAVINGS_BOND4_ADD_LINE1 FileMan Field Label: 'SAVINGS BOND-4 ADD LINE-2' FileMan Field Number: '736' The second line of the address, selected by the employee, to which the fourth bond is mailed. %Library.String 735 SAVINGS_BOND4_ADD_LINE2 FileMan Field Label: 'SAVINGS BOND-4 ADD LINE-3' FileMan Field Number: '737' The third line of the address, selected by the employee, to which the fourth bond is mailed. %Library.String 736 SAVINGS_BOND4_ADD_LINE3 FileMan Field Label: 'SAVINGS BOND-4 BALANCE' FileMan Field Number: '738' The accumulated amount deducted toward the purchase price of the fourth bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated in future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. %Library.Numeric 737 SAVINGS_BOND4_BALANCE FileMan Field Label: 'SAVINGS BOND-4 BENE CODE' FileMan Field Number: '739' Code indicates whether or not an employee has selected a beneficiary or co-owner for a bond purchased through the payroll deduction plan. This field pertains to the fourth bond allotment. %Library.String 738 SAVINGS_BOND4_BENE_CODE FileMan Field Label: 'SAVINGS BOND-4 CO-OWNER' FileMan Field Number: '740' The name of the designated beneficiary/co-owner of the fourth bond. A beneficiary or co-owner must be a person. %Library.String 739 SAVINGS_BOND4_COOWNER FileMan Field Label: 'SAVINGS BOND-4 CO-OWNER SSN' FileMan Field Number: '741' The social security number of the beneficiary or co-owner designated by the employee. This field pertains to the fourth bond allotment. %Library.String 740 SAVINGS_BOND4_COOWNER_SSN FileMan Field Label: 'SAVINGS BOND-4 DED BALANCE' FileMan Field Number: '742' The balance is the accumulated amount deducted toward the purchase price of the bond, as of the current pay period. Each time the purchase price is reached, a bond is issued and the balance adjusted. Remaining balances are incorporated into future bond purchases. The balance is refunded if the bond is canceled or the employee separates from the agency. This field pertains to the fourth bond allotment. %Library.Numeric 741 SAVINGS_BOND4_DED_BALANCE FileMan Field Label: 'SAVINGS BOND-4 DED EPPD' FileMan Field Number: '743' The amount the employee has authorized to be deducted each pay period for the purchase of a U.S. savings bond. This field pertains to the fourth savings bond allotment. %Library.Numeric 742 SAVINGS_BOND4_DED_EPPD FileMan Field Label: 'SAVINGS BOND-4 DENOMINATION' FileMan Field Number: '744' Code indicates the face value of the U.S. savings bond being purchased through the payroll deduction plan. An employee may purchase more than one bond at a time. This field represents the fourth bond. %Library.String 743 SAVINGS_BOND4_DENOMINATION FileMan Field Label: 'SAVINGS BOND-4 EFFECTIVE DATE' FileMan Field Number: '745' Denotes the date when the fourth bond allotment deductions have reached one-half of the purchase price of the bond. The effective date determines the bond's maturity and when interest begins to accrue. %Library.FilemanDate 744 SAVINGS_BOND4_EFFECTIVE_DATE FileMan Field Label: 'SAVINGS BOND-4 OWNER' FileMan Field Number: '746' The name of the designated owner of a U.S. savings bond purchased by an employee through the payroll deduction plan. The owner may be the employee, another individual, a public or private organization, or a fiduciary. This field pertains to the fourth bond. %Library.String 745 SAVINGS_BOND4_OWNER FileMan Field Label: 'SAVINGS BOND-4 OWNER SSN' FileMan Field Number: '747' The social security number of the designated owner of a U.S. savings bond purchased by an employee through the payroll deduction plan. If the owner is not a person, an employer identification number must be shown. This field reflects the owner's social security number for the fourth bond. %Library.String 746 SAVINGS_BOND4_OWNER_SSN FileMan Field Label: 'SAVINGS BOND-4 TYPE' FileMan Field Number: '749' The one character string that identifies the type of the fourth bond. %Library.String 748 SAVINGS_BOND4_TYPE FileMan Field Label: 'SAVINGS BOND-4 ZIP CODE' FileMan Field Number: '748' The zip code of the address, selected by the employee, to which the fourth bond is mailed. %Library.String 747 SAVINGS_BOND4_ZIP_CODE FileMan Field Label: 'SAVINGS BOND DED SUM CPPD' FileMan Field Number: '343' The total of amounts deducted from an employee's earnings in the current pay period for purchases of U.S. Savings Bonds. The amount may include deductions for one or both bonds. %Library.Numeric 397 SAVINGS_BOND_DED_SUM_CPPD FileMan Field Label: 'SCARCE SPECIALTY PAY' FileMan Field Number: '704' A discretionary component of Title 38 special pay that may by authorized for a physician or dentist with a scarce medical or dental specialty. %Library.Numeric 703 SCARCE_SPECIALTY_PAY FileMan Field Label: 'SCHEDULED SALARY RATE' FileMan Field Number: '29' The rate of compensation shown on the salary schedule for an employee's grade which the employee would receive if there was no legislative cap on the amount which can be paid. %Library.Numeric 33 SCHEDULED_SALARY_RATE FileMan Field Label: 'SCHEDULE NUMBER' FileMan Field Number: '605' Identifies the locality pay system (LPS) schedule for title 38 nurses at a station. %Library.String 668 SCHEDULE_NUMBER FileMan Field Label: 'SEPARATION IND' FileMan Field Number: '80' Identifies a separated employee. Separated employees have a value of Y. Current employees have a value of N. %Library.String 83 SEPARATION_IND FileMan Field Label: 'SERVICE COMPUTATION DATE' FileMan Field Number: '30' Service Computation Date (SCD) is the date computed based on the employee's prior Federal civilian and military service which is used to determine benefits which are based on how long the person has been in the Federal service. %Library.FilemanDate 34 SERVICE_COMPUTATION_DATE FileMan Field Label: 'SES APPT PROBATION PERIOD IND' FileMan Field Number: '81' Code indicates that an appointment is subject to a probationary period under Senior Executive Service before it is considered permanent. %Library.String 84 SES_APPT_PROBATION_PERIOD_IND FileMan Field Label: 'SES PERFORMANCE AWARD AMT CPPD' FileMan Field Number: '589' The amount of an award granted to a Senior Executive Service employee for work performance, paid in the current pay period processed. %Library.Numeric 652 SES_PERFORMANCE_AWARD_AMT_CPPD FileMan Field Label: 'SES PROBATIONARY PERIOD' FileMan Field Number: '101' SES Probationary Period date. %Library.FilemanDate 112 SES_PROBATIONARY_PERIOD FileMan Field Label: 'SEVERANCE PAY AMT CPPD' FileMan Field Number: '457' The amount of severance pay for an employee whose separation from federal employment is due to certain involuntary conditions. This amount is recorded in the last pay period processed after the employee's separation. %Library.Numeric 515 SEVERANCE_PAY_AMT_CPPD FileMan Field Label: 'SEX' FileMan Field Number: '31' Indicates whether an individual is male or female. %Library.String 35 SEX FileMan Field Label: 'SPECIALIZED SKILLS IND' FileMan Field Number: '601' Indicator which identifies employees appointed at or advanced to a higher step based on appointment or assignment to a position requiring specialized skills. %Library.String 664 SPECIALIZED_SKILLS_IND FileMan Field Label: 'SPECIALTY TRAINED' FileMan Field Number: '151' Indicates that a physician or dentist is considered specialty trained in one of the scarce medical or dental specialties for which incentive special pay is applicable. %Library.String 201 SPECIALTY_TRAINED FileMan Field Label: 'SPECIAL CALC INDICATOR' FileMan Field Number: '149' Indicates that the station Personnel Office is responsible for manual special pay calculation and maintenance of changes in special pay. %Library.String 199 SPECIAL_CALC_INDICATOR FileMan Field Label: 'SPECIAL PAY AGREEMENT DATE' FileMan Field Number: '143' Date that a title 38 physician or dentist signed an agreement for special pay. The date is also the effective date of employee's special pay. %Library.FilemanDate 193 SPECIAL_PAY_AGREEMENT_DATE FileMan Field Label: 'SPECIAL PAY AGREEMENT LENGTH' FileMan Field Number: '144' Indicates the number of years that a title 38 physician or dentist will receive special pay under a special pay agreement. %Library.String 194 SPECIAL_PAY_AGREEMENT_LENGTH FileMan Field Label: 'SPECIAL PAY AGREEMENT QUAL APT' FileMan Field Number: '145' Identifies the qualification factor which was used in determining the amount of special pay. %Library.String 195 SPECIAL_PAY_AGREEMENT_QUAL_APT FileMan Field Label: 'SPECIAL PAY AGREEMENT QUAL CUR' FileMan Field Number: '146' Identifies the qualification factor which was used in determining the amount of special pay. who receives special pay. %Library.String 196 SPECIAL_PAY_AGREEMENT_QUAL_CUR FileMan Field Label: 'SPECIAL PAY ANNUAL AMT' FileMan Field Number: '142' The amount of additional compensation for physicians and dentists. %Library.Numeric 192 SPECIAL_PAY_ANNUAL_AMT FileMan Field Label: 'SPECIAL PAY RATE DIFFERENCE' FileMan Field Number: '82' The dollar and cents amount the employee receives as special pay. %Library.Numeric 85 SPECIAL_PAY_RATE_DIFFERENCE FileMan Field Label: 'SPECIAL PAY RET DED' FileMan Field Number: '147' Indicates whether or not title 38 physicians and dentists special pay is base pay for retirement and TSP deductions. %Library.String 197 SPECIAL_PAY_RET_DED FileMan Field Label: 'SPECIAL PROGRAM' FileMan Field Number: '177' This element is a code which indicates when an employee has completed either the VA Health Professional Scholarship Program or the VA Masters Education in Nursing Administration Program. %Library.String 227 SPECIAL_PROGRAM FileMan Field Label: 'SPECIAL SALARY ADJUSTMENT' FileMan Field Number: '150' The actual amount to be added to an employee's salary when he/she is in a position which receives additional compensation. %Library.Numeric 200 SPECIAL_SALARY_ADJUSTMENT FileMan Field Label: 'SPEC ADVANCEMENT FOR PERF IND' FileMan Field Number: '148' Code indicates that advance notice has been produced for a Title 38 physician or dentist eligible to be considered for special advancement for performance. %Library.String 198 SPEC_ADVANCEMENT_FOR_PERF_IND FileMan Field Label: 'SSN' FileMan Field Number: '8' The number used for identification and control purposes to refer to an employee. %Library.String 1 11 SSN FileMan Field Label: 'SSN SUFFIX' FileMan Field Number: '35' Is used to identify an employee fitting one of the following conditions: dual appointment (2 master records); dual appropriation (1 master record, two different jobs); corporate employer identification number (EIN). This field is currently inactive. %Library.String 39 SSN_SUFFIX FileMan Field Label: 'STAFFING DIFFERENTIAL' FileMan Field Number: '606.1' The annual total dollar amount paid over and above the basic salary. %Library.Numeric 670 STAFFING_DIFFERENTIAL FileMan Field Label: 'STAFFING DIFFERENTIAL PCT' FileMan Field Number: '606' The percentage of salary paid to an employee as premium pay for a staff position that is difficult to fill. %Library.Numeric 669 STAFFING_DIFFERENTIAL_PCT FileMan Field Label: 'STANDBY AMT CPPD' FileMan Field Number: '559' The amount paid to an employee for hours spent in a standby status in the current pay period processed. This applies only to a General Schedule employee whose occupation requires standby duty, such as a fire fighter. %Library.Numeric 619 STANDBY_AMT_CPPD FileMan Field Label: 'STATE OF EMPLOYMENT PREAPPT' FileMan Field Number: '153' Identifies the state or territory where a title 38 physician or dentist was employed immediately prior to coming on VA rolls. %Library.String 203 STATE_OF_EMPLOYMENT_PREAPPT FileMan Field Label: 'STATE OF LICENSURE' FileMan Field Number: '152' Identifies the state or territory where a title 38 physician or dentist is licensed to practice. %Library.String 202 STATE_OF_LICENSURE FileMan Field Label: 'STATE TAX-1 ADDNL AMT WITHHELD' FileMan Field Number: '373' The amount of additional primary state income tax that an employee has authorized to be withheld from earnings each pay period. %Library.Numeric 427 STATE_TAX1_ADDNL_AMT_WITHHELD FileMan Field Label: 'STATE TAX-1 AMT WITHHELD CPPD' FileMan Field Number: '376' The amount of primary state income tax withheld from an employee's gross earnings in the current pay period. This amount may include any additional primary state income tax withholding that is authorized by the employee. %Library.Numeric 430 STATE_TAX1_AMT_WITHHELD_CPPD FileMan Field Label: 'STATE TAX-1 AMT WITHHELD CTPTD' FileMan Field Number: '374' The accumulated amount withheld from an employee's earnings for primary state income tax in the current tax period to date. Tax periods are determined by the employee's primary state as biweekly, monthly or quarterly. %Library.Numeric 428 STATE_TAX1_AMT_WITHHELD_CTPTD FileMan Field Label: 'STATE TAX-1 AMT WITHHELD YTD' FileMan Field Number: '375' The accumulated amount of primary state income tax withheld from an employee's earnings for the current tax year to date. This amount includes any additional withholding and the withholding based on claimed allowances. %Library.Numeric 429 STATE_TAX1_AMT_WITHHELD_YTD FileMan Field Label: 'STATE TAX-1 EXEMPTION CODE-1' FileMan Field Number: '377' The code can represent the number of exemptions; and/or any special factors that affect the computation of tax withholdings from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's primary state. %Library.Numeric 431 STATE_TAX1_EXEMPTION_CODE1 FileMan Field Label: 'STATE TAX-1 EXEMPTION CODE-2' FileMan Field Number: '378' The code can represent the number of exemptions; and/or any special factors that affect the computation of tax withholdings from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's primary state. %Library.Numeric 432 STATE_TAX1_EXEMPTION_CODE2 FileMan Field Label: 'STATE TAX-1 GROSS PAY CTPTD' FileMan Field Number: '379' The accumulated amount of an employee's gross earnings that are subject to primary state income tax in the current tax period to date. Periods are determined by the employee's primary state as biweekly, monthly or quarterly. %Library.Numeric 433 STATE_TAX1_GROSS_PAY_CTPTD FileMan Field Label: 'STATE TAX-1 GROSS PAY YTD' FileMan Field Number: '380' The accumulated amount of an employee's gross earnings that are subject to income tax in the primary state for the current tax year to date. %Library.Numeric 434 STATE_TAX1_GROSS_PAY_YTD FileMan Field Label: 'STATE TAX-1 GSA CODE' FileMan Field Number: '381' Code identifies the primary state that an employee has authorized for income tax withholding. State codes are assigned by the GSA. %Library.String 435 STATE_TAX1_GSA_CODE FileMan Field Label: 'STATE TAX-1 MARITAL STATUS' FileMan Field Number: '382' The code represents an employee's marital status for those primary states which compute income taxes based on whether the employee is married or single. %Library.String 436 STATE_TAX1_MARITAL_STATUS FileMan Field Label: 'STATE TAX-1 RESIDENCE STATE' FileMan Field Number: '383' Code identifies where an employee lives to the primary state taxing authority. The primary state taxing authority is the state in which the employee works. %Library.String 437 STATE_TAX1_RESIDENCE_STATE FileMan Field Label: 'STATE TAX-2 ADDNL AMT WITHHELD' FileMan Field Number: '384' The amount of additional secondary state income tax that an employee has authorized to be withheld from earnings each pay period. %Library.Numeric 438 STATE_TAX2_ADDNL_AMT_WITHHELD FileMan Field Label: 'STATE TAX-2 AMT WITHHELD CPPD' FileMan Field Number: '387' The amount of secondary state income tax withheld from an employee's gross earnings in the last pay period processed. This applies when an employee works in one state and resides in another, and the two states have not agreed to reciprocity. %Library.Numeric 441 STATE_TAX2_AMT_WITHHELD_CPPD FileMan Field Label: 'STATE TAX-2 AMT WITHHELD CTPTD' FileMan Field Number: '385' The accumulated amount withheld from an employee's earnings for secondary state income tax in the current tax period to date. Tax periods are determined by the employee's secondary state as biweekly, monthly or quarterly. %Library.Numeric 439 STATE_TAX2_AMT_WITHHELD_CTPTD FileMan Field Label: 'STATE TAX-2 AMT WITHHELD YTD' FileMan Field Number: '386' The accumulated amount of secondary state income tax withheld from an employee's earnings for the current tax year to date. This amount includes any additional withholding and the withholding based on claimed allowances. %Library.Numeric 440 STATE_TAX2_AMT_WITHHELD_YTD FileMan Field Label: 'STATE TAX-2 EXEMPTION CODE-1' FileMan Field Number: '388' Code can represent the number of exemptions; and/or any special factors that affect the computation of tax withholdings from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's secondary state. %Library.Numeric 442 STATE_TAX2_EXEMPTION_CODE1 FileMan Field Label: 'STATE TAX-2 EXEMPTION CODE-2' FileMan Field Number: '389' Code represents the number of exemptions; and/or any special factors that affect the computation of tax withholdings from an employee's taxable earnings. The precise meaning of the code is determined by income tax regulations of an employee's secondary state. %Library.Numeric 443 STATE_TAX2_EXEMPTION_CODE2 FileMan Field Label: 'STATE TAX-2 GROSS PAY CTPTD' FileMan Field Number: '390' The accumulated amount of an employee's gross earnings that are subject to secondary state income tax in the current tax period to date. Tax periods are determined by the employee's secondary state as biweekly, monthly or quarterly. %Library.Numeric 444 STATE_TAX2_GROSS_PAY_CTPTD FileMan Field Label: 'STATE TAX-2 GROSS PAY YTD' FileMan Field Number: '391' The accumulated amount of an employee's gross earnings that are subject to income tax in the secondary state for the current tax year to date. %Library.Numeric 445 STATE_TAX2_GROSS_PAY_YTD FileMan Field Label: 'STATE TAX-2 GSA CODE' FileMan Field Number: '392' Code identifies the secondary state that an employee has authorized for income tax withholding. State codes are assigned by the GSA. %Library.String 446 STATE_TAX2_GSA_CODE FileMan Field Label: 'STATE TAX-2 MARITAL STATUS' FileMan Field Number: '393' Code represents an employee's marital status for those secondary states which compute income taxes based on whether the employee is married or single. %Library.String 447 STATE_TAX2_MARITAL_STATUS FileMan Field Label: 'STATE TAX-2 RESIDENCE STATE' FileMan Field Number: '394' Code identifies where an employee lives to the secondary state taxing authority. The primary state taxing authority is the state in which the employee works. %Library.String 448 STATE_TAX2_RESIDENCE_STATE FileMan Field Label: 'STATION EOD' FileMan Field Number: '2' Station entered-on-duty date. %Library.FilemanDate 5 STATION_EOD FileMan Field Label: 'STATION MAINTAINING OPF' FileMan Field Number: '36' Identifies the station number where an employee's official personnel folder is maintained. %Library.String 40 STATION_MAINTAINING_OPF FileMan Field Label: 'STATION NUMBER' FileMan Field Number: '6' The number assigned to a Department of Veterans Affairs (VA) Installation for identification and control purposes. %Library.String 9 STATION_NUMBER FileMan Field Label: 'STATUS CODE' FileMan Field Number: '179' A centralized physician or dentist's interest/noninterest in reassignment. %Library.String 229 STATUS_CODE FileMan Field Label: 'STEP' FileMan Field Number: '38' An indicator of a specific salary within a specific grade or level pay band. %Library.String 42 STEP FileMan Field Label: 'STEP RATE REVIEW' FileMan Field Number: '109' Step Rate Review date. %Library.FilemanDate 120 STEP_RATE_REVIEW FileMan Field Label: 'SUBACCT CODE' FileMan Field Number: '18' Identifies a type of cost expenditure such as one of the personal service codes, one of the travel and transportation codes, etc., used for cost accounting purposes. %Library.String 22 SUBACCT_CODE FileMan Field Label: 'SUBSISTANCE DEDUCTION CPPD' FileMan Field Number: '327' The amount authorized and collected this pay period from an employee's earnings for subsistance (meals) furnished by the station. %Library.Numeric 381 SUBSISTANCE_DEDUCTION_CPPD FileMan Field Label: 'SUBSISTANCE DEDUCTION EPPD' FileMan Field Number: '328' The amount authorized to be deducted from an employee's earnings each pay period for subsistence (meals) furnished by the station. %Library.Numeric 382 SUBSISTANCE_DEDUCTION_EPPD Relationship for Sub-File/Multiple to file name LABOR DISTRIBUTION child VALIP.prosthetic.fm2cw.SUBLABORDISTRIBUTION4500757 children PAIDEMPLOYEE450 1 SUB_LABOR_DISTRIBUTION_450_0757 Relationship for Sub-File/Multiple to file name MANDATORY CLASS child VALIP.prosthetic.fm2cw.SUBMANDATORYCLASS4500633 children PAIDEMPLOYEE450 1 SUB_MANDATORY_CLASS_450_0633 Relationship for Sub-File/Multiple to file name MI REVIEW GROUP child VALIP.prosthetic.fm2cw.SUBMIREVIEWGROUP4500632 children PAIDEMPLOYEE450 1 SUB_MI_REVIEW_GROUP_450_0632 Relationship for Sub-File/Multiple to file name USER PREFERENCES child VALIP.prosthetic.fm2cw.SUBUSERPREFERENCES45001 children PAIDEMPLOYEE450 1 SUB_USER_PREFERENCES_450_01 FileMan Field Label: 'SUNDAY AMT CPPD' FileMan Field Number: '560' The amount paid for Sunday premium work hours to an employee in the last pay period processed. %Library.Numeric 620 SUNDAY_AMT_CPPD FileMan Field Label: 'SUNDAY HRS CPPD' FileMan Field Number: '561' The number of hours an employee was paid for Sunday premium pay in the last pay period processed. %Library.Numeric 621 SUNDAY_HRS_CPPD FileMan Field Label: 'SUPERVISOR/LEAD IND' FileMan Field Number: '41' Code identifies the employee as a supervisor, work leader, general foreman, foreman or helper. %Library.String 45 SUPERVISORLEAD_IND FileMan Field Label: 'SUPERVISOR/MGR PROB PERIOD' FileMan Field Number: '102' Supervisor/Manager Probationary Period date. %Library.FilemanDate 113 SUPERVISORMGR_PROB_PERIOD FileMan Field Label: 'SUPERVISORY DIFFERENTIAL' FileMan Field Number: '607' The annual total dollar amount paid to a supervisor who supervises employees in other pay plans who receive a higher rate of total pay than does the supervisor. %Library.Numeric 671 SUPERVISORY_DIFFERENTIAL FileMan Field Label: 'SUPERVISORY DIFFERENTIAL CPPD' FileMan Field Number: '607.1' Supervisory Differential amount. %Library.Numeric 672 SUPERVISORY_DIFFERENTIAL_CPPD FileMan Field Label: 'SUPERVISORY LEVEL' FileMan Field Number: '39' Indicates if an employee holds a supervisory position and, if so, the level of supervision. %Library.String 43 SUPERVISORY_LEVEL FileMan Field Label: 'SUPV APPT PROBATION PERIOD IND' FileMan Field Number: '84' Code indicates that an appointment is subject to a probationary period for first time supervisors or managers before it is considered permanent. %Library.String 89 SUPV_APPT_PROBATION_PERIOD_IND FileMan Field Label: 'TAX GARNISHMENT-1' FileMan Field Number: '706' The first amount deducted for purposes of tax garnishment. %Library.Numeric 705 TAX_GARNISHMENT1 FileMan Field Label: 'TAX GARNISHMENT-2' FileMan Field Number: '707' The second amount deducted for purposes of tax garnishment. %Library.Numeric 706 TAX_GARNISHMENT2 FileMan Field Label: 'TAX GARNISHMENT-3' FileMan Field Number: '762' The third amount deducted for purposes of tax garnishment. %Library.Numeric 761 TAX_GARNISHMENT3 FileMan Field Label: 'TAX GARNISHMENT-4' FileMan Field Number: '763' The fourth amount deducted for purposes of tax garnishment. %Library.Numeric 762 TAX_GARNISHMENT4 FileMan Field Label: 'TELEWORK INDICATOR' FileMan Field Number: '634' This is a single character code that identifies the type of telework agreement the employee is eligible to work. %Library.String 698 TELEWORK_INDICATOR FileMan Field Label: 'TEMPORARY HEALTH BENEFITS ELIG' FileMan Field Number: '114' Temporary Employee Health Benefits Eligibility date. %Library.FilemanDate 125 TEMPORARY_HEALTH_BENEFITS_ELIG FileMan Field Label: 'TEMPORARY HEALTH INSURANCE IND' FileMan Field Number: '40' Code indicates that a temporary employee has elected health insurance and that deductions are to be taken for both the employee's share and the government's share of the premium. %Library.String 44 TEMPORARY_HEALTH_INSURANCE_IND FileMan Field Label: 'TOTAL SICK LEAVE BALANCE' FileMan Field Number: '510' SKLV BAL The number of hours or days of sick leave balance the employee has this leave year to date. %Library.Numeric 570 TOTAL_SICK_LEAVE_BALANCE FileMan Field Label: 'TOTAL SICK LEAVE CREDIT HOURS' FileMan Field Number: '509' The amount of sick leave credit hours this leave year to date. These are the number of hours a part-time employee was in a pay status and which have not been applied in the computation of accrued leave. %Library.Numeric 569 TOTAL_SICK_LEAVE_CREDIT_HOURS FileMan Field Label: 'TOTAL SICK LEAVE EARNED' FileMan Field Number: '511' The total number of sick leave days (to 2 decimal places) or hours which were earned by an employee during the current leave year. %Library.Numeric 571 TOTAL_SICK_LEAVE_EARNED FileMan Field Label: 'TOTAL SICK LEAVE EOPY BALANCE' FileMan Field Number: '512' The number of hours or days of sick leave that an employee has to his/her credit at the end of the prior leave year. %Library.Numeric 572 TOTAL_SICK_LEAVE_EOPY_BALANCE FileMan Field Label: 'TOTAL SICK LEAVE HRS USED CPPD' FileMan Field Number: '593' The amount of sick leave used, converted to hours, for the last pay period processed. %Library.Numeric 656 TOTAL_SICK_LEAVE_HRS_USED_CPPD FileMan Field Label: 'TOTAL SICK LEAVE USED CPPD' FileMan Field Number: '513' The number of hours or days used by an employee for sick leave in the last pay period processed. %Library.Numeric 573 TOTAL_SICK_LEAVE_USED_CPPD FileMan Field Label: 'TOTAL SICK LEAVE USED LYTD' FileMan Field Number: '514' The total number of hours or days of sick leave used by an employee during the leave year to date. %Library.Numeric 574 TOTAL_SICK_LEAVE_USED_LYTD FileMan Field Label: 'TRAINING PROGRAM' FileMan Field Number: '180' Code identifies the training program for which a nurse is interested in being considered within the next year. %Library.String 230 TRAINING_PROGRAM FileMan Field Label: 'TRAINING WK 1' FileMan Field Number: '626' Training hours for week-1. %Library.Numeric 692 TRAINING_WK_1 FileMan Field Label: 'TRAINING WK 2' FileMan Field Number: '627' Training hours for week-2. %Library.Numeric 693 TRAINING_WK_2 FileMan Field Label: 'TRAVEL HOURS WK 1' FileMan Field Number: '628' Travel hours for week-1. %Library.Numeric 694 TRAVEL_HOURS_WK_1 FileMan Field Label: 'TRAVEL HOURS WK 2' FileMan Field Number: '629' Travel hours for week-2. %Library.Numeric 695 TRAVEL_HOURS_WK_2 FileMan Field Label: 'TRAVEL OVERTIME WK 1' FileMan Field Number: '630' Travel overtime hours for week-1. %Library.Numeric 696 TRAVEL_OVERTIME_WK_1 FileMan Field Label: 'TRAVEL OVERTIME WK 2' FileMan Field Number: '631' Travel overtime hours for week-2. %Library.Numeric 697 TRAVEL_OVERTIME_WK_2 FileMan Field Label: 'TRAVEL SAVINGS AWARD' FileMan Field Number: '587.2' The amount of the Travel Savings Award paid to an employee in the last pay period processed. This award is granted under the Incentive Award Program. %Library.Numeric 650 TRAVEL_SAVINGS_AWARD FileMan Field Label: 'TSP 1-PCT GOV CONTRIB YTD' FileMan Field Number: '395' Eligible Federal Employee Retirement Systems employees automatically receive a Thrift Savings Plan basic government contribution of 1% of their base pay. They receive the contribution even if they do not make employee contributions to the Thrift Savings Plan. This is the actual amount contributed this tax year to date. %Library.Numeric 449 TSP_1PCT_GOV_CONTRIB_YTD FileMan Field Label: 'TSP AMT EPPD' FileMan Field Number: '396' The exact dollar amount designated by an employee to be deducted from pay for the Thrift Savings Plan. The dollar amount cannot exceed 10% of basic pay for Federal Employee Retirement System employees and 5% for Civil Service Retirement System employees. %Library.Numeric 450 TSP_AMT_EPPD FileMan Field Label: 'TSP BASE PAY AMT YTD' FileMan Field Number: '397' The accumulated total of base pay this tax year to date that Thrift Savings Plan contributions were computed on. %Library.Numeric 451 TSP_BASE_PAY_AMT_YTD FileMan Field Label: 'TSP CSF DIST PCT' FileMan Field Number: '414' The percentage of the Thrift Savings Plan deductions that an employee has designated to go into the Common Stock Fund. %Library.Numeric 468 TSP_CSF_DIST_PCT FileMan Field Label: 'TSP CSF EMP DED CPPD' FileMan Field Number: '413' The amount deducted from an employee's earnings and contributed to the Thrift Savings Plan Common Stock Fund in the last pay period processed. %Library.Numeric 467 TSP_CSF_EMP_DED_CPPD FileMan Field Label: 'TSP CSF GOV BASIC CONTRIB' FileMan Field Number: '415' The dollar amount of the percentage of the agency basic contribution in the last pay period processed, which the employee has designated for the Common Stock Fund. %Library.Numeric 469 TSP_CSF_GOV_BASIC_CONTRIB FileMan Field Label: 'TSP CSF GOV CONTRIB DIST PCT' FileMan Field Number: '416' The percentage of the agency contribution a Federal Employee Retirement System employee has elected to have invested in the Common Stock Fund. %Library.Numeric 470 TSP_CSF_GOV_CONTRIB_DIST_PCT FileMan Field Label: 'TSP CSF GOV MATCH CONTRIB' FileMan Field Number: '417' The dollar amount of the percentage of the agency matching contribution in the last pay period processed, which the employee has designated for the Common Stock Fund. %Library.Numeric 471 TSP_CSF_GOV_MATCH_CONTRIB FileMan Field Label: 'TSP DED PRIOR APPT YTD' FileMan Field Number: '398' The accumulated Thrift Savings Plan deductions this tax year from a prior appointment. This field is used to assure that an over deduction for the Thrift Savings Plan in the current tax year does not occur. %Library.Numeric 452 TSP_DED_PRIOR_APPT_YTD FileMan Field Label: 'TSP ELIG' FileMan Field Number: '399' The open season date that an employee will be eligible to participate in the Thrift Savings Plan. %Library.FilemanDate 453 TSP_ELIG FileMan Field Label: 'TSP FIF DIST PCT' FileMan Field Number: '419' The percentage of the Thrift Savings Plan deductions that an employee has designated to go into the Fixed Income Fund. %Library.Numeric 473 TSP_FIF_DIST_PCT FileMan Field Label: 'TSP FIF EMP DED CPPD' FileMan Field Number: '418' The amount deducted from an employee's earnings and contributed to the Thrift Savings Plan Fixed Income Fund in the last pay period processed. %Library.Numeric 472 TSP_FIF_EMP_DED_CPPD FileMan Field Label: 'TSP FIF GOV BASIC CONTRIB' FileMan Field Number: '420' The dollar amount of the percentage of the agency basic contribution in the last pay period processed, which the employee has designated for the Fixed Income Fund. %Library.Numeric 474 TSP_FIF_GOV_BASIC_CONTRIB FileMan Field Label: 'TSP FIF GOV CONTRIB DIST PCT' FileMan Field Number: '421' The percentage of the agency contribution a Federal Employee Retirement System employee has elected to have invested in the Fixed Income Fund. %Library.Numeric 475 TSP_FIF_GOV_CONTRIB_DIST_PCT FileMan Field Label: 'TSP FIF GOV MATCH CONTRIB' FileMan Field Number: '422' The dollar amount of the percentage of the agency matching contribution in the last pay period processed, which the employee has designated for the Fixed Income Fund. %Library.Numeric 476 TSP_FIF_GOV_MATCH_CONTRIB FileMan Field Label: 'TSP GSF DIST PCT' FileMan Field Number: '424' The percentage of the Thrift Savings Plan deductions that an employee has designated to go into the Government Securities Fund. Retirement System employees prior to January, 1991, had 100% of their deduction go to this fund. As of January, 1991, they can allot a portion of their deduction to one or both of the other funds. %Library.Numeric 478 TSP_GSF_DIST_PCT FileMan Field Label: 'TSP GSF EMP DED CPPD' FileMan Field Number: '423' The amount deducted from an employee's earnings and contributed to the Thrift Savings Plan Government Securities Fund in the last pay period processed. %Library.Numeric 477 TSP_GSF_EMP_DED_CPPD FileMan Field Label: 'TSP GSF GOV BASIC CONTRIB' FileMan Field Number: '425' The dollar amount of the percentage of the agency basic contribution in the last pay period processed, which the employee has designated for the Government Securities Fund. %Library.Numeric 479 TSP_GSF_GOV_BASIC_CONTRIB FileMan Field Label: 'TSP GSF GOV CONTRIB DIST PCT' FileMan Field Number: '426' The percentage of the agency contribution a Federal Employee Retirement System employee has elected to have invested in the Government Securities Fund. %Library.Numeric 480 TSP_GSF_GOV_CONTRIB_DIST_PCT FileMan Field Label: 'TSP GSF GOV MATCH CONTRIB' FileMan Field Number: '427' The dollar amount of the percentage of the agency matching contribution in the last pay period processed, which the employee has designated for the Government Securities Fund. %Library.Numeric 481 TSP_GSF_GOV_MATCH_CONTRIB FileMan Field Label: 'TSP LOAN ACCOUNT NUMBER' FileMan Field Number: '400' The number assigned to a Thrift Savings Plan loan repayment agreement. This number is assigned by the Thrift Savings Board. %Library.String 454 TSP_LOAN_ACCOUNT_NUMBER FileMan Field Label: 'TSP LOAN DED CPPD' FileMan Field Number: '401' The amount withheld from an employee's earnings, at his/her request, to repay a Thrift Savings Plan loan. %Library.Numeric 455 TSP_LOAN_DED_CPPD FileMan Field Label: 'TSP LOAN DED EPPD' FileMan Field Number: '402' The actual amount to be withheld from an employee's pay to repay the amount borrowed from the Thrift Savings account. This amount will be predetermined by the Thrift Savings Board and withheld each pay period. %Library.Numeric 456 TSP_LOAN_DED_EPPD FileMan Field Label: 'TSP MASTER RECORD IND' FileMan Field Number: '403' Code indicates an employee has elected to participate in the Thrift Savings Program and is eligible for payroll deductions. %Library.String 457 TSP_MASTER_RECORD_IND FileMan Field Label: 'TSP PCT RATE' FileMan Field Number: '404' The percentage rate an employee has elected to be deducted from basic pay for the Thrift Savings Plan. Federal Employee Retirement Systems employees can have up to 10% of basic pay deducted. Civil Service Retirement System employees can have up to 5% of basic pay deducted. %Library.Numeric 458 TSP_PCT_RATE FileMan Field Label: 'TSP PRIOR TAX YEAR ADJ CODE' FileMan Field Number: '405' Code identifies those deductions/adjustments to the Thrift Savings Plan which are being processed this pay period, but which are applicable to a prior tax year. %Library.String 459 TSP_PRIOR_TAX_YEAR_ADJ_CODE FileMan Field Label: 'TSP SEPARATION CODE' FileMan Field Number: '407' The code will be "Y", employee will separate this pay period or "N", employee not separating this pay period. This code is for Thrift Savings Plan only and not to be used to determine an employment status. Other Values: "D" - Death; "R" - Retirement; "S" - Separation; "T" - Termination %Library.String 461 TSP_SEPARATION_CODE FileMan Field Label: 'TSP SEPARATION DATE' FileMan Field Number: '408' This is the date that pay will cease for an employee that is retiring, applying for disability retirement or has died. %Library.FilemanDate 462 TSP_SEPARATION_DATE FileMan Field Label: 'TSP SERVICE COMPU DATE' FileMan Field Number: '406' The Thrift Savings Plan Service Computation Date will determine when vesting occurs for the basic 1% government contribution. %Library.FilemanDate 460 TSP_SERVICE_COMPU_DATE FileMan Field Label: 'TSP STATUS' FileMan Field Number: '409' Identifies the employee's eligibility and/or election to participate in the Thrift Savings Plan. %Library.String 463 TSP_STATUS FileMan Field Label: 'TSP STATUS DATE' FileMan Field Number: '410' The effective date of an employee's change in status in the Thrift Savings Plan. If the employee is a new hire or a rehire eligible for immediate participation, the date is the date of accession. %Library.FilemanDate 464 TSP_STATUS_DATE FileMan Field Label: 'TSP VA DEPARTMENT CODE' FileMan Field Number: '411' The code is to designate the department within the agency that an employee works. No longer used. %Library.String 465 TSP_VA_DEPARTMENT_CODE FileMan Field Label: 'TSP VESTING' FileMan Field Number: '412' The number of years required for an employee to be vested with the basic 1% government contribution. This applies only to Federal Employee Retirement Systems employees. %Library.String 466 TSP_VESTING FileMan Field Label: 'TYPE OF APPOINTMENT' FileMan Field Number: '42' Code identifies the type of appointment (Career Conditional, Career, etc.) under which an employee is serving and indicates whether the appointment is in the competitive service, excepted service, or Senior Executive Service (SES). The code also indicates whether the appointment is permanent or temporary, and what tenure group applies. %Library.String 46 TYPE_OF_APPOINTMENT %Library.String 755 TYPE_OF_INTERFACE %Library.String 10 T__L_UNIT FileMan Field Label: 'UNIFORM ALLOWANCE AMT CPPD' FileMan Field Number: '563' The amount paid as uniform allowance to an employee who is required to purchase and wear a uniform at work. The amount paid is for the last pay period processed. %Library.Numeric 623 UNIFORM_ALLOWANCE_AMT_CPPD FileMan Field Label: 'UNIFORM ALLOWANCE EFF DATE' FileMan Field Number: '564' The effective date that the uniform allowance is begun. The first year an eligible employee receives a one-time lump sum payment, and on the first anniversary of the eligibility date, biweekly payments of the uniform allowance will begin. The allowance is added to net pay and reimburses an employee for purchasing uniforms that must be worn while at work. %Library.FilemanDate 624 UNIFORM_ALLOWANCE_EFF_DATE FileMan Field Label: 'UNIFORM ALLOWANCE HOURLY RATE' FileMan Field Number: '565' The rate used to compute the amount to compensate an employee for purchasing uniforms that must be worn on the job. %Library.Numeric 625 UNIFORM_ALLOWANCE_HOURLY_RATE FileMan Field Label: 'UNION CODE-1' FileMan Field Number: '428' Code identifies a national or local union. The employee has authorized that a dues payment to this union be deducted from earnings. %Library.String 482 UNION_CODE1 FileMan Field Label: 'UNION CODE-2' FileMan Field Number: '429' Code identifies a national or local union. The employee has authorized that a dues payment to this union be deducted from earnings. This is the second of two unions the employee belongs to. %Library.String 483 UNION_CODE2 FileMan Field Label: 'UNION DUES-1 DEDUCTION CPPD' FileMan Field Number: '431' The actual amount of union dues withheld this pay period for the first union the employee belongs to. %Library.Numeric 485 UNION_DUES1_DEDUCTION_CPPD FileMan Field Label: 'UNION DUES-1 DEDUCTION EPPD' FileMan Field Number: '432' The employee authorized union dues amount deducted from earnings each pay period for the first union the employee belongs to. %Library.Numeric 486 UNION_DUES1_DEDUCTION_EPPD FileMan Field Label: 'UNION DUES-2 DEDUCTION CPPD' FileMan Field Number: '433' The actual amount of union dues withheld this pay period for the second union the employee belongs to. %Library.Numeric 487 UNION_DUES2_DEDUCTION_CPPD FileMan Field Label: 'UNION DUES-2 DEDUCTION EPPD' FileMan Field Number: '434' The amount of employee authorized dues deducted from earnings each pay period for the second union the employee belongs to. %Library.Numeric 488 UNION_DUES2_DEDUCTION_EPPD FileMan Field Label: 'UNION DUES ANNIVERSARY DATE' FileMan Field Number: '430' The effective date that deduction for union dues is begun. %Library.FilemanDate 484 UNION_DUES_ANNIVERSARY_DATE FileMan Field Label: 'UNSCHEDULED HOURS' FileMan Field Number: '530' The number of hours or days base pay for which an employee was paid in the last pay period processed. %Library.Numeric 590 UNSCHEDULED_HOURS FileMan Field Label: 'UPWARD MOBILITY' FileMan Field Number: '85' Code indicates that an employee has been selected for an upward mobility program position. %Library.String 90 UPWARD_MOBILITY FileMan Field Label: 'UPWARD MOBILITY DATE' FileMan Field Number: '86' The date upward mobility status became effective. %Library.FilemanDate 91 UPWARD_MOBILITY_DATE FileMan Field Label: 'VA SERVICE DATE' FileMan Field Number: '154' Reflects the time certain Title 38 employees have worked in VA medical service. Applies to physicians, dentists, podiatrists, optometrists, nurses, physician assistants, and expanded function dental auxiliaries. %Library.FilemanDate 204 VA_SERVICE_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 768 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VA STATION TRANSFERRED FROM' FileMan Field Number: '87' The number of the station from which an employee has been transferred. %Library.String 92 VA_STATION_TRANSFERRED_FROM FileMan Field Label: 'VCS 301 COST ACCOUNT' FileMan Field Number: '566' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 301, Retail Dept. %Library.Numeric 626 VCS_301_COST_ACCOUNT FileMan Field Label: 'VCS 302 COST ACCOUNT' FileMan Field Number: '567' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 302, Manual Food Operation. %Library.Numeric 627 VCS_302_COST_ACCOUNT FileMan Field Label: 'VCS 303 COST ACCOUNT' FileMan Field Number: '568' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 303, Automatic Food Operation. %Library.Numeric 628 VCS_303_COST_ACCOUNT FileMan Field Label: 'VCS 304 COST ACCOUNT' FileMan Field Number: '569' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 304, Automatic Beverage Operation. %Library.Numeric 629 VCS_304_COST_ACCOUNT FileMan Field Label: 'VCS 601 COST ACCOUNT' FileMan Field Number: '570' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 601. %Library.Numeric 630 VCS_601_COST_ACCOUNT FileMan Field Label: 'VCS 601 COST ACCOUNT SUBCODE' FileMan Field Number: '571' Subcode denotes a Veterans Canteen Service employee's organizational unit or it denotes that an employee is on sick leave pending disability retirement. This field is used only when charges for an employee's services are made to cost account 601. %Library.String 631 VCS_601_COST_ACCOUNT_SUBCODE FileMan Field Label: 'VCS 701 COST ACCOUNT' FileMan Field Number: '572' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 701, Barber Shop. %Library.Numeric 632 VCS_701_COST_ACCOUNT FileMan Field Label: 'VCS 702 COST ACCOUNT' FileMan Field Number: '573' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 702, Beauty Shop. %Library.Numeric 633 VCS_702_COST_ACCOUNT FileMan Field Label: 'VCS 703 COST ACCOUNT' FileMan Field Number: '574' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 703, Tailor or Dry Cleaner. %Library.Numeric 634 VCS_703_COST_ACCOUNT FileMan Field Label: 'VCS 704 COST ACCOUNT' FileMan Field Number: '575' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 704, Repair Service. %Library.Numeric 635 VCS_704_COST_ACCOUNT FileMan Field Label: 'VCS 706 COST ACCOUNT' FileMan Field Number: '576' Denotes the percentage of an employee's gross pay each pay period, to be charged to Veterans Canteen Service cost account 706, Photo Service. %Library.Numeric 636 VCS_706_COST_ACCOUNT FileMan Field Label: 'VCS 709 COST ACCOUNT' FileMan Field Number: '577' Denotes the percentage of an employee's gross pay each pay period, to be charged to the Veterans Canteen Service cost account 709, Vending Machine (Other). %Library.Numeric 637 VCS_709_COST_ACCOUNT FileMan Field Label: 'VCS ADDNL OPTIONAL LIFE INS' FileMan Field Number: '578' The number of units of additional optional life insurance elected by the employee. An employee may elect one to five times his/her basic life insurance eligibility rate, not to be less than $10,000. Each unit represents one thousand dollars in coverage. %Library.Numeric 638 VCS_ADDNL_OPTIONAL_LIFE_INS FileMan Field Label: 'VCS ALLOTMENT AMT' FileMan Field Number: '586.1' The amount deducted from earnings that an employee has authorized for re-payment to the Veteran's Canteen Service (VCS). %Library.Numeric 647 VCS_ALLOTMENT_AMT FileMan Field Label: 'VCS AREA' FileMan Field Number: '579' A code to identify the geographic area the Veteran Canteen Service employee works in. %Library.String 639 VCS_AREA FileMan Field Label: 'VCS BASIC LIFE INS UNITS' FileMan Field Number: '580' The number of units of Federal Employee Group Life Insurance (FEGLI) basic coverage. Each unit represents one thousand dollars of life insurance. A minimum of 10 units will be entered for those employees who are eligible for and waived their FEGLI coverage. This applies only to Veterans Canteen Service employees. %Library.Numeric 640 VCS_BASIC_LIFE_INS_UNITS FileMan Field Label: 'VCS COMMISSION PERCENT' FileMan Field Number: '581' The percent of sales a Veterans Canteen Service pieceworker is entitled to receive as a commission. %Library.Numeric 641 VCS_COMMISSION_PERCENT FileMan Field Label: 'VCS HRLY RATE FOR LEAVE/HOL' FileMan Field Number: '582' The hourly rate of pay a Veterans Canteen Service pieceworker is entitled to receive while on annual leave, sick leave, authorized absence, or holiday excused. %Library.Numeric 642 VCS_HRLY_RATE_FOR_LEAVEHOL FileMan Field Label: 'VCS LEAVE COST ADJUSTMENT AMT' FileMan Field Number: '583' The amount of salary a pieceworker of the Veteran Canteen Service was paid in the last pay period processed for paid leave. %Library.Numeric 643 VCS_LEAVE_COST_ADJUSTMENT_AMT FileMan Field Label: 'VCS LEAVE LIABILITY' FileMan Field Number: '584' The current dollar value of a Veterans Canteen Service employee's unused annual leave balance. Automatically updated each pay period based on the employee's current rate of pay and annual leave balance. %Library.Numeric 644 VCS_LEAVE_LIABILITY FileMan Field Label: 'VCS MINWAGE CD PW CPPD' FileMan Field Number: '585' Code indicates that a pieceworker of the Veterans Canteen Service received payment at the minimum wage rate in the last pay period processed. %Library.Numeric 645 VCS_MINWAGE_CD_PW_CPPD FileMan Field Label: 'VCS SALE SUM PW CPPD' FileMan Field Number: '586' The actual sum of all sales by pieceworkers in the Veterans Canteen Service in the last pay period processed. %Library.Numeric 646 VCS_SALE_SUM_PW_CPPD FileMan Field Label: 'VERIFIED FICA/MED WAGE DIFF' FileMan Field Number: '459' This field is used to delete an employee from the Federal Insurance Contributions Act and Medicare wage and tax listing report. %Library.Numeric 517 VERIFIED_FICAMED_WAGE_DIFF FileMan Field Label: 'VETERANS PREFERENCE' FileMan Field Number: '43' Code identifies categories of entitlement to preference in the federal service based on active military service that terminated honorably. %Library.String 47 VETERANS_PREFERENCE FileMan Field Label: 'VET STATUS' FileMan Field Number: '603' The indicator of whether an employee is a veteran as defined by 38 U.S.C. 101 and, if so, whether he/she served before, during or after the Vietnam era. %Library.String 666 VET_STATUS FileMan Field Label: 'VHA REGION NUMBER' FileMan Field Number: '88' Code identifies which of the seven regions a Veterans Health Administration site is located. %Library.String 93 VHA_REGION_NUMBER FileMan Field Label: 'VOLUNTARY ALLOTMENT-1 AMT' FileMan Field Number: '435' This field is the whole dollar amount the employee has elected to have deducted from pay each pay period as a voluntary allotment. %Library.Numeric 489 VOLUNTARY_ALLOTMENT1_AMT FileMan Field Label: 'VOLUNTARY ALLOTMENT-1 CTRL NO' FileMan Field Number: '437' A four digit numeric code assigned by the station. A voluntary allotment may be made for voluntary child support, mutual funds, union dues for supervisors, etc. This control number is used to identify the name and address to which the voluntary allotment is to be sent. %Library.String 491 VOLUNTARY_ALLOTMENT1_CTRL_NO FileMan Field Label: 'VOLUNTARY ALLOTMENT-2 AMT' FileMan Field Number: '438' The amount the employee has elected to have deducted each pay period as a voluntary allotment. This field pertains to the second instance of voluntary allotments. %Library.Numeric 492 VOLUNTARY_ALLOTMENT2_AMT FileMan Field Label: 'VOLUNTARY ALLOTMENT-2 CTRL NO' FileMan Field Number: '439' A station assigned four digit numeric code. A voluntary allotment may be made for voluntary child support, mutual funds, union dues for supervisors, etc. This control number is used to identify the name and address to which the voluntary allotment is to be sent. This is the second of the two possible voluntary allotments. %Library.String 493 VOLUNTARY_ALLOTMENT2_CTRL_NO FileMan Field Label: 'VOLUNTARY ALLOTMENT-3 AMT' FileMan Field Number: '439.1' This field is the whole dollar amount the employee has elected to have deducted from pay each pay period as a voluntary allotment. %Library.Numeric 494 VOLUNTARY_ALLOTMENT3_AMT FileMan Field Label: 'VOLUNTARY ALLOTMENT-3 CTRL NO' FileMan Field Number: '439.2' A four digit numeric code assigned by the station. A voluntary allotment may be made for voluntary child support, mutual funds, union dues for supervisors, etc. This control number is used to identify the name and address to which the voluntary allotment is to be sent. %Library.String 495 VOLUNTARY_ALLOTMENT3_CTRL_NO FileMan Field Label: 'VOLUNTARY ALLOTMENT-4 AMT' FileMan Field Number: '439.3' This field is the whole dollar amount the employee has elected to have deducted from pay each pay period as a voluntary allotment. %Library.Numeric 496 VOLUNTARY_ALLOTMENT4_AMT FileMan Field Label: 'VOLUNTARY ALLOTMENT-4 CTRL NO' FileMan Field Number: '439.4' A four digit numeric code assigned by the station. A voluntary allotment may be made for voluntary child support, mutual funds, union dues for supervisors, etc. This control number is used to identify the name and address to which the voluntary allotment is to be sent. %Library.String 497 VOLUNTARY_ALLOTMENT4_CTRL_NO FileMan Field Label: 'VOLUNTARY ALLOTMENT AMT CPPD' FileMan Field Number: '436' The actual amount of voluntary allotment withheld in the last pay period processed. This amount was authorized by the employee. %Library.Numeric 490 VOLUNTARY_ALLOTMENT_AMT_CPPD FileMan Field Label: 'WGI DUE DATE' FileMan Field Number: '600' This is the date which the employee is eligible to receive a within- grade increase. %Library.FilemanDate 663 WGI_DUE_DATE FileMan Field Label: 'WGI ELIGIBILITY' FileMan Field Number: '44' Indicates whether an employee is eligible for a Within Grade Increase (WGI) or whether the WGI is withheld. %Library.String 48 WGI_ELIGIBILITY FileMan Field Label: 'WGI SF50 ISSUED' FileMan Field Number: '45' Indicates that the Within Grade Increase's SF50 has been issued three pay periods in advance of the proposed due date. %Library.String 49 WGI_SF50_ISSUED FileMan Field Label: 'WGI VA FORM 5-97 ISSUED' FileMan Field Number: '46' Indicates that VA 5-97, Within Grade Increase Notice, has been issued. %Library.String 50 WGI_VA_FORM_597_ISSUED FileMan Field Label: 'YEAR COMPLETED' FileMan Field Number: '178' The calendar year the nurse completed either the VA Health Professional Scholarship Program or the VA Masters Education in Nursing Administration Program. %Library.String 228 YEAR_COMPLETED FileMan Field Label: 'YEAR OF DEGREE' FileMan Field Number: '47' The calendar year when an employee received his/her most recent academic degree at the bachelor's level or higher. %Library.String 51 YEAR_OF_DEGREE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRSPC(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{EMPLOYEE_NAME}'="" FDA(450,"+1,",.01)={"EMPLOYEE_NAME"} set:{ADDNL_LIFE_INSURANCE}'="" FDA(450,"+1,",1)={"ADDNL_LIFE_INSURANCE"} set:{STATION_EOD}'="" FDA(450,"+1,",2)={"STATION_EOD"} set:{ASSIGNMENT}'="" FDA(450,"+1,",3)={"ASSIGNMENT"} set:{CITIZENSHIP}'="" FDA(450,"+1,",4)={"CITIZENSHIP"} set:{INSTRUCTIONAL_PROGRAM}'="" FDA(450,"+1,",5)={"INSTRUCTIONAL_PROGRAM"} set:{STATION_NUMBER}'="" FDA(450,"+1,",6)={"STATION_NUMBER"} set:{T__L_UNIT}'="" FDA(450,"+1,",7)={"T__L_UNIT"} set:{SSN}'="" FDA(450,"+1,",8)={"SSN"} set:{DUTY_BASIS}'="" FDA(450,"+1,",9)={"DUTY_BASIS"} set:{EDUCATION}'="" FDA(450,"+1,",10)={"EDUCATION"} set:{FLSA}'="" FDA(450,"+1,",11)={"FLSA"} set:{FUNCTIONAL_CODE}'="" FDA(450,"+1,",12)={"FUNCTIONAL_CODE"} set:{GRADE}'="" FDA(450,"+1,",13)={"GRADE"} set:{LEAVE_GROUP}'="" FDA(450,"+1,",14)={"LEAVE_GROUP"} set:{f8B_NORMAL_HOURS}'="" FDA(450,"+1,",15)={"f8B_NORMAL_HOURS"} set:{OCCUPATION_SERIES__TITLE}'="" FDA(450,"+1,",16)={"OCCUPATION_SERIES__TITLE"} set:{LABOR_DIST_CODE1_COST_CENTER}'="" FDA(450,"+1,",17)={"LABOR_DIST_CODE1_COST_CENTER"} set:{SUBACCT_CODE}'="" FDA(450,"+1,",18)={"SUBACCT_CODE"} set:{PAY_BASIS}'="" FDA(450,"+1,",19)={"PAY_BASIS"} set:{PAY_PLAN}'="" FDA(450,"+1,",20)={"PAY_PLAN"} set:{PAY_RATE_DETERMINANT}'="" FDA(450,"+1,",21)={"PAY_RATE_DETERMINANT"} set:{PERFPROFCY_RATING_CODE}'="" FDA(450,"+1,",22)={"PERFPROFCY_RATING_CODE"} set:{POSITION_NUMBER}'="" FDA(450,"+1,",23)={"POSITION_NUMBER"} set:{PRIOR_PERFORMANCE_1}'="" FDA(450,"+1,",24)={"PRIOR_PERFORMANCE_1"} set:{PRIOR_PERFORMANCE_2}'="" FDA(450,"+1,",25)={"PRIOR_PERFORMANCE_2"} set:{RETIREMENT_CODE}'="" FDA(450,"+1,",26)={"RETIREMENT_CODE"} set:{SALARY_DATE}'="" FDA(450,"+1,",27)={"SALARY_DATE"} set:{SALARY}'="" FDA(450,"+1,",28)={"SALARY"} set:{SCHEDULED_SALARY_RATE}'="" FDA(450,"+1,",29)={"SCHEDULED_SALARY_RATE"} set:{SERVICE_COMPUTATION_DATE}'="" FDA(450,"+1,",30)={"SERVICE_COMPUTATION_DATE"} set:{SEX}'="" FDA(450,"+1,",31)={"SEX"} set:{DATE_OF_BIRTH}'="" FDA(450,"+1,",32)={"DATE_OF_BIRTH"} set:{ACTUAL_SSN}'="" FDA(450,"+1,",33)={"ACTUAL_SSN"} set:{NEW_SSN}'="" FDA(450,"+1,",34)={"NEW_SSN"} set:{SSN_SUFFIX}'="" FDA(450,"+1,",35)={"SSN_SUFFIX"} set:{STATION_MAINTAINING_OPF}'="" FDA(450,"+1,",36)={"STATION_MAINTAINING_OPF"} set:{COMPETITIVE_LEVEL}'="" FDA(450,"+1,",37)={"COMPETITIVE_LEVEL"} set:{STEP}'="" FDA(450,"+1,",38)={"STEP"} set:{SUPERVISORY_LEVEL}'="" FDA(450,"+1,",39)={"SUPERVISORY_LEVEL"} set:{TEMPORARY_HEALTH_INSURANCE_IND}'="" FDA(450,"+1,",40)={"TEMPORARY_HEALTH_INSURANCE_IND"} set:{SUPERVISORLEAD_IND}'="" FDA(450,"+1,",41)={"SUPERVISORLEAD_IND"} set:{TYPE_OF_APPOINTMENT}'="" FDA(450,"+1,",42)={"TYPE_OF_APPOINTMENT"} set:{VETERANS_PREFERENCE}'="" FDA(450,"+1,",43)={"VETERANS_PREFERENCE"} set:{WGI_ELIGIBILITY}'="" FDA(450,"+1,",44)={"WGI_ELIGIBILITY"} set:{WGI_SF50_ISSUED}'="" FDA(450,"+1,",45)={"WGI_SF50_ISSUED"} set:{WGI_VA_FORM_597_ISSUED}'="" FDA(450,"+1,",46)={"WGI_VA_FORM_597_ISSUED"} set:{YEAR_OF_DEGREE}'="" FDA(450,"+1,",47)={"YEAR_OF_DEGREE"} set:{ACCESSIONSEPARATION_CODE}'="" FDA(450,"+1,",48)={"ACCESSIONSEPARATION_CODE"} set:{ACCESSIONSEPARATION_EFF_DATE}'="" FDA(450,"+1,",49)={"ACCESSIONSEPARATION_EFF_DATE"} set:{ACCESSIONSEPARATION_NOA_CODE}'="" FDA(450,"+1,",50)={"ACCESSIONSEPARATION_NOA_CODE"} set:{AGENCY_TRANSFERRED_TO}'="" FDA(450,"+1,",51)={"AGENCY_TRANSFERRED_TO"} set:{BUS_CODE}'="" FDA(450,"+1,",52)={"BUS_CODE"} set:{CENTRALIZED_POSITION_IND}'="" FDA(450,"+1,",53)={"CENTRALIZED_POSITION_IND"} set:{COMPRESSEDFLEXITIME_CODE}'="" FDA(450,"+1,",54)={"COMPRESSEDFLEXITIME_CODE"} set:{CREDITABLE_MILITARY_SERVICE}'="" FDA(450,"+1,",55)={"CREDITABLE_MILITARY_SERVICE"} set:{CURRENT_APPT_AUTH_1}'="" FDA(450,"+1,",56)={"CURRENT_APPT_AUTH_1"} set:{CURRENT_APPT_AUTH_2}'="" FDA(450,"+1,",57)={"CURRENT_APPT_AUTH_2"} set:{DISABILITY_RETIREMENT}'="" FDA(450,"+1,",58)={"DISABILITY_RETIREMENT"} set:{FIRE_FIGHTER}'="" FDA(450,"+1,",59)={"FIRE_FIGHTER"} set:{FROZEN_SERVICE}'="" FDA(450,"+1,",60)={"FROZEN_SERVICE"} set:{MONTHLY_NONWORK_IND}'="" FDA(450,"+1,",61)={"MONTHLY_NONWORK_IND"} set:{LEADERSHIP_VA}'="" FDA(450,"+1,",62)={"LEADERSHIP_VA"} set:{MEDICAL_MOS}'="" FDA(450,"+1,",63)={"MEDICAL_MOS"} set:{RETIRED_MILITARY}'="" FDA(450,"+1,",64)={"RETIRED_MILITARY"} set:{NONPAY_HOURSDAYS_CPPD}'="" FDA(450,"+1,",66)={"NONPAY_HOURSDAYS_CPPD"} set:{NONPAY_IND}'="" FDA(450,"+1,",67)={"NONPAY_IND"} set:{OWCP_BENEFICIARY_IND}'="" FDA(450,"+1,",68)={"OWCP_BENEFICIARY_IND"} set:{PART_TIME_VHA_IND}'="" FDA(450,"+1,",69)={"PART_TIME_VHA_IND"} set:{PART_TIMEINTERMIT_HRS_TOTAL}'="" FDA(450,"+1,",70)={"PART_TIMEINTERMIT_HRS_TOTAL"} set:{PMRS_IDENTIFIER}'="" FDA(450,"+1,",71)={"PMRS_IDENTIFIER"} set:{PROBATIONARY_APPOINTMENT_IND}'="" FDA(450,"+1,",72)={"PROBATIONARY_APPOINTMENT_IND"} set:{PROPER_GRADE}'="" FDA(450,"+1,",73)={"PROPER_GRADE"} set:{PROPER_PAY_PLAN}'="" FDA(450,"+1,",74)={"PROPER_PAY_PLAN"} set:{RETIREMENT_ANN_SURV_ELIG_CODE}'="" FDA(450,"+1,",75)={"RETIREMENT_ANN_SURV_ELIG_CODE"} set:{LIMITATION_CODE}'="" FDA(450,"+1,",76)={"LIMITATION_CODE"} set:{LIMITATION_EXP_DATE}'="" FDA(450,"+1,",77)={"LIMITATION_EXP_DATE"} set:{HOURSSALARY_LIMITATION}'="" FDA(450,"+1,",78)={"HOURSSALARY_LIMITATION"} set:{LIMITATION_HOURS_TO_DATE}'="" FDA(450,"+1,",79)={"LIMITATION_HOURS_TO_DATE"} set:{SEPARATION_IND}'="" FDA(450,"+1,",80)={"SEPARATION_IND"} set:{SES_APPT_PROBATION_PERIOD_IND}'="" FDA(450,"+1,",81)={"SES_APPT_PROBATION_PERIOD_IND"} set:{SPECIAL_PAY_RATE_DIFFERENCE}'="" FDA(450,"+1,",82)={"SPECIAL_PAY_RATE_DIFFERENCE"} set:{GAPLOCALITY_PAY_AMT}'="" FDA(450,"+1,",83)={"GAPLOCALITY_PAY_AMT"} set:{GAP_AMT_CPPD}'="" FDA(450,"+1,",83.1)={"GAP_AMT_CPPD"} set:{LOCALITY_PAY_CPPD}'="" FDA(450,"+1,",83.2)={"LOCALITY_PAY_CPPD"} set:{SUPV_APPT_PROBATION_PERIOD_IND}'="" FDA(450,"+1,",84)={"SUPV_APPT_PROBATION_PERIOD_IND"} set:{UPWARD_MOBILITY}'="" FDA(450,"+1,",85)={"UPWARD_MOBILITY"} set:{UPWARD_MOBILITY_DATE}'="" FDA(450,"+1,",86)={"UPWARD_MOBILITY_DATE"} set:{VA_STATION_TRANSFERRED_FROM}'="" FDA(450,"+1,",87)={"VA_STATION_TRANSFERRED_FROM"} set:{VHA_REGION_NUMBER}'="" FDA(450,"+1,",88)={"VHA_REGION_NUMBER"} set:{ANNUAL_LEAVE_ACCRUAL_RATE}'="" FDA(450,"+1,",89)={"ANNUAL_LEAVE_ACCRUAL_RATE"} set:{EXPIRATION_OF_LICENSURE}'="" FDA(450,"+1,",90)={"EXPIRATION_OF_LICENSURE"} set:{PLACEMENT_FOLLOWUP}'="" FDA(450,"+1,",91)={"PLACEMENT_FOLLOWUP"} set:{ANNUAL_LEAVE_RESTRICTION}'="" FDA(450,"+1,",92)={"ANNUAL_LEAVE_RESTRICTION"} set:{CONVERSION_TO_CAREER_TENURE}'="" FDA(450,"+1,",93)={"CONVERSION_TO_CAREER_TENURE"} set:{f2YEAR_PROB_PERIOD_INCEPTION}'="" FDA(450,"+1,",94)={"f2YEAR_PROB_PERIOD_INCEPTION"} set:{EXPIRATION_OF_LIMITED_APPT}'="" FDA(450,"+1,",95)={"EXPIRATION_OF_LIMITED_APPT"} set:{EXPIRATION_OF_FORMAL_DETAIL}'="" FDA(450,"+1,",96)={"EXPIRATION_OF_FORMAL_DETAIL"} set:{REDETERMINATION_OF_WGI}'="" FDA(450,"+1,",97)={"REDETERMINATION_OF_WGI"} set:{FOLLOWUP_CODE_08}'="" FDA(450,"+1,",97.1)={"FOLLOWUP_CODE_08"} set:{ELIG_FOR_CONV_TO_COMP_SERVICE}'="" FDA(450,"+1,",98)={"ELIG_FOR_CONV_TO_COMP_SERVICE"} set:{FOLLOWUP_CODE_10}'="" FDA(450,"+1,",98.1)={"FOLLOWUP_CODE_10"} set:{FOLLOWUP_CODE_11}'="" FDA(450,"+1,",98.2)={"FOLLOWUP_CODE_11"} set:{FOLLOWUP_CODE_12}'="" FDA(450,"+1,",98.3)={"FOLLOWUP_CODE_12"} set:{FOLLOWUP_CODE_13}'="" FDA(450,"+1,",98.4)={"FOLLOWUP_CODE_13"} set:{OBLIGATED_SERVICE}'="" FDA(450,"+1,",99)={"OBLIGATED_SERVICE"} set:{FOLLOWUP_CODE_15}'="" FDA(450,"+1,",99.1)={"FOLLOWUP_CODE_15"} set:{EXPIRATION_OF_GRADE_RETENTION}'="" FDA(450,"+1,",100)={"EXPIRATION_OF_GRADE_RETENTION"} set:{SES_PROBATIONARY_PERIOD}'="" FDA(450,"+1,",101)={"SES_PROBATIONARY_PERIOD"} set:{SUPERVISORMGR_PROB_PERIOD}'="" FDA(450,"+1,",102)={"SUPERVISORMGR_PROB_PERIOD"} set:{BEGINNING_OF_NONPAY_STATUS}'="" FDA(450,"+1,",103)={"BEGINNING_OF_NONPAY_STATUS"} set:{f1YEAR_PROB_PERIOD_INCEPTION}'="" FDA(450,"+1,",104)={"f1YEAR_PROB_PERIOD_INCEPTION"} set:{DATE_OF_GRADE_FOR_T38_EMP}'="" FDA(450,"+1,",105)={"DATE_OF_GRADE_FOR_T38_EMP"} set:{DATE_OF_ENTRY_TO_T38_POSITION}'="" FDA(450,"+1,",106)={"DATE_OF_ENTRY_TO_T38_POSITION"} set:{DATE_GRADUATED_FROM_PROF_SCHL}'="" FDA(450,"+1,",107)={"DATE_GRADUATED_FROM_PROF_SCHL"} set:{EXPIRATION_OF_SPEC_PAY_AGREE}'="" FDA(450,"+1,",108)={"EXPIRATION_OF_SPEC_PAY_AGREE"} set:{STEP_RATE_REVIEW}'="" FDA(450,"+1,",109)={"STEP_RATE_REVIEW"} set:{FEDERAL_SERVICE_DATE}'="" FDA(450,"+1,",110)={"FEDERAL_SERVICE_DATE"} set:{CAREER_PROMOTION_DETERMINATION}'="" FDA(450,"+1,",111)={"CAREER_PROMOTION_DETERMINATION"} set:{PROFICIENCY_DATE}'="" FDA(450,"+1,",112)={"PROFICIENCY_DATE"} set:{EXPIRATION_OF_FERS_PERIOD}'="" FDA(450,"+1,",113)={"EXPIRATION_OF_FERS_PERIOD"} set:{TEMPORARY_HEALTH_BENEFITS_ELIG}'="" FDA(450,"+1,",114)={"TEMPORARY_HEALTH_BENEFITS_ELIG"} set:{EXPIRATION_OF_GEO_LOCATION_PAY}'="" FDA(450,"+1,",114.1)={"EXPIRATION_OF_GEO_LOCATION_PAY"} set:{EXPIRATION_OF_RETENTION_ALLOW}'="" FDA(450,"+1,",114.2)={"EXPIRATION_OF_RETENTION_ALLOW"} set:{EXPIRATION_OF_AI_BOARD_CERT}'="" FDA(450,"+1,",115.01)={"EXPIRATION_OF_AI_BOARD_CERT"} set:{EXPIRATION_OF_DE_BOARD_CERT}'="" FDA(450,"+1,",115.02)={"EXPIRATION_OF_DE_BOARD_CERT"} set:{EXPIRATION_OF_EM_BOARD_CERT}'="" FDA(450,"+1,",115.03)={"EXPIRATION_OF_EM_BOARD_CERT"} set:{EXPIRATION_OF_FP_BOARD_CERT}'="" FDA(450,"+1,",115.04)={"EXPIRATION_OF_FP_BOARD_CERT"} set:{EXPIRATION_OF_NM_BOARD_CERT}'="" FDA(450,"+1,",115.05)={"EXPIRATION_OF_NM_BOARD_CERT"} set:{EXPIRATION_OF_OG_BOARD_CERT}'="" FDA(450,"+1,",115.06)={"EXPIRATION_OF_OG_BOARD_CERT"} set:{EXPIRATION_OF_OP_BOARD_CERT}'="" FDA(450,"+1,",115.07)={"EXPIRATION_OF_OP_BOARD_CERT"} set:{EXPIRATION_OF_OS_BOARD_CERT}'="" FDA(450,"+1,",115.08)={"EXPIRATION_OF_OS_BOARD_CERT"} set:{EXPIRATION_OF_PM_BOARD_CERT}'="" FDA(450,"+1,",115.09)={"EXPIRATION_OF_PM_BOARD_CERT"} set:{EXPIRATION_OF_PS_BOARD_CERT}'="" FDA(450,"+1,",115.1)={"EXPIRATION_OF_PS_BOARD_CERT"} set:{EXPIRATION_OF_SU_BOARD_CERT}'="" FDA(450,"+1,",115.11)={"EXPIRATION_OF_SU_BOARD_CERT"} set:{EXPIRATION_OF_TS_BOARD_CERT}'="" FDA(450,"+1,",115.12)={"EXPIRATION_OF_TS_BOARD_CERT"} set:{EXPIRATION_OF_UR_BOARD_CERT}'="" FDA(450,"+1,",115.13)={"EXPIRATION_OF_UR_BOARD_CERT"} set:{EXPIRATION_OF_CS_BOARD_CERT}'="" FDA(450,"+1,",115.14)={"EXPIRATION_OF_CS_BOARD_CERT"} set:{RETIREMENTFICA_CODE_CHANGE}'="" FDA(450,"+1,",115.15)={"RETIREMENTFICA_CODE_CHANGE"} set:{FOLLOWUP_CODE_S}'="" FDA(450,"+1,",115.16)={"FOLLOWUP_CODE_S"} set:{ELIGIBLE_FOR_DRUG_TESTING}'="" FDA(450,"+1,",115.17)={"ELIGIBLE_FOR_DRUG_TESTING"} set:{EXPIRATION_OF_CR_BOARD_CERT}'="" FDA(450,"+1,",115.18)={"EXPIRATION_OF_CR_BOARD_CERT"} set:{EXPIRATION_OF_IM_BOARD_CERT}'="" FDA(450,"+1,",115.19)={"EXPIRATION_OF_IM_BOARD_CERT"} set:{EXPIRATION_OF_MG_BOARD_CERT}'="" FDA(450,"+1,",115.2)={"EXPIRATION_OF_MG_BOARD_CERT"} set:{EXPIRATION_OF_PN_BOARD_CERT}'="" FDA(450,"+1,",115.21)={"EXPIRATION_OF_PN_BOARD_CERT"} set:{FOLLOWUP_CODE_30}'="" FDA(450,"+1,",116.01)={"FOLLOWUP_CODE_30"} set:{FOLLOWUP_CODE_31}'="" FDA(450,"+1,",116.02)={"FOLLOWUP_CODE_31"} set:{FOLLOWUP_CODE_32}'="" FDA(450,"+1,",116.03)={"FOLLOWUP_CODE_32"} set:{FOLLOWUP_CODE_33}'="" FDA(450,"+1,",116.04)={"FOLLOWUP_CODE_33"} set:{FOLLOWUP_CODE_34}'="" FDA(450,"+1,",116.05)={"FOLLOWUP_CODE_34"} set:{FOLLOWUP_CODE_35}'="" FDA(450,"+1,",116.06)={"FOLLOWUP_CODE_35"} set:{FOLLOWUP_CODE_36}'="" FDA(450,"+1,",116.07)={"FOLLOWUP_CODE_36"} set:{FOLLOWUP_CODE_37}'="" FDA(450,"+1,",116.08)={"FOLLOWUP_CODE_37"} set:{FOLLOWUP_CODE_38}'="" FDA(450,"+1,",116.09)={"FOLLOWUP_CODE_38"} set:{FOLLOWUP_CODE_39}'="" FDA(450,"+1,",116.1)={"FOLLOWUP_CODE_39"} set:{FOLLOWUP_CODE_40}'="" FDA(450,"+1,",116.11)={"FOLLOWUP_CODE_40"} set:{FOLLOWUP_CODE_41}'="" FDA(450,"+1,",116.12)={"FOLLOWUP_CODE_41"} set:{FOLLOWUP_CODE_42}'="" FDA(450,"+1,",116.13)={"FOLLOWUP_CODE_42"} set:{FOLLOWUP_CODE_43}'="" FDA(450,"+1,",116.14)={"FOLLOWUP_CODE_43"} set:{FOLLOWUP_CODE_44}'="" FDA(450,"+1,",116.15)={"FOLLOWUP_CODE_44"} set:{FOLLOWUP_CODE_45}'="" FDA(450,"+1,",116.16)={"FOLLOWUP_CODE_45"} set:{FOLLOWUP_CODE_46}'="" FDA(450,"+1,",116.17)={"FOLLOWUP_CODE_46"} set:{FOLLOWUP_CODE_47}'="" FDA(450,"+1,",116.18)={"FOLLOWUP_CODE_47"} set:{FOLLOWUP_CODE_48}'="" FDA(450,"+1,",116.19)={"FOLLOWUP_CODE_48"} set:{FOLLOWUP_CODE_49}'="" FDA(450,"+1,",116.2)={"FOLLOWUP_CODE_49"} set:{ACADEMIC_TITLE}'="" FDA(450,"+1,",119)={"ACADEMIC_TITLE"} set:{ADDL_DIPLOMATE_SPECIALTY_A}'="" FDA(450,"+1,",120)={"ADDL_DIPLOMATE_SPECIALTY_A"} set:{ANNUAL_TENURE_CHANGE}'="" FDA(450,"+1,",121)={"ANNUAL_TENURE_CHANGE"} set:{ANNUAL_REVIEW_IND}'="" FDA(450,"+1,",122)={"ANNUAL_REVIEW_IND"} set:{BOARD_ELIGIBLE_SPECIALTY_A}'="" FDA(450,"+1,",123)={"BOARD_ELIGIBLE_SPECIALTY_A"} set:{BOARD_ELIGIBLE_SPECIALTY_B}'="" FDA(450,"+1,",124)={"BOARD_ELIGIBLE_SPECIALTY_B"} set:{CONTINUING_EDUC_CODE_AT_APPT}'="" FDA(450,"+1,",125)={"CONTINUING_EDUC_CODE_AT_APPT"} set:{CONTINUING_EDUC_CODE_CURRENT}'="" FDA(450,"+1,",126)={"CONTINUING_EDUC_CODE_CURRENT"} set:{COUNTRY_OF_BIRTH}'="" FDA(450,"+1,",127)={"COUNTRY_OF_BIRTH"} set:{COUNTRY_OF_MEDICAL_SCHOOL}'="" FDA(450,"+1,",128)={"COUNTRY_OF_MEDICAL_SCHOOL"} set:{COUNTRY_OF_POST_GR_TRAINING}'="" FDA(450,"+1,",129)={"COUNTRY_OF_POST_GR_TRAINING"} set:{LWOP_FOR_EDUCATION_IND}'="" FDA(450,"+1,",130)={"LWOP_FOR_EDUCATION_IND"} set:{FOREIGN_MEDICAL_GRADUATE_IND}'="" FDA(450,"+1,",131)={"FOREIGN_MEDICAL_GRADUATE_IND"} set:{ADDL_DIPLOMATE_SPECIALTY_B}'="" FDA(450,"+1,",132)={"ADDL_DIPLOMATE_SPECIALTY_B"} set:{INTERNSHIP_CODE}'="" FDA(450,"+1,",133)={"INTERNSHIP_CODE"} set:{NO_AGREEMENT_REASON_AT_APPT}'="" FDA(450,"+1,",134)={"NO_AGREEMENT_REASON_AT_APPT"} set:{NO_AGREEMENT_REASON_CURRENT}'="" FDA(450,"+1,",135)={"NO_AGREEMENT_REASON_CURRENT"} set:{NONPAYABLE_ANNUAL_LEAVE}'="" FDA(450,"+1,",136)={"NONPAYABLE_ANNUAL_LEAVE"} set:{PAYABLE_ANNUAL_LEAVE}'="" FDA(450,"+1,",137)={"PAYABLE_ANNUAL_LEAVE"} set:{PREAPPOINTMENT_EXPERIENCE}'="" FDA(450,"+1,",138)={"PREAPPOINTMENT_EXPERIENCE"} set:{DIPLOMATE}'="" FDA(450,"+1,",139)={"DIPLOMATE"} set:{PROMOTION_ELIGIBILITY_IND}'="" FDA(450,"+1,",140)={"PROMOTION_ELIGIBILITY_IND"} set:{RET_MILDUAL_COMP_WAIVER}'="" FDA(450,"+1,",141)={"RET_MILDUAL_COMP_WAIVER"} set:{SPECIAL_PAY_ANNUAL_AMT}'="" FDA(450,"+1,",142)={"SPECIAL_PAY_ANNUAL_AMT"} set:{SPECIAL_PAY_AGREEMENT_DATE}'="" FDA(450,"+1,",143)={"SPECIAL_PAY_AGREEMENT_DATE"} set:{SPECIAL_PAY_AGREEMENT_LENGTH}'="" FDA(450,"+1,",144)={"SPECIAL_PAY_AGREEMENT_LENGTH"} set:{SPECIAL_PAY_AGREEMENT_QUAL_APT}'="" FDA(450,"+1,",145)={"SPECIAL_PAY_AGREEMENT_QUAL_APT"} set:{SPECIAL_PAY_AGREEMENT_QUAL_CUR}'="" FDA(450,"+1,",146)={"SPECIAL_PAY_AGREEMENT_QUAL_CUR"} set:{SPECIAL_PAY_RET_DED}'="" FDA(450,"+1,",147)={"SPECIAL_PAY_RET_DED"} set:{SPEC_ADVANCEMENT_FOR_PERF_IND}'="" FDA(450,"+1,",148)={"SPEC_ADVANCEMENT_FOR_PERF_IND"} set:{SPECIAL_CALC_INDICATOR}'="" FDA(450,"+1,",149)={"SPECIAL_CALC_INDICATOR"} set:{SPECIAL_SALARY_ADJUSTMENT}'="" FDA(450,"+1,",150)={"SPECIAL_SALARY_ADJUSTMENT"} set:{SPECIALTY_TRAINED}'="" FDA(450,"+1,",151)={"SPECIALTY_TRAINED"} set:{STATE_OF_LICENSURE}'="" FDA(450,"+1,",152)={"STATE_OF_LICENSURE"} set:{STATE_OF_EMPLOYMENT_PREAPPT}'="" FDA(450,"+1,",153)={"STATE_OF_EMPLOYMENT_PREAPPT"} set:{VA_SERVICE_DATE}'="" FDA(450,"+1,",154)={"VA_SERVICE_DATE"} set:{PRIOR_VA_EXPERIENCE_SIR_1}'="" FDA(450,"+1,",155)={"PRIOR_VA_EXPERIENCE_SIR_1"} set:{PRIOR_VA_EXPERIENCE_SIR_2}'="" FDA(450,"+1,",156)={"PRIOR_VA_EXPERIENCE_SIR_2"} set:{PRIOR_VA_EXPERIENCE_SIR_3}'="" FDA(450,"+1,",157)={"PRIOR_VA_EXPERIENCE_SIR_3"} set:{PRIOR_VA_EXPERIENCE_SIR_4}'="" FDA(450,"+1,",158)={"PRIOR_VA_EXPERIENCE_SIR_4"} set:{PRIOR_VA_EXPERIENCE_SIR_5}'="" FDA(450,"+1,",159)={"PRIOR_VA_EXPERIENCE_SIR_5"} set:{PRIOR_VA_EXPERIENCE_OTHER_1}'="" FDA(450,"+1,",160)={"PRIOR_VA_EXPERIENCE_OTHER_1"} set:{PRIOR_VA_EXPERIENCE_OTHER_2}'="" FDA(450,"+1,",161)={"PRIOR_VA_EXPERIENCE_OTHER_2"} set:{PRIOR_VA_EXPERIENCE_OTHER_3}'="" FDA(450,"+1,",162)={"PRIOR_VA_EXPERIENCE_OTHER_3"} set:{PRIOR_VA_EXPERIENCE_OTHER_4}'="" FDA(450,"+1,",163)={"PRIOR_VA_EXPERIENCE_OTHER_4"} set:{PRIOR_VA_EXPERIENCE_OTHER_5}'="" FDA(450,"+1,",164)={"PRIOR_VA_EXPERIENCE_OTHER_5"} set:{PRIOR_VA_EXPERIENCE_OTHER_6}'="" FDA(450,"+1,",165)={"PRIOR_VA_EXPERIENCE_OTHER_6"} set:{PRIOR_VA_EXPERIENCE_OTHER_7}'="" FDA(450,"+1,",166)={"PRIOR_VA_EXPERIENCE_OTHER_7"} set:{PRIOR_VA_EXPERIENCE_OTHER_8}'="" FDA(450,"+1,",167)={"PRIOR_VA_EXPERIENCE_OTHER_8"} set:{CLINICAL_EXPERIENCE_1}'="" FDA(450,"+1,",168)={"CLINICAL_EXPERIENCE_1"} set:{CLINICAL_EXPERIENCE_2}'="" FDA(450,"+1,",169)={"CLINICAL_EXPERIENCE_2"} set:{DATE_ASSIGNED_PRESENT_POSITION}'="" FDA(450,"+1,",170)={"DATE_ASSIGNED_PRESENT_POSITION"} set:{DATE_AVAILABLE}'="" FDA(450,"+1,",171)={"DATE_AVAILABLE"} set:{FUNCTIONAL_EXPERIENCE_1}'="" FDA(450,"+1,",172)={"FUNCTIONAL_EXPERIENCE_1"} set:{FUNCTIONAL_EXPERIENCE_2}'="" FDA(450,"+1,",173)={"FUNCTIONAL_EXPERIENCE_2"} set:{GEOGRAPHIC_PREFERENCE_1}'="" FDA(450,"+1,",174)={"GEOGRAPHIC_PREFERENCE_1"} set:{GEOGRAPHIC_PREFERENCE_2}'="" FDA(450,"+1,",175)={"GEOGRAPHIC_PREFERENCE_2"} set:{POSITION_PREFERENCE}'="" FDA(450,"+1,",176)={"POSITION_PREFERENCE"} set:{SPECIAL_PROGRAM}'="" FDA(450,"+1,",177)={"SPECIAL_PROGRAM"} set:{YEAR_COMPLETED}'="" FDA(450,"+1,",178)={"YEAR_COMPLETED"} set:{STATUS_CODE}'="" FDA(450,"+1,",179)={"STATUS_CODE"} set:{TRAINING_PROGRAM}'="" FDA(450,"+1,",180)={"TRAINING_PROGRAM"} set:{CHECK_MAILING_ADDRESS_LINE_1}'="" FDA(450,"+1,",181)={"CHECK_MAILING_ADDRESS_LINE_1"} set:{CHECK_MAILING_ADDRESS_LINE_2}'="" FDA(450,"+1,",182)={"CHECK_MAILING_ADDRESS_LINE_2"} set:{CHECK_MAILING_ADDRESS_LINE_3}'="" FDA(450,"+1,",183)={"CHECK_MAILING_ADDRESS_LINE_3"} set:{CHECK_MAILING_ADDRESS_ZIP_CODE}'="" FDA(450,"+1,",184)={"CHECK_MAILING_ADDRESS_ZIP_CODE"} set:{EARNINGS__LEAVE_OPTION}'="" FDA(450,"+1,",185)={"EARNINGS__LEAVE_OPTION"} set:{RESIDENCE_STATE}'="" FDA(450,"+1,",186)={"RESIDENCE_STATE"} set:{RESIDENCE_ADDRESS_LINE_1}'="" FDA(450,"+1,",186.1)={"RESIDENCE_ADDRESS_LINE_1"} set:{RESIDENCE_ADDRESS_LINE_2}'="" FDA(450,"+1,",186.2)={"RESIDENCE_ADDRESS_LINE_2"} set:{RESIDENCE_ADDRESS_LINE_3}'="" FDA(450,"+1,",186.3)={"RESIDENCE_ADDRESS_LINE_3"} set:{RESIDENCE_ADDRESS_ZIP_CODE}'="" FDA(450,"+1,",186.4)={"RESIDENCE_ADDRESS_ZIP_CODE"} set:{CITY_TAX1_ADDNL_AMT_WITHHELD}'="" FDA(450,"+1,",187)={"CITY_TAX1_ADDNL_AMT_WITHHELD"} set:{CITY_TAX1_AMT_WITHHELD_CPPD}'="" FDA(450,"+1,",188)={"CITY_TAX1_AMT_WITHHELD_CPPD"} set:{CITY_TAX1_AMT_WITHHELD_CTPTD}'="" FDA(450,"+1,",189)={"CITY_TAX1_AMT_WITHHELD_CTPTD"} set:{CITY_TAX1_AMT_WITHHELD_YTD}'="" FDA(450,"+1,",190)={"CITY_TAX1_AMT_WITHHELD_YTD"} set:{CITY_TAX1_EXEMPTION_CODE1}'="" FDA(450,"+1,",191)={"CITY_TAX1_EXEMPTION_CODE1"} set:{CITY_TAX1_EXEMPTION_CODE2}'="" FDA(450,"+1,",192)={"CITY_TAX1_EXEMPTION_CODE2"} set:{CITY_TAX1_GROSS_PAY_CPPD}'="" FDA(450,"+1,",193)={"CITY_TAX1_GROSS_PAY_CPPD"} set:{CITY_TAX1_GROSS_PAY_YTD}'="" FDA(450,"+1,",194)={"CITY_TAX1_GROSS_PAY_YTD"} set:{CITY_TAX1_GSA_CODE}'="" FDA(450,"+1,",195)={"CITY_TAX1_GSA_CODE"} set:{CITY_TAX1_MARITAL_STATUS}'="" FDA(450,"+1,",196)={"CITY_TAX1_MARITAL_STATUS"} set:{CITY_TAX1_RESIDENCE_STATE}'="" FDA(450,"+1,",197)={"CITY_TAX1_RESIDENCE_STATE"} set:{CITY_TAX2_ADDNL_AMT_WITHHELD}'="" FDA(450,"+1,",198)={"CITY_TAX2_ADDNL_AMT_WITHHELD"} set:{CITY_TAX2_AMT_WITHHELD_CTPTD}'="" FDA(450,"+1,",199)={"CITY_TAX2_AMT_WITHHELD_CTPTD"} set:{CITY_TAX2_AMT_WITHHELD_YTD}'="" FDA(450,"+1,",200)={"CITY_TAX2_AMT_WITHHELD_YTD"} set:{CITY_TAX2_AMT_WITHHELD_CPPD}'="" FDA(450,"+1,",201)={"CITY_TAX2_AMT_WITHHELD_CPPD"} set:{CITY_TAX2_EXEMPTION_CODE1}'="" FDA(450,"+1,",202)={"CITY_TAX2_EXEMPTION_CODE1"} set:{CITY_TAX2_EXEMPTION_CODE2}'="" FDA(450,"+1,",203)={"CITY_TAX2_EXEMPTION_CODE2"} set:{CITY_TAX2_GROSS_PAY_CPPD}'="" FDA(450,"+1,",204)={"CITY_TAX2_GROSS_PAY_CPPD"} set:{CITY_TAX2_GROSS_PAY_YTD}'="" FDA(450,"+1,",205)={"CITY_TAX2_GROSS_PAY_YTD"} set:{CITY_TAX2_GSA_CODE}'="" FDA(450,"+1,",206)={"CITY_TAX2_GSA_CODE"} set:{CITY_TAX2_MARITAL_STATUS}'="" FDA(450,"+1,",207)={"CITY_TAX2_MARITAL_STATUS"} set:{CITY_TAX2_RESIDENCE_STATE}'="" FDA(450,"+1,",208)={"CITY_TAX2_RESIDENCE_STATE"} set:{CFC_BIWEEKLY_DEDUCTION}'="" FDA(450,"+1,",209)={"CFC_BIWEEKLY_DEDUCTION"} set:{CFC_CODE}'="" FDA(450,"+1,",210)={"CFC_CODE"} set:{CFC_DEDUCTION_CPPD}'="" FDA(450,"+1,",211)={"CFC_DEDUCTION_CPPD"} set:{FEDERAL_NONTAXABLE_WAGES_YTD}'="" FDA(450,"+1,",212)={"FEDERAL_NONTAXABLE_WAGES_YTD"} set:{FEDERAL_TAX_ADDNL_AMT_WITHHELD}'="" FDA(450,"+1,",213)={"FEDERAL_TAX_ADDNL_AMT_WITHHELD"} set:{FEDERAL_TAX_AMT_WITHHELD_QTD}'="" FDA(450,"+1,",214)={"FEDERAL_TAX_AMT_WITHHELD_QTD"} set:{FEDERAL_TAX_AMT_WITHHELD_YTD}'="" FDA(450,"+1,",215)={"FEDERAL_TAX_AMT_WITHHELD_YTD"} set:{FEDERAL_TAX_AMT_WITHHELD_CPPD}'="" FDA(450,"+1,",216)={"FEDERAL_TAX_AMT_WITHHELD_CPPD"} set:{FEDERAL_TAX_EXEMPTIONS}'="" FDA(450,"+1,",217)={"FEDERAL_TAX_EXEMPTIONS"} set:{FEDERAL_TAX_GROSS_PAY_QTD}'="" FDA(450,"+1,",218)={"FEDERAL_TAX_GROSS_PAY_QTD"} set:{FEDERAL_TAX_GROSS_PAY_YTD}'="" FDA(450,"+1,",219)={"FEDERAL_TAX_GROSS_PAY_YTD"} set:{FTL_DEBT_BALANCE}'="" FDA(450,"+1,",220)={"FTL_DEBT_BALANCE"} set:{FTL_EXEMPTED_AMT_EPPD}'="" FDA(450,"+1,",221)={"FTL_EXEMPTED_AMT_EPPD"} set:{MARITAL_STATUS}'="" FDA(450,"+1,",222)={"MARITAL_STATUS"} set:{FEGLI_ADDNL_DEDUCTION_CPPD}'="" FDA(450,"+1,",223)={"FEGLI_ADDNL_DEDUCTION_CPPD"} set:{FEGLI_AGE_CODE_CPPD}'="" FDA(450,"+1,",224)={"FEGLI_AGE_CODE_CPPD"} set:{FEGLI_BASIC_DEDUCTION_CPPD}'="" FDA(450,"+1,",225)={"FEGLI_BASIC_DEDUCTION_CPPD"} set:{FEGLI_CODE}'="" FDA(450,"+1,",226)={"FEGLI_CODE"} set:{FEGLI_FAMILY_DEDUCTION_CPPD}'="" FDA(450,"+1,",227)={"FEGLI_FAMILY_DEDUCTION_CPPD"} set:{FEGLI_STANDARD_DEDUCTION_CPPD}'="" FDA(450,"+1,",228)={"FEGLI_STANDARD_DEDUCTION_CPPD"} set:{FEGLI_VA_SHARE_CPPD}'="" FDA(450,"+1,",229)={"FEGLI_VA_SHARE_CPPD"} set:{HEALTH_BENEFITS_DEDUCTION_CPPD}'="" FDA(450,"+1,",230)={"HEALTH_BENEFITS_DEDUCTION_CPPD"} set:{HEALTH_INSURANCE}'="" FDA(450,"+1,",231)={"HEALTH_INSURANCE"} set:{HEALTH_BENEFITS_NEXT_PPD_IND}'="" FDA(450,"+1,",232)={"HEALTH_BENEFITS_NEXT_PPD_IND"} set:{HEALTH_BENEFITS_PRORATION_IND}'="" FDA(450,"+1,",233)={"HEALTH_BENEFITS_PRORATION_IND"} set:{HEALTH_BENEFITS_ELIGIBILITY}'="" FDA(450,"+1,",234)={"HEALTH_BENEFITS_ELIGIBILITY"} set:{HEALTH_BENEFITS_VA_SHARE_CPPD}'="" FDA(450,"+1,",235)={"HEALTH_BENEFITS_VA_SHARE_CPPD"} set:{ACSB_ACS_AMT_CPPD}'="" FDA(450,"+1,",236)={"ACSB_ACS_AMT_CPPD"} set:{ACSB_BACK_PAY_BALANCE1}'="" FDA(450,"+1,",237)={"ACSB_BACK_PAY_BALANCE1"} set:{ACSB_BACK_PAY_BALANCE2}'="" FDA(450,"+1,",238)={"ACSB_BACK_PAY_BALANCE2"} set:{ACSB_BACK_PAY_DEDUCTION1}'="" FDA(450,"+1,",239)={"ACSB_BACK_PAY_DEDUCTION1"} set:{ACSB_BACK_PAY_DEDUCTION2}'="" FDA(450,"+1,",240)={"ACSB_BACK_PAY_DEDUCTION2"} set:{ACSB_BANKRUPTCY_AMT_CPPD}'="" FDA(450,"+1,",241)={"ACSB_BANKRUPTCY_AMT_CPPD"} set:{ACSB_CODE1}'="" FDA(450,"+1,",242)={"ACSB_CODE1"} set:{ACSB_CODE2}'="" FDA(450,"+1,",243)={"ACSB_CODE2"} set:{ACSB_CONTROL_NUMBER1}'="" FDA(450,"+1,",244)={"ACSB_CONTROL_NUMBER1"} set:{ACSB_CONTROL_NUMBER2}'="" FDA(450,"+1,",245)={"ACSB_CONTROL_NUMBER2"} set:{ACSB_CURRENT_ALLOTMENT1}'="" FDA(450,"+1,",246)={"ACSB_CURRENT_ALLOTMENT1"} set:{ACSB_CURRENT_ALLOTMENT2}'="" FDA(450,"+1,",247)={"ACSB_CURRENT_ALLOTMENT2"} set:{ACSB_FEDSTATE_PCT_FACTOR1}'="" FDA(450,"+1,",248)={"ACSB_FEDSTATE_PCT_FACTOR1"} set:{ACSB_FEDSTATE_PCT_FACTOR2}'="" FDA(450,"+1,",249)={"ACSB_FEDSTATE_PCT_FACTOR2"} set:{MEDICARE_AMT_WITHHELD_CPPD}'="" FDA(450,"+1,",250)={"MEDICARE_AMT_WITHHELD_CPPD"} set:{MEDICARE_AMT_WITHHELD_QTD}'="" FDA(450,"+1,",251)={"MEDICARE_AMT_WITHHELD_QTD"} set:{MEDICARE_AMT_WITHHELD_YTD}'="" FDA(450,"+1,",252)={"MEDICARE_AMT_WITHHELD_YTD"} set:{MEDICARE_GROSS_PAY_CPPD}'="" FDA(450,"+1,",253)={"MEDICARE_GROSS_PAY_CPPD"} set:{GROSS_PAY_QTD}'="" FDA(450,"+1,",254)={"GROSS_PAY_QTD"} set:{GROSS_PAY_YTD}'="" FDA(450,"+1,",255)={"GROSS_PAY_YTD"} set:{MEDICARE_STATUS_CODE}'="" FDA(450,"+1,",256)={"MEDICARE_STATUS_CODE"} set:{MEDICARE_WAGES_PRIOR_AGCY_YTD}'="" FDA(450,"+1,",257)={"MEDICARE_WAGES_PRIOR_AGCY_YTD"} set:{MSD_ACTION_CODE1}'="" FDA(450,"+1,",258)={"MSD_ACTION_CODE1"} set:{MSD_ACTION_CODE2}'="" FDA(450,"+1,",259)={"MSD_ACTION_CODE2"} set:{MSD_ACTION_CODE3}'="" FDA(450,"+1,",260)={"MSD_ACTION_CODE3"} set:{MSD_AMT_DUE_THIS_PERIOD1}'="" FDA(450,"+1,",261)={"MSD_AMT_DUE_THIS_PERIOD1"} set:{MSD_AMT_DUE_THIS_PERIOD2}'="" FDA(450,"+1,",262)={"MSD_AMT_DUE_THIS_PERIOD2"} set:{MSD_AMT_DUE_THIS_PERIOD3}'="" FDA(450,"+1,",263)={"MSD_AMT_DUE_THIS_PERIOD3"} set:{MSD_BRANCH_OF_SERVICE1}'="" FDA(450,"+1,",264)={"MSD_BRANCH_OF_SERVICE1"} set:{MSD_BRANCH_OF_SERVICE2}'="" FDA(450,"+1,",265)={"MSD_BRANCH_OF_SERVICE2"} set:{MSD_BRANCH_OF_SERVICE3}'="" FDA(450,"+1,",266)={"MSD_BRANCH_OF_SERVICE3"} set:{MSD_DATE_ENTERED_MIL_SVC1}'="" FDA(450,"+1,",267)={"MSD_DATE_ENTERED_MIL_SVC1"} set:{MSD_DATE_ENTERED_MIL_SVC2}'="" FDA(450,"+1,",268)={"MSD_DATE_ENTERED_MIL_SVC2"} set:{MSD_DATE_ENTERED_MIL_SVC3}'="" FDA(450,"+1,",269)={"MSD_DATE_ENTERED_MIL_SVC3"} set:{MSD_DATE_SEPARATED_MIL_SVC1}'="" FDA(450,"+1,",270)={"MSD_DATE_SEPARATED_MIL_SVC1"} set:{MSD_DATE_SEPARATED_MIL_SVC2}'="" FDA(450,"+1,",271)={"MSD_DATE_SEPARATED_MIL_SVC2"} set:{MSD_DATE_SEPARATED_MIL_SVC3}'="" FDA(450,"+1,",272)={"MSD_DATE_SEPARATED_MIL_SVC3"} set:{MSD_LOST_TIME1}'="" FDA(450,"+1,",273)={"MSD_LOST_TIME1"} set:{MSD_LOST_TIME2}'="" FDA(450,"+1,",274)={"MSD_LOST_TIME2"} set:{MSD_LOST_TIME3}'="" FDA(450,"+1,",275)={"MSD_LOST_TIME3"} set:{MSD_AMT_FOR_INTEREST_COMP}'="" FDA(450,"+1,",276)={"MSD_AMT_FOR_INTEREST_COMP"} set:{MSD_AMT_PAID_YTD}'="" FDA(450,"+1,",277)={"MSD_AMT_PAID_YTD"} set:{MSD_CASH_PAYMENT_DATE}'="" FDA(450,"+1,",278)={"MSD_CASH_PAYMENT_DATE"} set:{MSD_DEDUCTION_CPPD}'="" FDA(450,"+1,",279)={"MSD_DEDUCTION_CPPD"} set:{MSD_DEDUCTION_EPPD}'="" FDA(450,"+1,",280)={"MSD_DEDUCTION_EPPD"} set:{MSD_IND}'="" FDA(450,"+1,",281)={"MSD_IND"} set:{MSD_INTEREST_AMT_CCY}'="" FDA(450,"+1,",282)={"MSD_INTEREST_AMT_CCY"} set:{MSD_INTEREST_AMT_PCY}'="" FDA(450,"+1,",283)={"MSD_INTEREST_AMT_PCY"} set:{MSD_INTEREST_COMP_DATE}'="" FDA(450,"+1,",284)={"MSD_INTEREST_COMP_DATE"} set:{MSD_INTEREST_RATE_CCY}'="" FDA(450,"+1,",285)={"MSD_INTEREST_RATE_CCY"} set:{MSD_INTEREST_RATE_PCY}'="" FDA(450,"+1,",286)={"MSD_INTEREST_RATE_PCY"} set:{MSD_TOTAL_AMT_COLLECTED}'="" FDA(450,"+1,",287)={"MSD_TOTAL_AMT_COLLECTED"} set:{MSD_TOTAL_AMT_DUE}'="" FDA(450,"+1,",288)={"MSD_TOTAL_AMT_DUE"} set:{MSD_TOTAL_INTEREST_AMT}'="" FDA(450,"+1,",289)={"MSD_TOTAL_INTEREST_AMT"} set:{OASDI_TAX_AMT_WITHHELD_CPPD}'="" FDA(450,"+1,",290)={"OASDI_TAX_AMT_WITHHELD_CPPD"} set:{OASDI_TAX_AMT_WITHHELD_QTD}'="" FDA(450,"+1,",291)={"OASDI_TAX_AMT_WITHHELD_QTD"} set:{OASDI_TAX_AMT_WITHHELD_YTD}'="" FDA(450,"+1,",292)={"OASDI_TAX_AMT_WITHHELD_YTD"} set:{OASDI_TAX_GROSS_PAY_CPPD}'="" FDA(450,"+1,",293)={"OASDI_TAX_GROSS_PAY_CPPD"} set:{OASDI_TAX_GROSS_PAY_QTD}'="" FDA(450,"+1,",294)={"OASDI_TAX_GROSS_PAY_QTD"} set:{OASDI_TAX_GROSS_PAY_YTD}'="" FDA(450,"+1,",295)={"OASDI_TAX_GROSS_PAY_YTD"} set:{OASDI_TAX_VA_SHARE_CPPD}'="" FDA(450,"+1,",296)={"OASDI_TAX_VA_SHARE_CPPD"} set:{OASDI_TAX_VA_SHARE_QTD}'="" FDA(450,"+1,",297)={"OASDI_TAX_VA_SHARE_QTD"} set:{OASDI_TAX_VA_SHARE_YTD}'="" FDA(450,"+1,",298)={"OASDI_TAX_VA_SHARE_YTD"} set:{OASDI_WAGES_PRIOR_AGCY_YTD}'="" FDA(450,"+1,",299)={"OASDI_WAGES_PRIOR_AGCY_YTD"} set:{DEBT_DEPOSIT_ACCT_36F3875_CPPD}'="" FDA(450,"+1,",300)={"DEBT_DEPOSIT_ACCT_36F3875_CPPD"} set:{DEBT_DEPOSIT_ACCT_36X6875_CPPD}'="" FDA(450,"+1,",301)={"DEBT_DEPOSIT_ACCT_36X6875_CPPD"} set:{DEBT_REFUND_ACCT_36F3875_CPPD}'="" FDA(450,"+1,",302)={"DEBT_REFUND_ACCT_36F3875_CPPD"} set:{DEBT_REFUND_ACCT_36X6875_CPPD}'="" FDA(450,"+1,",303)={"DEBT_REFUND_ACCT_36X6875_CPPD"} set:{EMPLOYEE_PROVIDED_VEHICLE_VAL}'="" FDA(450,"+1,",304)={"EMPLOYEE_PROVIDED_VEHICLE_VAL"} set:{OCC_PRIV_TAX_DEDUCTION_IND}'="" FDA(450,"+1,",305)={"OCC_PRIV_TAX_DEDUCTION_IND"} set:{OTHER_DEDUCTION_BALANCE1}'="" FDA(450,"+1,",306)={"OTHER_DEDUCTION_BALANCE1"} set:{OTHER_DEDUCTION_BALANCE2}'="" FDA(450,"+1,",307)={"OTHER_DEDUCTION_BALANCE2"} set:{OTHER_DEDUCTION_BIWEEKLY_AMT1}'="" FDA(450,"+1,",308)={"OTHER_DEDUCTION_BIWEEKLY_AMT1"} set:{OTHER_DEDUCTION_BIWEEKLY_AMT2}'="" FDA(450,"+1,",309)={"OTHER_DEDUCTION_BIWEEKLY_AMT2"} set:{OTHER_DEDUCTION_CODE1}'="" FDA(450,"+1,",310)={"OTHER_DEDUCTION_CODE1"} set:{OTHER_DEDUCTION_CODE2}'="" FDA(450,"+1,",311)={"OTHER_DEDUCTION_CODE2"} set:{OTHER_TAX_FROZEN_CODE1}'="" FDA(450,"+1,",312)={"OTHER_TAX_FROZEN_CODE1"} set:{OTHER_TAX_FROZEN_CODE2}'="" FDA(450,"+1,",313)={"OTHER_TAX_FROZEN_CODE2"} set:{OTHER_TAX_GROSS_PAY_YTD1}'="" FDA(450,"+1,",314)={"OTHER_TAX_GROSS_PAY_YTD1"} set:{OTHER_TAX_GROSS_PAY_YTD2}'="" FDA(450,"+1,",315)={"OTHER_TAX_GROSS_PAY_YTD2"} set:{OTHER_TAX_GSA_CODE1}'="" FDA(450,"+1,",316)={"OTHER_TAX_GSA_CODE1"} set:{OTHER_TAX_GSA_CODE2}'="" FDA(450,"+1,",317)={"OTHER_TAX_GSA_CODE2"} set:{GARAGE_DEDUCTION_CPPD}'="" FDA(450,"+1,",318)={"GARAGE_DEDUCTION_CPPD"} set:{GARAGE_DEDUCTION_EPPD}'="" FDA(450,"+1,",319)={"GARAGE_DEDUCTION_EPPD"} set:{QUARTERS_NONHSKP_DED_CPPD}'="" FDA(450,"+1,",320)={"QUARTERS_NONHSKP_DED_CPPD"} set:{PARKING_DEDUCTION_CPPD}'="" FDA(450,"+1,",321)={"PARKING_DEDUCTION_CPPD"} set:{PARKING_DEDUCTION_EPPD}'="" FDA(450,"+1,",322)={"PARKING_DEDUCTION_EPPD"} set:{QUARTERS_CODE}'="" FDA(450,"+1,",323)={"QUARTERS_CODE"} set:{QUARTERS_DEDUCTION_EPPD}'="" FDA(450,"+1,",324)={"QUARTERS_DEDUCTION_EPPD"} set:{QUARTERS_DEDUCTION_CPPD}'="" FDA(450,"+1,",325)={"QUARTERS_DEDUCTION_CPPD"} set:{QUARTERS_STATION}'="" FDA(450,"+1,",326)={"QUARTERS_STATION"} set:{SUBSISTANCE_DEDUCTION_CPPD}'="" FDA(450,"+1,",327)={"SUBSISTANCE_DEDUCTION_CPPD"} set:{SUBSISTANCE_DEDUCTION_EPPD}'="" FDA(450,"+1,",328)={"SUBSISTANCE_DEDUCTION_EPPD"} set:{CSRS_DEDUCTION_EOPY}'="" FDA(450,"+1,",329)={"CSRS_DEDUCTION_EOPY"} set:{CSRS_DEDUCTION_YTD}'="" FDA(450,"+1,",330)={"CSRS_DEDUCTION_YTD"} set:{REEMP_ANNUITANT_DED_EOPY}'="" FDA(450,"+1,",331)={"REEMP_ANNUITANT_DED_EOPY"} set:{REEMP_ANNUITANT_DED_YTD}'="" FDA(450,"+1,",332)={"REEMP_ANNUITANT_DED_YTD"} set:{FERS_DEDUCTION_EOPY}'="" FDA(450,"+1,",333)={"FERS_DEDUCTION_EOPY"} set:{FERS_DEDUCTION_YTD}'="" FDA(450,"+1,",334)={"FERS_DEDUCTION_YTD"} set:{FERS_REDESIGNATED_CSRS_AMT}'="" FDA(450,"+1,",335)={"FERS_REDESIGNATED_CSRS_AMT"} set:{CSRS_REEMP_ANNUITANT_DED_CPPD}'="" FDA(450,"+1,",336)={"CSRS_REEMP_ANNUITANT_DED_CPPD"} set:{RETIREMENT_DED_CPPD}'="" FDA(450,"+1,",337)={"RETIREMENT_DED_CPPD"} set:{RETIREMENT_VA_SHARE_CPPD}'="" FDA(450,"+1,",338)={"RETIREMENT_VA_SHARE_CPPD"} set:{SAVINGS_ALLOTMENT1_AMT_EPPD}'="" FDA(450,"+1,",339)={"SAVINGS_ALLOTMENT1_AMT_EPPD"} set:{SAVINGS_ALLOTMENT1_AMT_CPPD}'="" FDA(450,"+1,",340)={"SAVINGS_ALLOTMENT1_AMT_CPPD"} set:{SAVINGS_ALLOTMENT2_AMT_EPPD}'="" FDA(450,"+1,",341)={"SAVINGS_ALLOTMENT2_AMT_EPPD"} set:{SAVINGS_ALLOTMENT2_AMT_CPPD}'="" FDA(450,"+1,",342)={"SAVINGS_ALLOTMENT2_AMT_CPPD"} set:{SAVINGS_BOND_DED_SUM_CPPD}'="" FDA(450,"+1,",343)={"SAVINGS_BOND_DED_SUM_CPPD"} set:{SAVINGS_BOND1_ADD_LINE1}'="" FDA(450,"+1,",344)={"SAVINGS_BOND1_ADD_LINE1"} set:{SAVINGS_BOND1_ADD_LINE2}'="" FDA(450,"+1,",345)={"SAVINGS_BOND1_ADD_LINE2"} set:{SAVINGS_BOND1_ADD_LINE3}'="" FDA(450,"+1,",346)={"SAVINGS_BOND1_ADD_LINE3"} set:{SAVINGS_BOND1_BALANCE}'="" FDA(450,"+1,",347)={"SAVINGS_BOND1_BALANCE"} set:{SAVINGS_BOND1_BENE_CODE}'="" FDA(450,"+1,",348)={"SAVINGS_BOND1_BENE_CODE"} set:{SAVINGS_BOND1_COOWNER}'="" FDA(450,"+1,",349)={"SAVINGS_BOND1_COOWNER"} set:{SAVINGS_BOND1_COOWNER_SSN}'="" FDA(450,"+1,",350)={"SAVINGS_BOND1_COOWNER_SSN"} set:{SAVINGS_BOND1_DED_BALANCE}'="" FDA(450,"+1,",351)={"SAVINGS_BOND1_DED_BALANCE"} set:{SAVINGS_BOND1_DED_EPPD}'="" FDA(450,"+1,",352)={"SAVINGS_BOND1_DED_EPPD"} set:{SAVINGS_BOND1_DENOMINATION}'="" FDA(450,"+1,",353)={"SAVINGS_BOND1_DENOMINATION"} set:{SAVINGS_BOND1_EFFECTIVE_DATE}'="" FDA(450,"+1,",354)={"SAVINGS_BOND1_EFFECTIVE_DATE"} set:{SAVINGS_BOND1_OWNER}'="" FDA(450,"+1,",355)={"SAVINGS_BOND1_OWNER"} set:{SAVINGS_BOND1_OWNER_SSN}'="" FDA(450,"+1,",356)={"SAVINGS_BOND1_OWNER_SSN"} set:{SAVINGS_BOND1_ZIP_CODE}'="" FDA(450,"+1,",357)={"SAVINGS_BOND1_ZIP_CODE"} set:{SAVINGS_BOND2_ADD_LINE1}'="" FDA(450,"+1,",358)={"SAVINGS_BOND2_ADD_LINE1"} set:{SAVINGS_BOND2_ADD_LINE2}'="" FDA(450,"+1,",359)={"SAVINGS_BOND2_ADD_LINE2"} set:{SAVINGS_BOND2_ADD_LINE3}'="" FDA(450,"+1,",360)={"SAVINGS_BOND2_ADD_LINE3"} set:{SAVINGS_BOND2_BALANCE}'="" FDA(450,"+1,",361)={"SAVINGS_BOND2_BALANCE"} set:{SAVINGS_BOND2_BENE_CODE}'="" FDA(450,"+1,",362)={"SAVINGS_BOND2_BENE_CODE"} set:{SAVINGS_BOND2_COOWNER}'="" FDA(450,"+1,",363)={"SAVINGS_BOND2_COOWNER"} set:{SAVINGS_BOND2_COOWNER_SSN}'="" FDA(450,"+1,",364)={"SAVINGS_BOND2_COOWNER_SSN"} set:{SAVINGS_BOND2_DED_BALANCE}'="" FDA(450,"+1,",365)={"SAVINGS_BOND2_DED_BALANCE"} set:{SAVINGS_BOND2_DED_EPPD}'="" FDA(450,"+1,",366)={"SAVINGS_BOND2_DED_EPPD"} set:{SAVINGS_BOND2_DENOMINATION}'="" FDA(450,"+1,",367)={"SAVINGS_BOND2_DENOMINATION"} set:{SAVINGS_BOND2_EFFECTIVE_DATE}'="" FDA(450,"+1,",368)={"SAVINGS_BOND2_EFFECTIVE_DATE"} set:{SAVINGS_BOND2_OWNER}'="" FDA(450,"+1,",369)={"SAVINGS_BOND2_OWNER"} set:{SAVINGS_BOND2_OWNER_SSN}'="" FDA(450,"+1,",370)={"SAVINGS_BOND2_OWNER_SSN"} set:{SAVINGS_BOND2_ZIP_CODE}'="" FDA(450,"+1,",371)={"SAVINGS_BOND2_ZIP_CODE"} set:{PUERTO_RICO_STATE_TAX_EXEMPT}'="" FDA(450,"+1,",372)={"PUERTO_RICO_STATE_TAX_EXEMPT"} set:{STATE_TAX1_ADDNL_AMT_WITHHELD}'="" FDA(450,"+1,",373)={"STATE_TAX1_ADDNL_AMT_WITHHELD"} set:{STATE_TAX1_AMT_WITHHELD_CTPTD}'="" FDA(450,"+1,",374)={"STATE_TAX1_AMT_WITHHELD_CTPTD"} set:{STATE_TAX1_AMT_WITHHELD_YTD}'="" FDA(450,"+1,",375)={"STATE_TAX1_AMT_WITHHELD_YTD"} set:{STATE_TAX1_AMT_WITHHELD_CPPD}'="" FDA(450,"+1,",376)={"STATE_TAX1_AMT_WITHHELD_CPPD"} set:{STATE_TAX1_EXEMPTION_CODE1}'="" FDA(450,"+1,",377)={"STATE_TAX1_EXEMPTION_CODE1"} set:{STATE_TAX1_EXEMPTION_CODE2}'="" FDA(450,"+1,",378)={"STATE_TAX1_EXEMPTION_CODE2"} set:{STATE_TAX1_GROSS_PAY_CTPTD}'="" FDA(450,"+1,",379)={"STATE_TAX1_GROSS_PAY_CTPTD"} set:{STATE_TAX1_GROSS_PAY_YTD}'="" FDA(450,"+1,",380)={"STATE_TAX1_GROSS_PAY_YTD"} set:{STATE_TAX1_GSA_CODE}'="" FDA(450,"+1,",381)={"STATE_TAX1_GSA_CODE"} set:{STATE_TAX1_MARITAL_STATUS}'="" FDA(450,"+1,",382)={"STATE_TAX1_MARITAL_STATUS"} set:{STATE_TAX1_RESIDENCE_STATE}'="" FDA(450,"+1,",383)={"STATE_TAX1_RESIDENCE_STATE"} set:{STATE_TAX2_ADDNL_AMT_WITHHELD}'="" FDA(450,"+1,",384)={"STATE_TAX2_ADDNL_AMT_WITHHELD"} set:{STATE_TAX2_AMT_WITHHELD_CTPTD}'="" FDA(450,"+1,",385)={"STATE_TAX2_AMT_WITHHELD_CTPTD"} set:{STATE_TAX2_AMT_WITHHELD_YTD}'="" FDA(450,"+1,",386)={"STATE_TAX2_AMT_WITHHELD_YTD"} set:{STATE_TAX2_AMT_WITHHELD_CPPD}'="" FDA(450,"+1,",387)={"STATE_TAX2_AMT_WITHHELD_CPPD"} set:{STATE_TAX2_EXEMPTION_CODE1}'="" FDA(450,"+1,",388)={"STATE_TAX2_EXEMPTION_CODE1"} set:{STATE_TAX2_EXEMPTION_CODE2}'="" FDA(450,"+1,",389)={"STATE_TAX2_EXEMPTION_CODE2"} set:{STATE_TAX2_GROSS_PAY_CTPTD}'="" FDA(450,"+1,",390)={"STATE_TAX2_GROSS_PAY_CTPTD"} set:{STATE_TAX2_GROSS_PAY_YTD}'="" FDA(450,"+1,",391)={"STATE_TAX2_GROSS_PAY_YTD"} set:{STATE_TAX2_GSA_CODE}'="" FDA(450,"+1,",392)={"STATE_TAX2_GSA_CODE"} set:{STATE_TAX2_MARITAL_STATUS}'="" FDA(450,"+1,",393)={"STATE_TAX2_MARITAL_STATUS"} set:{STATE_TAX2_RESIDENCE_STATE}'="" FDA(450,"+1,",394)={"STATE_TAX2_RESIDENCE_STATE"} set:{TSP_1PCT_GOV_CONTRIB_YTD}'="" FDA(450,"+1,",395)={"TSP_1PCT_GOV_CONTRIB_YTD"} set:{TSP_AMT_EPPD}'="" FDA(450,"+1,",396)={"TSP_AMT_EPPD"} set:{TSP_BASE_PAY_AMT_YTD}'="" FDA(450,"+1,",397)={"TSP_BASE_PAY_AMT_YTD"} set:{TSP_DED_PRIOR_APPT_YTD}'="" FDA(450,"+1,",398)={"TSP_DED_PRIOR_APPT_YTD"} set:{TSP_ELIG}'="" FDA(450,"+1,",399)={"TSP_ELIG"} set:{TSP_LOAN_ACCOUNT_NUMBER}'="" FDA(450,"+1,",400)={"TSP_LOAN_ACCOUNT_NUMBER"} set:{TSP_LOAN_DED_CPPD}'="" FDA(450,"+1,",401)={"TSP_LOAN_DED_CPPD"} set:{TSP_LOAN_DED_EPPD}'="" FDA(450,"+1,",402)={"TSP_LOAN_DED_EPPD"} set:{TSP_MASTER_RECORD_IND}'="" FDA(450,"+1,",403)={"TSP_MASTER_RECORD_IND"} set:{TSP_PCT_RATE}'="" FDA(450,"+1,",404)={"TSP_PCT_RATE"} set:{TSP_PRIOR_TAX_YEAR_ADJ_CODE}'="" FDA(450,"+1,",405)={"TSP_PRIOR_TAX_YEAR_ADJ_CODE"} set:{TSP_SERVICE_COMPU_DATE}'="" FDA(450,"+1,",406)={"TSP_SERVICE_COMPU_DATE"} set:{TSP_SEPARATION_CODE}'="" FDA(450,"+1,",407)={"TSP_SEPARATION_CODE"} set:{TSP_SEPARATION_DATE}'="" FDA(450,"+1,",408)={"TSP_SEPARATION_DATE"} set:{TSP_STATUS}'="" FDA(450,"+1,",409)={"TSP_STATUS"} set:{TSP_STATUS_DATE}'="" FDA(450,"+1,",410)={"TSP_STATUS_DATE"} set:{TSP_VA_DEPARTMENT_CODE}'="" FDA(450,"+1,",411)={"TSP_VA_DEPARTMENT_CODE"} set:{TSP_VESTING}'="" FDA(450,"+1,",412)={"TSP_VESTING"} set:{TSP_CSF_EMP_DED_CPPD}'="" FDA(450,"+1,",413)={"TSP_CSF_EMP_DED_CPPD"} set:{TSP_CSF_DIST_PCT}'="" FDA(450,"+1,",414)={"TSP_CSF_DIST_PCT"} set:{TSP_CSF_GOV_BASIC_CONTRIB}'="" FDA(450,"+1,",415)={"TSP_CSF_GOV_BASIC_CONTRIB"} set:{TSP_CSF_GOV_CONTRIB_DIST_PCT}'="" FDA(450,"+1,",416)={"TSP_CSF_GOV_CONTRIB_DIST_PCT"} set:{TSP_CSF_GOV_MATCH_CONTRIB}'="" FDA(450,"+1,",417)={"TSP_CSF_GOV_MATCH_CONTRIB"} set:{TSP_FIF_EMP_DED_CPPD}'="" FDA(450,"+1,",418)={"TSP_FIF_EMP_DED_CPPD"} set:{TSP_FIF_DIST_PCT}'="" FDA(450,"+1,",419)={"TSP_FIF_DIST_PCT"} set:{TSP_FIF_GOV_BASIC_CONTRIB}'="" FDA(450,"+1,",420)={"TSP_FIF_GOV_BASIC_CONTRIB"} set:{TSP_FIF_GOV_CONTRIB_DIST_PCT}'="" FDA(450,"+1,",421)={"TSP_FIF_GOV_CONTRIB_DIST_PCT"} set:{TSP_FIF_GOV_MATCH_CONTRIB}'="" FDA(450,"+1,",422)={"TSP_FIF_GOV_MATCH_CONTRIB"} set:{TSP_GSF_EMP_DED_CPPD}'="" FDA(450,"+1,",423)={"TSP_GSF_EMP_DED_CPPD"} set:{TSP_GSF_DIST_PCT}'="" FDA(450,"+1,",424)={"TSP_GSF_DIST_PCT"} set:{TSP_GSF_GOV_BASIC_CONTRIB}'="" FDA(450,"+1,",425)={"TSP_GSF_GOV_BASIC_CONTRIB"} set:{TSP_GSF_GOV_CONTRIB_DIST_PCT}'="" FDA(450,"+1,",426)={"TSP_GSF_GOV_CONTRIB_DIST_PCT"} set:{TSP_GSF_GOV_MATCH_CONTRIB}'="" FDA(450,"+1,",427)={"TSP_GSF_GOV_MATCH_CONTRIB"} set:{UNION_CODE1}'="" FDA(450,"+1,",428)={"UNION_CODE1"} set:{UNION_CODE2}'="" FDA(450,"+1,",429)={"UNION_CODE2"} set:{UNION_DUES_ANNIVERSARY_DATE}'="" FDA(450,"+1,",430)={"UNION_DUES_ANNIVERSARY_DATE"} set:{UNION_DUES1_DEDUCTION_CPPD}'="" FDA(450,"+1,",431)={"UNION_DUES1_DEDUCTION_CPPD"} set:{UNION_DUES1_DEDUCTION_EPPD}'="" FDA(450,"+1,",432)={"UNION_DUES1_DEDUCTION_EPPD"} set:{UNION_DUES2_DEDUCTION_CPPD}'="" FDA(450,"+1,",433)={"UNION_DUES2_DEDUCTION_CPPD"} set:{UNION_DUES2_DEDUCTION_EPPD}'="" FDA(450,"+1,",434)={"UNION_DUES2_DEDUCTION_EPPD"} set:{VOLUNTARY_ALLOTMENT1_AMT}'="" FDA(450,"+1,",435)={"VOLUNTARY_ALLOTMENT1_AMT"} set:{VOLUNTARY_ALLOTMENT_AMT_CPPD}'="" FDA(450,"+1,",436)={"VOLUNTARY_ALLOTMENT_AMT_CPPD"} set:{VOLUNTARY_ALLOTMENT1_CTRL_NO}'="" FDA(450,"+1,",437)={"VOLUNTARY_ALLOTMENT1_CTRL_NO"} set:{VOLUNTARY_ALLOTMENT2_AMT}'="" FDA(450,"+1,",438)={"VOLUNTARY_ALLOTMENT2_AMT"} set:{VOLUNTARY_ALLOTMENT2_CTRL_NO}'="" FDA(450,"+1,",439)={"VOLUNTARY_ALLOTMENT2_CTRL_NO"} set:{VOLUNTARY_ALLOTMENT3_AMT}'="" FDA(450,"+1,",439.1)={"VOLUNTARY_ALLOTMENT3_AMT"} set:{VOLUNTARY_ALLOTMENT3_CTRL_NO}'="" FDA(450,"+1,",439.2)={"VOLUNTARY_ALLOTMENT3_CTRL_NO"} set:{VOLUNTARY_ALLOTMENT4_AMT}'="" FDA(450,"+1,",439.3)={"VOLUNTARY_ALLOTMENT4_AMT"} set:{VOLUNTARY_ALLOTMENT4_CTRL_NO}'="" FDA(450,"+1,",439.4)={"VOLUNTARY_ALLOTMENT4_CTRL_NO"} set:{BANK_ACCOUNT_NUMBER}'="" FDA(450,"+1,",440)={"BANK_ACCOUNT_NUMBER"} set:{BANK_ACCOUNT_TYPE}'="" FDA(450,"+1,",441)={"BANK_ACCOUNT_TYPE"} set:{BANK_EFT_ROUTING_NUMBER}'="" FDA(450,"+1,",442)={"BANK_EFT_ROUTING_NUMBER"} set:{BULK_CHECK_OPTION}'="" FDA(450,"+1,",443)={"BULK_CHECK_OPTION"} set:{CHECK_DISTRIBUTION_CODE}'="" FDA(450,"+1,",444)={"CHECK_DISTRIBUTION_CODE"} set:{EARNED_INCOME_CREDIT_AMT_CPPD}'="" FDA(450,"+1,",445)={"EARNED_INCOME_CREDIT_AMT_CPPD"} set:{EARNED_INCOME_CREDIT_AMT_EPPD}'="" FDA(450,"+1,",446)={"EARNED_INCOME_CREDIT_AMT_EPPD"} set:{EARNED_INCOME_CREDIT_AMT_YTD}'="" FDA(450,"+1,",447)={"EARNED_INCOME_CREDIT_AMT_YTD"} set:{EARNED_INCOME_CREDIT_CODE}'="" FDA(450,"+1,",448)={"EARNED_INCOME_CREDIT_CODE"} set:{FINAL_PAY_IND}'="" FDA(450,"+1,",449)={"FINAL_PAY_IND"} set:{FTE_EQUIVALENT}'="" FDA(450,"+1,",450)={"FTE_EQUIVALENT"} set:{LABOR_DIST_CODE1_FUND_CTRL_PT}'="" FDA(450,"+1,",451)={"LABOR_DIST_CODE1_FUND_CTRL_PT"} set:{INTMT_EMP_DAYS_WORKED_PROB_PD}'="" FDA(450,"+1,",452)={"INTMT_EMP_DAYS_WORKED_PROB_PD"} set:{INTMT_EMP_DAYS_WORKED_STEP}'="" FDA(450,"+1,",453)={"INTMT_EMP_DAYS_WORKED_STEP"} set:{INTMT_EMP_DAYS_WORKED_YTD}'="" FDA(450,"+1,",454)={"INTMT_EMP_DAYS_WORKED_YTD"} set:{LAST_PPD_PROCESSED}'="" FDA(450,"+1,",455)={"LAST_PPD_PROCESSED"} set:{MONTHLY_ANNUITY}'="" FDA(450,"+1,",456)={"MONTHLY_ANNUITY"} set:{SEVERANCE_PAY_AMT_CPPD}'="" FDA(450,"+1,",457)={"SEVERANCE_PAY_AMT_CPPD"} set:{LABOR_DIST_CODE1_COST_CTRORG}'="" FDA(450,"+1,",458)={"LABOR_DIST_CODE1_COST_CTRORG"} set:{VERIFIED_FICAMED_WAGE_DIFF}'="" FDA(450,"+1,",459)={"VERIFIED_FICAMED_WAGE_DIFF"} set:{AL_NONACCRUAL_IND}'="" FDA(450,"+1,",460)={"AL_NONACCRUAL_IND"} set:{ANNUAL_LEAVE_CREDIT_HOURS}'="" FDA(450,"+1,",461)={"ANNUAL_LEAVE_CREDIT_HOURS"} set:{ANNUAL_LEAVE_CURRENT_BALANCE}'="" FDA(450,"+1,",462)={"ANNUAL_LEAVE_CURRENT_BALANCE"} set:{ANNUAL_LEAVE_EARNED_LYTD}'="" FDA(450,"+1,",463)={"ANNUAL_LEAVE_EARNED_LYTD"} set:{ANNUAL_LEAVE_EOPY_BALANCE}'="" FDA(450,"+1,",464)={"ANNUAL_LEAVE_EOPY_BALANCE"} set:{ANNUAL_LEAVE_USED_CPPD}'="" FDA(450,"+1,",465)={"ANNUAL_LEAVE_USED_CPPD"} set:{ANNUAL_LEAVE_USED_LYTD}'="" FDA(450,"+1,",466)={"ANNUAL_LEAVE_USED_LYTD"} set:{LEAVE_ACCRUAL_ELIG_IND_NPPD}'="" FDA(450,"+1,",467)={"LEAVE_ACCRUAL_ELIG_IND_NPPD"} set:{NONPAY_ANNUAL_LEAVE_USED_CPPD}'="" FDA(450,"+1,",468)={"NONPAY_ANNUAL_LEAVE_USED_CPPD"} set:{RESTORED_ANNUAL_LEAVE_BAL1}'="" FDA(450,"+1,",469)={"RESTORED_ANNUAL_LEAVE_BAL1"} set:{RESTORED_ANNUAL_LEAVE_BAL2}'="" FDA(450,"+1,",470)={"RESTORED_ANNUAL_LEAVE_BAL2"} set:{RESTORED_ANNUAL_LEAVE_YEAR1}'="" FDA(450,"+1,",471)={"RESTORED_ANNUAL_LEAVE_YEAR1"} set:{RESTORED_ANNUAL_LEAVE_YEAR2}'="" FDA(450,"+1,",472)={"RESTORED_ANNUAL_LEAVE_YEAR2"} set:{BAYLOR_PLAN_AL_CURRENT_BAL}'="" FDA(450,"+1,",473)={"BAYLOR_PLAN_AL_CURRENT_BAL"} set:{BAYLOR_PLAN_AL_EOPY_BAL}'="" FDA(450,"+1,",474)={"BAYLOR_PLAN_AL_EOPY_BAL"} set:{BAYLOR_PLAN_AL_USED_LYTD}'="" FDA(450,"+1,",475)={"BAYLOR_PLAN_AL_USED_LYTD"} set:{BAYLOR_PLAN_LWOP_CCY}'="" FDA(450,"+1,",476)={"BAYLOR_PLAN_LWOP_CCY"} set:{BAYLOR_PLAN_LWOP_LYTD}'="" FDA(450,"+1,",477)={"BAYLOR_PLAN_LWOP_LYTD"} set:{BAYLOR_PLAN_LWOP_PROB_PD}'="" FDA(450,"+1,",478)={"BAYLOR_PLAN_LWOP_PROB_PD"} set:{BAYLOR_PLAN_LWOP_SINCE_PROM}'="" FDA(450,"+1,",479)={"BAYLOR_PLAN_LWOP_SINCE_PROM"} set:{BAYLOR_PLAN_LWOP_THIS_STEP}'="" FDA(450,"+1,",480)={"BAYLOR_PLAN_LWOP_THIS_STEP"} set:{BAYLOR_PLAN_RESTORED_AL_BAL1}'="" FDA(450,"+1,",481)={"BAYLOR_PLAN_RESTORED_AL_BAL1"} set:{BAYLOR_PLAN_RESTORED_AL_BAL2}'="" FDA(450,"+1,",482)={"BAYLOR_PLAN_RESTORED_AL_BAL2"} set:{BAYLOR_PLAN_RESTORED_AL_YEAR1}'="" FDA(450,"+1,",483)={"BAYLOR_PLAN_RESTORED_AL_YEAR1"} set:{BAYLOR_PLAN_RESTORED_AL_YEAR2}'="" FDA(450,"+1,",484)={"BAYLOR_PLAN_RESTORED_AL_YEAR2"} set:{BAYLOR_PLAN_SL_CURRENT_BAL}'="" FDA(450,"+1,",485)={"BAYLOR_PLAN_SL_CURRENT_BAL"} set:{BAYLOR_PLAN_SL_EOPY_BAL}'="" FDA(450,"+1,",486)={"BAYLOR_PLAN_SL_EOPY_BAL"} set:{BAYLOR_PLAN_SL_USED_LYTD}'="" FDA(450,"+1,",487)={"BAYLOR_PLAN_SL_USED_LYTD"} set:{COMPTIMECREDIT_HRS_BAL_PPD1}'="" FDA(450,"+1,",488)={"COMPTIMECREDIT_HRS_BAL_PPD1"} set:{COMPTIMECREDIT_HRS_BAL_PPD2}'="" FDA(450,"+1,",489)={"COMPTIMECREDIT_HRS_BAL_PPD2"} set:{COMPTIMECREDIT_HRS_BAL_PPD3}'="" FDA(450,"+1,",490)={"COMPTIMECREDIT_HRS_BAL_PPD3"} set:{COMPTIMECREDIT_HRS_BAL_PPD4}'="" FDA(450,"+1,",491)={"COMPTIMECREDIT_HRS_BAL_PPD4"} set:{COMPTIMECREDIT_HRS_BAL_PPD5}'="" FDA(450,"+1,",492)={"COMPTIMECREDIT_HRS_BAL_PPD5"} set:{COMPTIMECREDIT_HRS_BAL_PPD6}'="" FDA(450,"+1,",493)={"COMPTIMECREDIT_HRS_BAL_PPD6"} set:{COMPTIMECREDIT_HRS_BAL_PPD7}'="" FDA(450,"+1,",494)={"COMPTIMECREDIT_HRS_BAL_PPD7"} set:{COMPTIMECREDIT_HRS_BAL_PPD8}'="" FDA(450,"+1,",495)={"COMPTIMECREDIT_HRS_BAL_PPD8"} set:{COMPTIMECREDIT_HRS_BALANCE}'="" FDA(450,"+1,",496)={"COMPTIMECREDIT_HRS_BALANCE"} set:{COMPTIMECREDIT_HRS_PPD1_NAME}'="" FDA(450,"+1,",497)={"COMPTIMECREDIT_HRS_PPD1_NAME"} set:{COMPTIMECREDIT_HRS_PPD2_NAME}'="" FDA(450,"+1,",498)={"COMPTIMECREDIT_HRS_PPD2_NAME"} set:{COMPTIMECREDIT_HRS_PPD3_NAME}'="" FDA(450,"+1,",499)={"COMPTIMECREDIT_HRS_PPD3_NAME"} set:{COMPTIMECREDIT_HRS_PPD4_NAME}'="" FDA(450,"+1,",500)={"COMPTIMECREDIT_HRS_PPD4_NAME"} set:{COMPTIMECREDIT_HRS_PPD5_NAME}'="" FDA(450,"+1,",501)={"COMPTIMECREDIT_HRS_PPD5_NAME"} set:{COMPTIMECREDIT_HRS_PPD6_NAME}'="" FDA(450,"+1,",502)={"COMPTIMECREDIT_HRS_PPD6_NAME"} set:{COMPTIMECREDIT_HRS_PPD7_NAME}'="" FDA(450,"+1,",503)={"COMPTIMECREDIT_HRS_PPD7_NAME"} set:{COMPTIMECREDIT_HRS_PPD8_NAME}'="" FDA(450,"+1,",504)={"COMPTIMECREDIT_HRS_PPD8_NAME"} set:{COMPTIMECREDIT_HRS_USED_CPPD}'="" FDA(450,"+1,",505)={"COMPTIMECREDIT_HRS_USED_CPPD"} set:{MILITARY_LEAVE_BALANCE}'="" FDA(450,"+1,",506)={"MILITARY_LEAVE_BALANCE"} set:{MILITARY_LEAVE_ELIGIBILITY_IND}'="" FDA(450,"+1,",507)={"MILITARY_LEAVE_ELIGIBILITY_IND"} set:{MILITARY_LEAVE_TYPE}'="" FDA(450,"+1,",507.1)={"MILITARY_LEAVE_TYPE"} set:{MILITARY_LEAVE_USED_CPPD}'="" FDA(450,"+1,",507.2)={"MILITARY_LEAVE_USED_CPPD"} set:{FROZEN_SICK_LEAVE}'="" FDA(450,"+1,",508)={"FROZEN_SICK_LEAVE"} set:{TOTAL_SICK_LEAVE_CREDIT_HOURS}'="" FDA(450,"+1,",509)={"TOTAL_SICK_LEAVE_CREDIT_HOURS"} set:{TOTAL_SICK_LEAVE_BALANCE}'="" FDA(450,"+1,",510)={"TOTAL_SICK_LEAVE_BALANCE"} set:{TOTAL_SICK_LEAVE_EARNED}'="" FDA(450,"+1,",511)={"TOTAL_SICK_LEAVE_EARNED"} set:{TOTAL_SICK_LEAVE_EOPY_BALANCE}'="" FDA(450,"+1,",512)={"TOTAL_SICK_LEAVE_EOPY_BALANCE"} set:{TOTAL_SICK_LEAVE_USED_CPPD}'="" FDA(450,"+1,",513)={"TOTAL_SICK_LEAVE_USED_CPPD"} set:{TOTAL_SICK_LEAVE_USED_LYTD}'="" FDA(450,"+1,",514)={"TOTAL_SICK_LEAVE_USED_LYTD"} set:{EXTENDED_LWOP_IND}'="" FDA(450,"+1,",515)={"EXTENDED_LWOP_IND"} set:{INTERAGENCY_LWOP_IND}'="" FDA(450,"+1,",516)={"INTERAGENCY_LWOP_IND"} set:{LWOP_CCY}'="" FDA(450,"+1,",517)={"LWOP_CCY"} set:{LWOP_CONTROL_UNITS_LYTD}'="" FDA(450,"+1,",518)={"LWOP_CONTROL_UNITS_LYTD"} set:{LWOP_HOURSDAYS_CPPD}'="" FDA(450,"+1,",519)={"LWOP_HOURSDAYS_CPPD"} set:{LWOP_LYTD}'="" FDA(450,"+1,",520)={"LWOP_LYTD"} set:{LWOP_PROB_PD}'="" FDA(450,"+1,",521)={"LWOP_PROB_PD"} set:{LWOP_SINCE_PROM}'="" FDA(450,"+1,",522)={"LWOP_SINCE_PROM"} set:{LWOP_THIS_STEP}'="" FDA(450,"+1,",523)={"LWOP_THIS_STEP"} set:{LWOP_WGPW_PYTD}'="" FDA(450,"+1,",524)={"LWOP_WGPW_PYTD"} set:{ANNUAL_LEAVE_LUMP_SUM_AMT}'="" FDA(450,"+1,",525)={"ANNUAL_LEAVE_LUMP_SUM_AMT"} set:{ANNUAL_LEAVE_LUMP_SUM_HRSDAYS}'="" FDA(450,"+1,",526)={"ANNUAL_LEAVE_LUMP_SUM_HRSDAYS"} set:{COLA_AMT_CPPD}'="" FDA(450,"+1,",527)={"COLA_AMT_CPPD"} set:{COLA_AMT_YTD}'="" FDA(450,"+1,",528)={"COLA_AMT_YTD"} set:{COLA}'="" FDA(450,"+1,",529)={"COLA"} set:{UNSCHEDULED_HOURS}'="" FDA(450,"+1,",530)={"UNSCHEDULED_HOURS"} set:{FLSA_OVERTIME_WEEK_CODE_CPPD}'="" FDA(450,"+1,",531)={"FLSA_OVERTIME_WEEK_CODE_CPPD"} set:{MOVING_EXPENSES_CPPD}'="" FDA(450,"+1,",532)={"MOVING_EXPENSES_CPPD"} set:{PURCHASE_AND_HIRE_CASH_PAYMENT}'="" FDA(450,"+1,",533)={"PURCHASE_AND_HIRE_CASH_PAYMENT"} set:{BASE_PAY_AMT_PRIOR_TO_RET_COV}'="" FDA(450,"+1,",534)={"BASE_PAY_AMT_PRIOR_TO_RET_COV"} set:{BASE_PAY_CHANGE_PPD}'="" FDA(450,"+1,",535)={"BASE_PAY_CHANGE_PPD"} set:{BASE_PAY_CHANGE_YEAR}'="" FDA(450,"+1,",536)={"BASE_PAY_CHANGE_YEAR"} set:{BASE_PAY_CPPD}'="" FDA(450,"+1,",537)={"BASE_PAY_CPPD"} set:{REEMP_ANNUITANT_BASE_PAY_REDUC}'="" FDA(450,"+1,",538)={"REEMP_ANNUITANT_BASE_PAY_REDUC"} set:{BASE_PAY_SUBJECT_TO_CSRS}'="" FDA(450,"+1,",539)={"BASE_PAY_SUBJECT_TO_CSRS"} set:{GROSS_PAY_CPPD}'="" FDA(450,"+1,",540)={"GROSS_PAY_CPPD"} set:{NET_PAY_CPPD}'="" FDA(450,"+1,",541)={"NET_PAY_CPPD"} set:{NET_PAY_OUTOFSYSTEM_AMT_CPPD}'="" FDA(450,"+1,",542)={"NET_PAY_OUTOFSYSTEM_AMT_CPPD"} set:{AUO_AMT_CPPD}'="" FDA(450,"+1,",543)={"AUO_AMT_CPPD"} set:{AUO_PERCENT}'="" FDA(450,"+1,",544)={"AUO_PERCENT"} set:{ENVIRONMENTAL_HAZARD_HRS_CPPD}'="" FDA(450,"+1,",545)={"ENVIRONMENTAL_HAZARD_HRS_CPPD"} set:{HOLIDAY_AMT}'="" FDA(450,"+1,",546)={"HOLIDAY_AMT"} set:{HOLIDAY_HOURS}'="" FDA(450,"+1,",547)={"HOLIDAY_HOURS"} set:{PREMIUM_PAY_IND}'="" FDA(450,"+1,",548)={"PREMIUM_PAY_IND"} set:{NIGHT_DIFF_AMT_CPPD}'="" FDA(450,"+1,",549)={"NIGHT_DIFF_AMT_CPPD"} set:{NIGHT_DIFF_HRS_CPPD}'="" FDA(450,"+1,",550)={"NIGHT_DIFF_HRS_CPPD"} set:{NIGHT_DIFF_IND}'="" FDA(450,"+1,",551)={"NIGHT_DIFF_IND"} set:{ON_CALL_AMT_CPPD}'="" FDA(450,"+1,",552)={"ON_CALL_AMT_CPPD"} set:{ON_CALL_HRS_CPPD}'="" FDA(450,"+1,",553)={"ON_CALL_HRS_CPPD"} set:{OVERTIME_AMT_CPPD}'="" FDA(450,"+1,",554)={"OVERTIME_AMT_CPPD"} set:{OVERTIME_HOURS_CPPD}'="" FDA(450,"+1,",555)={"OVERTIME_HOURS_CPPD"} set:{PREMIUM_PAY_PCT}'="" FDA(450,"+1,",556)={"PREMIUM_PAY_PCT"} set:{POST_DIFF_AMT_CPPD}'="" FDA(450,"+1,",557)={"POST_DIFF_AMT_CPPD"} set:{SATURDAY_AMT_CPPD}'="" FDA(450,"+1,",558)={"SATURDAY_AMT_CPPD"} set:{STANDBY_AMT_CPPD}'="" FDA(450,"+1,",559)={"STANDBY_AMT_CPPD"} set:{SUNDAY_AMT_CPPD}'="" FDA(450,"+1,",560)={"SUNDAY_AMT_CPPD"} set:{SUNDAY_HRS_CPPD}'="" FDA(450,"+1,",561)={"SUNDAY_HRS_CPPD"} set:{REG_HOURS_AT_OT_RATE}'="" FDA(450,"+1,",562)={"REG_HOURS_AT_OT_RATE"} set:{UNIFORM_ALLOWANCE_AMT_CPPD}'="" FDA(450,"+1,",563)={"UNIFORM_ALLOWANCE_AMT_CPPD"} set:{UNIFORM_ALLOWANCE_EFF_DATE}'="" FDA(450,"+1,",564)={"UNIFORM_ALLOWANCE_EFF_DATE"} set:{UNIFORM_ALLOWANCE_HOURLY_RATE}'="" FDA(450,"+1,",565)={"UNIFORM_ALLOWANCE_HOURLY_RATE"} set:{VCS_301_COST_ACCOUNT}'="" FDA(450,"+1,",566)={"VCS_301_COST_ACCOUNT"} set:{VCS_302_COST_ACCOUNT}'="" FDA(450,"+1,",567)={"VCS_302_COST_ACCOUNT"} set:{VCS_303_COST_ACCOUNT}'="" FDA(450,"+1,",568)={"VCS_303_COST_ACCOUNT"} set:{VCS_304_COST_ACCOUNT}'="" FDA(450,"+1,",569)={"VCS_304_COST_ACCOUNT"} set:{VCS_601_COST_ACCOUNT}'="" FDA(450,"+1,",570)={"VCS_601_COST_ACCOUNT"} set:{VCS_601_COST_ACCOUNT_SUBCODE}'="" FDA(450,"+1,",571)={"VCS_601_COST_ACCOUNT_SUBCODE"} set:{VCS_701_COST_ACCOUNT}'="" FDA(450,"+1,",572)={"VCS_701_COST_ACCOUNT"} set:{VCS_702_COST_ACCOUNT}'="" FDA(450,"+1,",573)={"VCS_702_COST_ACCOUNT"} set:{VCS_703_COST_ACCOUNT}'="" FDA(450,"+1,",574)={"VCS_703_COST_ACCOUNT"} set:{VCS_704_COST_ACCOUNT}'="" FDA(450,"+1,",575)={"VCS_704_COST_ACCOUNT"} set:{VCS_706_COST_ACCOUNT}'="" FDA(450,"+1,",576)={"VCS_706_COST_ACCOUNT"} set:{VCS_709_COST_ACCOUNT}'="" FDA(450,"+1,",577)={"VCS_709_COST_ACCOUNT"} set:{VCS_ADDNL_OPTIONAL_LIFE_INS}'="" FDA(450,"+1,",578)={"VCS_ADDNL_OPTIONAL_LIFE_INS"} set:{VCS_AREA}'="" FDA(450,"+1,",579)={"VCS_AREA"} set:{VCS_BASIC_LIFE_INS_UNITS}'="" FDA(450,"+1,",580)={"VCS_BASIC_LIFE_INS_UNITS"} set:{VCS_COMMISSION_PERCENT}'="" FDA(450,"+1,",581)={"VCS_COMMISSION_PERCENT"} set:{VCS_HRLY_RATE_FOR_LEAVEHOL}'="" FDA(450,"+1,",582)={"VCS_HRLY_RATE_FOR_LEAVEHOL"} set:{VCS_LEAVE_COST_ADJUSTMENT_AMT}'="" FDA(450,"+1,",583)={"VCS_LEAVE_COST_ADJUSTMENT_AMT"} set:{VCS_LEAVE_LIABILITY}'="" FDA(450,"+1,",584)={"VCS_LEAVE_LIABILITY"} set:{VCS_MINWAGE_CD_PW_CPPD}'="" FDA(450,"+1,",585)={"VCS_MINWAGE_CD_PW_CPPD"} set:{VCS_SALE_SUM_PW_CPPD}'="" FDA(450,"+1,",586)={"VCS_SALE_SUM_PW_CPPD"} set:{VCS_ALLOTMENT_AMT}'="" FDA(450,"+1,",586.1)={"VCS_ALLOTMENT_AMT"} set:{INCENTIVE_AWARD}'="" FDA(450,"+1,",587)={"INCENTIVE_AWARD"} set:{PERFORMANCE_AWARD}'="" FDA(450,"+1,",587.1)={"PERFORMANCE_AWARD"} set:{TRAVEL_SAVINGS_AWARD}'="" FDA(450,"+1,",587.2)={"TRAVEL_SAVINGS_AWARD"} set:{PMRS_PERFORMANCE_AWARD_AMT}'="" FDA(450,"+1,",588)={"PMRS_PERFORMANCE_AWARD_AMT"} set:{SES_PERFORMANCE_AWARD_AMT_CPPD}'="" FDA(450,"+1,",589)={"SES_PERFORMANCE_AWARD_AMT_CPPD"} set:{DUTY_STATION}'="" FDA(450,"+1,",590)={"DUTY_STATION"} set:{NORMAL_HOURS}'="" FDA(450,"+1,",591)={"NORMAL_HOURS"} set:{ANNUAL_LEAVE_USED_CPPD_HOURS}'="" FDA(450,"+1,",592)={"ANNUAL_LEAVE_USED_CPPD_HOURS"} set:{TOTAL_SICK_LEAVE_HRS_USED_CPPD}'="" FDA(450,"+1,",593)={"TOTAL_SICK_LEAVE_HRS_USED_CPPD"} set:{GROSS_PAY_PLUS_BENEFITS_CPPD}'="" FDA(450,"+1,",594)={"GROSS_PAY_PLUS_BENEFITS_CPPD"} set:{RELOCATION_BONUS}'="" FDA(450,"+1,",595)={"RELOCATION_BONUS"} set:{RECRUITMENT_BONUS}'="" FDA(450,"+1,",596)={"RECRUITMENT_BONUS"} set:{HAZARD_PAY_DIFFERENTIAL}'="" FDA(450,"+1,",597)={"HAZARD_PAY_DIFFERENTIAL"} set:{NONPAY_HOURS_CPPD}'="" FDA(450,"+1,",598)={"NONPAY_HOURS_CPPD"} set:{LWOP_HOURS_CPPD}'="" FDA(450,"+1,",599)={"LWOP_HOURS_CPPD"} set:{WGI_DUE_DATE}'="" FDA(450,"+1,",600)={"WGI_DUE_DATE"} set:{SPECIALIZED_SKILLS_IND}'="" FDA(450,"+1,",601)={"SPECIALIZED_SKILLS_IND"} set:{ANNUITANT_IND}'="" FDA(450,"+1,",602)={"ANNUITANT_IND"} set:{VET_STATUS}'="" FDA(450,"+1,",603)={"VET_STATUS"} set:{LEVEL604}'="" FDA(450,"+1,",604)={"LEVEL604"} set:{SCHEDULE_NUMBER}'="" FDA(450,"+1,",605)={"SCHEDULE_NUMBER"} set:{STAFFING_DIFFERENTIAL_PCT}'="" FDA(450,"+1,",606)={"STAFFING_DIFFERENTIAL_PCT"} set:{STAFFING_DIFFERENTIAL}'="" FDA(450,"+1,",606.1)={"STAFFING_DIFFERENTIAL"} set:{SUPERVISORY_DIFFERENTIAL}'="" FDA(450,"+1,",607)={"SUPERVISORY_DIFFERENTIAL"} set:{SUPERVISORY_DIFFERENTIAL_CPPD}'="" FDA(450,"+1,",607.1)={"SUPERVISORY_DIFFERENTIAL_CPPD"} set:{RETENTION_ALLOWANCE_PCT}'="" FDA(450,"+1,",608)={"RETENTION_ALLOWANCE_PCT"} set:{RETENTION_ALLOWANCE}'="" FDA(450,"+1,",608.1)={"RETENTION_ALLOWANCE"} set:{JOB_SHARE}'="" FDA(450,"+1,",609)={"JOB_SHARE"} set:{OVERTIME_HOURS_WK_1}'="" FDA(450,"+1,",610)={"OVERTIME_HOURS_WK_1"} set:{OVERTIME_HOURS_WK_2}'="" FDA(450,"+1,",611)={"OVERTIME_HOURS_WK_2"} set:{OVERTIME_AMT_WK_1}'="" FDA(450,"+1,",612)={"OVERTIME_AMT_WK_1"} set:{OVERTIME_AMT_WK_2}'="" FDA(450,"+1,",613)={"OVERTIME_AMT_WK_2"} set:{HRS_EXCESS_8_DAY_WK_1}'="" FDA(450,"+1,",614)={"HRS_EXCESS_8_DAY_WK_1"} set:{HRS_EXCESS_8_DAY_WK_2}'="" FDA(450,"+1,",615)={"HRS_EXCESS_8_DAY_WK_2"} set:{HRS_EXCESS_8_DAY_AMT_WK_1}'="" FDA(450,"+1,",616)={"HRS_EXCESS_8_DAY_AMT_WK_1"} set:{HRS_EXCESS_8_DAY_AMT_WK_2}'="" FDA(450,"+1,",617)={"HRS_EXCESS_8_DAY_AMT_WK_2"} set:{REG_HOURS_AT_OT_RATE_WK_1}'="" FDA(450,"+1,",618)={"REG_HOURS_AT_OT_RATE_WK_1"} set:{REG_HOURS_AT_OT_RATE_WK_2}'="" FDA(450,"+1,",619)={"REG_HOURS_AT_OT_RATE_WK_2"} set:{REG_HOURS_AT_OT_RATE_AMT_WK_1}'="" FDA(450,"+1,",620)={"REG_HOURS_AT_OT_RATE_AMT_WK_1"} set:{REG_HOURS_AT_OT_RATE_AMT_WK_2}'="" FDA(450,"+1,",621)={"REG_HOURS_AT_OT_RATE_AMT_WK_2"} set:{NONOVERTIME_HOURS}'="" FDA(450,"+1,",622)={"NONOVERTIME_HOURS"} set:{NONOVERTIME_AMT}'="" FDA(450,"+1,",623)={"NONOVERTIME_AMT"} set:{OT_ON_HOL_HOURS}'="" FDA(450,"+1,",624)={"OT_ON_HOL_HOURS"} set:{OT_ON_HOL_AMT}'="" FDA(450,"+1,",625)={"OT_ON_HOL_AMT"} set:{TRAINING_WK_1}'="" FDA(450,"+1,",626)={"TRAINING_WK_1"} set:{TRAINING_WK_2}'="" FDA(450,"+1,",627)={"TRAINING_WK_2"} set:{TRAVEL_HOURS_WK_1}'="" FDA(450,"+1,",628)={"TRAVEL_HOURS_WK_1"} set:{TRAVEL_HOURS_WK_2}'="" FDA(450,"+1,",629)={"TRAVEL_HOURS_WK_2"} set:{TRAVEL_OVERTIME_WK_1}'="" FDA(450,"+1,",630)={"TRAVEL_OVERTIME_WK_1"} set:{TRAVEL_OVERTIME_WK_2}'="" FDA(450,"+1,",631)={"TRAVEL_OVERTIME_WK_2"} set:{TELEWORK_INDICATOR}'="" FDA(450,"+1,",634)={"TELEWORK_INDICATOR"} set:{NEW_PERSON}'="" FDA(450,"+1,",700)={"NEW_PERSON"} set:{GEOGRAPHIC_LOCATION_PAY}'="" FDA(450,"+1,",701)={"GEOGRAPHIC_LOCATION_PAY"} set:{EXCEPTIONAL_QUALIFICATIONS}'="" FDA(450,"+1,",702)={"EXCEPTIONAL_QUALIFICATIONS"} set:{POSITION_RESPONSIBILITY}'="" FDA(450,"+1,",703)={"POSITION_RESPONSIBILITY"} set:{SCARCE_SPECIALTY_PAY}'="" FDA(450,"+1,",704)={"SCARCE_SPECIALTY_PAY"} set:{PHYSICIAN_AND_DENTIST_PAY_CAP}'="" FDA(450,"+1,",705)={"PHYSICIAN_AND_DENTIST_PAY_CAP"} set:{TAX_GARNISHMENT1}'="" FDA(450,"+1,",706)={"TAX_GARNISHMENT1"} set:{TAX_GARNISHMENT2}'="" FDA(450,"+1,",707)={"TAX_GARNISHMENT2"} set:{COMMERCIAL_GARNISHMENT1}'="" FDA(450,"+1,",708)={"COMMERCIAL_GARNISHMENT1"} set:{COMMERCIAL_GARNISHMENT2}'="" FDA(450,"+1,",709)={"COMMERCIAL_GARNISHMENT2"} set:{CAREBEREAVE_LEAVE_USED_CPPD}'="" FDA(450,"+1,",710)={"CAREBEREAVE_LEAVE_USED_CPPD"} set:{CAREBEREAVE_LEAVE_USED_LYTD}'="" FDA(450,"+1,",711)={"CAREBEREAVE_LEAVE_USED_LYTD"} set:{ADOPTION_LEAVE_USED_CPPD}'="" FDA(450,"+1,",712)={"ADOPTION_LEAVE_USED_CPPD"} set:{ADOPTION_LEAVE_USED_LYTD}'="" FDA(450,"+1,",713)={"ADOPTION_LEAVE_USED_LYTD"} set:{OTHER_SICK_LEAVE_USED_CPPD}'="" FDA(450,"+1,",714)={"OTHER_SICK_LEAVE_USED_CPPD"} set:{OTHER_SICK_LEAVE_USED_LYTD}'="" FDA(450,"+1,",715)={"OTHER_SICK_LEAVE_USED_LYTD"} set:{DONOR_LEAVE_USED_CPPD}'="" FDA(450,"+1,",716)={"DONOR_LEAVE_USED_CPPD"} set:{DONOR_LEAVE_USED_LYTD}'="" FDA(450,"+1,",717)={"DONOR_LEAVE_USED_LYTD"} set:{SAVINGS_BOND1_TYPE}'="" FDA(450,"+1,",718)={"SAVINGS_BOND1_TYPE"} set:{SAVINGS_BOND2_TYPE}'="" FDA(450,"+1,",719)={"SAVINGS_BOND2_TYPE"} set:{SAVINGS_BOND3_ADD_LINE1}'="" FDA(450,"+1,",720)={"SAVINGS_BOND3_ADD_LINE1"} set:{SAVINGS_BOND3_ADD_LINE2}'="" FDA(450,"+1,",721)={"SAVINGS_BOND3_ADD_LINE2"} set:{SAVINGS_BOND3_ADD_LINE3}'="" FDA(450,"+1,",722)={"SAVINGS_BOND3_ADD_LINE3"} set:{SAVINGS_BOND3_BALANCE}'="" FDA(450,"+1,",723)={"SAVINGS_BOND3_BALANCE"} set:{SAVINGS_BOND3_BENE_CODE}'="" FDA(450,"+1,",724)={"SAVINGS_BOND3_BENE_CODE"} set:{SAVINGS_BOND3_COOWNER}'="" FDA(450,"+1,",725)={"SAVINGS_BOND3_COOWNER"} set:{SAVINGS_BOND3_COOWNER_SSN}'="" FDA(450,"+1,",726)={"SAVINGS_BOND3_COOWNER_SSN"} set:{SAVINGS_BOND3_DED_BALANCE}'="" FDA(450,"+1,",727)={"SAVINGS_BOND3_DED_BALANCE"} set:{SAVINGS_BOND3_DED_EPPD}'="" FDA(450,"+1,",728)={"SAVINGS_BOND3_DED_EPPD"} set:{SAVINGS_BOND3_DENOMINATION}'="" FDA(450,"+1,",729)={"SAVINGS_BOND3_DENOMINATION"} set:{SAVINGS_BOND3_EFFECTIVE_DATE}'="" FDA(450,"+1,",730)={"SAVINGS_BOND3_EFFECTIVE_DATE"} set:{SAVINGS_BOND3_OWNER}'="" FDA(450,"+1,",731)={"SAVINGS_BOND3_OWNER"} set:{SAVINGS_BOND3_OWNER_SSN}'="" FDA(450,"+1,",732)={"SAVINGS_BOND3_OWNER_SSN"} set:{SAVINGS_BOND3_ZIP_CODE}'="" FDA(450,"+1,",733)={"SAVINGS_BOND3_ZIP_CODE"} set:{SAVINGS_BOND3_TYPE}'="" FDA(450,"+1,",734)={"SAVINGS_BOND3_TYPE"} set:{SAVINGS_BOND4_ADD_LINE1}'="" FDA(450,"+1,",735)={"SAVINGS_BOND4_ADD_LINE1"} set:{SAVINGS_BOND4_ADD_LINE2}'="" FDA(450,"+1,",736)={"SAVINGS_BOND4_ADD_LINE2"} set:{SAVINGS_BOND4_ADD_LINE3}'="" FDA(450,"+1,",737)={"SAVINGS_BOND4_ADD_LINE3"} set:{SAVINGS_BOND4_BALANCE}'="" FDA(450,"+1,",738)={"SAVINGS_BOND4_BALANCE"} set:{SAVINGS_BOND4_BENE_CODE}'="" FDA(450,"+1,",739)={"SAVINGS_BOND4_BENE_CODE"} set:{SAVINGS_BOND4_COOWNER}'="" FDA(450,"+1,",740)={"SAVINGS_BOND4_COOWNER"} set:{SAVINGS_BOND4_COOWNER_SSN}'="" FDA(450,"+1,",741)={"SAVINGS_BOND4_COOWNER_SSN"} set:{SAVINGS_BOND4_DED_BALANCE}'="" FDA(450,"+1,",742)={"SAVINGS_BOND4_DED_BALANCE"} set:{SAVINGS_BOND4_DED_EPPD}'="" FDA(450,"+1,",743)={"SAVINGS_BOND4_DED_EPPD"} set:{SAVINGS_BOND4_DENOMINATION}'="" FDA(450,"+1,",744)={"SAVINGS_BOND4_DENOMINATION"} set:{SAVINGS_BOND4_EFFECTIVE_DATE}'="" FDA(450,"+1,",745)={"SAVINGS_BOND4_EFFECTIVE_DATE"} set:{SAVINGS_BOND4_OWNER}'="" FDA(450,"+1,",746)={"SAVINGS_BOND4_OWNER"} set:{SAVINGS_BOND4_OWNER_SSN}'="" FDA(450,"+1,",747)={"SAVINGS_BOND4_OWNER_SSN"} set:{SAVINGS_BOND4_ZIP_CODE}'="" FDA(450,"+1,",748)={"SAVINGS_BOND4_ZIP_CODE"} set:{SAVINGS_BOND4_TYPE}'="" FDA(450,"+1,",749)={"SAVINGS_BOND4_TYPE"} set:{FLTCIP_INDICATOR}'="" FDA(450,"+1,",750)={"FLTCIP_INDICATOR"} set:{FLTCIP_CPPD}'="" FDA(450,"+1,",751)={"FLTCIP_CPPD"} set:{FED_EMP_HLTH_BENE_CRT_ORD_IND}'="" FDA(450,"+1,",752)={"FED_EMP_HLTH_BENE_CRT_ORD_IND"} set:{EARNINGS__LEAVE_PRT_SELECTION}'="" FDA(450,"+1,",753)={"EARNINGS__LEAVE_PRT_SELECTION"} set:{FEDERAL_TAX_LOCKIN_INDICATOR}'="" FDA(450,"+1,",754)={"FEDERAL_TAX_LOCKIN_INDICATOR"} set:{LABOR_DIST_CODE_CHANGED_BY}'="" FDA(450,"+1,",755)={"LABOR_DIST_CODE_CHANGED_BY"} set:{TYPE_OF_INTERFACE}'="" FDA(450,"+1,",755.1)={"TYPE_OF_INTERFACE"} set:{LABOR_DIST_CODE_EDIT_DATE}'="" FDA(450,"+1,",756)={"LABOR_DIST_CODE_EDIT_DATE"} set:{HLTH_CARE_FLEX_SPEND_ACCT_YTD}'="" FDA(450,"+1,",758)={"HLTH_CARE_FLEX_SPEND_ACCT_YTD"} set:{HLTH_CARE_FLEX_SPEND_ACCT_CPPD}'="" FDA(450,"+1,",759)={"HLTH_CARE_FLEX_SPEND_ACCT_CPPD"} set:{DPNT_CARE_FLEX_SPEND_ACCT_YTD}'="" FDA(450,"+1,",760)={"DPNT_CARE_FLEX_SPEND_ACCT_YTD"} set:{DPNT_CARE_FLEX_SPEND_ACCT_CPPD}'="" FDA(450,"+1,",761)={"DPNT_CARE_FLEX_SPEND_ACCT_CPPD"} set:{TAX_GARNISHMENT3}'="" FDA(450,"+1,",762)={"TAX_GARNISHMENT3"} set:{TAX_GARNISHMENT4}'="" FDA(450,"+1,",763)={"TAX_GARNISHMENT4"} set:{COMMERCIAL_GARNISHMENT3}'="" FDA(450,"+1,",764)={"COMMERCIAL_GARNISHMENT3"} set:{COMMERCIAL_GARNISHMENT4}'="" FDA(450,"+1,",765)={"COMMERCIAL_GARNISHMENT4"} set:{ENUMERATION_INITIATED}'="" FDA(450,"+1,",900)={"ENUMERATION_INITIATED"} set:{ENUMERATION_COMPLETED}'="" FDA(450,"+1,",901)={"ENUMERATION_COMPLETED"} set:{REQUIRES_TRANSMISSION}'="" FDA(450,"+1,",902)={"REQUIRES_TRANSMISSION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(450)") set %SkipFiling=1 if $d(%FMERR(450,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(450)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{EMPLOYEE_NAME*C} FDA(450,IENS,.01)={EMPLOYEE_NAME} set:{ADDNL_LIFE_INSURANCE*C} FDA(450,IENS,1)={ADDNL_LIFE_INSURANCE} set:{STATION_EOD*C} FDA(450,IENS,2)={STATION_EOD} set:{ASSIGNMENT*C} FDA(450,IENS,3)={ASSIGNMENT} set:{CITIZENSHIP*C} FDA(450,IENS,4)={CITIZENSHIP} set:{INSTRUCTIONAL_PROGRAM*C} FDA(450,IENS,5)={INSTRUCTIONAL_PROGRAM} set:{STATION_NUMBER*C} FDA(450,IENS,6)={STATION_NUMBER} set:{T__L_UNIT*C} FDA(450,IENS,7)={T__L_UNIT} set:{SSN*C} FDA(450,IENS,8)={SSN} set:{DUTY_BASIS*C} FDA(450,IENS,9)={DUTY_BASIS} set:{EDUCATION*C} FDA(450,IENS,10)={EDUCATION} set:{FLSA*C} FDA(450,IENS,11)={FLSA} set:{FUNCTIONAL_CODE*C} FDA(450,IENS,12)={FUNCTIONAL_CODE} set:{GRADE*C} FDA(450,IENS,13)={GRADE} set:{LEAVE_GROUP*C} FDA(450,IENS,14)={LEAVE_GROUP} set:{f8B_NORMAL_HOURS*C} FDA(450,IENS,15)={f8B_NORMAL_HOURS} set:{OCCUPATION_SERIES__TITLE*C} FDA(450,IENS,16)={OCCUPATION_SERIES__TITLE} set:{LABOR_DIST_CODE1_COST_CENTER*C} FDA(450,IENS,17)={LABOR_DIST_CODE1_COST_CENTER} set:{SUBACCT_CODE*C} FDA(450,IENS,18)={SUBACCT_CODE} set:{PAY_BASIS*C} FDA(450,IENS,19)={PAY_BASIS} set:{PAY_PLAN*C} FDA(450,IENS,20)={PAY_PLAN} set:{PAY_RATE_DETERMINANT*C} FDA(450,IENS,21)={PAY_RATE_DETERMINANT} set:{PERFPROFCY_RATING_CODE*C} FDA(450,IENS,22)={PERFPROFCY_RATING_CODE} set:{POSITION_NUMBER*C} FDA(450,IENS,23)={POSITION_NUMBER} set:{PRIOR_PERFORMANCE_1*C} FDA(450,IENS,24)={PRIOR_PERFORMANCE_1} set:{PRIOR_PERFORMANCE_2*C} FDA(450,IENS,25)={PRIOR_PERFORMANCE_2} set:{RETIREMENT_CODE*C} FDA(450,IENS,26)={RETIREMENT_CODE} set:{SALARY_DATE*C} FDA(450,IENS,27)={SALARY_DATE} set:{SALARY*C} FDA(450,IENS,28)={SALARY} set:{SCHEDULED_SALARY_RATE*C} FDA(450,IENS,29)={SCHEDULED_SALARY_RATE} set:{SERVICE_COMPUTATION_DATE*C} FDA(450,IENS,30)={SERVICE_COMPUTATION_DATE} set:{SEX*C} FDA(450,IENS,31)={SEX} set:{DATE_OF_BIRTH*C} FDA(450,IENS,32)={DATE_OF_BIRTH} set:{ACTUAL_SSN*C} FDA(450,IENS,33)={ACTUAL_SSN} set:{NEW_SSN*C} FDA(450,IENS,34)={NEW_SSN} set:{SSN_SUFFIX*C} FDA(450,IENS,35)={SSN_SUFFIX} set:{STATION_MAINTAINING_OPF*C} FDA(450,IENS,36)={STATION_MAINTAINING_OPF} set:{COMPETITIVE_LEVEL*C} FDA(450,IENS,37)={COMPETITIVE_LEVEL} set:{STEP*C} FDA(450,IENS,38)={STEP} set:{SUPERVISORY_LEVEL*C} FDA(450,IENS,39)={SUPERVISORY_LEVEL} set:{TEMPORARY_HEALTH_INSURANCE_IND*C} FDA(450,IENS,40)={TEMPORARY_HEALTH_INSURANCE_IND} set:{SUPERVISORLEAD_IND*C} FDA(450,IENS,41)={SUPERVISORLEAD_IND} set:{TYPE_OF_APPOINTMENT*C} FDA(450,IENS,42)={TYPE_OF_APPOINTMENT} set:{VETERANS_PREFERENCE*C} FDA(450,IENS,43)={VETERANS_PREFERENCE} set:{WGI_ELIGIBILITY*C} FDA(450,IENS,44)={WGI_ELIGIBILITY} set:{WGI_SF50_ISSUED*C} FDA(450,IENS,45)={WGI_SF50_ISSUED} set:{WGI_VA_FORM_597_ISSUED*C} FDA(450,IENS,46)={WGI_VA_FORM_597_ISSUED} set:{YEAR_OF_DEGREE*C} FDA(450,IENS,47)={YEAR_OF_DEGREE} set:{ACCESSIONSEPARATION_CODE*C} FDA(450,IENS,48)={ACCESSIONSEPARATION_CODE} set:{ACCESSIONSEPARATION_EFF_DATE*C} FDA(450,IENS,49)={ACCESSIONSEPARATION_EFF_DATE} set:{ACCESSIONSEPARATION_NOA_CODE*C} FDA(450,IENS,50)={ACCESSIONSEPARATION_NOA_CODE} set:{AGENCY_TRANSFERRED_TO*C} FDA(450,IENS,51)={AGENCY_TRANSFERRED_TO} set:{BUS_CODE*C} FDA(450,IENS,52)={BUS_CODE} set:{CENTRALIZED_POSITION_IND*C} FDA(450,IENS,53)={CENTRALIZED_POSITION_IND} set:{COMPRESSEDFLEXITIME_CODE*C} FDA(450,IENS,54)={COMPRESSEDFLEXITIME_CODE} set:{CREDITABLE_MILITARY_SERVICE*C} FDA(450,IENS,55)={CREDITABLE_MILITARY_SERVICE} set:{CURRENT_APPT_AUTH_1*C} FDA(450,IENS,56)={CURRENT_APPT_AUTH_1} set:{CURRENT_APPT_AUTH_2*C} FDA(450,IENS,57)={CURRENT_APPT_AUTH_2} set:{DISABILITY_RETIREMENT*C} FDA(450,IENS,58)={DISABILITY_RETIREMENT} set:{FIRE_FIGHTER*C} FDA(450,IENS,59)={FIRE_FIGHTER} set:{FROZEN_SERVICE*C} FDA(450,IENS,60)={FROZEN_SERVICE} set:{MONTHLY_NONWORK_IND*C} FDA(450,IENS,61)={MONTHLY_NONWORK_IND} set:{LEADERSHIP_VA*C} FDA(450,IENS,62)={LEADERSHIP_VA} set:{MEDICAL_MOS*C} FDA(450,IENS,63)={MEDICAL_MOS} set:{RETIRED_MILITARY*C} FDA(450,IENS,64)={RETIRED_MILITARY} set:{NONPAY_HOURSDAYS_CPPD*C} FDA(450,IENS,66)={NONPAY_HOURSDAYS_CPPD} set:{NONPAY_IND*C} FDA(450,IENS,67)={NONPAY_IND} set:{OWCP_BENEFICIARY_IND*C} FDA(450,IENS,68)={OWCP_BENEFICIARY_IND} set:{PART_TIME_VHA_IND*C} FDA(450,IENS,69)={PART_TIME_VHA_IND} set:{PART_TIMEINTERMIT_HRS_TOTAL*C} FDA(450,IENS,70)={PART_TIMEINTERMIT_HRS_TOTAL} set:{PMRS_IDENTIFIER*C} FDA(450,IENS,71)={PMRS_IDENTIFIER} set:{PROBATIONARY_APPOINTMENT_IND*C} FDA(450,IENS,72)={PROBATIONARY_APPOINTMENT_IND} set:{PROPER_GRADE*C} FDA(450,IENS,73)={PROPER_GRADE} set:{PROPER_PAY_PLAN*C} FDA(450,IENS,74)={PROPER_PAY_PLAN} set:{RETIREMENT_ANN_SURV_ELIG_CODE*C} FDA(450,IENS,75)={RETIREMENT_ANN_SURV_ELIG_CODE} set:{LIMITATION_CODE*C} FDA(450,IENS,76)={LIMITATION_CODE} set:{LIMITATION_EXP_DATE*C} FDA(450,IENS,77)={LIMITATION_EXP_DATE} set:{HOURSSALARY_LIMITATION*C} FDA(450,IENS,78)={HOURSSALARY_LIMITATION} set:{LIMITATION_HOURS_TO_DATE*C} FDA(450,IENS,79)={LIMITATION_HOURS_TO_DATE} set:{SEPARATION_IND*C} FDA(450,IENS,80)={SEPARATION_IND} set:{SES_APPT_PROBATION_PERIOD_IND*C} FDA(450,IENS,81)={SES_APPT_PROBATION_PERIOD_IND} set:{SPECIAL_PAY_RATE_DIFFERENCE*C} FDA(450,IENS,82)={SPECIAL_PAY_RATE_DIFFERENCE} set:{GAPLOCALITY_PAY_AMT*C} FDA(450,IENS,83)={GAPLOCALITY_PAY_AMT} set:{GAP_AMT_CPPD*C} FDA(450,IENS,83.1)={GAP_AMT_CPPD} set:{LOCALITY_PAY_CPPD*C} FDA(450,IENS,83.2)={LOCALITY_PAY_CPPD} set:{SUPV_APPT_PROBATION_PERIOD_IND*C} FDA(450,IENS,84)={SUPV_APPT_PROBATION_PERIOD_IND} set:{UPWARD_MOBILITY*C} FDA(450,IENS,85)={UPWARD_MOBILITY} set:{UPWARD_MOBILITY_DATE*C} FDA(450,IENS,86)={UPWARD_MOBILITY_DATE} set:{VA_STATION_TRANSFERRED_FROM*C} FDA(450,IENS,87)={VA_STATION_TRANSFERRED_FROM} set:{VHA_REGION_NUMBER*C} FDA(450,IENS,88)={VHA_REGION_NUMBER} set:{ANNUAL_LEAVE_ACCRUAL_RATE*C} FDA(450,IENS,89)={ANNUAL_LEAVE_ACCRUAL_RATE} set:{EXPIRATION_OF_LICENSURE*C} FDA(450,IENS,90)={EXPIRATION_OF_LICENSURE} set:{PLACEMENT_FOLLOWUP*C} FDA(450,IENS,91)={PLACEMENT_FOLLOWUP} set:{ANNUAL_LEAVE_RESTRICTION*C} FDA(450,IENS,92)={ANNUAL_LEAVE_RESTRICTION} set:{CONVERSION_TO_CAREER_TENURE*C} FDA(450,IENS,93)={CONVERSION_TO_CAREER_TENURE} set:{f2YEAR_PROB_PERIOD_INCEPTION*C} FDA(450,IENS,94)={f2YEAR_PROB_PERIOD_INCEPTION} set:{EXPIRATION_OF_LIMITED_APPT*C} FDA(450,IENS,95)={EXPIRATION_OF_LIMITED_APPT} set:{EXPIRATION_OF_FORMAL_DETAIL*C} FDA(450,IENS,96)={EXPIRATION_OF_FORMAL_DETAIL} set:{REDETERMINATION_OF_WGI*C} FDA(450,IENS,97)={REDETERMINATION_OF_WGI} set:{FOLLOWUP_CODE_08*C} FDA(450,IENS,97.1)={FOLLOWUP_CODE_08} set:{ELIG_FOR_CONV_TO_COMP_SERVICE*C} FDA(450,IENS,98)={ELIG_FOR_CONV_TO_COMP_SERVICE} set:{FOLLOWUP_CODE_10*C} FDA(450,IENS,98.1)={FOLLOWUP_CODE_10} set:{FOLLOWUP_CODE_11*C} FDA(450,IENS,98.2)={FOLLOWUP_CODE_11} set:{FOLLOWUP_CODE_12*C} FDA(450,IENS,98.3)={FOLLOWUP_CODE_12} set:{FOLLOWUP_CODE_13*C} FDA(450,IENS,98.4)={FOLLOWUP_CODE_13} set:{OBLIGATED_SERVICE*C} FDA(450,IENS,99)={OBLIGATED_SERVICE} set:{FOLLOWUP_CODE_15*C} FDA(450,IENS,99.1)={FOLLOWUP_CODE_15} set:{EXPIRATION_OF_GRADE_RETENTION*C} FDA(450,IENS,100)={EXPIRATION_OF_GRADE_RETENTION} set:{SES_PROBATIONARY_PERIOD*C} FDA(450,IENS,101)={SES_PROBATIONARY_PERIOD} set:{SUPERVISORMGR_PROB_PERIOD*C} FDA(450,IENS,102)={SUPERVISORMGR_PROB_PERIOD} set:{BEGINNING_OF_NONPAY_STATUS*C} FDA(450,IENS,103)={BEGINNING_OF_NONPAY_STATUS} set:{f1YEAR_PROB_PERIOD_INCEPTION*C} FDA(450,IENS,104)={f1YEAR_PROB_PERIOD_INCEPTION} set:{DATE_OF_GRADE_FOR_T38_EMP*C} FDA(450,IENS,105)={DATE_OF_GRADE_FOR_T38_EMP} set:{DATE_OF_ENTRY_TO_T38_POSITION*C} FDA(450,IENS,106)={DATE_OF_ENTRY_TO_T38_POSITION} set:{DATE_GRADUATED_FROM_PROF_SCHL*C} FDA(450,IENS,107)={DATE_GRADUATED_FROM_PROF_SCHL} set:{EXPIRATION_OF_SPEC_PAY_AGREE*C} FDA(450,IENS,108)={EXPIRATION_OF_SPEC_PAY_AGREE} set:{STEP_RATE_REVIEW*C} FDA(450,IENS,109)={STEP_RATE_REVIEW} set:{FEDERAL_SERVICE_DATE*C} FDA(450,IENS,110)={FEDERAL_SERVICE_DATE} set:{CAREER_PROMOTION_DETERMINATION*C} FDA(450,IENS,111)={CAREER_PROMOTION_DETERMINATION} set:{PROFICIENCY_DATE*C} FDA(450,IENS,112)={PROFICIENCY_DATE} set:{EXPIRATION_OF_FERS_PERIOD*C} FDA(450,IENS,113)={EXPIRATION_OF_FERS_PERIOD} set:{TEMPORARY_HEALTH_BENEFITS_ELIG*C} FDA(450,IENS,114)={TEMPORARY_HEALTH_BENEFITS_ELIG} set:{EXPIRATION_OF_GEO_LOCATION_PAY*C} FDA(450,IENS,114.1)={EXPIRATION_OF_GEO_LOCATION_PAY} set:{EXPIRATION_OF_RETENTION_ALLOW*C} FDA(450,IENS,114.2)={EXPIRATION_OF_RETENTION_ALLOW} set:{EXPIRATION_OF_AI_BOARD_CERT*C} FDA(450,IENS,115.01)={EXPIRATION_OF_AI_BOARD_CERT} set:{EXPIRATION_OF_DE_BOARD_CERT*C} FDA(450,IENS,115.02)={EXPIRATION_OF_DE_BOARD_CERT} set:{EXPIRATION_OF_EM_BOARD_CERT*C} FDA(450,IENS,115.03)={EXPIRATION_OF_EM_BOARD_CERT} set:{EXPIRATION_OF_FP_BOARD_CERT*C} FDA(450,IENS,115.04)={EXPIRATION_OF_FP_BOARD_CERT} set:{EXPIRATION_OF_NM_BOARD_CERT*C} FDA(450,IENS,115.05)={EXPIRATION_OF_NM_BOARD_CERT} set:{EXPIRATION_OF_OG_BOARD_CERT*C} FDA(450,IENS,115.06)={EXPIRATION_OF_OG_BOARD_CERT} set:{EXPIRATION_OF_OP_BOARD_CERT*C} FDA(450,IENS,115.07)={EXPIRATION_OF_OP_BOARD_CERT} set:{EXPIRATION_OF_OS_BOARD_CERT*C} FDA(450,IENS,115.08)={EXPIRATION_OF_OS_BOARD_CERT} set:{EXPIRATION_OF_PM_BOARD_CERT*C} FDA(450,IENS,115.09)={EXPIRATION_OF_PM_BOARD_CERT} set:{EXPIRATION_OF_PS_BOARD_CERT*C} FDA(450,IENS,115.1)={EXPIRATION_OF_PS_BOARD_CERT} set:{EXPIRATION_OF_SU_BOARD_CERT*C} FDA(450,IENS,115.11)={EXPIRATION_OF_SU_BOARD_CERT} set:{EXPIRATION_OF_TS_BOARD_CERT*C} FDA(450,IENS,115.12)={EXPIRATION_OF_TS_BOARD_CERT} set:{EXPIRATION_OF_UR_BOARD_CERT*C} FDA(450,IENS,115.13)={EXPIRATION_OF_UR_BOARD_CERT} set:{EXPIRATION_OF_CS_BOARD_CERT*C} FDA(450,IENS,115.14)={EXPIRATION_OF_CS_BOARD_CERT} set:{RETIREMENTFICA_CODE_CHANGE*C} FDA(450,IENS,115.15)={RETIREMENTFICA_CODE_CHANGE} set:{FOLLOWUP_CODE_S*C} FDA(450,IENS,115.16)={FOLLOWUP_CODE_S} set:{ELIGIBLE_FOR_DRUG_TESTING*C} FDA(450,IENS,115.17)={ELIGIBLE_FOR_DRUG_TESTING} set:{EXPIRATION_OF_CR_BOARD_CERT*C} FDA(450,IENS,115.18)={EXPIRATION_OF_CR_BOARD_CERT} set:{EXPIRATION_OF_IM_BOARD_CERT*C} FDA(450,IENS,115.19)={EXPIRATION_OF_IM_BOARD_CERT} set:{EXPIRATION_OF_MG_BOARD_CERT*C} FDA(450,IENS,115.2)={EXPIRATION_OF_MG_BOARD_CERT} set:{EXPIRATION_OF_PN_BOARD_CERT*C} FDA(450,IENS,115.21)={EXPIRATION_OF_PN_BOARD_CERT} set:{FOLLOWUP_CODE_30*C} FDA(450,IENS,116.01)={FOLLOWUP_CODE_30} set:{FOLLOWUP_CODE_31*C} FDA(450,IENS,116.02)={FOLLOWUP_CODE_31} set:{FOLLOWUP_CODE_32*C} FDA(450,IENS,116.03)={FOLLOWUP_CODE_32} set:{FOLLOWUP_CODE_33*C} FDA(450,IENS,116.04)={FOLLOWUP_CODE_33} set:{FOLLOWUP_CODE_34*C} FDA(450,IENS,116.05)={FOLLOWUP_CODE_34} set:{FOLLOWUP_CODE_35*C} FDA(450,IENS,116.06)={FOLLOWUP_CODE_35} set:{FOLLOWUP_CODE_36*C} FDA(450,IENS,116.07)={FOLLOWUP_CODE_36} set:{FOLLOWUP_CODE_37*C} FDA(450,IENS,116.08)={FOLLOWUP_CODE_37} set:{FOLLOWUP_CODE_38*C} FDA(450,IENS,116.09)={FOLLOWUP_CODE_38} set:{FOLLOWUP_CODE_39*C} FDA(450,IENS,116.1)={FOLLOWUP_CODE_39} set:{FOLLOWUP_CODE_40*C} FDA(450,IENS,116.11)={FOLLOWUP_CODE_40} set:{FOLLOWUP_CODE_41*C} FDA(450,IENS,116.12)={FOLLOWUP_CODE_41} set:{FOLLOWUP_CODE_42*C} FDA(450,IENS,116.13)={FOLLOWUP_CODE_42} set:{FOLLOWUP_CODE_43*C} FDA(450,IENS,116.14)={FOLLOWUP_CODE_43} set:{FOLLOWUP_CODE_44*C} FDA(450,IENS,116.15)={FOLLOWUP_CODE_44} set:{FOLLOWUP_CODE_45*C} FDA(450,IENS,116.16)={FOLLOWUP_CODE_45} set:{FOLLOWUP_CODE_46*C} FDA(450,IENS,116.17)={FOLLOWUP_CODE_46} set:{FOLLOWUP_CODE_47*C} FDA(450,IENS,116.18)={FOLLOWUP_CODE_47} set:{FOLLOWUP_CODE_48*C} FDA(450,IENS,116.19)={FOLLOWUP_CODE_48} set:{FOLLOWUP_CODE_49*C} FDA(450,IENS,116.2)={FOLLOWUP_CODE_49} set:{ACADEMIC_TITLE*C} FDA(450,IENS,119)={ACADEMIC_TITLE} set:{ADDL_DIPLOMATE_SPECIALTY_A*C} FDA(450,IENS,120)={ADDL_DIPLOMATE_SPECIALTY_A} set:{ANNUAL_TENURE_CHANGE*C} FDA(450,IENS,121)={ANNUAL_TENURE_CHANGE} set:{ANNUAL_REVIEW_IND*C} FDA(450,IENS,122)={ANNUAL_REVIEW_IND} set:{BOARD_ELIGIBLE_SPECIALTY_A*C} FDA(450,IENS,123)={BOARD_ELIGIBLE_SPECIALTY_A} set:{BOARD_ELIGIBLE_SPECIALTY_B*C} FDA(450,IENS,124)={BOARD_ELIGIBLE_SPECIALTY_B} set:{CONTINUING_EDUC_CODE_AT_APPT*C} FDA(450,IENS,125)={CONTINUING_EDUC_CODE_AT_APPT} set:{CONTINUING_EDUC_CODE_CURRENT*C} FDA(450,IENS,126)={CONTINUING_EDUC_CODE_CURRENT} set:{COUNTRY_OF_BIRTH*C} FDA(450,IENS,127)={COUNTRY_OF_BIRTH} set:{COUNTRY_OF_MEDICAL_SCHOOL*C} FDA(450,IENS,128)={COUNTRY_OF_MEDICAL_SCHOOL} set:{COUNTRY_OF_POST_GR_TRAINING*C} FDA(450,IENS,129)={COUNTRY_OF_POST_GR_TRAINING} set:{LWOP_FOR_EDUCATION_IND*C} FDA(450,IENS,130)={LWOP_FOR_EDUCATION_IND} set:{FOREIGN_MEDICAL_GRADUATE_IND*C} FDA(450,IENS,131)={FOREIGN_MEDICAL_GRADUATE_IND} set:{ADDL_DIPLOMATE_SPECIALTY_B*C} FDA(450,IENS,132)={ADDL_DIPLOMATE_SPECIALTY_B} set:{INTERNSHIP_CODE*C} FDA(450,IENS,133)={INTERNSHIP_CODE} set:{NO_AGREEMENT_REASON_AT_APPT*C} FDA(450,IENS,134)={NO_AGREEMENT_REASON_AT_APPT} set:{NO_AGREEMENT_REASON_CURRENT*C} FDA(450,IENS,135)={NO_AGREEMENT_REASON_CURRENT} set:{NONPAYABLE_ANNUAL_LEAVE*C} FDA(450,IENS,136)={NONPAYABLE_ANNUAL_LEAVE} set:{PAYABLE_ANNUAL_LEAVE*C} FDA(450,IENS,137)={PAYABLE_ANNUAL_LEAVE} set:{PREAPPOINTMENT_EXPERIENCE*C} FDA(450,IENS,138)={PREAPPOINTMENT_EXPERIENCE} set:{DIPLOMATE*C} FDA(450,IENS,139)={DIPLOMATE} set:{PROMOTION_ELIGIBILITY_IND*C} FDA(450,IENS,140)={PROMOTION_ELIGIBILITY_IND} set:{RET_MILDUAL_COMP_WAIVER*C} FDA(450,IENS,141)={RET_MILDUAL_COMP_WAIVER} set:{SPECIAL_PAY_ANNUAL_AMT*C} FDA(450,IENS,142)={SPECIAL_PAY_ANNUAL_AMT} set:{SPECIAL_PAY_AGREEMENT_DATE*C} FDA(450,IENS,143)={SPECIAL_PAY_AGREEMENT_DATE} set:{SPECIAL_PAY_AGREEMENT_LENGTH*C} FDA(450,IENS,144)={SPECIAL_PAY_AGREEMENT_LENGTH} set:{SPECIAL_PAY_AGREEMENT_QUAL_APT*C} FDA(450,IENS,145)={SPECIAL_PAY_AGREEMENT_QUAL_APT} set:{SPECIAL_PAY_AGREEMENT_QUAL_CUR*C} FDA(450,IENS,146)={SPECIAL_PAY_AGREEMENT_QUAL_CUR} set:{SPECIAL_PAY_RET_DED*C} FDA(450,IENS,147)={SPECIAL_PAY_RET_DED} set:{SPEC_ADVANCEMENT_FOR_PERF_IND*C} FDA(450,IENS,148)={SPEC_ADVANCEMENT_FOR_PERF_IND} set:{SPECIAL_CALC_INDICATOR*C} FDA(450,IENS,149)={SPECIAL_CALC_INDICATOR} set:{SPECIAL_SALARY_ADJUSTMENT*C} FDA(450,IENS,150)={SPECIAL_SALARY_ADJUSTMENT} set:{SPECIALTY_TRAINED*C} FDA(450,IENS,151)={SPECIALTY_TRAINED} set:{STATE_OF_LICENSURE*C} FDA(450,IENS,152)={STATE_OF_LICENSURE} set:{STATE_OF_EMPLOYMENT_PREAPPT*C} FDA(450,IENS,153)={STATE_OF_EMPLOYMENT_PREAPPT} set:{VA_SERVICE_DATE*C} FDA(450,IENS,154)={VA_SERVICE_DATE} set:{PRIOR_VA_EXPERIENCE_SIR_1*C} FDA(450,IENS,155)={PRIOR_VA_EXPERIENCE_SIR_1} set:{PRIOR_VA_EXPERIENCE_SIR_2*C} FDA(450,IENS,156)={PRIOR_VA_EXPERIENCE_SIR_2} set:{PRIOR_VA_EXPERIENCE_SIR_3*C} FDA(450,IENS,157)={PRIOR_VA_EXPERIENCE_SIR_3} set:{PRIOR_VA_EXPERIENCE_SIR_4*C} FDA(450,IENS,158)={PRIOR_VA_EXPERIENCE_SIR_4} set:{PRIOR_VA_EXPERIENCE_SIR_5*C} FDA(450,IENS,159)={PRIOR_VA_EXPERIENCE_SIR_5} set:{PRIOR_VA_EXPERIENCE_OTHER_1*C} FDA(450,IENS,160)={PRIOR_VA_EXPERIENCE_OTHER_1} set:{PRIOR_VA_EXPERIENCE_OTHER_2*C} FDA(450,IENS,161)={PRIOR_VA_EXPERIENCE_OTHER_2} set:{PRIOR_VA_EXPERIENCE_OTHER_3*C} FDA(450,IENS,162)={PRIOR_VA_EXPERIENCE_OTHER_3} set:{PRIOR_VA_EXPERIENCE_OTHER_4*C} FDA(450,IENS,163)={PRIOR_VA_EXPERIENCE_OTHER_4} set:{PRIOR_VA_EXPERIENCE_OTHER_5*C} FDA(450,IENS,164)={PRIOR_VA_EXPERIENCE_OTHER_5} set:{PRIOR_VA_EXPERIENCE_OTHER_6*C} FDA(450,IENS,165)={PRIOR_VA_EXPERIENCE_OTHER_6} set:{PRIOR_VA_EXPERIENCE_OTHER_7*C} FDA(450,IENS,166)={PRIOR_VA_EXPERIENCE_OTHER_7} set:{PRIOR_VA_EXPERIENCE_OTHER_8*C} FDA(450,IENS,167)={PRIOR_VA_EXPERIENCE_OTHER_8} set:{CLINICAL_EXPERIENCE_1*C} FDA(450,IENS,168)={CLINICAL_EXPERIENCE_1} set:{CLINICAL_EXPERIENCE_2*C} FDA(450,IENS,169)={CLINICAL_EXPERIENCE_2} set:{DATE_ASSIGNED_PRESENT_POSITION*C} FDA(450,IENS,170)={DATE_ASSIGNED_PRESENT_POSITION} set:{DATE_AVAILABLE*C} FDA(450,IENS,171)={DATE_AVAILABLE} set:{FUNCTIONAL_EXPERIENCE_1*C} FDA(450,IENS,172)={FUNCTIONAL_EXPERIENCE_1} set:{FUNCTIONAL_EXPERIENCE_2*C} FDA(450,IENS,173)={FUNCTIONAL_EXPERIENCE_2} set:{GEOGRAPHIC_PREFERENCE_1*C} FDA(450,IENS,174)={GEOGRAPHIC_PREFERENCE_1} set:{GEOGRAPHIC_PREFERENCE_2*C} FDA(450,IENS,175)={GEOGRAPHIC_PREFERENCE_2} set:{POSITION_PREFERENCE*C} FDA(450,IENS,176)={POSITION_PREFERENCE} set:{SPECIAL_PROGRAM*C} FDA(450,IENS,177)={SPECIAL_PROGRAM} set:{YEAR_COMPLETED*C} FDA(450,IENS,178)={YEAR_COMPLETED} set:{STATUS_CODE*C} FDA(450,IENS,179)={STATUS_CODE} set:{TRAINING_PROGRAM*C} FDA(450,IENS,180)={TRAINING_PROGRAM} set:{CHECK_MAILING_ADDRESS_LINE_1*C} FDA(450,IENS,181)={CHECK_MAILING_ADDRESS_LINE_1} set:{CHECK_MAILING_ADDRESS_LINE_2*C} FDA(450,IENS,182)={CHECK_MAILING_ADDRESS_LINE_2} set:{CHECK_MAILING_ADDRESS_LINE_3*C} FDA(450,IENS,183)={CHECK_MAILING_ADDRESS_LINE_3} set:{CHECK_MAILING_ADDRESS_ZIP_CODE*C} FDA(450,IENS,184)={CHECK_MAILING_ADDRESS_ZIP_CODE} set:{EARNINGS__LEAVE_OPTION*C} FDA(450,IENS,185)={EARNINGS__LEAVE_OPTION} set:{RESIDENCE_STATE*C} FDA(450,IENS,186)={RESIDENCE_STATE} set:{RESIDENCE_ADDRESS_LINE_1*C} FDA(450,IENS,186.1)={RESIDENCE_ADDRESS_LINE_1} set:{RESIDENCE_ADDRESS_LINE_2*C} FDA(450,IENS,186.2)={RESIDENCE_ADDRESS_LINE_2} set:{RESIDENCE_ADDRESS_LINE_3*C} FDA(450,IENS,186.3)={RESIDENCE_ADDRESS_LINE_3} set:{RESIDENCE_ADDRESS_ZIP_CODE*C} FDA(450,IENS,186.4)={RESIDENCE_ADDRESS_ZIP_CODE} set:{CITY_TAX1_ADDNL_AMT_WITHHELD*C} FDA(450,IENS,187)={CITY_TAX1_ADDNL_AMT_WITHHELD} set:{CITY_TAX1_AMT_WITHHELD_CPPD*C} FDA(450,IENS,188)={CITY_TAX1_AMT_WITHHELD_CPPD} set:{CITY_TAX1_AMT_WITHHELD_CTPTD*C} FDA(450,IENS,189)={CITY_TAX1_AMT_WITHHELD_CTPTD} set:{CITY_TAX1_AMT_WITHHELD_YTD*C} FDA(450,IENS,190)={CITY_TAX1_AMT_WITHHELD_YTD} set:{CITY_TAX1_EXEMPTION_CODE1*C} FDA(450,IENS,191)={CITY_TAX1_EXEMPTION_CODE1} set:{CITY_TAX1_EXEMPTION_CODE2*C} FDA(450,IENS,192)={CITY_TAX1_EXEMPTION_CODE2} set:{CITY_TAX1_GROSS_PAY_CPPD*C} FDA(450,IENS,193)={CITY_TAX1_GROSS_PAY_CPPD} set:{CITY_TAX1_GROSS_PAY_YTD*C} FDA(450,IENS,194)={CITY_TAX1_GROSS_PAY_YTD} set:{CITY_TAX1_GSA_CODE*C} FDA(450,IENS,195)={CITY_TAX1_GSA_CODE} set:{CITY_TAX1_MARITAL_STATUS*C} FDA(450,IENS,196)={CITY_TAX1_MARITAL_STATUS} set:{CITY_TAX1_RESIDENCE_STATE*C} FDA(450,IENS,197)={CITY_TAX1_RESIDENCE_STATE} set:{CITY_TAX2_ADDNL_AMT_WITHHELD*C} FDA(450,IENS,198)={CITY_TAX2_ADDNL_AMT_WITHHELD} set:{CITY_TAX2_AMT_WITHHELD_CTPTD*C} FDA(450,IENS,199)={CITY_TAX2_AMT_WITHHELD_CTPTD} set:{CITY_TAX2_AMT_WITHHELD_YTD*C} FDA(450,IENS,200)={CITY_TAX2_AMT_WITHHELD_YTD} set:{CITY_TAX2_AMT_WITHHELD_CPPD*C} FDA(450,IENS,201)={CITY_TAX2_AMT_WITHHELD_CPPD} set:{CITY_TAX2_EXEMPTION_CODE1*C} FDA(450,IENS,202)={CITY_TAX2_EXEMPTION_CODE1} set:{CITY_TAX2_EXEMPTION_CODE2*C} FDA(450,IENS,203)={CITY_TAX2_EXEMPTION_CODE2} set:{CITY_TAX2_GROSS_PAY_CPPD*C} FDA(450,IENS,204)={CITY_TAX2_GROSS_PAY_CPPD} set:{CITY_TAX2_GROSS_PAY_YTD*C} FDA(450,IENS,205)={CITY_TAX2_GROSS_PAY_YTD} set:{CITY_TAX2_GSA_CODE*C} FDA(450,IENS,206)={CITY_TAX2_GSA_CODE} set:{CITY_TAX2_MARITAL_STATUS*C} FDA(450,IENS,207)={CITY_TAX2_MARITAL_STATUS} set:{CITY_TAX2_RESIDENCE_STATE*C} FDA(450,IENS,208)={CITY_TAX2_RESIDENCE_STATE} set:{CFC_BIWEEKLY_DEDUCTION*C} FDA(450,IENS,209)={CFC_BIWEEKLY_DEDUCTION} set:{CFC_CODE*C} FDA(450,IENS,210)={CFC_CODE} set:{CFC_DEDUCTION_CPPD*C} FDA(450,IENS,211)={CFC_DEDUCTION_CPPD} set:{FEDERAL_NONTAXABLE_WAGES_YTD*C} FDA(450,IENS,212)={FEDERAL_NONTAXABLE_WAGES_YTD} set:{FEDERAL_TAX_ADDNL_AMT_WITHHELD*C} FDA(450,IENS,213)={FEDERAL_TAX_ADDNL_AMT_WITHHELD} set:{FEDERAL_TAX_AMT_WITHHELD_QTD*C} FDA(450,IENS,214)={FEDERAL_TAX_AMT_WITHHELD_QTD} set:{FEDERAL_TAX_AMT_WITHHELD_YTD*C} FDA(450,IENS,215)={FEDERAL_TAX_AMT_WITHHELD_YTD} set:{FEDERAL_TAX_AMT_WITHHELD_CPPD*C} FDA(450,IENS,216)={FEDERAL_TAX_AMT_WITHHELD_CPPD} set:{FEDERAL_TAX_EXEMPTIONS*C} FDA(450,IENS,217)={FEDERAL_TAX_EXEMPTIONS} set:{FEDERAL_TAX_GROSS_PAY_QTD*C} FDA(450,IENS,218)={FEDERAL_TAX_GROSS_PAY_QTD} set:{FEDERAL_TAX_GROSS_PAY_YTD*C} FDA(450,IENS,219)={FEDERAL_TAX_GROSS_PAY_YTD} set:{FTL_DEBT_BALANCE*C} FDA(450,IENS,220)={FTL_DEBT_BALANCE} set:{FTL_EXEMPTED_AMT_EPPD*C} FDA(450,IENS,221)={FTL_EXEMPTED_AMT_EPPD} set:{MARITAL_STATUS*C} FDA(450,IENS,222)={MARITAL_STATUS} set:{FEGLI_ADDNL_DEDUCTION_CPPD*C} FDA(450,IENS,223)={FEGLI_ADDNL_DEDUCTION_CPPD} set:{FEGLI_AGE_CODE_CPPD*C} FDA(450,IENS,224)={FEGLI_AGE_CODE_CPPD} set:{FEGLI_BASIC_DEDUCTION_CPPD*C} FDA(450,IENS,225)={FEGLI_BASIC_DEDUCTION_CPPD} set:{FEGLI_CODE*C} FDA(450,IENS,226)={FEGLI_CODE} set:{FEGLI_FAMILY_DEDUCTION_CPPD*C} FDA(450,IENS,227)={FEGLI_FAMILY_DEDUCTION_CPPD} set:{FEGLI_STANDARD_DEDUCTION_CPPD*C} FDA(450,IENS,228)={FEGLI_STANDARD_DEDUCTION_CPPD} set:{FEGLI_VA_SHARE_CPPD*C} FDA(450,IENS,229)={FEGLI_VA_SHARE_CPPD} set:{HEALTH_BENEFITS_DEDUCTION_CPPD*C} FDA(450,IENS,230)={HEALTH_BENEFITS_DEDUCTION_CPPD} set:{HEALTH_INSURANCE*C} FDA(450,IENS,231)={HEALTH_INSURANCE} set:{HEALTH_BENEFITS_NEXT_PPD_IND*C} FDA(450,IENS,232)={HEALTH_BENEFITS_NEXT_PPD_IND} set:{HEALTH_BENEFITS_PRORATION_IND*C} FDA(450,IENS,233)={HEALTH_BENEFITS_PRORATION_IND} set:{HEALTH_BENEFITS_ELIGIBILITY*C} FDA(450,IENS,234)={HEALTH_BENEFITS_ELIGIBILITY} set:{HEALTH_BENEFITS_VA_SHARE_CPPD*C} FDA(450,IENS,235)={HEALTH_BENEFITS_VA_SHARE_CPPD} set:{ACSB_ACS_AMT_CPPD*C} FDA(450,IENS,236)={ACSB_ACS_AMT_CPPD} set:{ACSB_BACK_PAY_BALANCE1*C} FDA(450,IENS,237)={ACSB_BACK_PAY_BALANCE1} set:{ACSB_BACK_PAY_BALANCE2*C} FDA(450,IENS,238)={ACSB_BACK_PAY_BALANCE2} set:{ACSB_BACK_PAY_DEDUCTION1*C} FDA(450,IENS,239)={ACSB_BACK_PAY_DEDUCTION1} set:{ACSB_BACK_PAY_DEDUCTION2*C} FDA(450,IENS,240)={ACSB_BACK_PAY_DEDUCTION2} set:{ACSB_BANKRUPTCY_AMT_CPPD*C} FDA(450,IENS,241)={ACSB_BANKRUPTCY_AMT_CPPD} set:{ACSB_CODE1*C} FDA(450,IENS,242)={ACSB_CODE1} set:{ACSB_CODE2*C} FDA(450,IENS,243)={ACSB_CODE2} set:{ACSB_CONTROL_NUMBER1*C} FDA(450,IENS,244)={ACSB_CONTROL_NUMBER1} set:{ACSB_CONTROL_NUMBER2*C} FDA(450,IENS,245)={ACSB_CONTROL_NUMBER2} set:{ACSB_CURRENT_ALLOTMENT1*C} FDA(450,IENS,246)={ACSB_CURRENT_ALLOTMENT1} set:{ACSB_CURRENT_ALLOTMENT2*C} FDA(450,IENS,247)={ACSB_CURRENT_ALLOTMENT2} set:{ACSB_FEDSTATE_PCT_FACTOR1*C} FDA(450,IENS,248)={ACSB_FEDSTATE_PCT_FACTOR1} set:{ACSB_FEDSTATE_PCT_FACTOR2*C} FDA(450,IENS,249)={ACSB_FEDSTATE_PCT_FACTOR2} set:{MEDICARE_AMT_WITHHELD_CPPD*C} FDA(450,IENS,250)={MEDICARE_AMT_WITHHELD_CPPD} set:{MEDICARE_AMT_WITHHELD_QTD*C} FDA(450,IENS,251)={MEDICARE_AMT_WITHHELD_QTD} set:{MEDICARE_AMT_WITHHELD_YTD*C} FDA(450,IENS,252)={MEDICARE_AMT_WITHHELD_YTD} set:{MEDICARE_GROSS_PAY_CPPD*C} FDA(450,IENS,253)={MEDICARE_GROSS_PAY_CPPD} set:{GROSS_PAY_QTD*C} FDA(450,IENS,254)={GROSS_PAY_QTD} set:{GROSS_PAY_YTD*C} FDA(450,IENS,255)={GROSS_PAY_YTD} set:{MEDICARE_STATUS_CODE*C} FDA(450,IENS,256)={MEDICARE_STATUS_CODE} set:{MEDICARE_WAGES_PRIOR_AGCY_YTD*C} FDA(450,IENS,257)={MEDICARE_WAGES_PRIOR_AGCY_YTD} set:{MSD_ACTION_CODE1*C} FDA(450,IENS,258)={MSD_ACTION_CODE1} set:{MSD_ACTION_CODE2*C} FDA(450,IENS,259)={MSD_ACTION_CODE2} set:{MSD_ACTION_CODE3*C} FDA(450,IENS,260)={MSD_ACTION_CODE3} set:{MSD_AMT_DUE_THIS_PERIOD1*C} FDA(450,IENS,261)={MSD_AMT_DUE_THIS_PERIOD1} set:{MSD_AMT_DUE_THIS_PERIOD2*C} FDA(450,IENS,262)={MSD_AMT_DUE_THIS_PERIOD2} set:{MSD_AMT_DUE_THIS_PERIOD3*C} FDA(450,IENS,263)={MSD_AMT_DUE_THIS_PERIOD3} set:{MSD_BRANCH_OF_SERVICE1*C} FDA(450,IENS,264)={MSD_BRANCH_OF_SERVICE1} set:{MSD_BRANCH_OF_SERVICE2*C} FDA(450,IENS,265)={MSD_BRANCH_OF_SERVICE2} set:{MSD_BRANCH_OF_SERVICE3*C} FDA(450,IENS,266)={MSD_BRANCH_OF_SERVICE3} set:{MSD_DATE_ENTERED_MIL_SVC1*C} FDA(450,IENS,267)={MSD_DATE_ENTERED_MIL_SVC1} set:{MSD_DATE_ENTERED_MIL_SVC2*C} FDA(450,IENS,268)={MSD_DATE_ENTERED_MIL_SVC2} set:{MSD_DATE_ENTERED_MIL_SVC3*C} FDA(450,IENS,269)={MSD_DATE_ENTERED_MIL_SVC3} set:{MSD_DATE_SEPARATED_MIL_SVC1*C} FDA(450,IENS,270)={MSD_DATE_SEPARATED_MIL_SVC1} set:{MSD_DATE_SEPARATED_MIL_SVC2*C} FDA(450,IENS,271)={MSD_DATE_SEPARATED_MIL_SVC2} set:{MSD_DATE_SEPARATED_MIL_SVC3*C} FDA(450,IENS,272)={MSD_DATE_SEPARATED_MIL_SVC3} set:{MSD_LOST_TIME1*C} FDA(450,IENS,273)={MSD_LOST_TIME1} set:{MSD_LOST_TIME2*C} FDA(450,IENS,274)={MSD_LOST_TIME2} set:{MSD_LOST_TIME3*C} FDA(450,IENS,275)={MSD_LOST_TIME3} set:{MSD_AMT_FOR_INTEREST_COMP*C} FDA(450,IENS,276)={MSD_AMT_FOR_INTEREST_COMP} set:{MSD_AMT_PAID_YTD*C} FDA(450,IENS,277)={MSD_AMT_PAID_YTD} set:{MSD_CASH_PAYMENT_DATE*C} FDA(450,IENS,278)={MSD_CASH_PAYMENT_DATE} set:{MSD_DEDUCTION_CPPD*C} FDA(450,IENS,279)={MSD_DEDUCTION_CPPD} set:{MSD_DEDUCTION_EPPD*C} FDA(450,IENS,280)={MSD_DEDUCTION_EPPD} set:{MSD_IND*C} FDA(450,IENS,281)={MSD_IND} set:{MSD_INTEREST_AMT_CCY*C} FDA(450,IENS,282)={MSD_INTEREST_AMT_CCY} set:{MSD_INTEREST_AMT_PCY*C} FDA(450,IENS,283)={MSD_INTEREST_AMT_PCY} set:{MSD_INTEREST_COMP_DATE*C} FDA(450,IENS,284)={MSD_INTEREST_COMP_DATE} set:{MSD_INTEREST_RATE_CCY*C} FDA(450,IENS,285)={MSD_INTEREST_RATE_CCY} set:{MSD_INTEREST_RATE_PCY*C} FDA(450,IENS,286)={MSD_INTEREST_RATE_PCY} set:{MSD_TOTAL_AMT_COLLECTED*C} FDA(450,IENS,287)={MSD_TOTAL_AMT_COLLECTED} set:{MSD_TOTAL_AMT_DUE*C} FDA(450,IENS,288)={MSD_TOTAL_AMT_DUE} set:{MSD_TOTAL_INTEREST_AMT*C} FDA(450,IENS,289)={MSD_TOTAL_INTEREST_AMT} set:{OASDI_TAX_AMT_WITHHELD_CPPD*C} FDA(450,IENS,290)={OASDI_TAX_AMT_WITHHELD_CPPD} set:{OASDI_TAX_AMT_WITHHELD_QTD*C} FDA(450,IENS,291)={OASDI_TAX_AMT_WITHHELD_QTD} set:{OASDI_TAX_AMT_WITHHELD_YTD*C} FDA(450,IENS,292)={OASDI_TAX_AMT_WITHHELD_YTD} set:{OASDI_TAX_GROSS_PAY_CPPD*C} FDA(450,IENS,293)={OASDI_TAX_GROSS_PAY_CPPD} set:{OASDI_TAX_GROSS_PAY_QTD*C} FDA(450,IENS,294)={OASDI_TAX_GROSS_PAY_QTD} set:{OASDI_TAX_GROSS_PAY_YTD*C} FDA(450,IENS,295)={OASDI_TAX_GROSS_PAY_YTD} set:{OASDI_TAX_VA_SHARE_CPPD*C} FDA(450,IENS,296)={OASDI_TAX_VA_SHARE_CPPD} set:{OASDI_TAX_VA_SHARE_QTD*C} FDA(450,IENS,297)={OASDI_TAX_VA_SHARE_QTD} set:{OASDI_TAX_VA_SHARE_YTD*C} FDA(450,IENS,298)={OASDI_TAX_VA_SHARE_YTD} set:{OASDI_WAGES_PRIOR_AGCY_YTD*C} FDA(450,IENS,299)={OASDI_WAGES_PRIOR_AGCY_YTD} set:{DEBT_DEPOSIT_ACCT_36F3875_CPPD*C} FDA(450,IENS,300)={DEBT_DEPOSIT_ACCT_36F3875_CPPD} set:{DEBT_DEPOSIT_ACCT_36X6875_CPPD*C} FDA(450,IENS,301)={DEBT_DEPOSIT_ACCT_36X6875_CPPD} set:{DEBT_REFUND_ACCT_36F3875_CPPD*C} FDA(450,IENS,302)={DEBT_REFUND_ACCT_36F3875_CPPD} set:{DEBT_REFUND_ACCT_36X6875_CPPD*C} FDA(450,IENS,303)={DEBT_REFUND_ACCT_36X6875_CPPD} set:{EMPLOYEE_PROVIDED_VEHICLE_VAL*C} FDA(450,IENS,304)={EMPLOYEE_PROVIDED_VEHICLE_VAL} set:{OCC_PRIV_TAX_DEDUCTION_IND*C} FDA(450,IENS,305)={OCC_PRIV_TAX_DEDUCTION_IND} set:{OTHER_DEDUCTION_BALANCE1*C} FDA(450,IENS,306)={OTHER_DEDUCTION_BALANCE1} set:{OTHER_DEDUCTION_BALANCE2*C} FDA(450,IENS,307)={OTHER_DEDUCTION_BALANCE2} set:{OTHER_DEDUCTION_BIWEEKLY_AMT1*C} FDA(450,IENS,308)={OTHER_DEDUCTION_BIWEEKLY_AMT1} set:{OTHER_DEDUCTION_BIWEEKLY_AMT2*C} FDA(450,IENS,309)={OTHER_DEDUCTION_BIWEEKLY_AMT2} set:{OTHER_DEDUCTION_CODE1*C} FDA(450,IENS,310)={OTHER_DEDUCTION_CODE1} set:{OTHER_DEDUCTION_CODE2*C} FDA(450,IENS,311)={OTHER_DEDUCTION_CODE2} set:{OTHER_TAX_FROZEN_CODE1*C} FDA(450,IENS,312)={OTHER_TAX_FROZEN_CODE1} set:{OTHER_TAX_FROZEN_CODE2*C} FDA(450,IENS,313)={OTHER_TAX_FROZEN_CODE2} set:{OTHER_TAX_GROSS_PAY_YTD1*C} FDA(450,IENS,314)={OTHER_TAX_GROSS_PAY_YTD1} set:{OTHER_TAX_GROSS_PAY_YTD2*C} FDA(450,IENS,315)={OTHER_TAX_GROSS_PAY_YTD2} set:{OTHER_TAX_GSA_CODE1*C} FDA(450,IENS,316)={OTHER_TAX_GSA_CODE1} set:{OTHER_TAX_GSA_CODE2*C} FDA(450,IENS,317)={OTHER_TAX_GSA_CODE2} set:{GARAGE_DEDUCTION_CPPD*C} FDA(450,IENS,318)={GARAGE_DEDUCTION_CPPD} set:{GARAGE_DEDUCTION_EPPD*C} FDA(450,IENS,319)={GARAGE_DEDUCTION_EPPD} set:{QUARTERS_NONHSKP_DED_CPPD*C} FDA(450,IENS,320)={QUARTERS_NONHSKP_DED_CPPD} set:{PARKING_DEDUCTION_CPPD*C} FDA(450,IENS,321)={PARKING_DEDUCTION_CPPD} set:{PARKING_DEDUCTION_EPPD*C} FDA(450,IENS,322)={PARKING_DEDUCTION_EPPD} set:{QUARTERS_CODE*C} FDA(450,IENS,323)={QUARTERS_CODE} set:{QUARTERS_DEDUCTION_EPPD*C} FDA(450,IENS,324)={QUARTERS_DEDUCTION_EPPD} set:{QUARTERS_DEDUCTION_CPPD*C} FDA(450,IENS,325)={QUARTERS_DEDUCTION_CPPD} set:{QUARTERS_STATION*C} FDA(450,IENS,326)={QUARTERS_STATION} set:{SUBSISTANCE_DEDUCTION_CPPD*C} FDA(450,IENS,327)={SUBSISTANCE_DEDUCTION_CPPD} set:{SUBSISTANCE_DEDUCTION_EPPD*C} FDA(450,IENS,328)={SUBSISTANCE_DEDUCTION_EPPD} set:{CSRS_DEDUCTION_EOPY*C} FDA(450,IENS,329)={CSRS_DEDUCTION_EOPY} set:{CSRS_DEDUCTION_YTD*C} FDA(450,IENS,330)={CSRS_DEDUCTION_YTD} set:{REEMP_ANNUITANT_DED_EOPY*C} FDA(450,IENS,331)={REEMP_ANNUITANT_DED_EOPY} set:{REEMP_ANNUITANT_DED_YTD*C} FDA(450,IENS,332)={REEMP_ANNUITANT_DED_YTD} set:{FERS_DEDUCTION_EOPY*C} FDA(450,IENS,333)={FERS_DEDUCTION_EOPY} set:{FERS_DEDUCTION_YTD*C} FDA(450,IENS,334)={FERS_DEDUCTION_YTD} set:{FERS_REDESIGNATED_CSRS_AMT*C} FDA(450,IENS,335)={FERS_REDESIGNATED_CSRS_AMT} set:{CSRS_REEMP_ANNUITANT_DED_CPPD*C} FDA(450,IENS,336)={CSRS_REEMP_ANNUITANT_DED_CPPD} set:{RETIREMENT_DED_CPPD*C} FDA(450,IENS,337)={RETIREMENT_DED_CPPD} set:{RETIREMENT_VA_SHARE_CPPD*C} FDA(450,IENS,338)={RETIREMENT_VA_SHARE_CPPD} set:{SAVINGS_ALLOTMENT1_AMT_EPPD*C} FDA(450,IENS,339)={SAVINGS_ALLOTMENT1_AMT_EPPD} set:{SAVINGS_ALLOTMENT1_AMT_CPPD*C} FDA(450,IENS,340)={SAVINGS_ALLOTMENT1_AMT_CPPD} set:{SAVINGS_ALLOTMENT2_AMT_EPPD*C} FDA(450,IENS,341)={SAVINGS_ALLOTMENT2_AMT_EPPD} set:{SAVINGS_ALLOTMENT2_AMT_CPPD*C} FDA(450,IENS,342)={SAVINGS_ALLOTMENT2_AMT_CPPD} set:{SAVINGS_BOND_DED_SUM_CPPD*C} FDA(450,IENS,343)={SAVINGS_BOND_DED_SUM_CPPD} set:{SAVINGS_BOND1_ADD_LINE1*C} FDA(450,IENS,344)={SAVINGS_BOND1_ADD_LINE1} set:{SAVINGS_BOND1_ADD_LINE2*C} FDA(450,IENS,345)={SAVINGS_BOND1_ADD_LINE2} set:{SAVINGS_BOND1_ADD_LINE3*C} FDA(450,IENS,346)={SAVINGS_BOND1_ADD_LINE3} set:{SAVINGS_BOND1_BALANCE*C} FDA(450,IENS,347)={SAVINGS_BOND1_BALANCE} set:{SAVINGS_BOND1_BENE_CODE*C} FDA(450,IENS,348)={SAVINGS_BOND1_BENE_CODE} set:{SAVINGS_BOND1_COOWNER*C} FDA(450,IENS,349)={SAVINGS_BOND1_COOWNER} set:{SAVINGS_BOND1_COOWNER_SSN*C} FDA(450,IENS,350)={SAVINGS_BOND1_COOWNER_SSN} set:{SAVINGS_BOND1_DED_BALANCE*C} FDA(450,IENS,351)={SAVINGS_BOND1_DED_BALANCE} set:{SAVINGS_BOND1_DED_EPPD*C} FDA(450,IENS,352)={SAVINGS_BOND1_DED_EPPD} set:{SAVINGS_BOND1_DENOMINATION*C} FDA(450,IENS,353)={SAVINGS_BOND1_DENOMINATION} set:{SAVINGS_BOND1_EFFECTIVE_DATE*C} FDA(450,IENS,354)={SAVINGS_BOND1_EFFECTIVE_DATE} set:{SAVINGS_BOND1_OWNER*C} FDA(450,IENS,355)={SAVINGS_BOND1_OWNER} set:{SAVINGS_BOND1_OWNER_SSN*C} FDA(450,IENS,356)={SAVINGS_BOND1_OWNER_SSN} set:{SAVINGS_BOND1_ZIP_CODE*C} FDA(450,IENS,357)={SAVINGS_BOND1_ZIP_CODE} set:{SAVINGS_BOND2_ADD_LINE1*C} FDA(450,IENS,358)={SAVINGS_BOND2_ADD_LINE1} set:{SAVINGS_BOND2_ADD_LINE2*C} FDA(450,IENS,359)={SAVINGS_BOND2_ADD_LINE2} set:{SAVINGS_BOND2_ADD_LINE3*C} FDA(450,IENS,360)={SAVINGS_BOND2_ADD_LINE3} set:{SAVINGS_BOND2_BALANCE*C} FDA(450,IENS,361)={SAVINGS_BOND2_BALANCE} set:{SAVINGS_BOND2_BENE_CODE*C} FDA(450,IENS,362)={SAVINGS_BOND2_BENE_CODE} set:{SAVINGS_BOND2_COOWNER*C} FDA(450,IENS,363)={SAVINGS_BOND2_COOWNER} set:{SAVINGS_BOND2_COOWNER_SSN*C} FDA(450,IENS,364)={SAVINGS_BOND2_COOWNER_SSN} set:{SAVINGS_BOND2_DED_BALANCE*C} FDA(450,IENS,365)={SAVINGS_BOND2_DED_BALANCE} set:{SAVINGS_BOND2_DED_EPPD*C} FDA(450,IENS,366)={SAVINGS_BOND2_DED_EPPD} set:{SAVINGS_BOND2_DENOMINATION*C} FDA(450,IENS,367)={SAVINGS_BOND2_DENOMINATION} set:{SAVINGS_BOND2_EFFECTIVE_DATE*C} FDA(450,IENS,368)={SAVINGS_BOND2_EFFECTIVE_DATE} set:{SAVINGS_BOND2_OWNER*C} FDA(450,IENS,369)={SAVINGS_BOND2_OWNER} set:{SAVINGS_BOND2_OWNER_SSN*C} FDA(450,IENS,370)={SAVINGS_BOND2_OWNER_SSN} set:{SAVINGS_BOND2_ZIP_CODE*C} FDA(450,IENS,371)={SAVINGS_BOND2_ZIP_CODE} set:{PUERTO_RICO_STATE_TAX_EXEMPT*C} FDA(450,IENS,372)={PUERTO_RICO_STATE_TAX_EXEMPT} set:{STATE_TAX1_ADDNL_AMT_WITHHELD*C} FDA(450,IENS,373)={STATE_TAX1_ADDNL_AMT_WITHHELD} set:{STATE_TAX1_AMT_WITHHELD_CTPTD*C} FDA(450,IENS,374)={STATE_TAX1_AMT_WITHHELD_CTPTD} set:{STATE_TAX1_AMT_WITHHELD_YTD*C} FDA(450,IENS,375)={STATE_TAX1_AMT_WITHHELD_YTD} set:{STATE_TAX1_AMT_WITHHELD_CPPD*C} FDA(450,IENS,376)={STATE_TAX1_AMT_WITHHELD_CPPD} set:{STATE_TAX1_EXEMPTION_CODE1*C} FDA(450,IENS,377)={STATE_TAX1_EXEMPTION_CODE1} set:{STATE_TAX1_EXEMPTION_CODE2*C} FDA(450,IENS,378)={STATE_TAX1_EXEMPTION_CODE2} set:{STATE_TAX1_GROSS_PAY_CTPTD*C} FDA(450,IENS,379)={STATE_TAX1_GROSS_PAY_CTPTD} set:{STATE_TAX1_GROSS_PAY_YTD*C} FDA(450,IENS,380)={STATE_TAX1_GROSS_PAY_YTD} set:{STATE_TAX1_GSA_CODE*C} FDA(450,IENS,381)={STATE_TAX1_GSA_CODE} set:{STATE_TAX1_MARITAL_STATUS*C} FDA(450,IENS,382)={STATE_TAX1_MARITAL_STATUS} set:{STATE_TAX1_RESIDENCE_STATE*C} FDA(450,IENS,383)={STATE_TAX1_RESIDENCE_STATE} set:{STATE_TAX2_ADDNL_AMT_WITHHELD*C} FDA(450,IENS,384)={STATE_TAX2_ADDNL_AMT_WITHHELD} set:{STATE_TAX2_AMT_WITHHELD_CTPTD*C} FDA(450,IENS,385)={STATE_TAX2_AMT_WITHHELD_CTPTD} set:{STATE_TAX2_AMT_WITHHELD_YTD*C} FDA(450,IENS,386)={STATE_TAX2_AMT_WITHHELD_YTD} set:{STATE_TAX2_AMT_WITHHELD_CPPD*C} FDA(450,IENS,387)={STATE_TAX2_AMT_WITHHELD_CPPD} set:{STATE_TAX2_EXEMPTION_CODE1*C} FDA(450,IENS,388)={STATE_TAX2_EXEMPTION_CODE1} set:{STATE_TAX2_EXEMPTION_CODE2*C} FDA(450,IENS,389)={STATE_TAX2_EXEMPTION_CODE2} set:{STATE_TAX2_GROSS_PAY_CTPTD*C} FDA(450,IENS,390)={STATE_TAX2_GROSS_PAY_CTPTD} set:{STATE_TAX2_GROSS_PAY_YTD*C} FDA(450,IENS,391)={STATE_TAX2_GROSS_PAY_YTD} set:{STATE_TAX2_GSA_CODE*C} FDA(450,IENS,392)={STATE_TAX2_GSA_CODE} set:{STATE_TAX2_MARITAL_STATUS*C} FDA(450,IENS,393)={STATE_TAX2_MARITAL_STATUS} set:{STATE_TAX2_RESIDENCE_STATE*C} FDA(450,IENS,394)={STATE_TAX2_RESIDENCE_STATE} set:{TSP_1PCT_GOV_CONTRIB_YTD*C} FDA(450,IENS,395)={TSP_1PCT_GOV_CONTRIB_YTD} set:{TSP_AMT_EPPD*C} FDA(450,IENS,396)={TSP_AMT_EPPD} set:{TSP_BASE_PAY_AMT_YTD*C} FDA(450,IENS,397)={TSP_BASE_PAY_AMT_YTD} set:{TSP_DED_PRIOR_APPT_YTD*C} FDA(450,IENS,398)={TSP_DED_PRIOR_APPT_YTD} set:{TSP_ELIG*C} FDA(450,IENS,399)={TSP_ELIG} set:{TSP_LOAN_ACCOUNT_NUMBER*C} FDA(450,IENS,400)={TSP_LOAN_ACCOUNT_NUMBER} set:{TSP_LOAN_DED_CPPD*C} FDA(450,IENS,401)={TSP_LOAN_DED_CPPD} set:{TSP_LOAN_DED_EPPD*C} FDA(450,IENS,402)={TSP_LOAN_DED_EPPD} set:{TSP_MASTER_RECORD_IND*C} FDA(450,IENS,403)={TSP_MASTER_RECORD_IND} set:{TSP_PCT_RATE*C} FDA(450,IENS,404)={TSP_PCT_RATE} set:{TSP_PRIOR_TAX_YEAR_ADJ_CODE*C} FDA(450,IENS,405)={TSP_PRIOR_TAX_YEAR_ADJ_CODE} set:{TSP_SERVICE_COMPU_DATE*C} FDA(450,IENS,406)={TSP_SERVICE_COMPU_DATE} set:{TSP_SEPARATION_CODE*C} FDA(450,IENS,407)={TSP_SEPARATION_CODE} set:{TSP_SEPARATION_DATE*C} FDA(450,IENS,408)={TSP_SEPARATION_DATE} set:{TSP_STATUS*C} FDA(450,IENS,409)={TSP_STATUS} set:{TSP_STATUS_DATE*C} FDA(450,IENS,410)={TSP_STATUS_DATE} set:{TSP_VA_DEPARTMENT_CODE*C} FDA(450,IENS,411)={TSP_VA_DEPARTMENT_CODE} set:{TSP_VESTING*C} FDA(450,IENS,412)={TSP_VESTING} set:{TSP_CSF_EMP_DED_CPPD*C} FDA(450,IENS,413)={TSP_CSF_EMP_DED_CPPD} set:{TSP_CSF_DIST_PCT*C} FDA(450,IENS,414)={TSP_CSF_DIST_PCT} set:{TSP_CSF_GOV_BASIC_CONTRIB*C} FDA(450,IENS,415)={TSP_CSF_GOV_BASIC_CONTRIB} set:{TSP_CSF_GOV_CONTRIB_DIST_PCT*C} FDA(450,IENS,416)={TSP_CSF_GOV_CONTRIB_DIST_PCT} set:{TSP_CSF_GOV_MATCH_CONTRIB*C} FDA(450,IENS,417)={TSP_CSF_GOV_MATCH_CONTRIB} set:{TSP_FIF_EMP_DED_CPPD*C} FDA(450,IENS,418)={TSP_FIF_EMP_DED_CPPD} set:{TSP_FIF_DIST_PCT*C} FDA(450,IENS,419)={TSP_FIF_DIST_PCT} set:{TSP_FIF_GOV_BASIC_CONTRIB*C} FDA(450,IENS,420)={TSP_FIF_GOV_BASIC_CONTRIB} set:{TSP_FIF_GOV_CONTRIB_DIST_PCT*C} FDA(450,IENS,421)={TSP_FIF_GOV_CONTRIB_DIST_PCT} set:{TSP_FIF_GOV_MATCH_CONTRIB*C} FDA(450,IENS,422)={TSP_FIF_GOV_MATCH_CONTRIB} set:{TSP_GSF_EMP_DED_CPPD*C} FDA(450,IENS,423)={TSP_GSF_EMP_DED_CPPD} set:{TSP_GSF_DIST_PCT*C} FDA(450,IENS,424)={TSP_GSF_DIST_PCT} set:{TSP_GSF_GOV_BASIC_CONTRIB*C} FDA(450,IENS,425)={TSP_GSF_GOV_BASIC_CONTRIB} set:{TSP_GSF_GOV_CONTRIB_DIST_PCT*C} FDA(450,IENS,426)={TSP_GSF_GOV_CONTRIB_DIST_PCT} set:{TSP_GSF_GOV_MATCH_CONTRIB*C} FDA(450,IENS,427)={TSP_GSF_GOV_MATCH_CONTRIB} set:{UNION_CODE1*C} FDA(450,IENS,428)={UNION_CODE1} set:{UNION_CODE2*C} FDA(450,IENS,429)={UNION_CODE2} set:{UNION_DUES_ANNIVERSARY_DATE*C} FDA(450,IENS,430)={UNION_DUES_ANNIVERSARY_DATE} set:{UNION_DUES1_DEDUCTION_CPPD*C} FDA(450,IENS,431)={UNION_DUES1_DEDUCTION_CPPD} set:{UNION_DUES1_DEDUCTION_EPPD*C} FDA(450,IENS,432)={UNION_DUES1_DEDUCTION_EPPD} set:{UNION_DUES2_DEDUCTION_CPPD*C} FDA(450,IENS,433)={UNION_DUES2_DEDUCTION_CPPD} set:{UNION_DUES2_DEDUCTION_EPPD*C} FDA(450,IENS,434)={UNION_DUES2_DEDUCTION_EPPD} set:{VOLUNTARY_ALLOTMENT1_AMT*C} FDA(450,IENS,435)={VOLUNTARY_ALLOTMENT1_AMT} set:{VOLUNTARY_ALLOTMENT_AMT_CPPD*C} FDA(450,IENS,436)={VOLUNTARY_ALLOTMENT_AMT_CPPD} set:{VOLUNTARY_ALLOTMENT1_CTRL_NO*C} FDA(450,IENS,437)={VOLUNTARY_ALLOTMENT1_CTRL_NO} set:{VOLUNTARY_ALLOTMENT2_AMT*C} FDA(450,IENS,438)={VOLUNTARY_ALLOTMENT2_AMT} set:{VOLUNTARY_ALLOTMENT2_CTRL_NO*C} FDA(450,IENS,439)={VOLUNTARY_ALLOTMENT2_CTRL_NO} set:{VOLUNTARY_ALLOTMENT3_AMT*C} FDA(450,IENS,439.1)={VOLUNTARY_ALLOTMENT3_AMT} set:{VOLUNTARY_ALLOTMENT3_CTRL_NO*C} FDA(450,IENS,439.2)={VOLUNTARY_ALLOTMENT3_CTRL_NO} set:{VOLUNTARY_ALLOTMENT4_AMT*C} FDA(450,IENS,439.3)={VOLUNTARY_ALLOTMENT4_AMT} set:{VOLUNTARY_ALLOTMENT4_CTRL_NO*C} FDA(450,IENS,439.4)={VOLUNTARY_ALLOTMENT4_CTRL_NO} set:{BANK_ACCOUNT_NUMBER*C} FDA(450,IENS,440)={BANK_ACCOUNT_NUMBER} set:{BANK_ACCOUNT_TYPE*C} FDA(450,IENS,441)={BANK_ACCOUNT_TYPE} set:{BANK_EFT_ROUTING_NUMBER*C} FDA(450,IENS,442)={BANK_EFT_ROUTING_NUMBER} set:{BULK_CHECK_OPTION*C} FDA(450,IENS,443)={BULK_CHECK_OPTION} set:{CHECK_DISTRIBUTION_CODE*C} FDA(450,IENS,444)={CHECK_DISTRIBUTION_CODE} set:{EARNED_INCOME_CREDIT_AMT_CPPD*C} FDA(450,IENS,445)={EARNED_INCOME_CREDIT_AMT_CPPD} set:{EARNED_INCOME_CREDIT_AMT_EPPD*C} FDA(450,IENS,446)={EARNED_INCOME_CREDIT_AMT_EPPD} set:{EARNED_INCOME_CREDIT_AMT_YTD*C} FDA(450,IENS,447)={EARNED_INCOME_CREDIT_AMT_YTD} set:{EARNED_INCOME_CREDIT_CODE*C} FDA(450,IENS,448)={EARNED_INCOME_CREDIT_CODE} set:{FINAL_PAY_IND*C} FDA(450,IENS,449)={FINAL_PAY_IND} set:{FTE_EQUIVALENT*C} FDA(450,IENS,450)={FTE_EQUIVALENT} set:{LABOR_DIST_CODE1_FUND_CTRL_PT*C} FDA(450,IENS,451)={LABOR_DIST_CODE1_FUND_CTRL_PT} set:{INTMT_EMP_DAYS_WORKED_PROB_PD*C} FDA(450,IENS,452)={INTMT_EMP_DAYS_WORKED_PROB_PD} set:{INTMT_EMP_DAYS_WORKED_STEP*C} FDA(450,IENS,453)={INTMT_EMP_DAYS_WORKED_STEP} set:{INTMT_EMP_DAYS_WORKED_YTD*C} FDA(450,IENS,454)={INTMT_EMP_DAYS_WORKED_YTD} set:{LAST_PPD_PROCESSED*C} FDA(450,IENS,455)={LAST_PPD_PROCESSED} set:{MONTHLY_ANNUITY*C} FDA(450,IENS,456)={MONTHLY_ANNUITY} set:{SEVERANCE_PAY_AMT_CPPD*C} FDA(450,IENS,457)={SEVERANCE_PAY_AMT_CPPD} set:{LABOR_DIST_CODE1_COST_CTRORG*C} FDA(450,IENS,458)={LABOR_DIST_CODE1_COST_CTRORG} set:{VERIFIED_FICAMED_WAGE_DIFF*C} FDA(450,IENS,459)={VERIFIED_FICAMED_WAGE_DIFF} set:{AL_NONACCRUAL_IND*C} FDA(450,IENS,460)={AL_NONACCRUAL_IND} set:{ANNUAL_LEAVE_CREDIT_HOURS*C} FDA(450,IENS,461)={ANNUAL_LEAVE_CREDIT_HOURS} set:{ANNUAL_LEAVE_CURRENT_BALANCE*C} FDA(450,IENS,462)={ANNUAL_LEAVE_CURRENT_BALANCE} set:{ANNUAL_LEAVE_EARNED_LYTD*C} FDA(450,IENS,463)={ANNUAL_LEAVE_EARNED_LYTD} set:{ANNUAL_LEAVE_EOPY_BALANCE*C} FDA(450,IENS,464)={ANNUAL_LEAVE_EOPY_BALANCE} set:{ANNUAL_LEAVE_USED_CPPD*C} FDA(450,IENS,465)={ANNUAL_LEAVE_USED_CPPD} set:{ANNUAL_LEAVE_USED_LYTD*C} FDA(450,IENS,466)={ANNUAL_LEAVE_USED_LYTD} set:{LEAVE_ACCRUAL_ELIG_IND_NPPD*C} FDA(450,IENS,467)={LEAVE_ACCRUAL_ELIG_IND_NPPD} set:{NONPAY_ANNUAL_LEAVE_USED_CPPD*C} FDA(450,IENS,468)={NONPAY_ANNUAL_LEAVE_USED_CPPD} set:{RESTORED_ANNUAL_LEAVE_BAL1*C} FDA(450,IENS,469)={RESTORED_ANNUAL_LEAVE_BAL1} set:{RESTORED_ANNUAL_LEAVE_BAL2*C} FDA(450,IENS,470)={RESTORED_ANNUAL_LEAVE_BAL2} set:{RESTORED_ANNUAL_LEAVE_YEAR1*C} FDA(450,IENS,471)={RESTORED_ANNUAL_LEAVE_YEAR1} set:{RESTORED_ANNUAL_LEAVE_YEAR2*C} FDA(450,IENS,472)={RESTORED_ANNUAL_LEAVE_YEAR2} set:{BAYLOR_PLAN_AL_CURRENT_BAL*C} FDA(450,IENS,473)={BAYLOR_PLAN_AL_CURRENT_BAL} set:{BAYLOR_PLAN_AL_EOPY_BAL*C} FDA(450,IENS,474)={BAYLOR_PLAN_AL_EOPY_BAL} set:{BAYLOR_PLAN_AL_USED_LYTD*C} FDA(450,IENS,475)={BAYLOR_PLAN_AL_USED_LYTD} set:{BAYLOR_PLAN_LWOP_CCY*C} FDA(450,IENS,476)={BAYLOR_PLAN_LWOP_CCY} set:{BAYLOR_PLAN_LWOP_LYTD*C} FDA(450,IENS,477)={BAYLOR_PLAN_LWOP_LYTD} set:{BAYLOR_PLAN_LWOP_PROB_PD*C} FDA(450,IENS,478)={BAYLOR_PLAN_LWOP_PROB_PD} set:{BAYLOR_PLAN_LWOP_SINCE_PROM*C} FDA(450,IENS,479)={BAYLOR_PLAN_LWOP_SINCE_PROM} set:{BAYLOR_PLAN_LWOP_THIS_STEP*C} FDA(450,IENS,480)={BAYLOR_PLAN_LWOP_THIS_STEP} set:{BAYLOR_PLAN_RESTORED_AL_BAL1*C} FDA(450,IENS,481)={BAYLOR_PLAN_RESTORED_AL_BAL1} set:{BAYLOR_PLAN_RESTORED_AL_BAL2*C} FDA(450,IENS,482)={BAYLOR_PLAN_RESTORED_AL_BAL2} set:{BAYLOR_PLAN_RESTORED_AL_YEAR1*C} FDA(450,IENS,483)={BAYLOR_PLAN_RESTORED_AL_YEAR1} set:{BAYLOR_PLAN_RESTORED_AL_YEAR2*C} FDA(450,IENS,484)={BAYLOR_PLAN_RESTORED_AL_YEAR2} set:{BAYLOR_PLAN_SL_CURRENT_BAL*C} FDA(450,IENS,485)={BAYLOR_PLAN_SL_CURRENT_BAL} set:{BAYLOR_PLAN_SL_EOPY_BAL*C} FDA(450,IENS,486)={BAYLOR_PLAN_SL_EOPY_BAL} set:{BAYLOR_PLAN_SL_USED_LYTD*C} FDA(450,IENS,487)={BAYLOR_PLAN_SL_USED_LYTD} set:{COMPTIMECREDIT_HRS_BAL_PPD1*C} FDA(450,IENS,488)={COMPTIMECREDIT_HRS_BAL_PPD1} set:{COMPTIMECREDIT_HRS_BAL_PPD2*C} FDA(450,IENS,489)={COMPTIMECREDIT_HRS_BAL_PPD2} set:{COMPTIMECREDIT_HRS_BAL_PPD3*C} FDA(450,IENS,490)={COMPTIMECREDIT_HRS_BAL_PPD3} set:{COMPTIMECREDIT_HRS_BAL_PPD4*C} FDA(450,IENS,491)={COMPTIMECREDIT_HRS_BAL_PPD4} set:{COMPTIMECREDIT_HRS_BAL_PPD5*C} FDA(450,IENS,492)={COMPTIMECREDIT_HRS_BAL_PPD5} set:{COMPTIMECREDIT_HRS_BAL_PPD6*C} FDA(450,IENS,493)={COMPTIMECREDIT_HRS_BAL_PPD6} set:{COMPTIMECREDIT_HRS_BAL_PPD7*C} FDA(450,IENS,494)={COMPTIMECREDIT_HRS_BAL_PPD7} set:{COMPTIMECREDIT_HRS_BAL_PPD8*C} FDA(450,IENS,495)={COMPTIMECREDIT_HRS_BAL_PPD8} set:{COMPTIMECREDIT_HRS_BALANCE*C} FDA(450,IENS,496)={COMPTIMECREDIT_HRS_BALANCE} set:{COMPTIMECREDIT_HRS_PPD1_NAME*C} FDA(450,IENS,497)={COMPTIMECREDIT_HRS_PPD1_NAME} set:{COMPTIMECREDIT_HRS_PPD2_NAME*C} FDA(450,IENS,498)={COMPTIMECREDIT_HRS_PPD2_NAME} set:{COMPTIMECREDIT_HRS_PPD3_NAME*C} FDA(450,IENS,499)={COMPTIMECREDIT_HRS_PPD3_NAME} set:{COMPTIMECREDIT_HRS_PPD4_NAME*C} FDA(450,IENS,500)={COMPTIMECREDIT_HRS_PPD4_NAME} set:{COMPTIMECREDIT_HRS_PPD5_NAME*C} FDA(450,IENS,501)={COMPTIMECREDIT_HRS_PPD5_NAME} set:{COMPTIMECREDIT_HRS_PPD6_NAME*C} FDA(450,IENS,502)={COMPTIMECREDIT_HRS_PPD6_NAME} set:{COMPTIMECREDIT_HRS_PPD7_NAME*C} FDA(450,IENS,503)={COMPTIMECREDIT_HRS_PPD7_NAME} set:{COMPTIMECREDIT_HRS_PPD8_NAME*C} FDA(450,IENS,504)={COMPTIMECREDIT_HRS_PPD8_NAME} set:{COMPTIMECREDIT_HRS_USED_CPPD*C} FDA(450,IENS,505)={COMPTIMECREDIT_HRS_USED_CPPD} set:{MILITARY_LEAVE_BALANCE*C} FDA(450,IENS,506)={MILITARY_LEAVE_BALANCE} set:{MILITARY_LEAVE_ELIGIBILITY_IND*C} FDA(450,IENS,507)={MILITARY_LEAVE_ELIGIBILITY_IND} set:{MILITARY_LEAVE_TYPE*C} FDA(450,IENS,507.1)={MILITARY_LEAVE_TYPE} set:{MILITARY_LEAVE_USED_CPPD*C} FDA(450,IENS,507.2)={MILITARY_LEAVE_USED_CPPD} set:{FROZEN_SICK_LEAVE*C} FDA(450,IENS,508)={FROZEN_SICK_LEAVE} set:{TOTAL_SICK_LEAVE_CREDIT_HOURS*C} FDA(450,IENS,509)={TOTAL_SICK_LEAVE_CREDIT_HOURS} set:{TOTAL_SICK_LEAVE_BALANCE*C} FDA(450,IENS,510)={TOTAL_SICK_LEAVE_BALANCE} set:{TOTAL_SICK_LEAVE_EARNED*C} FDA(450,IENS,511)={TOTAL_SICK_LEAVE_EARNED} set:{TOTAL_SICK_LEAVE_EOPY_BALANCE*C} FDA(450,IENS,512)={TOTAL_SICK_LEAVE_EOPY_BALANCE} set:{TOTAL_SICK_LEAVE_USED_CPPD*C} FDA(450,IENS,513)={TOTAL_SICK_LEAVE_USED_CPPD} set:{TOTAL_SICK_LEAVE_USED_LYTD*C} FDA(450,IENS,514)={TOTAL_SICK_LEAVE_USED_LYTD} set:{EXTENDED_LWOP_IND*C} FDA(450,IENS,515)={EXTENDED_LWOP_IND} set:{INTERAGENCY_LWOP_IND*C} FDA(450,IENS,516)={INTERAGENCY_LWOP_IND} set:{LWOP_CCY*C} FDA(450,IENS,517)={LWOP_CCY} set:{LWOP_CONTROL_UNITS_LYTD*C} FDA(450,IENS,518)={LWOP_CONTROL_UNITS_LYTD} set:{LWOP_HOURSDAYS_CPPD*C} FDA(450,IENS,519)={LWOP_HOURSDAYS_CPPD} set:{LWOP_LYTD*C} FDA(450,IENS,520)={LWOP_LYTD} set:{LWOP_PROB_PD*C} FDA(450,IENS,521)={LWOP_PROB_PD} set:{LWOP_SINCE_PROM*C} FDA(450,IENS,522)={LWOP_SINCE_PROM} set:{LWOP_THIS_STEP*C} FDA(450,IENS,523)={LWOP_THIS_STEP} set:{LWOP_WGPW_PYTD*C} FDA(450,IENS,524)={LWOP_WGPW_PYTD} set:{ANNUAL_LEAVE_LUMP_SUM_AMT*C} FDA(450,IENS,525)={ANNUAL_LEAVE_LUMP_SUM_AMT} set:{ANNUAL_LEAVE_LUMP_SUM_HRSDAYS*C} FDA(450,IENS,526)={ANNUAL_LEAVE_LUMP_SUM_HRSDAYS} set:{COLA_AMT_CPPD*C} FDA(450,IENS,527)={COLA_AMT_CPPD} set:{COLA_AMT_YTD*C} FDA(450,IENS,528)={COLA_AMT_YTD} set:{COLA*C} FDA(450,IENS,529)={COLA} set:{UNSCHEDULED_HOURS*C} FDA(450,IENS,530)={UNSCHEDULED_HOURS} set:{FLSA_OVERTIME_WEEK_CODE_CPPD*C} FDA(450,IENS,531)={FLSA_OVERTIME_WEEK_CODE_CPPD} set:{MOVING_EXPENSES_CPPD*C} FDA(450,IENS,532)={MOVING_EXPENSES_CPPD} set:{PURCHASE_AND_HIRE_CASH_PAYMENT*C} FDA(450,IENS,533)={PURCHASE_AND_HIRE_CASH_PAYMENT} set:{BASE_PAY_AMT_PRIOR_TO_RET_COV*C} FDA(450,IENS,534)={BASE_PAY_AMT_PRIOR_TO_RET_COV} set:{BASE_PAY_CHANGE_PPD*C} FDA(450,IENS,535)={BASE_PAY_CHANGE_PPD} set:{BASE_PAY_CHANGE_YEAR*C} FDA(450,IENS,536)={BASE_PAY_CHANGE_YEAR} set:{BASE_PAY_CPPD*C} FDA(450,IENS,537)={BASE_PAY_CPPD} set:{REEMP_ANNUITANT_BASE_PAY_REDUC*C} FDA(450,IENS,538)={REEMP_ANNUITANT_BASE_PAY_REDUC} set:{BASE_PAY_SUBJECT_TO_CSRS*C} FDA(450,IENS,539)={BASE_PAY_SUBJECT_TO_CSRS} set:{GROSS_PAY_CPPD*C} FDA(450,IENS,540)={GROSS_PAY_CPPD} set:{NET_PAY_CPPD*C} FDA(450,IENS,541)={NET_PAY_CPPD} set:{NET_PAY_OUTOFSYSTEM_AMT_CPPD*C} FDA(450,IENS,542)={NET_PAY_OUTOFSYSTEM_AMT_CPPD} set:{AUO_AMT_CPPD*C} FDA(450,IENS,543)={AUO_AMT_CPPD} set:{AUO_PERCENT*C} FDA(450,IENS,544)={AUO_PERCENT} set:{ENVIRONMENTAL_HAZARD_HRS_CPPD*C} FDA(450,IENS,545)={ENVIRONMENTAL_HAZARD_HRS_CPPD} set:{HOLIDAY_AMT*C} FDA(450,IENS,546)={HOLIDAY_AMT} set:{HOLIDAY_HOURS*C} FDA(450,IENS,547)={HOLIDAY_HOURS} set:{PREMIUM_PAY_IND*C} FDA(450,IENS,548)={PREMIUM_PAY_IND} set:{NIGHT_DIFF_AMT_CPPD*C} FDA(450,IENS,549)={NIGHT_DIFF_AMT_CPPD} set:{NIGHT_DIFF_HRS_CPPD*C} FDA(450,IENS,550)={NIGHT_DIFF_HRS_CPPD} set:{NIGHT_DIFF_IND*C} FDA(450,IENS,551)={NIGHT_DIFF_IND} set:{ON_CALL_AMT_CPPD*C} FDA(450,IENS,552)={ON_CALL_AMT_CPPD} set:{ON_CALL_HRS_CPPD*C} FDA(450,IENS,553)={ON_CALL_HRS_CPPD} set:{OVERTIME_AMT_CPPD*C} FDA(450,IENS,554)={OVERTIME_AMT_CPPD} set:{OVERTIME_HOURS_CPPD*C} FDA(450,IENS,555)={OVERTIME_HOURS_CPPD} set:{PREMIUM_PAY_PCT*C} FDA(450,IENS,556)={PREMIUM_PAY_PCT} set:{POST_DIFF_AMT_CPPD*C} FDA(450,IENS,557)={POST_DIFF_AMT_CPPD} set:{SATURDAY_AMT_CPPD*C} FDA(450,IENS,558)={SATURDAY_AMT_CPPD} set:{STANDBY_AMT_CPPD*C} FDA(450,IENS,559)={STANDBY_AMT_CPPD} set:{SUNDAY_AMT_CPPD*C} FDA(450,IENS,560)={SUNDAY_AMT_CPPD} set:{SUNDAY_HRS_CPPD*C} FDA(450,IENS,561)={SUNDAY_HRS_CPPD} set:{REG_HOURS_AT_OT_RATE*C} FDA(450,IENS,562)={REG_HOURS_AT_OT_RATE} set:{UNIFORM_ALLOWANCE_AMT_CPPD*C} FDA(450,IENS,563)={UNIFORM_ALLOWANCE_AMT_CPPD} set:{UNIFORM_ALLOWANCE_EFF_DATE*C} FDA(450,IENS,564)={UNIFORM_ALLOWANCE_EFF_DATE} set:{UNIFORM_ALLOWANCE_HOURLY_RATE*C} FDA(450,IENS,565)={UNIFORM_ALLOWANCE_HOURLY_RATE} set:{VCS_301_COST_ACCOUNT*C} FDA(450,IENS,566)={VCS_301_COST_ACCOUNT} set:{VCS_302_COST_ACCOUNT*C} FDA(450,IENS,567)={VCS_302_COST_ACCOUNT} set:{VCS_303_COST_ACCOUNT*C} FDA(450,IENS,568)={VCS_303_COST_ACCOUNT} set:{VCS_304_COST_ACCOUNT*C} FDA(450,IENS,569)={VCS_304_COST_ACCOUNT} set:{VCS_601_COST_ACCOUNT*C} FDA(450,IENS,570)={VCS_601_COST_ACCOUNT} set:{VCS_601_COST_ACCOUNT_SUBCODE*C} FDA(450,IENS,571)={VCS_601_COST_ACCOUNT_SUBCODE} set:{VCS_701_COST_ACCOUNT*C} FDA(450,IENS,572)={VCS_701_COST_ACCOUNT} set:{VCS_702_COST_ACCOUNT*C} FDA(450,IENS,573)={VCS_702_COST_ACCOUNT} set:{VCS_703_COST_ACCOUNT*C} FDA(450,IENS,574)={VCS_703_COST_ACCOUNT} set:{VCS_704_COST_ACCOUNT*C} FDA(450,IENS,575)={VCS_704_COST_ACCOUNT} set:{VCS_706_COST_ACCOUNT*C} FDA(450,IENS,576)={VCS_706_COST_ACCOUNT} set:{VCS_709_COST_ACCOUNT*C} FDA(450,IENS,577)={VCS_709_COST_ACCOUNT} set:{VCS_ADDNL_OPTIONAL_LIFE_INS*C} FDA(450,IENS,578)={VCS_ADDNL_OPTIONAL_LIFE_INS} set:{VCS_AREA*C} FDA(450,IENS,579)={VCS_AREA} set:{VCS_BASIC_LIFE_INS_UNITS*C} FDA(450,IENS,580)={VCS_BASIC_LIFE_INS_UNITS} set:{VCS_COMMISSION_PERCENT*C} FDA(450,IENS,581)={VCS_COMMISSION_PERCENT} set:{VCS_HRLY_RATE_FOR_LEAVEHOL*C} FDA(450,IENS,582)={VCS_HRLY_RATE_FOR_LEAVEHOL} set:{VCS_LEAVE_COST_ADJUSTMENT_AMT*C} FDA(450,IENS,583)={VCS_LEAVE_COST_ADJUSTMENT_AMT} set:{VCS_LEAVE_LIABILITY*C} FDA(450,IENS,584)={VCS_LEAVE_LIABILITY} set:{VCS_MINWAGE_CD_PW_CPPD*C} FDA(450,IENS,585)={VCS_MINWAGE_CD_PW_CPPD} set:{VCS_SALE_SUM_PW_CPPD*C} FDA(450,IENS,586)={VCS_SALE_SUM_PW_CPPD} set:{VCS_ALLOTMENT_AMT*C} FDA(450,IENS,586.1)={VCS_ALLOTMENT_AMT} set:{INCENTIVE_AWARD*C} FDA(450,IENS,587)={INCENTIVE_AWARD} set:{PERFORMANCE_AWARD*C} FDA(450,IENS,587.1)={PERFORMANCE_AWARD} set:{TRAVEL_SAVINGS_AWARD*C} FDA(450,IENS,587.2)={TRAVEL_SAVINGS_AWARD} set:{PMRS_PERFORMANCE_AWARD_AMT*C} FDA(450,IENS,588)={PMRS_PERFORMANCE_AWARD_AMT} set:{SES_PERFORMANCE_AWARD_AMT_CPPD*C} FDA(450,IENS,589)={SES_PERFORMANCE_AWARD_AMT_CPPD} set:{DUTY_STATION*C} FDA(450,IENS,590)={DUTY_STATION} set:{NORMAL_HOURS*C} FDA(450,IENS,591)={NORMAL_HOURS} set:{ANNUAL_LEAVE_USED_CPPD_HOURS*C} FDA(450,IENS,592)={ANNUAL_LEAVE_USED_CPPD_HOURS} set:{TOTAL_SICK_LEAVE_HRS_USED_CPPD*C} FDA(450,IENS,593)={TOTAL_SICK_LEAVE_HRS_USED_CPPD} set:{GROSS_PAY_PLUS_BENEFITS_CPPD*C} FDA(450,IENS,594)={GROSS_PAY_PLUS_BENEFITS_CPPD} set:{RELOCATION_BONUS*C} FDA(450,IENS,595)={RELOCATION_BONUS} set:{RECRUITMENT_BONUS*C} FDA(450,IENS,596)={RECRUITMENT_BONUS} set:{HAZARD_PAY_DIFFERENTIAL*C} FDA(450,IENS,597)={HAZARD_PAY_DIFFERENTIAL} set:{NONPAY_HOURS_CPPD*C} FDA(450,IENS,598)={NONPAY_HOURS_CPPD} set:{LWOP_HOURS_CPPD*C} FDA(450,IENS,599)={LWOP_HOURS_CPPD} set:{WGI_DUE_DATE*C} FDA(450,IENS,600)={WGI_DUE_DATE} set:{SPECIALIZED_SKILLS_IND*C} FDA(450,IENS,601)={SPECIALIZED_SKILLS_IND} set:{ANNUITANT_IND*C} FDA(450,IENS,602)={ANNUITANT_IND} set:{VET_STATUS*C} FDA(450,IENS,603)={VET_STATUS} set:{LEVEL604*C} FDA(450,IENS,604)={LEVEL604} set:{SCHEDULE_NUMBER*C} FDA(450,IENS,605)={SCHEDULE_NUMBER} set:{STAFFING_DIFFERENTIAL_PCT*C} FDA(450,IENS,606)={STAFFING_DIFFERENTIAL_PCT} set:{STAFFING_DIFFERENTIAL*C} FDA(450,IENS,606.1)={STAFFING_DIFFERENTIAL} set:{SUPERVISORY_DIFFERENTIAL*C} FDA(450,IENS,607)={SUPERVISORY_DIFFERENTIAL} set:{SUPERVISORY_DIFFERENTIAL_CPPD*C} FDA(450,IENS,607.1)={SUPERVISORY_DIFFERENTIAL_CPPD} set:{RETENTION_ALLOWANCE_PCT*C} FDA(450,IENS,608)={RETENTION_ALLOWANCE_PCT} set:{RETENTION_ALLOWANCE*C} FDA(450,IENS,608.1)={RETENTION_ALLOWANCE} set:{JOB_SHARE*C} FDA(450,IENS,609)={JOB_SHARE} set:{OVERTIME_HOURS_WK_1*C} FDA(450,IENS,610)={OVERTIME_HOURS_WK_1} set:{OVERTIME_HOURS_WK_2*C} FDA(450,IENS,611)={OVERTIME_HOURS_WK_2} set:{OVERTIME_AMT_WK_1*C} FDA(450,IENS,612)={OVERTIME_AMT_WK_1} set:{OVERTIME_AMT_WK_2*C} FDA(450,IENS,613)={OVERTIME_AMT_WK_2} set:{HRS_EXCESS_8_DAY_WK_1*C} FDA(450,IENS,614)={HRS_EXCESS_8_DAY_WK_1} set:{HRS_EXCESS_8_DAY_WK_2*C} FDA(450,IENS,615)={HRS_EXCESS_8_DAY_WK_2} set:{HRS_EXCESS_8_DAY_AMT_WK_1*C} FDA(450,IENS,616)={HRS_EXCESS_8_DAY_AMT_WK_1} set:{HRS_EXCESS_8_DAY_AMT_WK_2*C} FDA(450,IENS,617)={HRS_EXCESS_8_DAY_AMT_WK_2} set:{REG_HOURS_AT_OT_RATE_WK_1*C} FDA(450,IENS,618)={REG_HOURS_AT_OT_RATE_WK_1} set:{REG_HOURS_AT_OT_RATE_WK_2*C} FDA(450,IENS,619)={REG_HOURS_AT_OT_RATE_WK_2} set:{REG_HOURS_AT_OT_RATE_AMT_WK_1*C} FDA(450,IENS,620)={REG_HOURS_AT_OT_RATE_AMT_WK_1} set:{REG_HOURS_AT_OT_RATE_AMT_WK_2*C} FDA(450,IENS,621)={REG_HOURS_AT_OT_RATE_AMT_WK_2} set:{NONOVERTIME_HOURS*C} FDA(450,IENS,622)={NONOVERTIME_HOURS} set:{NONOVERTIME_AMT*C} FDA(450,IENS,623)={NONOVERTIME_AMT} set:{OT_ON_HOL_HOURS*C} FDA(450,IENS,624)={OT_ON_HOL_HOURS} set:{OT_ON_HOL_AMT*C} FDA(450,IENS,625)={OT_ON_HOL_AMT} set:{TRAINING_WK_1*C} FDA(450,IENS,626)={TRAINING_WK_1} set:{TRAINING_WK_2*C} FDA(450,IENS,627)={TRAINING_WK_2} set:{TRAVEL_HOURS_WK_1*C} FDA(450,IENS,628)={TRAVEL_HOURS_WK_1} set:{TRAVEL_HOURS_WK_2*C} FDA(450,IENS,629)={TRAVEL_HOURS_WK_2} set:{TRAVEL_OVERTIME_WK_1*C} FDA(450,IENS,630)={TRAVEL_OVERTIME_WK_1} set:{TRAVEL_OVERTIME_WK_2*C} FDA(450,IENS,631)={TRAVEL_OVERTIME_WK_2} set:{TELEWORK_INDICATOR*C} FDA(450,IENS,634)={TELEWORK_INDICATOR} set:{NEW_PERSON*C} FDA(450,IENS,700)={NEW_PERSON} set:{GEOGRAPHIC_LOCATION_PAY*C} FDA(450,IENS,701)={GEOGRAPHIC_LOCATION_PAY} set:{EXCEPTIONAL_QUALIFICATIONS*C} FDA(450,IENS,702)={EXCEPTIONAL_QUALIFICATIONS} set:{POSITION_RESPONSIBILITY*C} FDA(450,IENS,703)={POSITION_RESPONSIBILITY} set:{SCARCE_SPECIALTY_PAY*C} FDA(450,IENS,704)={SCARCE_SPECIALTY_PAY} set:{PHYSICIAN_AND_DENTIST_PAY_CAP*C} FDA(450,IENS,705)={PHYSICIAN_AND_DENTIST_PAY_CAP} set:{TAX_GARNISHMENT1*C} FDA(450,IENS,706)={TAX_GARNISHMENT1} set:{TAX_GARNISHMENT2*C} FDA(450,IENS,707)={TAX_GARNISHMENT2} set:{COMMERCIAL_GARNISHMENT1*C} FDA(450,IENS,708)={COMMERCIAL_GARNISHMENT1} set:{COMMERCIAL_GARNISHMENT2*C} FDA(450,IENS,709)={COMMERCIAL_GARNISHMENT2} set:{CAREBEREAVE_LEAVE_USED_CPPD*C} FDA(450,IENS,710)={CAREBEREAVE_LEAVE_USED_CPPD} set:{CAREBEREAVE_LEAVE_USED_LYTD*C} FDA(450,IENS,711)={CAREBEREAVE_LEAVE_USED_LYTD} set:{ADOPTION_LEAVE_USED_CPPD*C} FDA(450,IENS,712)={ADOPTION_LEAVE_USED_CPPD} set:{ADOPTION_LEAVE_USED_LYTD*C} FDA(450,IENS,713)={ADOPTION_LEAVE_USED_LYTD} set:{OTHER_SICK_LEAVE_USED_CPPD*C} FDA(450,IENS,714)={OTHER_SICK_LEAVE_USED_CPPD} set:{OTHER_SICK_LEAVE_USED_LYTD*C} FDA(450,IENS,715)={OTHER_SICK_LEAVE_USED_LYTD} set:{DONOR_LEAVE_USED_CPPD*C} FDA(450,IENS,716)={DONOR_LEAVE_USED_CPPD} set:{DONOR_LEAVE_USED_LYTD*C} FDA(450,IENS,717)={DONOR_LEAVE_USED_LYTD} set:{SAVINGS_BOND1_TYPE*C} FDA(450,IENS,718)={SAVINGS_BOND1_TYPE} set:{SAVINGS_BOND2_TYPE*C} FDA(450,IENS,719)={SAVINGS_BOND2_TYPE} set:{SAVINGS_BOND3_ADD_LINE1*C} FDA(450,IENS,720)={SAVINGS_BOND3_ADD_LINE1} set:{SAVINGS_BOND3_ADD_LINE2*C} FDA(450,IENS,721)={SAVINGS_BOND3_ADD_LINE2} set:{SAVINGS_BOND3_ADD_LINE3*C} FDA(450,IENS,722)={SAVINGS_BOND3_ADD_LINE3} set:{SAVINGS_BOND3_BALANCE*C} FDA(450,IENS,723)={SAVINGS_BOND3_BALANCE} set:{SAVINGS_BOND3_BENE_CODE*C} FDA(450,IENS,724)={SAVINGS_BOND3_BENE_CODE} set:{SAVINGS_BOND3_COOWNER*C} FDA(450,IENS,725)={SAVINGS_BOND3_COOWNER} set:{SAVINGS_BOND3_COOWNER_SSN*C} FDA(450,IENS,726)={SAVINGS_BOND3_COOWNER_SSN} set:{SAVINGS_BOND3_DED_BALANCE*C} FDA(450,IENS,727)={SAVINGS_BOND3_DED_BALANCE} set:{SAVINGS_BOND3_DED_EPPD*C} FDA(450,IENS,728)={SAVINGS_BOND3_DED_EPPD} set:{SAVINGS_BOND3_DENOMINATION*C} FDA(450,IENS,729)={SAVINGS_BOND3_DENOMINATION} set:{SAVINGS_BOND3_EFFECTIVE_DATE*C} FDA(450,IENS,730)={SAVINGS_BOND3_EFFECTIVE_DATE} set:{SAVINGS_BOND3_OWNER*C} FDA(450,IENS,731)={SAVINGS_BOND3_OWNER} set:{SAVINGS_BOND3_OWNER_SSN*C} FDA(450,IENS,732)={SAVINGS_BOND3_OWNER_SSN} set:{SAVINGS_BOND3_ZIP_CODE*C} FDA(450,IENS,733)={SAVINGS_BOND3_ZIP_CODE} set:{SAVINGS_BOND3_TYPE*C} FDA(450,IENS,734)={SAVINGS_BOND3_TYPE} set:{SAVINGS_BOND4_ADD_LINE1*C} FDA(450,IENS,735)={SAVINGS_BOND4_ADD_LINE1} set:{SAVINGS_BOND4_ADD_LINE2*C} FDA(450,IENS,736)={SAVINGS_BOND4_ADD_LINE2} set:{SAVINGS_BOND4_ADD_LINE3*C} FDA(450,IENS,737)={SAVINGS_BOND4_ADD_LINE3} set:{SAVINGS_BOND4_BALANCE*C} FDA(450,IENS,738)={SAVINGS_BOND4_BALANCE} set:{SAVINGS_BOND4_BENE_CODE*C} FDA(450,IENS,739)={SAVINGS_BOND4_BENE_CODE} set:{SAVINGS_BOND4_COOWNER*C} FDA(450,IENS,740)={SAVINGS_BOND4_COOWNER} set:{SAVINGS_BOND4_COOWNER_SSN*C} FDA(450,IENS,741)={SAVINGS_BOND4_COOWNER_SSN} set:{SAVINGS_BOND4_DED_BALANCE*C} FDA(450,IENS,742)={SAVINGS_BOND4_DED_BALANCE} set:{SAVINGS_BOND4_DED_EPPD*C} FDA(450,IENS,743)={SAVINGS_BOND4_DED_EPPD} set:{SAVINGS_BOND4_DENOMINATION*C} FDA(450,IENS,744)={SAVINGS_BOND4_DENOMINATION} set:{SAVINGS_BOND4_EFFECTIVE_DATE*C} FDA(450,IENS,745)={SAVINGS_BOND4_EFFECTIVE_DATE} set:{SAVINGS_BOND4_OWNER*C} FDA(450,IENS,746)={SAVINGS_BOND4_OWNER} set:{SAVINGS_BOND4_OWNER_SSN*C} FDA(450,IENS,747)={SAVINGS_BOND4_OWNER_SSN} set:{SAVINGS_BOND4_ZIP_CODE*C} FDA(450,IENS,748)={SAVINGS_BOND4_ZIP_CODE} set:{SAVINGS_BOND4_TYPE*C} FDA(450,IENS,749)={SAVINGS_BOND4_TYPE} set:{FLTCIP_INDICATOR*C} FDA(450,IENS,750)={FLTCIP_INDICATOR} set:{FLTCIP_CPPD*C} FDA(450,IENS,751)={FLTCIP_CPPD} set:{FED_EMP_HLTH_BENE_CRT_ORD_IND*C} FDA(450,IENS,752)={FED_EMP_HLTH_BENE_CRT_ORD_IND} set:{EARNINGS__LEAVE_PRT_SELECTION*C} FDA(450,IENS,753)={EARNINGS__LEAVE_PRT_SELECTION} set:{FEDERAL_TAX_LOCKIN_INDICATOR*C} FDA(450,IENS,754)={FEDERAL_TAX_LOCKIN_INDICATOR} set:{LABOR_DIST_CODE_CHANGED_BY*C} FDA(450,IENS,755)={LABOR_DIST_CODE_CHANGED_BY} set:{TYPE_OF_INTERFACE*C} FDA(450,IENS,755.1)={TYPE_OF_INTERFACE} set:{LABOR_DIST_CODE_EDIT_DATE*C} FDA(450,IENS,756)={LABOR_DIST_CODE_EDIT_DATE} set:{HLTH_CARE_FLEX_SPEND_ACCT_YTD*C} FDA(450,IENS,758)={HLTH_CARE_FLEX_SPEND_ACCT_YTD} set:{HLTH_CARE_FLEX_SPEND_ACCT_CPPD*C} FDA(450,IENS,759)={HLTH_CARE_FLEX_SPEND_ACCT_CPPD} set:{DPNT_CARE_FLEX_SPEND_ACCT_YTD*C} FDA(450,IENS,760)={DPNT_CARE_FLEX_SPEND_ACCT_YTD} set:{DPNT_CARE_FLEX_SPEND_ACCT_CPPD*C} FDA(450,IENS,761)={DPNT_CARE_FLEX_SPEND_ACCT_CPPD} set:{TAX_GARNISHMENT3*C} FDA(450,IENS,762)={TAX_GARNISHMENT3} set:{TAX_GARNISHMENT4*C} FDA(450,IENS,763)={TAX_GARNISHMENT4} set:{COMMERCIAL_GARNISHMENT3*C} FDA(450,IENS,764)={COMMERCIAL_GARNISHMENT3} set:{COMMERCIAL_GARNISHMENT4*C} FDA(450,IENS,765)={COMMERCIAL_GARNISHMENT4} set:{ENUMERATION_INITIATED*C} FDA(450,IENS,900)={ENUMERATION_INITIATED} set:{ENUMERATION_COMPLETED*C} FDA(450,IENS,901)={ENUMERATION_COMPLETED} set:{REQUIRES_TRANSMISSION*C} FDA(450,IENS,902)={REQUIRES_TRANSMISSION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(450)") set %SkipFiling=1 if $d(%FMERR(450,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(450)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PAIDEMPLOYE8511S index ^PRSPC nonnull "B" {EMPLOYEE_NAME} {IEN} 0]]> data ^PRSPC {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" "T38" 1 "^" 1 1 "^" 1 2 "^" 1 3 "^" "ACSB" 1 "^" "ACSB" 2 "^" "ACSB" 3 "^" "ACSB" 4 "^" "ACSB" 5 "^" "ACSB" 6 "^" "ACSB" 7 "^" "ACSB" 8 "^" "ACSB" 9 "^" "ACSB" 10 "^" "ACSB" 11 "^" "ACSB" 12 "^" "ACSB" 13 "^" "ACSB" 14 "^" 0 34 "^" "T38" 2 "^" "T38" 14 "^" 0 2 "^" "SICK" 11 "^" "SICK" 12 "^" 1 4 "^" "ANNUAL" 1 "^" 2 1 "^" "ANNUAL" 2 "^" "ANNUAL" 3 "^" "ANNUAL" 4 "^" "ANNUAL" 5 "^" "LUMPSUM" 1 "^" "LUMPSUM" 2 "^" 2 4 "^" "ANNUAL" 6 "^" "ANNUAL" 14 "^" "ANNUAL" 7 "^" "T38" 4 "^" "T38" 3 "^" "MISC" 6 "^" 0 4 "^" "PREMIUM" 1 "^" "PREMIUM" 2 "^" "MISC4" 1 "^" "MISC4" 2 "^" "MISC4" 3 "^" "PAY" 1 "^" "PAY" 2 "^" "PAY" 3 "^" "PAY" 4 "^" "PAY" 6 "^" "BAYLOR" 1 "^" "BAYLOR" 2 "^" "BAYLOR" 3 "^" "BAYLOR" 4 "^" "BAYLOR" 5 "^" "BAYLOR" 6 "^" "BAYLOR" 7 "^" "BAYLOR" 8 "^" "BAYLOR" 9 "^" "BAYLOR" 10 "^" "BAYLOR" 11 "^" "BAYLOR" 12 "^" "BAYLOR" 13 "^" "BAYLOR" 14 "^" "BAYLOR" 15 "^" 2 15 "^" "T38" 5 "^" "T38" 6 "^" "MISC4" 4 "^" 1 5 "^" "SICK" 9 "^" "SICK" 10 "^" 2 23 "^" 1 6 "^" "CFC" 1 "^" "CFC" 2 "^" "CFC" 3 "^" "MISC4" 5 "^" "ADD" 1 "^" "ADD" 2 "^" "ADD" 3 "^" "ADD" 4 "^" 0 5 "^" "CITY" 1 "^" "CITY" 2 "^" "CITY" 3 "^" "CITY" 4 "^" "CITY" 5 "^" "CITY" 6 "^" "CITY" 7 "^" "CITY" 8 "^" "CITY" 9 "^" "CITY" 10 "^" "CITY" 11 "^" "CITY" 12 "^" "CITY" 15 "^" "CITY" 13 "^" "CITY" 14 "^" "CITY" 16 "^" "CITY" 17 "^" "CITY" 18 "^" "CITY" 19 "^" "CITY" 20 "^" "CITY" 21 "^" "CITY" 22 "^" "PCD" 1 "^" "PCD" 2 "^" "COLA" 3 "^" "COLA" 1 "^" "COLA" 2 "^" "ACSB" 17 "^" "ACSB" 18 "^" "ACSB" 21 "^" "ACSB" 22 "^" 0 38 "^" 1 7 "^" "COMP" 9 "^" "COMP" 1 "^" "COMP" 2 "^" "COMP" 3 "^" "COMP" 4 "^" "COMP" 5 "^" "COMP" 6 "^" "COMP" 7 "^" "COMP" 8 "^" "COMP" 10 "^" "COMP" 11 "^" "COMP" 12 "^" "COMP" 13 "^" "COMP" 14 "^" "COMP" 15 "^" "COMP" 16 "^" "COMP" 17 "^" "COMP" 18 "^" "T38" 7 "^" "T38" 8 "^" 2 5 "^" "T38" 9 "^" "T38" 10 "^" "T38" 11 "^" 1 8 "^" "RETIRE" 1 "^" "RETIRE" 2 "^" "RETIRE" 8 "^" 1 9 "^" 1 10 "^" "PCD" 3 "^" "PCD" 4 "^" 2 19 "^" 0 33 "^" 2 18 "^" 2 17 "^" "OTHER" 1 "^" "OTHER" 2 "^" "OTHER" 3 "^" "OTHER" 4 "^" "T38" 21 "^" 1 11 "^" "SICK" 15 "^" "SICK" 16 "^" "FSA" 4 "^" "FSA" 3 "^" 0 10 "^" 1 42 "^" "MISC4" 6 "^" "MISC4" 7 "^" "MISC4" 8 "^" "MISC4" 9 "^" "ADD" 5 "^" "ADD" 11 "^" 0 11 "^" 3 17 "^" 2 10 "^" 0 1 "^" "OTHER" 5 "^" "MPI" 2 "^" "MPI" 1 "^" "PREMIUM" 3 "^" "T38" 38 "^" 3 1 "^" 3 19 "^" 3 14 "^" 3 2 "^" 3 3 "^" 2 25 "^" 2 8 "^" 3 4 "^" 3 18 "^" 2 12 "^" 3 20 "^" 2 2 "^" 2 7 "^" 3 21 "^" 3 5 "^" 3 6 "^" 3 7 "^" 3 8 "^" 3 9 "^" 3 22 "^" 3 10 "^" 3 23 "^" 2 20 "^" 3 11 "^" 3 12 "^" 3 13 "^" "LWOP" 1 "^" "FED" 1 "^" 2 22 "^" "FED" 2 "^" "FED" 5 "^" "FED" 3 "^" "FED" 4 "^" "FED" 6 "^" "FED" 7 "^" "FED" 8 "^" "FED" 13 "^" "FED" 12 "^" "FEGLI" 1 "^" "FEGLI" 2 "^" "FEGLI" 3 "^" "FEGLI" 4 "^" "FEGLI" 5 "^" "FEGLI" 6 "^" "FEGLI" 7 "^" "RETIRE" 5 "^" "RETIRE" 6 "^" "RETIRE" 7 "^" "MISC4" 10 "^" 1 12 "^" 0 12 "^" "MISC" 2 "^" "FLTCIP" 2 "^" "FLTCIP" 1 "^" 2 27 "^" 2 28 "^" 2 29 "^" 2 30 "^" 2 31 "^" 2 32 "^" 4 1 "^" 4 2 "^" 4 3 "^" 4 4 "^" 4 5 "^" 4 6 "^" 4 7 "^" 4 8 "^" 4 9 "^" 4 10 "^" 4 11 "^" 4 12 "^" 4 13 "^" 4 14 "^" 4 15 "^" 4 16 "^" 4 17 "^" 4 18 "^" 4 19 "^" 4 20 "^" 3 16 "^" "T38" 13 "^" 1 13 "^" "SICK" 1 "^" "MISC4" 11 "^" "FED" 9 "^" "FED" 10 "^" 0 13 "^" "PCD" 5 "^" "PCD" 6 "^" 1 36 "^" "MISC" 20 "^" "QSGP" 1 "^" "QSGP" 2 "^" "T38" 37 "^" "PCD" 7 "^" "PCD" 8 "^" 0 14 "^" "PAY" 7 "^" "PAY" 10 "^" "MEDICARE" 5 "^" "MEDICARE" 6 "^" "MISC" 19 "^" "FEHB" 1 "^" "FEHB" 5 "^" "FEHB" 3 "^" "FEHB" 4 "^" "FEHB" 6 "^" "FEHB" 2 "^" "FSA" 2 "^" "FSA" 1 "^" "PREMIUM" 4 "^" "PREMIUM" 5 "^" 1 31 "^" "PREMIUM1" 7 "^" "PREMIUM1" 8 "^" "PREMIUM1" 5 "^" "PREMIUM1" 6 "^" "AWARDS" 1 "^" 0 6 "^" "LWOP" 2 "^" "T38" 15 "^" "MISC4" 13 "^" "MISC4" 14 "^" "MISC4" 15 "^" "MISC" 13 "^" 0 18 "^" 0 49 "^" "MISC4" 12 "^" "LDAUDIT" 1 "^" "LDAUDIT" 2 "^" "MISC4" 16 "^" 1 15 "^" "ANNUAL" 8 "^" 0 15 "^" "MISC" 8 "^" 1 29 "^" 1 30 "^" 1 32 "^" "MISC" 21 "^" "LWOP" 3 "^" "LWOP" 4 "^" "T38" 12 "^" "LWOP" 5 "^" "LWOP" 11 "^" "LWOP" 6 "^" "LWOP" 7 "^" "LWOP" 8 "^" "LWOP" 9 "^" "LWOP" 10 "^" "FED" 11 "^" 1 16 "^" "MEDICARE" 1 "^" "MEDICARE" 2 "^" "MEDICARE" 3 "^" "MEDICARE" 4 "^" "MEDICARE" 7 "^" "MEDICARE" 8 "^" "MILITARY" 1 "^" "MILITARY" 2 "^" "MILITARY" 3 "^" "MILITARY" 4 "^" "MISC4" 17 "^" 1 14 "^" "MISC" 3 "^" "MSD1" 1 "^" "MSD1" 2 "^" "MSD1" 3 "^" "MSD1" 4 "^" "MSD1" 5 "^" "MSD1" 6 "^" "MSD2" 1 "^" "MSD2" 2 "^" "MSD1" 7 "^" "MSD1" 8 "^" "MSD1" 9 "^" "MSD2" 3 "^" "MSD1" 10 "^" "MSD1" 11 "^" "MSD1" 12 "^" "MSD1" 13 "^" "MSD1" 14 "^" "MSD1" 15 "^" "MSD2" 4 "^" "MSD2" 5 "^" "MSD2" 6 "^" "MSD2" 7 "^" "MSD2" 8 "^" "MSD2" 9 "^" "MSD2" 10 "^" "MSD2" 11 "^" "MSD1" 16 "^" "MSD1" 17 "^" "MSD1" 18 "^" "MSD2" 12 "^" "MSD2" 13 "^" "MSD2" 14 "^" "PAY" 8 "^" "PAY" 9 "^" 200 1 "^" 0 35 "^" "PREMIUM" 7 "^" "PREMIUM" 8 "^" "PREMIUM" 9 "^" "PREMIUM1" 14 "^" "PREMIUM1" 13 "^" "T38" 18 "^" "ANNUAL" 9 "^" 1 19 "^" 1 43 "^" 1 20 "^" 0 50 "^" "T38" 16 "^" "T38" 17 "^" "OASDI" 1 "^" "OASDI" 2 "^" "OASDI" 3 "^" "OASDI" 4 "^" "OASDI" 5 "^" "OASDI" 6 "^" "OASDI" 7 "^" "OASDI" 8 "^" "OASDI" 9 "^" "OASDI" 10 "^" 2 11 "^" 0 17 "^" "OTHER" 6 "^" "PREMIUM" 10 "^" "PREMIUM" 11 "^" "OTHER" 7 "^" "OTHER" 8 "^" "OTHER" 9 "^" "OTHER" 10 "^" "OTHER" 11 "^" "OTHER" 12 "^" "SICK" 13 "^" "SICK" 14 "^" "OTHER" 13 "^" "OTHER" 14 "^" "OTHER" 15 "^" "OTHER" 16 "^" "OTHER" 17 "^" "OTHER" 18 "^" "PREMIUM1" 16 "^" "PREMIUM1" 15 "^" "PREMIUM" 12 "^" "PREMIUM1" 3 "^" "PREMIUM1" 4 "^" "PREMIUM" 13 "^" "PREMIUM1" 1 "^" "PREMIUM1" 2 "^" 1 21 "^" "QSGP" 4 "^" "QSGP" 5 "^" 1 23 "^" 1 22 "^" "T38" 19 "^" 0 20 "^" 0 21 "^" 0 22 "^" "AWARDS" 4 "^" 0 23 "^" "T38" 41 "^" 2 3 "^" 1 24 "^" "AWARDS" 2 "^" 0 24 "^" "PCD" 9 "^" "T38" 39 "^" "PREMIUM" 15 "^" "T38" 20 "^" "PREMIUM" 6 "^" "PREMIUM" 14 "^" 0 25 "^" 0 26 "^" "PVAE" 6 "^" "PVAE" 7 "^" "PVAE" 8 "^" "PVAE" 9 "^" "PVAE" 10 "^" "PVAE" 11 "^" "PVAE" 12 "^" "PVAE" 13 "^" "PVAE" 1 "^" "PVAE" 2 "^" "PVAE" 3 "^" "PVAE" 4 "^" "PVAE" 5 "^" 1 25 "^" 2 24 "^" "T38" 22 "^" 1 26 "^" 1 27 "^" "STATE" 1 "^" "MISC" 4 "^" "QSGP" 6 "^" "QSGP" 8 "^" "QSGP" 7 "^" "QSGP" 3 "^" "QSGP" 9 "^" "MISC" 18 "^" 2 9 "^" "PAY" 5 "^" "RETIRE" 3 "^" "RETIRE" 4 "^" "PREMIUM" 20 "^" "PREMIUM1" 11 "^" "PREMIUM1" 12 "^" "PREMIUM1" 9 "^" "PREMIUM1" 10 "^" "MISC" 17 "^" "MPI" 3 "^" "ADD" 7 "^" "ADD" 8 "^" "ADD" 9 "^" "ADD" 10 "^" "ADD" 6 "^" "ANNUAL" 10 "^" "ANNUAL" 11 "^" "ANNUAL" 12 "^" "ANNUAL" 13 "^" "MISC" 16 "^" "MISC" 12 "^" 1 17 "^" 3 15 "^" 1 28 "^" 0 27 "^" "RETIRE" 9 "^" "RETIRE" 10 "^" "T38" 23 "^" 0 29 "^" 0 28 "^" "PREMIUM" 16 "^" "SALLOT" 2 "^" "SALLOT" 1 "^" "SALLOT" 4 "^" "SALLOT" 3 "^" "BOND1" 2 "^" "BOND1" 3 "^" "BOND1" 4 "^" "BOND1" 5 "^" "BOND1" 6 "^" "BOND1" 7 "^" "BOND1" 8 "^" "BOND1" 9 "^" "BOND1" 10 "^" "BOND1" 11 "^" "BOND1" 12 "^" "BOND1" 13 "^" "BOND1" 14 "^" "BOND1" 16 "^" "BOND1" 15 "^" "BOND2" 1 "^" "BOND2" 2 "^" "BOND2" 3 "^" "BOND2" 4 "^" "BOND2" 5 "^" "BOND2" 6 "^" "BOND2" 7 "^" "BOND2" 8 "^" "BOND2" 9 "^" "BOND2" 10 "^" "BOND2" 11 "^" "BOND2" 12 "^" "BOND2" 13 "^" "BOND2" 15 "^" "BOND2" 14 "^" "BOND3" 1 "^" "BOND3" 2 "^" "BOND3" 3 "^" "BOND3" 4 "^" "BOND3" 5 "^" "BOND3" 6 "^" "BOND3" 7 "^" "BOND3" 8 "^" "BOND3" 9 "^" "BOND3" 10 "^" "BOND3" 11 "^" "BOND3" 12 "^" "BOND3" 13 "^" "BOND3" 15 "^" "BOND3" 14 "^" "BOND4" 1 "^" "BOND4" 2 "^" "BOND4" 3 "^" "BOND4" 4 "^" "BOND4" 5 "^" "BOND4" 6 "^" "BOND4" 7 "^" "BOND4" 8 "^" "BOND4" 9 "^" "BOND4" 10 "^" "BOND4" 11 "^" "BOND4" 12 "^" "BOND4" 13 "^" "BOND4" 15 "^" "BOND4" 14 "^" "BOND1" 1 "^" "T38" 40 "^" 0 30 "^" "MISC" 9 "^" 1 33 "^" 0 31 "^" 1 34 "^" "AWARDS" 3 "^" 2 13 "^" "MISC4" 18 "^" 0 32 "^" "MISC" 5 "^" "T38" 33 "^" "T38" 31 "^" "T38" 25 "^" "T38" 26 "^" "T38" 27 "^" "T38" 28 "^" "T38" 24 "^" 1 35 "^" "T38" 29 "^" "PCD" 10 "^" "T38" 32 "^" "T38" 30 "^" 0 9 "^" 0 36 "^" "MISC" 14 "^" "MISC" 10 "^" "PREMIUM" 17 "^" "T38" 35 "^" "T38" 34 "^" "STATE" 2 "^" "STATE" 5 "^" "STATE" 3 "^" "STATE" 4 "^" "STATE" 6 "^" "STATE" 7 "^" "STATE" 8 "^" "STATE" 9 "^" "STATE" 10 "^" "STATE" 11 "^" "STATE" 12 "^" "STATE" 13 "^" "STATE" 16 "^" "STATE" 14 "^" "STATE" 15 "^" "STATE" 17 "^" "STATE" 18 "^" "STATE" 19 "^" "STATE" 20 "^" "STATE" 21 "^" "STATE" 22 "^" "STATE" 23 "^" 0 3 "^" 0 37 "^" 0 7 "^" "PCD" 12 "^" 0 39 "^" 2 21 "^" 0 19 "^" "QSGP" 10 "^" "QSGP" 11 "^" "PREMIUM" 18 "^" "PREMIUM" 19 "^" 0 42 "^" 2 14 "^" "MISC" 11 "^" "MISC" 15 "^" 0 40 "^" 1 37 "^" "ACSB" 15 "^" "ACSB" 16 "^" "ACSB" 19 "^" "ACSB" 20 "^" 1 45 "^" 2 26 "^" 0 41 "^" "SICK" 3 "^" "SICK" 2 "^" "SICK" 4 "^" "SICK" 5 "^" "SICK" 8 "^" "SICK" 6 "^" "SICK" 7 "^" "PCD" 13 "^" "PREMIUM1" 17 "^" "PREMIUM1" 18 "^" "PREMIUM1" 19 "^" "PREMIUM1" 20 "^" "PREMIUM1" 21 "^" "PREMIUM1" 22 "^" "AWARDS" 5 "^" "TSP1" 1 "^" "TSP1" 2 "^" "TSP1" 3 "^" "TSP2" 2 "^" "TSP2" 1 "^" "TSP2" 3 "^" "TSP2" 4 "^" "TSP2" 5 "^" "TSP1" 4 "^" "TSP1" 5 "^" "TSP2" 7 "^" "TSP2" 6 "^" "TSP2" 8 "^" "TSP2" 9 "^" "TSP2" 10 "^" "TSP2" 12 "^" "TSP2" 11 "^" "TSP2" 13 "^" "TSP2" 14 "^" "TSP2" 15 "^" "TSP1" 6 "^" "TSP1" 7 "^" "TSP1" 8 "^" "TSP1" 9 "^" "TSP1" 10 "^" "TSP1" 11 "^" "TSP1" 13 "^" "TSP1" 14 "^" "TSP1" 12 "^" "TSP1" 15 "^" "TSP1" 16 "^" "TSP1" 17 "^" "TSP1" 18 "^" 0 43 "^" "LDAUDIT" 3 "^" 0 8 "^" "UNIFORM" 1 "^" "UNIFORM" 2 "^" "UNIFORM" 3 "^" "UNION" 1 "^" "UNION" 2 "^" "UNION" 4 "^" "UNION" 5 "^" "UNION" 6 "^" "UNION" 7 "^" "UNION" 3 "^" "MISC" 1 "^" 1 38 "^" 1 39 "^" "T38" 36 "^" 1 40 "^" "VCS" 1 "^" "VCS" 2 "^" "VCS" 3 "^" "VCS" 4 "^" "VCS" 5 "^" "VCS" 6 "^" "VCS" 7 "^" "VCS" 8 "^" "VCS" 9 "^" "VCS" 10 "^" "VCS" 11 "^" "VCS" 12 "^" "VCS" 13 "^" "VCS" 22 "^" "VCS" 14 "^" "VCS" 15 "^" "VCS" 16 "^" "VCS" 17 "^" "VCS" 18 "^" "VCS" 19 "^" "VCS" 20 "^" "VCS" 21 "^" "MISC4" 20 "^" 0 44 "^" "MISC" 7 "^" 1 41 "^" "VALLOT" 1 "^" "VALLOT" 3 "^" "VALLOT" 4 "^" "VALLOT" 5 "^" "VALLOT" 6 "^" "VALLOT" 7 "^" "VALLOT" 8 "^" "VALLOT" 9 "^" "VALLOT" 2 "^" 0 51 "^" 0 45 "^" 0 46 "^" 0 47 "^" "PCD" 11 "^" 0 48 "^" 2 16 "^" 2 6 "^" 0 16 index {SSN}'="" 1 ^PRSPC conditional "SSN" $$TRUNCATE({SSN},30)) {IEN} 0]]> Generated class for FileMan File Number: '2005.03' File Name: 'PARENT DATA FILE' Class generated by %fm2class version 2.56 +---------------------------------------------------------------+ | | | Property of the US Government. | | No permission to copy or redistribute this software is given. | | Use of unreleased versions of this software requires the user | | to execute a written test agreement with the VistA Imaging | | Development Office of the Department of Veterans Affairs, | | telephone (301) 734-0100. | | | | The Food and Drug Administration classifies this software as | | a medical device. As such, it may not be changed in any way. | | Modifications to this software may result in an adulterated | | medical device under 21CFR820, the use of which is considered | | to be a violation of US Federal Statutes. | | | +---------------------------------------------------------------+ The Imaging File (2005) has many "imaging multiples" pointing to it from other packages such as Radiology, Medicine, Surgery, Mailman and the various sub-files of Laboratory such as Surgical Pathology etc. In order to have a method of tracing back from the Image file to the parent file multiple, a file was developed to aid in this process, along with some additional fields in the Image file. Using these fields along with the PARENT DATA FILE, backward navigation is possible whether it be to a multiple of a file, or a multiple of a sub-file of a file. Each image that is captured is associated with a procedure or test report. Depending on the service collecting the image, different types of reports will be associated. For example: * Medical Procedures: Endoscopy, Dermatology, Hematology, Rheumatology, etc. * Anatomic Pathology: Surgical Pathology, Cytology, Autopsy, Electron Microscopy * Radiology: Xray, CT, MRI, Ultrasound * Surgery Operation reports * Text Integration Utility Progress notes In order to be able to display information from the associated report, references to that report are stored in the Image file. One of these references is a pointer to the Parent Report file (2005.03), which contains an entry for each package's report file that is currently supported. persistent _PUBLIC 0 RowId PARENT_DATA_FILE_2005_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.964372575 67178,44713.002207204 right PARENT DATA FILE 2005.03 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '.02' This is the commonly used abbreviation for the file or sub-file. Some examples would be SUR, MAIL, ENDO, SP etc. %Library.String 5 ABBREVIATION FileMan Field Label: 'FILE/SUBFILE NAME' FileMan Field Number: '.01' This is the actual name of the file or sub-file of a file. Some examples would be Message, Surgery, Surgical Pathology. %Library.String 1 4 FILESUBFILE_NAME FileMan Field Label: 'FILE/SUBFILE NUMBER' FileMan Field Number: '.001' This is the actual number of a file or sub-file of a file. Some examples of the .001 field are: For Radiology Reports file it is 74, for the Message file (MailMan) it is 3.9, for Endoscopy (Medicine) 655, for Surgery 130, and for Surgical Pathology it is 63.08 (the sub-file number of Lab Data file, 63). %Library.String 1 3 Set {*}={IEN} 1 FILESUBFILE_NUMBER FileMan Field Label: 'GLOBAL ROOT TYPE' FileMan Field Number: '.03' This is used in the editing and deletion of image pointers in other files. Since the Image file (2005) is pointed to by a variety of files a system had to be created to enable backward navigation. The global root data types or forms have been put into three groups: ROOT1 - like "^RARPT("; "^SRO("; "^LR("; ROOT2 - like "^XMB(3.9,"; "^MCAR(699," ROOT3 - like "^LR(D0,""SP""," SUB-FILE of ^LR( (where D0 = LRDFN) %Library.EnumString 6 GLOBAL_ROOT_TYPE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MAG(2005.03,0),""^"",3)") 1 2 IEN FileMan Field Label: 'ORIGIN INDEX' FileMan Field Number: '45' This field indicates whether an image or document originated inside or outside of VA. %Library.EnumString 8 ORIGIN_INDEX FileMan Field Label: 'PACKAGE INDEX' FileMan Field Number: '40' This is the abbreviation of the application (package) that the image is attached to. %Library.EnumString 7 PACKAGE_INDEX SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MAG(2005.03," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{FILESUBFILE_NAME}'="" FDA(2005.03,"+1,",.01)={"FILESUBFILE_NAME"} set:{ABBREVIATION}'="" FDA(2005.03,"+1,",.02)={"ABBREVIATION"} set:{GLOBAL_ROOT_TYPE}'="" FDA(2005.03,"+1,",.03)={"GLOBAL_ROOT_TYPE"} set:{PACKAGE_INDEX}'="" FDA(2005.03,"+1,",40)={"PACKAGE_INDEX"} set:{ORIGIN_INDEX}'="" FDA(2005.03,"+1,",45)={"ORIGIN_INDEX"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2005.03)") set %SkipFiling=1 if $d(%FMERR(2005.03,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.03)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{FILESUBFILE_NAME*C} FDA(2005.03,IENS,.01)={FILESUBFILE_NAME} set:{ABBREVIATION*C} FDA(2005.03,IENS,.02)={ABBREVIATION} set:{GLOBAL_ROOT_TYPE*C} FDA(2005.03,IENS,.03)={GLOBAL_ROOT_TYPE} set:{PACKAGE_INDEX*C} FDA(2005.03,IENS,40)={PACKAGE_INDEX} set:{ORIGIN_INDEX*C} FDA(2005.03,IENS,45)={ORIGIN_INDEX} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.03)") set %SkipFiling=1 if $d(%FMERR(2005.03,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.03)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PARENTDATAF2BE9S index {FILESUBFILE_NAME}'="" 1 ^MAG conditional 2005.03 "B" $$TRUNCATE({FILESUBFILE_NAME},30)) {IEN} 0]]> data ^MAG 2005.03 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 "^" 2 6 "^" 2 1 Generated class for FileMan File Number: '695.4' File Name: 'PAST HISTORY AND RISK FACTOR' Class generated by %fm2class version 2.56 File holds the various types of risk factors that can affect a procedure. persistent _PUBLIC 0 RowId PAST_HISTORY_AND_RISK_FACTOR_695_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44739.986458016 67178,44713.035941663 right PAST HISTORY AND RISK FACTOR 695.4 2.56 12/04/2024 12:25:13 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'RISK FACTOR' FileMan Field Number: '.01' This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules. %Library.String 1 3 RISK_FACTOR FileMan Field Label: 'SURGERY RISK FACTOR?' FileMan Field Number: '1' %Library.EnumString 4 SURGERY_RISK_FACTOR SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{RISK_FACTOR}'="" FDA(695.4,"+1,",.01)={"RISK_FACTOR"} set:{SURGERY_RISK_FACTOR}'="" FDA(695.4,"+1,",1)={"SURGERY_RISK_FACTOR"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695.4)") set %SkipFiling=1 if $d(%FMERR(695.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{RISK_FACTOR*C} FDA(695.4,IENS,.01)={RISK_FACTOR} set:{SURGERY_RISK_FACTOR*C} FDA(695.4,IENS,1)={SURGERY_RISK_FACTOR} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.4)") set %SkipFiling=1 if $d(%FMERR(695.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PASTHISTORY4A2DS index ^MCAR nonnull 695.4 "B" {RISK_FACTOR} {IEN} 0]]> data ^MCAR 695.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '2' File Name: 'PATIENT' Class generated by %fm2class version 2.56 The PATIENT file contains all the patients followed by the medical center/ Outpatient clinic. At a minimum each patient entry must have a NAME, DATE OF BIRTH and SOCIAL SECURITY NUMBER. In order to add a new patient to the PATIENT file the user must also indicate whether or not the patient is requesting to receive care as a VETERAN of the U.S. Armed Forces and specify the TYPE of patient being added to the system. For the most part the information contained in this file is demographic in nature, i.e., address, employment, service history, etc., however data concerning admissions, appointments,etc., is also stored in this file. The ADMISSION sub-field is scheduled to be moved into the new PATIENT MOVEMENT file by the end of calendar year 1989. Care should be used when removing a patient from the PATIENT file since virtually all other DHCP modules do utilize data from this file. Of the many fields in the file you will note that many are preceeded by an asterisk. Those fields are scheduled to be removed from the file due to either lack of use or replacement by another field/file in the next release. persistent _PUBLIC 0 RowId PATIENT_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.434558972 67178,44713.101978031 right PATIENT 2 2.56 12/04/2024 12:25:13 1 1 IEN 1 INSTITUTION_4]]> ADDRESSCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_ADDRESS_CHANGE_SITE NEW_PERSON_200]]> ADDRESSCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ADDRESS_CHANGE_USER OTHER_FEDERAL_AGENCY_35]]> AGENCYALLIEDCOUNTRY VALIP.prosthetic.fm2cw.OTHERFEDERALAGENCY35 FKey_AGENCYALLIED_COUNTRY NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN CATEGORY_OF_BENEFICIARY_45_82]]> CATEGORYOFBENEFICIARY VALIP.prosthetic.fm2cw.CATEGORYOFBENEFICIARY4582 FKey_CATEGORY_OF_BENEFICIARY INSTITUTION_4]]> CELLULARNUMBERCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_CELLULAR_NUMBER_CHANGE_SITE NEW_PERSON_200]]> CELLULARNUMBERCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CELLULAR_NUMBER_CHANGE_USER INSTITUTION_4]]> CLAIMFOLDERLOCATION0 VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_CLAIM_FOLDER_LOCATION0 HOSPITAL_LOCATION_44]]> CLHOSPITALLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_CL_HOSPITAL_LOCATION INSTITUTION_4]]> CLOFFSTATIONLOCATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_CL_OFFSTATION_LOCATION PATIENT_2]]> COLLATERALSPONSORSNAME VALIP.prosthetic.fm2cw.PATIENT2 FKey_COLLATERAL_SPONSORS_NAME POW_PERIOD_22]]> COMBATSERVICELOCATION VALIP.prosthetic.fm2cw.POWPERIOD22 FKey_COMBAT_SERVICE_LOCATION STATE_5]]> CONFIDENTIALADDRESSSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_CONFIDENTIAL_ADDRESS_STATE INSTITUTION_4]]> CONFIDENTIALADDRCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_CONFIDENTIAL_ADDR_CHANGE_SITE NEW_PERSON_200]]> CONFIDENTIALADDRCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CONFIDENTIAL_ADDR_CHANGE_USER COUNTRY_CODE_779_004]]> CONFIDENTIALADDRCOUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_CONFIDENTIAL_ADDR_COUNTRY NEW_PERSON_200]]> CONFIDENTIALPHONECHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CONFIDENTIAL_PHONE_CHANGE_USER INSTITUTION_4]]> COORDINATINGMASTEROFRECORD VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_COORDINATING_MASTER_OF_RECORD COUNTRY_CODE_779_004]]> COUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_COUNTRY PATIENT_MOVEMENT_405]]> CURRENTADMISSION VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 FKey_CURRENT_ADMISSION PATIENT_ENROLLMENT_27_11]]> CURRENTENROLLMENT VALIP.prosthetic.fm2cw.PATIENTENROLLMENT2711 FKey_CURRENT_ENROLLMENT MEANS_TEST_STATUS_408_32]]> CURRENTMEANSTESTSTATUS VALIP.prosthetic.fm2cw.MEANSTESTSTATUS40832 FKey_CURRENT_MEANS_TEST_STATUS PATIENT_MOVEMENT_405]]> CURRENTMOVEMENT VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 FKey_CURRENT_MOVEMENT NEW_PERSON_200]]> CURRENTPCPRACTITIONER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CURRENT_PC_PRACTITIONER TEAM_404_51]]> CURRENTPCTEAM VALIP.prosthetic.fm2cw.TEAM40451 FKey_CURRENT_PC_TEAM ROOMBED_405_4]]> CURRENTROOM VALIP.prosthetic.fm2cw.ROOMBED4054 FKey_CURRENT_ROOM COUNTRY_CODE_779_004]]> DCOUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_DCOUNTRY NEW_PERSON_200]]> DEATHENTEREDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DEATH_ENTERED_BY DENTAL_CLASSIFICATION_220_2]]> DENTALCLASSIFICATION VALIP.prosthetic.fm2cw.DENTALCLASSIFICATION2202 FKey_DENTAL_CLASSIFICATION NAME_COMPONENTS_20]]> DNAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_DNAME_COMPONENTS DOCTOR_442044]]> DR VALIP.prosthetic.fm2cw.DOCTOR442044 FKey_DR PATIENT_CONTACT_RELATION_12_11]]> DRELATIONSHIPTYPE VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 FKey_DRELATIONSHIP_TYPE STATE_5]]> DSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_DSTATE COUNTRY_CODE_779_004]]> E2COUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_E2COUNTRY NAME_COMPONENTS_20]]> E2NAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_E2NAME_COMPONENTS PATIENT_CONTACT_RELATION_12_11]]> E2RELATIONSHIPTYPE VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 FKey_E2RELATIONSHIP_TYPE STATE_5]]> E2STATE VALIP.prosthetic.fm2cw.STATE5 FKey_E2STATE COUNTRY_CODE_779_004]]> ECOUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_ECOUNTRY NEW_PERSON_200]]> ELIGIBILITYSTATUSENTEREDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ELIGIBILITY_STATUS_ENTERED_BY INSTITUTION_4]]> EMAILADDRESSCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_EMAIL_ADDRESS_CHANGE_SITE NEW_PERSON_200]]> EMAILADDRESSCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_EMAIL_ADDRESS_CHANGE_USER STATE_5]]> EMPLOYERSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_EMPLOYER_STATE NAME_COMPONENTS_20]]> ENAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_ENAME_COMPONENTS PATIENT_CONTACT_RELATION_12_11]]> ERELATIONSHIPTYPE VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 FKey_ERELATIONSHIP_TYPE STATE_5]]> ESTATE VALIP.prosthetic.fm2cw.STATE5 FKey_ESTATE INSTITUTION_4]]> FACILITYMAKINGDETERMINATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_FACILITY_MAKING_DETERMINATION NAME_COMPONENTS_20]]> FATHERSNAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_FATHERS_NAME_COMPONENTS NEW_PERSON_200]]> FFFENTEREDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FFF_ENTERED_BY NEW_PERSON_200]]> FFFREMOVEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FFF_REMOVED_BY HOSPITAL_LOCATION_44]]> HLHOSPITALLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_HL_HOSPITAL_LOCATION INSTITUTION_4]]> HLOFFSTATIONLOCATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_HL_OFFSTATION_LOCATION NEW_PERSON_200]]> INDIANSELFIDENTCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INDIAN_SELF_IDENT_CHANGE_USER STATE_5]]> INELIGIBLETWXSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_INELIGIBLE_TWX_STATE INSTITUTION_4]]> INSTITUTIONVA VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_INSTITUTION_VA COUNTRY_CODE_779_004]]> K2COUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_K2COUNTRY NAME_COMPONENTS_20]]> K2NAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_K2NAME_COMPONENTS PATIENT_CONTACT_RELATION_12_11]]> K2RELATIONSHIPTYPE VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 FKey_K2RELATIONSHIP_TYPE STATE_5]]> K2STATE VALIP.prosthetic.fm2cw.STATE5 FKey_K2STATE COUNTRY_CODE_779_004]]> KCOUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_KCOUNTRY NAME_COMPONENTS_20]]> KNAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_KNAME_COMPONENTS PATIENT_CONTACT_RELATION_12_11]]> KRELATIONSHIPTYPE VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 FKey_KRELATIONSHIP_TYPE STATE_5]]> KSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_KSTATE LAB_DATA_63]]> LABORATORYREFERENCE VALIP.prosthetic.fm2cw.LABDATA63 FKey_LABORATORY_REFERENCE REFERRAL_PATIENT_67]]> LABREFERRALREF VALIP.prosthetic.fm2cw.REFERRALPATIENT67 FKey_LAB_REFERRAL_REF NEW_PERSON_200]]> LASTEDITEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_LAST_EDITED_BY STATE_5]]> LEGALRESIDENCESTATE VALIP.prosthetic.fm2cw.STATE5 FKey_LEGAL_RESIDENCE_STATE MARITAL_STATUS_11]]> MARITALSTATUS VALIP.prosthetic.fm2cw.MARITALSTATUS11 FKey_MARITAL_STATUS MHV_DECLINED_REASONS_390_03]]> MHVAUTHDECLINEDREASON VALIP.prosthetic.fm2cw.MHVDECLINEDREASONS39003 FKey_MHV_AUTH_DECLINED_REASON MHV_DECLINED_REASONS_390_03]]> MHVMSGDECLINEDREASON VALIP.prosthetic.fm2cw.MHVDECLINEDREASONS39003 FKey_MHV_MSG_DECLINED_REASON MHV_DECLINED_REASONS_390_03]]> MHVREGISTERDECLINEDREASON VALIP.prosthetic.fm2cw.MHVDECLINEDREASONS39003 FKey_MHV_REGISTER_DECLINED_REASON STATE_5]]> MISSINGPERSONTWXSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_MISSING_PERSON_TWX_STATE f1010EZ_HOLDING_712]]> MOSTRECENT1010EZ VALIP.prosthetic.fm2cw.f1010EZHOLDING712 FKey_MOST_RECENT_1010EZ INSTITUTION_4]]> MOSTRECENTLOCATIONOFCARE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_MOST_RECENT_LOCATION_OF_CARE NAME_COMPONENTS_20]]> MOTHERSMAIDENNAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_MOTHERS_MAIDEN_NAME_COMPONENTS NAME_COMPONENTS_20]]> MOTHERSNAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_MOTHERS_NAME_COMPONENTS NAME_COMPONENTS_20]]> NAMECOMPONENTS VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 FKey_NAME_COMPONENTS INSTITUTION_4]]> PAGERNUMBERCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_PAGER_NUMBER_CHANGE_SITE PATIENT_2]]> PATIENTMERGEDTO VALIP.prosthetic.fm2cw.PATIENT2 FKey_PATIENT_MERGED_TO PENSION_AWARD_REASONS_27_18]]> PENSIONAWARDREASON VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 FKey_PENSION_AWARD_REASON PENSION_AWARD_REASONS_27_18]]> PENSIONTERMINATEDREASON1 VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 FKey_PENSION_TERMINATED_REASON_1 PENSION_AWARD_REASONS_27_18]]> PENSIONTERMINATEDREASON2 VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 FKey_PENSION_TERMINATED_REASON_2 PENSION_AWARD_REASONS_27_18]]> PENSIONTERMINATEDREASON3 VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 FKey_PENSION_TERMINATED_REASON_3 PENSION_AWARD_REASONS_27_18]]> PENSIONTERMINATEDREASON4 VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 FKey_PENSION_TERMINATED_REASON_4 PERIOD_OF_SERVICE_21]]> PERIODOFSERVICE VALIP.prosthetic.fm2cw.PERIODOFSERVICE21 FKey_PERIOD_OF_SERVICE NEW_PERSON_200]]> PHONEWORKCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PHONE_WORK_CHANGE_USER INSTITUTION_4]]> PHDIVISION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_PH_DIVISION COUNTRY_CODE_779_004]]> PLACEOFBIRTHCOUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_PLACE_OF_BIRTH_COUNTRY STATE_5]]> PLACEOFBIRTHSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_PLACE_OF_BIRTH_STATE POW_PERIOD_22]]> POWCONFINEMENTLOCATION VALIP.prosthetic.fm2cw.POWPERIOD22 FKey_POW_CONFINEMENT_LOCATION INSTITUTION_4]]> PREFERREDFACILITY VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_PREFERRED_FACILITY ELIGIBILITY_CODE_8]]> PRIMARYELIGIBILITYCODE VALIP.prosthetic.fm2cw.ELIGIBILITYCODE8 FKey_PRIMARY_ELIGIBILITY_CODE STATE_5]]> PRIORSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_PRIOR_STATE NEW_PERSON_200]]> PROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PROVIDER RACE_10]]> RACE VALIP.prosthetic.fm2cw.RACE10 FKey_RACE FEDERAL_GRADESRANKS_25002_1]]> RANK VALIP.prosthetic.fm2cw.FEDERALGRADESRANKS250021 FKey_RANK RELIGION_13]]> RELIGIOUSPREFERENCE VALIP.prosthetic.fm2cw.RELIGION13 FKey_RELIGIOUS_PREFERENCE INSTITUTION_4]]> RESIDENCENUMBERCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_RESIDENCE_NUMBER_CHANGE_SITE NEW_PERSON_200]]> RESIDENCENUMBERCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_RESIDENCE_NUMBER_CHANGE_USER INSTITUTION_4]]> RESIDENTIALADDRCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_RESIDENTIAL_ADDR_CHANGE_SITE NEW_PERSON_200]]> RESIDENTIALADDRCHANGEUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_RESIDENTIAL_ADDR_CHANGE_USER COUNTRY_CODE_779_004]]> RESIDENTIALCOUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_RESIDENTIAL_COUNTRY STATE_5]]> RESIDENTIALSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_RESIDENTIAL_STATE BRANCH_OF_SERVICE_23]]> SERVICEBRANCHLAST VALIP.prosthetic.fm2cw.BRANCHOFSERVICE23 FKey_SERVICE_BRANCH_LAST BRANCH_OF_SERVICE_23]]> SERVICEBRANCHNNTL VALIP.prosthetic.fm2cw.BRANCHOFSERVICE23 FKey_SERVICE_BRANCH_NNTL BRANCH_OF_SERVICE_23]]> SERVICEBRANCHNTL VALIP.prosthetic.fm2cw.BRANCHOFSERVICE23 FKey_SERVICE_BRANCH_NTL TYPE_OF_DISCHARGE_25]]> SERVICEDISCHARGETYPELAST VALIP.prosthetic.fm2cw.TYPEOFDISCHARGE25 FKey_SERVICE_DISCHARGE_TYPE_LAST TYPE_OF_DISCHARGE_25]]> SERVICEDISCHARGETYPENNTL VALIP.prosthetic.fm2cw.TYPEOFDISCHARGE25 FKey_SERVICE_DISCHARGE_TYPE_NNTL TYPE_OF_DISCHARGE_25]]> SERVICEDISCHARGETYPENTL VALIP.prosthetic.fm2cw.TYPEOFDISCHARGE25 FKey_SERVICE_DISCHARGE_TYPE_NTL SOURCE_OF_NOTIFICATIONS_47_76]]> SOURCEOFNOTIFICATION VALIP.prosthetic.fm2cw.SOURCEOFNOTIFICATIONS4776 FKey_SOURCE_OF_NOTIFICATION STATE_5]]> SPOUSESEMPLOYERSSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_SPOUSES_EMPLOYERS_STATE STATE_5]]> STATE VALIP.prosthetic.fm2cw.STATE5 FKey_STATE STATE_5]]> STATECIVIL VALIP.prosthetic.fm2cw.STATE5 FKey_STATE_CIVIL STATE_5]]> STATEVA VALIP.prosthetic.fm2cw.STATE5 FKey_STATE_VA SUBSCRIPTION_CONTROL_774]]> SUBSCRIPTIONCONTROLNUMBER VALIP.prosthetic.fm2cw.SUBSCRIPTIONCONTROL774 FKey_SUBSCRIPTION_CONTROL_NUMBER SUPPORTING_DOCUMENTATION_TYPES_47_75]]> SUPPORTINGDOCUMENTTYPE VALIP.prosthetic.fm2cw.SUPPORTINGDOCUMENTATIONTYPES4775 FKey_SUPPORTING_DOCUMENT_TYPE INSTITUTION_4]]> TEMPORARYADDRESSCHANGESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_TEMPORARY_ADDRESS_CHANGE_SITE COUNTRY_CODE_779_004]]> TEMPORARYADDRESSCOUNTRY VALIP.prosthetic.fm2cw.COUNTRYCODE779004 FKey_TEMPORARY_ADDRESS_COUNTRY STATE_5]]> TEMPORARYSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_TEMPORARY_STATE FACILITY_TREATING_SPECIALTY_45_7]]> TREATINGSPECIALTY VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 FKey_TREATING_SPECIALTY TYPE_OF_PATIENT_391]]> TYPE VALIP.prosthetic.fm2cw.TYPEOFPATIENT391 FKey_TYPE INSTITUTION_4]]> USERENROLLEESITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_USER_ENROLLEE_SITE NEW_PERSON_200]]> WHOENTEREDPATIENT VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_WHO_ENTERED_PATIENT INSTITUTION_4]]> f2NDMOSTRECENTLOCATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_f2ND_MOST_RECENT_LOCATION FileMan Field Label: '*ABLE TO DEFRAY EXPENSES' FileMan Field Number: '.319' ABLE TO DEFRAY EXPENSES %Library.EnumString 277 ABLE_TO_DEFRAY_EXPENSES FileMan Field Label: '*ABLE TO PAY FOR TRAVEL' FileMan Field Number: '.3191' ABLE TO PAY FOR TRAVEL %Library.EnumString 278 ABLE_TO_PAY_FOR_TRAVEL FileMan Field Label: 'ABSENCE DIVISION' FileMan Field Number: '999' ABSENCE DIVISION Computed field used in Absence list. For programmers only. %Library.String 1 553 set U="^",D0=$piece({RowId},"||",1) S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,11),1:0),X=$S($D(^DG(40.8,+X,0)):$P(^(0),U,1),1:"") set {ABSENCE_DIVISION}=X 1 ABSENCE_DIVISION FileMan Field Label: 'ADDRESS CHANGE DT/TM' FileMan Field Number: '.118' This field will hold the date and time of the last Address Update. %Library.FilemanTimeStamp 71 ADDRESS_CHANGE_DTTM FileMan Field Label: 'ADDRESS CHANGE SITE' FileMan Field Number: '.12' This field will hold the Site that last changed this patient's address. This field is only populated when the Address Source is listed as VAMC. VALIP.prosthetic.fm2cw.INSTITUTION4 80 ADDRESS_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ADDRESS_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ADDRESS_CHANGE_SITE_NAME 1 FileMan Field Label: 'ADDRESS CHANGE SOURCE' FileMan Field Number: '.119' This field will hold the source of the Last address change. %Library.EnumString 79 ADDRESS_CHANGE_SOURCE FileMan Field Label: 'ADDRESS CHANGE USER' FileMan Field Number: '.122' PRIOR ADDRESS 2 The name of the user who has changed this patient's primary address. VALIP.prosthetic.fm2cw.NEWPERSON200 97 ADDRESS_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ADDRESS_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ADDRESS_CHANGE_USER_NAME 1 FileMan Field Label: '*ADMISSION DENIAL CHART' FileMan Field Number: '.1512' ADMISSION DENIAL CHART %Library.EnumString 151 ADMISSION_DENIAL_CHART FileMan Field Label: '*ADMISSION DENIAL DATE' FileMan Field Number: '.151' ADMISSION DENIAL DATE %Library.FilemanDate 150 ADMISSION_DENIAL_DATE FileMan Field Label: 'AGE' FileMan Field Number: '.033' A computer field which, based on today's date (or the patient's date of death, if applicable) and the patient's date of birth, will arrive at his/her age. %Library.Numeric 1 8 1 AGE FileMan Field Label: 'AGENCY/ALLIED COUNTRY' FileMan Field Number: '.309' For this applicant whose eligibility code is either 'OTHER FEDERAL AGENCY' or 'ALLIED VETERAN' select from the available listing the federal agency or allied country, as appropriate, which best classifies this applicant. VALIP.prosthetic.fm2cw.OTHERFEDERALAGENCY35 261 AGENCYALLIED_COUNTRY NAME This field contains the name of a federal agency other than the Department of Veterans Affairs where a patient seen in the VA may be employed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {AGENCYALLIED_COUNTRY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AGENCYALLIED_COUNTRY_NAME 1 FileMan Field Label: 'AGENT ORANGE EXAM DATE' FileMan Field Number: '.32109' For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the date s/he was examined for this exposure, if any. Once the service record is verified only users who hold the designated security key may enter/edit this field. As long as agent orange exposure is indicated this field may not be deleted. %Library.FilemanDate 288 AGENT_ORANGE_EXAM_DATE FileMan Field Label: 'AGENT ORANGE EXPOSURE LOCATION' FileMan Field Number: '.3213' Agent Orange Exposure Location For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the location where the exposure occurred. Once eligibility is verified in VES only VES users may enter/edit this field. This field cannot be deleted as long as agent orange exposure is indicated. %Library.EnumString 294 AGENT_ORANGE_EXPOSURE_LOCATION FileMan Field Label: 'AGENT ORANGE EXPOS. INDICATED?' FileMan Field Number: '.32102' EXPOSED TO AGENT ORANGE For this veteran applicant enter 'Y' if s/he was exposed to the chemical agent orange, 'N' if not, or 'U' if unknown. Exposure can be claimed by those serving in the KOREAN DMZ between January 1, 1968 and December 31, 1969; or served in country in Vietnam or the offshore waters of Vietnam during Jan 9, 1962 to May 7, 1975. When Consistency Check # 25 is active (AGENT ORANGE EXPOSURE INDICATED WITHOUT VIETNAM ERA PERIOD OF SERVICE), exposure cannot be claimed unless the Period of Service (#.323) field in the Patient (#2) file is answered VIETNAM ERA, which entails those serving in the Korean DMZ between January 1, 1968 and December 31, 1969 or served in country in Vietnam or the offshore waters of Vietnam during Jan 9, 1962 to May 7, 1975. Once eligibility is verified in VES only VES users with edit capability may enter/edit this field. %Library.EnumString 281 AGENT_ORANGE_EXPOS__INDICATED FileMan Field Label: 'AGENT ORANGE REGISTRATION #' FileMan Field Number: '.3211' For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the registration number assigned [a number between 1-999999]. Once the service record has been verified only users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as agent orange exposure is indicated. %Library.Numeric 289 AGENT_ORANGE_REGISTRATION_ FileMan Field Label: 'AGENT ORANGE REGISTRATION DATE' FileMan Field Number: '.32107' For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the date registered. Once the service record is verified only users who hold the designated security key may enter/edit this field. As long as agent orange exposure is indicated this field may not be deleted. %Library.FilemanDate 286 AGENT_ORANGE_REGISTRATION_DATE FileMan Field Label: 'AGENT ORANGE REPORTED TO C.O.' FileMan Field Number: '.32108' AGENT ORANGE REPORTED TO C.O. Enter the date on which this patient's claim of exposure to Agent Orange was initially reported to VA Central Office. %Library.FilemanDate 287 AGENT_ORANGE_REPORTED_TO_C_O_ FileMan Field Label: '*AIDS' FileMan Field Number: '57.6' AIDS %Library.EnumString 530 AIDS %Library.Numeric 413 AMOUNT_OF_AID__ATTENDANCE FileMan Field Label: 'AMOUNT OF GI INSURANCE' FileMan Field Number: '.3626' GI INSURANCE AMOUNT For this veteran applicant who does have GI insurance (DO YOU HAVE GI INSURANCE prompt must be answered YES) enter the amount received [a number between 1 and 999999]. Once monetary benefits are verified only users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as the veteran is identified as holding GI insurance. If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 423 AMOUNT_OF_GI_INSURANCE FileMan Field Label: 'AMOUNT OF HOUSEBOUND' FileMan Field Number: '.3622' HB AMOUNT For this veteran applicant who is housebound (ARE YOU IN RECEIPT OF HB BENEFITS prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as receipt of housebound benefits is indicated. If you wish to enter a monthly amount either preceed of follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 416 AMOUNT_OF_HOUSEBOUND FileMan Field Label: '*AMOUNT OF MILITARY RETIREMENT' FileMan Field Number: '.3625' MILT. RETIREMENT PAY AMOUNT For this veteran who is in receipt of military retirement (IN RECEIPT OF MILIT RETIREMENT prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as receipt of military retirement is indicated. If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 421 AMOUNT_OF_MILITARY_RETIREMENT FileMan Field Label: 'AMOUNT OF OTHER INCOME' FileMan Field Number: '.3629' OTHER PERSONAL INCOME For this veteran applicant enter the amount of other personal income s/he is in receipt of [a number between 1-999999]. Leave blank if none. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 429 AMOUNT_OF_OTHER_INCOME FileMan Field Label: 'AMOUNT OF OTHER RETIREMENT' FileMan Field Number: '.3628' OTHER RETIREMENT AMOUNT For this veteran applicant enter the amount of other retirement s/he is in receipt of [a number between 1-99999]. Leave blank if none received. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiple it out for you. %Library.Numeric 427 AMOUNT_OF_OTHER_RETIREMENT FileMan Field Label: '*AMOUNT OF SOCIAL SECURITY' FileMan Field Number: '.3623' SOCIAL SECURITY AMOUNT For this veteran applicant who is in receipt of social security insurance (IN RECEIPT OF SOCIAL SECURITY prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only users who hold the designated security key may enter/edit this field. This field may not be deleted as long as receipt of social security benefits is indicated. If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 418 AMOUNT_OF_SOCIAL_SECURITY FileMan Field Label: 'AMOUNT OF SSI' FileMan Field Number: '.3627' SUPPLEMENTAL SOCIAL SECURITY AMOUNT For this veteran applicant enter the dollar amount of social security insurance s/he receives [a number between 1-99999]. Leave blank if none received. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 425 AMOUNT_OF_SSI FileMan Field Label: 'AMOUNT OF VA DISABILITY' FileMan Field Number: '.303' VA DISABILITY AMOUNT For this veteran applicant who is in receipt of disability payment (RECEIPT OF DISABILITY PAYMENT prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only users who hold the designated security key may enter/edit this field. Any dollar amomount on file cannot be deleted as long as receipt of disability payment is indicated. If you wish to enter a monthly amount either preceed or follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 256 AMOUNT_OF_VA_DISABILITY FileMan Field Label: 'AMOUNT OF VA PENSION' FileMan Field Number: '.3624' VA PENSION AMOUNT For this veteran applicant who is in receipt of a pension from the Dept of Veterans Affairs (ARE YOU RECEIVING A VA PENSION prompt must be answered YES) enter the amount received [a number between 0-99999]. Once monetary benefits are verified only users who hold the designated security key may enter/edit this field. This field may not be deleted as long as receipt of VA pension is indicated. If you wish to enter a monthly amount either precede or follow it with an asterisk and I'll multiply it out for you. %Library.Numeric 420 AMOUNT_OF_VA_PENSION FileMan Field Label: 'APPOINTMENT REQUEST COMMENT' FileMan Field Number: '1010.163' This field is entered by the user through the new enrollee appointment request option. %Library.String 572 APPOINTMENT_REQUEST_COMMENT FileMan Field Label: 'APPOINTMENT REQUEST DATE' FileMan Field Number: '1010.1511' This field contains the date the VA was notified that an enrolling patient or newly enrolled patient request an appointment with a provider. The request may originate from a 1010EZ or a later encounter. %Library.FilemanDate 558 APPOINTMENT_REQUEST_DATE FileMan Field Label: 'APPOINTMENT REQUEST ON 1010EZ' FileMan Field Number: '1010.159' Do you want an appt. with a VA doctor/provider as soon as available? Enter a 'Y' if the Veteran applicant has requested an appointment with a VA doctor or provider and wants to be seen as soon as one becomes available. Enter a 'N' if the Veteran applicant has not requested an appointment. This question may only be entered once for the Veteran if the initial entry is Yes. %Library.EnumString 569 APPOINTMENT_REQUEST_ON_1010EZ FileMan Field Label: 'APPOINTMENT REQUEST STATUS' FileMan Field Number: '1010.161' This field is the status of the veteran's new appointment requested. This field is entered by the user through the new enrollee appointment request option. %Library.EnumString 570 APPOINTMENT_REQUEST_STATUS FileMan Field Label: 'APPT REQUEST 1010EZ CHG DT/TM' FileMan Field Number: '1010.1515' APPOINTMENT REQUEST ON 1010EZ LAST CHANGE DATETIME It will be used to compare incoming HL7 change message's datetime stamp to, if populated, what is stored in VistA REE's database. The database will not be updated if the incoming HL7 message is older than what is currently stored. The message will be rejected if it is not more recent than what is stored in VistA REE. It is an 'display only' field and is not editable by the VistA user and is used for data verification only. %Library.FilemanDate 562 APPT_REQUEST_1010EZ_CHG_DTTM FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '.1041' This field contains the attending physician currently responsible for the care of this patient. This field is maintained automatically for all inpatients and must not be edited. Once a patient is discharged, the data in this field is removed. VALIP.prosthetic.fm2cw.NEWPERSON200 36 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'AUTOMATIC CHANGE DATE' FileMan Field Number: '.5502' This field contains date/time of the last automatic change of EXPANDED MH CARE TYPE field (.5501) via index in file 29.11 for OTH patients. %Library.FilemanTimeStamp 479 AUTOMATIC_CHANGE_DATE FileMan Field Label: 'BAD ADDRESS INDICATOR' FileMan Field Number: '.121' PRIOR ADDRESS 1 The Bad Address Indicator field applies to the address at which the patient resides. This field should be set as follows (if applicable): "UNDELIVERABLE" - Bad Address based on returned mail. "HOMELESS" - Patient is known to be homeless. "OTHER" - Other Bad Address Reason Setting this field will prevent a Bad Address from being shared with HEC and other VAMC facilities. Once the Bad Address Indicator is set, incoming "newer" addresses will automatically remove the Bad Address Indicator, and allow the "updated" address to be transmitted to HEC and other VAMC facilities. To manually remove the Bad Address Indicator enter the "@" symbol. %Library.EnumString 81 BAD_ADDRESS_INDICATOR FileMan Field Label: 'CAMP LEJEUNE' FileMan Field Number: '.321701' CAMP LEJEUNE ELIGIBILITY INDICATOR This field should be set to Yes if the Patient is housed at Camp Lejeune, was a Veteran, and has 1 or more Military Service Episodes (MSEs) with a Character of Discharge other than Dishonorable, Other Than Honorable, Undesirable, Bad Conduct, or Dishonorable-VA and these MSEs were between August 1, 1953 and December 31, 1987, adding up to 30 days of service or greater. %Library.EnumString 296 CAMP_LEJEUNE FileMan Field Label: 'CAMP LEJEUNE CHANGE SITE' FileMan Field Number: '.321703' CAMP LEJEUNE ELIGIBILITY CHANGE SITE The System Generated point-of-entry site that last changed the CAMP LEJEUNE ELIGIBILITY INDICATOR field. %Library.String 298 CAMP_LEJEUNE_CHANGE_SITE FileMan Field Label: 'CAMP LEJEUNE DATA ENTRY LOCKED' FileMan Field Number: '.32171' This is the master field to control entry of Camp Lejeune data into the Patient record. If 1 then CAMP LEJEUNE ELIGIBILITY data cannot be entered. If 0, it can. %Library.EnumString 300 CAMP_LEJEUNE_DATA_ENTRY_LOCKED FileMan Field Label: 'CAMP LEJEUNE DATE' FileMan Field Number: '.321702' CAMP LEJEUNE ELIGIBILITY DATE REGISTERED This is the system generated date noting when the CAMP LEJEUNE ELIGIBILITY INDICATOR field was last changed. %Library.FilemanDate 297 CAMP_LEJEUNE_DATE FileMan Field Label: 'CAMP LEJEUNE SOURCE' FileMan Field Number: '.321704' CAMP LEJEUNE ELIGIBILITY SOURCE OF CHANGE The System Generated source that last affected a change to the CAMP LEJEUNE ELIGIBILITY INDICATOR field. %Library.String 299 CAMP_LEJEUNE_SOURCE FileMan Field Label: '*CATEGORY OF BENEFICIARY' FileMan Field Number: '.31' CATEGORY OF BENEFICIARY This field is no longer used by the MAS package. It was previously updated via a cross-reference on the CATEGORY OF BENEFICIARY field in the PTF file. In a prior release of MAS, the use of category of beneficiary was discontinued and period of service is now solely used. In a future release of MAS, this field will be removed along with the ACB cross-reference on the PATIENT file and the cross-reference in the PTF file which sets this data. VALIP.prosthetic.fm2cw.CATEGORYOFBENEFICIARY4582 262 CATEGORY_OF_BENEFICIARY CODE This field contains a '1' character code representing the Category of Beneficiary.]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CATEGORY_OF_BENEFICIARY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 CATEGORY_OF_BENEFICIARY_CODE 1 FileMan Field Label: 'CELLULAR NUMBER CHANGE DT/TM' FileMan Field Number: '.139' This field will contain the date and time of the last Cellular number update. %Library.FilemanTimeStamp 130 CELLULAR_NUMBER_CHANGE_DTTM FileMan Field Label: 'CELLULAR NUMBER CHANGE SITE' FileMan Field Number: '.13111' This field will hold the site that last changed this patient's Cellular number. This field is only populated when the Cellular Number Change Source is listed as VAMC. VALIP.prosthetic.fm2cw.INSTITUTION4 108 CELLULAR_NUMBER_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CELLULAR_NUMBER_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CELLULAR_NUMBER_CHANGE_SITE_NAME 1 FileMan Field Label: 'CELLULAR NUMBER CHANGE SOURCE' FileMan Field Number: '.1311' This field will hold the source of the last Cellular number change. %Library.EnumString 107 CELLULAR_NUMBER_CHANGE_SOURCE FileMan Field Label: 'CELLULAR NUMBER CHANGE USER' FileMan Field Number: '.1319' This field contains the user who changed this patient's cell phone number. It is automatically set when the cell phone number is entered or edited. VALIP.prosthetic.fm2cw.NEWPERSON200 116 CELLULAR_NUMBER_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CELLULAR_NUMBER_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CELLULAR_NUMBER_CHANGE_USER_NAME 1 FileMan Field Label: 'CHECK FOR DUPLICATE' FileMan Field Number: '.083' This field is currently not being utilized. It will be active when Patient Merge/Purge options are available to the user. Check for Duplicate field will be defined at that time. | %Library.EnumString 16 CHECK_FOR_DUPLICATE FileMan Field Label: 'CITY' FileMan Field Number: '.114' Enter the city in which this applicant resides [2-15 characters]. If the space provided is not sufficient please abbreviate the city to the best of your ability. %Library.String 47 CITY FileMan Field Label: 'CITY (CIVIL)' FileMan Field Number: '.2926' Enter the city in which the person responsible for this patient's funds resides. %Library.String 245 CITY_CIVIL FileMan Field Label: 'CITY (VA)' FileMan Field Number: '.2916' Enter the city in which the person reponsible for handling this patient's funds resides. %Library.String 235 CITY_VA FileMan Field Label: '*CLAIM FOLDER LOCATION' FileMan Field Number: '.312' For this veteran applicant enter, if applicable, the location of his/her VA claim folder [2-40 characters]. %Library.String 274 CLAIM_FOLDER_LOCATION VALIP.prosthetic.fm2cw.INSTITUTION4 276 CLAIM_FOLDER_LOCATION0 NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CLAIM_FOLDER_LOCATION0_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLAIM_FOLDER_LOCATION0_NAME 1 FileMan Field Label: 'CLAIM NUMBER' FileMan Field Number: '.313' If the applicant is a veteran enter his/her claim number as 7-8 numerics or by entering the characters 'SS' if his/her claim number is the same as his/her social security number. Once eligibility has been verified only users who hold the designated security key may enter/edit this field. %Library.String 275 CLAIM_NUMBER FileMan Field Label: 'CLASS II DENTAL INDICATOR' FileMan Field Number: '.3858' Class II Dental Indication is for Veterans having a SC non-compensable dental condition(s) or disability shown to have been in existence at the time of discharge or release from active duty (after September 30, 1981). Treatment may be authorized, as reasonably necessary, for a one-time correction of the SC non-compensable condition under certain conditions (38 CFR § 17.16). %Library.EnumString 445 CLASS_II_DENTAL_INDICATOR FileMan Field Label: '*CL DATE CHARGED' FileMan Field Number: '24' CL DATE CHARGED %Library.FilemanDate 509 CL_DATE_CHARGED FileMan Field Label: '*CL DATE NEEDED' FileMan Field Number: '29' CL DATE NEEDED %Library.FilemanDate 518 CL_DATE_NEEDED FileMan Field Label: '*CL HOSPITAL LOCATION' FileMan Field Number: '30' CL HOSPITAL LOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 519 CL_HOSPITAL_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CL_HOSPITAL_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CL_HOSPITAL_LOCATION_NAME 1 FileMan Field Label: '*CL LOCATION PHONE' FileMan Field Number: '34' CL LOCATION PHONE %Library.String 523 CL_LOCATION_PHONE FileMan Field Label: '*CL OFF-STATION LOCATION' FileMan Field Number: '33' CL OFF-STATION LOCATION VALIP.prosthetic.fm2cw.INSTITUTION4 522 CL_OFFSTATION_LOCATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CL_OFFSTATION_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CL_OFFSTATION_LOCATION_NAME 1 FileMan Field Label: '*CL OTHER LOCATION' FileMan Field Number: '32' CL OTHER LOCATION %Library.String 521 CL_OTHER_LOCATION FileMan Field Label: '*CL PRIORITY' FileMan Field Number: '28' CL PRIORITY %Library.Numeric 517 CL_PRIORITY FileMan Field Label: '*CL PROVIDER' FileMan Field Number: '31' CL PROVIDER %Library.String 520 CL_PROVIDER FileMan Field Label: '*CL SPECIAL NOTE' FileMan Field Number: '27' CL SPECIAL NOTE %Library.String 512 CL_SPECIAL_NOTE FileMan Field Label: '*CL TIME CHARGED' FileMan Field Number: '25' CL TIME CHARGED %Library.Numeric 510 CL_TIME_CHARGED FileMan Field Label: '*CL USER' FileMan Field Number: '26' CL USER %Library.String 511 CL_USER FileMan Field Label: 'CMOR ACTIVITY SCORE' FileMan Field Number: '991.06' This score is used to determine the Coordinating Master of Record. %Library.Numeric 546 CMOR_ACTIVITY_SCORE FileMan Field Label: 'CNH CURRENT' FileMan Field Number: '148' This field is used to denote when a patient is currently in a contract nursing home. Answer yes if the patient is in a contract nursing home currently. Otherwise, answer no. %Library.EnumString 533 CNH_CURRENT FileMan Field Label: 'COLLATERAL SPONSOR'S NAME' FileMan Field Number: '.3601' If this patient is a collateral responsible for picking up medications or information regarding another patient, that patient's name should be entered here. This sponsor must be a veteran and must exist in the patient file. VALIP.prosthetic.fm2cw.PATIENT2 398 COLLATERAL_SPONSORS_NAME NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {COLLATERAL_SPONSORS_NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COLLATERAL_SPONSORS_NAME_NAME 1 FileMan Field Label: 'COMBAT FROM DATE' FileMan Field Number: '.5293' For this veteran who served in a combat zone (IN COMBAT prompt must be answered YES) enter the date on which combat service commenced. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as combat service is indicated. %Library.FilemanDate 466 COMBAT_FROM_DATE FileMan Field Label: 'COMBAT INDICATED ON 1010EZ' FileMan Field Number: '1010.157' This field was added via patch DG*5.3*597, distributed with EAS*1.0*51. The purpose of this field is to store within the PATIENT file the applicant's answer to the 1010EZ question: DID YOU SERVE IN COMBAT AFTER 11/11/1998? This field may contain any of the following: 0 for "NO" 1 for "YES" null (i.e., not answered) %Library.EnumString 567 COMBAT_INDICATED_ON_1010EZ FileMan Field Label: 'COMBAT SERVICE INDICATED?' FileMan Field Number: '.5291' IN COMBAT (Y/N) For this veteran applicant enter 'Y' if s/he served in a combat zone, or 'N' if not. Once the service record is verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 464 COMBAT_SERVICE_INDICATED FileMan Field Label: 'COMBAT SERVICE LOCATION' FileMan Field Number: '.5292' COMBAT WHERE For this veteran applicant who served in a combat zone (IN COMBAT prompt must be answered YES) enter the zone in which s/he served. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as combat service is indicated. VALIP.prosthetic.fm2cw.POWPERIOD22 465 COMBAT_SERVICE_LOCATION NAME This field contains the name of the period/place where a patient may have been a prisoner of war. Choices include WWI and Vietnam. This data must NOT be edited in any way.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {COMBAT_SERVICE_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMBAT_SERVICE_LOCATION_NAME 1 FileMan Field Label: 'COMBAT TO DATE' FileMan Field Number: '.5294' For this veteran who served in a combat zone (IN COMBAT prompt must be answered YES) enter the date on which combat service ended. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as combat service is indicated. %Library.FilemanDate 467 COMBAT_TO_DATE FileMan Field Label: 'COMBAT VETERAN END DATE' FileMan Field Number: '.5295' This field represents the last day for combat vet eligibility. This field will only be populated by cross-reference when the veteran's combat vet eligibility has been determined. This value will remain after the combat vet eligibility period has expired. %Library.FilemanDate 468 COMBAT_VETERAN_END_DATE FileMan Field Label: 'CONDITION' FileMan Field Number: '401.3' Enter 'S' if the patient is seriouslly ill and should be displayed on the Seriouslly Ill Roster. Enter '@' to delete patient from seriouslly ill status. %Library.EnumString 537 CONDITION FileMan Field Label: 'CONFIDENTIAL ADDRESS ACTIVE?' FileMan Field Number: '.14105' Enter 'Y' if you wish to enter a confidential address for this applicant at this time. A 'NO' response will cause the Confidential Start Date and Confidential End Date fields to be automatically deleted while other confidential address information will remain on file for future use. %Library.EnumString 132 CONFIDENTIAL_ADDRESS_ACTIVE FileMan Field Label: 'CONFIDENTIAL ADDRESS CITY' FileMan Field Number: '.1414' If the 'Confidential Address Active' prompt is answered YES, enter the confidential address city for this applicant [2-30 characters]. This field may not be deleted as long as the need for a confidential address is indicated. %Library.String 145 CONFIDENTIAL_ADDRESS_CITY FileMan Field Label: 'CONFIDENTIAL ADDRESS COUNTY' FileMan Field Number: '.14111' If the 'Confidential Address Active' prompt is answered YES, enter the county for the applicant's confidential address. %Library.Numeric 134 CONFIDENTIAL_ADDRESS_COUNTY FileMan Field Label: 'CONFIDENTIAL ADDRESS STATE' FileMan Field Number: '.1415' If the 'Confidential Address Active' prompt is answered YES, the user will be asked to select the confidential address state from the available listing. This field may not be deleted as long as the need for a confidential address is indicated. VALIP.prosthetic.fm2cw.STATE5 146 CONFIDENTIAL_ADDRESS_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CONFIDENTIAL_ADDRESS_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONFIDENTIAL_ADDRESS_STATE_NAME 1 FileMan Field Label: 'CONFIDENTIAL ADDRESS ZIP CODE' FileMan Field Number: '.1416' If the 'Confidential Address Active' prompt is answered YES, the user will be asked to enter the zip code assigned to the city for the confidential address. This field may not be deleted as long as the need for a confidential address is indicated. %Library.String 147 CONFIDENTIAL_ADDRESS_ZIP_CODE FileMan Field Label: 'CONFIDENTIAL ADDR CASS IND' FileMan Field Number: '.14117' The Confidential Addr CASS Indicator is used to determine whether the confidential address has been certified by CASS. %Library.EnumString 140 CONFIDENTIAL_ADDR_CASS_IND FileMan Field Label: 'CONFIDENTIAL ADDR CHANGE DT/TM' FileMan Field Number: '.14112' This field will hold the date and time of the last Confidential Address Update. Any change to the following Confidential Address fields will trigger an update: Confidential Street [Line 1], Confidential Street [Line 2], Confidential Street [Line 3], Confidential Address City, Confidential Address State, Confidential Address Zip Code, Confidential Start Date, Confidential End Date, Confidential Address Active?, Confidential Address County, Confidential Addr Province, Confidential Addr Postal Code, Confidential Addr Country and Confidential Phone Number %Library.FilemanTimeStamp 135 CONFIDENTIAL_ADDR_CHANGE_DTTM FileMan Field Label: 'CONFIDENTIAL ADDR CHANGE SITE' FileMan Field Number: '.14113' This field will hold the Site that last changed this patient's confidential address. VALIP.prosthetic.fm2cw.INSTITUTION4 136 CONFIDENTIAL_ADDR_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CONFIDENTIAL_ADDR_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONFIDENTIAL_ADDR_CHANGE_SITE_NAME 1 FileMan Field Label: 'CONFIDENTIAL ADDR CHANGE USER' FileMan Field Number: '.14118' This field contains the user who changed this patient's confidential address. It is automatically set when the confidential address is entered or edited. VALIP.prosthetic.fm2cw.NEWPERSON200 141 CONFIDENTIAL_ADDR_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CONFIDENTIAL_ADDR_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONFIDENTIAL_ADDR_CHANGE_USER_NAME 1 FileMan Field Label: 'CONFIDENTIAL ADDR COUNTRY' FileMan Field Number: '.14116' Enter the country where the patient's confidential address is located. If entering an Army/Air Force Post Office (APO) or a Fleet Post Office (FPO) address select United States as the country. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 139 CONFIDENTIAL_ADDR_COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CONFIDENTIAL_ADDR_COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 CONFIDENTIAL_ADDR_COUNTRY_CODE 1 FileMan Field Label: 'CONFIDENTIAL ADDR POSTAL CODE' FileMan Field Number: '.14115' Enter with patient's postal code if the patient has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 138 CONFIDENTIAL_ADDR_POSTAL_CODE FileMan Field Label: 'CONFIDENTIAL ADDR PROVINCE' FileMan Field Number: '.14114' Enter a Province if the patient has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 137 CONFIDENTIAL_ADDR_PROVINCE FileMan Field Label: 'CONFIDENTIAL END DATE' FileMan Field Number: '.1418' If the 'Confidential Address Active' prompt is answered YES, enter the date the applicant will no longer be contacted at this address. %Library.FilemanDate 149 CONFIDENTIAL_END_DATE FileMan Field Label: 'CONFIDENTIAL PHONE CHANGE USER' FileMan Field Number: '.14119' This field contains the user who changed this patient's confidential phone number. It is automatically set when the confidential phone number is entered or edited. VALIP.prosthetic.fm2cw.NEWPERSON200 142 CONFIDENTIAL_PHONE_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CONFIDENTIAL_PHONE_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONFIDENTIAL_PHONE_CHANGE_USER_NAME 1 FileMan Field Label: 'CONFIDENTIAL PHONE NUMBER' FileMan Field Number: '.1315' If the 'Confidential Address Active' prompt is answered YES, enter the telephone number of the confidential address at which the patient is located [4-20 characters]. %Library.String 112 CONFIDENTIAL_PHONE_NUMBER FileMan Field Label: 'CONFIDENTIAL START DATE' FileMan Field Number: '.1417' If the 'Confidential Address Active' prompt is answered YES, enter the date to begin contacting the applicant at the confidential address. %Library.FilemanDate 148 CONFIDENTIAL_START_DATE FileMan Field Label: 'CONFIDENTIAL STREET [LINE 1]' FileMan Field Number: '.1411' If the 'Confidential Address Active' prompt is answered YES, the user will be prompted for the first line of the confidential street address. This field cannot be deleted as long as the need for a confidential address is indicated. %Library.String 133 CONFIDENTIAL_STREET_LINE_1 FileMan Field Label: 'CONFIDENTIAL STREET [LINE 2]' FileMan Field Number: '.1412' If the 'Confidential Address Active' prompt is answered YES, the user will be prompted for the second line of the confidential street address [2-30 characters]. The second line of the street address is optional and may be left blank. %Library.String 143 CONFIDENTIAL_STREET_LINE_2 FileMan Field Label: 'CONFIDENTIAL STREET [LINE 3]' FileMan Field Number: '.1413' If the 'Confidential Address Active' prompt is answered YES, the user will be prompted for the third line of the confidential street address. The third line of the street address is optional and may be left blank. %Library.String 144 CONFIDENTIAL_STREET_LINE_3 FileMan Field Label: 'COORDINATING MASTER OF RECORD' FileMan Field Number: '991.03' The coordinating site for the patient. VALIP.prosthetic.fm2cw.INSTITUTION4 543 COORDINATING_MASTER_OF_RECORD NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {COORDINATING_MASTER_OF_RECORD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COORDINATING_MASTER_OF_RECORD_NAME 1 FileMan Field Label: 'COUNTRY' FileMan Field Number: '.1173' Enter the country where the patient's mailing address is located. If entering an Army/Air Force Post Office (APO) or a Fleet Post Office (FPO) address select United States as the country. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 70 COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 COUNTRY_CODE 1 FileMan Field Label: 'COUNTY' FileMan Field Number: '.117' If a state of residence is entered select from the available listing the county in which this applicant resides. If no state (or a non-state) is entered no selection is possible. %Library.Numeric 67 COUNTY FileMan Field Label: 'COVERED BY HEALTH INSURANCE?' FileMan Field Number: '.3192' ARE YOU COVERED BY ANY HEALTH INSURANCE Enter 'Y' if this applicant is covered by a health insurance policy regardless of who holds policy (applicant, spouse, employer, etc.), 'N' if s/he isn't covered by any policy, or 'U' if unknown. %Library.EnumString 279 COVERED_BY_HEALTH_INSURANCE FileMan Field Label: 'CURRENT ADMISSION' FileMan Field Number: '.105' This field contains the internal entry number of the PATIENT MOVEMENT file denoting the current admission for an inpatient. This field is only stored for current inpatients. It must NOT be edited as this could affect the integrity of many options within MAS and other DHCP packages. When displaying this field, the date/time of the current admission will be displayed. VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 37 CURRENT_ADMISSION DATE/TIME MOVEMENT DATE/TIME Enter in this field the date/time of the movement (admission, transfer, discharge, treating specialty transfer, lodger check-in, or lodger check- out). Time must be included.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CURRENT_ADMISSION_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_ADMISSION_DATETIME 1 FileMan Field Label: 'CURRENT ENROLLMENT' FileMan Field Number: '27.01' The patient's current enrollment. VALIP.prosthetic.fm2cw.PATIENTENROLLMENT2711 513 CURRENT_ENROLLMENT APPLICATION DATE APPLICATION DATE The date of the application for enrollment or date of registration. The Application Date is user entered or set by the upload from ES. The date of the registration cannot be entered in VistA, it is set by the system during new patient registration to today's date or by the upload from ES. Application Date: Must be a date prior or equal to the Veteran's 'Date of Death', if the Application Date is user entered or provided in the upload from ES Must be a precise date, i.e. a day, month and year MUST be included Cannot be a date prior to the Veteran's 'Date of Birth' Cannot be a date in the future Cannot be a date prior to 10/1/1996]]> %Library.FilemanDate 1 APPLICATION_DATE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CURRENT_ENROLLMENT_APPLICATION_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_ENROLLMENT_APPLICATION_DATE 1 FileMan Field Label: 'CURRENT MEANS TEST STATUS' FileMan Field Number: '.14' This field is computed by the system. It contains the current means test status for a patient. VALIP.prosthetic.fm2cw.MEANSTESTSTATUS40832 131 CURRENT_MEANS_TEST_STATUS NAME Enter in this field the name of the financial test status.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CURRENT_MEANS_TEST_STATUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_MEANS_TEST_STATUS_NAME 1 FileMan Field Label: 'CURRENT MOH INDICATOR' FileMan Field Number: '.541' This field cannot be edited in VistA. It is set by the Z11 Upload from HEC. A response of 'YES' or 'NO' is indicated only if the patient is a Veteran. %Library.EnumString 474 CURRENT_MOH_INDICATOR FileMan Field Label: 'CURRENT MOVEMENT' FileMan Field Number: '.102' WING This field contains the internal entry number of the PATIENT MOVEMENT file denoting the most recent movement for an inpatient. This field is only stored for current inpatients. It must NOT be edited as this could affect the integrity of many options within MAS and other packages. When displaying this field, the date/time of the most recent movement will display. VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 33 CURRENT_MOVEMENT DATE/TIME MOVEMENT DATE/TIME Enter in this field the date/time of the movement (admission, transfer, discharge, treating specialty transfer, lodger check-in, or lodger check- out). Time must be included.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CURRENT_MOVEMENT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_MOVEMENT_DATETIME 1 FileMan Field Label: 'CURRENT PC ASSOCIATE' FileMan Field Number: '648025' %Library.String 1 606 set U="^",X=$zdate(+$h),%DT="X" do ^%DT set DT=Y,D0=$piece({RowId},"||",1) S X=$P($$OUTPTAP^SDUTL3(D0,DT),U,2) set {CURRENT_PC_ASSOCIATE}=X 1 CURRENT_PC_ASSOCIATE FileMan Field Label: '*CURRENT PC PRACTITIONER' FileMan Field Number: '404.01' This field stores the patient's Current Primary Care Practitioner. VALIP.prosthetic.fm2cw.NEWPERSON200 539 CURRENT_PC_PRACTITIONER FileMan Field Label: 'CURRENT PC PRACTITIONER' FileMan Field Number: '648023' %Library.String 1 604 set U="^",X=$zdate(+$h),%DT="X" do ^%DT set DT=Y,D0=$piece({RowId},"||",1) S X=$P($$OUTPTPR^SDUTL3(D0,DT,1),U,2) set {CURRENT_PC_PRACTITIONER0}=X 1 CURRENT_PC_PRACTITIONER0 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CURRENT_PC_PRACTITIONER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_PC_PRACTITIONER_NAME 1 FileMan Field Label: '*CURRENT PC TEAM' FileMan Field Number: '404.02' This field contains the patients's Primary Care Team. VALIP.prosthetic.fm2cw.TEAM40451 540 CURRENT_PC_TEAM FileMan Field Label: 'CURRENT PC TEAM' FileMan Field Number: '648024' %Library.String 1 605 set U="^",X=$zdate(+$h),%DT="X" do ^%DT set DT=Y,D0=$piece({RowId},"||",1) S X=$P($$OUTPTTM^SDUTL3(D0,DT,1),U,2) set {CURRENT_PC_TEAM0}=X 1 CURRENT_PC_TEAM0 NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CURRENT_PC_TEAM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_PC_TEAM_NAME 1 FileMan Field Label: 'CURRENT PH INDICATOR' FileMan Field Number: '.531' This field can be entered by the local site if currently null. Subsequent editing can be done only by the HEC. A response of 'Yes' can be entered only if the patient is a veteran, %Library.EnumString 470 CURRENT_PH_INDICATOR FileMan Field Label: 'CURRENT PURPLE HEART REMARKS' FileMan Field Number: '.533' This field cannot be edited locally. If Current Purple Heart Indicator isset to 'No' by the local site, a Current Purple Heart Remarks of 'VAMC' will be stuffed into the field. Other editing or updating is done by the HEC. %Library.EnumString 472 CURRENT_PURPLE_HEART_REMARKS FileMan Field Label: 'CURRENT PURPLE HEART STATUS' FileMan Field Number: '.532' This field cannot be edited locally. If Current Purple Heart Indicator is set to 'Yes' by the local site, a Current Purple Heart Status of 'Pending' will be stuffed into the field. Other editing or updating is done by the HEC. %Library.EnumString 471 CURRENT_PURPLE_HEART_STATUS FileMan Field Label: 'CURRENT ROOM' FileMan Field Number: '.108' This field contains a pointer to the ROOM-BED file denoting the current room-bed in which this inpatient resides. This field is filled in only for inpatients. It must NOT be edited as editing could adversely affect the operation of the MAS package as well as other DHCP packages. This field is filled in automatically by the module. VALIP.prosthetic.fm2cw.ROOMBED4054 40 CURRENT_ROOM NAME Enter the name of the room-bed you are adding. Should be in the format ROOM-BED.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {CURRENT_ROOM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CURRENT_ROOM_NAME 1 FileMan Field Label: 'CV DATE EDITED' FileMan Field Number: '.5296' The CV DATE EDITED field will be stuffed with the current date whenever the COMBAT VET END DATE field (.5295) is changed. %Library.FilemanDate 469 CV_DATE_EDITED FileMan Field Label: 'DATE COMMENT LAST EDITED' FileMan Field Number: '1010.164' This is the date appointment request comment was last edited. This field is updated by the computer whenever anyone edits the comment information. %Library.FilemanTimeStamp 573 DATE_COMMENT_LAST_EDITED FileMan Field Label: 'DATE ENTERED INTO FILE' FileMan Field Number: '.097' This field stores the date this patient was initially stored into the PATIENT file. This is filled in automatically once a patient is successfully added to the database. %Library.FilemanDate 28 DATE_ENTERED_INTO_FILE FileMan Field Label: 'DATE ENTERED ON SI LIST' FileMan Field Number: '401.4' Enter the date the patient was placed on the Seriouslly Ill list. %Library.FilemanDate 538 DATE_ENTERED_ON_SI_LIST FileMan Field Label: 'DATE FACILITY INITIATED REVIEW' FileMan Field Number: '.3952' Documents the date the VA facility initiated the Catastrophically Disabled review. %Library.FilemanDate 456 DATE_FACILITY_INITIATED_REVIEW FileMan Field Label: 'DATE LAST EICD RUN' FileMan Field Number: '2001' This field contains the date that the last EICD Identification inquiry was transmitted to the Financial Services Center (FSC). %Library.FilemanDate 586 DATE_LAST_EICD_RUN FileMan Field Label: 'DATE MEDICAID LAST ASKED' FileMan Field Number: '.382' Enter the date/time the 'ELIGIBLE FOR MEDICAID' question was last asked of this veteran. This data must be asked on a yearly basis as it affects the requirement for a means test (a negative response results in a means test not being required). This field will be stored automatically by the MAS module when editing data on registration or load/edit screen 7. It will not appear for editing. %Library.FilemanTimeStamp 436 DATE_MEDICAID_LAST_ASKED FileMan Field Label: 'DATE OF BIRTH' FileMan Field Number: '.03' DOB Enter the patient's DATE OF BIRTH which must be later than 12/31/1870. DATE OF BIRTH cannot be a date after the beneficiary 'Ineligible Date' or a date after the 'Application Date'. %Library.FilemanDate 1 7 DATE_OF_BIRTH %Library.FilemanTimeStamp 391 DATE_OF_DEATH FileMan Field Label: 'DATE OF DEATH LAST UPDATED' FileMan Field Number: '.354' This is a date/time value that represents the date/time the date of death field (.351) was last modified/entered/deleted. %Library.FilemanDate 394 DATE_OF_DEATH_LAST_UPDATED FileMan Field Label: 'DATE OF DEATH OPTION USED' FileMan Field Number: '.358' The DATE OF DEATH OPTION USED value indicates the option that was executed when a patient's DATE OF DEATH is modified at the medical facility. %Library.EnumString 397 DATE_OF_DEATH_OPTION_USED FileMan Field Label: 'DATE OF DECISION' FileMan Field Number: '.392' The date the catastrophic disability determination was made. %Library.FilemanDate 451 DATE_OF_DECISION FileMan Field Label: 'DATE OF RETIREMENT' FileMan Field Number: '.31116' For this veteran applicant, enter the date s/he retired from her/his place of employment. %Library.FilemanDate 265 DATE_OF_RETIREMENT FileMan Field Label: 'DATE RULED INCOMPETENT (CIVIL)' FileMan Field Number: '.292' If this patient was ruled incompetent to handle his funds, enter the date he was ruled incompetent. The Date Ruled Incompetent cannot be after the Date of Death. %Library.FilemanDate 239 DATE_RULED_INCOMPETENT_CIVIL FileMan Field Label: 'DATE RULED INCOMPETENT (VA)' FileMan Field Number: '.291' Enter the date this patient was ruled to be incompetent to handle his VA funds. The Date Ruled Incompetent cannot be after the Date of Death. %Library.FilemanDate 229 DATE_RULED_INCOMPETENT_VA FileMan Field Label: 'DATE STATUS LAST EDITED' FileMan Field Number: '1010.162' This is the date appointment request status was last edited. This field is updated by the computer whenever anyone edits the status information. %Library.FilemanTimeStamp 571 DATE_STATUS_LAST_EDITED FileMan Field Label: 'DATE VETERAN REQUESTED CD EVAL' FileMan Field Number: '.3951' Documents the date the veteran requested Catastrophically Disabled evaluation. %Library.FilemanDate 455 DATE_VETERAN_REQUESTED_CD_EVAL FileMan Field Label: 'DATE VETERAN WAS NOTIFIED' FileMan Field Number: '.3953' Documents the date the veteran was notified of the Catastrophically Disabled decision by the VA facility. %Library.FilemanDate 457 DATE_VETERAN_WAS_NOTIFIED FileMan Field Label: 'D-CITY' FileMan Field Number: '.346' If a designee is specified enter the city in which that person resides [1-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a designee is on file. %Library.String 387 DCITY FileMan Field Label: 'D-COUNTRY' FileMan Field Number: '.34012' This is the country where the designee address is located. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 376 DCOUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {DCOUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 DCOUNTRY_CODE 1 FileMan Field Label: 'D-DESIGNEE SAME AS NOK?' FileMan Field Number: '.3405' IS DESIGNEE SAME AS NOK If a primary NOK is defined enter 'Y' if that person is also the designee appointed by the applicant, otherwise enter 'N' for no. %Library.EnumString 380 DDESIGNEE_SAME_AS_NOK FileMan Field Label: 'DEATH ENTERED BY' FileMan Field Number: '.352' This field records the date a patient's death was initially entered into the DHCP system. This field is created automatically by the MAS module when a date of death is entered either through the 'Death Entry' option or through the 'Discharge a Patient' option. VALIP.prosthetic.fm2cw.NEWPERSON200 392 DEATH_ENTERED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {DEATH_ENTERED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DEATH_ENTERED_BY_NAME 1 FileMan Field Label: 'DECIDED BY' FileMan Field Number: '.391' The name of the VA staff physician who made the determination that the patient was catastrophically disabled. %Library.String 450 DECIDED_BY FileMan Field Label: 'DENTAL APPL DUE BEFORE DATE' FileMan Field Number: '.3859' An application for Class II Dental treatment must be made within 180 days after discharge or release (38 CFR § 17.160). %Library.FilemanDate 446 DENTAL_APPL_DUE_BEFORE_DATE FileMan Field Label: 'DENTAL CLASSIFICATION' FileMan Field Number: '220' For Dental Package VALIP.prosthetic.fm2cw.DENTALCLASSIFICATION2202 534 DENTAL_CLASSIFICATION CLASSIFICATION A VA Dental Eligibility including Inpatient/Outpatient and classification.]]> %Library.String 1 CLASSIFICATION into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {DENTAL_CLASSIFICATION_CLASSIFICATION}=$select(SQLCODE=0:val,1:"")]]> 1 DENTAL_CLASSIFICATION_CLASSIFICATION 1 FileMan Field Label: 'DENTAL ELIGIBILITY EXPIRATION' FileMan Field Number: '220.1' For Dental Eligibility %Library.FilemanTimeStamp 535 DENTAL_ELIGIBILITY_EXPIRATION FileMan Field Label: 'DESIGNEE CHANGE DATE/TIME' FileMan Field Number: '.3412' This field will hold the date and time of the last Designee Update. Any change to the following Designee fields will trigger an update: D-Name Of Designee, D-Relationship To Patient, D-Street Address [Line 1], D-Street Address [Line 2], D-Street Address [Line 3], D-City, D-State, D-Zip Code, D-Phone Number, D-Designee Same As Nok?, D-Work Phone Number %Library.FilemanTimeStamp 382 DESIGNEE_CHANGE_DATETIME FileMan Field Label: 'DISABILITY DISCHARGE ON 1010EZ' FileMan Field Number: '1010.158' This field was added via patch DG*5.3*597, distributed with EAS*1.0*51. The purpose of this field is to store within the PATIENT file the applicant's answer to the 1010EZ question: WAS DISCHARGE FROM MILITARY FOR A DISABILITY INCURRED OR AGGRAVATED IN THE LINE OF DUTY? This field may contain any of the following: 0 for "NO" 1 for "YES" null (i.e., not answered) %Library.EnumString 568 DISABILITY_DISCHARGE_ON_1010EZ FileMan Field Label: 'DISABILITY RET. FROM MILITARY?' FileMan Field Number: '.362' MILT RET DUE TO DISABILITY? %Library.EnumString 410 DISABILITY_RET__FROM_MILITARY FileMan Field Label: 'DISCHARGE DUE TO DISABILITY' FileMan Field Number: '.3603' %Library.EnumString 400 DISCHARGE_DUE_TO_DISABILITY FileMan Field Label: 'DIVISION' FileMan Field Number: '.19' Division of inpatient location %Library.String 1 170 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(2,.19,9.2) S Y(2,.19,101)=$S($D(^DIC(42,D0,0)):^(0),1:"") S X=$S('$D(^DG(40.8,+$P(Y(2,.19,101),U,11),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) set {DIVISION}=X 1 DIVISION FileMan Field Label: 'D-NAME COMPONENTS' FileMan Field Number: '1.09' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 497 DNAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {DNAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 DNAME_COMPONENTS_FILE 1 FileMan Field Label: 'D-NAME OF DESIGNEE' FileMan Field Number: '.341' DESIGNEE Enter the designee's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 381 DNAME_OF_DESIGNEE FileMan Field Label: 'D-PHONE NUMBER' FileMan Field Number: '.349' PHONE NUMBER OF PERSONAL POSSESSION DESIGNEE If a designee is specified enter the telephone number at which that person may be reached [3-20 characters], otherwise nothing may be entered. This field cannot be deleted as long as a designee is on file. %Library.String 390 DPHONE_NUMBER FileMan Field Label: 'D-POSTAL CODE' FileMan Field Number: '.34014' Enter a postal code if the designee has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 378 DPOSTAL_CODE FileMan Field Label: 'D-PROVINCE' FileMan Field Number: '.34013' Enter a Province if the designee has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 377 DPROVINCE FileMan Field Label: 'DR' FileMan Field Number: '1907' VALIP.prosthetic.fm2cw.DOCTOR442044 585 DR FileMan Field Label: 'D-RELATIONSHIP TO PATIENT' FileMan Field Number: '.342' If a designee is specified, enter any additional information regarding the relationship of that person to the applicant [3-30 characters]. This field cannot be deleted as long as a designee is on file. %Library.String 383 DRELATIONSHIP_TO_PATIENT FileMan Field Label: 'D-RELATIONSHIP TYPE' FileMan Field Number: '.34015' If a designee is specified, enter the relationship of that person to the applicant. This field cannot be deleted as long as a designee is on file. VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 379 DRELATIONSHIP_TYPE NUMBER This field contains the number of the Patient Contact Relation.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {DRELATIONSHIP_TYPE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 DRELATIONSHIP_TYPE_NUMBER 1 NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {DR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DR_NAME 1 FileMan Field Label: 'D-STATE' FileMan Field Number: '.347' If a designee is specified select from the available listing the state in which that person resides. This field cannot be deleted as long as a designee is on file. VALIP.prosthetic.fm2cw.STATE5 388 DSTATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {DSTATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DSTATE_NAME 1 FileMan Field Label: 'D-STREET ADDRESS [LINE 1]' FileMan Field Number: '.343' If a designee is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a designee is on file. %Library.String 384 DSTREET_ADDRESS_LINE_1 FileMan Field Label: 'D-STREET ADDRESS [LINE 2]' FileMan Field Number: '.344' If a designee is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a designee is on file. %Library.String 385 DSTREET_ADDRESS_LINE_2 FileMan Field Label: 'D-STREET ADDRESS [LINE 3]' FileMan Field Number: '.345' If a designee is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a designee is on file. %Library.String 386 DSTREET_ADDRESS_LINE_3 FileMan Field Label: 'DUPLICATE STATUS' FileMan Field Number: '.081' This field is currently not being utilized. It will be active when Patient Merge/Purge options are available to the user. Duplicate Status field will be defined at that time. | %Library.EnumString 14 DUPLICATE_STATUS FileMan Field Label: 'D-WORK PHONE NUMBER' FileMan Field Number: '.34011' If the person designated to receive the patient's personal effects is employed, enter the phone number at which that person may be reached while at work. %Library.String 375 DWORK_PHONE_NUMBER FileMan Field Label: 'D-ZIP+4' FileMan Field Number: '.2202' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). This is related to the designee for personal effects' address. %Library.String 200 DZIP4 FileMan Field Label: 'D-ZIP CODE' FileMan Field Number: '.348' If a designee is specified enter the zip code for the city in which s/he resides [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as a designee is on file. %Library.String 389 DZIP_CODE FileMan Field Label: 'E2-CITY' FileMan Field Number: '.3316' If a secondary emergency contact is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on file. %Library.String 363 E2CITY FileMan Field Label: 'E2-CONTACT CHANGE DATE/TIME' FileMan Field Number: '.33112' This field will hold the date and time of the last Secondary Emergency Contact Update. Any change to the following Secondary Emergency Contact fields will trigger an update: E2-Name Of Secondary Contact, E2-Relationship To Patient, E2-Street Address [Line 1], E2-Street Address [Line 2], E2-Street Address [Line 3], E2-City, E2-State, E2-Zip Code, E2-Phone Number and E2-Work Phone Number %Library.FilemanTimeStamp 358 E2CONTACT_CHANGE_DATETIME FileMan Field Label: 'E2-COUNTRY' FileMan Field Number: '.331012' This is the country where the secondary emergency contact address is located. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 353 E2COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {E2COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 E2COUNTRY_CODE 1 FileMan Field Label: 'E2-NAME COMPONENTS' FileMan Field Number: '1.08' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 496 E2NAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {E2NAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 E2NAME_COMPONENTS_FILE 1 FileMan Field Label: 'E2-NAME OF SECONDARY CONTACT' FileMan Field Number: '.3311' EMERGENCY CONTACT-2 Enter the secondary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 357 E2NAME_OF_SECONDARY_CONTACT FileMan Field Label: 'E2-PHONE NUMBER' FileMan Field Number: '.3319' If a secondary emergency contact is specified enter the telephone number at which that person may be reached [3-20 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on file. %Library.String 366 E2PHONE_NUMBER FileMan Field Label: 'E2-POSTAL CODE' FileMan Field Number: '.331014' Enter a postal code if the secondary emergency contact has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 355 E2POSTAL_CODE FileMan Field Label: 'E2-PROVINCE' FileMan Field Number: '.331013' Enter a Province if the secondary emergency contact has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 354 E2PROVINCE FileMan Field Label: 'E2-RELATIONSHIP TO PATIENT' FileMan Field Number: '.3312' If a secondary emergency contact is specified, enter any additional information regarding the relationship of that person to the applicant [2-30 characters]. This field cannot be deleted as long as a secondary emergency contact is on file. %Library.String 359 E2RELATIONSHIP_TO_PATIENT FileMan Field Label: 'E2-RELATIONSHIP TYPE' FileMan Field Number: '.331015' If a secondary emergency contact is specified, enter the relationship of that person to the applicant. This field cannot be deleted as long as a secondary emergency contact is on file. VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 356 E2RELATIONSHIP_TYPE NUMBER This field contains the number of the Patient Contact Relation.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {E2RELATIONSHIP_TYPE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 E2RELATIONSHIP_TYPE_NUMBER 1 FileMan Field Label: 'E2-STATE' FileMan Field Number: '.3317' If a secondary emergency contact is specified select from the available listing the state in which that person resides, otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on file. VALIP.prosthetic.fm2cw.STATE5 364 E2STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {E2STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 E2STATE_NAME 1 FileMan Field Label: 'E2-STREET ADDRESS [LINE 1]' FileMan Field Number: '.3313' If a secondary emergency contact is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on file. %Library.String 360 E2STREET_ADDRESS_LINE_1 FileMan Field Label: 'E2-STREET ADDRESS [LINE 2]' FileMan Field Number: '.3314' If a secondary emergency contact is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on file. %Library.String 361 E2STREET_ADDRESS_LINE_2 FileMan Field Label: 'E2-STREET ADDRESS [LINE 3]' FileMan Field Number: '.3315' If a secondary emergency contact is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on file. %Library.String 362 E2STREET_ADDRESS_LINE_3 FileMan Field Label: 'E2-WORK PHONE NUMBER' FileMan Field Number: '.331011' If the person designated as the secondary emergency contact is employed, enter the person's work phone number. %Library.String 352 E2WORK_PHONE_NUMBER FileMan Field Label: 'E2-ZIP+4' FileMan Field Number: '.2204' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). This is related to the secondary emergency contact's address. %Library.String 202 E2ZIP4 FileMan Field Label: 'E2-ZIP CODE' FileMan Field Number: '.3318' If a secondary emergency contact is specified enter the zip code for the city in which s/he resides [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as a secondary emergency contact is on file. %Library.String 365 E2ZIP_CODE FileMan Field Label: 'E-CITY' FileMan Field Number: '.336' If a primary emergency contact is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on file. %Library.String 371 ECITY FileMan Field Label: 'E-CONTACT CHANGE DATE/TIME' FileMan Field Number: '.33012' This field will hold the date and time of the last Emergency Contact Update. Any change to the following Emergency Contact fields will trigger an update: E-Name, E-Relationship To Patient, E-Street Address [Line 1], E-Street Address [Line 2], E-Street Address [Line 3], E-City, E-State, E-Zip Code, E-Phone Number, E-Emer. Contact Same As NOK? and E-Work Phone Number %Library.FilemanTimeStamp 345 ECONTACT_CHANGE_DATETIME FileMan Field Label: 'E-COUNTRY' FileMan Field Number: '.3306' This is the country where the primary emergency contact address is located. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 347 ECOUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ECOUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 ECOUNTRY_CODE 1 FileMan Field Label: 'E-EMER. CONTACT SAME AS NOK?' FileMan Field Number: '.3305' IS E-CONTACT SAME AS NOK If a primary NOK is defined enter 'Y' if that person is also the primary emergency contact, otherwise enter 'N' for no. %Library.EnumString 346 EEMER__CONTACT_SAME_AS_NOK FileMan Field Label: 'EFF. DATE COMBINED SC% EVAL.' FileMan Field Number: '.3014' Data will be filed automatically from HL7 message from the HEC. This is the date that the combined Service Connected Disability % was awarded. %Library.FilemanDate 253 EFF__DATE_COMBINED_SC_EVAL_ FileMan Field Label: 'ELIGIBILITY INTERIM RESPONSE' FileMan Field Number: '.3614' ELIG INTERIM RESPONSE If an interim response has been received concerning this applicant's eligibility status enter the date received. Only users who hold the designated security key may enter/edit this field. %Library.FilemanDate 405 ELIGIBILITY_INTERIM_RESPONSE FileMan Field Label: 'ELIGIBILITY STATUS' FileMan Field Number: '.3611' ELIG STATUS Select from the available listing the appropriate eligibility status for this applicant. Only users who hold the designated security key may enter/edit this field. %Library.EnumString 402 ELIGIBILITY_STATUS FileMan Field Label: 'ELIGIBILITY STATUS DATE' FileMan Field Number: '.3612' ELIG STATUS DATE Enter the effective date of the eligibility status (ELIG STATUS prompt). Only users who hold the designated security key may enter/edit this field. %Library.FilemanDate 403 ELIGIBILITY_STATUS_DATE FileMan Field Label: 'ELIGIBILITY STATUS ENTERED BY' FileMan Field Number: '.3616' WHO ENTERED ELIGIBILITY STATUS When eligibility is verified (ELIG STATUS="VERIFIED") the name of the user who certified the verification. VALIP.prosthetic.fm2cw.NEWPERSON200 407 ELIGIBILITY_STATUS_ENTERED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ELIGIBILITY_STATUS_ENTERED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ELIGIBILITY_STATUS_ENTERED_BY_NAME 1 FileMan Field Label: 'ELIGIBILITY VERIF. METHOD' FileMan Field Number: '.3615' VERIFICATION METHOD Enter the method in which the eligibility for this applicant was verified [between 2-50 characters]. Only users who hold the designated security key may enter/edit this field. %Library.String 406 ELIGIBILITY_VERIF__METHOD FileMan Field Label: 'ELIGIBILITY VERIF. SOURCE' FileMan Field Number: '.3613' ELIG VERIF SOURCE This field is used to restrict site ability to edit certain data elements when HEC has verified eligibility data. %Library.EnumString 404 ELIGIBILITY_VERIF__SOURCE FileMan Field Label: 'ELIGIBLE FOR MEDICAID?' FileMan Field Number: '.381' MEDICAID ELIGIBILE? Enter yes if this patient is eligible to receive medicaid coverage. Otherwise, answer no. %Library.EnumString 435 ELIGIBLE_FOR_MEDICAID FileMan Field Label: 'EMAIL ADDRESS' FileMan Field Number: '.133' Email Address %Library.String 124 EMAIL_ADDRESS FileMan Field Label: 'EMAIL ADDRESS CHANGE DT/TM' FileMan Field Number: '.136' This field will contain the date and time of the last EMAIL address update. %Library.FilemanTimeStamp 127 EMAIL_ADDRESS_CHANGE_DTTM FileMan Field Label: 'EMAIL ADDRESS CHANGE SITE' FileMan Field Number: '.138' This field will hold the site that last changed this patient's EMAIL address. This field is only populated when the EMAIL Address Source is listed as VAMC. VALIP.prosthetic.fm2cw.INSTITUTION4 129 EMAIL_ADDRESS_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {EMAIL_ADDRESS_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EMAIL_ADDRESS_CHANGE_SITE_NAME 1 FileMan Field Label: 'EMAIL ADDRESS CHANGE SOURCE' FileMan Field Number: '.137' This field will hold the source of the last EMAIL address change. %Library.EnumString 128 EMAIL_ADDRESS_CHANGE_SOURCE FileMan Field Label: 'EMAIL ADDRESS CHANGE USER' FileMan Field Number: '.1318' This field contains the user who changed this patient's email address. It is automatically set when the email address is entered or edited. VALIP.prosthetic.fm2cw.NEWPERSON200 115 EMAIL_ADDRESS_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {EMAIL_ADDRESS_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EMAIL_ADDRESS_CHANGE_USER_NAME 1 FileMan Field Label: 'EMAIL ADDRESS INDICATOR' FileMan Field Number: '.1316' Email Address Indicator This field indicates whether or not the Veteran has an Email address. %Library.EnumString 113 EMAIL_ADDRESS_INDICATOR FileMan Field Label: 'EMAIL ADDRESS INDICATOR DT/TM' FileMan Field Number: '.1317' Email Address Indicator date/time This field contains the date and time of the last Email Address Indicator response. %Library.FilemanTimeStamp 114 EMAIL_ADDRESS_INDICATOR_DTTM FileMan Field Label: 'EMERGENCY RESPONSE INDICATOR' FileMan Field Number: '.181' Enter the appropriate ER Indicator to identify patients impacted by the COVID-19 Pandemic. %Library.EnumString 168 EMERGENCY_RESPONSE_INDICATOR FileMan Field Label: 'EMPLOYER CITY' FileMan Field Number: '.3116' If employment status is indicated, applicant is not unemployed and an employer name is entered enter the employer city [1-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as an employer name is on file. %Library.String 270 EMPLOYER_CITY FileMan Field Label: 'EMPLOYER NAME' FileMan Field Number: '.3111' If employment status is indicated and is not unemployed enter the employer name [1-30 characters], otherwise nothing may be entered. %Library.String 263 EMPLOYER_NAME FileMan Field Label: 'EMPLOYER PHONE NUMBER' FileMan Field Number: '.3119' If employment status is indicated, applicant is not unemployed and an employer name is entered enter the employer telephone number [3-20 characters], otherwise nothing may be entered. This field cannot be deleted as long as an employer name is on file. %Library.String 273 EMPLOYER_PHONE_NUMBER FileMan Field Label: 'EMPLOYER STATE' FileMan Field Number: '.3117' If employment status is indicated, applicant is not unemployed and an employer name is entered select from the available listing the employer state, otherwise nothing may be entered. This field cannot be deleted as long as an employer name is on file. VALIP.prosthetic.fm2cw.STATE5 271 EMPLOYER_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {EMPLOYER_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EMPLOYER_STATE_NAME 1 FileMan Field Label: 'EMPLOYER STREET [LINE 1]' FileMan Field Number: '.3113' If employment status is indicated, applicant is not unemployed and an employer name is entered enter the first line of the employer street address [1-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as an employer name is on file. %Library.String 267 EMPLOYER_STREET_LINE_1 FileMan Field Label: 'EMPLOYER STREET [LINE 2]' FileMan Field Number: '.3114' If employment status is indicated, applicant is not unemployed and an employer name is entered enter the second line of the employer street address [1-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as an employer name is on file. %Library.String 268 EMPLOYER_STREET_LINE_2 FileMan Field Label: 'EMPLOYER STREET [LINE 3]' FileMan Field Number: '.3115' If employment status is indicated, applicant is not unemployed and an employer name is entered enter the third line of the employer street address [1-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as an employer name is on file. %Library.String 269 EMPLOYER_STREET_LINE_3 FileMan Field Label: 'EMPLOYER ZIP+4' FileMan Field Number: '.2205' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). This is related to the patient employer's address. %Library.String 203 EMPLOYER_ZIP4 FileMan Field Label: 'EMPLOYER ZIP CODE' FileMan Field Number: '.3118' If employment status is indicated, applicant is not unemployed and an employer name is entered enter the employer zip code [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as an employer name is on file. %Library.String 272 EMPLOYER_ZIP_CODE FileMan Field Label: '*EMPLOYMENT STATUS' FileMan Field Number: '.04' Select from the available listing this applicant's current employment status. %Library.EnumString 9 EMPLOYMENT_STATUS FileMan Field Label: 'EMPLOYMENT STATUS' FileMan Field Number: '.31115' Enter the patient's current employment status. Choose from the available choices. %Library.EnumString 264 EMPLOYMENT_STATUS0 FileMan Field Label: 'E-NAME' FileMan Field Number: '.331' EMERGENCY CONTACT Enter the primary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 351 ENAME FileMan Field Label: 'E-NAME COMPONENTS' FileMan Field Number: '1.07' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 495 ENAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ENAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 ENAME_COMPONENTS_FILE 1 FileMan Field Label: 'E-PHONE NUMBER' FileMan Field Number: '.339' If a primary emergency contact is specified enter the telephone number [3-20 characters] at which that person may be reached, otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on file. %Library.String 374 EPHONE_NUMBER FileMan Field Label: 'E-POSTAL CODE' FileMan Field Number: '.3308' Enter a postal code if the primary emergency contact has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 349 EPOSTAL_CODE FileMan Field Label: 'E-PROVINCE' FileMan Field Number: '.3307' Enter a Province if the primary emergency contact has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 348 EPROVINCE FileMan Field Label: 'E-RELATIONSHIP TO PATIENT' FileMan Field Number: '.332' If a primary emergency contact is specified, enter any additional information regarding the relationship of that person to the applicant [3-35 characters]. This field cannot be deleted as long as a primary emergency contact is on file. %Library.String 367 ERELATIONSHIP_TO_PATIENT FileMan Field Label: 'E-RELATIONSHIP TYPE' FileMan Field Number: '.3309' If a primary emergency contact is specified, enter the relationship of that person to the applicant. This field cannot be deleted as long as a primary emergency contact is on file. VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 350 ERELATIONSHIP_TYPE NUMBER This field contains the number of the Patient Contact Relation.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ERELATIONSHIP_TYPE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ERELATIONSHIP_TYPE_NUMBER 1 FileMan Field Label: 'E-STATE' FileMan Field Number: '.337' If a primary emergency contact is specified select from the available listing the state in which that person resides, otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on file. VALIP.prosthetic.fm2cw.STATE5 372 ESTATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {ESTATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ESTATE_NAME 1 FileMan Field Label: 'E-STREET ADDRESS [LINE 1]' FileMan Field Number: '.333' If a primary emergency contact is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on file. %Library.String 368 ESTREET_ADDRESS_LINE_1 FileMan Field Label: 'E-STREET ADDRESS [LINE 2]' FileMan Field Number: '.334' If a primary emergency contact is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on file. %Library.String 369 ESTREET_ADDRESS_LINE_2 FileMan Field Label: 'E-STREET ADDRESS [LINE 3]' FileMan Field Number: '.335' If a primary emergency contact is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on file. %Library.String 370 ESTREET_ADDRESS_LINE_3 FileMan Field Label: 'E-WORK PHONE NUMBER' FileMan Field Number: '.33011' If the emergency contact for this patient is employed, enter the phone number at which this individual may be reached while at work. %Library.String 344 EWORK_PHONE_NUMBER FileMan Field Label: 'EXCLUDE FROM FACILITY DIR' FileMan Field Number: '.109' Denotes whether or not the patient wished to be excluded from the Facility Directory for current admission. This field is only stored for current inpatients. It must NOT be edited as this could affect the integrity of many options within PIMS and other packages. %Library.EnumString 41 EXCLUDE_FROM_FACILITY_DIR FileMan Field Label: 'EXPANDED MH CARE TYPE' FileMan Field Number: '.5501' This field stores the EXPANDED MH CARE TYPE which indicates the expanded mental health care authority that the patient should be treated under. %Library.EnumString 478 EXPANDED_MH_CARE_TYPE FileMan Field Label: 'E-ZIP+4' FileMan Field Number: '.2201' SIGNIFICANT OTHER #1 Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). This is related to the Emergency Contact Address. %Library.String 199 EZIP4 FileMan Field Label: 'E-ZIP CODE' FileMan Field Number: '.338' If a primary emergency contact is specified enter the zip code for the city in which s/he resides [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as a primary emergency contact is on file. %Library.String 373 EZIP_CODE FileMan Field Label: '1U4N' FileMan Field Number: '.0905' This is a computed field used to display the first character of the patient's last name concatenated with the last four digits of the patient's social security number. This combination of characters can be used to look-up a patient in DHCP. %Library.String 1 19 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(2,.0905,9.2) S X=$E(Y(.0905,4),Y(.0905,5),X) S Y=X,X=Y(.0905,3),X=X_Y set {f1U4N}=X 1 f1U4N FileMan Field Label: '2ND MOST RECENT DATE OF CARE' FileMan Field Number: '1010.153' If this applicant has received care in more than one other VA facility enter the date of care received in the next to most recent facility. %Library.FilemanDate 564 f2ND_MOST_RECENT_DATE_OF_CARE FileMan Field Label: '2ND MOST RECENT LOCATION' FileMan Field Number: '1010.154' If this veteran has received care in more than one other VA facility select from the available listing the name of the facility (or facility number) in which the next to most recent care was received. VALIP.prosthetic.fm2cw.INSTITUTION4 565 f2ND_MOST_RECENT_LOCATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {f2ND_MOST_RECENT_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 f2ND_MOST_RECENT_LOCATION_NAME 1 FileMan Field Label: 'FACILITY MAKING DETERMINATION' FileMan Field Number: '.393' The VAMC that made the catastrophic disability determination. VALIP.prosthetic.fm2cw.INSTITUTION4 452 FACILITY_MAKING_DETERMINATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {FACILITY_MAKING_DETERMINATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FACILITY_MAKING_DETERMINATION_NAME 1 FileMan Field Label: 'FATHER'S NAME' FileMan Field Number: '.2401' Enter the father's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 211 FATHERS_NAME FileMan Field Label: 'FATHER'S NAME COMPONENTS' FileMan Field Number: '1.04' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 492 FATHERS_NAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {FATHERS_NAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 FATHERS_NAME_COMPONENTS_FILE 1 FileMan Field Label: '*FEE BASIS DISPOSITION' FileMan Field Number: '.174' FEE BASIS DISPOSITION %Library.String 167 FEE_BASIS_DISPOSITION FileMan Field Label: '*FEE BASIS FILE LOCATION' FileMan Field Number: '.173' FEE BASIS FILE LOCATION %Library.EnumString 166 FEE_BASIS_FILE_LOCATION FileMan Field Label: 'FEE HOSPITAL I.D.' FileMan Field Number: '.172' FEE HOSPITAL I.D. This field is not used by any DHCP packages and has been *'d for deletion with the release of MAS v5.2. It will be removed in a future release of MAS. %Library.EnumString 165 FEE_HOSPITAL_I_D_ FileMan Field Label: 'FFF DATE ENTERED' FileMan Field Number: '1100.03' Date/Time the FUGITIVE FELON FLAG field (#1100.01) was entered. This field is automatically set when the FUGITIVE FELON FLAG field (#1100.01) is set. %Library.FilemanTimeStamp 577 FFF_DATE_ENTERED FileMan Field Label: 'FFF DATE REMOVED' FileMan Field Number: '1100.05' Date/Time the FUGITIVE FELON FLAG Field (#1100.01) was removed. This field is automatically set when the FUGITIVE FELON FLAG field (#1100.01) is deleted. %Library.FilemanTimeStamp 579 FFF_DATE_REMOVED FileMan Field Label: 'FFF ENTERED BY' FileMan Field Number: '1100.02' This field contains the user who entered the current Fugtitive Felon Flag for this patient. It is automatically entered when the FUGITIVE FELON FLAG field (#1100.01) is entered. VALIP.prosthetic.fm2cw.NEWPERSON200 576 FFF_ENTERED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {FFF_ENTERED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FFF_ENTERED_BY_NAME 1 FileMan Field Label: 'FFF REMOVAL REMARKS' FileMan Field Number: '1100.09' If the FFF flag has been cleared for this patient, this field contains a short reason as to why the flag was cleared. This is a free text field which allows up to 80 characters to be entered. %Library.String 580 FFF_REMOVAL_REMARKS FileMan Field Label: 'FFF REMOVED BY' FileMan Field Number: '1100.04' This field contains the user who removed the current Fugitive Felon Flag for this patient. It is automatically entered when the FUGITIVE FELON FLAG field (#1100.01) is deleted. VALIP.prosthetic.fm2cw.NEWPERSON200 578 FFF_REMOVED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {FFF_REMOVED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FFF_REMOVED_BY_NAME 1 FileMan Field Label: 'FILIPINO VETERAN PROOF' FileMan Field Number: '.3214' Enter in this field the documentation that was provided in order to establish US citizenship, lawful permanent US residency, and/or VA Compensation at full-dollar rate for a Filipino Veteran (i.e., a veteran whose Branch of Service is F. Commonwealth, F. Guerilla, or F. Scouts New) %Library.EnumString 295 FILIPINO_VETERAN_PROOF FileMan Field Label: 'FOREIGN ID NUMBER' FileMan Field Number: '991.09' Foreign Identification Number (FIN) The Department of Defense (DoD) Defense Eligibility Enrollment Reporting System (DEERS) uses a Foreign Identification Number for foreign military and foreign nationals when the record is added to DEERS. This DoD FOREIGN ID NUMBER will be used by the Master Veteran Index to support the linking of patient records without a given Social Security Number (SSN) across VA and DoD. %Library.String 549 FOREIGN_ID_NUMBER FileMan Field Label: 'FUGITIVE FELON FLAG' FileMan Field Number: '1100.01' This field is in support of Pub. L. 107-103, section 505, and is used to flag a patient who has a fugitive felon warrant outstanding. This information will be provided to the appropriate personnel to enter. Access to this field requires the DGFFP ACCESS key. This field should not be updated directly, but should be entered through the appropriate Fugitive Felon Program options. %Library.EnumString 575 FUGITIVE_FELON_FLAG FileMan Field Label: 'FULL ICN' FileMan Field Number: '991.1' This field can only be edited by CIRN! The entire Integration Control Number (ICN), which is based on the ASTM E-1714 standard format of a 16 digit identifier, 1 character delimiter, 6 digit checksum, followed by an optional 6 digit encryption scheme. ICN is a machine to machine identifier for a patient. %Library.String 550 FULL_ICN FileMan Field Label: 'GI INSURANCE POLICY?' FileMan Field Number: '.36265' DO YOU HAVE GI INSURANCE? For this veteran applicant enter 'Y' if s/he has GI insurance, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 424 GI_INSURANCE_POLICY FileMan Field Label: 'GOVERNMENT AGENCY' FileMan Field Number: '.3112' If this patient is currently employed by a government agency, respond yes to this question. If the patient is employed by the private sector or currently is unemployed, respond no. %Library.EnumString 266 GOVERNMENT_AGENCY FileMan Field Label: 'GRENADA FROM DATE' FileMan Field Number: '.3225' Enter the date which this patient began service in Grenada. The 'GRENADA SERVICE INDICATED?' field must be answered YES and the date entered here must be between October 23, 1983 and November 21, 1983. %Library.FilemanDate 318 GRENADA_FROM_DATE FileMan Field Label: 'GRENADA SERVICE INDICATED?' FileMan Field Number: '.3224' Enter yes if this patient served in Grenada between the dates of October 23, 1983 and November 21, 1983. %Library.EnumString 317 GRENADA_SERVICE_INDICATED FileMan Field Label: 'GRENADA TO DATE' FileMan Field Number: '.3226' Enter the date which this patient's service in Grenada ended. The 'GRENADA SERVICE INDICATED?' field must be yes and this date must be between October 23, 1983 and November 21, 1983. %Library.FilemanDate 319 GRENADA_TO_DATE FileMan Field Label: 'GUARDIAN (CIVIL)' FileMan Field Number: '.2922' If this patient has been ruled incompetant to handle his financial matters, enter the name of the individual responsible for handling the funds on the patient's behalf. %Library.String 241 GUARDIAN_CIVIL FileMan Field Label: 'GUARDIAN (VA)' FileMan Field Number: '.2912' Enter the name of the VA representative responsible for this patient's funds. %Library.String 231 GUARDIAN_VA FileMan Field Label: '*HEIGHT(cm)' FileMan Field Number: '57.1' HEIGHT(cm) %Library.Numeric 525 HEIGHTCM FileMan Field Label: '*HEPATITIS' FileMan Field Number: '57.5' HEPATITIS %Library.EnumString 529 HEPATITIS FileMan Field Label: 'HISTORIC KATRINA ERI' FileMan Field Number: '.182' This is the historic Hurricane Katrina Emergency Response Indicator for a patient. %Library.EnumString 169 HISTORIC_KATRINA_ERI FileMan Field Label: '*HL DATE CHARGED' FileMan Field Number: '12' HL DATE CHARGED %Library.FilemanDate 498 HL_DATE_CHARGED FileMan Field Label: '*HL HOSPITAL LOCATION' FileMan Field Number: '18' HL HOSPITAL LOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 504 HL_HOSPITAL_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {HL_HOSPITAL_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HL_HOSPITAL_LOCATION_NAME 1 FileMan Field Label: '*HL LOCATION PHONE' FileMan Field Number: '23' HL LOCATION PHONE %Library.String 508 HL_LOCATION_PHONE FileMan Field Label: '*HL OFF-STATION LOCATION' FileMan Field Number: '21' HL OFF-STATION LOCATION VALIP.prosthetic.fm2cw.INSTITUTION4 507 HL_OFFSTATION_LOCATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {HL_OFFSTATION_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HL_OFFSTATION_LOCATION_NAME 1 FileMan Field Label: '*HL OTHER LOCATION' FileMan Field Number: '20' HL OTHER LOCATION %Library.String 506 HL_OTHER_LOCATION FileMan Field Label: '*HL PROVIDER' FileMan Field Number: '19' HL PROVIDER %Library.String 505 HL_PROVIDER FileMan Field Label: '*HL RESERVED-1' FileMan Field Number: '16' HL RESERVED-1 %Library.String 502 HL_RESERVED1 FileMan Field Label: '*HL RESERVER-2' FileMan Field Number: '17' HL RESERVER-2 %Library.String 503 HL_RESERVER2 FileMan Field Label: '*HL SPECIAL NOTE' FileMan Field Number: '15' HL SPECIAL NOTE %Library.String 501 HL_SPECIAL_NOTE FileMan Field Label: '*HL TIME CHARGED' FileMan Field Number: '13' HL TIME CHARGED %Library.Numeric 499 HL_TIME_CHARGED FileMan Field Label: '*HL USER' FileMan Field Number: '14' HL USER %Library.String 500 HL_USER FileMan Field Label: 'HOW WAS PATIENT ENTERED?' FileMan Field Number: '.098' How was the patient entered into the system. %Library.EnumString 29 HOW_WAS_PATIENT_ENTERED FileMan Field Label: 'ICN CHECKSUM' FileMan Field Number: '991.02' This checksum is the calculated checksum for the Integration Control Number. It verifies the integrity of the ICN. %Library.String 542 ICN_CHECKSUM Internal Entry Number %Library.String $$next^%apiSQL("$p(^DPT(0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDIAN ATTESTATION DATE' FileMan Field Number: '.573' This field will contain the date on which an applicant or previously enrolled Veteran informed the VA of their status as an Indian. %Library.FilemanDate 483 INDIAN_ATTESTATION_DATE FileMan Field Label: 'INDIAN END DATE' FileMan Field Number: '.574' This field shall store the date on which the INDIAN SELF IDENTIFICATION field was changed from YES to NO. %Library.FilemanDate 484 INDIAN_END_DATE FileMan Field Label: 'INDIAN SELF IDENTIFICATION' FileMan Field Number: '.571' This field will contain the value from the "Are you an Indian" question on the 1010EZ, 1010EZR, or the online application as answered by the applicant. %Library.EnumString 481 INDIAN_SELF_IDENTIFICATION FileMan Field Label: 'INDIAN SELF IDENT CHANGE DT/TM' FileMan Field Number: '.575' This field contains the system generated timestamp of the last edit date and time of the INDIAN SELF IDENTIFICATION field. %Library.FilemanTimeStamp 485 INDIAN_SELF_IDENT_CHANGE_DTTM FileMan Field Label: 'INDIAN SELF IDENT CHANGE USER' FileMan Field Number: '.576' This field contains the local name of the user that last edited the INDIAN SELF IDENTIFICATION field. VALIP.prosthetic.fm2cw.NEWPERSON200 486 INDIAN_SELF_IDENT_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {INDIAN_SELF_IDENT_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INDIAN_SELF_IDENT_CHANGE_USER_NAME 1 FileMan Field Label: 'INDIAN START DATE' FileMan Field Number: '.572' This field shall store the date on which an Enrolled Veteran will no longer be billed for certain VHA services. %Library.FilemanDate 482 INDIAN_START_DATE FileMan Field Label: 'INDIVIDUAL TAX ID' FileMan Field Number: '991.11' An ITIN or Individual Taxpayer Identification Number, is a tax processing number only available for certain non-resident and resident aliens, their spouses and dependents who cannot get a Social Security Number (SSN). It is a 9-digit number, beginning with the number '9', formatted like an SSN (NNN-NN-NNNN). %Library.Numeric 551 INDIVIDUAL_TAX_ID FileMan Field Label: 'INELIGIBLE DATE' FileMan Field Number: '.152' **DG*5.3*1081 removed the ability to edit this field. All edits must now be made in the VHA Enrollment System.** If this applicant is ineligible for treatment enter the effective date. Only users who hold the designated security key may enter/edit this field. The Ineligible Date cannot be prior to the beneficiary Date of Birth. %Library.FilemanDate 152 INELIGIBLE_DATE FileMan Field Label: 'INELIGIBLE REASON' FileMan Field Number: '.307' REASON-INELIGIBLE **DG*5.3*1081 removed the ability to edit this field. All edits must now be made in the VHA Enrollment System.** If this applicant is ineligible for treatment enter the reason [not to exceed 40 characters]. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated security key. This field may not be deleted as long as an ineligible date is on file. %Library.String 260 INELIGIBLE_REASON FileMan Field Label: 'INELIGIBLE TWX CITY' FileMan Field Number: '.1653' TWX CITY-INELIGIBLE *The need to collect data in this field is obsolete. DG*5.3*1081 removed the ability to edit this field. The field remains for historical data only.* Enter the city from which the TWX which informed you this applicant was ineligible for treatment originated [3-30 characters]. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated security key. This field may not be deleted as long as an ineligible date is on file. %Library.String 157 INELIGIBLE_TWX_CITY FileMan Field Label: 'INELIGIBLE TWX SOURCE' FileMan Field Number: '.1651' TWX SOURCE-INELIGIBLE *The need to collect data in this field is obsolete. DG*5.3*1081 removed the ability to edit this field. The field remains for historical data only.* Choose from the available listing the source of the TWX which informed you that this applicant was ineligible for treatment. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated security key. This field may not be deleted as long as an ineligible date is on file. %Library.EnumString 155 INELIGIBLE_TWX_SOURCE FileMan Field Label: 'INELIGIBLE TWX STATE' FileMan Field Number: '.1654' TWX STATE-INELIGIBLE *The need to collect data in this field is obsolete. DG*5.3*1081 removed the ability to edit this field. The field remains for historical data only.* Enter the state from which the TWX which informed you this applicant was ineligible for treatment originated. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated security key. This field may not be deleted as long as an ineligible date is on file. VALIP.prosthetic.fm2cw.STATE5 158 INELIGIBLE_TWX_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {INELIGIBLE_TWX_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INELIGIBLE_TWX_STATE_NAME 1 FileMan Field Label: 'INELIGIBLE VARO DECISION' FileMan Field Number: '.1656' VARO DECISION-INELIGIBLE *The need to collect data in this field is obsolete. DG*5.3*1081 removed the ability to edit this field. The field remains for historical data only.* Enter the VARO decision concerning this applicant's ineligibility [between 3-75 characters]. An ineligible date must be specified in order to enter/edit this field and the user must hold the designated security key. This field may not be deleted as long as an ineligible date is on file. %Library.String 160 INELIGIBLE_VARO_DECISION FileMan Field Label: 'INITIAL ODS TREATMENT RECEIVED' FileMan Field Number: '11500.01' Enter the date/time this patient was initially entered as ODS. This field will automatically be created when ODS is selected as the PERIOD OF SERVICE for this patient. %Library.FilemanTimeStamp 588 INITIAL_ODS_TREATMENT_RECEIVED FileMan Field Label: 'INPATIENT WARD' FileMan Field Number: '999.1' INPATIENT WARD For use in historical inpatient list. For programmers only %Library.String 1 554 set U="^",D0=$piece({RowId},"||",1) S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,1),1:"") set {INPATIENT_WARD}=X 1 INPATIENT_WARD FileMan Field Label: 'INSTITUTION (CIVIL)' FileMan Field Number: '.2921' If this patient has been ruled incompetant to handle his financial matters, enter the instituition reponsible for handling the funds on the patient's behalf. %Library.String 240 INSTITUTION_CIVIL FileMan Field Label: 'INSTITUTION (VA)' FileMan Field Number: '.2911' Enter the VA facility or institution responsible for this patient's VA funds. VALIP.prosthetic.fm2cw.INSTITUTION4 230 INSTITUTION_VA NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {INSTITUTION_VA_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INSTITUTION_VA_NAME 1 FileMan Field Label: 'INTEGRATION CONTROL NUMBER' FileMan Field Number: '991.01' Machine to machine identifier for a patient. %Library.Numeric 541 INTEGRATION_CONTROL_NUMBER FileMan Field Label: '*IN USE NODE - TIME' FileMan Field Number: '.4002' %Library.Numeric 458 IN_USE_NODE__TIME FileMan Field Label: 'K2-ADDRESS SAME AS PATIENT'S?' FileMan Field Number: '.21925' IS K2-ADDR SAME AS PATIENT'S Enter 'Y' if the secondary NOK should be contacted at the same address and phone number as the applicant, otherwise enter 'N'. %Library.EnumString 191 K2ADDRESS_SAME_AS_PATIENTS FileMan Field Label: 'K2-CITY' FileMan Field Number: '.2196' If a secondary NOK is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary NOK is on file. %Library.String 195 K2CITY FileMan Field Label: 'K2-COUNTRY' FileMan Field Number: '.2101' This is the country where the secondary NOK address is located. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 171 K2COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {K2COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 K2COUNTRY_CODE 1 FileMan Field Label: 'K2-NAME COMPONENTS' FileMan Field Number: '1.03' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 491 K2NAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {K2NAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 K2NAME_COMPONENTS_FILE 1 FileMan Field Label: 'K2-NAME OF SECONDARY NOK' FileMan Field Number: '.2191' NEXT OF KIN-2 Enter the secondary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 189 K2NAME_OF_SECONDARY_NOK FileMan Field Label: 'K2-PHONE NUMBER' FileMan Field Number: '.2199' If a secondary NOK is specified enter the telephone number at which that person may be reached [3-20 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary NOK is on file. %Library.String 198 K2PHONE_NUMBER FileMan Field Label: 'K2-POSTAL CODE' FileMan Field Number: '.2103' Enter a postal code if the secondary NOK has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 175 K2POSTAL_CODE FileMan Field Label: 'K2-PROVINCE' FileMan Field Number: '.2102' Enter a Province if the secondary NOK has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 174 K2PROVINCE FileMan Field Label: 'K2-RELATIONSHIP TO PATIENT' FileMan Field Number: '.2192' If a secondary next-of-kin is specified, enter any additional information regarding the relationship of that person to the applicant [1-30 characters]. This field cannot be deleted as long as a secondary NOK is on file. %Library.String 190 K2RELATIONSHIP_TO_PATIENT FileMan Field Label: 'K2-RELATIONSHIP TYPE' FileMan Field Number: '.2104' If a secondary next-of-kin is specified, enter the relationship of that person to the applicant. This field cannot be deleted as long as a secondary NOK is on file. VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 176 K2RELATIONSHIP_TYPE NUMBER This field contains the number of the Patient Contact Relation.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {K2RELATIONSHIP_TYPE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 K2RELATIONSHIP_TYPE_NUMBER 1 FileMan Field Label: 'K2-STATE' FileMan Field Number: '.2197' If a secondary NOK is specified select from the available listing the state in which that person resides, otherwise nothing may be entered. This field cannot be deleted as long as a secondary NOK is on file. VALIP.prosthetic.fm2cw.STATE5 196 K2STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {K2STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 K2STATE_NAME 1 FileMan Field Label: 'K2-STREET ADDRESS [LINE 1]' FileMan Field Number: '.2193' If a secondary NOK is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a secondary NOK is on file. %Library.String 192 K2STREET_ADDRESS_LINE_1 FileMan Field Label: 'K2-STREET ADDRESS [LINE 2]' FileMan Field Number: '.2194' If a secondary NOK is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a secondary NOK is on file. %Library.String 193 K2STREET_ADDRESS_LINE_2 FileMan Field Label: 'K2-STREET ADDRESS [LINE 3]' FileMan Field Number: '.2195' If a secondary NOK is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a secondary NOK is on file. %Library.String 194 K2STREET_ADDRESS_LINE_3 FileMan Field Label: 'K2-WORK PHONE NUMBER' FileMan Field Number: '.211011' If the person designated as secondary next of kin for this patient is employed, enter the phone number that individual can be reached at while at work. %Library.String 178 K2WORK_PHONE_NUMBER FileMan Field Label: 'K2-ZIP+4' FileMan Field Number: '.2203' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). This is related to the secondary next-of-kin's address. %Library.String 201 K2ZIP4 FileMan Field Label: 'K2-ZIP CODE' FileMan Field Number: '.2198' If a secondary NOK is specified enter the zip code for the city in which that person resides [5 numerics], otherwise nothing may be entered. This field cannot be deleted as long as a secondary NOK is on file. %Library.String 197 K2ZIP_CODE FileMan Field Label: 'K-ADDRESS SAME AS PATIENT'S?' FileMan Field Number: '.2125' IS NOK ADDRESS SAME AS PATIENT'S Enter 'Y' if the next-of-kin should be contacted at the same address and phone number as the applicant, otherwise enter 'N'. %Library.EnumString 181 KADDRESS_SAME_AS_PATIENTS FileMan Field Label: 'K-CITY' FileMan Field Number: '.216' If a primary next-of-kin is specified enter the city in which that person resides [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is on file. %Library.String 185 KCITY FileMan Field Label: 'K-COUNTRY' FileMan Field Number: '.221' This is the country where the primary NOK address is located. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 206 KCOUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {KCOUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 KCOUNTRY_CODE 1 FileMan Field Label: 'K-NAME COMPONENTS' FileMan Field Number: '1.02' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 490 KNAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {KNAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 KNAME_COMPONENTS_FILE 1 FileMan Field Label: 'K-NAME OF PRIMARY NOK' FileMan Field Number: '.211' NEXT OF KIN Enter the primary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 177 KNAME_OF_PRIMARY_NOK FileMan Field Label: 'K-PHONE NUMBER' FileMan Field Number: '.219' If a primary next-of-kin is specified enter that person's telephone number [4-20 characters], otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is on file. %Library.String 188 KPHONE_NUMBER FileMan Field Label: 'K-POSTAL CODE' FileMan Field Number: '.223' Enter a postal code if the primary NOK has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 208 KPOSTAL_CODE FileMan Field Label: 'K-PROVINCE' FileMan Field Number: '.222' Enter a Province if the primary NOK has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 207 KPROVINCE FileMan Field Label: 'K-RELATIONSHIP TO PATIENT' FileMan Field Number: '.212' If a primary next-of-kin is specified, enter any additional information regarding the relationship of that person to the applicant [1-30 characters]. This field cannot be deleted as long as a 'next of kin' name is on file. %Library.String 180 KRELATIONSHIP_TO_PATIENT FileMan Field Label: 'K-RELATIONSHIP TYPE' FileMan Field Number: '.224' If a primary next-of-kin is specified, enter the relationship of that person to the applicant. This field cannot be deleted as long as a 'next of kin' name is on file. VALIP.prosthetic.fm2cw.PATIENTCONTACTRELATION1211 209 KRELATIONSHIP_TYPE NUMBER This field contains the number of the Patient Contact Relation.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {KRELATIONSHIP_TYPE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 KRELATIONSHIP_TYPE_NUMBER 1 FileMan Field Label: 'K-STATE' FileMan Field Number: '.217' If a primary next-of-kin is specified select from the available listing the state in which that person resides, otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is on file. VALIP.prosthetic.fm2cw.STATE5 186 KSTATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {KSTATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 KSTATE_NAME 1 FileMan Field Label: 'K-STREET ADDRESS [LINE 1]' FileMan Field Number: '.213' If a primary next-of-kin is specified enter the first line of that person's street address [3-30 characters], otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is on file. %Library.String 182 KSTREET_ADDRESS_LINE_1 FileMan Field Label: 'K-STREET ADDRESS [LINE 2]' FileMan Field Number: '.214' If a primary next-of-kin is specified enter the second line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is on file. %Library.String 183 KSTREET_ADDRESS_LINE_2 FileMan Field Label: 'K-STREET ADDRESS [LINE 3]' FileMan Field Number: '.215' If a primary next-of-kin is specified enter the third line of that person's street address [3-30 characters], if necessary, otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is on file. %Library.String 184 KSTREET_ADDRESS_LINE_3 FileMan Field Label: 'K-WORK PHONE NUMBER' FileMan Field Number: '.21011' If the person designated as next of kin for this patient is employed, enter the phone number at which the NOK can be reached while at work. %Library.String 172 KWORK_PHONE_NUMBER FileMan Field Label: 'K-ZIP+4' FileMan Field Number: '.2207' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). This is related to the primary emergency contact's address. %Library.String 205 KZIP4 FileMan Field Label: 'K-ZIP CODE' FileMan Field Number: '.218' If a primary next-of-kin is specified enter the zip code [5 numerics] in which his/her city lies, otherwise nothing may be entered. This field cannot be deleted as long as a 'next of kin' name is on file. %Library.String 187 KZIP_CODE FileMan Field Label: 'LABORATORY REFERENCE' FileMan Field Number: '63' This field contains the internal entry number of this patient in the LAB DATA file. This data is entered and maintained by the laboratory package and must NOT be edited under any circumstances. Editing of this data could cause severe repercussions in the laboratory package. VALIP.prosthetic.fm2cw.LABDATA63 531 LABORATORY_REFERENCE LRDFN The internal file number of the "patient" (or other entity)]]> %Library.Numeric 1 LRDFN into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {LABORATORY_REFERENCE_LRDFN}=$select(SQLCODE=0:val,1:"")]]> 1 LABORATORY_REFERENCE_LRDFN 1 FileMan Field Label: 'LAB REFERRAL REF' FileMan Field Number: '67' This field contains the pointer reference to the Referral file of the Laboratory Package. This field is set by the laboratory accessioning software and should not be edited. Changing of this pointer will result IN misidentification of patients that could have dire medical repercussions. VALIP.prosthetic.fm2cw.REFERRALPATIENT67 532 LAB_REFERRAL_REF NAME Name of patient.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {LAB_REFERRAL_REF_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAB_REFERRAL_REF_NAME 1 FileMan Field Label: 'LAST DMMS EPISODE NUMBER' FileMan Field Number: '.106' This field was added at the request of the DMMS package developed at the Birmingham ISC. It will be utilized in a future release of that package. %Library.Numeric 38 LAST_DMMS_EPISODE_NUMBER FileMan Field Label: 'LAST EDITED BY' FileMan Field Number: '.355' This is the local user ID of the person that last made a modification to the date of death (.351) field. VALIP.prosthetic.fm2cw.NEWPERSON200 395 LAST_EDITED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {LAST_EDITED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAST_EDITED_BY_NAME 1 FileMan Field Label: 'LAST MEANS TEST' FileMan Field Number: '999.2' %Library.String 1 555 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S X1=$$LST^DGMTU(D0),Y=$P(X1,U,2) D DD^%DT S X=Y set {LAST_MEANS_TEST}=X 1 LAST_MEANS_TEST FileMan Field Label: 'LEBANON FROM DATE' FileMan Field Number: '.3222' For this veteran applicant who served in Lebanon, enter the date which the applicant's service in Lebanon began. The date must be on or after October 1, 1983. . %Library.FilemanDate 315 LEBANON_FROM_DATE FileMan Field Label: 'LEBANON SERVICE INDICATED?' FileMan Field Number: '.3221' DID YOU SERVE IN LEBANON? Did this patient serve in Lebanon between the dates of August 23, 1982 and February 26, 1984? %Library.EnumString 314 LEBANON_SERVICE_INDICATED FileMan Field Label: 'LEBANON TO DATE' FileMan Field Number: '.3223' For this patient, enter the date the patient's service in Lebanon ended. The 'LEBANON SERVICE INDICATED?' field must be answered yes and the date in this field must be after October 1, 1983. %Library.FilemanDate 316 LEBANON_TO_DATE FileMan Field Label: '*LEGAL RESIDENCE' FileMan Field Number: '.1181' LEGAL RESIDENCE %Library.String 72 LEGAL_RESIDENCE FileMan Field Label: '*LEGAL RESIDENCE 2' FileMan Field Number: '.1182' LEGAL RESIDENCE 2 %Library.String 73 LEGAL_RESIDENCE_2 FileMan Field Label: '*LEGAL RESIDENCE 3' FileMan Field Number: '.1183' LEGAL RESIDENCE 3 %Library.String 74 LEGAL_RESIDENCE_3 FileMan Field Label: '*LEGAL RESIDENCE CITY' FileMan Field Number: '.1184' LEGAL RESIDENCE CITY %Library.String 75 LEGAL_RESIDENCE_CITY FileMan Field Label: '*LEGAL RESIDENCE COUNTY' FileMan Field Number: '.1187' LEGAL RESIDENCE COUNTY %Library.Numeric 78 LEGAL_RESIDENCE_COUNTY FileMan Field Label: '*LEGAL RESIDENCE STATE' FileMan Field Number: '.1185' LEGAL RESIDENCE STATE VALIP.prosthetic.fm2cw.STATE5 76 LEGAL_RESIDENCE_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {LEGAL_RESIDENCE_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LEGAL_RESIDENCE_STATE_NAME 1 FileMan Field Label: '*LEGAL RESIDENCE ZIP' FileMan Field Number: '.1186' LEGAL RESIDENCE ZIP %Library.String 77 LEGAL_RESIDENCE_ZIP FileMan Field Label: 'LOCALLY ASSIGNED ICN' FileMan Field Number: '991.04' DESIGNATES THAT THE ICN BELONGING TO THIS PATIENT IS LOCAL %Library.EnumString 544 LOCALLY_ASSIGNED_ICN FileMan Field Label: 'LODGER WARD LOCATION' FileMan Field Number: '.107' The ward on which the patient currently resides if the patient is a lodger. %Library.String 39 LODGER_WARD_LOCATION FileMan Field Label: 'MARITAL STATUS' FileMan Field Number: '.05' Select from the available listing this applicant's current marital status. VALIP.prosthetic.fm2cw.MARITALSTATUS11 10 MARITAL_STATUS NAME This field contains the name of the acceptable marital status as distributed by the MAS package. These entries should not be altered in any way nor should entries be added or removed. Editing of this data can have negative affects on the performance of the MAS module as well as other DHCP modules.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MARITAL_STATUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MARITAL_STATUS_NAME 1 FileMan Field Label: 'MEDICAID NUMBER' FileMan Field Number: '.383' This is the patient's assigned MEDICAID number. %Library.String 437 MEDICAID_NUMBER FileMan Field Label: 'METHOD OF DETERMINATION' FileMan Field Number: '.395' Added in order to document the review method of how the decision to assign a CD status was determined. Determination may be made by reviewing the veteran's medical record or by performing a physical examination of the veteran. In the future, the capability to fully automate the record review process will be added to the system. %Library.EnumString 454 METHOD_OF_DETERMINATION FileMan Field Label: 'MHVAUTH UPDATE DATE/TIME' FileMan Field Number: '537031' This field captures the date/time the patient's My HealtheVet registration was authenticated by setting the MHV AUTHENTICATED field to 1 (YES). %Library.FilemanTimeStamp 596 MHVAUTH_UPDATE_DATETIME FileMan Field Label: 'MHVREG UPDATE DATE/TIME' FileMan Field Number: '537030' This field captures the Date/Time the patient was confirmed for My HealtheVet registration and when the MHV REGISTERED field was set to 1 (YES). %Library.FilemanTimeStamp 595 MHVREG_UPDATE_DATETIME FileMan Field Label: 'MHVSM UPDATE DATE/TIME' FileMan Field Number: '537032' This field captures the date/time the patient's My HealtheVet registration was approved for secure messaging by the patient. %Library.FilemanTimeStamp 597 MHVSM_UPDATE_DATETIME FileMan Field Label: 'MHV AUTHENTICATED' FileMan Field Number: '537028' This field indicates if the patient's My HealtheVet registraton has, or has not, been authenticated. This field may only be accessed if the patient has been registered in My HealtheVet (MHV REGISTERED equals YES). %Library.EnumString 593 MHV_AUTHENTICATED FileMan Field Label: 'MHV AUTH DECLINED REASON' FileMan Field Number: '537037' This field captures the reason the patient declined to authenticate their My HealtheVet registration. VALIP.prosthetic.fm2cw.MHVDECLINEDREASONS39003 602 MHV_AUTH_DECLINED_REASON NAME This field contains a short pre-defined text reason a patient might decline My HealtheVet registration.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MHV_AUTH_DECLINED_REASON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MHV_AUTH_DECLINED_REASON_NAME 1 FileMan Field Label: 'MHV AUTH DECLINED TEXT' FileMan Field Number: '537034' This field captures a free text reason the patient declined to authenticate their My HealtheVet registration. This free text reason may only be entered when "9-Other" is selected in response to the MHV AUTH DECLINED REASON field. %Library.String 599 MHV_AUTH_DECLINED_TEXT FileMan Field Label: 'MHV MSG DECLINED REASON' FileMan Field Number: '537038' This field captures the reason the patient declined to use secure messaging with their My HealtheVet account. VALIP.prosthetic.fm2cw.MHVDECLINEDREASONS39003 603 MHV_MSG_DECLINED_REASON NAME This field contains a short pre-defined text reason a patient might decline My HealtheVet registration.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MHV_MSG_DECLINED_REASON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MHV_MSG_DECLINED_REASON_NAME 1 FileMan Field Label: 'MHV MSG DECLINED TEXT' FileMan Field Number: '537035' This field captures a free text reason the patient declined to use secure messaging with their My HealtheVet registration. This free text reason may only be entered when "9-Other" is selected in response to the MHV MSG DECLINED REASON field. %Library.String 600 MHV_MSG_DECLINED_TEXT FileMan Field Label: 'MHV REGISTERED' FileMan Field Number: '537027' This field indicates whether the patient is, or is not, registered in My HealtheVet. %Library.EnumString 592 MHV_REGISTERED FileMan Field Label: 'MHV REGISTER DECLINED REASON' FileMan Field Number: '537036' This field captures the reason the patient declined to register in My HealtheVet. VALIP.prosthetic.fm2cw.MHVDECLINEDREASONS39003 601 MHV_REGISTER_DECLINED_REASON NAME This field contains a short pre-defined text reason a patient might decline My HealtheVet registration.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MHV_REGISTER_DECLINED_REASON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MHV_REGISTER_DECLINED_REASON_NAME 1 FileMan Field Label: 'MHV REGISTER DECLINED TEXT' FileMan Field Number: '537033' This field captures a free text reason the patient declined to register in My HealtheVet. This free text reason may only be entered when "9-Other" is selected in response to the MHV MSG DECLINED REASON field. %Library.String 598 MHV_REGISTER_DECLINED_TEXT FileMan Field Label: 'MHV SECURE MESSAGING' FileMan Field Number: '537029' This field indicates whether the patient has, or has not, opted to use secure messaging with their My HealtheVet account. This field may only be accessed if the patient's My HealtheVet registration has been authenticated (MHV AUTHENTICATED equals YES). %Library.EnumString 594 MHV_SECURE_MESSAGING FileMan Field Label: '*MILEAGE ($)' FileMan Field Number: '.1166' MILEAGE ($) %Library.Numeric 1 66 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X $P(^DD(2,.1165,0),U,5,99) S Y(.1166,91)=X,X=Y(.1166,91)*.22 K Y(.1166) S X=$J(X,0,2) set {MILEAGE_}=X 1 MILEAGE_ FileMan Field Label: '*MILES' FileMan Field Number: '.1165' MILES %Library.Numeric 1 65 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(.1165,1)=$S($D(^DPT(D0,.11)):^(.11),1:""),X=$S('$D(^ZIP(+$P(Y(.1165,1),U,6),0)):"",1:$P(^(0),U,4)) K Y(.1165) S X=$J(X,0,0) set {MILES}=X 1 MILES FileMan Field Label: 'MILITARY DISABILITY RETIREMENT' FileMan Field Number: '.3602' %Library.EnumString 399 MILITARY_DISABILITY_RETIREMENT FileMan Field Label: 'MISSING OR INELIGIBLE' FileMan Field Number: '.16' This is a word processing field to contain information on the patient's ineligibility or information about this missing patient. %Library.String 154 MISSING_OR_INELIGIBLE FileMan Field Label: 'MISSING PERSON DATE' FileMan Field Number: '.153' DATE REPORTED AS MISSING PERSON This field contains the date this patient was initially listed as missing. %Library.FilemanDate 153 MISSING_PERSON_DATE FileMan Field Label: 'MISSING PERSON TWX CITY' FileMan Field Number: '.1658' TWX CITY-MISSING PERSON If this patient is missing, enter the city where the TWX reporting the patient as missing was originated. %Library.String 162 MISSING_PERSON_TWX_CITY FileMan Field Label: 'MISSING PERSON TWX SOURCE' FileMan Field Number: '.1657' TWX SOURCE-MISSING PERSON If this patient is missing, enter the source of the TWX that originally listed the patient as missing. %Library.EnumString 161 MISSING_PERSON_TWX_SOURCE FileMan Field Label: 'MISSING PERSON TWX STATE' FileMan Field Number: '.1659' TWX STATE-MISSING PERSON If this patient is missing, enter the state where the TWX reporting the patient as missing was originated. VALIP.prosthetic.fm2cw.STATE5 163 MISSING_PERSON_TWX_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MISSING_PERSON_TWX_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MISSING_PERSON_TWX_STATE_NAME 1 FileMan Field Label: 'MOH AWARD DATE' FileMan Field Number: '.542' This field cannot be edited in VistA. It is set by the Z11 upload from HEC. A date is indicated only if the patient is a Veteran. %Library.FilemanDate 475 MOH_AWARD_DATE FileMan Field Label: 'MOH COPAYMENT EXEMPTION DATE' FileMan Field Number: '.544' This field cannot be edited in VistA. This date is determined by the VistA system based off Medal of Honor Award Date and Legislation date. A date is indicated only if the patient is a Veteran. %Library.FilemanDate 477 MOH_COPAYMENT_EXEMPTION_DATE FileMan Field Label: 'MOH STATUS DATE' FileMan Field Number: '.543' This field cannot be edited in VistA. It is set by the Z11 upload from HEC. A date is indicated only if the patient is a Veteran. %Library.FilemanDate 476 MOH_STATUS_DATE FileMan Field Label: 'MONETARY BEN. VERIFY DATE' FileMan Field Number: '.306' Once monetary benefits, and amounts, are verified enter the date of verification. All monetary benefits data fields will become uneditable to any user who does not hold the designated security key once the benefits are verified. Only users who hold the designated security key may enter/edit this field. %Library.FilemanDate 259 MONETARY_BEN__VERIFY_DATE FileMan Field Label: 'MOST RECENT 1010EZ' FileMan Field Number: '1010.156' This field was added via patch DG*5.3*597, distributed with EAS*1.0*51. The purpose of this field is to link the PATIENT file record with the Veteran's latest 1010EZ Application to this site. The 1010EZ data is retained in 1010EZ HOLDING File (#712). The internal entry number to file #712 is stored in the MOST RECENT 1010EZ field. VALIP.prosthetic.fm2cw.f1010EZHOLDING712 566 MOST_RECENT_1010EZ APPLICATION # A unique sequential identifier assigned by the 1010EZ module to each Application.]]> %Library.Numeric 1 APPLICATION_ into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MOST_RECENT_1010EZ_APPLICATION_}=$select(SQLCODE=0:val,1:"")]]> 1 MOST_RECENT_1010EZ_APPLICATION_ 1 FileMan Field Label: 'MOST RECENT DATE OF CARE' FileMan Field Number: '1010.151' If this veteran has previously received care in another VA facility enter the date of care in that facility. %Library.FilemanDate 557 MOST_RECENT_DATE_OF_CARE FileMan Field Label: 'MOST RECENT LOCATION OF CARE' FileMan Field Number: '1010.152' If this veteran have previously received care in another VA facility select from the available listing the name of the facility (or facility number) in which care was rendered most recently. VALIP.prosthetic.fm2cw.INSTITUTION4 563 MOST_RECENT_LOCATION_OF_CARE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MOST_RECENT_LOCATION_OF_CARE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MOST_RECENT_LOCATION_OF_CARE_NAME 1 FileMan Field Label: 'MOTHER'S MAIDEN NAME' FileMan Field Number: '.2403' Enter the mother's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format. Entry of the LAST name only is permitted and the comma may be omitted. If the response contains no comma, one will be appended to the value. Including the comma, the value must be at least 3 characters in length. %Library.String 213 MOTHERS_MAIDEN_NAME FileMan Field Label: 'MOTHERS MAIDEN NAME COMPONENTS' FileMan Field Number: '1.06' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 494 MOTHERS_MAIDEN_NAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MOTHERS_MAIDEN_NAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 MOTHERS_MAIDEN_NAME_COMPONENTS_FILE 1 FileMan Field Label: 'MOTHER'S NAME' FileMan Field Number: '.2402' Enter the mother's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 212 MOTHERS_NAME FileMan Field Label: 'MOTHER'S NAME COMPONENTS' FileMan Field Number: '1.05' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 493 MOTHERS_NAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {MOTHERS_NAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 MOTHERS_NAME_COMPONENTS_FILE 1 FileMan Field Label: 'MULTIPLE BIRTH INDICATOR' FileMan Field Number: '994' The MULTIPLE BIRTH INDICATOR will designate whether or not the patient is part of a multiple birth (i.e. to identify twins, etc.). %Library.EnumString 552 MULTIPLE_BIRTH_INDICATOR FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 1 3 NAME FileMan Field Label: 'NAME COMPONENTS' FileMan Field Number: '1.01' VALIP.prosthetic.fm2cw.NAMECOMPONENTS20 489 NAME_COMPONENTS FILE Answer must be the number of the file or subfile that contains the name field.]]> %Library.Numeric 1 FILE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {NAME_COMPONENTS_FILE}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_COMPONENTS_FILE 1 FileMan Field Label: 'NETWORK IDENTIFIER' FileMan Field Number: '537025' This field holds the synonym values from the Network Health Exchange Authorized Site file indicating where a particular patient has been found to have data. %Library.String 591 NETWORK_IDENTIFIER Computed Field For Node .1 %Library.String 1 30 s {NODE__1}=$g(^DPT({IEN},.1)) 1 NODE__1 FileMan Field Label: 'NUMERIC' FileMan Field Number: '1906' HOBBIES %Library.Numeric 584 NUMERIC1906 FileMan Field Label: 'NURSE STATION' FileMan Field Number: '1905' %Library.String 583 NURSE_STATION FileMan Field Label: 'OCCUPATION' FileMan Field Number: '.07' If applicable, enter this applicant's current occupation [1-30 characters]. %Library.String 12 OCCUPATION FileMan Field Label: '*OCCUPATION CODE IN VIETNAM' FileMan Field Number: '.32106' OCCUPATION CODE IN VIETNAM %Library.String 285 OCCUPATION_CODE_IN_VIETNAM FileMan Field Label: 'ORIGINAL APPOINTMENT REQUEST' FileMan Field Number: '1010.1512' Enter a 'Y' if the veteran applicant has requested an appointment with a VA doctor or provider and wants to be seen as soon as one becomes available. Enter a 'N' if the veteran applicant has not requested an appointment %Library.EnumString 559 ORIGINAL_APPOINTMENT_REQUEST FileMan Field Label: 'ORIGINAL APPT REQUEST DATE' FileMan Field Number: '1010.1513' ORIGINAL APPOINTMENT REQUEST DATE This field contains the date the VA enrolling a patient for the first time was notified the patient is requesting an appointment with a provider. %Library.FilemanDate 560 ORIGINAL_APPT_REQUEST_DATE FileMan Field Label: 'ORIG APPT REQUEST CHG DT/TM' FileMan Field Number: '1010.1514' ORIGINAL APPOINTMENT REQUEST LAST UPDATE DATETIME ORIGINAL APPOINTMENT REQUEST LAST UPDATE DATETIME will be used to compare incoming HL7 change message's datetime stamp to, if populated, what is stored in VistA REE's database. The database will not be updated if the incoming HL7 message is older than what is currently stored. The message will be rejected if it is not more recent than what is stored in VistA REE. It is an 'display only' field and is not editable by the VistA user and is used for data verification only. %Library.FilemanDate 561 ORIG_APPT_REQUEST_CHG_DTTM FileMan Field Label: 'PAGER NUMBER' FileMan Field Number: '.135' Pager # Enter the applicant's pager number [4-20 characters]. %Library.String 126 PAGER_NUMBER FileMan Field Label: 'PAGER NUMBER CHANGE DT/TM' FileMan Field Number: '.1312' This field will contain the date and time of the last Pager number update. %Library.FilemanTimeStamp 109 PAGER_NUMBER_CHANGE_DTTM FileMan Field Label: 'PAGER NUMBER CHANGE SITE' FileMan Field Number: '.1314' This field will hold the site that last changed this patient's Pager number. This field is only populated when the Pager Number Change Source is listed as VAMC. VALIP.prosthetic.fm2cw.INSTITUTION4 111 PAGER_NUMBER_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PAGER_NUMBER_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PAGER_NUMBER_CHANGE_SITE_NAME 1 FileMan Field Label: 'PAGER NUMBER CHANGE SOURCE' FileMan Field Number: '.1313' This field will hold the source of the last Pager number change. %Library.EnumString 110 PAGER_NUMBER_CHANGE_SOURCE FileMan Field Label: 'PANAMA FROM DATE' FileMan Field Number: '.3228' If this patient served in Panama (PANAMA SERVICE INDICATED? is answered YES), enter the date this patient's service in Panama began. The date must be between December 20, 1989 and January 31, 1990. %Library.FilemanDate 321 PANAMA_FROM_DATE FileMan Field Label: 'PANAMA SERVICE INDICATED?' FileMan Field Number: '.3227' Respond yes if this patient served in Panama between the dates of December 20, 1989 and January 31, 1990. Enter no if the patient did not serve in Panama during this timeframe. Otherwise, enter unknown if this information could not be obtained from the patient. %Library.EnumString 320 PANAMA_SERVICE_INDICATED FileMan Field Label: 'PANAMA TO DATE' FileMan Field Number: '.3229' If this patient served during the conflict in Panama (PANAMA SERVICE INDICATED? is YES), enter the date the patient's service there ended. The date must be between December 20, 1989 and January 31, 1990. %Library.FilemanDate 322 PANAMA_TO_DATE FileMan Field Label: 'PATIENT MERGED TO' FileMan Field Number: '.082' This field is currently not being utilized. It will be active when Patient Merge/Purge options are available to the user. Patient Merged To: field will be defined at that time. | VALIP.prosthetic.fm2cw.PATIENT2 15 PATIENT_MERGED_TO NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PATIENT_MERGED_TO_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_MERGED_TO_NAME 1 FileMan Field Label: 'PAT NO' FileMan Field Number: '1904' DATE/TIME %Library.Numeric 582 PAT_NO FileMan Field Label: 'PENSION AWARD EFFECTIVE DATE' FileMan Field Number: '.3851' It is the Effective Date that the patient was awarded VA Pension Entitlement of Original Award by VBA. This field is optional. But if entered, must be a precise date (Month/Day/Year) (00/00/0000). This date cannot be a future date. This date also cannot be before the veteran's 16th birthday. %Library.FilemanDate 438 PENSION_AWARD_EFFECTIVE_DATE FileMan Field Label: 'PENSION AWARD LOCK' FileMan Field Number: '.3861' PENSION AWARD FIELDS LOCKED BY ESR This field is used to restrict the site's ability to edit the Pension Award fields 'PENSION AWARD EFFECTIVE DATE'(#.3851) field and 'PENSION AWARD REASON'(#.3852) field. Once an incoming message is received from ESR with a 'PENSION AWARD EFFECTIVE DATE'(#.3851) field and with a 'PENSION AWARD REASON' (#.3852) field of 'ORIGINAL AWARD', or with a 'PENSION TERMINATED REASON'(#.3854,#.3855, #.3856 or #.3857) field that does not have a NULL value, then the 'PENSION AWARD EFFECTIVE DATE' (#.3851) field and 'PENSION AWARD REASON' (#.3852) field become 'display only' and are not editable by the VistA user. %Library.EnumString 448 PENSION_AWARD_LOCK FileMan Field Label: 'PENSION AWARD REASON' FileMan Field Number: '.3852' Enter the Pension Award Reason only if VA Pension (#.36235) field is equal to "Yes". VistA users are only allowed to enter a Pension Award Reason of "Original Award" (106). This field is optional. If Pension Award Reason is entered, an Award Date must be entered. VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 439 PENSION_AWARD_REASON REASON This is the reason for the Pension Award.]]> %Library.String 1 REASON into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PENSION_AWARD_REASON_REASON}=$select(SQLCODE=0:val,1:"")]]> 1 PENSION_AWARD_REASON_REASON 1 FileMan Field Label: 'PENSION INDICATOR LOCK' FileMan Field Number: '.386' PENSION INDICATOR LOCKED BY ESR This field is used to restrict the site's ability to edit the Pension Indicator field 'RECEIVING A VA PENSION?'(#.36253) field. Once an incoming message is received from ESR with any Pension Data, the Pension Indicator field becomes 'display only' and is not editable by the VistA user. %Library.EnumString 447 PENSION_INDICATOR_LOCK FileMan Field Label: 'PENSION TERMINATED DATE' FileMan Field Number: '.3853' The date that the Pension was terminated. The Pension Terminated Date is not editable. %Library.FilemanDate 440 PENSION_TERMINATED_DATE FileMan Field Label: 'PENSION TERMINATED REASON 1' FileMan Field Number: '.3854' The first Reason for the Pension Termination. This field is not editable. VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 441 PENSION_TERMINATED_REASON_1 REASON This is the reason for the Pension Award.]]> %Library.String 1 REASON into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PENSION_TERMINATED_REASON_1_REASON}=$select(SQLCODE=0:val,1:"")]]> 1 PENSION_TERMINATED_REASON_1_REASON 1 FileMan Field Label: 'PENSION TERMINATED REASON 2' FileMan Field Number: '.3855' The second Reason for the Pension Termination. This field is not editable. VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 442 PENSION_TERMINATED_REASON_2 REASON This is the reason for the Pension Award.]]> %Library.String 1 REASON into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PENSION_TERMINATED_REASON_2_REASON}=$select(SQLCODE=0:val,1:"")]]> 1 PENSION_TERMINATED_REASON_2_REASON 1 FileMan Field Label: 'PENSION TERMINATED REASON 3' FileMan Field Number: '.3856' The third Reason for the Pension Termination. This field is not editable. VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 443 PENSION_TERMINATED_REASON_3 REASON This is the reason for the Pension Award.]]> %Library.String 1 REASON into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PENSION_TERMINATED_REASON_3_REASON}=$select(SQLCODE=0:val,1:"")]]> 1 PENSION_TERMINATED_REASON_3_REASON 1 FileMan Field Label: 'PENSION TERMINATED REASON 4' FileMan Field Number: '.3857' The fourth Reason for the Pension Termination. This field is not editable. VALIP.prosthetic.fm2cw.PENSIONAWARDREASONS2718 444 PENSION_TERMINATED_REASON_4 REASON This is the reason for the Pension Award.]]> %Library.String 1 REASON into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PENSION_TERMINATED_REASON_4_REASON}=$select(SQLCODE=0:val,1:"")]]> 1 PENSION_TERMINATED_REASON_4_REASON 1 FileMan Field Label: 'PERIOD OF SERVICE' FileMan Field Number: '.323' From the available listing select the period of service which best classifies this applicant. The selections displayed are limited based on the eligibility code which must have been entered in order to select a period of service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. VALIP.prosthetic.fm2cw.PERIODOFSERVICE21 323 PERIOD_OF_SERVICE NAME This field contains the name of a period of service as determined by MAS VACO for use in DHCP. This name should not be altered in any way nor should entries be added to or removed from this file. This data is maintained by the MAS package and all updates to it will be made by that package during a release.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PERIOD_OF_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERIOD_OF_SERVICE_NAME 1 FileMan Field Label: 'PERSIAN GULF FROM DATE' FileMan Field Number: '.322011' If this patient served in the Persian Gulf during the war (PERSIAN GULF SERVICE? is answered YES), respond with the date the patient began serving there. The date must be on or after August 2, 1990. %Library.FilemanDate 303 PERSIAN_GULF_FROM_DATE FileMan Field Label: 'PERSIAN GULF SERVICE?' FileMan Field Number: '.32201' DID YOU SERVE IN THE PERSIAN GULF WAR? If this patient served in the Persian Gulf during the war (anytime after August 2, 1990), enter yes here. If the patient did not serve in the Persian Gulf during this timeframe, enter no. Enter unknown if this information could not be obtained from the patient. %Library.EnumString 302 PERSIAN_GULF_SERVICE FileMan Field Label: 'PERSIAN GULF TO DATE' FileMan Field Number: '.322012' If this patient served in the Persian Gulf during the war, enter the date the patient's service in that region ended. The date must be after the date selected as PERSIAN GULF FROM DATE which must be on or after August 2, 1990. %Library.FilemanDate 304 PERSIAN_GULF_TO_DATE FileMan Field Label: 'PHONE (CIVIL)' FileMan Field Number: '.2929' If this patient has been ruled incompetant to handle his money and another person has been assigned to handle the patient's financial matters, enter that person's phone number here. %Library.String 248 PHONE_CIVIL FileMan Field Label: 'PHONE NUMBER [CELLULAR]' FileMan Field Number: '.134' Cell Phone Enter the telephone number [4-20 characters] to the applicant's mobile phone. %Library.String 125 PHONE_NUMBER_CELLULAR FileMan Field Label: 'PHONE NUMBER [RESIDENCE]' FileMan Field Number: '.131' Enter the telephone number [4-20 characters] to this applicant's place of residence. %Library.String 106 PHONE_NUMBER_RESIDENCE FileMan Field Label: 'PHONE NUMBER [WORK]' FileMan Field Number: '.132' OFFICE PHONE Enter the office phone number [4-20 characters] where this applicant can be reached while employed, if employed. %Library.String 117 PHONE_NUMBER_WORK FileMan Field Label: 'PHONE (VA)' FileMan Field Number: '.2919' If this patient has a VA guardian responsible for handling the patient's funds, enter the guardian's phone number here. %Library.String 238 PHONE_VA FileMan Field Label: 'PHONE [WORK] CHANGE DT/TM' FileMan Field Number: '.1326' This field will contain the date and time of the last work phone number update. %Library.FilemanTimeStamp 123 PHONE_WORK_CHANGE_DTTM FileMan Field Label: 'PHONE [WORK] CHANGE USER' FileMan Field Number: '.1325' This field contains the user who changed this patient's work phone number. It is automatically set when the work phone number is entered or edited. VALIP.prosthetic.fm2cw.NEWPERSON200 122 PHONE_WORK_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PHONE_WORK_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PHONE_WORK_CHANGE_USER_NAME 1 FileMan Field Label: 'PH DIVISION' FileMan Field Number: '.535' When site enters a value for CURRENT PH Indicator, a prompt for PH Division will appear. This field will point to the INSTITUTION file (#4), and will hold the division where the PH request was initiated. VALIP.prosthetic.fm2cw.INSTITUTION4 473 PH_DIVISION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PH_DIVISION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PH_DIVISION_NAME 1 FileMan Field Label: 'PLACE OF BIRTH [CITY]' FileMan Field Number: '.092' POB CITY Enter the city in which this applicant was born (or foreign country if born outside the U.S.) [2-20 characters]. %Library.String 23 PLACE_OF_BIRTH_CITY FileMan Field Label: 'PLACE OF BIRTH COUNTRY' FileMan Field Number: '.0931' The PLACE OF BIRTH COUNTRY field identifies the Country that was selected from the available COUNTRY CODE list for where the individual was born. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 25 PLACE_OF_BIRTH_COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PLACE_OF_BIRTH_COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 PLACE_OF_BIRTH_COUNTRY_CODE 1 FileMan Field Label: 'PLACE OF BIRTH PROVINCE' FileMan Field Number: '.0932' The PLACE OF BIRTH PROVINCE field identifies the location within certain countries containing additional divisions of where the individual was born. %Library.String 26 PLACE_OF_BIRTH_PROVINCE FileMan Field Label: 'PLACE OF BIRTH [STATE]' FileMan Field Number: '.093' POB STATE If the applicant was born within the U.S. select from the available listing the state in which s/he was born. VALIP.prosthetic.fm2cw.STATE5 24 PLACE_OF_BIRTH_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PLACE_OF_BIRTH_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PLACE_OF_BIRTH_STATE_NAME 1 FileMan Field Label: 'POSTAL CODE' FileMan Field Number: '.1172' Enter with patient's postal code if the patient has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 69 POSTAL_CODE FileMan Field Label: 'POW CONFINEMENT LOCATION' FileMan Field Number: '.526' POW WAR For this veteran applicant who was confined as a prisoner of war (WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the war during which confined. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as applicant is identified as a former POW. VALIP.prosthetic.fm2cw.POWPERIOD22 460 POW_CONFINEMENT_LOCATION NAME This field contains the name of the period/place where a patient may have been a prisoner of war. Choices include WWI and Vietnam. This data must NOT be edited in any way.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {POW_CONFINEMENT_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 POW_CONFINEMENT_LOCATION_NAME 1 FileMan Field Label: 'POW FROM DATE' FileMan Field Number: '.527' For this veteran applicant who was confined as a prisoner of war (WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the date on which confinement commenced. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as applicant is identified as a former POW. %Library.FilemanDate 461 POW_FROM_DATE FileMan Field Label: 'POW STATUS INDICATED?' FileMan Field Number: '.525' WERE YOU A PRISONER OF WAR For this veteran applicant enter 'Y' if s/he was confined as a prisoner of war, 'N' if not, or 'U' if unknown. Once the POW Status is verified by the HEC, it is no longer editable. %Library.EnumString 459 POW_STATUS_INDICATED FileMan Field Label: 'POW STATUS VERIFIED' FileMan Field Number: '.529' This field contains the date/time that the POW status was received from HEC. Once the POW status has been received from HEC, it can no longer be edited by the site. %Library.FilemanTimeStamp 463 POW_STATUS_VERIFIED FileMan Field Label: 'POW TO DATE' FileMan Field Number: '.528' For this veteran applicant who was confined as a prisoner of war (WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the date on which confinement ended. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as applicant is identified as a former POW. %Library.FilemanDate 462 POW_TO_DATE VALIP.prosthetic.fm2cw.INSTITUTION4 514 PREFERRED_FACILITY NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PREFERRED_FACILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREFERRED_FACILITY_NAME 1 FileMan Field Label: 'PREFERRED NAME' FileMan Field Number: '.2405' The PREFERRED NAME field identifies the name that the patient would prefer to be referenced by during interactions at the medical facility. Only alphabetic characters and/or spaces are allowed to be entered. The PREFERRED NAME value will be converted/stored as uppercase. Note: Vulgarities and other offensive language such as curse and/or sexual words are NOT appropriate responses. Note: Examples of Preferred Name for a patient could include their rank (Ie. Private LastName), a nickname, etc... %Library.String 214 PREFERRED_NAME FileMan Field Label: 'PRESUMPTIVE PSYCHOSIS CATEGORY' FileMan Field Number: '.5601' This field stores the category of Presumptive Psychosis. **DG*5.3*1082 removed the ability to edit this field. All edits must now be made in the VHA Enrollment System.** %Library.EnumString 480 PRESUMPTIVE_PSYCHOSIS_CATEGORY VALIP.prosthetic.fm2cw.ELIGIBILITYCODE8 401 PRIMARY_ELIGIBILITY_CODE NAME This field contains the site specific name for the eligibility. In most cases the name will be the same as the MAS ELIGIBILITY CODE pointed to by the MAS ELIGIBILITY CODE field of this file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PRIMARY_ELIGIBILITY_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_ELIGIBILITY_CODE_NAME 1 FileMan Field Label: 'PRIMARY LONG ID' FileMan Field Number: '.363' This field contains the patient's long ID associated with the patient's PRIMARY ELIGIBILITY CODE. For most patients this is the Social Security Number. No user input is needed for this field. It is automatically updated when the PRIMARY ELIGIBILITY CODE field is entered and edited. %Library.String 431 PRIMARY_LONG_ID FileMan Field Label: 'PRIMARY NOK CHANGE DATE/TIME' FileMan Field Number: '.21012' This field will hold the date and time of the last Primary Next of Kin Update. %Library.FilemanTimeStamp 173 PRIMARY_NOK_CHANGE_DATETIME FileMan Field Label: 'PRIMARY SHORT ID' FileMan Field Number: '.364' This field contains the patient's short ID associated with the patient's PRIMARY ELIGIBILITY CODE. For most patients this is the last four digits of the Social Security Number. No user input is needed for this field. It is automatically updated when the PRIMARY ELIGIBILITY CODE field is entered and edited. %Library.String 432 PRIMARY_SHORT_ID FileMan Field Label: '*PRIOR ADDRESS 3' FileMan Field Number: '.123' PRIOR ADDRESS 3 %Library.String 101 PRIOR_ADDRESS_3 FileMan Field Label: '*PRIOR CITY' FileMan Field Number: '.124' PRIOR CITY %Library.String 102 PRIOR_CITY FileMan Field Label: '*PRIOR COUNTY' FileMan Field Number: '.127' PRIOR COUNTY %Library.String 105 PRIOR_COUNTY FileMan Field Label: '*PRIOR STATE' FileMan Field Number: '.125' PRIOR STATE VALIP.prosthetic.fm2cw.STATE5 103 PRIOR_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PRIOR_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIOR_STATE_NAME 1 FileMan Field Label: '*PRIOR ZIP' FileMan Field Number: '.126' PRIOR ZIP %Library.String 104 PRIOR_ZIP FileMan Field Label: 'PROJ 112/SHAD' FileMan Field Number: '.32115' %Library.EnumString 291 PROJ_112SHAD FileMan Field Label: 'PRONOUN DESCRIPTION' FileMan Field Number: '.24061' The PRONOUN DESCRIPTION field defines the selected 'Other' Pronoun for specifically addressing the patient. %Library.String 215 PRONOUN_DESCRIPTION FileMan Field Label: 'PROVIDER' FileMan Field Number: '.104' From the available listing select the provider who is currently treating this patient. VALIP.prosthetic.fm2cw.NEWPERSON200 35 PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROVIDER_NAME 1 FileMan Field Label: 'PROVINCE' FileMan Field Number: '.1171' Enter a Province if the patient has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 68 PROVINCE FileMan Field Label: 'PSEUDO SSN REASON' FileMan Field Number: '.0906' This field is used to document the reason the individual was assigned a pseudo SSN. Based on your selection, the Pseudo SSN Report (Patient) option located in the Registration Menu can provide you a current report of the reasons entered at this prompt. The following reasons are available for selection: Refused to Provide - use this reason when the individual was asked for his/her SSN and refused to provide the number. SSN Unknown/Follow-up required - use this reason when the individual is not available to ask/answer the request for SSN. The facility should initiate Follow-up activity to obtain the SSN. No SSN Assigned - use this reason when the individual has not been assigned an SSN. This generally applies to spouse or dependents of veterans who are not US citizens and infrequently, non-citizen beneficiaries. %Library.EnumString 20 PSEUDO_SSN_REASON %Library.EnumString 257 PT FileMan Field Label: 'PT APPLIED FOR ENROLLMENT?' FileMan Field Number: '27.04' PATIENT APPLIED FOR ENROLLMENT? This field will be set to 0 (zero) if the patient did not apply for enrollment (registration only), or 1 if the patient did apply for enrollment. %Library.EnumString 516 PT_APPLIED_FOR_ENROLLMENT %Library.FilemanDate 252 PT_EFFECTIVE_DATE FileMan Field Label: '*PUBLIC LAW' FileMan Field Number: '.171' PUBLIC LAW %Library.String 164 PUBLIC_LAW FileMan Field Label: 'RACE' FileMan Field Number: '.06' This field is no longer being populated and the values that are on file were collected prior to installation of patch DG*5.3*415. VALIP.prosthetic.fm2cw.RACE10 11 RACE NAME This field contains the name of a race as selectable during enter/edit of patient data information. These entries are distributed by the MAS module and entry or edit of any data elements contained in this file could have negative impacts on the performance of the MAS or other DHCP modules.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RACE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RACE_NAME 1 FileMan Field Label: 'RADIATION EXPOSURE INDICATED?' FileMan Field Number: '.32103' WERE YOU EXPOSED TO RADIATION Enter 'Y' if the veteran was exposed to ionizing radiation: 2) Nagasaki/Hiroshima - Veteran was exposed to ionizing radiation as a POW or while serving in Hiroshima and/or Nagasaki, Japan from August 6, 1945 through July 1, 1946. 3) Atmospheric Nuclear Testing - exposure occurred at an atmospheric nuclear device test site (e.g. the Pacific Islands, NM or NV). 4) H/N and Atmospheric Testing - exposure occurred as a POW in Hiroshima or Nagasaki AND at an atmospheric nuclear device test site. 5) Underground Nuclear Testing - exposure occurred while at Longshot, Milrow, or Cannikin underground nuclear tests at Amchitka Island, AK prior to January 1, 1974. 6) Exposure at Nuclear Facility - exposure occurred while at Department of Energy plants at Paducah, KY, Portsmouth, OH or the K25 area at Oak Ridge, TN for at least 250 days before February 1, 1992. 7) Other - a method that does not fit any of the other categories Only Veterans exposed by methods #2, 3 or 4 are eligible for copayment exemption or enrollment in priority 6 based on their IR exposure. Enter 'N' if not exposed or 'U' if unknown. Once the record has been verified in VES only VES users may enter/edit this field. %Library.EnumString 282 RADIATION_EXPOSURE_INDICATED FileMan Field Label: 'RADIATION EXPOSURE METHOD' FileMan Field Number: '.3212' This field represents the method by which the exposure to ionizing radiation occurred. 2) Hiroshima/Nagasaki - if the Veteran was exposed to ionizing radiation as a POW or while serving in Hiroshima and/or Nagasaki, Japan from August 6, 1945 through July 1, 1946. 3) Atmos Nuclr Testing - if exposure occurred at an atmospheric nuclear device test site (e.g. the Pacific Islands, NM or NV). 4) H/N and Atmos Testing - if exposure occurred as a POW in Hiroshima or Nagasaki AND at an atmospheric nuclear device test site. 5) Undergrd Nuclr Testing - if exposure occurred while at Longshot, Milrow, or Cannikin underground nuclear tests at Amchitka Island, AK prior to January 1, 1974. 6) Expos at Nuclr Facility - if exposure occurred while at Department of Energy plants at Paducah, KY, Portsmouth, OH or the K25 area at Oak Ridge, TN for at least 250 days before February 1, 1992. 7) Other - a method that does not fit any of the other categories. 8) Enewetak - if exposure occurred during cleanup of Enewetak Atoll, from January 1, 1977, through December 31, 1980. 9) Expos in Palomares B52 - if exposure occurred during cleanup of the Air Force B-52 bomber carrying nuclear weapons off the coast of Palomares, Spain, from January 17, 1966, through March 31, 1967. 10) Thule AFB B52 - if exposure occurred during the response to the fire onboard an Air Force B-52 bomber carrying nuclear weapons near Thule Air Force Base in Greenland from January 21, 1968, to September 25, 1968. Only Veterans exposed by methods #2, 3, 4, 8, 9, or 10 are eligible for copayment exemption or enrollment in priority 6 based on their Ionizing Radiation exposure. Only Veterans Health Administration Enrollment System users may enter/edit this field. %Library.EnumString 293 RADIATION_EXPOSURE_METHOD FileMan Field Label: 'RADIATION REGISTRATION DATE' FileMan Field Number: '.32111' For this veteran applicant who was exposed to ionizing radiation (WERE YOU EXPOSED TO RADIATION prompt must be answered YES) enter the date registered. Once the service record is verified only users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as ionizing radiation exposure is indicated. %Library.FilemanDate 290 RADIATION_REGISTRATION_DATE FileMan Field Label: 'RANK' FileMan Field Number: '11500.03' Enter the grade/rank of this operation desert shield patient. VALIP.prosthetic.fm2cw.FEDERALGRADESRANKS250021 590 RANK NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RANK_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RANK_NAME 1 FileMan Field Label: 'RATED INCOMPETENT?' FileMan Field Number: '.293' This field was originated for the use of AMIE (Automated Medical Information Exchange). One will receive from DVB the information on whether the patient was rated incompetent by the VA. This may differ from the date rated incompetent field in the patient file. %Library.EnumString 249 RATED_INCOMPETENT FileMan Field Label: '*REACTIONS' FileMan Field Number: '53' REACTIONS %Library.EnumString 524 REACTIONS FileMan Field Label: 'RECALLED TO ACTIVE DUTY' FileMan Field Number: '11500.02' Was this operation desert shield patient recalled to active duty? If so select from national guard or reserves. If not, answer no. %Library.EnumString 589 RECALLED_TO_ACTIVE_DUTY FileMan Field Label: 'RECEIVED VA CARE PREVIOUSLY?' FileMan Field Number: '1010.15' HAVE YOU PREVIOUSLY RECEIVED CARE IN A VA FACILITY Enter 'Y' if this veteran has previously received care in another VA facility, otherwise enter 'N'. %Library.EnumString 556 RECEIVED_VA_CARE_PREVIOUSLY %Library.EnumString 412 RECEIVING_AA_BENEFITS FileMan Field Label: 'RECEIVING A VA PENSION?' FileMan Field Number: '.36235' For this veteran applicant enter 'Y' if s/he is in receipt of a pension from the Dept of Veterans Affairs, 'N' if not, or 'U' if unknown. Answering "yes" will prompt you to enter a Pension Award Effective Date and Pension Award Reason. Once monetary benefits have been verified only users holding the designated security key may enter/edit this field. %Library.EnumString 419 RECEIVING_A_VA_PENSION FileMan Field Label: 'RECEIVING HOUSEBOUND BENEFITS?' FileMan Field Number: '.36215' IN RECEIPT OF HB BENEFITS? For this veteran applicant enter 'Y' if s/he is housebound, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 415 RECEIVING_HOUSEBOUND_BENEFITS FileMan Field Label: 'RECEIVING MILITARY RETIREMENT?' FileMan Field Number: '.36255' For this veteran applicant enter 'Y' if s/he receives a military retirement, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 422 RECEIVING_MILITARY_RETIREMENT FileMan Field Label: '*RECEIVING PENSION' FileMan Field Number: '1010.3' RECEIVING PENSION %Library.EnumString 574 RECEIVING_PENSION FileMan Field Label: 'RECEIVING SOCIAL SECURITY?' FileMan Field Number: '.36225' IN RECEIPT OF SOCIAL SECURITY? For this veteran applicant enter 'Y' is s/he is in receipt of social security benefits, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 417 RECEIVING_SOCIAL_SECURITY FileMan Field Label: 'RECEIVING SUP. SECURITY (SSI)?' FileMan Field Number: '.36275' IN RECEIPT OF SSI? This field contains a yes or no reponse indicating whether this patient receives supplemental social security insurance. This field is being *'d for deletion and will be removed in a future release of MAS. This data is no longer updated by the MAS package. %Library.EnumString 426 RECEIVING_SUP__SECURITY_SSI FileMan Field Label: 'RECEIVING VA DISABILITY?' FileMan Field Number: '.3025' For this veteran applicant enter 'Y' if s/he is in receipt of a disability payment, 'N' if not, or 'U' if unknown. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 255 RECEIVING_VA_DISABILITY FileMan Field Label: 'RELATIONSHIP (CIVIL)' FileMan Field Number: '.2923' If this patient has been ruled incompetant to handle his financial funds, and someone else is responsible for handling the funds, enter the relationship of that person to the patient. %Library.String 242 RELATIONSHIP_CIVIL FileMan Field Label: 'RELATIONSHIP (VA)' FileMan Field Number: '.2913' Enter the relationship to the patient of the VA representative responsible for handling this patient's funds. %Library.String 232 RELATIONSHIP_VA FileMan Field Label: 'RELIGIOUS PREFERENCE' FileMan Field Number: '.08' RELIGION Select from the available listing the religious preference of this applicant. VALIP.prosthetic.fm2cw.RELIGION13 13 RELIGIOUS_PREFERENCE NAME This field contains the name of the religion as it will appear to users at the time of selection in the registration module. This name will appear in various reports and options throughout DHCP. This field should not be altered.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RELIGIOUS_PREFERENCE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RELIGIOUS_PREFERENCE_NAME 1 FileMan Field Label: 'REMARKS' FileMan Field Number: '.091' If so desired, you may enter a short remark about this applicant between 3-60 characters. The remark entered should be significant and tact should be exercised since this field is viewable to virtually all other users who have the ability to 'call up' a patient for any purpose. %Library.String 22 REMARKS FileMan Field Label: '*RESERVED .9 - SLC' FileMan Field Number: '.91' %Library.String 488 RESERVED__9__SLC FileMan Field Label: 'RESIDENCE NUMBER CHANGE DT/TM' FileMan Field Number: '.1321' This field will contain the date and time of the last Residence phone number update. %Library.FilemanTimeStamp 118 RESIDENCE_NUMBER_CHANGE_DTTM FileMan Field Label: 'RESIDENCE NUMBER CHANGE SITE' FileMan Field Number: '.1323' This field will hold the site that last changed this patient's Residence phone number. This field is only populated when the Residence Number Change Source is listed as VAMC. VALIP.prosthetic.fm2cw.INSTITUTION4 120 RESIDENCE_NUMBER_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RESIDENCE_NUMBER_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESIDENCE_NUMBER_CHANGE_SITE_NAME 1 FileMan Field Label: 'RESIDENCE NUMBER CHANGE SOURCE' FileMan Field Number: '.1322' This field will hold the source of the last Residence phone number change. %Library.EnumString 119 RESIDENCE_NUMBER_CHANGE_SOURCE FileMan Field Label: 'RESIDENCE NUMBER CHANGE USER' FileMan Field Number: '.1324' This field contains the user who changed this patient's residential phone number. It is automatically set when the residential phone number is entered or edited. VALIP.prosthetic.fm2cw.NEWPERSON200 121 RESIDENCE_NUMBER_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RESIDENCE_NUMBER_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESIDENCE_NUMBER_CHANGE_USER_NAME 1 FileMan Field Label: 'RESIDENTIAL ADDRESS [LINE 1]' FileMan Field Number: '.1151' This is the first line of this applicant's residential address %Library.String 49 RESIDENTIAL_ADDRESS_LINE_1 FileMan Field Label: 'RESIDENTIAL ADDRESS [LINE 2]' FileMan Field Number: '.1152' This is the second line of this applicant's residential address [3-30 characters] if the space provided in 'residential address [Line 1]' was not sufficient. %Library.String 50 RESIDENTIAL_ADDRESS_LINE_2 FileMan Field Label: 'RESIDENTIAL ADDRESS [LINE 3]' FileMan Field Number: '.1153' This is the third line of this applicant's residential address [3-30 characters] if the space provided in 'residential address [Line 1]' and 'residential address [Line 2]' was not sufficient. %Library.String 51 RESIDENTIAL_ADDRESS_LINE_3 FileMan Field Label: 'RESIDENTIAL ADDR CASS IND' FileMan Field Number: '.1159' The Residential Addr CASS Indicator is used to determine whether the residential address has been certified by CASS. %Library.EnumString 63 RESIDENTIAL_ADDR_CASS_IND FileMan Field Label: 'RESIDENTIAL ADDR CHANGE DT/TM' FileMan Field Number: '.1158' This field will hold the date and time of the last Residential Address update. %Library.FilemanTimeStamp 59 RESIDENTIAL_ADDR_CHANGE_DTTM FileMan Field Label: 'RESIDENTIAL ADDR CHANGE SITE' FileMan Field Number: '.11581' This field will hold the Site that last changed this patient's residential address. VALIP.prosthetic.fm2cw.INSTITUTION4 60 RESIDENTIAL_ADDR_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RESIDENTIAL_ADDR_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESIDENTIAL_ADDR_CHANGE_SITE_NAME 1 FileMan Field Label: 'RESIDENTIAL ADDR CHANGE SOURCE' FileMan Field Number: '.11582' This field will hold the source of the last Residential Address change. %Library.EnumString 61 RESIDENTIAL_ADDR_CHANGE_SOURCE FileMan Field Label: 'RESIDENTIAL ADDR CHANGE USER' FileMan Field Number: '.11583' This field contains the user who changed this patient's residential address. It is automatically set when the residential address is entered or edited. VALIP.prosthetic.fm2cw.NEWPERSON200 62 RESIDENTIAL_ADDR_CHANGE_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RESIDENTIAL_ADDR_CHANGE_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESIDENTIAL_ADDR_CHANGE_USER_NAME 1 FileMan Field Label: 'RESIDENTIAL CITY' FileMan Field Number: '.1154' This is the city in which this applicant resides %Library.String 52 RESIDENTIAL_CITY FileMan Field Label: 'RESIDENTIAL COUNTRY' FileMan Field Number: '.11573' This is the country where the patient's residential address is located. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 58 RESIDENTIAL_COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RESIDENTIAL_COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 RESIDENTIAL_COUNTRY_CODE 1 FileMan Field Label: 'RESIDENTIAL COUNTY' FileMan Field Number: '.1157' If a state of residence is entered select from the available listing the county in which this applicant resides. If no state (or a non-state) is entered no selection is possible. %Library.Numeric 55 RESIDENTIAL_COUNTY FileMan Field Label: 'RESIDENTIAL POSTAL CODE' FileMan Field Number: '.11572' This is the Postal Code for a patient which has a foreign address. %Library.String 57 RESIDENTIAL_POSTAL_CODE FileMan Field Label: 'RESIDENTIAL PROVINCE' FileMan Field Number: '.11571' This is the Province for a foreign residential address %Library.String 56 RESIDENTIAL_PROVINCE FileMan Field Label: 'RESIDENTIAL STATE' FileMan Field Number: '.1155' This is the state in which this applicant resides VALIP.prosthetic.fm2cw.STATE5 53 RESIDENTIAL_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {RESIDENTIAL_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESIDENTIAL_STATE_NAME 1 FileMan Field Label: 'RESIDENTIAL ZIP+4' FileMan Field Number: '.1156' This is the zip code for the city in which this applicant resides %Library.String 54 RESIDENTIAL_ZIP4 FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '.394' The date that a review to determine Catastrophic Disability was made. This review may be a medical record review or physical exam review. %Library.FilemanDate 453 REVIEW_DATE FileMan Field Label: 'ROOM-BED' FileMan Field Number: '.101' If desired, for this inpatient, enter the room and bed indicator to which s/he is assigned in 'ROOM-BED' format. %Library.String 32 ROOMBED FileMan Field Label: 'SCORE CALCULATION DATE' FileMan Field Number: '991.07' This is the last date that the CMOR ACTIVITY SCORE was calculated at this site. %Library.FilemanDate 547 SCORE_CALCULATION_DATE FileMan Field Label: 'SC AWARD DATE' FileMan Field Number: '.3012' DATE AWARDED SERVICE CONNECTION This field contains the effective date of service connection, based on the VBA decision. This can be obtained either through HINQ or the award letter. %Library.FilemanDate 251 SC_AWARD_DATE FileMan Field Label: 'SECONDARY NOK CHANGE DATE/TIME' FileMan Field Number: '.211012' This field will hold the date and time of the last Secondary Next of Kin Update. Any change to the following Secondary Next of Kin fields will trigger an update: K2-Name Of Secondary NOK, K2-Relationship To Patient, K2-Street Address [Line 1], K2-Street Address [Line 2], K2-Street Address [Line 3], K2-City, K2-State, K2-Zip Code, K2-Phone Number, K2-Address Same As Patient's? and K2-Work Phone Number %Library.FilemanTimeStamp 179 SECONDARY_NOK_CHANGE_DATETIME FileMan Field Label: 'SELF IDENTIFIED GENDER' FileMan Field Number: '.024' This SELF IDENTIFIED GENDER value indicates the patient's view of their gender identity, if they choose to provide it. %Library.EnumString 5 SELF_IDENTIFIED_GENDER FileMan Field Label: 'SERVICE BRANCH [LAST]' FileMan Field Number: '.325' BRANCH OF SERVICE, LAST For this veteran applicant select from the available listing the branch of service served in during his/her most recent episode of military service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. VALIP.prosthetic.fm2cw.BRANCHOFSERVICE23 325 SERVICE_BRANCH_LAST NAME This field contains that NAME of the Branch of Service. It should not be altered or deleted unless done through an upgrade of an MAS package installation. |]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SERVICE_BRANCH_LAST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_BRANCH_LAST_NAME 1 FileMan Field Label: 'SERVICE BRANCH [NNTL]' FileMan Field Number: '.3296' BRANCH OF SERVICE, NNTL For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select from the available listing the service branch served in during his/her third most recent episode of service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than two episodes of military service are indicated. VALIP.prosthetic.fm2cw.BRANCHOFSERVICE23 340 SERVICE_BRANCH_NNTL NAME This field contains that NAME of the Branch of Service. It should not be altered or deleted unless done through an upgrade of an MAS package installation. |]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SERVICE_BRANCH_NNTL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_BRANCH_NNTL_NAME 1 FileMan Field Label: 'SERVICE BRANCH [NTL]' FileMan Field Number: '.3291' BRANCH OF SERVICE, NTL For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) select from the available listing the branch of service s/he served in during his/her next to last episode of military service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than one episode of military service is indicated. VALIP.prosthetic.fm2cw.BRANCHOFSERVICE23 331 SERVICE_BRANCH_NTL NAME This field contains that NAME of the Branch of Service. It should not be altered or deleted unless done through an upgrade of an MAS package installation. |]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SERVICE_BRANCH_NTL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_BRANCH_NTL_NAME 1 FileMan Field Label: 'SERVICE COMPONENT [LAST]' FileMan Field Number: '.32911' For this veteran applicant enter the military service component for his/her most recent episode of military service. Once the service record has been verified only those users who hold the designated security key may enter/edit this field. NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE. %Library.EnumString 332 SERVICE_COMPONENT_LAST FileMan Field Label: 'SERVICE COMPONENT [NNTL]' FileMan Field Number: '.32913' For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the military service component for the third most recent episode of service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than two episodes of military service are indicated. NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE. %Library.EnumString 334 SERVICE_COMPONENT_NNTL FileMan Field Label: 'SERVICE COMPONENT [NTL]' FileMan Field Number: '.32912' For this veteran applicant who has at least two episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the military service component for the next to last episode of service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than two episodes of military service are indicated. NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE. %Library.EnumString 333 SERVICE_COMPONENT_NTL FileMan Field Label: 'SERVICE CONNECTED?' FileMan Field Number: '.301' SC APPLICANT Enter 'Y' if this applicant is service connected, 'N' if not. Applicants identified as being non-veterans cannot be entered as service connected. Once eligibility has been verified only users holding the designated security key may enter/edit this field. %Library.EnumString 1 250 SERVICE_CONNECTED FileMan Field Label: 'SERVICE CONNECTED PERCENTAGE' FileMan Field Number: '.302' If this applicant is service connected (SERVICE CONNECTED prompt must be answered YES) enter the service connected percentage [a number between 0-100]. Once eligibility has been verified only users who hold the designated security key may enter/edit this field. Field may not be deleted as long as service connection is indicated. %Library.Numeric 254 SERVICE_CONNECTED_PERCENTAGE FileMan Field Label: 'SERVICE DENTAL INJURY?' FileMan Field Number: '.368' DENTAL INJURY IN SERVICE For this veteran applicant enter 'Y' if a dental injury was incurred while serving in the U.S. Armed Forces, or 'N' if not. Once the service record is verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 433 SERVICE_DENTAL_INJURY FileMan Field Label: 'SERVICE DISCHARGE TYPE [LAST]' FileMan Field Number: '.324' DISCHARGE TYPE-SERVICE [LAST] For this veteran applicant select from the available listing the discharge type which s/he received for his/her most recent episode of military service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. VALIP.prosthetic.fm2cw.TYPEOFDISCHARGE25 324 SERVICE_DISCHARGE_TYPE_LAST NAME This field contains the name of all allowable military discharge types as determined by VACO. This information is maintained by the MAS software package through frequent releases and should not be edited at the site level.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SERVICE_DISCHARGE_TYPE_LAST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_DISCHARGE_TYPE_LAST_NAME 1 FileMan Field Label: 'SERVICE DISCHARGE TYPE [NNTL]' FileMan Field Number: '.3295' DISCHARGE TYPE-SERVICE [NNTL] For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select from the available listing the discharge type received from the third most recent episode of military service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than two episodes of military service are indicated. VALIP.prosthetic.fm2cw.TYPEOFDISCHARGE25 339 SERVICE_DISCHARGE_TYPE_NNTL NAME This field contains the name of all allowable military discharge types as determined by VACO. This information is maintained by the MAS software package through frequent releases and should not be edited at the site level.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SERVICE_DISCHARGE_TYPE_NNTL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_DISCHARGE_TYPE_NNTL_NAME 1 FileMan Field Label: 'SERVICE DISCHARGE TYPE [NTL]' FileMan Field Number: '.329' DISCHARGE TYPE-SERVICE [NTL] For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) select from the available listing the type of discharge received from his/her next to last episode of military service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than one episode of military service is indicated. VALIP.prosthetic.fm2cw.TYPEOFDISCHARGE25 330 SERVICE_DISCHARGE_TYPE_NTL NAME This field contains the name of all allowable military discharge types as determined by VACO. This information is maintained by the MAS software package through frequent releases and should not be edited at the site level.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SERVICE_DISCHARGE_TYPE_NTL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_DISCHARGE_TYPE_NTL_NAME 1 FileMan Field Label: 'SERVICE ENTRY DATE [LAST]' FileMan Field Number: '.326' ENTRY DATE-SERVICE [LAST] For this veteran applicant enter the date s/he commenced his/her most recent episode of military service. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their first day of active duty for the episode. Once the service record is verified only those users who hold the designated security key may enter/edit this field. %Library.FilemanDate 326 SERVICE_ENTRY_DATE_LAST FileMan Field Label: 'SERVICE ENTRY DATE [NNTL]' FileMan Field Number: '.3297' ENTRY DATE-SERVICE [NNTL] For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the date on which the third most recent episode of service commenced. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their first day of active duty for the episode. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than two episodes of military service are indicated. %Library.FilemanDate 341 SERVICE_ENTRY_DATE_NNTL FileMan Field Label: 'SERVICE ENTRY DATE [NTL]' FileMan Field Number: '.3292' ENTRY DATE-SERVICE [NTL] For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) enter the date on which the next to last episode of service commenced. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their first day of active duty for the episode. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than one episode of military service is indicated. %Library.FilemanDate 335 SERVICE_ENTRY_DATE_NTL FileMan Field Label: 'SERVICE NUMBER [LAST]' FileMan Field Number: '.328' NUMBER-SERVICE [LAST] For this veteran applicant enter the service number assigned during his/her most recent episode of military service as either 1-15 characters or enter 'SS' if the social security number and service number are the same. Once the service record has been verified only those users who hold the designated security key may enter/edit this field. %Library.String 328 SERVICE_NUMBER_LAST FileMan Field Label: 'SERVICE NUMBER [NNTL]' FileMan Field Number: '.3299' NUMBER-SERVICE [NNTL] For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the service number assigned for the third most recent episode of service [1-15 characters]. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than two episodes of military service are indicated. %Library.String 343 SERVICE_NUMBER_NNTL FileMan Field Label: 'SERVICE NUMBER [NTL]' FileMan Field Number: '.3294' NUMBER-SERVICE [NTL] For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) enter the service number assigned to that next to last episode of service [1-15 characters]. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than one episode of military service is indicated. %Library.String 337 SERVICE_NUMBER_NTL FileMan Field Label: 'SERVICE SECOND EPISODE?' FileMan Field Number: '.3285' SECOND EPISODE OF SERVICE? For this veteran applicant enter 'Y' if s/he has more than one episode of military service, or 'N' if not. Once the service record is verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 329 SERVICE_SECOND_EPISODE FileMan Field Label: 'SERVICE SEPARATION DATE [LAST]' FileMan Field Number: '.327' SEPARATION DATE-SERVICE [LAST] For this veteran applicant enter the date s/he ended his/her most recent episode of military service. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their last day of active duty for this episode. Once the service record is verified only those users who hold the designated security key may enter/edit this field. %Library.FilemanDate 327 SERVICE_SEPARATION_DATE_LAST FileMan Field Label: 'SERVICE SEPARATION DATE [NNTL]' FileMan Field Number: '.3298' SEPARATION DATE-SERVICE [NNTL] For this veteran applicant who has at least three episodes of military service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter the date on which the third most recent episode of service ended. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their last day of active duty for this episode. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than two episodes of military service are indicated. %Library.FilemanDate 342 SERVICE_SEPARATION_DATE_NNTL FileMan Field Label: 'SERVICE SEPARATION DATE [NTL]' FileMan Field Number: '.3293' SEPARATION DATE-SERVICE [NTL] For this veteran applicant who has at least two episodes of military service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES) enter the date on which the next to last episode of service ended. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their last day of active duty for this episode. Once the service record is verified only those users who hold the designated security key may enter/edit this field. This field cannot be deleted as long as more than one episode of military service is indicated. %Library.FilemanDate 336 SERVICE_SEPARATION_DATE_NTL FileMan Field Label: 'SERVICE TEETH EXTRACTED?' FileMan Field Number: '.369' TEETH EXTRACTED IN SERVICE For this veteran applicant enter 'Y' if teeth were extracted while serving in the U.S. Armed Forces, or 'N' if not. Once the service record is verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 434 SERVICE_TEETH_EXTRACTED FileMan Field Label: 'SERVICE THIRD EPISODE?' FileMan Field Number: '.32945' THIRD EPISODE OF SERVICE? Enter 'Y' if this veteran applicant has at least three episodes of military service, or 'N' if not. The ANY OTHER PERIODS OF SERVICE prompt must be answered YES in order to enter a third episode of military service. Once the service record is verified only those users who hold the designated security key may enter/edit this field. %Library.EnumString 338 SERVICE_THIRD_EPISODE FileMan Field Label: 'SERVICE VERIFICATION DATE' FileMan Field Number: '.322' VERIFICATION DATE-SERVICE Once the service record has been verified enter the date of verification. All service record data will become uneditable to any user who does not hold the designated security key once the service record is verified. Only users who hold the designated security key may enter/edit this field. %Library.FilemanDate 301 SERVICE_VERIFICATION_DATE FileMan Field Label: 'SEX' FileMan Field Number: '.02' MALE/FEMALE Enter 'M' if this applicant is a male, or 'F' if female. %Library.EnumString 1 4 SEX FileMan Field Label: 'SEXUAL ORIENTATION DESCRIPTION' FileMan Field Number: '.0251' The SEXUAL ORIENTATION DESCRIPTION field defines the 'Other' specified Sexual Orientation identity of the patient in relation to the gender to which they associate with. %Library.String 6 SEXUAL_ORIENTATION_DESCRIPTION FileMan Field Label: '*SIGNIFICANT OTHER #2' FileMan Field Number: '.2301' SIGNIFICANT OTHER #2 %Library.String 210 SIGNIFICANT_OTHER_2 FileMan Field Label: '*SMOKER' FileMan Field Number: '57.3' SMOKER %Library.EnumString 527 SMOKER FileMan Field Label: 'SOCIAL SECURITY NUMBER' FileMan Field Number: '.09' SSN Answer with the individual's social security number. Answer must be 9 numbers in length. The SSN will be sent to the SSA for verification. This will be displayed next to the SSN. Once an SSN has received a status of Verified, it is locked from user updating and a "VERIFIED" will be displayed by the SSN field. Only the Identity Management Data QUality Team are able to change a beneficiary's (veteran/non veteran) SSN. If an Invalid per SSA status is received for the SSN, then an "INVALID" will appear next to the invalid SSN of the individual. Facilities should make every effort to obtain the accurate SSN from the individual for any invalid or pseudo SSN entry. If a valid SSN is not known, then a "P" will be entered at the SSN prompt for the system to automatically assign a Pseudo-SSN. If a Pseudo SSN is entered, a Reason for entering it will be required. %Library.String 1 17 SOCIAL_SECURITY_NUMBER FileMan Field Label: 'SOMALIA FROM DATE' FileMan Field Number: '.322017' If this patient served in Somalia (SOMALIA SERVICE INDICATED? is answered YES), enter the date this patient's service in Somalia began. This date must be on or after September 28, 1992. %Library.FilemanDate 309 SOMALIA_FROM_DATE FileMan Field Label: 'SOMALIA SERVICE INDICATED?' FileMan Field Number: '.322016' If this patient served in the Somalia, enter yes here. If the patient did not serve in Somalia, enter no. Enter unknown if this information could not be obtained from the patient. %Library.EnumString 308 SOMALIA_SERVICE_INDICATED FileMan Field Label: 'SOMALIA TO DATE' FileMan Field Number: '.322018' This is the last date of service in Somalia. This date must be on or after September 28, 1992. %Library.FilemanDate 310 SOMALIA_TO_DATE FileMan Field Label: 'SOURCE DESIGNATION' FileMan Field Number: '27.03' Source designation contains the value of the place the Preferred Facility field (#27.02) was assigned for the patient. Source designation is automatically assigned by the system. The VistA system can only assign a Preferred Facility if the current Source Designation is VistA or Primary Care Provider (PCP) Inactive. %Library.EnumString 515 SOURCE_DESIGNATION FileMan Field Label: 'SOURCE OF NOTIFICATION' FileMan Field Number: '.353' SOURCE OF NOTIFICATION represents who/what notified the VA of the patient's DATE OF DEATH. VALIP.prosthetic.fm2cw.SOURCEOFNOTIFICATIONS4776 393 SOURCE_OF_NOTIFICATION SOURCE OF NOTIFICATION The SOURCE OF NOTIFICATION field identifies the entity who first notified the VA of the patient's death.]]> %Library.String 1 SOURCE_OF_NOTIFICATION into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SOURCE_OF_NOTIFICATION_SOURCE_OF_NOTIFICATION}=$select(SQLCODE=0:val,1:"")]]> 1 SOURCE_OF_NOTIFICATION_SOURCE_OF_NOTIFICATION 1 FileMan Field Label: 'SOUTHWEST ASIA CONDITIONS?' FileMan Field Number: '.322013' Enter "Y" if veteran claims need for care of conditions related to service in SW Asia. Enter "N" if veteran did not serve in SW Asia or does not claim need for care of conditions related to service in SW Asia. Enter "U" when veteran served in SW Asia, but is unsure of whether conditions may be related to that service. SW Asia Theater of operations is defined as: Iraq, Kuwait, Saudi Arabia, the neutral zone between Iraq and Saudi Arabia, Bahrain, Qatar, the United Arab Emirates, Oman, the Gulf of Aden, the Gulf of Oman, the Persian Gulf, the Arabian Sea, the Red Sea, and the airspace above these locations. %Library.EnumString 305 SOUTHWEST_ASIA_CONDITIONS FileMan Field Label: 'SPINAL CORD INJURY' FileMan Field Number: '57.4' If this patient does not have a spinal cord injury, enter X for not applicable in this field. Otherwise, if the patient does have a spinal cord injury, choose from the other available choices the one %Library.EnumString 528 SPINAL_CORD_INJURY FileMan Field Label: 'SPOUSE'S EMPLOYER'S CITY' FileMan Field Number: '.255' If applicant is married and a spouse's employer name has been entered enter the spouse's employer city [2-20 characters], otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's name is on file. %Library.String 223 SPOUSES_EMPLOYERS_CITY FileMan Field Label: 'SPOUSE'S EMPLOYER'S STATE' FileMan Field Number: '.256' If applicant is married and a spouse's employer name has been entered select from the available listing the spouse's employer's state. This field may not be deleted as long as a spouse's employer's name is on file. VALIP.prosthetic.fm2cw.STATE5 224 SPOUSES_EMPLOYERS_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SPOUSES_EMPLOYERS_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SPOUSES_EMPLOYERS_STATE_NAME 1 FileMan Field Label: 'SPOUSE'S EMPLOYER NAME' FileMan Field Number: '.251' For this married applicant (marital status must be married) enter the name of his/her spouse's employer [3-20 characters]. %Library.String 216 SPOUSES_EMPLOYER_NAME FileMan Field Label: 'SPOUSE'S EMPLOYMENT STATUS' FileMan Field Number: '.2515' Choose from the available list the choice that most correctly indicates the current employment status for this patient's spouse. %Library.EnumString 218 SPOUSES_EMPLOYMENT_STATUS FileMan Field Label: 'SPOUSE'S EMP PHONE NUMBER' FileMan Field Number: '.258' If applicant is married and spouse's employer name has been entered enter the spouse's employer telephone number [4-20 characters], otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's name is on file. %Library.String 226 SPOUSES_EMP_PHONE_NUMBER FileMan Field Label: 'SPOUSE'S EMP STREET [LINE 1]' FileMan Field Number: '.252' If applicant is married and a spouse's employer name has been entered enter the first line of the spouse's employer's street address [3-35 characters, otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's name is on file. %Library.String 220 SPOUSES_EMP_STREET_LINE_1 FileMan Field Label: 'SPOUSE'S EMP STREET [LINE 2]' FileMan Field Number: '.253' If applicant is married and a spouse's employer name has been entered enter the second line of the spouse's employer's street address [3-35 characters, if necessary, otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's name is on file. %Library.String 221 SPOUSES_EMP_STREET_LINE_2 FileMan Field Label: 'SPOUSE'S EMP STREET [LINE 3]' FileMan Field Number: '.254' If applicant is married and a spouse's employer name has been entered enter the third line of the spouse's employer's street address [3-35 characters, if necessary, otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's name is on file. %Library.String 222 SPOUSES_EMP_STREET_LINE_3 FileMan Field Label: 'SPOUSE'S EMP ZIP+4' FileMan Field Number: '.2206' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). This is related to the spouse's employer's address. %Library.String 204 SPOUSES_EMP_ZIP4 FileMan Field Label: 'SPOUSE'S EMP ZIP CODE' FileMan Field Number: '.257' If applicant is married and spouse's employer name has been entered enter the spouse's employer zip code [5 numerics], otherwise nothing may be entered. This field may not be deleted as long as a spouse's employer's name is on file. %Library.String 225 SPOUSES_EMP_ZIP_CODE FileMan Field Label: 'SPOUSE'S OCCUPATION' FileMan Field Number: '.2514' If this patient's spouse is currently employed, enter the spouse's occupation here. Otherwise, leave this field blank. %Library.String 217 SPOUSES_OCCUPATION FileMan Field Label: 'SPOUSE'S RETIREMENT DATE' FileMan Field Number: '.2516' For this veteran applicant's spouse, enter the date s/he retired from her/his place of employment. %Library.FilemanDate 219 SPOUSES_RETIREMENT_DATE FileMan Field Label: 'SSN VERIFICATION STATUS' FileMan Field Number: '.0907' This field designates whether or not the SSN has been verified. This field will be received in the HL7 record. It is not editable by the user. Once the SSN is verified by the SSA, it is no longer editable. %Library.EnumString 21 SSN_VERIFICATION_STATUS FileMan Field Label: 'STATE' FileMan Field Number: '.115' From the available listing choose the state in which this applicant resides. VALIP.prosthetic.fm2cw.STATE5 48 STATE FileMan Field Label: 'STATE (CIVIL)' FileMan Field Number: '.2927' Enter the state in which the person responsible for handling this patient's funds resides. VALIP.prosthetic.fm2cw.STATE5 246 STATE_CIVIL NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {STATE_CIVIL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_CIVIL_NAME 1 NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_NAME 1 FileMan Field Label: 'STATE (VA)' FileMan Field Number: '.2917' Enter the state in which the person responsible for handling this patient's funds resides. VALIP.prosthetic.fm2cw.STATE5 236 STATE_VA NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {STATE_VA_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_VA_NAME 1 FileMan Field Label: 'STREET ADDRESS 1 (CIVIL)' FileMan Field Number: '.2924' Enter the first line of the street address of the person responsible for handling this patient's funds. %Library.String 243 STREET_ADDRESS_1_CIVIL FileMan Field Label: 'STREET ADDRESS 1 (VA)' FileMan Field Number: '.2914' Enter the first line of the street address of the VA representative responsible for handling this patient's funds. %Library.String 233 STREET_ADDRESS_1_VA FileMan Field Label: 'STREET ADDRESS 2 (CIVIL)' FileMan Field Number: '.2925' Enter the second line of the street address of the person responsible for handling this patient's funds. %Library.String 244 STREET_ADDRESS_2_CIVIL FileMan Field Label: 'STREET ADDRESS 2 (VA)' FileMan Field Number: '.2915' Enter the second line of the street address of the VA representative responsible for handling this patient's funds. %Library.String 234 STREET_ADDRESS_2_VA FileMan Field Label: 'STREET ADDRESS CASS IND' FileMan Field Number: '.1118' The Street Address CASS Indicator is used to determine whether the street address has been certified by CASS. %Library.EnumString 44 STREET_ADDRESS_CASS_IND FileMan Field Label: 'STREET ADDRESS [LINE 1]' FileMan Field Number: '.111' Enter the first line of this applicant's residence street address [3-35 characters]. %Library.String 42 STREET_ADDRESS_LINE_1 FileMan Field Label: 'STREET ADDRESS [LINE 2]' FileMan Field Number: '.112' Enter the second line of this applicant's residence street address [3-30 characters] if the space provided in 'street address' was not sufficient. %Library.String 45 STREET_ADDRESS_LINE_2 FileMan Field Label: 'STREET ADDRESS [LINE 3]' FileMan Field Number: '.113' Enter the third line of this applicant's residence street address [3-30 characters] if the space provided in 'street address' and 'street address 2' was not sufficient. %Library.String 46 STREET_ADDRESS_LINE_3 FileMan Field Label: 'SUBSCRIPTION CONTROL NUMBER' FileMan Field Number: '991.05' This field points to a list of subscribers to this patient's data. For example, see details of the MPI/PD messaging implementation. The subscriber list is specific to this patient. Do not change the subscription control number without remembering to update the current subscriber list in file 774 (SUBSCRIPTION CONTROL). Use only documented API calls to create a new subscription control number for a patient. VALIP.prosthetic.fm2cw.SUBSCRIPTIONCONTROL774 545 SUBSCRIPTION_CONTROL_NUMBER NUMBER A new entry in this file is created by making a call to $$ACT^HLSUB.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SUBSCRIPTION_CONTROL_NUMBER_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SUBSCRIPTION_CONTROL_NUMBER_NUMBER 1 Relationship for Sub-File/Multiple to file name ALIAS child VALIP.prosthetic.fm2cw.SUBALIAS201 children PATIENT2 1 SUB_ALIAS_2_01 Relationship for Sub-File/Multiple to file name APPOINTMENT child VALIP.prosthetic.fm2cw.SUBAPPOINTMENT298 children PATIENT2 1 SUB_APPOINTMENT_2_98 Relationship for Sub-File/Multiple to file name ARCHIVED DATA child VALIP.prosthetic.fm2cw.SUBARCHIVEDDATA212 children PATIENT2 1 SUB_ARCHIVED_DATA_2_12 Relationship for Sub-File/Multiple to file name CD DESCRIPTORS child VALIP.prosthetic.fm2cw.SUBCDDESCRIPTORS2401 children PATIENT2 1 SUB_CD_DESCRIPTORS_2_401 Relationship for Sub-File/Multiple to file name CD HISTORY DATE child VALIP.prosthetic.fm2cw.SUBCDHISTORYDATE2399 children PATIENT2 1 SUB_CD_HISTORY_DATE_2_399 Relationship for Sub-File/Multiple to file name CD STATUS CONDITIONS child VALIP.prosthetic.fm2cw.SUBCDSTATUSCONDITIONS2398 children PATIENT2 1 SUB_CD_STATUS_CONDITIONS_2_398 Relationship for Sub-File/Multiple to file name CD STATUS DIAGNOSES child VALIP.prosthetic.fm2cw.SUBCDSTATUSDIAGNOSES2396 children PATIENT2 1 SUB_CD_STATUS_DIAGNOSES_2_396 Relationship for Sub-File/Multiple to file name CD STATUS PROCEDURES child VALIP.prosthetic.fm2cw.SUBCDSTATUSPROCEDURES2397 children PATIENT2 1 SUB_CD_STATUS_PROCEDURES_2_397 Relationship for Sub-File/Multiple to file name CMOR HISTORY child VALIP.prosthetic.fm2cw.SUBCMORHISTORY20993 children PATIENT2 1 SUB_CMOR_HISTORY_2_0993 Relationship for Sub-File/Multiple to file name COMMUNITY CARE PROGRAM child VALIP.prosthetic.fm2cw.SUBCOMMUNITYCAREPROGRAM2191 children PATIENT2 1 SUB_COMMUNITY_CARE_PROGRAM_2_191 Relationship for Sub-File/Multiple to file name CONFIDENTIAL ADDRESS CATEGORY child VALIP.prosthetic.fm2cw.SUBCONFIDENTIALADDRESSCATEGORY2141 children PATIENT2 1 SUB_CONFIDENTIAL_ADDRESS_CATEGORY_2_141 Relationship for Sub-File/Multiple to file name CURRENT HEALTH BENEFIT PLAN child VALIP.prosthetic.fm2cw.SUBCURRENTHEALTHBENEFITPLAN22511 children PATIENT2 1 SUB_CURRENT_HEALTH_BENEFIT_PLAN_2_2511 Relationship for Sub-File/Multiple to file name DATE FOR STOP CODE(S) child VALIP.prosthetic.fm2cw.SUBDATEFORSTOPCODES203 children PATIENT2 1 SUB_DATE_FOR_STOP_CODES_2_03 Relationship for Sub-File/Multiple to file name DATE OF DENTAL TREATMENT child VALIP.prosthetic.fm2cw.SUBDATEOFDENTALTREATMENT211 children PATIENT2 1 SUB_DATE_OF_DENTAL_TREATMENT_2_11 Relationship for Sub-File/Multiple to file name DISPOSITION LOG-IN DATE/TIME child VALIP.prosthetic.fm2cw.SUBDISPOSITIONLOGINDATETIME2101 children PATIENT2 1 SUB_DISPOSITION_LOGIN_DATETIME_2_101 Relationship for Sub-File/Multiple to file name ENROLLMENT CLINIC child VALIP.prosthetic.fm2cw.SUBENROLLMENTCLINIC2001 children PATIENT2 1 SUB_ENROLLMENT_CLINIC_2_001 Relationship for Sub-File/Multiple to file name ETHNICITY INFORMATION child VALIP.prosthetic.fm2cw.SUBETHNICITYINFORMATION206 children PATIENT2 1 SUB_ETHNICITY_INFORMATION_2_06 Relationship for Sub-File/Multiple to file name FULL ICN HISTORY child VALIP.prosthetic.fm2cw.SUBFULLICNHISTORY20991 children PATIENT2 1 SUB_FULL_ICN_HISTORY_2_0991 Relationship for Sub-File/Multiple to file name HISTORY HEALTH BENEFIT PLAN child VALIP.prosthetic.fm2cw.SUBHISTORYHEALTHBENEFITPLAN22512 children PATIENT2 1 SUB_HISTORY_HEALTH_BENEFIT_PLAN_2_2512 Relationship for Sub-File/Multiple to file name ICN HISTORY child VALIP.prosthetic.fm2cw.SUBICNHISTORY20992 children PATIENT2 1 SUB_ICN_HISTORY_2_0992 Relationship for Sub-File/Multiple to file name INSURANCE TYPE child VALIP.prosthetic.fm2cw.SUBINSURANCETYPE2312 children PATIENT2 1 SUB_INSURANCE_TYPE_2_312 Relationship for Sub-File/Multiple to file name LANGUAGE DATE/TIME child VALIP.prosthetic.fm2cw.SUBLANGUAGEDATETIME207 children PATIENT2 1 SUB_LANGUAGE_DATETIME_2_07 Relationship for Sub-File/Multiple to file name MHV AUTH ACTIONS child VALIP.prosthetic.fm2cw.SUBMHVAUTHACTIONS20537042 children PATIENT2 1 SUB_MHV_AUTH_ACTIONS_2_0537042 Relationship for Sub-File/Multiple to file name MHV MSG ACTIONS child VALIP.prosthetic.fm2cw.SUBMHVMSGACTIONS20537041 children PATIENT2 1 SUB_MHV_MSG_ACTIONS_2_0537041 Relationship for Sub-File/Multiple to file name MHV SOCIALIZATION child VALIP.prosthetic.fm2cw.SUBMHVSOCIALIZATION20537026 children PATIENT2 1 SUB_MHV_SOCIALIZATION_2_0537026 Relationship for Sub-File/Multiple to file name MILITARY SERVICE EPISODE child VALIP.prosthetic.fm2cw.SUBMILITARYSERVICEEPISODE23216 children PATIENT2 1 SUB_MILITARY_SERVICE_EPISODE_2_3216 Relationship for Sub-File/Multiple to file name PATIENT ELIGIBILITIES child VALIP.prosthetic.fm2cw.SUBPATIENTELIGIBILITIES20361 children PATIENT2 1 SUB_PATIENT_ELIGIBILITIES_2_0361 Relationship for Sub-File/Multiple to file name PH DATE/TIME UPDATED child VALIP.prosthetic.fm2cw.SUBPHDATETIMEUPDATED20534 children PATIENT2 1 SUB_PH_DATETIME_UPDATED_2_0534 Relationship for Sub-File/Multiple to file name *PRESCRIPTION PROFILE child VALIP.prosthetic.fm2cw.SUBPRESCRIPTIONPROFILE25 children PATIENT2 1 SUB_PRESCRIPTION_PROFILE_2_5 Relationship for Sub-File/Multiple to file name PRONOUN child VALIP.prosthetic.fm2cw.SUBPRONOUN22406 children PATIENT2 1 SUB_PRONOUN_2_2406 Relationship for Sub-File/Multiple to file name RACE INFORMATION child VALIP.prosthetic.fm2cw.SUBRACEINFORMATION202 children PATIENT2 1 SUB_RACE_INFORMATION_2_02 Relationship for Sub-File/Multiple to file name RATED DISABILITIES (VA) child VALIP.prosthetic.fm2cw.SUBRATEDDISABILITIESVA204 children PATIENT2 1 SUB_RATED_DISABILITIES_VA_2_04 Relationship for Sub-File/Multiple to file name RECORD FLAG child VALIP.prosthetic.fm2cw.SUBRECORDFLAG2648001 children PATIENT2 1 SUB_RECORD_FLAG_2_648001 Relationship for Sub-File/Multiple to file name *RECORD TRACKING child VALIP.prosthetic.fm2cw.SUBRECORDTRACKING208 children PATIENT2 1 SUB_RECORD_TRACKING_2_08 Relationship for Sub-File/Multiple to file name SERVICE CONNECTED CONDITIONS child VALIP.prosthetic.fm2cw.SUBSERVICECONNECTEDCONDITIONS205 children PATIENT2 1 SUB_SERVICE_CONNECTED_CONDITIONS_2_05 Relationship for Sub-File/Multiple to file name SERVICE [OEF OR OIF] child VALIP.prosthetic.fm2cw.SUBSERVICEOEFOROIF23215 children PATIENT2 1 SUB_SERVICE_OEF_OR_OIF_2_3215 Relationship for Sub-File/Multiple to file name SEXUAL ORIENTATION child VALIP.prosthetic.fm2cw.SUBSEXUALORIENTATION2025 children PATIENT2 1 SUB_SEXUAL_ORIENTATION_2_025 Relationship for Sub-File/Multiple to file name SPECIAL COUNSELING child VALIP.prosthetic.fm2cw.SUBSPECIALCOUNSELING20648022 children PATIENT2 1 SUB_SPECIAL_COUNSELING_2_0648022 FileMan Field Label: 'SUPPORTING DOCUMENT TYPE' FileMan Field Number: '.357' The Supporting Document Type selected from the available list identifies the current method of how the site was notified of a patient's death. VALIP.prosthetic.fm2cw.SUPPORTINGDOCUMENTATIONTYPES4775 396 SUPPORTING_DOCUMENT_TYPE SUPPORTING DOCUMENTATION TYPE The SUPPORTING DOCUMENTATION TYPE field identifies the document associated with a specific patient death event. Specifically how the patient's death was recorded.]]> %Library.String 1 SUPPORTING_DOCUMENTATION_TYPE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {SUPPORTING_DOCUMENT_TYPE_SUPPORTING_DOCUMENTATION_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 SUPPORTING_DOCUMENT_TYPE_SUPPORTING_DOCUMENTATION_TYPE 1 FileMan Field Label: 'SW ASIA COND EXAM DATE' FileMan Field Number: '.322015' This is the date on which an examination for exposure to Conditions related to service in SW Asia was performed on the patient. %Library.FilemanDate 307 SW_ASIA_COND_EXAM_DATE FileMan Field Label: 'SW ASIA COND REGISTRATION DATE' FileMan Field Number: '.322014' This is the date on which the patient registered for being exposed to Conditions related to service in SW Asia. This date must be after 8/1/1990. %Library.FilemanDate 306 SW_ASIA_COND_REGISTRATION_DATE FileMan Field Label: 'TEMPORARY ADDRESS ACTIVE?' FileMan Field Number: '.12105' WANT TO ENTER TEMP ADDR Enter 'Y' if you wish to enter a temporary address for this applicant at this time, or 'N' if not. A 'NO' response will cause the temporary address 'Start Date' and 'End Date' fields to be automatically deleted while all other temporary address data will remain on file for future use. %Library.EnumString 82 TEMPORARY_ADDRESS_ACTIVE FileMan Field Label: 'TEMPORARY ADDRESS CHANGE DT/TM' FileMan Field Number: '.12113' This field will hold the date and time of the last Temporary Address Update. %Library.FilemanTimeStamp 86 TEMPORARY_ADDRESS_CHANGE_DTTM FileMan Field Label: 'TEMPORARY ADDRESS CHANGE SITE' FileMan Field Number: '.12114' This field will hold the Site that last changed this patient's temporary address. VALIP.prosthetic.fm2cw.INSTITUTION4 87 TEMPORARY_ADDRESS_CHANGE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {TEMPORARY_ADDRESS_CHANGE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TEMPORARY_ADDRESS_CHANGE_SITE_NAME 1 FileMan Field Label: 'TEMPORARY ADDRESS COUNTRY' FileMan Field Number: '.1223' Enter the country where the patient's temporary address is located. If entering an Army/Air Force Post Office (APO) or a Fleet Post Office (FPO) address select United States as the country. VALIP.prosthetic.fm2cw.COUNTRYCODE779004 100 TEMPORARY_ADDRESS_COUNTRY CODE The three-character alpha identifying code. The alpha 3 code for the USA is "USA".]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {TEMPORARY_ADDRESS_COUNTRY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 TEMPORARY_ADDRESS_COUNTRY_CODE 1 FileMan Field Label: 'TEMPORARY ADDRESS COUNTY' FileMan Field Number: '.12111' If a state is entered for the temporary residence, enter the county in which that residence resides. If a state does not exist for the temporary address, a county can not be entered. %Library.Numeric 84 TEMPORARY_ADDRESS_COUNTY FileMan Field Label: 'TEMPORARY ADDRESS END DATE' FileMan Field Number: '.1218' END DATE OF TEMP ADDRESS If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date as of which the applicant will no longer be contacted at that temporary address, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. %Library.FilemanDate 95 TEMPORARY_ADDRESS_END_DATE FileMan Field Label: 'TEMPORARY ADDRESS POSTAL CODE' FileMan Field Number: '.1222' Enter with patient's postal code if the patient has provided one for his/her foreign address. The entry can be alphanumeric and up to 10 characters in length. %Library.String 99 TEMPORARY_ADDRESS_POSTAL_CODE FileMan Field Label: 'TEMPORARY ADDRESS PROVINCE' FileMan Field Number: '.1221' Enter a Province if the patient has provided one for his/her foreign address. The entry can be alphanumeric and up to 20 characters in length. %Library.String 98 TEMPORARY_ADDRESS_PROVINCE FileMan Field Label: 'TEMPORARY ADDRESS START DATE' FileMan Field Number: '.1217' START DATE OF TEMP ADDRESS If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date on which the applicant will commence being contacted at the temporary address indicated, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. %Library.FilemanDate 94 TEMPORARY_ADDRESS_START_DATE FileMan Field Label: 'TEMPORARY ADDR CASS IND' FileMan Field Number: '.12115' The Temporary Addr CASS Indicator is used to determine whether the temporary address has been certified by CASS. %Library.EnumString 88 TEMPORARY_ADDR_CASS_IND FileMan Field Label: 'TEMPORARY CITY' FileMan Field Number: '.1214' If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the city in which the temporary address lies [2-30 characters], otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. %Library.String 91 TEMPORARY_CITY FileMan Field Label: 'TEMPORARY ID NUMBER' FileMan Field Number: '991.08' Temporary Identification Number (TIN) The Department of Defense (DoD) Defense Eligibility Enrollment Reporting System (DEERS) uses a Temporary Identification Number for individuals (e.g., babies) who do not have or have not provided a Social Security Number (SSN) when the record is added to DEERS. It is used for military dependents only. This DoD TEMPORARY ID NUMBER will be used by the Master Veteran Index to support the linking of patient records across VA and DoD. %Library.String 548 TEMPORARY_ID_NUMBER FileMan Field Label: 'TEMPORARY PHONE NUMBER' FileMan Field Number: '.1219' If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the telephone number at which the applicant can be contacted [4-20 characters] during his/her absence from their residence, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. %Library.String 96 TEMPORARY_PHONE_NUMBER FileMan Field Label: 'TEMPORARY STATE' FileMan Field Number: '.1215' If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES select from the available listing the state in which the temporary address lies, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. VALIP.prosthetic.fm2cw.STATE5 92 TEMPORARY_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {TEMPORARY_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TEMPORARY_STATE_NAME 1 FileMan Field Label: 'TEMPORARY STREET [LINE 1]' FileMan Field Number: '.1211' If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the first line of the temporary street address for this applicant [2-30 characters] otherwise nothing may be entered. This field cannot be deleted as long as the need for a temporary address is indicated. %Library.String 83 TEMPORARY_STREET_LINE_1 FileMan Field Label: 'TEMPORARY STREET [LINE 2]' FileMan Field Number: '.1212' If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the second line of the temporary street address [2-30 characters], if necessary, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. %Library.String 89 TEMPORARY_STREET_LINE_2 FileMan Field Label: 'TEMPORARY STREET [LINE 3]' FileMan Field Number: '.1213' If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the third line of the temporary street address [2-30 characters], if necessary, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. %Library.String 90 TEMPORARY_STREET_LINE_3 FileMan Field Label: 'TEMPORARY ZIP+4' FileMan Field Number: '.12112' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). %Library.String 85 TEMPORARY_ZIP4 FileMan Field Label: 'TEMPORARY ZIP CODE' FileMan Field Number: '.1216' If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the zip code assigned to the temporary city [5 numerics], otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. %Library.String 93 TEMPORARY_ZIP_CODE FileMan Field Label: 'TERMINAL DIGIT OF SSN' FileMan Field Number: '.0901' This is a computed field which returns the terminal digit value of the patient's social security number. This value is computed to be the last 2 digits of the social security number concatenated with the sixth and seventh digits of the social security number concatenated with the forth and fifth pieces of the social security number concatenated with the first 3 digits of the social security number. %Library.String 1 18 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3) set {TERMINAL_DIGIT_OF_SSN}=X 1 TERMINAL_DIGIT_OF_SSN FileMan Field Label: 'TEST PATIENT INDICATOR' FileMan Field Number: '.6' This field is set by the 'ATP' cross reference on the Social Security Number field (.09) when an SSN containing five leading zeros is entered. %Library.EnumString 487 TEST_PATIENT_INDICATOR %Library.Numeric 430 TOTAL_ANNUAL_VA_CHECK_AMOUNT FileMan Field Label: '*TOTAL HOUSEHOLD INCOME' FileMan Field Number: '.36211' TOTAL HOUSEBOLD INCOME %Library.Numeric 414 TOTAL_HOUSEHOLD_INCOME FileMan Field Label: '*TOTAL VETERAN INCOME' FileMan Field Number: '.36201' TOTAL VETERAN INCOME %Library.Numeric 411 TOTAL_VETERAN_INCOME FileMan Field Label: 'TOXIC EXPOSURE RISK ACTIVITY' FileMan Field Number: '.32116' This field should be set to YES if the patient claims exposure to Toxic Exposure Risk Activity (TERA). The Toxic Exposure Risk Activity indicator will be entered and maintained by the VHA Enrollment System and shared with VistA via HL7 messaging. The field will not be editable in VistA and is only shared so that it may be displayed to a VistA user along with the patient's other Environmental Factors. %Library.String 292 TOXIC_EXPOSURE_RISK_ACTIVITY FileMan Field Label: 'TREATING SPECIALTY' FileMan Field Number: '.103' From the available listing choose the treating specialty to which this inpatient is currently assigned. VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 34 TREATING_SPECIALTY NAME Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {TREATING_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TREATING_SPECIALTY_NAME 1 FileMan Field Label: '*TWX SOURCE (RO)-INELIGIBLE' FileMan Field Number: '.1652' TWX SOURCE (RO)-INELIGIBLE %Library.EnumString 156 TWX_SOURCE_ROINELIGIBLE FileMan Field Label: '*TWX SOURCE (RPC)-INELIGIBLE' FileMan Field Number: '.1655' TWX SOURCE (RPC)-INELIGIBLE %Library.EnumString 159 TWX_SOURCE_RPCINELIGIBLE FileMan Field Label: 'TYPE' FileMan Field Number: '391' Enter the patient type for this patient. This is selectable from the distributed entries in the TYPE OF PATIENT file. The type selected should be the primary one selectable. For example, if the patient is both an NSC veteran and an employee, the patient type should be NSC VETERAN, not employee. This field is used by the registration screen processor to determine which screens will be editable for this patient. The selection of which screens can be viewed for which types of patients can be made through the 'Patient Type Update' option. VALIP.prosthetic.fm2cw.TYPEOFPATIENT391 1 536 TYPE NAME This field contains the names of the various types of patients seen at VA facilities. This file should not be added to or altered or it could affect daily operations of the MAS software.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_NAME 1 FileMan Field Label: 'TYPE OF OTHER RETIREMENT' FileMan Field Number: '.36285' For this veteran applicant choose from the available list the type of other retirement s/he is in receipt of, if any. Once monetary benefits have been verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 428 TYPE_OF_OTHER_RETIREMENT FileMan Field Label: 'UNEMPLOYABLE' FileMan Field Number: '.305' MONETARY BENEFITS CODE Is this patient rated unemployable by the VARO due to a service connected condition? %Library.EnumString 258 UNEMPLOYABLE FileMan Field Label: 'USER ENROLLEE SITE' FileMan Field Number: '.3618' This field contains the Site that determined the User Enrollee information for the Veteran. This field is populated by the system, no user input is required. VALIP.prosthetic.fm2cw.INSTITUTION4 409 USER_ENROLLEE_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {USER_ENROLLEE_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USER_ENROLLEE_SITE_NAME 1 FileMan Field Label: 'USER ENROLLEE VALID THROUGH' FileMan Field Number: '.3617' This field contains the Fiscal Year that the veteran's User Enrollee Status is valid through. This field is populated by the system, no user input is required. %Library.FilemanDate 408 USER_ENROLLEE_VALID_THROUGH SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 607 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VETERAN CATASTROPHICALLY DISABLED?' FileMan Field Number: '.39' This field states whether or not the patient is a veteran who has been determined to meet the criteria for CATASTROPHICALLY DISABLED. %Library.EnumString 449 VETERAN_CATASTROPHICALLY_DISABLED FileMan Field Label: 'VETERAN (Y/N)?' FileMan Field Number: '1901' Enter 'Y' if this applicant is over 17 years of age and is a veteran, 'N' if not. If applicant is under 17 years of age and is a veteran only those users holding the designated security may identify him/her as a veteran. Once eligibility is verified only those users who hold the designated security key may enter/edit this field. %Library.EnumString 1 581 VETERAN_YN FileMan Field Label: 'VIETNAM FROM DATE' FileMan Field Number: '.32104' For this veteran applicant who served in the Republic of Vietnam (DID YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which service in vietnam commenced [between February 28, 1961 and May 7, 1975]. Once the service record is verified only users who hold the designated security key may enter/edit this field. As long as Vietnam service is indicated this date may not be deleted. %Library.FilemanDate 283 VIETNAM_FROM_DATE FileMan Field Label: 'VIETNAM SERVICE INDICATED?' FileMan Field Number: '.32101' DID YOU SERVE IN VIET NAM For this veteran applicant enter 'Y' if s/he actually served in the Republic of Vietnam, 'N' if not, or 'U' if unknown. Once the service record has been verified only users who hold the designated security key may enter/edit this field. %Library.EnumString 280 VIETNAM_SERVICE_INDICATED FileMan Field Label: 'VIETNAM TO DATE' FileMan Field Number: '.32105' For this veteran applicant who served in the Republic of Vietnam (DID YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which service in Vietnam ended [between February 28, 1961 and May 7, 1975]. Once the service record is verified only user who hold the designated security key may enter/edit this field. As long as Vietnam service is indicated this date may not be deleted. %Library.FilemanDate 284 VIETNAM_TO_DATE FileMan Field Label: 'VTS PATIENT FLAG' FileMan Field Number: '3000' This field indicates whether or not the patient is or wants to be part of the Veteran Transportation Service (VTS). %Library.EnumString 587 VTS_PATIENT_FLAG FileMan Field Label: 'WARD LOCATION' FileMan Field Number: '.1' The ward location on which this patient is currently residing if an inpatient [2-30 characters]. %Library.String 1 31 s {WARD_LOCATION}=$e({NODE__1},1,30) 1 WARD_LOCATION FileMan Field Label: '*WEIGHT(kg)' FileMan Field Number: '57.2' WEIGHT(kg) %Library.Numeric 526 WEIGHTKG FileMan Field Label: 'WHO ENTERED PATIENT' FileMan Field Number: '.096' The name of the user who first entered this applicant into the patient file. VALIP.prosthetic.fm2cw.NEWPERSON200 27 WHO_ENTERED_PATIENT NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENT_2 where %ID=:id) set {WHO_ENTERED_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WHO_ENTERED_PATIENT_NAME 1 FileMan Field Label: 'YUGOSLAVIA FROM DATE' FileMan Field Number: '.32202' Enter the date that service in the Yugoslavia Conflict began for this patient. Earliest possible date is 6/22/1992. %Library.FilemanDate 312 YUGOSLAVIA_FROM_DATE FileMan Field Label: 'YUGOSLAVIA SERVICE INDICATED?' FileMan Field Number: '.322019' Field stores code indicating if patient served in the Yugolslavia Conflict. %Library.EnumString 311 YUGOSLAVIA_SERVICE_INDICATED FileMan Field Label: 'YUGOSLAVIA TO DATE' FileMan Field Number: '.322021' The date service in the Yugoslavia Conflict ended for this patient. %Library.FilemanDate 313 YUGOSLAVIA_TO_DATE FileMan Field Label: 'ZIP+4' FileMan Field Number: '.1112' Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). %Library.String 43 ZIP4 FileMan Field Label: 'ZIP+4 (CIVIL)' FileMan Field Number: '.290012' Enter the zip code of the address where the person responsible for handling this patient's funds resides. Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). %Library.String 227 ZIP4_CIVIL FileMan Field Label: 'ZIP+4 (VA)' FileMan Field Number: '.29013' If this patient has a VA guardian responsible for handling the patient's funds, enter the guardian's zip code here. Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). %Library.String 228 ZIP4_VA FileMan Field Label: 'ZIP (CIVIL)' FileMan Field Number: '.2928' Enter the zip code of the address where the person responsible for handling this patient's funds resides. %Library.String 247 ZIP_CIVIL FileMan Field Label: 'ZIP CODE' FileMan Field Number: '.116' Enter the zip code [5 numerics] for the city in which this applicant resides. %Library.String 64 ZIP_CODE FileMan Field Label: 'ZIP (VA)' FileMan Field Number: '.2918' If this patient has a VA guardian responsible for handling the patient's funds, enter the guardian's zip code here. %Library.String 237 ZIP_VA BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DPT(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(2,"+1,",.01)={"NAME"} set:{SEX}'="" FDA(2,"+1,",.02)={"SEX"} set:{SELF_IDENTIFIED_GENDER}'="" FDA(2,"+1,",.024)={"SELF_IDENTIFIED_GENDER"} set:{SEXUAL_ORIENTATION_DESCRIPTION}'="" FDA(2,"+1,",.0251)={"SEXUAL_ORIENTATION_DESCRIPTION"} set:{DATE_OF_BIRTH}'="" FDA(2,"+1,",.03)={"DATE_OF_BIRTH"} set:{EMPLOYMENT_STATUS}'="" FDA(2,"+1,",.04)={"EMPLOYMENT_STATUS"} set:{MARITAL_STATUS}'="" FDA(2,"+1,",.05)={"MARITAL_STATUS"} set:{RACE}'="" FDA(2,"+1,",.06)={"RACE"} set:{OCCUPATION}'="" FDA(2,"+1,",.07)={"OCCUPATION"} set:{RELIGIOUS_PREFERENCE}'="" FDA(2,"+1,",.08)={"RELIGIOUS_PREFERENCE"} set:{DUPLICATE_STATUS}'="" FDA(2,"+1,",.081)={"DUPLICATE_STATUS"} set:{PATIENT_MERGED_TO}'="" FDA(2,"+1,",.082)={"PATIENT_MERGED_TO"} set:{CHECK_FOR_DUPLICATE}'="" FDA(2,"+1,",.083)={"CHECK_FOR_DUPLICATE"} set:{SOCIAL_SECURITY_NUMBER}'="" FDA(2,"+1,",.09)={"SOCIAL_SECURITY_NUMBER"} set:{PSEUDO_SSN_REASON}'="" FDA(2,"+1,",.0906)={"PSEUDO_SSN_REASON"} set:{SSN_VERIFICATION_STATUS}'="" FDA(2,"+1,",.0907)={"SSN_VERIFICATION_STATUS"} set:{REMARKS}'="" FDA(2,"+1,",.091)={"REMARKS"} set:{PLACE_OF_BIRTH_CITY}'="" FDA(2,"+1,",.092)={"PLACE_OF_BIRTH_CITY"} set:{PLACE_OF_BIRTH_STATE}'="" FDA(2,"+1,",.093)={"PLACE_OF_BIRTH_STATE"} set:{PLACE_OF_BIRTH_COUNTRY}'="" FDA(2,"+1,",.0931)={"PLACE_OF_BIRTH_COUNTRY"} set:{PLACE_OF_BIRTH_PROVINCE}'="" FDA(2,"+1,",.0932)={"PLACE_OF_BIRTH_PROVINCE"} set:{WHO_ENTERED_PATIENT}'="" FDA(2,"+1,",.096)={"WHO_ENTERED_PATIENT"} set:{DATE_ENTERED_INTO_FILE}'="" FDA(2,"+1,",.097)={"DATE_ENTERED_INTO_FILE"} set:{HOW_WAS_PATIENT_ENTERED}'="" FDA(2,"+1,",.098)={"HOW_WAS_PATIENT_ENTERED"} set:{ROOMBED}'="" FDA(2,"+1,",.101)={"ROOMBED"} set:{CURRENT_MOVEMENT}'="" FDA(2,"+1,",.102)={"CURRENT_MOVEMENT"} set:{TREATING_SPECIALTY}'="" FDA(2,"+1,",.103)={"TREATING_SPECIALTY"} set:{PROVIDER}'="" FDA(2,"+1,",.104)={"PROVIDER"} set:{ATTENDING_PHYSICIAN}'="" FDA(2,"+1,",.1041)={"ATTENDING_PHYSICIAN"} set:{CURRENT_ADMISSION}'="" FDA(2,"+1,",.105)={"CURRENT_ADMISSION"} set:{LAST_DMMS_EPISODE_NUMBER}'="" FDA(2,"+1,",.106)={"LAST_DMMS_EPISODE_NUMBER"} set:{LODGER_WARD_LOCATION}'="" FDA(2,"+1,",.107)={"LODGER_WARD_LOCATION"} set:{CURRENT_ROOM}'="" FDA(2,"+1,",.108)={"CURRENT_ROOM"} set:{EXCLUDE_FROM_FACILITY_DIR}'="" FDA(2,"+1,",.109)={"EXCLUDE_FROM_FACILITY_DIR"} set:{STREET_ADDRESS_LINE_1}'="" FDA(2,"+1,",.111)={"STREET_ADDRESS_LINE_1"} set:{ZIP4}'="" FDA(2,"+1,",.1112)={"ZIP4"} set:{STREET_ADDRESS_CASS_IND}'="" FDA(2,"+1,",.1118)={"STREET_ADDRESS_CASS_IND"} set:{STREET_ADDRESS_LINE_2}'="" FDA(2,"+1,",.112)={"STREET_ADDRESS_LINE_2"} set:{STREET_ADDRESS_LINE_3}'="" FDA(2,"+1,",.113)={"STREET_ADDRESS_LINE_3"} set:{CITY}'="" FDA(2,"+1,",.114)={"CITY"} set:{STATE}'="" FDA(2,"+1,",.115)={"STATE"} set:{RESIDENTIAL_ADDRESS_LINE_1}'="" FDA(2,"+1,",.1151)={"RESIDENTIAL_ADDRESS_LINE_1"} set:{RESIDENTIAL_ADDRESS_LINE_2}'="" FDA(2,"+1,",.1152)={"RESIDENTIAL_ADDRESS_LINE_2"} set:{RESIDENTIAL_ADDRESS_LINE_3}'="" FDA(2,"+1,",.1153)={"RESIDENTIAL_ADDRESS_LINE_3"} set:{RESIDENTIAL_CITY}'="" FDA(2,"+1,",.1154)={"RESIDENTIAL_CITY"} set:{RESIDENTIAL_STATE}'="" FDA(2,"+1,",.1155)={"RESIDENTIAL_STATE"} set:{RESIDENTIAL_ZIP4}'="" FDA(2,"+1,",.1156)={"RESIDENTIAL_ZIP4"} set:{RESIDENTIAL_COUNTY}'="" FDA(2,"+1,",.1157)={"RESIDENTIAL_COUNTY"} set:{RESIDENTIAL_PROVINCE}'="" FDA(2,"+1,",.11571)={"RESIDENTIAL_PROVINCE"} set:{RESIDENTIAL_POSTAL_CODE}'="" FDA(2,"+1,",.11572)={"RESIDENTIAL_POSTAL_CODE"} set:{RESIDENTIAL_COUNTRY}'="" FDA(2,"+1,",.11573)={"RESIDENTIAL_COUNTRY"} set:{RESIDENTIAL_ADDR_CHANGE_DTTM}'="" FDA(2,"+1,",.1158)={"RESIDENTIAL_ADDR_CHANGE_DTTM"} set:{RESIDENTIAL_ADDR_CHANGE_SITE}'="" FDA(2,"+1,",.11581)={"RESIDENTIAL_ADDR_CHANGE_SITE"} set:{RESIDENTIAL_ADDR_CHANGE_SOURCE}'="" FDA(2,"+1,",.11582)={"RESIDENTIAL_ADDR_CHANGE_SOURCE"} set:{RESIDENTIAL_ADDR_CHANGE_USER}'="" FDA(2,"+1,",.11583)={"RESIDENTIAL_ADDR_CHANGE_USER"} set:{RESIDENTIAL_ADDR_CASS_IND}'="" FDA(2,"+1,",.1159)={"RESIDENTIAL_ADDR_CASS_IND"} set:{ZIP_CODE}'="" FDA(2,"+1,",.116)={"ZIP_CODE"} set:{COUNTY}'="" FDA(2,"+1,",.117)={"COUNTY"} set:{PROVINCE}'="" FDA(2,"+1,",.1171)={"PROVINCE"} set:{POSTAL_CODE}'="" FDA(2,"+1,",.1172)={"POSTAL_CODE"} set:{COUNTRY}'="" FDA(2,"+1,",.1173)={"COUNTRY"} set:{ADDRESS_CHANGE_DTTM}'="" FDA(2,"+1,",.118)={"ADDRESS_CHANGE_DTTM"} set:{LEGAL_RESIDENCE}'="" FDA(2,"+1,",.1181)={"LEGAL_RESIDENCE"} set:{LEGAL_RESIDENCE_2}'="" FDA(2,"+1,",.1182)={"LEGAL_RESIDENCE_2"} set:{LEGAL_RESIDENCE_3}'="" FDA(2,"+1,",.1183)={"LEGAL_RESIDENCE_3"} set:{LEGAL_RESIDENCE_CITY}'="" FDA(2,"+1,",.1184)={"LEGAL_RESIDENCE_CITY"} set:{LEGAL_RESIDENCE_STATE}'="" FDA(2,"+1,",.1185)={"LEGAL_RESIDENCE_STATE"} set:{LEGAL_RESIDENCE_ZIP}'="" FDA(2,"+1,",.1186)={"LEGAL_RESIDENCE_ZIP"} set:{LEGAL_RESIDENCE_COUNTY}'="" FDA(2,"+1,",.1187)={"LEGAL_RESIDENCE_COUNTY"} set:{ADDRESS_CHANGE_SOURCE}'="" FDA(2,"+1,",.119)={"ADDRESS_CHANGE_SOURCE"} set:{ADDRESS_CHANGE_SITE}'="" FDA(2,"+1,",.12)={"ADDRESS_CHANGE_SITE"} set:{BAD_ADDRESS_INDICATOR}'="" FDA(2,"+1,",.121)={"BAD_ADDRESS_INDICATOR"} set:{TEMPORARY_ADDRESS_ACTIVE}'="" FDA(2,"+1,",.12105)={"TEMPORARY_ADDRESS_ACTIVE"} set:{TEMPORARY_STREET_LINE_1}'="" FDA(2,"+1,",.1211)={"TEMPORARY_STREET_LINE_1"} set:{TEMPORARY_ADDRESS_COUNTY}'="" FDA(2,"+1,",.12111)={"TEMPORARY_ADDRESS_COUNTY"} set:{TEMPORARY_ZIP4}'="" FDA(2,"+1,",.12112)={"TEMPORARY_ZIP4"} set:{TEMPORARY_ADDRESS_CHANGE_DTTM}'="" FDA(2,"+1,",.12113)={"TEMPORARY_ADDRESS_CHANGE_DTTM"} set:{TEMPORARY_ADDRESS_CHANGE_SITE}'="" FDA(2,"+1,",.12114)={"TEMPORARY_ADDRESS_CHANGE_SITE"} set:{TEMPORARY_ADDR_CASS_IND}'="" FDA(2,"+1,",.12115)={"TEMPORARY_ADDR_CASS_IND"} set:{TEMPORARY_STREET_LINE_2}'="" FDA(2,"+1,",.1212)={"TEMPORARY_STREET_LINE_2"} set:{TEMPORARY_STREET_LINE_3}'="" FDA(2,"+1,",.1213)={"TEMPORARY_STREET_LINE_3"} set:{TEMPORARY_CITY}'="" FDA(2,"+1,",.1214)={"TEMPORARY_CITY"} set:{TEMPORARY_STATE}'="" FDA(2,"+1,",.1215)={"TEMPORARY_STATE"} set:{TEMPORARY_ZIP_CODE}'="" FDA(2,"+1,",.1216)={"TEMPORARY_ZIP_CODE"} set:{TEMPORARY_ADDRESS_START_DATE}'="" FDA(2,"+1,",.1217)={"TEMPORARY_ADDRESS_START_DATE"} set:{TEMPORARY_ADDRESS_END_DATE}'="" FDA(2,"+1,",.1218)={"TEMPORARY_ADDRESS_END_DATE"} set:{TEMPORARY_PHONE_NUMBER}'="" FDA(2,"+1,",.1219)={"TEMPORARY_PHONE_NUMBER"} set:{ADDRESS_CHANGE_USER}'="" FDA(2,"+1,",.122)={"ADDRESS_CHANGE_USER"} set:{TEMPORARY_ADDRESS_PROVINCE}'="" FDA(2,"+1,",.1221)={"TEMPORARY_ADDRESS_PROVINCE"} set:{TEMPORARY_ADDRESS_POSTAL_CODE}'="" FDA(2,"+1,",.1222)={"TEMPORARY_ADDRESS_POSTAL_CODE"} set:{TEMPORARY_ADDRESS_COUNTRY}'="" FDA(2,"+1,",.1223)={"TEMPORARY_ADDRESS_COUNTRY"} set:{PRIOR_ADDRESS_3}'="" FDA(2,"+1,",.123)={"PRIOR_ADDRESS_3"} set:{PRIOR_CITY}'="" FDA(2,"+1,",.124)={"PRIOR_CITY"} set:{PRIOR_STATE}'="" FDA(2,"+1,",.125)={"PRIOR_STATE"} set:{PRIOR_ZIP}'="" FDA(2,"+1,",.126)={"PRIOR_ZIP"} set:{PRIOR_COUNTY}'="" FDA(2,"+1,",.127)={"PRIOR_COUNTY"} set:{PHONE_NUMBER_RESIDENCE}'="" FDA(2,"+1,",.131)={"PHONE_NUMBER_RESIDENCE"} set:{CELLULAR_NUMBER_CHANGE_SOURCE}'="" FDA(2,"+1,",.1311)={"CELLULAR_NUMBER_CHANGE_SOURCE"} set:{CELLULAR_NUMBER_CHANGE_SITE}'="" FDA(2,"+1,",.13111)={"CELLULAR_NUMBER_CHANGE_SITE"} set:{PAGER_NUMBER_CHANGE_DTTM}'="" FDA(2,"+1,",.1312)={"PAGER_NUMBER_CHANGE_DTTM"} set:{PAGER_NUMBER_CHANGE_SOURCE}'="" FDA(2,"+1,",.1313)={"PAGER_NUMBER_CHANGE_SOURCE"} set:{PAGER_NUMBER_CHANGE_SITE}'="" FDA(2,"+1,",.1314)={"PAGER_NUMBER_CHANGE_SITE"} set:{CONFIDENTIAL_PHONE_NUMBER}'="" FDA(2,"+1,",.1315)={"CONFIDENTIAL_PHONE_NUMBER"} set:{EMAIL_ADDRESS_INDICATOR}'="" FDA(2,"+1,",.1316)={"EMAIL_ADDRESS_INDICATOR"} set:{EMAIL_ADDRESS_INDICATOR_DTTM}'="" FDA(2,"+1,",.1317)={"EMAIL_ADDRESS_INDICATOR_DTTM"} set:{EMAIL_ADDRESS_CHANGE_USER}'="" FDA(2,"+1,",.1318)={"EMAIL_ADDRESS_CHANGE_USER"} set:{CELLULAR_NUMBER_CHANGE_USER}'="" FDA(2,"+1,",.1319)={"CELLULAR_NUMBER_CHANGE_USER"} set:{PHONE_NUMBER_WORK}'="" FDA(2,"+1,",.132)={"PHONE_NUMBER_WORK"} set:{RESIDENCE_NUMBER_CHANGE_DTTM}'="" FDA(2,"+1,",.1321)={"RESIDENCE_NUMBER_CHANGE_DTTM"} set:{RESIDENCE_NUMBER_CHANGE_SOURCE}'="" FDA(2,"+1,",.1322)={"RESIDENCE_NUMBER_CHANGE_SOURCE"} set:{RESIDENCE_NUMBER_CHANGE_SITE}'="" FDA(2,"+1,",.1323)={"RESIDENCE_NUMBER_CHANGE_SITE"} set:{RESIDENCE_NUMBER_CHANGE_USER}'="" FDA(2,"+1,",.1324)={"RESIDENCE_NUMBER_CHANGE_USER"} set:{PHONE_WORK_CHANGE_USER}'="" FDA(2,"+1,",.1325)={"PHONE_WORK_CHANGE_USER"} set:{PHONE_WORK_CHANGE_DTTM}'="" FDA(2,"+1,",.1326)={"PHONE_WORK_CHANGE_DTTM"} set:{EMAIL_ADDRESS}'="" FDA(2,"+1,",.133)={"EMAIL_ADDRESS"} set:{PHONE_NUMBER_CELLULAR}'="" FDA(2,"+1,",.134)={"PHONE_NUMBER_CELLULAR"} set:{PAGER_NUMBER}'="" FDA(2,"+1,",.135)={"PAGER_NUMBER"} set:{EMAIL_ADDRESS_CHANGE_DTTM}'="" FDA(2,"+1,",.136)={"EMAIL_ADDRESS_CHANGE_DTTM"} set:{EMAIL_ADDRESS_CHANGE_SOURCE}'="" FDA(2,"+1,",.137)={"EMAIL_ADDRESS_CHANGE_SOURCE"} set:{EMAIL_ADDRESS_CHANGE_SITE}'="" FDA(2,"+1,",.138)={"EMAIL_ADDRESS_CHANGE_SITE"} set:{CELLULAR_NUMBER_CHANGE_DTTM}'="" FDA(2,"+1,",.139)={"CELLULAR_NUMBER_CHANGE_DTTM"} set:{CURRENT_MEANS_TEST_STATUS}'="" FDA(2,"+1,",.14)={"CURRENT_MEANS_TEST_STATUS"} set:{CONFIDENTIAL_ADDRESS_ACTIVE}'="" FDA(2,"+1,",.14105)={"CONFIDENTIAL_ADDRESS_ACTIVE"} set:{CONFIDENTIAL_STREET_LINE_1}'="" FDA(2,"+1,",.1411)={"CONFIDENTIAL_STREET_LINE_1"} set:{CONFIDENTIAL_ADDRESS_COUNTY}'="" FDA(2,"+1,",.14111)={"CONFIDENTIAL_ADDRESS_COUNTY"} set:{CONFIDENTIAL_ADDR_CHANGE_DTTM}'="" FDA(2,"+1,",.14112)={"CONFIDENTIAL_ADDR_CHANGE_DTTM"} set:{CONFIDENTIAL_ADDR_CHANGE_SITE}'="" FDA(2,"+1,",.14113)={"CONFIDENTIAL_ADDR_CHANGE_SITE"} set:{CONFIDENTIAL_ADDR_PROVINCE}'="" FDA(2,"+1,",.14114)={"CONFIDENTIAL_ADDR_PROVINCE"} set:{CONFIDENTIAL_ADDR_POSTAL_CODE}'="" FDA(2,"+1,",.14115)={"CONFIDENTIAL_ADDR_POSTAL_CODE"} set:{CONFIDENTIAL_ADDR_COUNTRY}'="" FDA(2,"+1,",.14116)={"CONFIDENTIAL_ADDR_COUNTRY"} set:{CONFIDENTIAL_ADDR_CASS_IND}'="" FDA(2,"+1,",.14117)={"CONFIDENTIAL_ADDR_CASS_IND"} set:{CONFIDENTIAL_ADDR_CHANGE_USER}'="" FDA(2,"+1,",.14118)={"CONFIDENTIAL_ADDR_CHANGE_USER"} set:{CONFIDENTIAL_PHONE_CHANGE_USER}'="" FDA(2,"+1,",.14119)={"CONFIDENTIAL_PHONE_CHANGE_USER"} set:{CONFIDENTIAL_STREET_LINE_2}'="" FDA(2,"+1,",.1412)={"CONFIDENTIAL_STREET_LINE_2"} set:{CONFIDENTIAL_STREET_LINE_3}'="" FDA(2,"+1,",.1413)={"CONFIDENTIAL_STREET_LINE_3"} set:{CONFIDENTIAL_ADDRESS_CITY}'="" FDA(2,"+1,",.1414)={"CONFIDENTIAL_ADDRESS_CITY"} set:{CONFIDENTIAL_ADDRESS_STATE}'="" FDA(2,"+1,",.1415)={"CONFIDENTIAL_ADDRESS_STATE"} set:{CONFIDENTIAL_ADDRESS_ZIP_CODE}'="" FDA(2,"+1,",.1416)={"CONFIDENTIAL_ADDRESS_ZIP_CODE"} set:{CONFIDENTIAL_START_DATE}'="" FDA(2,"+1,",.1417)={"CONFIDENTIAL_START_DATE"} set:{CONFIDENTIAL_END_DATE}'="" FDA(2,"+1,",.1418)={"CONFIDENTIAL_END_DATE"} set:{ADMISSION_DENIAL_DATE}'="" FDA(2,"+1,",.151)={"ADMISSION_DENIAL_DATE"} set:{ADMISSION_DENIAL_CHART}'="" FDA(2,"+1,",.1512)={"ADMISSION_DENIAL_CHART"} set:{INELIGIBLE_DATE}'="" FDA(2,"+1,",.152)={"INELIGIBLE_DATE"} set:{MISSING_PERSON_DATE}'="" FDA(2,"+1,",.153)={"MISSING_PERSON_DATE"} set:{INELIGIBLE_TWX_SOURCE}'="" FDA(2,"+1,",.1651)={"INELIGIBLE_TWX_SOURCE"} set:{TWX_SOURCE_ROINELIGIBLE}'="" FDA(2,"+1,",.1652)={"TWX_SOURCE_ROINELIGIBLE"} set:{INELIGIBLE_TWX_CITY}'="" FDA(2,"+1,",.1653)={"INELIGIBLE_TWX_CITY"} set:{INELIGIBLE_TWX_STATE}'="" FDA(2,"+1,",.1654)={"INELIGIBLE_TWX_STATE"} set:{TWX_SOURCE_RPCINELIGIBLE}'="" FDA(2,"+1,",.1655)={"TWX_SOURCE_RPCINELIGIBLE"} set:{INELIGIBLE_VARO_DECISION}'="" FDA(2,"+1,",.1656)={"INELIGIBLE_VARO_DECISION"} set:{MISSING_PERSON_TWX_SOURCE}'="" FDA(2,"+1,",.1657)={"MISSING_PERSON_TWX_SOURCE"} set:{MISSING_PERSON_TWX_CITY}'="" FDA(2,"+1,",.1658)={"MISSING_PERSON_TWX_CITY"} set:{MISSING_PERSON_TWX_STATE}'="" FDA(2,"+1,",.1659)={"MISSING_PERSON_TWX_STATE"} set:{PUBLIC_LAW}'="" FDA(2,"+1,",.171)={"PUBLIC_LAW"} set:{FEE_HOSPITAL_I_D_}'="" FDA(2,"+1,",.172)={"FEE_HOSPITAL_I_D_"} set:{FEE_BASIS_FILE_LOCATION}'="" FDA(2,"+1,",.173)={"FEE_BASIS_FILE_LOCATION"} set:{FEE_BASIS_DISPOSITION}'="" FDA(2,"+1,",.174)={"FEE_BASIS_DISPOSITION"} set:{EMERGENCY_RESPONSE_INDICATOR}'="" FDA(2,"+1,",.181)={"EMERGENCY_RESPONSE_INDICATOR"} set:{HISTORIC_KATRINA_ERI}'="" FDA(2,"+1,",.182)={"HISTORIC_KATRINA_ERI"} set:{K2COUNTRY}'="" FDA(2,"+1,",.2101)={"K2COUNTRY"} set:{KWORK_PHONE_NUMBER}'="" FDA(2,"+1,",.21011)={"KWORK_PHONE_NUMBER"} set:{PRIMARY_NOK_CHANGE_DATETIME}'="" FDA(2,"+1,",.21012)={"PRIMARY_NOK_CHANGE_DATETIME"} set:{K2PROVINCE}'="" FDA(2,"+1,",.2102)={"K2PROVINCE"} set:{K2POSTAL_CODE}'="" FDA(2,"+1,",.2103)={"K2POSTAL_CODE"} set:{K2RELATIONSHIP_TYPE}'="" FDA(2,"+1,",.2104)={"K2RELATIONSHIP_TYPE"} set:{KNAME_OF_PRIMARY_NOK}'="" FDA(2,"+1,",.211)={"KNAME_OF_PRIMARY_NOK"} set:{K2WORK_PHONE_NUMBER}'="" FDA(2,"+1,",.211011)={"K2WORK_PHONE_NUMBER"} set:{SECONDARY_NOK_CHANGE_DATETIME}'="" FDA(2,"+1,",.211012)={"SECONDARY_NOK_CHANGE_DATETIME"} set:{KRELATIONSHIP_TO_PATIENT}'="" FDA(2,"+1,",.212)={"KRELATIONSHIP_TO_PATIENT"} set:{KADDRESS_SAME_AS_PATIENTS}'="" FDA(2,"+1,",.2125)={"KADDRESS_SAME_AS_PATIENTS"} set:{KSTREET_ADDRESS_LINE_1}'="" FDA(2,"+1,",.213)={"KSTREET_ADDRESS_LINE_1"} set:{KSTREET_ADDRESS_LINE_2}'="" FDA(2,"+1,",.214)={"KSTREET_ADDRESS_LINE_2"} set:{KSTREET_ADDRESS_LINE_3}'="" FDA(2,"+1,",.215)={"KSTREET_ADDRESS_LINE_3"} set:{KCITY}'="" FDA(2,"+1,",.216)={"KCITY"} set:{KSTATE}'="" FDA(2,"+1,",.217)={"KSTATE"} set:{KZIP_CODE}'="" FDA(2,"+1,",.218)={"KZIP_CODE"} set:{KPHONE_NUMBER}'="" FDA(2,"+1,",.219)={"KPHONE_NUMBER"} set:{K2NAME_OF_SECONDARY_NOK}'="" FDA(2,"+1,",.2191)={"K2NAME_OF_SECONDARY_NOK"} set:{K2RELATIONSHIP_TO_PATIENT}'="" FDA(2,"+1,",.2192)={"K2RELATIONSHIP_TO_PATIENT"} set:{K2ADDRESS_SAME_AS_PATIENTS}'="" FDA(2,"+1,",.21925)={"K2ADDRESS_SAME_AS_PATIENTS"} set:{K2STREET_ADDRESS_LINE_1}'="" FDA(2,"+1,",.2193)={"K2STREET_ADDRESS_LINE_1"} set:{K2STREET_ADDRESS_LINE_2}'="" FDA(2,"+1,",.2194)={"K2STREET_ADDRESS_LINE_2"} set:{K2STREET_ADDRESS_LINE_3}'="" FDA(2,"+1,",.2195)={"K2STREET_ADDRESS_LINE_3"} set:{K2CITY}'="" FDA(2,"+1,",.2196)={"K2CITY"} set:{K2STATE}'="" FDA(2,"+1,",.2197)={"K2STATE"} set:{K2ZIP_CODE}'="" FDA(2,"+1,",.2198)={"K2ZIP_CODE"} set:{K2PHONE_NUMBER}'="" FDA(2,"+1,",.2199)={"K2PHONE_NUMBER"} set:{EZIP4}'="" FDA(2,"+1,",.2201)={"EZIP4"} set:{DZIP4}'="" FDA(2,"+1,",.2202)={"DZIP4"} set:{K2ZIP4}'="" FDA(2,"+1,",.2203)={"K2ZIP4"} set:{E2ZIP4}'="" FDA(2,"+1,",.2204)={"E2ZIP4"} set:{EMPLOYER_ZIP4}'="" FDA(2,"+1,",.2205)={"EMPLOYER_ZIP4"} set:{SPOUSES_EMP_ZIP4}'="" FDA(2,"+1,",.2206)={"SPOUSES_EMP_ZIP4"} set:{KZIP4}'="" FDA(2,"+1,",.2207)={"KZIP4"} set:{KCOUNTRY}'="" FDA(2,"+1,",.221)={"KCOUNTRY"} set:{KPROVINCE}'="" FDA(2,"+1,",.222)={"KPROVINCE"} set:{KPOSTAL_CODE}'="" FDA(2,"+1,",.223)={"KPOSTAL_CODE"} set:{KRELATIONSHIP_TYPE}'="" FDA(2,"+1,",.224)={"KRELATIONSHIP_TYPE"} set:{SIGNIFICANT_OTHER_2}'="" FDA(2,"+1,",.2301)={"SIGNIFICANT_OTHER_2"} set:{FATHERS_NAME}'="" FDA(2,"+1,",.2401)={"FATHERS_NAME"} set:{MOTHERS_NAME}'="" FDA(2,"+1,",.2402)={"MOTHERS_NAME"} set:{MOTHERS_MAIDEN_NAME}'="" FDA(2,"+1,",.2403)={"MOTHERS_MAIDEN_NAME"} set:{PREFERRED_NAME}'="" FDA(2,"+1,",.2405)={"PREFERRED_NAME"} set:{PRONOUN_DESCRIPTION}'="" FDA(2,"+1,",.24061)={"PRONOUN_DESCRIPTION"} set:{SPOUSES_EMPLOYER_NAME}'="" FDA(2,"+1,",.251)={"SPOUSES_EMPLOYER_NAME"} set:{SPOUSES_OCCUPATION}'="" FDA(2,"+1,",.2514)={"SPOUSES_OCCUPATION"} set:{SPOUSES_EMPLOYMENT_STATUS}'="" FDA(2,"+1,",.2515)={"SPOUSES_EMPLOYMENT_STATUS"} set:{SPOUSES_RETIREMENT_DATE}'="" FDA(2,"+1,",.2516)={"SPOUSES_RETIREMENT_DATE"} set:{SPOUSES_EMP_STREET_LINE_1}'="" FDA(2,"+1,",.252)={"SPOUSES_EMP_STREET_LINE_1"} set:{SPOUSES_EMP_STREET_LINE_2}'="" FDA(2,"+1,",.253)={"SPOUSES_EMP_STREET_LINE_2"} set:{SPOUSES_EMP_STREET_LINE_3}'="" FDA(2,"+1,",.254)={"SPOUSES_EMP_STREET_LINE_3"} set:{SPOUSES_EMPLOYERS_CITY}'="" FDA(2,"+1,",.255)={"SPOUSES_EMPLOYERS_CITY"} set:{SPOUSES_EMPLOYERS_STATE}'="" FDA(2,"+1,",.256)={"SPOUSES_EMPLOYERS_STATE"} set:{SPOUSES_EMP_ZIP_CODE}'="" FDA(2,"+1,",.257)={"SPOUSES_EMP_ZIP_CODE"} set:{SPOUSES_EMP_PHONE_NUMBER}'="" FDA(2,"+1,",.258)={"SPOUSES_EMP_PHONE_NUMBER"} set:{ZIP4_CIVIL}'="" FDA(2,"+1,",.290012)={"ZIP4_CIVIL"} set:{ZIP4_VA}'="" FDA(2,"+1,",.29013)={"ZIP4_VA"} set:{DATE_RULED_INCOMPETENT_VA}'="" FDA(2,"+1,",.291)={"DATE_RULED_INCOMPETENT_VA"} set:{INSTITUTION_VA}'="" FDA(2,"+1,",.2911)={"INSTITUTION_VA"} set:{GUARDIAN_VA}'="" FDA(2,"+1,",.2912)={"GUARDIAN_VA"} set:{RELATIONSHIP_VA}'="" FDA(2,"+1,",.2913)={"RELATIONSHIP_VA"} set:{STREET_ADDRESS_1_VA}'="" FDA(2,"+1,",.2914)={"STREET_ADDRESS_1_VA"} set:{STREET_ADDRESS_2_VA}'="" FDA(2,"+1,",.2915)={"STREET_ADDRESS_2_VA"} set:{CITY_VA}'="" FDA(2,"+1,",.2916)={"CITY_VA"} set:{STATE_VA}'="" FDA(2,"+1,",.2917)={"STATE_VA"} set:{ZIP_VA}'="" FDA(2,"+1,",.2918)={"ZIP_VA"} set:{PHONE_VA}'="" FDA(2,"+1,",.2919)={"PHONE_VA"} set:{DATE_RULED_INCOMPETENT_CIVIL}'="" FDA(2,"+1,",.292)={"DATE_RULED_INCOMPETENT_CIVIL"} set:{INSTITUTION_CIVIL}'="" FDA(2,"+1,",.2921)={"INSTITUTION_CIVIL"} set:{GUARDIAN_CIVIL}'="" FDA(2,"+1,",.2922)={"GUARDIAN_CIVIL"} set:{RELATIONSHIP_CIVIL}'="" FDA(2,"+1,",.2923)={"RELATIONSHIP_CIVIL"} set:{STREET_ADDRESS_1_CIVIL}'="" FDA(2,"+1,",.2924)={"STREET_ADDRESS_1_CIVIL"} set:{STREET_ADDRESS_2_CIVIL}'="" FDA(2,"+1,",.2925)={"STREET_ADDRESS_2_CIVIL"} set:{CITY_CIVIL}'="" FDA(2,"+1,",.2926)={"CITY_CIVIL"} set:{STATE_CIVIL}'="" FDA(2,"+1,",.2927)={"STATE_CIVIL"} set:{ZIP_CIVIL}'="" FDA(2,"+1,",.2928)={"ZIP_CIVIL"} set:{PHONE_CIVIL}'="" FDA(2,"+1,",.2929)={"PHONE_CIVIL"} set:{RATED_INCOMPETENT}'="" FDA(2,"+1,",.293)={"RATED_INCOMPETENT"} set:{SERVICE_CONNECTED}'="" FDA(2,"+1,",.301)={"SERVICE_CONNECTED"} set:{SC_AWARD_DATE}'="" FDA(2,"+1,",.3012)={"SC_AWARD_DATE"} set:{PT_EFFECTIVE_DATE}'="" FDA(2,"+1,",.3013)={"PT_EFFECTIVE_DATE"} set:{EFF__DATE_COMBINED_SC_EVAL_}'="" FDA(2,"+1,",.3014)={"EFF__DATE_COMBINED_SC_EVAL_"} set:{SERVICE_CONNECTED_PERCENTAGE}'="" FDA(2,"+1,",.302)={"SERVICE_CONNECTED_PERCENTAGE"} set:{RECEIVING_VA_DISABILITY}'="" FDA(2,"+1,",.3025)={"RECEIVING_VA_DISABILITY"} set:{AMOUNT_OF_VA_DISABILITY}'="" FDA(2,"+1,",.303)={"AMOUNT_OF_VA_DISABILITY"} set:{PT}'="" FDA(2,"+1,",.304)={"PT"} set:{UNEMPLOYABLE}'="" FDA(2,"+1,",.305)={"UNEMPLOYABLE"} set:{MONETARY_BEN__VERIFY_DATE}'="" FDA(2,"+1,",.306)={"MONETARY_BEN__VERIFY_DATE"} set:{INELIGIBLE_REASON}'="" FDA(2,"+1,",.307)={"INELIGIBLE_REASON"} set:{AGENCYALLIED_COUNTRY}'="" FDA(2,"+1,",.309)={"AGENCYALLIED_COUNTRY"} set:{CATEGORY_OF_BENEFICIARY}'="" FDA(2,"+1,",.31)={"CATEGORY_OF_BENEFICIARY"} set:{EMPLOYER_NAME}'="" FDA(2,"+1,",.3111)={"EMPLOYER_NAME"} set:{EMPLOYMENT_STATUS0}'="" FDA(2,"+1,",.31115)={"EMPLOYMENT_STATUS0"} set:{DATE_OF_RETIREMENT}'="" FDA(2,"+1,",.31116)={"DATE_OF_RETIREMENT"} set:{GOVERNMENT_AGENCY}'="" FDA(2,"+1,",.3112)={"GOVERNMENT_AGENCY"} set:{EMPLOYER_STREET_LINE_1}'="" FDA(2,"+1,",.3113)={"EMPLOYER_STREET_LINE_1"} set:{EMPLOYER_STREET_LINE_2}'="" FDA(2,"+1,",.3114)={"EMPLOYER_STREET_LINE_2"} set:{EMPLOYER_STREET_LINE_3}'="" FDA(2,"+1,",.3115)={"EMPLOYER_STREET_LINE_3"} set:{EMPLOYER_CITY}'="" FDA(2,"+1,",.3116)={"EMPLOYER_CITY"} set:{EMPLOYER_STATE}'="" FDA(2,"+1,",.3117)={"EMPLOYER_STATE"} set:{EMPLOYER_ZIP_CODE}'="" FDA(2,"+1,",.3118)={"EMPLOYER_ZIP_CODE"} set:{EMPLOYER_PHONE_NUMBER}'="" FDA(2,"+1,",.3119)={"EMPLOYER_PHONE_NUMBER"} set:{CLAIM_FOLDER_LOCATION}'="" FDA(2,"+1,",.312)={"CLAIM_FOLDER_LOCATION"} set:{CLAIM_NUMBER}'="" FDA(2,"+1,",.313)={"CLAIM_NUMBER"} set:{CLAIM_FOLDER_LOCATION0}'="" FDA(2,"+1,",.314)={"CLAIM_FOLDER_LOCATION0"} set:{ABLE_TO_DEFRAY_EXPENSES}'="" FDA(2,"+1,",.319)={"ABLE_TO_DEFRAY_EXPENSES"} set:{ABLE_TO_PAY_FOR_TRAVEL}'="" FDA(2,"+1,",.3191)={"ABLE_TO_PAY_FOR_TRAVEL"} set:{COVERED_BY_HEALTH_INSURANCE}'="" FDA(2,"+1,",.3192)={"COVERED_BY_HEALTH_INSURANCE"} set:{VIETNAM_SERVICE_INDICATED}'="" FDA(2,"+1,",.32101)={"VIETNAM_SERVICE_INDICATED"} set:{AGENT_ORANGE_EXPOS__INDICATED}'="" FDA(2,"+1,",.32102)={"AGENT_ORANGE_EXPOS__INDICATED"} set:{RADIATION_EXPOSURE_INDICATED}'="" FDA(2,"+1,",.32103)={"RADIATION_EXPOSURE_INDICATED"} set:{VIETNAM_FROM_DATE}'="" FDA(2,"+1,",.32104)={"VIETNAM_FROM_DATE"} set:{VIETNAM_TO_DATE}'="" FDA(2,"+1,",.32105)={"VIETNAM_TO_DATE"} set:{OCCUPATION_CODE_IN_VIETNAM}'="" FDA(2,"+1,",.32106)={"OCCUPATION_CODE_IN_VIETNAM"} set:{AGENT_ORANGE_REGISTRATION_DATE}'="" FDA(2,"+1,",.32107)={"AGENT_ORANGE_REGISTRATION_DATE"} set:{AGENT_ORANGE_REPORTED_TO_C_O_}'="" FDA(2,"+1,",.32108)={"AGENT_ORANGE_REPORTED_TO_C_O_"} set:{AGENT_ORANGE_EXAM_DATE}'="" FDA(2,"+1,",.32109)={"AGENT_ORANGE_EXAM_DATE"} set:{AGENT_ORANGE_REGISTRATION_}'="" FDA(2,"+1,",.3211)={"AGENT_ORANGE_REGISTRATION_"} set:{RADIATION_REGISTRATION_DATE}'="" FDA(2,"+1,",.32111)={"RADIATION_REGISTRATION_DATE"} set:{PROJ_112SHAD}'="" FDA(2,"+1,",.32115)={"PROJ_112SHAD"} set:{TOXIC_EXPOSURE_RISK_ACTIVITY}'="" FDA(2,"+1,",.32116)={"TOXIC_EXPOSURE_RISK_ACTIVITY"} set:{RADIATION_EXPOSURE_METHOD}'="" FDA(2,"+1,",.3212)={"RADIATION_EXPOSURE_METHOD"} set:{AGENT_ORANGE_EXPOSURE_LOCATION}'="" FDA(2,"+1,",.3213)={"AGENT_ORANGE_EXPOSURE_LOCATION"} set:{FILIPINO_VETERAN_PROOF}'="" FDA(2,"+1,",.3214)={"FILIPINO_VETERAN_PROOF"} set:{CAMP_LEJEUNE}'="" FDA(2,"+1,",.321701)={"CAMP_LEJEUNE"} set:{CAMP_LEJEUNE_DATE}'="" FDA(2,"+1,",.321702)={"CAMP_LEJEUNE_DATE"} set:{CAMP_LEJEUNE_CHANGE_SITE}'="" FDA(2,"+1,",.321703)={"CAMP_LEJEUNE_CHANGE_SITE"} set:{CAMP_LEJEUNE_SOURCE}'="" FDA(2,"+1,",.321704)={"CAMP_LEJEUNE_SOURCE"} set:{CAMP_LEJEUNE_DATA_ENTRY_LOCKED}'="" FDA(2,"+1,",.32171)={"CAMP_LEJEUNE_DATA_ENTRY_LOCKED"} set:{SERVICE_VERIFICATION_DATE}'="" FDA(2,"+1,",.322)={"SERVICE_VERIFICATION_DATE"} set:{PERSIAN_GULF_SERVICE}'="" FDA(2,"+1,",.32201)={"PERSIAN_GULF_SERVICE"} set:{PERSIAN_GULF_FROM_DATE}'="" FDA(2,"+1,",.322011)={"PERSIAN_GULF_FROM_DATE"} set:{PERSIAN_GULF_TO_DATE}'="" FDA(2,"+1,",.322012)={"PERSIAN_GULF_TO_DATE"} set:{SOUTHWEST_ASIA_CONDITIONS}'="" FDA(2,"+1,",.322013)={"SOUTHWEST_ASIA_CONDITIONS"} set:{SW_ASIA_COND_REGISTRATION_DATE}'="" FDA(2,"+1,",.322014)={"SW_ASIA_COND_REGISTRATION_DATE"} set:{SW_ASIA_COND_EXAM_DATE}'="" FDA(2,"+1,",.322015)={"SW_ASIA_COND_EXAM_DATE"} set:{SOMALIA_SERVICE_INDICATED}'="" FDA(2,"+1,",.322016)={"SOMALIA_SERVICE_INDICATED"} set:{SOMALIA_FROM_DATE}'="" FDA(2,"+1,",.322017)={"SOMALIA_FROM_DATE"} set:{SOMALIA_TO_DATE}'="" FDA(2,"+1,",.322018)={"SOMALIA_TO_DATE"} set:{YUGOSLAVIA_SERVICE_INDICATED}'="" FDA(2,"+1,",.322019)={"YUGOSLAVIA_SERVICE_INDICATED"} set:{YUGOSLAVIA_FROM_DATE}'="" FDA(2,"+1,",.32202)={"YUGOSLAVIA_FROM_DATE"} set:{YUGOSLAVIA_TO_DATE}'="" FDA(2,"+1,",.322021)={"YUGOSLAVIA_TO_DATE"} set:{LEBANON_SERVICE_INDICATED}'="" FDA(2,"+1,",.3221)={"LEBANON_SERVICE_INDICATED"} set:{LEBANON_FROM_DATE}'="" FDA(2,"+1,",.3222)={"LEBANON_FROM_DATE"} set:{LEBANON_TO_DATE}'="" FDA(2,"+1,",.3223)={"LEBANON_TO_DATE"} set:{GRENADA_SERVICE_INDICATED}'="" FDA(2,"+1,",.3224)={"GRENADA_SERVICE_INDICATED"} set:{GRENADA_FROM_DATE}'="" FDA(2,"+1,",.3225)={"GRENADA_FROM_DATE"} set:{GRENADA_TO_DATE}'="" FDA(2,"+1,",.3226)={"GRENADA_TO_DATE"} set:{PANAMA_SERVICE_INDICATED}'="" FDA(2,"+1,",.3227)={"PANAMA_SERVICE_INDICATED"} set:{PANAMA_FROM_DATE}'="" FDA(2,"+1,",.3228)={"PANAMA_FROM_DATE"} set:{PANAMA_TO_DATE}'="" FDA(2,"+1,",.3229)={"PANAMA_TO_DATE"} set:{PERIOD_OF_SERVICE}'="" FDA(2,"+1,",.323)={"PERIOD_OF_SERVICE"} set:{SERVICE_DISCHARGE_TYPE_LAST}'="" FDA(2,"+1,",.324)={"SERVICE_DISCHARGE_TYPE_LAST"} set:{SERVICE_BRANCH_LAST}'="" FDA(2,"+1,",.325)={"SERVICE_BRANCH_LAST"} set:{SERVICE_ENTRY_DATE_LAST}'="" FDA(2,"+1,",.326)={"SERVICE_ENTRY_DATE_LAST"} set:{SERVICE_SEPARATION_DATE_LAST}'="" FDA(2,"+1,",.327)={"SERVICE_SEPARATION_DATE_LAST"} set:{SERVICE_NUMBER_LAST}'="" FDA(2,"+1,",.328)={"SERVICE_NUMBER_LAST"} set:{SERVICE_SECOND_EPISODE}'="" FDA(2,"+1,",.3285)={"SERVICE_SECOND_EPISODE"} set:{SERVICE_DISCHARGE_TYPE_NTL}'="" FDA(2,"+1,",.329)={"SERVICE_DISCHARGE_TYPE_NTL"} set:{SERVICE_BRANCH_NTL}'="" FDA(2,"+1,",.3291)={"SERVICE_BRANCH_NTL"} set:{SERVICE_COMPONENT_LAST}'="" FDA(2,"+1,",.32911)={"SERVICE_COMPONENT_LAST"} set:{SERVICE_COMPONENT_NTL}'="" FDA(2,"+1,",.32912)={"SERVICE_COMPONENT_NTL"} set:{SERVICE_COMPONENT_NNTL}'="" FDA(2,"+1,",.32913)={"SERVICE_COMPONENT_NNTL"} set:{SERVICE_ENTRY_DATE_NTL}'="" FDA(2,"+1,",.3292)={"SERVICE_ENTRY_DATE_NTL"} set:{SERVICE_SEPARATION_DATE_NTL}'="" FDA(2,"+1,",.3293)={"SERVICE_SEPARATION_DATE_NTL"} set:{SERVICE_NUMBER_NTL}'="" FDA(2,"+1,",.3294)={"SERVICE_NUMBER_NTL"} set:{SERVICE_THIRD_EPISODE}'="" FDA(2,"+1,",.32945)={"SERVICE_THIRD_EPISODE"} set:{SERVICE_DISCHARGE_TYPE_NNTL}'="" FDA(2,"+1,",.3295)={"SERVICE_DISCHARGE_TYPE_NNTL"} set:{SERVICE_BRANCH_NNTL}'="" FDA(2,"+1,",.3296)={"SERVICE_BRANCH_NNTL"} set:{SERVICE_ENTRY_DATE_NNTL}'="" FDA(2,"+1,",.3297)={"SERVICE_ENTRY_DATE_NNTL"} set:{SERVICE_SEPARATION_DATE_NNTL}'="" FDA(2,"+1,",.3298)={"SERVICE_SEPARATION_DATE_NNTL"} set:{SERVICE_NUMBER_NNTL}'="" FDA(2,"+1,",.3299)={"SERVICE_NUMBER_NNTL"} set:{EWORK_PHONE_NUMBER}'="" FDA(2,"+1,",.33011)={"EWORK_PHONE_NUMBER"} set:{ECONTACT_CHANGE_DATETIME}'="" FDA(2,"+1,",.33012)={"ECONTACT_CHANGE_DATETIME"} set:{EEMER__CONTACT_SAME_AS_NOK}'="" FDA(2,"+1,",.3305)={"EEMER__CONTACT_SAME_AS_NOK"} set:{ECOUNTRY}'="" FDA(2,"+1,",.3306)={"ECOUNTRY"} set:{EPROVINCE}'="" FDA(2,"+1,",.3307)={"EPROVINCE"} set:{EPOSTAL_CODE}'="" FDA(2,"+1,",.3308)={"EPOSTAL_CODE"} set:{ERELATIONSHIP_TYPE}'="" FDA(2,"+1,",.3309)={"ERELATIONSHIP_TYPE"} set:{ENAME}'="" FDA(2,"+1,",.331)={"ENAME"} set:{E2WORK_PHONE_NUMBER}'="" FDA(2,"+1,",.331011)={"E2WORK_PHONE_NUMBER"} set:{E2COUNTRY}'="" FDA(2,"+1,",.331012)={"E2COUNTRY"} set:{E2PROVINCE}'="" FDA(2,"+1,",.331013)={"E2PROVINCE"} set:{E2POSTAL_CODE}'="" FDA(2,"+1,",.331014)={"E2POSTAL_CODE"} set:{E2RELATIONSHIP_TYPE}'="" FDA(2,"+1,",.331015)={"E2RELATIONSHIP_TYPE"} set:{E2NAME_OF_SECONDARY_CONTACT}'="" FDA(2,"+1,",.3311)={"E2NAME_OF_SECONDARY_CONTACT"} set:{E2CONTACT_CHANGE_DATETIME}'="" FDA(2,"+1,",.33112)={"E2CONTACT_CHANGE_DATETIME"} set:{E2RELATIONSHIP_TO_PATIENT}'="" FDA(2,"+1,",.3312)={"E2RELATIONSHIP_TO_PATIENT"} set:{E2STREET_ADDRESS_LINE_1}'="" FDA(2,"+1,",.3313)={"E2STREET_ADDRESS_LINE_1"} set:{E2STREET_ADDRESS_LINE_2}'="" FDA(2,"+1,",.3314)={"E2STREET_ADDRESS_LINE_2"} set:{E2STREET_ADDRESS_LINE_3}'="" FDA(2,"+1,",.3315)={"E2STREET_ADDRESS_LINE_3"} set:{E2CITY}'="" FDA(2,"+1,",.3316)={"E2CITY"} set:{E2STATE}'="" FDA(2,"+1,",.3317)={"E2STATE"} set:{E2ZIP_CODE}'="" FDA(2,"+1,",.3318)={"E2ZIP_CODE"} set:{E2PHONE_NUMBER}'="" FDA(2,"+1,",.3319)={"E2PHONE_NUMBER"} set:{ERELATIONSHIP_TO_PATIENT}'="" FDA(2,"+1,",.332)={"ERELATIONSHIP_TO_PATIENT"} set:{ESTREET_ADDRESS_LINE_1}'="" FDA(2,"+1,",.333)={"ESTREET_ADDRESS_LINE_1"} set:{ESTREET_ADDRESS_LINE_2}'="" FDA(2,"+1,",.334)={"ESTREET_ADDRESS_LINE_2"} set:{ESTREET_ADDRESS_LINE_3}'="" FDA(2,"+1,",.335)={"ESTREET_ADDRESS_LINE_3"} set:{ECITY}'="" FDA(2,"+1,",.336)={"ECITY"} set:{ESTATE}'="" FDA(2,"+1,",.337)={"ESTATE"} set:{EZIP_CODE}'="" FDA(2,"+1,",.338)={"EZIP_CODE"} set:{EPHONE_NUMBER}'="" FDA(2,"+1,",.339)={"EPHONE_NUMBER"} set:{DWORK_PHONE_NUMBER}'="" FDA(2,"+1,",.34011)={"DWORK_PHONE_NUMBER"} set:{DCOUNTRY}'="" FDA(2,"+1,",.34012)={"DCOUNTRY"} set:{DPROVINCE}'="" FDA(2,"+1,",.34013)={"DPROVINCE"} set:{DPOSTAL_CODE}'="" FDA(2,"+1,",.34014)={"DPOSTAL_CODE"} set:{DRELATIONSHIP_TYPE}'="" FDA(2,"+1,",.34015)={"DRELATIONSHIP_TYPE"} set:{DDESIGNEE_SAME_AS_NOK}'="" FDA(2,"+1,",.3405)={"DDESIGNEE_SAME_AS_NOK"} set:{DNAME_OF_DESIGNEE}'="" FDA(2,"+1,",.341)={"DNAME_OF_DESIGNEE"} set:{DESIGNEE_CHANGE_DATETIME}'="" FDA(2,"+1,",.3412)={"DESIGNEE_CHANGE_DATETIME"} set:{DRELATIONSHIP_TO_PATIENT}'="" FDA(2,"+1,",.342)={"DRELATIONSHIP_TO_PATIENT"} set:{DSTREET_ADDRESS_LINE_1}'="" FDA(2,"+1,",.343)={"DSTREET_ADDRESS_LINE_1"} set:{DSTREET_ADDRESS_LINE_2}'="" FDA(2,"+1,",.344)={"DSTREET_ADDRESS_LINE_2"} set:{DSTREET_ADDRESS_LINE_3}'="" FDA(2,"+1,",.345)={"DSTREET_ADDRESS_LINE_3"} set:{DCITY}'="" FDA(2,"+1,",.346)={"DCITY"} set:{DSTATE}'="" FDA(2,"+1,",.347)={"DSTATE"} set:{DZIP_CODE}'="" FDA(2,"+1,",.348)={"DZIP_CODE"} set:{DPHONE_NUMBER}'="" FDA(2,"+1,",.349)={"DPHONE_NUMBER"} set:{DATE_OF_DEATH}'="" FDA(2,"+1,",.351)={"DATE_OF_DEATH"} set:{DEATH_ENTERED_BY}'="" FDA(2,"+1,",.352)={"DEATH_ENTERED_BY"} set:{SOURCE_OF_NOTIFICATION}'="" FDA(2,"+1,",.353)={"SOURCE_OF_NOTIFICATION"} set:{DATE_OF_DEATH_LAST_UPDATED}'="" FDA(2,"+1,",.354)={"DATE_OF_DEATH_LAST_UPDATED"} set:{LAST_EDITED_BY}'="" FDA(2,"+1,",.355)={"LAST_EDITED_BY"} set:{SUPPORTING_DOCUMENT_TYPE}'="" FDA(2,"+1,",.357)={"SUPPORTING_DOCUMENT_TYPE"} set:{DATE_OF_DEATH_OPTION_USED}'="" FDA(2,"+1,",.358)={"DATE_OF_DEATH_OPTION_USED"} set:{COLLATERAL_SPONSORS_NAME}'="" FDA(2,"+1,",.3601)={"COLLATERAL_SPONSORS_NAME"} set:{MILITARY_DISABILITY_RETIREMENT}'="" FDA(2,"+1,",.3602)={"MILITARY_DISABILITY_RETIREMENT"} set:{DISCHARGE_DUE_TO_DISABILITY}'="" FDA(2,"+1,",.3603)={"DISCHARGE_DUE_TO_DISABILITY"} set:{PRIMARY_ELIGIBILITY_CODE}'="" FDA(2,"+1,",.361)={"PRIMARY_ELIGIBILITY_CODE"} set:{ELIGIBILITY_STATUS}'="" FDA(2,"+1,",.3611)={"ELIGIBILITY_STATUS"} set:{ELIGIBILITY_STATUS_DATE}'="" FDA(2,"+1,",.3612)={"ELIGIBILITY_STATUS_DATE"} set:{ELIGIBILITY_VERIF__SOURCE}'="" FDA(2,"+1,",.3613)={"ELIGIBILITY_VERIF__SOURCE"} set:{ELIGIBILITY_INTERIM_RESPONSE}'="" FDA(2,"+1,",.3614)={"ELIGIBILITY_INTERIM_RESPONSE"} set:{ELIGIBILITY_VERIF__METHOD}'="" FDA(2,"+1,",.3615)={"ELIGIBILITY_VERIF__METHOD"} set:{ELIGIBILITY_STATUS_ENTERED_BY}'="" FDA(2,"+1,",.3616)={"ELIGIBILITY_STATUS_ENTERED_BY"} set:{USER_ENROLLEE_VALID_THROUGH}'="" FDA(2,"+1,",.3617)={"USER_ENROLLEE_VALID_THROUGH"} set:{USER_ENROLLEE_SITE}'="" FDA(2,"+1,",.3618)={"USER_ENROLLEE_SITE"} set:{DISABILITY_RET__FROM_MILITARY}'="" FDA(2,"+1,",.362)={"DISABILITY_RET__FROM_MILITARY"} set:{TOTAL_VETERAN_INCOME}'="" FDA(2,"+1,",.36201)={"TOTAL_VETERAN_INCOME"} set:{RECEIVING_AA_BENEFITS}'="" FDA(2,"+1,",.36205)={"RECEIVING_AA_BENEFITS"} set:{AMOUNT_OF_AID__ATTENDANCE}'="" FDA(2,"+1,",.3621)={"AMOUNT_OF_AID__ATTENDANCE"} set:{TOTAL_HOUSEHOLD_INCOME}'="" FDA(2,"+1,",.36211)={"TOTAL_HOUSEHOLD_INCOME"} set:{RECEIVING_HOUSEBOUND_BENEFITS}'="" FDA(2,"+1,",.36215)={"RECEIVING_HOUSEBOUND_BENEFITS"} set:{AMOUNT_OF_HOUSEBOUND}'="" FDA(2,"+1,",.3622)={"AMOUNT_OF_HOUSEBOUND"} set:{RECEIVING_SOCIAL_SECURITY}'="" FDA(2,"+1,",.36225)={"RECEIVING_SOCIAL_SECURITY"} set:{AMOUNT_OF_SOCIAL_SECURITY}'="" FDA(2,"+1,",.3623)={"AMOUNT_OF_SOCIAL_SECURITY"} set:{RECEIVING_A_VA_PENSION}'="" FDA(2,"+1,",.36235)={"RECEIVING_A_VA_PENSION"} set:{AMOUNT_OF_VA_PENSION}'="" FDA(2,"+1,",.3624)={"AMOUNT_OF_VA_PENSION"} set:{AMOUNT_OF_MILITARY_RETIREMENT}'="" FDA(2,"+1,",.3625)={"AMOUNT_OF_MILITARY_RETIREMENT"} set:{RECEIVING_MILITARY_RETIREMENT}'="" FDA(2,"+1,",.36255)={"RECEIVING_MILITARY_RETIREMENT"} set:{AMOUNT_OF_GI_INSURANCE}'="" FDA(2,"+1,",.3626)={"AMOUNT_OF_GI_INSURANCE"} set:{GI_INSURANCE_POLICY}'="" FDA(2,"+1,",.36265)={"GI_INSURANCE_POLICY"} set:{AMOUNT_OF_SSI}'="" FDA(2,"+1,",.3627)={"AMOUNT_OF_SSI"} set:{RECEIVING_SUP__SECURITY_SSI}'="" FDA(2,"+1,",.36275)={"RECEIVING_SUP__SECURITY_SSI"} set:{AMOUNT_OF_OTHER_RETIREMENT}'="" FDA(2,"+1,",.3628)={"AMOUNT_OF_OTHER_RETIREMENT"} set:{TYPE_OF_OTHER_RETIREMENT}'="" FDA(2,"+1,",.36285)={"TYPE_OF_OTHER_RETIREMENT"} set:{AMOUNT_OF_OTHER_INCOME}'="" FDA(2,"+1,",.3629)={"AMOUNT_OF_OTHER_INCOME"} set:{TOTAL_ANNUAL_VA_CHECK_AMOUNT}'="" FDA(2,"+1,",.36295)={"TOTAL_ANNUAL_VA_CHECK_AMOUNT"} set:{PRIMARY_LONG_ID}'="" FDA(2,"+1,",.363)={"PRIMARY_LONG_ID"} set:{PRIMARY_SHORT_ID}'="" FDA(2,"+1,",.364)={"PRIMARY_SHORT_ID"} set:{SERVICE_DENTAL_INJURY}'="" FDA(2,"+1,",.368)={"SERVICE_DENTAL_INJURY"} set:{SERVICE_TEETH_EXTRACTED}'="" FDA(2,"+1,",.369)={"SERVICE_TEETH_EXTRACTED"} set:{ELIGIBLE_FOR_MEDICAID}'="" FDA(2,"+1,",.381)={"ELIGIBLE_FOR_MEDICAID"} set:{DATE_MEDICAID_LAST_ASKED}'="" FDA(2,"+1,",.382)={"DATE_MEDICAID_LAST_ASKED"} set:{MEDICAID_NUMBER}'="" FDA(2,"+1,",.383)={"MEDICAID_NUMBER"} set:{PENSION_AWARD_EFFECTIVE_DATE}'="" FDA(2,"+1,",.3851)={"PENSION_AWARD_EFFECTIVE_DATE"} set:{PENSION_AWARD_REASON}'="" FDA(2,"+1,",.3852)={"PENSION_AWARD_REASON"} set:{PENSION_TERMINATED_DATE}'="" FDA(2,"+1,",.3853)={"PENSION_TERMINATED_DATE"} set:{PENSION_TERMINATED_REASON_1}'="" FDA(2,"+1,",.3854)={"PENSION_TERMINATED_REASON_1"} set:{PENSION_TERMINATED_REASON_2}'="" FDA(2,"+1,",.3855)={"PENSION_TERMINATED_REASON_2"} set:{PENSION_TERMINATED_REASON_3}'="" FDA(2,"+1,",.3856)={"PENSION_TERMINATED_REASON_3"} set:{PENSION_TERMINATED_REASON_4}'="" FDA(2,"+1,",.3857)={"PENSION_TERMINATED_REASON_4"} set:{CLASS_II_DENTAL_INDICATOR}'="" FDA(2,"+1,",.3858)={"CLASS_II_DENTAL_INDICATOR"} set:{DENTAL_APPL_DUE_BEFORE_DATE}'="" FDA(2,"+1,",.3859)={"DENTAL_APPL_DUE_BEFORE_DATE"} set:{PENSION_INDICATOR_LOCK}'="" FDA(2,"+1,",.386)={"PENSION_INDICATOR_LOCK"} set:{PENSION_AWARD_LOCK}'="" FDA(2,"+1,",.3861)={"PENSION_AWARD_LOCK"} set:{VETERAN_CATASTROPHICALLY_DISABLED}'="" FDA(2,"+1,",.39)={"VETERAN_CATASTROPHICALLY_DISABLED"} set:{DECIDED_BY}'="" FDA(2,"+1,",.391)={"DECIDED_BY"} set:{DATE_OF_DECISION}'="" FDA(2,"+1,",.392)={"DATE_OF_DECISION"} set:{FACILITY_MAKING_DETERMINATION}'="" FDA(2,"+1,",.393)={"FACILITY_MAKING_DETERMINATION"} set:{REVIEW_DATE}'="" FDA(2,"+1,",.394)={"REVIEW_DATE"} set:{METHOD_OF_DETERMINATION}'="" FDA(2,"+1,",.395)={"METHOD_OF_DETERMINATION"} set:{DATE_VETERAN_REQUESTED_CD_EVAL}'="" FDA(2,"+1,",.3951)={"DATE_VETERAN_REQUESTED_CD_EVAL"} set:{DATE_FACILITY_INITIATED_REVIEW}'="" FDA(2,"+1,",.3952)={"DATE_FACILITY_INITIATED_REVIEW"} set:{DATE_VETERAN_WAS_NOTIFIED}'="" FDA(2,"+1,",.3953)={"DATE_VETERAN_WAS_NOTIFIED"} set:{IN_USE_NODE__TIME}'="" FDA(2,"+1,",.4002)={"IN_USE_NODE__TIME"} set:{POW_STATUS_INDICATED}'="" FDA(2,"+1,",.525)={"POW_STATUS_INDICATED"} set:{POW_CONFINEMENT_LOCATION}'="" FDA(2,"+1,",.526)={"POW_CONFINEMENT_LOCATION"} set:{POW_FROM_DATE}'="" FDA(2,"+1,",.527)={"POW_FROM_DATE"} set:{POW_TO_DATE}'="" FDA(2,"+1,",.528)={"POW_TO_DATE"} set:{POW_STATUS_VERIFIED}'="" FDA(2,"+1,",.529)={"POW_STATUS_VERIFIED"} set:{COMBAT_SERVICE_INDICATED}'="" FDA(2,"+1,",.5291)={"COMBAT_SERVICE_INDICATED"} set:{COMBAT_SERVICE_LOCATION}'="" FDA(2,"+1,",.5292)={"COMBAT_SERVICE_LOCATION"} set:{COMBAT_FROM_DATE}'="" FDA(2,"+1,",.5293)={"COMBAT_FROM_DATE"} set:{COMBAT_TO_DATE}'="" FDA(2,"+1,",.5294)={"COMBAT_TO_DATE"} set:{COMBAT_VETERAN_END_DATE}'="" FDA(2,"+1,",.5295)={"COMBAT_VETERAN_END_DATE"} set:{CV_DATE_EDITED}'="" FDA(2,"+1,",.5296)={"CV_DATE_EDITED"} set:{CURRENT_PH_INDICATOR}'="" FDA(2,"+1,",.531)={"CURRENT_PH_INDICATOR"} set:{CURRENT_PURPLE_HEART_STATUS}'="" FDA(2,"+1,",.532)={"CURRENT_PURPLE_HEART_STATUS"} set:{CURRENT_PURPLE_HEART_REMARKS}'="" FDA(2,"+1,",.533)={"CURRENT_PURPLE_HEART_REMARKS"} set:{PH_DIVISION}'="" FDA(2,"+1,",.535)={"PH_DIVISION"} set:{CURRENT_MOH_INDICATOR}'="" FDA(2,"+1,",.541)={"CURRENT_MOH_INDICATOR"} set:{MOH_AWARD_DATE}'="" FDA(2,"+1,",.542)={"MOH_AWARD_DATE"} set:{MOH_STATUS_DATE}'="" FDA(2,"+1,",.543)={"MOH_STATUS_DATE"} set:{MOH_COPAYMENT_EXEMPTION_DATE}'="" FDA(2,"+1,",.544)={"MOH_COPAYMENT_EXEMPTION_DATE"} set:{EXPANDED_MH_CARE_TYPE}'="" FDA(2,"+1,",.5501)={"EXPANDED_MH_CARE_TYPE"} set:{AUTOMATIC_CHANGE_DATE}'="" FDA(2,"+1,",.5502)={"AUTOMATIC_CHANGE_DATE"} set:{PRESUMPTIVE_PSYCHOSIS_CATEGORY}'="" FDA(2,"+1,",.5601)={"PRESUMPTIVE_PSYCHOSIS_CATEGORY"} set:{INDIAN_SELF_IDENTIFICATION}'="" FDA(2,"+1,",.571)={"INDIAN_SELF_IDENTIFICATION"} set:{INDIAN_START_DATE}'="" FDA(2,"+1,",.572)={"INDIAN_START_DATE"} set:{INDIAN_ATTESTATION_DATE}'="" FDA(2,"+1,",.573)={"INDIAN_ATTESTATION_DATE"} set:{INDIAN_END_DATE}'="" FDA(2,"+1,",.574)={"INDIAN_END_DATE"} set:{INDIAN_SELF_IDENT_CHANGE_DTTM}'="" FDA(2,"+1,",.575)={"INDIAN_SELF_IDENT_CHANGE_DTTM"} set:{INDIAN_SELF_IDENT_CHANGE_USER}'="" FDA(2,"+1,",.576)={"INDIAN_SELF_IDENT_CHANGE_USER"} set:{TEST_PATIENT_INDICATOR}'="" FDA(2,"+1,",.6)={"TEST_PATIENT_INDICATOR"} set:{RESERVED__9__SLC}'="" FDA(2,"+1,",.91)={"RESERVED__9__SLC"} set:{NAME_COMPONENTS}'="" FDA(2,"+1,",1.01)={"NAME_COMPONENTS"} set:{KNAME_COMPONENTS}'="" FDA(2,"+1,",1.02)={"KNAME_COMPONENTS"} set:{K2NAME_COMPONENTS}'="" FDA(2,"+1,",1.03)={"K2NAME_COMPONENTS"} set:{FATHERS_NAME_COMPONENTS}'="" FDA(2,"+1,",1.04)={"FATHERS_NAME_COMPONENTS"} set:{MOTHERS_NAME_COMPONENTS}'="" FDA(2,"+1,",1.05)={"MOTHERS_NAME_COMPONENTS"} set:{MOTHERS_MAIDEN_NAME_COMPONENTS}'="" FDA(2,"+1,",1.06)={"MOTHERS_MAIDEN_NAME_COMPONENTS"} set:{ENAME_COMPONENTS}'="" FDA(2,"+1,",1.07)={"ENAME_COMPONENTS"} set:{E2NAME_COMPONENTS}'="" FDA(2,"+1,",1.08)={"E2NAME_COMPONENTS"} set:{DNAME_COMPONENTS}'="" FDA(2,"+1,",1.09)={"DNAME_COMPONENTS"} set:{HL_DATE_CHARGED}'="" FDA(2,"+1,",12)={"HL_DATE_CHARGED"} set:{HL_TIME_CHARGED}'="" FDA(2,"+1,",13)={"HL_TIME_CHARGED"} set:{HL_USER}'="" FDA(2,"+1,",14)={"HL_USER"} set:{HL_SPECIAL_NOTE}'="" FDA(2,"+1,",15)={"HL_SPECIAL_NOTE"} set:{HL_RESERVED1}'="" FDA(2,"+1,",16)={"HL_RESERVED1"} set:{HL_RESERVER2}'="" FDA(2,"+1,",17)={"HL_RESERVER2"} set:{HL_HOSPITAL_LOCATION}'="" FDA(2,"+1,",18)={"HL_HOSPITAL_LOCATION"} set:{HL_PROVIDER}'="" FDA(2,"+1,",19)={"HL_PROVIDER"} set:{HL_OTHER_LOCATION}'="" FDA(2,"+1,",20)={"HL_OTHER_LOCATION"} set:{HL_OFFSTATION_LOCATION}'="" FDA(2,"+1,",21)={"HL_OFFSTATION_LOCATION"} set:{HL_LOCATION_PHONE}'="" FDA(2,"+1,",23)={"HL_LOCATION_PHONE"} set:{CL_DATE_CHARGED}'="" FDA(2,"+1,",24)={"CL_DATE_CHARGED"} set:{CL_TIME_CHARGED}'="" FDA(2,"+1,",25)={"CL_TIME_CHARGED"} set:{CL_USER}'="" FDA(2,"+1,",26)={"CL_USER"} set:{CL_SPECIAL_NOTE}'="" FDA(2,"+1,",27)={"CL_SPECIAL_NOTE"} set:{CURRENT_ENROLLMENT}'="" FDA(2,"+1,",27.01)={"CURRENT_ENROLLMENT"} set:{PREFERRED_FACILITY}'="" FDA(2,"+1,",27.02)={"PREFERRED_FACILITY"} set:{SOURCE_DESIGNATION}'="" FDA(2,"+1,",27.03)={"SOURCE_DESIGNATION"} set:{PT_APPLIED_FOR_ENROLLMENT}'="" FDA(2,"+1,",27.04)={"PT_APPLIED_FOR_ENROLLMENT"} set:{CL_PRIORITY}'="" FDA(2,"+1,",28)={"CL_PRIORITY"} set:{CL_DATE_NEEDED}'="" FDA(2,"+1,",29)={"CL_DATE_NEEDED"} set:{CL_HOSPITAL_LOCATION}'="" FDA(2,"+1,",30)={"CL_HOSPITAL_LOCATION"} set:{CL_PROVIDER}'="" FDA(2,"+1,",31)={"CL_PROVIDER"} set:{CL_OTHER_LOCATION}'="" FDA(2,"+1,",32)={"CL_OTHER_LOCATION"} set:{CL_OFFSTATION_LOCATION}'="" FDA(2,"+1,",33)={"CL_OFFSTATION_LOCATION"} set:{CL_LOCATION_PHONE}'="" FDA(2,"+1,",34)={"CL_LOCATION_PHONE"} set:{REACTIONS}'="" FDA(2,"+1,",53)={"REACTIONS"} set:{HEIGHTCM}'="" FDA(2,"+1,",57.1)={"HEIGHTCM"} set:{WEIGHTKG}'="" FDA(2,"+1,",57.2)={"WEIGHTKG"} set:{SMOKER}'="" FDA(2,"+1,",57.3)={"SMOKER"} set:{SPINAL_CORD_INJURY}'="" FDA(2,"+1,",57.4)={"SPINAL_CORD_INJURY"} set:{HEPATITIS}'="" FDA(2,"+1,",57.5)={"HEPATITIS"} set:{AIDS}'="" FDA(2,"+1,",57.6)={"AIDS"} set:{LABORATORY_REFERENCE}'="" FDA(2,"+1,",63)={"LABORATORY_REFERENCE"} set:{LAB_REFERRAL_REF}'="" FDA(2,"+1,",67)={"LAB_REFERRAL_REF"} set:{CNH_CURRENT}'="" FDA(2,"+1,",148)={"CNH_CURRENT"} set:{DENTAL_CLASSIFICATION}'="" FDA(2,"+1,",220)={"DENTAL_CLASSIFICATION"} set:{DENTAL_ELIGIBILITY_EXPIRATION}'="" FDA(2,"+1,",220.1)={"DENTAL_ELIGIBILITY_EXPIRATION"} set:{TYPE}'="" FDA(2,"+1,",391)={"TYPE"} set:{CONDITION}'="" FDA(2,"+1,",401.3)={"CONDITION"} set:{DATE_ENTERED_ON_SI_LIST}'="" FDA(2,"+1,",401.4)={"DATE_ENTERED_ON_SI_LIST"} set:{CURRENT_PC_PRACTITIONER}'="" FDA(2,"+1,",404.01)={"CURRENT_PC_PRACTITIONER"} set:{CURRENT_PC_TEAM}'="" FDA(2,"+1,",404.02)={"CURRENT_PC_TEAM"} set:{INTEGRATION_CONTROL_NUMBER}'="" FDA(2,"+1,",991.01)={"INTEGRATION_CONTROL_NUMBER"} set:{ICN_CHECKSUM}'="" FDA(2,"+1,",991.02)={"ICN_CHECKSUM"} set:{COORDINATING_MASTER_OF_RECORD}'="" FDA(2,"+1,",991.03)={"COORDINATING_MASTER_OF_RECORD"} set:{LOCALLY_ASSIGNED_ICN}'="" FDA(2,"+1,",991.04)={"LOCALLY_ASSIGNED_ICN"} set:{SUBSCRIPTION_CONTROL_NUMBER}'="" FDA(2,"+1,",991.05)={"SUBSCRIPTION_CONTROL_NUMBER"} set:{CMOR_ACTIVITY_SCORE}'="" FDA(2,"+1,",991.06)={"CMOR_ACTIVITY_SCORE"} set:{SCORE_CALCULATION_DATE}'="" FDA(2,"+1,",991.07)={"SCORE_CALCULATION_DATE"} set:{TEMPORARY_ID_NUMBER}'="" FDA(2,"+1,",991.08)={"TEMPORARY_ID_NUMBER"} set:{FOREIGN_ID_NUMBER}'="" FDA(2,"+1,",991.09)={"FOREIGN_ID_NUMBER"} set:{FULL_ICN}'="" FDA(2,"+1,",991.1)={"FULL_ICN"} set:{INDIVIDUAL_TAX_ID}'="" FDA(2,"+1,",991.11)={"INDIVIDUAL_TAX_ID"} set:{MULTIPLE_BIRTH_INDICATOR}'="" FDA(2,"+1,",994)={"MULTIPLE_BIRTH_INDICATOR"} set:{RECEIVED_VA_CARE_PREVIOUSLY}'="" FDA(2,"+1,",1010.15)={"RECEIVED_VA_CARE_PREVIOUSLY"} set:{MOST_RECENT_DATE_OF_CARE}'="" FDA(2,"+1,",1010.151)={"MOST_RECENT_DATE_OF_CARE"} set:{APPOINTMENT_REQUEST_DATE}'="" FDA(2,"+1,",1010.1511)={"APPOINTMENT_REQUEST_DATE"} set:{ORIGINAL_APPOINTMENT_REQUEST}'="" FDA(2,"+1,",1010.1512)={"ORIGINAL_APPOINTMENT_REQUEST"} set:{ORIGINAL_APPT_REQUEST_DATE}'="" FDA(2,"+1,",1010.1513)={"ORIGINAL_APPT_REQUEST_DATE"} set:{ORIG_APPT_REQUEST_CHG_DTTM}'="" FDA(2,"+1,",1010.1514)={"ORIG_APPT_REQUEST_CHG_DTTM"} set:{APPT_REQUEST_1010EZ_CHG_DTTM}'="" FDA(2,"+1,",1010.1515)={"APPT_REQUEST_1010EZ_CHG_DTTM"} set:{MOST_RECENT_LOCATION_OF_CARE}'="" FDA(2,"+1,",1010.152)={"MOST_RECENT_LOCATION_OF_CARE"} set:{f2ND_MOST_RECENT_DATE_OF_CARE}'="" FDA(2,"+1,",1010.153)={"f2ND_MOST_RECENT_DATE_OF_CARE"} set:{f2ND_MOST_RECENT_LOCATION}'="" FDA(2,"+1,",1010.154)={"f2ND_MOST_RECENT_LOCATION"} set:{MOST_RECENT_1010EZ}'="" FDA(2,"+1,",1010.156)={"MOST_RECENT_1010EZ"} set:{COMBAT_INDICATED_ON_1010EZ}'="" FDA(2,"+1,",1010.157)={"COMBAT_INDICATED_ON_1010EZ"} set:{DISABILITY_DISCHARGE_ON_1010EZ}'="" FDA(2,"+1,",1010.158)={"DISABILITY_DISCHARGE_ON_1010EZ"} set:{APPOINTMENT_REQUEST_ON_1010EZ}'="" FDA(2,"+1,",1010.159)={"APPOINTMENT_REQUEST_ON_1010EZ"} set:{APPOINTMENT_REQUEST_STATUS}'="" FDA(2,"+1,",1010.161)={"APPOINTMENT_REQUEST_STATUS"} set:{DATE_STATUS_LAST_EDITED}'="" FDA(2,"+1,",1010.162)={"DATE_STATUS_LAST_EDITED"} set:{APPOINTMENT_REQUEST_COMMENT}'="" FDA(2,"+1,",1010.163)={"APPOINTMENT_REQUEST_COMMENT"} set:{DATE_COMMENT_LAST_EDITED}'="" FDA(2,"+1,",1010.164)={"DATE_COMMENT_LAST_EDITED"} set:{RECEIVING_PENSION}'="" FDA(2,"+1,",1010.3)={"RECEIVING_PENSION"} set:{FUGITIVE_FELON_FLAG}'="" FDA(2,"+1,",1100.01)={"FUGITIVE_FELON_FLAG"} set:{FFF_ENTERED_BY}'="" FDA(2,"+1,",1100.02)={"FFF_ENTERED_BY"} set:{FFF_DATE_ENTERED}'="" FDA(2,"+1,",1100.03)={"FFF_DATE_ENTERED"} set:{FFF_REMOVED_BY}'="" FDA(2,"+1,",1100.04)={"FFF_REMOVED_BY"} set:{FFF_DATE_REMOVED}'="" FDA(2,"+1,",1100.05)={"FFF_DATE_REMOVED"} set:{FFF_REMOVAL_REMARKS}'="" FDA(2,"+1,",1100.09)={"FFF_REMOVAL_REMARKS"} set:{VETERAN_YN}'="" FDA(2,"+1,",1901)={"VETERAN_YN"} set:{PAT_NO}'="" FDA(2,"+1,",1904)={"PAT_NO"} set:{NURSE_STATION}'="" FDA(2,"+1,",1905)={"NURSE_STATION"} set:{NUMERIC1906}'="" FDA(2,"+1,",1906)={"NUMERIC1906"} set:{DR}'="" FDA(2,"+1,",1907)={"DR"} set:{DATE_LAST_EICD_RUN}'="" FDA(2,"+1,",2001)={"DATE_LAST_EICD_RUN"} set:{VTS_PATIENT_FLAG}'="" FDA(2,"+1,",3000)={"VTS_PATIENT_FLAG"} set:{INITIAL_ODS_TREATMENT_RECEIVED}'="" FDA(2,"+1,",11500.01)={"INITIAL_ODS_TREATMENT_RECEIVED"} set:{RECALLED_TO_ACTIVE_DUTY}'="" FDA(2,"+1,",11500.02)={"RECALLED_TO_ACTIVE_DUTY"} set:{RANK}'="" FDA(2,"+1,",11500.03)={"RANK"} set:{NETWORK_IDENTIFIER}'="" FDA(2,"+1,",537025)={"NETWORK_IDENTIFIER"} set:{MHV_REGISTERED}'="" FDA(2,"+1,",537027)={"MHV_REGISTERED"} set:{MHV_AUTHENTICATED}'="" FDA(2,"+1,",537028)={"MHV_AUTHENTICATED"} set:{MHV_SECURE_MESSAGING}'="" FDA(2,"+1,",537029)={"MHV_SECURE_MESSAGING"} set:{MHVREG_UPDATE_DATETIME}'="" FDA(2,"+1,",537030)={"MHVREG_UPDATE_DATETIME"} set:{MHVAUTH_UPDATE_DATETIME}'="" FDA(2,"+1,",537031)={"MHVAUTH_UPDATE_DATETIME"} set:{MHVSM_UPDATE_DATETIME}'="" FDA(2,"+1,",537032)={"MHVSM_UPDATE_DATETIME"} set:{MHV_REGISTER_DECLINED_TEXT}'="" FDA(2,"+1,",537033)={"MHV_REGISTER_DECLINED_TEXT"} set:{MHV_AUTH_DECLINED_TEXT}'="" FDA(2,"+1,",537034)={"MHV_AUTH_DECLINED_TEXT"} set:{MHV_MSG_DECLINED_TEXT}'="" FDA(2,"+1,",537035)={"MHV_MSG_DECLINED_TEXT"} set:{MHV_REGISTER_DECLINED_REASON}'="" FDA(2,"+1,",537036)={"MHV_REGISTER_DECLINED_REASON"} set:{MHV_AUTH_DECLINED_REASON}'="" FDA(2,"+1,",537037)={"MHV_AUTH_DECLINED_REASON"} set:{MHV_MSG_DECLINED_REASON}'="" FDA(2,"+1,",537038)={"MHV_MSG_DECLINED_REASON"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(2)") set %SkipFiling=1 if $d(%FMERR(2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {MISSING_OR_INELIGIBLE}'="" { set D0={RowId} for i=1:1:$l({MISSING_OR_INELIGIBLE},$c(13,10)) { set wp(i)=$p({MISSING_OR_INELIGIBLE},$c(13,10),i) } do WP^DIE(2,{RowId},.16,,"wp","%FMERR(2)") if $d(%FMERR(2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(2,IENS,.01)={NAME} set:{SEX*C} FDA(2,IENS,.02)={SEX} set:{SELF_IDENTIFIED_GENDER*C} FDA(2,IENS,.024)={SELF_IDENTIFIED_GENDER} set:{SEXUAL_ORIENTATION_DESCRIPTION*C} FDA(2,IENS,.0251)={SEXUAL_ORIENTATION_DESCRIPTION} set:{DATE_OF_BIRTH*C} FDA(2,IENS,.03)={DATE_OF_BIRTH} set:{EMPLOYMENT_STATUS*C} FDA(2,IENS,.04)={EMPLOYMENT_STATUS} set:{MARITAL_STATUS*C} FDA(2,IENS,.05)={MARITAL_STATUS} set:{RACE*C} FDA(2,IENS,.06)={RACE} set:{OCCUPATION*C} FDA(2,IENS,.07)={OCCUPATION} set:{RELIGIOUS_PREFERENCE*C} FDA(2,IENS,.08)={RELIGIOUS_PREFERENCE} set:{DUPLICATE_STATUS*C} FDA(2,IENS,.081)={DUPLICATE_STATUS} set:{PATIENT_MERGED_TO*C} FDA(2,IENS,.082)={PATIENT_MERGED_TO} set:{CHECK_FOR_DUPLICATE*C} FDA(2,IENS,.083)={CHECK_FOR_DUPLICATE} set:{SOCIAL_SECURITY_NUMBER*C} FDA(2,IENS,.09)={SOCIAL_SECURITY_NUMBER} set:{PSEUDO_SSN_REASON*C} FDA(2,IENS,.0906)={PSEUDO_SSN_REASON} set:{SSN_VERIFICATION_STATUS*C} FDA(2,IENS,.0907)={SSN_VERIFICATION_STATUS} set:{REMARKS*C} FDA(2,IENS,.091)={REMARKS} set:{PLACE_OF_BIRTH_CITY*C} FDA(2,IENS,.092)={PLACE_OF_BIRTH_CITY} set:{PLACE_OF_BIRTH_STATE*C} FDA(2,IENS,.093)={PLACE_OF_BIRTH_STATE} set:{PLACE_OF_BIRTH_COUNTRY*C} FDA(2,IENS,.0931)={PLACE_OF_BIRTH_COUNTRY} set:{PLACE_OF_BIRTH_PROVINCE*C} FDA(2,IENS,.0932)={PLACE_OF_BIRTH_PROVINCE} set:{WHO_ENTERED_PATIENT*C} FDA(2,IENS,.096)={WHO_ENTERED_PATIENT} set:{DATE_ENTERED_INTO_FILE*C} FDA(2,IENS,.097)={DATE_ENTERED_INTO_FILE} set:{HOW_WAS_PATIENT_ENTERED*C} FDA(2,IENS,.098)={HOW_WAS_PATIENT_ENTERED} set:{ROOMBED*C} FDA(2,IENS,.101)={ROOMBED} set:{CURRENT_MOVEMENT*C} FDA(2,IENS,.102)={CURRENT_MOVEMENT} set:{TREATING_SPECIALTY*C} FDA(2,IENS,.103)={TREATING_SPECIALTY} set:{PROVIDER*C} FDA(2,IENS,.104)={PROVIDER} set:{ATTENDING_PHYSICIAN*C} FDA(2,IENS,.1041)={ATTENDING_PHYSICIAN} set:{CURRENT_ADMISSION*C} FDA(2,IENS,.105)={CURRENT_ADMISSION} set:{LAST_DMMS_EPISODE_NUMBER*C} FDA(2,IENS,.106)={LAST_DMMS_EPISODE_NUMBER} set:{LODGER_WARD_LOCATION*C} FDA(2,IENS,.107)={LODGER_WARD_LOCATION} set:{CURRENT_ROOM*C} FDA(2,IENS,.108)={CURRENT_ROOM} set:{EXCLUDE_FROM_FACILITY_DIR*C} FDA(2,IENS,.109)={EXCLUDE_FROM_FACILITY_DIR} set:{STREET_ADDRESS_LINE_1*C} FDA(2,IENS,.111)={STREET_ADDRESS_LINE_1} set:{ZIP4*C} FDA(2,IENS,.1112)={ZIP4} set:{STREET_ADDRESS_CASS_IND*C} FDA(2,IENS,.1118)={STREET_ADDRESS_CASS_IND} set:{STREET_ADDRESS_LINE_2*C} FDA(2,IENS,.112)={STREET_ADDRESS_LINE_2} set:{STREET_ADDRESS_LINE_3*C} FDA(2,IENS,.113)={STREET_ADDRESS_LINE_3} set:{CITY*C} FDA(2,IENS,.114)={CITY} set:{STATE*C} FDA(2,IENS,.115)={STATE} set:{RESIDENTIAL_ADDRESS_LINE_1*C} FDA(2,IENS,.1151)={RESIDENTIAL_ADDRESS_LINE_1} set:{RESIDENTIAL_ADDRESS_LINE_2*C} FDA(2,IENS,.1152)={RESIDENTIAL_ADDRESS_LINE_2} set:{RESIDENTIAL_ADDRESS_LINE_3*C} FDA(2,IENS,.1153)={RESIDENTIAL_ADDRESS_LINE_3} set:{RESIDENTIAL_CITY*C} FDA(2,IENS,.1154)={RESIDENTIAL_CITY} set:{RESIDENTIAL_STATE*C} FDA(2,IENS,.1155)={RESIDENTIAL_STATE} set:{RESIDENTIAL_ZIP4*C} FDA(2,IENS,.1156)={RESIDENTIAL_ZIP4} set:{RESIDENTIAL_COUNTY*C} FDA(2,IENS,.1157)={RESIDENTIAL_COUNTY} set:{RESIDENTIAL_PROVINCE*C} FDA(2,IENS,.11571)={RESIDENTIAL_PROVINCE} set:{RESIDENTIAL_POSTAL_CODE*C} FDA(2,IENS,.11572)={RESIDENTIAL_POSTAL_CODE} set:{RESIDENTIAL_COUNTRY*C} FDA(2,IENS,.11573)={RESIDENTIAL_COUNTRY} set:{RESIDENTIAL_ADDR_CHANGE_DTTM*C} FDA(2,IENS,.1158)={RESIDENTIAL_ADDR_CHANGE_DTTM} set:{RESIDENTIAL_ADDR_CHANGE_SITE*C} FDA(2,IENS,.11581)={RESIDENTIAL_ADDR_CHANGE_SITE} set:{RESIDENTIAL_ADDR_CHANGE_SOURCE*C} FDA(2,IENS,.11582)={RESIDENTIAL_ADDR_CHANGE_SOURCE} set:{RESIDENTIAL_ADDR_CHANGE_USER*C} FDA(2,IENS,.11583)={RESIDENTIAL_ADDR_CHANGE_USER} set:{RESIDENTIAL_ADDR_CASS_IND*C} FDA(2,IENS,.1159)={RESIDENTIAL_ADDR_CASS_IND} set:{ZIP_CODE*C} FDA(2,IENS,.116)={ZIP_CODE} set:{COUNTY*C} FDA(2,IENS,.117)={COUNTY} set:{PROVINCE*C} FDA(2,IENS,.1171)={PROVINCE} set:{POSTAL_CODE*C} FDA(2,IENS,.1172)={POSTAL_CODE} set:{COUNTRY*C} FDA(2,IENS,.1173)={COUNTRY} set:{ADDRESS_CHANGE_DTTM*C} FDA(2,IENS,.118)={ADDRESS_CHANGE_DTTM} set:{LEGAL_RESIDENCE*C} FDA(2,IENS,.1181)={LEGAL_RESIDENCE} set:{LEGAL_RESIDENCE_2*C} FDA(2,IENS,.1182)={LEGAL_RESIDENCE_2} set:{LEGAL_RESIDENCE_3*C} FDA(2,IENS,.1183)={LEGAL_RESIDENCE_3} set:{LEGAL_RESIDENCE_CITY*C} FDA(2,IENS,.1184)={LEGAL_RESIDENCE_CITY} set:{LEGAL_RESIDENCE_STATE*C} FDA(2,IENS,.1185)={LEGAL_RESIDENCE_STATE} set:{LEGAL_RESIDENCE_ZIP*C} FDA(2,IENS,.1186)={LEGAL_RESIDENCE_ZIP} set:{LEGAL_RESIDENCE_COUNTY*C} FDA(2,IENS,.1187)={LEGAL_RESIDENCE_COUNTY} set:{ADDRESS_CHANGE_SOURCE*C} FDA(2,IENS,.119)={ADDRESS_CHANGE_SOURCE} set:{ADDRESS_CHANGE_SITE*C} FDA(2,IENS,.12)={ADDRESS_CHANGE_SITE} set:{BAD_ADDRESS_INDICATOR*C} FDA(2,IENS,.121)={BAD_ADDRESS_INDICATOR} set:{TEMPORARY_ADDRESS_ACTIVE*C} FDA(2,IENS,.12105)={TEMPORARY_ADDRESS_ACTIVE} set:{TEMPORARY_STREET_LINE_1*C} FDA(2,IENS,.1211)={TEMPORARY_STREET_LINE_1} set:{TEMPORARY_ADDRESS_COUNTY*C} FDA(2,IENS,.12111)={TEMPORARY_ADDRESS_COUNTY} set:{TEMPORARY_ZIP4*C} FDA(2,IENS,.12112)={TEMPORARY_ZIP4} set:{TEMPORARY_ADDRESS_CHANGE_DTTM*C} FDA(2,IENS,.12113)={TEMPORARY_ADDRESS_CHANGE_DTTM} set:{TEMPORARY_ADDRESS_CHANGE_SITE*C} FDA(2,IENS,.12114)={TEMPORARY_ADDRESS_CHANGE_SITE} set:{TEMPORARY_ADDR_CASS_IND*C} FDA(2,IENS,.12115)={TEMPORARY_ADDR_CASS_IND} set:{TEMPORARY_STREET_LINE_2*C} FDA(2,IENS,.1212)={TEMPORARY_STREET_LINE_2} set:{TEMPORARY_STREET_LINE_3*C} FDA(2,IENS,.1213)={TEMPORARY_STREET_LINE_3} set:{TEMPORARY_CITY*C} FDA(2,IENS,.1214)={TEMPORARY_CITY} set:{TEMPORARY_STATE*C} FDA(2,IENS,.1215)={TEMPORARY_STATE} set:{TEMPORARY_ZIP_CODE*C} FDA(2,IENS,.1216)={TEMPORARY_ZIP_CODE} set:{TEMPORARY_ADDRESS_START_DATE*C} FDA(2,IENS,.1217)={TEMPORARY_ADDRESS_START_DATE} set:{TEMPORARY_ADDRESS_END_DATE*C} FDA(2,IENS,.1218)={TEMPORARY_ADDRESS_END_DATE} set:{TEMPORARY_PHONE_NUMBER*C} FDA(2,IENS,.1219)={TEMPORARY_PHONE_NUMBER} set:{ADDRESS_CHANGE_USER*C} FDA(2,IENS,.122)={ADDRESS_CHANGE_USER} set:{TEMPORARY_ADDRESS_PROVINCE*C} FDA(2,IENS,.1221)={TEMPORARY_ADDRESS_PROVINCE} set:{TEMPORARY_ADDRESS_POSTAL_CODE*C} FDA(2,IENS,.1222)={TEMPORARY_ADDRESS_POSTAL_CODE} set:{TEMPORARY_ADDRESS_COUNTRY*C} FDA(2,IENS,.1223)={TEMPORARY_ADDRESS_COUNTRY} set:{PRIOR_ADDRESS_3*C} FDA(2,IENS,.123)={PRIOR_ADDRESS_3} set:{PRIOR_CITY*C} FDA(2,IENS,.124)={PRIOR_CITY} set:{PRIOR_STATE*C} FDA(2,IENS,.125)={PRIOR_STATE} set:{PRIOR_ZIP*C} FDA(2,IENS,.126)={PRIOR_ZIP} set:{PRIOR_COUNTY*C} FDA(2,IENS,.127)={PRIOR_COUNTY} set:{PHONE_NUMBER_RESIDENCE*C} FDA(2,IENS,.131)={PHONE_NUMBER_RESIDENCE} set:{CELLULAR_NUMBER_CHANGE_SOURCE*C} FDA(2,IENS,.1311)={CELLULAR_NUMBER_CHANGE_SOURCE} set:{CELLULAR_NUMBER_CHANGE_SITE*C} FDA(2,IENS,.13111)={CELLULAR_NUMBER_CHANGE_SITE} set:{PAGER_NUMBER_CHANGE_DTTM*C} FDA(2,IENS,.1312)={PAGER_NUMBER_CHANGE_DTTM} set:{PAGER_NUMBER_CHANGE_SOURCE*C} FDA(2,IENS,.1313)={PAGER_NUMBER_CHANGE_SOURCE} set:{PAGER_NUMBER_CHANGE_SITE*C} FDA(2,IENS,.1314)={PAGER_NUMBER_CHANGE_SITE} set:{CONFIDENTIAL_PHONE_NUMBER*C} FDA(2,IENS,.1315)={CONFIDENTIAL_PHONE_NUMBER} set:{EMAIL_ADDRESS_INDICATOR*C} FDA(2,IENS,.1316)={EMAIL_ADDRESS_INDICATOR} set:{EMAIL_ADDRESS_INDICATOR_DTTM*C} FDA(2,IENS,.1317)={EMAIL_ADDRESS_INDICATOR_DTTM} set:{EMAIL_ADDRESS_CHANGE_USER*C} FDA(2,IENS,.1318)={EMAIL_ADDRESS_CHANGE_USER} set:{CELLULAR_NUMBER_CHANGE_USER*C} FDA(2,IENS,.1319)={CELLULAR_NUMBER_CHANGE_USER} set:{PHONE_NUMBER_WORK*C} FDA(2,IENS,.132)={PHONE_NUMBER_WORK} set:{RESIDENCE_NUMBER_CHANGE_DTTM*C} FDA(2,IENS,.1321)={RESIDENCE_NUMBER_CHANGE_DTTM} set:{RESIDENCE_NUMBER_CHANGE_SOURCE*C} FDA(2,IENS,.1322)={RESIDENCE_NUMBER_CHANGE_SOURCE} set:{RESIDENCE_NUMBER_CHANGE_SITE*C} FDA(2,IENS,.1323)={RESIDENCE_NUMBER_CHANGE_SITE} set:{RESIDENCE_NUMBER_CHANGE_USER*C} FDA(2,IENS,.1324)={RESIDENCE_NUMBER_CHANGE_USER} set:{PHONE_WORK_CHANGE_USER*C} FDA(2,IENS,.1325)={PHONE_WORK_CHANGE_USER} set:{PHONE_WORK_CHANGE_DTTM*C} FDA(2,IENS,.1326)={PHONE_WORK_CHANGE_DTTM} set:{EMAIL_ADDRESS*C} FDA(2,IENS,.133)={EMAIL_ADDRESS} set:{PHONE_NUMBER_CELLULAR*C} FDA(2,IENS,.134)={PHONE_NUMBER_CELLULAR} set:{PAGER_NUMBER*C} FDA(2,IENS,.135)={PAGER_NUMBER} set:{EMAIL_ADDRESS_CHANGE_DTTM*C} FDA(2,IENS,.136)={EMAIL_ADDRESS_CHANGE_DTTM} set:{EMAIL_ADDRESS_CHANGE_SOURCE*C} FDA(2,IENS,.137)={EMAIL_ADDRESS_CHANGE_SOURCE} set:{EMAIL_ADDRESS_CHANGE_SITE*C} FDA(2,IENS,.138)={EMAIL_ADDRESS_CHANGE_SITE} set:{CELLULAR_NUMBER_CHANGE_DTTM*C} FDA(2,IENS,.139)={CELLULAR_NUMBER_CHANGE_DTTM} set:{CURRENT_MEANS_TEST_STATUS*C} FDA(2,IENS,.14)={CURRENT_MEANS_TEST_STATUS} set:{CONFIDENTIAL_ADDRESS_ACTIVE*C} FDA(2,IENS,.14105)={CONFIDENTIAL_ADDRESS_ACTIVE} set:{CONFIDENTIAL_STREET_LINE_1*C} FDA(2,IENS,.1411)={CONFIDENTIAL_STREET_LINE_1} set:{CONFIDENTIAL_ADDRESS_COUNTY*C} FDA(2,IENS,.14111)={CONFIDENTIAL_ADDRESS_COUNTY} set:{CONFIDENTIAL_ADDR_CHANGE_DTTM*C} FDA(2,IENS,.14112)={CONFIDENTIAL_ADDR_CHANGE_DTTM} set:{CONFIDENTIAL_ADDR_CHANGE_SITE*C} FDA(2,IENS,.14113)={CONFIDENTIAL_ADDR_CHANGE_SITE} set:{CONFIDENTIAL_ADDR_PROVINCE*C} FDA(2,IENS,.14114)={CONFIDENTIAL_ADDR_PROVINCE} set:{CONFIDENTIAL_ADDR_POSTAL_CODE*C} FDA(2,IENS,.14115)={CONFIDENTIAL_ADDR_POSTAL_CODE} set:{CONFIDENTIAL_ADDR_COUNTRY*C} FDA(2,IENS,.14116)={CONFIDENTIAL_ADDR_COUNTRY} set:{CONFIDENTIAL_ADDR_CASS_IND*C} FDA(2,IENS,.14117)={CONFIDENTIAL_ADDR_CASS_IND} set:{CONFIDENTIAL_ADDR_CHANGE_USER*C} FDA(2,IENS,.14118)={CONFIDENTIAL_ADDR_CHANGE_USER} set:{CONFIDENTIAL_PHONE_CHANGE_USER*C} FDA(2,IENS,.14119)={CONFIDENTIAL_PHONE_CHANGE_USER} set:{CONFIDENTIAL_STREET_LINE_2*C} FDA(2,IENS,.1412)={CONFIDENTIAL_STREET_LINE_2} set:{CONFIDENTIAL_STREET_LINE_3*C} FDA(2,IENS,.1413)={CONFIDENTIAL_STREET_LINE_3} set:{CONFIDENTIAL_ADDRESS_CITY*C} FDA(2,IENS,.1414)={CONFIDENTIAL_ADDRESS_CITY} set:{CONFIDENTIAL_ADDRESS_STATE*C} FDA(2,IENS,.1415)={CONFIDENTIAL_ADDRESS_STATE} set:{CONFIDENTIAL_ADDRESS_ZIP_CODE*C} FDA(2,IENS,.1416)={CONFIDENTIAL_ADDRESS_ZIP_CODE} set:{CONFIDENTIAL_START_DATE*C} FDA(2,IENS,.1417)={CONFIDENTIAL_START_DATE} set:{CONFIDENTIAL_END_DATE*C} FDA(2,IENS,.1418)={CONFIDENTIAL_END_DATE} set:{ADMISSION_DENIAL_DATE*C} FDA(2,IENS,.151)={ADMISSION_DENIAL_DATE} set:{ADMISSION_DENIAL_CHART*C} FDA(2,IENS,.1512)={ADMISSION_DENIAL_CHART} set:{INELIGIBLE_DATE*C} FDA(2,IENS,.152)={INELIGIBLE_DATE} set:{MISSING_PERSON_DATE*C} FDA(2,IENS,.153)={MISSING_PERSON_DATE} set:{INELIGIBLE_TWX_SOURCE*C} FDA(2,IENS,.1651)={INELIGIBLE_TWX_SOURCE} set:{TWX_SOURCE_ROINELIGIBLE*C} FDA(2,IENS,.1652)={TWX_SOURCE_ROINELIGIBLE} set:{INELIGIBLE_TWX_CITY*C} FDA(2,IENS,.1653)={INELIGIBLE_TWX_CITY} set:{INELIGIBLE_TWX_STATE*C} FDA(2,IENS,.1654)={INELIGIBLE_TWX_STATE} set:{TWX_SOURCE_RPCINELIGIBLE*C} FDA(2,IENS,.1655)={TWX_SOURCE_RPCINELIGIBLE} set:{INELIGIBLE_VARO_DECISION*C} FDA(2,IENS,.1656)={INELIGIBLE_VARO_DECISION} set:{MISSING_PERSON_TWX_SOURCE*C} FDA(2,IENS,.1657)={MISSING_PERSON_TWX_SOURCE} set:{MISSING_PERSON_TWX_CITY*C} FDA(2,IENS,.1658)={MISSING_PERSON_TWX_CITY} set:{MISSING_PERSON_TWX_STATE*C} FDA(2,IENS,.1659)={MISSING_PERSON_TWX_STATE} set:{PUBLIC_LAW*C} FDA(2,IENS,.171)={PUBLIC_LAW} set:{FEE_HOSPITAL_I_D_*C} FDA(2,IENS,.172)={FEE_HOSPITAL_I_D_} set:{FEE_BASIS_FILE_LOCATION*C} FDA(2,IENS,.173)={FEE_BASIS_FILE_LOCATION} set:{FEE_BASIS_DISPOSITION*C} FDA(2,IENS,.174)={FEE_BASIS_DISPOSITION} set:{EMERGENCY_RESPONSE_INDICATOR*C} FDA(2,IENS,.181)={EMERGENCY_RESPONSE_INDICATOR} set:{HISTORIC_KATRINA_ERI*C} FDA(2,IENS,.182)={HISTORIC_KATRINA_ERI} set:{K2COUNTRY*C} FDA(2,IENS,.2101)={K2COUNTRY} set:{KWORK_PHONE_NUMBER*C} FDA(2,IENS,.21011)={KWORK_PHONE_NUMBER} set:{PRIMARY_NOK_CHANGE_DATETIME*C} FDA(2,IENS,.21012)={PRIMARY_NOK_CHANGE_DATETIME} set:{K2PROVINCE*C} FDA(2,IENS,.2102)={K2PROVINCE} set:{K2POSTAL_CODE*C} FDA(2,IENS,.2103)={K2POSTAL_CODE} set:{K2RELATIONSHIP_TYPE*C} FDA(2,IENS,.2104)={K2RELATIONSHIP_TYPE} set:{KNAME_OF_PRIMARY_NOK*C} FDA(2,IENS,.211)={KNAME_OF_PRIMARY_NOK} set:{K2WORK_PHONE_NUMBER*C} FDA(2,IENS,.211011)={K2WORK_PHONE_NUMBER} set:{SECONDARY_NOK_CHANGE_DATETIME*C} FDA(2,IENS,.211012)={SECONDARY_NOK_CHANGE_DATETIME} set:{KRELATIONSHIP_TO_PATIENT*C} FDA(2,IENS,.212)={KRELATIONSHIP_TO_PATIENT} set:{KADDRESS_SAME_AS_PATIENTS*C} FDA(2,IENS,.2125)={KADDRESS_SAME_AS_PATIENTS} set:{KSTREET_ADDRESS_LINE_1*C} FDA(2,IENS,.213)={KSTREET_ADDRESS_LINE_1} set:{KSTREET_ADDRESS_LINE_2*C} FDA(2,IENS,.214)={KSTREET_ADDRESS_LINE_2} set:{KSTREET_ADDRESS_LINE_3*C} FDA(2,IENS,.215)={KSTREET_ADDRESS_LINE_3} set:{KCITY*C} FDA(2,IENS,.216)={KCITY} set:{KSTATE*C} FDA(2,IENS,.217)={KSTATE} set:{KZIP_CODE*C} FDA(2,IENS,.218)={KZIP_CODE} set:{KPHONE_NUMBER*C} FDA(2,IENS,.219)={KPHONE_NUMBER} set:{K2NAME_OF_SECONDARY_NOK*C} FDA(2,IENS,.2191)={K2NAME_OF_SECONDARY_NOK} set:{K2RELATIONSHIP_TO_PATIENT*C} FDA(2,IENS,.2192)={K2RELATIONSHIP_TO_PATIENT} set:{K2ADDRESS_SAME_AS_PATIENTS*C} FDA(2,IENS,.21925)={K2ADDRESS_SAME_AS_PATIENTS} set:{K2STREET_ADDRESS_LINE_1*C} FDA(2,IENS,.2193)={K2STREET_ADDRESS_LINE_1} set:{K2STREET_ADDRESS_LINE_2*C} FDA(2,IENS,.2194)={K2STREET_ADDRESS_LINE_2} set:{K2STREET_ADDRESS_LINE_3*C} FDA(2,IENS,.2195)={K2STREET_ADDRESS_LINE_3} set:{K2CITY*C} FDA(2,IENS,.2196)={K2CITY} set:{K2STATE*C} FDA(2,IENS,.2197)={K2STATE} set:{K2ZIP_CODE*C} FDA(2,IENS,.2198)={K2ZIP_CODE} set:{K2PHONE_NUMBER*C} FDA(2,IENS,.2199)={K2PHONE_NUMBER} set:{EZIP4*C} FDA(2,IENS,.2201)={EZIP4} set:{DZIP4*C} FDA(2,IENS,.2202)={DZIP4} set:{K2ZIP4*C} FDA(2,IENS,.2203)={K2ZIP4} set:{E2ZIP4*C} FDA(2,IENS,.2204)={E2ZIP4} set:{EMPLOYER_ZIP4*C} FDA(2,IENS,.2205)={EMPLOYER_ZIP4} set:{SPOUSES_EMP_ZIP4*C} FDA(2,IENS,.2206)={SPOUSES_EMP_ZIP4} set:{KZIP4*C} FDA(2,IENS,.2207)={KZIP4} set:{KCOUNTRY*C} FDA(2,IENS,.221)={KCOUNTRY} set:{KPROVINCE*C} FDA(2,IENS,.222)={KPROVINCE} set:{KPOSTAL_CODE*C} FDA(2,IENS,.223)={KPOSTAL_CODE} set:{KRELATIONSHIP_TYPE*C} FDA(2,IENS,.224)={KRELATIONSHIP_TYPE} set:{SIGNIFICANT_OTHER_2*C} FDA(2,IENS,.2301)={SIGNIFICANT_OTHER_2} set:{FATHERS_NAME*C} FDA(2,IENS,.2401)={FATHERS_NAME} set:{MOTHERS_NAME*C} FDA(2,IENS,.2402)={MOTHERS_NAME} set:{MOTHERS_MAIDEN_NAME*C} FDA(2,IENS,.2403)={MOTHERS_MAIDEN_NAME} set:{PREFERRED_NAME*C} FDA(2,IENS,.2405)={PREFERRED_NAME} set:{PRONOUN_DESCRIPTION*C} FDA(2,IENS,.24061)={PRONOUN_DESCRIPTION} set:{SPOUSES_EMPLOYER_NAME*C} FDA(2,IENS,.251)={SPOUSES_EMPLOYER_NAME} set:{SPOUSES_OCCUPATION*C} FDA(2,IENS,.2514)={SPOUSES_OCCUPATION} set:{SPOUSES_EMPLOYMENT_STATUS*C} FDA(2,IENS,.2515)={SPOUSES_EMPLOYMENT_STATUS} set:{SPOUSES_RETIREMENT_DATE*C} FDA(2,IENS,.2516)={SPOUSES_RETIREMENT_DATE} set:{SPOUSES_EMP_STREET_LINE_1*C} FDA(2,IENS,.252)={SPOUSES_EMP_STREET_LINE_1} set:{SPOUSES_EMP_STREET_LINE_2*C} FDA(2,IENS,.253)={SPOUSES_EMP_STREET_LINE_2} set:{SPOUSES_EMP_STREET_LINE_3*C} FDA(2,IENS,.254)={SPOUSES_EMP_STREET_LINE_3} set:{SPOUSES_EMPLOYERS_CITY*C} FDA(2,IENS,.255)={SPOUSES_EMPLOYERS_CITY} set:{SPOUSES_EMPLOYERS_STATE*C} FDA(2,IENS,.256)={SPOUSES_EMPLOYERS_STATE} set:{SPOUSES_EMP_ZIP_CODE*C} FDA(2,IENS,.257)={SPOUSES_EMP_ZIP_CODE} set:{SPOUSES_EMP_PHONE_NUMBER*C} FDA(2,IENS,.258)={SPOUSES_EMP_PHONE_NUMBER} set:{ZIP4_CIVIL*C} FDA(2,IENS,.290012)={ZIP4_CIVIL} set:{ZIP4_VA*C} FDA(2,IENS,.29013)={ZIP4_VA} set:{DATE_RULED_INCOMPETENT_VA*C} FDA(2,IENS,.291)={DATE_RULED_INCOMPETENT_VA} set:{INSTITUTION_VA*C} FDA(2,IENS,.2911)={INSTITUTION_VA} set:{GUARDIAN_VA*C} FDA(2,IENS,.2912)={GUARDIAN_VA} set:{RELATIONSHIP_VA*C} FDA(2,IENS,.2913)={RELATIONSHIP_VA} set:{STREET_ADDRESS_1_VA*C} FDA(2,IENS,.2914)={STREET_ADDRESS_1_VA} set:{STREET_ADDRESS_2_VA*C} FDA(2,IENS,.2915)={STREET_ADDRESS_2_VA} set:{CITY_VA*C} FDA(2,IENS,.2916)={CITY_VA} set:{STATE_VA*C} FDA(2,IENS,.2917)={STATE_VA} set:{ZIP_VA*C} FDA(2,IENS,.2918)={ZIP_VA} set:{PHONE_VA*C} FDA(2,IENS,.2919)={PHONE_VA} set:{DATE_RULED_INCOMPETENT_CIVIL*C} FDA(2,IENS,.292)={DATE_RULED_INCOMPETENT_CIVIL} set:{INSTITUTION_CIVIL*C} FDA(2,IENS,.2921)={INSTITUTION_CIVIL} set:{GUARDIAN_CIVIL*C} FDA(2,IENS,.2922)={GUARDIAN_CIVIL} set:{RELATIONSHIP_CIVIL*C} FDA(2,IENS,.2923)={RELATIONSHIP_CIVIL} set:{STREET_ADDRESS_1_CIVIL*C} FDA(2,IENS,.2924)={STREET_ADDRESS_1_CIVIL} set:{STREET_ADDRESS_2_CIVIL*C} FDA(2,IENS,.2925)={STREET_ADDRESS_2_CIVIL} set:{CITY_CIVIL*C} FDA(2,IENS,.2926)={CITY_CIVIL} set:{STATE_CIVIL*C} FDA(2,IENS,.2927)={STATE_CIVIL} set:{ZIP_CIVIL*C} FDA(2,IENS,.2928)={ZIP_CIVIL} set:{PHONE_CIVIL*C} FDA(2,IENS,.2929)={PHONE_CIVIL} set:{RATED_INCOMPETENT*C} FDA(2,IENS,.293)={RATED_INCOMPETENT} set:{SERVICE_CONNECTED*C} FDA(2,IENS,.301)={SERVICE_CONNECTED} set:{SC_AWARD_DATE*C} FDA(2,IENS,.3012)={SC_AWARD_DATE} set:{PT_EFFECTIVE_DATE*C} FDA(2,IENS,.3013)={PT_EFFECTIVE_DATE} set:{EFF__DATE_COMBINED_SC_EVAL_*C} FDA(2,IENS,.3014)={EFF__DATE_COMBINED_SC_EVAL_} set:{SERVICE_CONNECTED_PERCENTAGE*C} FDA(2,IENS,.302)={SERVICE_CONNECTED_PERCENTAGE} set:{RECEIVING_VA_DISABILITY*C} FDA(2,IENS,.3025)={RECEIVING_VA_DISABILITY} set:{AMOUNT_OF_VA_DISABILITY*C} FDA(2,IENS,.303)={AMOUNT_OF_VA_DISABILITY} set:{PT*C} FDA(2,IENS,.304)={PT} set:{UNEMPLOYABLE*C} FDA(2,IENS,.305)={UNEMPLOYABLE} set:{MONETARY_BEN__VERIFY_DATE*C} FDA(2,IENS,.306)={MONETARY_BEN__VERIFY_DATE} set:{INELIGIBLE_REASON*C} FDA(2,IENS,.307)={INELIGIBLE_REASON} set:{AGENCYALLIED_COUNTRY*C} FDA(2,IENS,.309)={AGENCYALLIED_COUNTRY} set:{CATEGORY_OF_BENEFICIARY*C} FDA(2,IENS,.31)={CATEGORY_OF_BENEFICIARY} set:{EMPLOYER_NAME*C} FDA(2,IENS,.3111)={EMPLOYER_NAME} set:{EMPLOYMENT_STATUS0*C} FDA(2,IENS,.31115)={EMPLOYMENT_STATUS0} set:{DATE_OF_RETIREMENT*C} FDA(2,IENS,.31116)={DATE_OF_RETIREMENT} set:{GOVERNMENT_AGENCY*C} FDA(2,IENS,.3112)={GOVERNMENT_AGENCY} set:{EMPLOYER_STREET_LINE_1*C} FDA(2,IENS,.3113)={EMPLOYER_STREET_LINE_1} set:{EMPLOYER_STREET_LINE_2*C} FDA(2,IENS,.3114)={EMPLOYER_STREET_LINE_2} set:{EMPLOYER_STREET_LINE_3*C} FDA(2,IENS,.3115)={EMPLOYER_STREET_LINE_3} set:{EMPLOYER_CITY*C} FDA(2,IENS,.3116)={EMPLOYER_CITY} set:{EMPLOYER_STATE*C} FDA(2,IENS,.3117)={EMPLOYER_STATE} set:{EMPLOYER_ZIP_CODE*C} FDA(2,IENS,.3118)={EMPLOYER_ZIP_CODE} set:{EMPLOYER_PHONE_NUMBER*C} FDA(2,IENS,.3119)={EMPLOYER_PHONE_NUMBER} set:{CLAIM_FOLDER_LOCATION*C} FDA(2,IENS,.312)={CLAIM_FOLDER_LOCATION} set:{CLAIM_NUMBER*C} FDA(2,IENS,.313)={CLAIM_NUMBER} set:{CLAIM_FOLDER_LOCATION0*C} FDA(2,IENS,.314)={CLAIM_FOLDER_LOCATION0} set:{ABLE_TO_DEFRAY_EXPENSES*C} FDA(2,IENS,.319)={ABLE_TO_DEFRAY_EXPENSES} set:{ABLE_TO_PAY_FOR_TRAVEL*C} FDA(2,IENS,.3191)={ABLE_TO_PAY_FOR_TRAVEL} set:{COVERED_BY_HEALTH_INSURANCE*C} FDA(2,IENS,.3192)={COVERED_BY_HEALTH_INSURANCE} set:{VIETNAM_SERVICE_INDICATED*C} FDA(2,IENS,.32101)={VIETNAM_SERVICE_INDICATED} set:{AGENT_ORANGE_EXPOS__INDICATED*C} FDA(2,IENS,.32102)={AGENT_ORANGE_EXPOS__INDICATED} set:{RADIATION_EXPOSURE_INDICATED*C} FDA(2,IENS,.32103)={RADIATION_EXPOSURE_INDICATED} set:{VIETNAM_FROM_DATE*C} FDA(2,IENS,.32104)={VIETNAM_FROM_DATE} set:{VIETNAM_TO_DATE*C} FDA(2,IENS,.32105)={VIETNAM_TO_DATE} set:{OCCUPATION_CODE_IN_VIETNAM*C} FDA(2,IENS,.32106)={OCCUPATION_CODE_IN_VIETNAM} set:{AGENT_ORANGE_REGISTRATION_DATE*C} FDA(2,IENS,.32107)={AGENT_ORANGE_REGISTRATION_DATE} set:{AGENT_ORANGE_REPORTED_TO_C_O_*C} FDA(2,IENS,.32108)={AGENT_ORANGE_REPORTED_TO_C_O_} set:{AGENT_ORANGE_EXAM_DATE*C} FDA(2,IENS,.32109)={AGENT_ORANGE_EXAM_DATE} set:{AGENT_ORANGE_REGISTRATION_*C} FDA(2,IENS,.3211)={AGENT_ORANGE_REGISTRATION_} set:{RADIATION_REGISTRATION_DATE*C} FDA(2,IENS,.32111)={RADIATION_REGISTRATION_DATE} set:{PROJ_112SHAD*C} FDA(2,IENS,.32115)={PROJ_112SHAD} set:{TOXIC_EXPOSURE_RISK_ACTIVITY*C} FDA(2,IENS,.32116)={TOXIC_EXPOSURE_RISK_ACTIVITY} set:{RADIATION_EXPOSURE_METHOD*C} FDA(2,IENS,.3212)={RADIATION_EXPOSURE_METHOD} set:{AGENT_ORANGE_EXPOSURE_LOCATION*C} FDA(2,IENS,.3213)={AGENT_ORANGE_EXPOSURE_LOCATION} set:{FILIPINO_VETERAN_PROOF*C} FDA(2,IENS,.3214)={FILIPINO_VETERAN_PROOF} set:{CAMP_LEJEUNE*C} FDA(2,IENS,.321701)={CAMP_LEJEUNE} set:{CAMP_LEJEUNE_DATE*C} FDA(2,IENS,.321702)={CAMP_LEJEUNE_DATE} set:{CAMP_LEJEUNE_CHANGE_SITE*C} FDA(2,IENS,.321703)={CAMP_LEJEUNE_CHANGE_SITE} set:{CAMP_LEJEUNE_SOURCE*C} FDA(2,IENS,.321704)={CAMP_LEJEUNE_SOURCE} set:{CAMP_LEJEUNE_DATA_ENTRY_LOCKED*C} FDA(2,IENS,.32171)={CAMP_LEJEUNE_DATA_ENTRY_LOCKED} set:{SERVICE_VERIFICATION_DATE*C} FDA(2,IENS,.322)={SERVICE_VERIFICATION_DATE} set:{PERSIAN_GULF_SERVICE*C} FDA(2,IENS,.32201)={PERSIAN_GULF_SERVICE} set:{PERSIAN_GULF_FROM_DATE*C} FDA(2,IENS,.322011)={PERSIAN_GULF_FROM_DATE} set:{PERSIAN_GULF_TO_DATE*C} FDA(2,IENS,.322012)={PERSIAN_GULF_TO_DATE} set:{SOUTHWEST_ASIA_CONDITIONS*C} FDA(2,IENS,.322013)={SOUTHWEST_ASIA_CONDITIONS} set:{SW_ASIA_COND_REGISTRATION_DATE*C} FDA(2,IENS,.322014)={SW_ASIA_COND_REGISTRATION_DATE} set:{SW_ASIA_COND_EXAM_DATE*C} FDA(2,IENS,.322015)={SW_ASIA_COND_EXAM_DATE} set:{SOMALIA_SERVICE_INDICATED*C} FDA(2,IENS,.322016)={SOMALIA_SERVICE_INDICATED} set:{SOMALIA_FROM_DATE*C} FDA(2,IENS,.322017)={SOMALIA_FROM_DATE} set:{SOMALIA_TO_DATE*C} FDA(2,IENS,.322018)={SOMALIA_TO_DATE} set:{YUGOSLAVIA_SERVICE_INDICATED*C} FDA(2,IENS,.322019)={YUGOSLAVIA_SERVICE_INDICATED} set:{YUGOSLAVIA_FROM_DATE*C} FDA(2,IENS,.32202)={YUGOSLAVIA_FROM_DATE} set:{YUGOSLAVIA_TO_DATE*C} FDA(2,IENS,.322021)={YUGOSLAVIA_TO_DATE} set:{LEBANON_SERVICE_INDICATED*C} FDA(2,IENS,.3221)={LEBANON_SERVICE_INDICATED} set:{LEBANON_FROM_DATE*C} FDA(2,IENS,.3222)={LEBANON_FROM_DATE} set:{LEBANON_TO_DATE*C} FDA(2,IENS,.3223)={LEBANON_TO_DATE} set:{GRENADA_SERVICE_INDICATED*C} FDA(2,IENS,.3224)={GRENADA_SERVICE_INDICATED} set:{GRENADA_FROM_DATE*C} FDA(2,IENS,.3225)={GRENADA_FROM_DATE} set:{GRENADA_TO_DATE*C} FDA(2,IENS,.3226)={GRENADA_TO_DATE} set:{PANAMA_SERVICE_INDICATED*C} FDA(2,IENS,.3227)={PANAMA_SERVICE_INDICATED} set:{PANAMA_FROM_DATE*C} FDA(2,IENS,.3228)={PANAMA_FROM_DATE} set:{PANAMA_TO_DATE*C} FDA(2,IENS,.3229)={PANAMA_TO_DATE} set:{PERIOD_OF_SERVICE*C} FDA(2,IENS,.323)={PERIOD_OF_SERVICE} set:{SERVICE_DISCHARGE_TYPE_LAST*C} FDA(2,IENS,.324)={SERVICE_DISCHARGE_TYPE_LAST} set:{SERVICE_BRANCH_LAST*C} FDA(2,IENS,.325)={SERVICE_BRANCH_LAST} set:{SERVICE_ENTRY_DATE_LAST*C} FDA(2,IENS,.326)={SERVICE_ENTRY_DATE_LAST} set:{SERVICE_SEPARATION_DATE_LAST*C} FDA(2,IENS,.327)={SERVICE_SEPARATION_DATE_LAST} set:{SERVICE_NUMBER_LAST*C} FDA(2,IENS,.328)={SERVICE_NUMBER_LAST} set:{SERVICE_SECOND_EPISODE*C} FDA(2,IENS,.3285)={SERVICE_SECOND_EPISODE} set:{SERVICE_DISCHARGE_TYPE_NTL*C} FDA(2,IENS,.329)={SERVICE_DISCHARGE_TYPE_NTL} set:{SERVICE_BRANCH_NTL*C} FDA(2,IENS,.3291)={SERVICE_BRANCH_NTL} set:{SERVICE_COMPONENT_LAST*C} FDA(2,IENS,.32911)={SERVICE_COMPONENT_LAST} set:{SERVICE_COMPONENT_NTL*C} FDA(2,IENS,.32912)={SERVICE_COMPONENT_NTL} set:{SERVICE_COMPONENT_NNTL*C} FDA(2,IENS,.32913)={SERVICE_COMPONENT_NNTL} set:{SERVICE_ENTRY_DATE_NTL*C} FDA(2,IENS,.3292)={SERVICE_ENTRY_DATE_NTL} set:{SERVICE_SEPARATION_DATE_NTL*C} FDA(2,IENS,.3293)={SERVICE_SEPARATION_DATE_NTL} set:{SERVICE_NUMBER_NTL*C} FDA(2,IENS,.3294)={SERVICE_NUMBER_NTL} set:{SERVICE_THIRD_EPISODE*C} FDA(2,IENS,.32945)={SERVICE_THIRD_EPISODE} set:{SERVICE_DISCHARGE_TYPE_NNTL*C} FDA(2,IENS,.3295)={SERVICE_DISCHARGE_TYPE_NNTL} set:{SERVICE_BRANCH_NNTL*C} FDA(2,IENS,.3296)={SERVICE_BRANCH_NNTL} set:{SERVICE_ENTRY_DATE_NNTL*C} FDA(2,IENS,.3297)={SERVICE_ENTRY_DATE_NNTL} set:{SERVICE_SEPARATION_DATE_NNTL*C} FDA(2,IENS,.3298)={SERVICE_SEPARATION_DATE_NNTL} set:{SERVICE_NUMBER_NNTL*C} FDA(2,IENS,.3299)={SERVICE_NUMBER_NNTL} set:{EWORK_PHONE_NUMBER*C} FDA(2,IENS,.33011)={EWORK_PHONE_NUMBER} set:{ECONTACT_CHANGE_DATETIME*C} FDA(2,IENS,.33012)={ECONTACT_CHANGE_DATETIME} set:{EEMER__CONTACT_SAME_AS_NOK*C} FDA(2,IENS,.3305)={EEMER__CONTACT_SAME_AS_NOK} set:{ECOUNTRY*C} FDA(2,IENS,.3306)={ECOUNTRY} set:{EPROVINCE*C} FDA(2,IENS,.3307)={EPROVINCE} set:{EPOSTAL_CODE*C} FDA(2,IENS,.3308)={EPOSTAL_CODE} set:{ERELATIONSHIP_TYPE*C} FDA(2,IENS,.3309)={ERELATIONSHIP_TYPE} set:{ENAME*C} FDA(2,IENS,.331)={ENAME} set:{E2WORK_PHONE_NUMBER*C} FDA(2,IENS,.331011)={E2WORK_PHONE_NUMBER} set:{E2COUNTRY*C} FDA(2,IENS,.331012)={E2COUNTRY} set:{E2PROVINCE*C} FDA(2,IENS,.331013)={E2PROVINCE} set:{E2POSTAL_CODE*C} FDA(2,IENS,.331014)={E2POSTAL_CODE} set:{E2RELATIONSHIP_TYPE*C} FDA(2,IENS,.331015)={E2RELATIONSHIP_TYPE} set:{E2NAME_OF_SECONDARY_CONTACT*C} FDA(2,IENS,.3311)={E2NAME_OF_SECONDARY_CONTACT} set:{E2CONTACT_CHANGE_DATETIME*C} FDA(2,IENS,.33112)={E2CONTACT_CHANGE_DATETIME} set:{E2RELATIONSHIP_TO_PATIENT*C} FDA(2,IENS,.3312)={E2RELATIONSHIP_TO_PATIENT} set:{E2STREET_ADDRESS_LINE_1*C} FDA(2,IENS,.3313)={E2STREET_ADDRESS_LINE_1} set:{E2STREET_ADDRESS_LINE_2*C} FDA(2,IENS,.3314)={E2STREET_ADDRESS_LINE_2} set:{E2STREET_ADDRESS_LINE_3*C} FDA(2,IENS,.3315)={E2STREET_ADDRESS_LINE_3} set:{E2CITY*C} FDA(2,IENS,.3316)={E2CITY} set:{E2STATE*C} FDA(2,IENS,.3317)={E2STATE} set:{E2ZIP_CODE*C} FDA(2,IENS,.3318)={E2ZIP_CODE} set:{E2PHONE_NUMBER*C} FDA(2,IENS,.3319)={E2PHONE_NUMBER} set:{ERELATIONSHIP_TO_PATIENT*C} FDA(2,IENS,.332)={ERELATIONSHIP_TO_PATIENT} set:{ESTREET_ADDRESS_LINE_1*C} FDA(2,IENS,.333)={ESTREET_ADDRESS_LINE_1} set:{ESTREET_ADDRESS_LINE_2*C} FDA(2,IENS,.334)={ESTREET_ADDRESS_LINE_2} set:{ESTREET_ADDRESS_LINE_3*C} FDA(2,IENS,.335)={ESTREET_ADDRESS_LINE_3} set:{ECITY*C} FDA(2,IENS,.336)={ECITY} set:{ESTATE*C} FDA(2,IENS,.337)={ESTATE} set:{EZIP_CODE*C} FDA(2,IENS,.338)={EZIP_CODE} set:{EPHONE_NUMBER*C} FDA(2,IENS,.339)={EPHONE_NUMBER} set:{DWORK_PHONE_NUMBER*C} FDA(2,IENS,.34011)={DWORK_PHONE_NUMBER} set:{DCOUNTRY*C} FDA(2,IENS,.34012)={DCOUNTRY} set:{DPROVINCE*C} FDA(2,IENS,.34013)={DPROVINCE} set:{DPOSTAL_CODE*C} FDA(2,IENS,.34014)={DPOSTAL_CODE} set:{DRELATIONSHIP_TYPE*C} FDA(2,IENS,.34015)={DRELATIONSHIP_TYPE} set:{DDESIGNEE_SAME_AS_NOK*C} FDA(2,IENS,.3405)={DDESIGNEE_SAME_AS_NOK} set:{DNAME_OF_DESIGNEE*C} FDA(2,IENS,.341)={DNAME_OF_DESIGNEE} set:{DESIGNEE_CHANGE_DATETIME*C} FDA(2,IENS,.3412)={DESIGNEE_CHANGE_DATETIME} set:{DRELATIONSHIP_TO_PATIENT*C} FDA(2,IENS,.342)={DRELATIONSHIP_TO_PATIENT} set:{DSTREET_ADDRESS_LINE_1*C} FDA(2,IENS,.343)={DSTREET_ADDRESS_LINE_1} set:{DSTREET_ADDRESS_LINE_2*C} FDA(2,IENS,.344)={DSTREET_ADDRESS_LINE_2} set:{DSTREET_ADDRESS_LINE_3*C} FDA(2,IENS,.345)={DSTREET_ADDRESS_LINE_3} set:{DCITY*C} FDA(2,IENS,.346)={DCITY} set:{DSTATE*C} FDA(2,IENS,.347)={DSTATE} set:{DZIP_CODE*C} FDA(2,IENS,.348)={DZIP_CODE} set:{DPHONE_NUMBER*C} FDA(2,IENS,.349)={DPHONE_NUMBER} set:{DATE_OF_DEATH*C} FDA(2,IENS,.351)={DATE_OF_DEATH} set:{DEATH_ENTERED_BY*C} FDA(2,IENS,.352)={DEATH_ENTERED_BY} set:{SOURCE_OF_NOTIFICATION*C} FDA(2,IENS,.353)={SOURCE_OF_NOTIFICATION} set:{DATE_OF_DEATH_LAST_UPDATED*C} FDA(2,IENS,.354)={DATE_OF_DEATH_LAST_UPDATED} set:{LAST_EDITED_BY*C} FDA(2,IENS,.355)={LAST_EDITED_BY} set:{SUPPORTING_DOCUMENT_TYPE*C} FDA(2,IENS,.357)={SUPPORTING_DOCUMENT_TYPE} set:{DATE_OF_DEATH_OPTION_USED*C} FDA(2,IENS,.358)={DATE_OF_DEATH_OPTION_USED} set:{COLLATERAL_SPONSORS_NAME*C} FDA(2,IENS,.3601)={COLLATERAL_SPONSORS_NAME} set:{MILITARY_DISABILITY_RETIREMENT*C} FDA(2,IENS,.3602)={MILITARY_DISABILITY_RETIREMENT} set:{DISCHARGE_DUE_TO_DISABILITY*C} FDA(2,IENS,.3603)={DISCHARGE_DUE_TO_DISABILITY} set:{PRIMARY_ELIGIBILITY_CODE*C} FDA(2,IENS,.361)={PRIMARY_ELIGIBILITY_CODE} set:{ELIGIBILITY_STATUS*C} FDA(2,IENS,.3611)={ELIGIBILITY_STATUS} set:{ELIGIBILITY_STATUS_DATE*C} FDA(2,IENS,.3612)={ELIGIBILITY_STATUS_DATE} set:{ELIGIBILITY_VERIF__SOURCE*C} FDA(2,IENS,.3613)={ELIGIBILITY_VERIF__SOURCE} set:{ELIGIBILITY_INTERIM_RESPONSE*C} FDA(2,IENS,.3614)={ELIGIBILITY_INTERIM_RESPONSE} set:{ELIGIBILITY_VERIF__METHOD*C} FDA(2,IENS,.3615)={ELIGIBILITY_VERIF__METHOD} set:{ELIGIBILITY_STATUS_ENTERED_BY*C} FDA(2,IENS,.3616)={ELIGIBILITY_STATUS_ENTERED_BY} set:{USER_ENROLLEE_VALID_THROUGH*C} FDA(2,IENS,.3617)={USER_ENROLLEE_VALID_THROUGH} set:{USER_ENROLLEE_SITE*C} FDA(2,IENS,.3618)={USER_ENROLLEE_SITE} set:{DISABILITY_RET__FROM_MILITARY*C} FDA(2,IENS,.362)={DISABILITY_RET__FROM_MILITARY} set:{TOTAL_VETERAN_INCOME*C} FDA(2,IENS,.36201)={TOTAL_VETERAN_INCOME} set:{RECEIVING_AA_BENEFITS*C} FDA(2,IENS,.36205)={RECEIVING_AA_BENEFITS} set:{AMOUNT_OF_AID__ATTENDANCE*C} FDA(2,IENS,.3621)={AMOUNT_OF_AID__ATTENDANCE} set:{TOTAL_HOUSEHOLD_INCOME*C} FDA(2,IENS,.36211)={TOTAL_HOUSEHOLD_INCOME} set:{RECEIVING_HOUSEBOUND_BENEFITS*C} FDA(2,IENS,.36215)={RECEIVING_HOUSEBOUND_BENEFITS} set:{AMOUNT_OF_HOUSEBOUND*C} FDA(2,IENS,.3622)={AMOUNT_OF_HOUSEBOUND} set:{RECEIVING_SOCIAL_SECURITY*C} FDA(2,IENS,.36225)={RECEIVING_SOCIAL_SECURITY} set:{AMOUNT_OF_SOCIAL_SECURITY*C} FDA(2,IENS,.3623)={AMOUNT_OF_SOCIAL_SECURITY} set:{RECEIVING_A_VA_PENSION*C} FDA(2,IENS,.36235)={RECEIVING_A_VA_PENSION} set:{AMOUNT_OF_VA_PENSION*C} FDA(2,IENS,.3624)={AMOUNT_OF_VA_PENSION} set:{AMOUNT_OF_MILITARY_RETIREMENT*C} FDA(2,IENS,.3625)={AMOUNT_OF_MILITARY_RETIREMENT} set:{RECEIVING_MILITARY_RETIREMENT*C} FDA(2,IENS,.36255)={RECEIVING_MILITARY_RETIREMENT} set:{AMOUNT_OF_GI_INSURANCE*C} FDA(2,IENS,.3626)={AMOUNT_OF_GI_INSURANCE} set:{GI_INSURANCE_POLICY*C} FDA(2,IENS,.36265)={GI_INSURANCE_POLICY} set:{AMOUNT_OF_SSI*C} FDA(2,IENS,.3627)={AMOUNT_OF_SSI} set:{RECEIVING_SUP__SECURITY_SSI*C} FDA(2,IENS,.36275)={RECEIVING_SUP__SECURITY_SSI} set:{AMOUNT_OF_OTHER_RETIREMENT*C} FDA(2,IENS,.3628)={AMOUNT_OF_OTHER_RETIREMENT} set:{TYPE_OF_OTHER_RETIREMENT*C} FDA(2,IENS,.36285)={TYPE_OF_OTHER_RETIREMENT} set:{AMOUNT_OF_OTHER_INCOME*C} FDA(2,IENS,.3629)={AMOUNT_OF_OTHER_INCOME} set:{TOTAL_ANNUAL_VA_CHECK_AMOUNT*C} FDA(2,IENS,.36295)={TOTAL_ANNUAL_VA_CHECK_AMOUNT} set:{PRIMARY_LONG_ID*C} FDA(2,IENS,.363)={PRIMARY_LONG_ID} set:{PRIMARY_SHORT_ID*C} FDA(2,IENS,.364)={PRIMARY_SHORT_ID} set:{SERVICE_DENTAL_INJURY*C} FDA(2,IENS,.368)={SERVICE_DENTAL_INJURY} set:{SERVICE_TEETH_EXTRACTED*C} FDA(2,IENS,.369)={SERVICE_TEETH_EXTRACTED} set:{ELIGIBLE_FOR_MEDICAID*C} FDA(2,IENS,.381)={ELIGIBLE_FOR_MEDICAID} set:{DATE_MEDICAID_LAST_ASKED*C} FDA(2,IENS,.382)={DATE_MEDICAID_LAST_ASKED} set:{MEDICAID_NUMBER*C} FDA(2,IENS,.383)={MEDICAID_NUMBER} set:{PENSION_AWARD_EFFECTIVE_DATE*C} FDA(2,IENS,.3851)={PENSION_AWARD_EFFECTIVE_DATE} set:{PENSION_AWARD_REASON*C} FDA(2,IENS,.3852)={PENSION_AWARD_REASON} set:{PENSION_TERMINATED_DATE*C} FDA(2,IENS,.3853)={PENSION_TERMINATED_DATE} set:{PENSION_TERMINATED_REASON_1*C} FDA(2,IENS,.3854)={PENSION_TERMINATED_REASON_1} set:{PENSION_TERMINATED_REASON_2*C} FDA(2,IENS,.3855)={PENSION_TERMINATED_REASON_2} set:{PENSION_TERMINATED_REASON_3*C} FDA(2,IENS,.3856)={PENSION_TERMINATED_REASON_3} set:{PENSION_TERMINATED_REASON_4*C} FDA(2,IENS,.3857)={PENSION_TERMINATED_REASON_4} set:{CLASS_II_DENTAL_INDICATOR*C} FDA(2,IENS,.3858)={CLASS_II_DENTAL_INDICATOR} set:{DENTAL_APPL_DUE_BEFORE_DATE*C} FDA(2,IENS,.3859)={DENTAL_APPL_DUE_BEFORE_DATE} set:{PENSION_INDICATOR_LOCK*C} FDA(2,IENS,.386)={PENSION_INDICATOR_LOCK} set:{PENSION_AWARD_LOCK*C} FDA(2,IENS,.3861)={PENSION_AWARD_LOCK} set:{VETERAN_CATASTROPHICALLY_DISABLED*C} FDA(2,IENS,.39)={VETERAN_CATASTROPHICALLY_DISABLED} set:{DECIDED_BY*C} FDA(2,IENS,.391)={DECIDED_BY} set:{DATE_OF_DECISION*C} FDA(2,IENS,.392)={DATE_OF_DECISION} set:{FACILITY_MAKING_DETERMINATION*C} FDA(2,IENS,.393)={FACILITY_MAKING_DETERMINATION} set:{REVIEW_DATE*C} FDA(2,IENS,.394)={REVIEW_DATE} set:{METHOD_OF_DETERMINATION*C} FDA(2,IENS,.395)={METHOD_OF_DETERMINATION} set:{DATE_VETERAN_REQUESTED_CD_EVAL*C} FDA(2,IENS,.3951)={DATE_VETERAN_REQUESTED_CD_EVAL} set:{DATE_FACILITY_INITIATED_REVIEW*C} FDA(2,IENS,.3952)={DATE_FACILITY_INITIATED_REVIEW} set:{DATE_VETERAN_WAS_NOTIFIED*C} FDA(2,IENS,.3953)={DATE_VETERAN_WAS_NOTIFIED} set:{IN_USE_NODE__TIME*C} FDA(2,IENS,.4002)={IN_USE_NODE__TIME} set:{POW_STATUS_INDICATED*C} FDA(2,IENS,.525)={POW_STATUS_INDICATED} set:{POW_CONFINEMENT_LOCATION*C} FDA(2,IENS,.526)={POW_CONFINEMENT_LOCATION} set:{POW_FROM_DATE*C} FDA(2,IENS,.527)={POW_FROM_DATE} set:{POW_TO_DATE*C} FDA(2,IENS,.528)={POW_TO_DATE} set:{POW_STATUS_VERIFIED*C} FDA(2,IENS,.529)={POW_STATUS_VERIFIED} set:{COMBAT_SERVICE_INDICATED*C} FDA(2,IENS,.5291)={COMBAT_SERVICE_INDICATED} set:{COMBAT_SERVICE_LOCATION*C} FDA(2,IENS,.5292)={COMBAT_SERVICE_LOCATION} set:{COMBAT_FROM_DATE*C} FDA(2,IENS,.5293)={COMBAT_FROM_DATE} set:{COMBAT_TO_DATE*C} FDA(2,IENS,.5294)={COMBAT_TO_DATE} set:{COMBAT_VETERAN_END_DATE*C} FDA(2,IENS,.5295)={COMBAT_VETERAN_END_DATE} set:{CV_DATE_EDITED*C} FDA(2,IENS,.5296)={CV_DATE_EDITED} set:{CURRENT_PH_INDICATOR*C} FDA(2,IENS,.531)={CURRENT_PH_INDICATOR} set:{CURRENT_PURPLE_HEART_STATUS*C} FDA(2,IENS,.532)={CURRENT_PURPLE_HEART_STATUS} set:{CURRENT_PURPLE_HEART_REMARKS*C} FDA(2,IENS,.533)={CURRENT_PURPLE_HEART_REMARKS} set:{PH_DIVISION*C} FDA(2,IENS,.535)={PH_DIVISION} set:{CURRENT_MOH_INDICATOR*C} FDA(2,IENS,.541)={CURRENT_MOH_INDICATOR} set:{MOH_AWARD_DATE*C} FDA(2,IENS,.542)={MOH_AWARD_DATE} set:{MOH_STATUS_DATE*C} FDA(2,IENS,.543)={MOH_STATUS_DATE} set:{MOH_COPAYMENT_EXEMPTION_DATE*C} FDA(2,IENS,.544)={MOH_COPAYMENT_EXEMPTION_DATE} set:{EXPANDED_MH_CARE_TYPE*C} FDA(2,IENS,.5501)={EXPANDED_MH_CARE_TYPE} set:{AUTOMATIC_CHANGE_DATE*C} FDA(2,IENS,.5502)={AUTOMATIC_CHANGE_DATE} set:{PRESUMPTIVE_PSYCHOSIS_CATEGORY*C} FDA(2,IENS,.5601)={PRESUMPTIVE_PSYCHOSIS_CATEGORY} set:{INDIAN_SELF_IDENTIFICATION*C} FDA(2,IENS,.571)={INDIAN_SELF_IDENTIFICATION} set:{INDIAN_START_DATE*C} FDA(2,IENS,.572)={INDIAN_START_DATE} set:{INDIAN_ATTESTATION_DATE*C} FDA(2,IENS,.573)={INDIAN_ATTESTATION_DATE} set:{INDIAN_END_DATE*C} FDA(2,IENS,.574)={INDIAN_END_DATE} set:{INDIAN_SELF_IDENT_CHANGE_DTTM*C} FDA(2,IENS,.575)={INDIAN_SELF_IDENT_CHANGE_DTTM} set:{INDIAN_SELF_IDENT_CHANGE_USER*C} FDA(2,IENS,.576)={INDIAN_SELF_IDENT_CHANGE_USER} set:{TEST_PATIENT_INDICATOR*C} FDA(2,IENS,.6)={TEST_PATIENT_INDICATOR} set:{RESERVED__9__SLC*C} FDA(2,IENS,.91)={RESERVED__9__SLC} set:{NAME_COMPONENTS*C} FDA(2,IENS,1.01)={NAME_COMPONENTS} set:{KNAME_COMPONENTS*C} FDA(2,IENS,1.02)={KNAME_COMPONENTS} set:{K2NAME_COMPONENTS*C} FDA(2,IENS,1.03)={K2NAME_COMPONENTS} set:{FATHERS_NAME_COMPONENTS*C} FDA(2,IENS,1.04)={FATHERS_NAME_COMPONENTS} set:{MOTHERS_NAME_COMPONENTS*C} FDA(2,IENS,1.05)={MOTHERS_NAME_COMPONENTS} set:{MOTHERS_MAIDEN_NAME_COMPONENTS*C} FDA(2,IENS,1.06)={MOTHERS_MAIDEN_NAME_COMPONENTS} set:{ENAME_COMPONENTS*C} FDA(2,IENS,1.07)={ENAME_COMPONENTS} set:{E2NAME_COMPONENTS*C} FDA(2,IENS,1.08)={E2NAME_COMPONENTS} set:{DNAME_COMPONENTS*C} FDA(2,IENS,1.09)={DNAME_COMPONENTS} set:{HL_DATE_CHARGED*C} FDA(2,IENS,12)={HL_DATE_CHARGED} set:{HL_TIME_CHARGED*C} FDA(2,IENS,13)={HL_TIME_CHARGED} set:{HL_USER*C} FDA(2,IENS,14)={HL_USER} set:{HL_SPECIAL_NOTE*C} FDA(2,IENS,15)={HL_SPECIAL_NOTE} set:{HL_RESERVED1*C} FDA(2,IENS,16)={HL_RESERVED1} set:{HL_RESERVER2*C} FDA(2,IENS,17)={HL_RESERVER2} set:{HL_HOSPITAL_LOCATION*C} FDA(2,IENS,18)={HL_HOSPITAL_LOCATION} set:{HL_PROVIDER*C} FDA(2,IENS,19)={HL_PROVIDER} set:{HL_OTHER_LOCATION*C} FDA(2,IENS,20)={HL_OTHER_LOCATION} set:{HL_OFFSTATION_LOCATION*C} FDA(2,IENS,21)={HL_OFFSTATION_LOCATION} set:{HL_LOCATION_PHONE*C} FDA(2,IENS,23)={HL_LOCATION_PHONE} set:{CL_DATE_CHARGED*C} FDA(2,IENS,24)={CL_DATE_CHARGED} set:{CL_TIME_CHARGED*C} FDA(2,IENS,25)={CL_TIME_CHARGED} set:{CL_USER*C} FDA(2,IENS,26)={CL_USER} set:{CL_SPECIAL_NOTE*C} FDA(2,IENS,27)={CL_SPECIAL_NOTE} set:{CURRENT_ENROLLMENT*C} FDA(2,IENS,27.01)={CURRENT_ENROLLMENT} set:{PREFERRED_FACILITY*C} FDA(2,IENS,27.02)={PREFERRED_FACILITY} set:{SOURCE_DESIGNATION*C} FDA(2,IENS,27.03)={SOURCE_DESIGNATION} set:{PT_APPLIED_FOR_ENROLLMENT*C} FDA(2,IENS,27.04)={PT_APPLIED_FOR_ENROLLMENT} set:{CL_PRIORITY*C} FDA(2,IENS,28)={CL_PRIORITY} set:{CL_DATE_NEEDED*C} FDA(2,IENS,29)={CL_DATE_NEEDED} set:{CL_HOSPITAL_LOCATION*C} FDA(2,IENS,30)={CL_HOSPITAL_LOCATION} set:{CL_PROVIDER*C} FDA(2,IENS,31)={CL_PROVIDER} set:{CL_OTHER_LOCATION*C} FDA(2,IENS,32)={CL_OTHER_LOCATION} set:{CL_OFFSTATION_LOCATION*C} FDA(2,IENS,33)={CL_OFFSTATION_LOCATION} set:{CL_LOCATION_PHONE*C} FDA(2,IENS,34)={CL_LOCATION_PHONE} set:{REACTIONS*C} FDA(2,IENS,53)={REACTIONS} set:{HEIGHTCM*C} FDA(2,IENS,57.1)={HEIGHTCM} set:{WEIGHTKG*C} FDA(2,IENS,57.2)={WEIGHTKG} set:{SMOKER*C} FDA(2,IENS,57.3)={SMOKER} set:{SPINAL_CORD_INJURY*C} FDA(2,IENS,57.4)={SPINAL_CORD_INJURY} set:{HEPATITIS*C} FDA(2,IENS,57.5)={HEPATITIS} set:{AIDS*C} FDA(2,IENS,57.6)={AIDS} set:{LABORATORY_REFERENCE*C} FDA(2,IENS,63)={LABORATORY_REFERENCE} set:{LAB_REFERRAL_REF*C} FDA(2,IENS,67)={LAB_REFERRAL_REF} set:{CNH_CURRENT*C} FDA(2,IENS,148)={CNH_CURRENT} set:{DENTAL_CLASSIFICATION*C} FDA(2,IENS,220)={DENTAL_CLASSIFICATION} set:{DENTAL_ELIGIBILITY_EXPIRATION*C} FDA(2,IENS,220.1)={DENTAL_ELIGIBILITY_EXPIRATION} set:{TYPE*C} FDA(2,IENS,391)={TYPE} set:{CONDITION*C} FDA(2,IENS,401.3)={CONDITION} set:{DATE_ENTERED_ON_SI_LIST*C} FDA(2,IENS,401.4)={DATE_ENTERED_ON_SI_LIST} set:{CURRENT_PC_PRACTITIONER*C} FDA(2,IENS,404.01)={CURRENT_PC_PRACTITIONER} set:{CURRENT_PC_TEAM*C} FDA(2,IENS,404.02)={CURRENT_PC_TEAM} set:{INTEGRATION_CONTROL_NUMBER*C} FDA(2,IENS,991.01)={INTEGRATION_CONTROL_NUMBER} set:{ICN_CHECKSUM*C} FDA(2,IENS,991.02)={ICN_CHECKSUM} set:{COORDINATING_MASTER_OF_RECORD*C} FDA(2,IENS,991.03)={COORDINATING_MASTER_OF_RECORD} set:{LOCALLY_ASSIGNED_ICN*C} FDA(2,IENS,991.04)={LOCALLY_ASSIGNED_ICN} set:{SUBSCRIPTION_CONTROL_NUMBER*C} FDA(2,IENS,991.05)={SUBSCRIPTION_CONTROL_NUMBER} set:{CMOR_ACTIVITY_SCORE*C} FDA(2,IENS,991.06)={CMOR_ACTIVITY_SCORE} set:{SCORE_CALCULATION_DATE*C} FDA(2,IENS,991.07)={SCORE_CALCULATION_DATE} set:{TEMPORARY_ID_NUMBER*C} FDA(2,IENS,991.08)={TEMPORARY_ID_NUMBER} set:{FOREIGN_ID_NUMBER*C} FDA(2,IENS,991.09)={FOREIGN_ID_NUMBER} set:{FULL_ICN*C} FDA(2,IENS,991.1)={FULL_ICN} set:{INDIVIDUAL_TAX_ID*C} FDA(2,IENS,991.11)={INDIVIDUAL_TAX_ID} set:{MULTIPLE_BIRTH_INDICATOR*C} FDA(2,IENS,994)={MULTIPLE_BIRTH_INDICATOR} set:{RECEIVED_VA_CARE_PREVIOUSLY*C} FDA(2,IENS,1010.15)={RECEIVED_VA_CARE_PREVIOUSLY} set:{MOST_RECENT_DATE_OF_CARE*C} FDA(2,IENS,1010.151)={MOST_RECENT_DATE_OF_CARE} set:{APPOINTMENT_REQUEST_DATE*C} FDA(2,IENS,1010.1511)={APPOINTMENT_REQUEST_DATE} set:{ORIGINAL_APPOINTMENT_REQUEST*C} FDA(2,IENS,1010.1512)={ORIGINAL_APPOINTMENT_REQUEST} set:{ORIGINAL_APPT_REQUEST_DATE*C} FDA(2,IENS,1010.1513)={ORIGINAL_APPT_REQUEST_DATE} set:{ORIG_APPT_REQUEST_CHG_DTTM*C} FDA(2,IENS,1010.1514)={ORIG_APPT_REQUEST_CHG_DTTM} set:{APPT_REQUEST_1010EZ_CHG_DTTM*C} FDA(2,IENS,1010.1515)={APPT_REQUEST_1010EZ_CHG_DTTM} set:{MOST_RECENT_LOCATION_OF_CARE*C} FDA(2,IENS,1010.152)={MOST_RECENT_LOCATION_OF_CARE} set:{f2ND_MOST_RECENT_DATE_OF_CARE*C} FDA(2,IENS,1010.153)={f2ND_MOST_RECENT_DATE_OF_CARE} set:{f2ND_MOST_RECENT_LOCATION*C} FDA(2,IENS,1010.154)={f2ND_MOST_RECENT_LOCATION} set:{MOST_RECENT_1010EZ*C} FDA(2,IENS,1010.156)={MOST_RECENT_1010EZ} set:{COMBAT_INDICATED_ON_1010EZ*C} FDA(2,IENS,1010.157)={COMBAT_INDICATED_ON_1010EZ} set:{DISABILITY_DISCHARGE_ON_1010EZ*C} FDA(2,IENS,1010.158)={DISABILITY_DISCHARGE_ON_1010EZ} set:{APPOINTMENT_REQUEST_ON_1010EZ*C} FDA(2,IENS,1010.159)={APPOINTMENT_REQUEST_ON_1010EZ} set:{APPOINTMENT_REQUEST_STATUS*C} FDA(2,IENS,1010.161)={APPOINTMENT_REQUEST_STATUS} set:{DATE_STATUS_LAST_EDITED*C} FDA(2,IENS,1010.162)={DATE_STATUS_LAST_EDITED} set:{APPOINTMENT_REQUEST_COMMENT*C} FDA(2,IENS,1010.163)={APPOINTMENT_REQUEST_COMMENT} set:{DATE_COMMENT_LAST_EDITED*C} FDA(2,IENS,1010.164)={DATE_COMMENT_LAST_EDITED} set:{RECEIVING_PENSION*C} FDA(2,IENS,1010.3)={RECEIVING_PENSION} set:{FUGITIVE_FELON_FLAG*C} FDA(2,IENS,1100.01)={FUGITIVE_FELON_FLAG} set:{FFF_ENTERED_BY*C} FDA(2,IENS,1100.02)={FFF_ENTERED_BY} set:{FFF_DATE_ENTERED*C} FDA(2,IENS,1100.03)={FFF_DATE_ENTERED} set:{FFF_REMOVED_BY*C} FDA(2,IENS,1100.04)={FFF_REMOVED_BY} set:{FFF_DATE_REMOVED*C} FDA(2,IENS,1100.05)={FFF_DATE_REMOVED} set:{FFF_REMOVAL_REMARKS*C} FDA(2,IENS,1100.09)={FFF_REMOVAL_REMARKS} set:{VETERAN_YN*C} FDA(2,IENS,1901)={VETERAN_YN} set:{PAT_NO*C} FDA(2,IENS,1904)={PAT_NO} set:{NURSE_STATION*C} FDA(2,IENS,1905)={NURSE_STATION} set:{NUMERIC1906*C} FDA(2,IENS,1906)={NUMERIC1906} set:{DR*C} FDA(2,IENS,1907)={DR} set:{DATE_LAST_EICD_RUN*C} FDA(2,IENS,2001)={DATE_LAST_EICD_RUN} set:{VTS_PATIENT_FLAG*C} FDA(2,IENS,3000)={VTS_PATIENT_FLAG} set:{INITIAL_ODS_TREATMENT_RECEIVED*C} FDA(2,IENS,11500.01)={INITIAL_ODS_TREATMENT_RECEIVED} set:{RECALLED_TO_ACTIVE_DUTY*C} FDA(2,IENS,11500.02)={RECALLED_TO_ACTIVE_DUTY} set:{RANK*C} FDA(2,IENS,11500.03)={RANK} set:{NETWORK_IDENTIFIER*C} FDA(2,IENS,537025)={NETWORK_IDENTIFIER} set:{MHV_REGISTERED*C} FDA(2,IENS,537027)={MHV_REGISTERED} set:{MHV_AUTHENTICATED*C} FDA(2,IENS,537028)={MHV_AUTHENTICATED} set:{MHV_SECURE_MESSAGING*C} FDA(2,IENS,537029)={MHV_SECURE_MESSAGING} set:{MHVREG_UPDATE_DATETIME*C} FDA(2,IENS,537030)={MHVREG_UPDATE_DATETIME} set:{MHVAUTH_UPDATE_DATETIME*C} FDA(2,IENS,537031)={MHVAUTH_UPDATE_DATETIME} set:{MHVSM_UPDATE_DATETIME*C} FDA(2,IENS,537032)={MHVSM_UPDATE_DATETIME} set:{MHV_REGISTER_DECLINED_TEXT*C} FDA(2,IENS,537033)={MHV_REGISTER_DECLINED_TEXT} set:{MHV_AUTH_DECLINED_TEXT*C} FDA(2,IENS,537034)={MHV_AUTH_DECLINED_TEXT} set:{MHV_MSG_DECLINED_TEXT*C} FDA(2,IENS,537035)={MHV_MSG_DECLINED_TEXT} set:{MHV_REGISTER_DECLINED_REASON*C} FDA(2,IENS,537036)={MHV_REGISTER_DECLINED_REASON} set:{MHV_AUTH_DECLINED_REASON*C} FDA(2,IENS,537037)={MHV_AUTH_DECLINED_REASON} set:{MHV_MSG_DECLINED_REASON*C} FDA(2,IENS,537038)={MHV_MSG_DECLINED_REASON} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2)") set %SkipFiling=1 if $d(%FMERR(2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {MISSING_OR_INELIGIBLE*C} { set D0={RowId} kill wp if {MISSING_OR_INELIGIBLE}'="" { set wproot="wp" for i=1:1:$l({MISSING_OR_INELIGIBLE},$c(13,10)) { set wp(i)=$p({MISSING_OR_INELIGIBLE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(2,{RowId},.16,,wproot,"%FMERR(2)") if $d(%FMERR(2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.PATIENT2S index ^DPT nonnull "AAP" {ATTENDING_PHYSICIAN} {IEN} 0]]> index ^DPT nonnull "ACA" {CURRENT_ADMISSION} {IEN} 0]]> index ^DPT nonnull "ACB" {CATEGORY_OF_BENEFICIARY} {IEN} 0]]> index ^DPT nonnull "ACMOR" {COORDINATING_MASTER_OF_RECORD} {IEN} 0]]> index ^DPT nonnull "ACN" {WARD_LOCATION} {IEN} 0]]> index ^DPT nonnull "ACS" {CURRENT_MEANS_TEST_STATUS} {IEN} 0]]> index ^DPT nonnull "ADOB" {DATE_OF_BIRTH} {IEN} 0]]> index ^DPT nonnull "AEACL" {APPOINTMENT_REQUEST_DATE} {IEN} 0]]> index ^DPT nonnull "AERI" {EMERGENCY_RESPONSE_INDICATOR} {IEN} 0]]> index ^DPT nonnull "AEXP1" {DATE_OF_DEATH} {IEN} 0]]> index ^DPT nonnull "AEXPMH" {EXPANDED_MH_CARE_TYPE} {IEN} 0]]> index ^DPT nonnull "AFICN" {FULL_ICN} {IEN} 0]]> index ^DPT nonnull "AICN" {INTEGRATION_CONTROL_NUMBER} {IEN} 0]]> index ^DPT nonnull "AICNL" {LOCALLY_ASSIGNED_ICN} {IEN} 0]]> index ^DPT nonnull "AINC" {INDIAN_SELF_IDENT_CHANGE_DTTM} {IEN} 0]]> index ^DPT nonnull "APOS" {PERIOD_OF_SERVICE} {IEN} 0]]> index ^DPT nonnull "APR" {PROVIDER} {IEN} 0]]> index ^DPT nonnull "APTYPE" {TYPE} {IEN} 0]]> index ^DPT nonnull "ASCN2" {SUBSCRIPTION_CONTROL_NUMBER} {IEN} 0]]> index ^DPT nonnull "AS" {CONDITION} {IEN} 0]]> index ^DPT nonnull "ASX" {SEX} {IEN} 0]]> index ^DPT nonnull "ATR" {TREATING_SPECIALTY} {IEN} 0]]> index ^DPT nonnull "AXFFP" {FUGITIVE_FELON_FLAG} {IEN} 0]]> index ^DPT nonnull "B" {NAME} {IEN} 0]]> index ^DPT nonnull "BMS" {DATE_ENTERED_INTO_FILE} {IEN} 0]]> index ^DPT nonnull "C" {CURRENT_PURPLE_HEART_STATUS} {IEN} 0]]> index ^DPT nonnull "D" {CURRENT_PH_INDICATOR} {IEN} 0]]> index ^DPT nonnull "E" {CV_DATE_EDITED} {IEN} 0]]> index ^DPT nonnull "F" {PHONE_NUMBER_RESIDENCE} {IEN} 0]]> index ^DPT nonnull "KATRI" {HISTORIC_KATRINA_ERI} {IEN} 0]]> data ^DPT {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" .31 9 "^" .31 10 "^" .11 13 "^" .11 15 "^" .11 14 "^" .11 17 "^" .15 12 "^" .15 1 "^" .3 9 "^" .321 9 "^" .321 13 "^" .321 2 "^" .321 10 "^" .321 7 "^" .321 8 "^" 57 6 "^" .362 1 "^" .362 6 "^" .362 2 "^" .362 5 "^" .362 9 "^" .362 8 "^" .362 3 "^" .362 7 "^" .3 3 "^" .362 4 "^" 1010.16 3 "^" 1010.15 11 "^" 1010.15 9 "^" 1010.16 1 "^" 1010.15 15 "^" .1041 1 "^" .55 2 "^" .11 16 "^" .3217 1 "^" .3217 3 "^" .32171 1 "^" .3217 2 "^" .3217 4 "^" .3 10 "^" .13 9 "^" .13 11 "^" .13 10 "^" .13 19 "^" 0 20 "^" .11 4 "^" .291 8 "^" .29 8 "^" .31 2 "^" .31 4 "^" .31 3 "^" .385 8 "^" "DT.02" 1 "^" "DT.02" 6 "^" "DT.02" 7 "^" "DT.02" 11 "^" "DT.02" 10 "^" "DT.02" 9 "^" "DT.02" 5 "^" "DT.02" 8 "^" "DT.02" 4 "^" "DT.02" 2 "^" "DT.02" 3 "^" "MPI" 6 "^" "NHC" 1 "^" .36 11 "^" .52 13 "^" 1010.15 7 "^" .52 11 "^" .52 12 "^" .52 14 "^" .52 15 "^" "DAC" 1 "^" .141 9 "^" .141 4 "^" .141 11 "^" .141 5 "^" .141 6 "^" .141 17 "^" .141 12 "^" .141 13 "^" .141 18 "^" .141 16 "^" .141 15 "^" .141 14 "^" .141 8 "^" .141 19 "^" .13 15 "^" .141 7 "^" .141 1 "^" .141 2 "^" .141 3 "^" "MPI" 3 "^" .11 10 "^" .11 7 "^" .31 11 "^" .105 1 "^" "ENR" 1 "^" 0 14 "^" .54 1 "^" .102 1 "^" "PC" 1 "^" "PC" 2 "^" .53 1 "^" .53 3 "^" .53 2 "^" .108 1 "^" .52 16 "^" 1010.16 4 "^" 0 16 "^" "DAC" 2 "^" .39 8 "^" "INS" 1 "^" .38 2 "^" 0 3 "^" .35 1 "^" .35 4 "^" .35 8 "^" .39 2 "^" .311 16 "^" .29 2 "^" .29 1 "^" 1010.16 2 "^" .39 7 "^" .39 9 "^" .34 6 "^" .34 12 "^" .34 10 "^" .35 2 "^" .39 1 "^" .385 9 "^" "DENT" 1 "^" "DENT" 2 "^" .332 3 "^" 1010.15 8 "^" .36 2 "^" .36 13 "^" "NAME" 9 "^" .34 1 "^" .34 9 "^" .34 14 "^" .34 13 "^" 1 2 "^" .34 2 "^" .34 15 "^" .34 7 "^" .34 3 "^" .34 4 "^" .34 5 "^" 0 18 "^" .34 11 "^" .22 2 "^" .34 8 "^" .331 6 "^" .332 2 "^" .331 12 "^" "NAME" 8 "^" .331 1 "^" .331 9 "^" .331 14 "^" .331 13 "^" .331 2 "^" .331 15 "^" .331 7 "^" .331 3 "^" .331 4 "^" .331 5 "^" .331 11 "^" .22 4 "^" .331 8 "^" .33 6 "^" .332 1 "^" .33 12 "^" .33 10 "^" .3 14 "^" .361 4 "^" .361 1 "^" .361 2 "^" .361 6 "^" .361 5 "^" .361 3 "^" .38 1 "^" .13 3 "^" .13 6 "^" .13 8 "^" .13 7 "^" .13 18 "^" .13 16 "^" .13 17 "^" .18 1 "^" .311 6 "^" .311 1 "^" .311 9 "^" .311 7 "^" .311 3 "^" .311 4 "^" .311 5 "^" .22 5 "^" .311 8 "^" 0 4 "^" .311 15 "^" .33 1 "^" "NAME" 7 "^" .33 9 "^" .33 14 "^" .33 13 "^" .33 2 "^" .33 15 "^" .33 7 "^" .33 3 "^" .33 4 "^" .33 5 "^" .33 11 "^" .109 1 "^" .55 1 "^" .22 1 "^" .33 8 "^" .39 3 "^" .24 1 "^" "NAME" 4 "^" .17 4 "^" .17 3 "^" .17 2 "^" "FFP" 3 "^" "FFP" 5 "^" "FFP" 2 "^" "FFP" 9 "^" "FFP" 4 "^" .321 14 "^" "MPI" 9 "^" "FFP" 1 "^" "MPI" 10 "^" .362 17 "^" .311 2 "^" .322 5 "^" .322 4 "^" .322 6 "^" .291 4 "^" .29 4 "^" 57 1 "^" 57 5 "^" "KATR" 1 "^" "DT.01" 1 "^" "DT.01" 7 "^" "DT.01" 11 "^" "DT.01" 10 "^" "DT.01" 9 "^" "DT.01" 8 "^" "DT.01" 5 "^" "DT.01" 6 "^" "DT.01" 4 "^" "DT.01" 2 "^" "DT.01" 3 "^" 0 17 "^" "MPI" 2 "^" .57 3 "^" .57 4 "^" .57 1 "^" .57 5 "^" .57 6 "^" .57 2 "^" "MPI" 11 "^" .15 2 "^" .3 7 "^" "INE" 3 "^" "INE" 1 "^" "INE" 4 "^" "INE" 6 "^" "ODS" 1 "^" .291 3 "^" .29 3 "^" "MPI" 1 "^" .4 2 "^" .211 10 "^" .211 6 "^" .211 12 "^" "NAME" 3 "^" .211 1 "^" .211 9 "^" .211 14 "^" .211 13 "^" .211 2 "^" .211 15 "^" .211 7 "^" .211 3 "^" .211 4 "^" .211 5 "^" .211 11 "^" .22 3 "^" .211 8 "^" .21 10 "^" .21 6 "^" .21 12 "^" "NAME" 2 "^" .21 1 "^" .21 9 "^" .21 14 "^" .21 13 "^" .21 2 "^" .21 15 "^" .21 7 "^" .21 3 "^" .21 4 "^" .21 5 "^" .21 11 "^" .22 7 "^" .21 8 "^" "LR" 1 "^" "LRT" 1 "^" .106 1 "^" .35 5 "^" .322 2 "^" .322 1 "^" .322 3 "^" .111 1 "^" .111 2 "^" .111 3 "^" .111 4 "^" .111 7 "^" .111 5 "^" .111 6 "^" "MPI" 4 "^" .107 1 "^" 0 5 "^" .38 3 "^" .39 5 "^" 2 5 "^" 2 4 "^" 2 6 "^" 2 2 "^" 2 8 "^" 2.2 1 "^" 2 9 "^" 2.3 1 "^" 2 1 "^" 2 7 "^" 2.1 1 "^" 2 3 "^" .36 12 .16 new data,i,node set {MISSING_OR_INELIGIBLE}="" merge data=^DPT({S1},.16) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {MISSING_OR_INELIGIBLE}={MISSING_OR_INELIGIBLE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .15 3 "^" "INE" 8 "^" "INE" 7 "^" "INE" 9 "^" .54 2 "^" .54 4 "^" .54 3 "^" .3 6 "^" 1010.15 6 "^" 1010.15 1 "^" 1010.15 2 "^" .24 3 "^" "NAME" 6 "^" .24 2 "^" "NAME" 5 "^" "MPIMB" 1 "^" 0 1 "^" "NAME" 1 "^" 537025 1 "^" 1 1 "^" 0 17 "^" 0 7 "^" .321 6 "^" 1010.15 12 "^" 1010.15 13 "^" 1010.15 14 "^" .13 5 "^" .13 12 "^" .13 14 "^" .13 13 "^" .322 8 "^" .322 7 "^" .322 9 "^" 0 19 "^" 0 16 "^" .385 1 "^" .385 11 "^" .385 2 "^" .385 10 "^" .385 3 "^" .385 4 "^" .385 5 "^" .385 6 "^" .385 7 "^" .32 3 "^" .322 11 "^" .322 10 "^" .322 12 "^" .291 11 "^" .13 4 "^" .13 1 "^" .13 2 "^" .29 11 "^" .132 6 "^" .132 5 "^" .53 4 "^" 0 11 "^" .24 6 "^" .24 7 "^" 0 12 "^" .11 9 "^" .52 6 "^" .52 7 "^" .52 5 "^" .52 9 "^" .52 8 "^" "ENR" 2 "^" .24 5 "^" .56 1 "^" .36 1 "^" .36 3 "^" .212 1 "^" .36 4 "^" .12 3 "^" .12 4 "^" .12 7 "^" .12 5 "^" .12 6 "^" .321 15 "^" .241 2 "^" .104 1 "^" .11 8 "^" "SSN" 1 "^" .3 4 "^" "ENR" 4 "^" .3 13 "^" .17 1 "^" 0 6 "^" .321 3 "^" .321 12 "^" .321 11 "^" "ODS" 3 "^" .29 12 "^" "PI" 1 "^" "ODS" 2 "^" 1010.15 5 "^" .362 12 "^" .362 14 "^" .362 13 "^" .362 16 "^" 1010 3 "^" .362 15 "^" .362 19 "^" .3 11 "^" .291 5 "^" .29 5 "^" 0 8 "^" 0 10 "^" .9 1 "^" .132 1 "^" .132 3 "^" .132 2 "^" .132 4 "^" .115 1 "^" .115 2 "^" .115 3 "^" .115 19 "^" .115 11 "^" .115 15 "^" .115 12 "^" .115 16 "^" .115 4 "^" .115 10 "^" .115 7 "^" .115 9 "^" .115 8 "^" .115 5 "^" .115 6 "^" .39 4 "^" .101 1 "^" "MPI" 7 "^" .3 12 "^" .212 2 "^" .24 4 "^" .32 5 "^" .32 15 "^" .32 10 "^" .3291 1 "^" .3291 3 "^" .3291 2 "^" .3 1 "^" .3 2 "^" .36 8 "^" .32 4 "^" .32 14 "^" .32 9 "^" .32 6 "^" .32 16 "^" .32 11 "^" .32 8 "^" .32 18 "^" .32 13 "^" .32 19 "^" .32 7 "^" .32 17 "^" .32 12 "^" .36 9 "^" .32 20 "^" .32 2 "^" 0 2 "^" .241 1 "^" .23 1 "^" 57 3 "^" 0 9 "^" .322 17 "^" .322 16 "^" .322 18 "^" "ENR" 3 "^" .35 3 "^" .322 13 "^" 57 4 "^" .25 5 "^" .25 6 "^" .25 1 "^" .25 15 "^" .25 8 "^" .25 2 "^" .25 3 "^" .25 4 "^" .22 6 "^" .25 7 "^" .25 14 "^" .25 16 "^" "SSN" 2 "^" .11 5 "^" .291 9 "^" .29 9 "^" .291 6 "^" .29 6 "^" .291 7 "^" .29 7 "^" .11 18 "^" .11 1 "^" .11 2 "^" .11 3 "^" "MPI" 5 "^" .35 7 "^" .322 15 "^" .322 14 "^" .121 9 "^" .121 13 "^" .121 14 "^" .122 3 "^" .121 11 "^" .121 8 "^" .122 2 "^" .122 1 "^" .121 7 "^" .121 15 "^" .121 4 "^" "MPI" 8 "^" .121 10 "^" .121 5 "^" .121 1 "^" .121 2 "^" .121 3 "^" .121 12 "^" .121 6 "^" 0 21 "^" .362 20 "^" .362 11 "^" .362 10 "^" .321 16 "^" .103 1 "^" "INE" 2 "^" "INE" 5 "^" "TYPE" 1 "^" .362 18 "^" .3 5 "^" .361 8 "^" .361 7 "^" .39 6 "^" "VET" 1 "^" .321 4 "^" .321 1 "^" .321 5 "^" 3000 1 "^" 57 2 "^" 0 15 "^" .322 20 "^" .322 19 "^" .322 21 "^" .11 12 "^" .291 12 "^" .29 13 "^" .291 10 "^" .11 6 "^" .29 10 "^" 1010.15 3 "^" 1010.15 4 index ^DPT nonnull "RM" {ROOMBED} {IEN} 0]]> index ^DPT nonnull "SSN" {SOCIAL_SECURITY_NUMBER} {IEN} 0]]> Generated class for FileMan File Number: '135.4' File Name: 'PATIENT CONSCIOUSNESS' Class generated by %fm2class version 2.56 This file contains entries regarding the assessment of the patient's consciousness before and after the operative procedure. The file is distributed with pre-supplied entries. The sites may wish to make additions to it. persistent _PUBLIC 0 RowId PATIENT_CONSCIOUSNESS_135_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.011746029 67178,44713.401252897 right PATIENT CONSCIOUSNESS 135.4 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the patient's level of consciousness. %Library.String 1 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(135.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to inactivate this entry to prevent it selection by Surgery users. %Library.EnumString 5 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Assessment of the Patient's Level of Consciousness This is the assessment of the patient's consciousness. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(135.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(135.4,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(135.4,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(135.4,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(135.4)") set %SkipFiling=1 if $d(%FMERR(135.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(135.4,IENS,.01)={NAME} set:{CODE*C} FDA(135.4,IENS,1)={CODE} set:{INACTIVE*C} FDA(135.4,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(135.4)") set %SkipFiling=1 if $d(%FMERR(135.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PATIENTCONS958DS index ^SRO nonnull 135.4 "B" {NAME} {IEN} 0]]> index ^SRO nonnull 135.4 "C" {CODE} {IEN} 0]]> data ^SRO 135.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '12.11' File Name: 'PATIENT CONTACT RELATION' Class generated by %fm2class version 2.56 This file contains all acceptable relationships for persons named as Primary Next of Kin, Secondary Next of Kin, Primary Emergency Contact, Secondary Emergency Contact, and Designee. These relationships are consistent with the values used by Defense Manpower Data Center (DMDC) and Cerner for these relationships. Additions or modifications to entries in this file should only be done through a national patch release. Records in this file should not be added, edited, or deleted locally. Doing so would likely cause database corruption. persistent _PUBLIC 0 RowId PATIENT_CONTACT_RELATION_12_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.013851227 67178,44713.435743056 right PATIENT CONTACT RELATION 12.11 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'ACTIVE?' FileMan Field Number: '.03' This field indicates whether the Patient Contact Relation may be selected by the user. %Library.EnumString 5 ACTIVE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(12.11,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.02' This field contains Standardized Name of the Patient Contact Relation. %Library.String 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.01' This field contains the number of the Patient Contact Relation. %Library.Numeric 1 3 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(12.11," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NUMBER}'="" FDA(12.11,"+1,",.01)={"NUMBER"} set:{NAME}'="" FDA(12.11,"+1,",.02)={"NAME"} set:{ACTIVE}'="" FDA(12.11,"+1,",.03)={"ACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(12.11)") set %SkipFiling=1 if $d(%FMERR(12.11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(12.11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NUMBER*C} FDA(12.11,IENS,.01)={NUMBER} set:{NAME*C} FDA(12.11,IENS,.02)={NAME} set:{ACTIVE*C} FDA(12.11,IENS,.03)={ACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(12.11)") set %SkipFiling=1 if $d(%FMERR(12.11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(12.11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PATIENTCONTD2CES index ^DG nonnull 12.11 "B" {NUMBER} {IEN} 0]]> index ^DG nonnull 12.11 "C" {NAME} {IEN} 0]]> data ^DG 12.11 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '27.11' File Name: 'PATIENT ENROLLMENT' Class generated by %fm2class version 2.56 This file contains patient enrollment records. Enrollment records should not be added, edited, or deleted except through the use of the enrollment software that is part of Registration. Doing so would likely cause the enrollment database to become corrupted. persistent _PUBLIC 0 RowId PATIENT_ENROLLMENT_27_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.058130644 67178,44713.469609834 right PATIENT ENROLLMENT 27.11 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'AGENT ORANGE EXPOSURE LOCATION' FileMan Field Number: '50.22' For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the location where the exposure occurred. %Library.EnumString 34 AGENT_ORANGE_EXPOSURE_LOCATION FileMan Field Label: 'APPLICATION DATE' FileMan Field Number: '.01' APPLICATION DATE The date of the application for enrollment or date of registration. The Application Date is user entered or set by the upload from ES. The date of the registration cannot be entered in VistA, it is set by the system during new patient registration to today's date or by the upload from ES. Application Date: Must be a date prior or equal to the Veteran's 'Date of Death', if the Application Date is user entered or provided in the upload from ES Must be a precise date, i.e. a day, month and year MUST be included Cannot be a date prior to the Veteran's 'Date of Birth' Cannot be a date in the future Cannot be a date prior to 10/1/1996 %Library.FilemanDate 1 3 APPLICATION_DATE FileMan Field Label: 'CAMP LEJEUNE CHANGE SITE' FileMan Field Number: '50.26' CAMP LEJEUNE ELIGIBILITY CHANGE SITE The System Generated point-of-entry site that last changed the CAMP LEJEUNE ELIGIBILITY INDICATOR field. %Library.String 38 CAMP_LEJEUNE_CHANGE_SITE FileMan Field Label: 'CAMP LEJEUNE DATE' FileMan Field Number: '50.25' CAMP LEJEUNE ELIGIBILITY DATE REGISTERED This is the system generated date noting when the CAMP LEJEUNE ELIGIBILITY INDICATOR field was last changed. %Library.FilemanDate 37 CAMP_LEJEUNE_DATE FileMan Field Label: 'CAMP LEJEUNE INDICATED?' FileMan Field Number: '50.24' CAMP LEJEUNE ELIGIBILITY INDICATOR This field corresponds to the CAMP LEJEUNE (#.321701) field in the PATIENT File #2. It can be set by setting the Camp Lejeune Eligibility Indicator on the Registration Screens, or by the Z11 Upload from the HEC. %Library.EnumString 36 CAMP_LEJEUNE_INDICATED FileMan Field Label: 'CAMP LEJEUNE SOURCE' FileMan Field Number: '50.27' CAMP LEJEUNE ELIGIBILITY SOURCE OF CHANGE The System Generated source that last affected a change to the CAMP LEJEUNE ELIGIBILITY INDICATOR field. %Library.String 39 CAMP_LEJEUNE_SOURCE FileMan Field Label: 'CANCELED/DECLINED REMARKS' FileMan Field Number: '25' This field is used to enter an explanation for why the veteran is canceling or declining enrollment if the only code that fits is OTHER. %Library.String 15 CANCELEDDECLINED_REMARKS FileMan Field Label: 'COMBAT VETERAN END DATE' FileMan Field Number: '50.18' For veterans who have combat vet eligibility, this field represents the date when that eligibility ends. %Library.FilemanDate 31 COMBAT_VETERAN_END_DATE FileMan Field Label: 'DATE/TIME ENTERED' FileMan Field Number: '75.01' This field is used as part of the audit trail for the enrollment process. %Library.FilemanTimeStamp 44 DATETIME_ENTERED FileMan Field Label: 'DISABILITY RET. FROM MILITARY' FileMan Field Number: '50.09' The status of DISABILITY RET. FROM MILITARY that is associated with the enrollment priority determination. %Library.EnumString 23 DISABILITY_RET__FROM_MILITARY FileMan Field Label: 'DISCHARGED DUE TO DISABILITY' FileMan Field Number: '50.2' Indicates whether or not discharge was due to a disability incurred in the Line of Duty. %Library.EnumString 33 DISCHARGED_DUE_TO_DISABILITY FileMan Field Label: 'EFFECTIVE DATE' FileMan Field Number: '.08' For any change that may affect a patient's enrollment, this field documents the effective date of the change. %Library.FilemanDate 7 EFFECTIVE_DATE FileMan Field Label: 'ENROLLMENT DATE' FileMan Field Number: '.1' Beginning of the enrollment cycle. %Library.FilemanDate 8 ENROLLMENT_DATE FileMan Field Label: 'ENROLLMENT END DATE' FileMan Field Number: '.11' The date specifying the end of the veteran's enrollment period. %Library.FilemanDate 9 ENROLLMENT_END_DATE FileMan Field Label: 'ENROLLMENT PRIORITY' FileMan Field Number: '.07' This field will contain the enrollment priority group determined for this enrollment. %Library.EnumString 6 ENROLLMENT_PRIORITY FileMan Field Label: 'ENROLLMENT SUBGROUP' FileMan Field Number: '.12' This field will contain the enrollment priority subgroup determined for this enrollment. %Library.EnumString 10 ENROLLMENT_SUBGROUP FileMan Field Label: 'EXPANDED MH CARE TYPE' FileMan Field Number: '50.31' The EXPANDED MH CARE TYPE associated with the enrollment priority determination. %Library.EnumString 43 EXPANDED_MH_CARE_TYPE FileMan Field Label: 'EXPOSED TO AGENT ORANGE' FileMan Field Number: '50.11' The EXPOSED TO AGENT ORANGE status associated with the enrollment priority determination. %Library.EnumString 25 EXPOSED_TO_AGENT_ORANGE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DGEN(27.11,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEDAL OF HONOR INDICATED?' FileMan Field Number: '50.23' This field cannot be edited in VistA. It is set by the Z11 Upload from HEC. A response of 'YES' or 'NO' is indicated only if the patient is a Veteran. %Library.EnumString 35 MEDAL_OF_HONOR_INDICATED FileMan Field Label: 'MEDICAID' FileMan Field Number: '50.1' The Medicaid eligibility associated with the enrollment priority determination. %Library.EnumString 24 MEDICAID FileMan Field Label: 'MOH AWARD DATE' FileMan Field Number: '50.28' This field cannot be edited in VistA. It is set by the Z11 upload from HEC. A date is indicated only if the patient is a Veteran. %Library.FilemanDate 40 MOH_AWARD_DATE FileMan Field Label: 'MOH COPAYMENT EXEMPTION DATE' FileMan Field Number: '50.3' This field cannot be edited in VistA. This date is determined by the VistA system based off Medal of Honor Award date and Legislation date. A date is indicated only if the patient is a veteran. %Library.FilemanDate 42 MOH_COPAYMENT_EXEMPTION_DATE FileMan Field Label: 'MOH STATUS DATE' FileMan Field Number: '50.29' This field cannot be edited in VistA. It is set by the Z11 upload from HEC. A date is indicated only if the patient is a Veteran. %Library.FilemanDate 41 MOH_STATUS_DATE FileMan Field Label: 'POW STATUS INDICATED' FileMan Field Number: '50.04' The POW status associated with the enrollment priority determination. %Library.EnumString 18 POW_STATUS_INDICATED FileMan Field Label: 'PROJ 112/SHAD' FileMan Field Number: '50.19' %Library.EnumString 32 PROJ_112SHAD FileMan Field Label: 'PT APPLIED FOR ENROLLMENT?' FileMan Field Number: '.14' PATIENT APPLIED FOR ENROLLMENT? This field will be set to 0 (zero) if the patient did not apply for enrollment (registration only), or 1 if the patient did apply for enrollment. %Library.EnumString 12 PT_APPLIED_FOR_ENROLLMENT FileMan Field Label: 'PURPLE HEART INDICATED?' FileMan Field Number: '50.16' This field corresponds to the CURRENT PH INDICATOR field .531 in the PATIENT file 2. It can be set by setting Purple Heart Indicated in the Registration screens, or by the Z11 Upload from HEC. Acceptable values are Y and N. %Library.EnumString 29 PURPLE_HEART_INDICATED FileMan Field Label: 'RADIATION EXPOSURE INDICATED' FileMan Field Number: '50.12' Enter 'Y' if the veteran was exposed to ionizing radiation 1) at a nuclear device testing site (e.g. the Pacific Islands, NM or NV) or 2) as a POW or while serving in Hiroshima and/or Nagasaki, Japan from August 6, 1945 through July 1, 1946, or 3) served at Department of Energy plants at Paducah, KY, Portsmouth, OH or the K25 area at Oak Ridge, TN for at least 250 days before February 1, 1992 or 4) served at Longshot, Milrow, or Cannikin underground nuclear tests at Amchitka Island, AK prior to January 1, 1974. Veterans exposed by method #3 or #4 are not eligible for copay exemption or enrollment in priority 6 based on their IR exposure. Enter 'N' if not exposed or 'U' if unknown. Once the record has been verified only HEC users may enter/edit this field. The RADIATION EXPOSURE INDICATED status associated with the enrollment priority determination. %Library.EnumString 26 RADIATION_EXPOSURE_INDICATED FileMan Field Label: 'RADIATION EXPOSURE METHOD' FileMan Field Number: '76' The RADIATION EXPOSURE METHOD associated with the enrollment priority determination. %Library.EnumString 45 RADIATION_EXPOSURE_METHOD FileMan Field Label: 'REASON CANCELED/DECLINED' FileMan Field Number: '.05' When a patient self dis-enrolls or requests that his enrollment be ceased, s/he is asked to give a reason. %Library.EnumString 5 REASON_CANCELEDDECLINED FileMan Field Label: 'REASON FOR CLOSED APPLICATION' FileMan Field Number: '.13' When an application is closed due to no response received from veteran for 365 days after initial pending notifications were sent. %Library.EnumString 11 REASON_FOR_CLOSED_APPLICATION %Library.EnumString 19 RECEIVING_AA_BENEFITS FileMan Field Label: 'RECEIVING A VA PENSION' FileMan Field Number: '50.07' The RECEIVING A VA PENSION status that the enrollment priority determination is based on. %Library.EnumString 21 RECEIVING_A_VA_PENSION FileMan Field Label: 'RECEIVING HOUSEBOUND BENEFITS' FileMan Field Number: '50.06' The RECEIVING HOUSEBOUND BENEFITS status that the enrollment priority determination is based on. %Library.EnumString 20 RECEIVING_HOUSEBOUND_BENEFITS FileMan Field Label: 'REGISTRATION ONLY DATE' FileMan Field Number: '.16' This field contains the date and time when the patient was first registered. It can also be blank (null) for any patients that existed prior to the creation of this field. %Library.FilemanTimeStamp 13 REGISTRATION_ONLY_DATE FileMan Field Label: 'SERVICE CONNECTED' FileMan Field Number: '50.02' The service connection indicator associated with the enrollment priority determination. %Library.EnumString 16 SERVICE_CONNECTED FileMan Field Label: 'SERVICE CONNECTED PERCENTAGE' FileMan Field Number: '50.03' The service connected percentage associated with the enrollment priority determination. %Library.Numeric 17 SERVICE_CONNECTED_PERCENTAGE FileMan Field Label: 'SOURCE OF ENROLLMENT' FileMan Field Number: '.03' How the enrollment was determined. %Library.EnumString 4 SOURCE_OF_ENROLLMENT FileMan Field Label: 'SOURCE OF REGISTRATION' FileMan Field Number: '.17' This field determines the source of registration for the patient. %Library.EnumString 14 SOURCE_OF_REGISTRATION FileMan Field Label: 'SOUTHWEST ASIA CONDITIONS' FileMan Field Number: '50.13' The SOUTHWEST ASIA CONDITIONS status associated with the enrollment priority determination. %Library.EnumString 27 SOUTHWEST_ASIA_CONDITIONS FileMan Field Label: 'TOTAL ANNUAL VA CHECK AMOUNT' FileMan Field Number: '50.08' The TOTAL ANNUAL VA CHECK AMOUNT associated with the enrollment determination. %Library.Numeric 22 TOTAL_ANNUAL_VA_CHECK_AMOUNT FileMan Field Label: 'UNEMPLOYABLE' FileMan Field Number: '50.17' Is this patient unemployable due to an SC condition as rated by VARO? %Library.EnumString 30 UNEMPLOYABLE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 46 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VETERAN CATASTROPHICALLY DISABLED' FileMan Field Number: '50.15' This field was created to capture the Veteran's CATASTROPHIC DISABILITY status associated with the enrollment priority determination. %Library.EnumString 28 VETERAN_CATASTROPHICALLY_DISABLED BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DGEN(27.11," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{APPLICATION_DATE}'="" FDA(27.11,"+1,",.01)={"APPLICATION_DATE"} set:{SOURCE_OF_ENROLLMENT}'="" FDA(27.11,"+1,",.03)={"SOURCE_OF_ENROLLMENT"} set:{REASON_CANCELEDDECLINED}'="" FDA(27.11,"+1,",.05)={"REASON_CANCELEDDECLINED"} set:{ENROLLMENT_PRIORITY}'="" FDA(27.11,"+1,",.07)={"ENROLLMENT_PRIORITY"} set:{EFFECTIVE_DATE}'="" FDA(27.11,"+1,",.08)={"EFFECTIVE_DATE"} set:{ENROLLMENT_DATE}'="" FDA(27.11,"+1,",.1)={"ENROLLMENT_DATE"} set:{ENROLLMENT_END_DATE}'="" FDA(27.11,"+1,",.11)={"ENROLLMENT_END_DATE"} set:{ENROLLMENT_SUBGROUP}'="" FDA(27.11,"+1,",.12)={"ENROLLMENT_SUBGROUP"} set:{REASON_FOR_CLOSED_APPLICATION}'="" FDA(27.11,"+1,",.13)={"REASON_FOR_CLOSED_APPLICATION"} set:{PT_APPLIED_FOR_ENROLLMENT}'="" FDA(27.11,"+1,",.14)={"PT_APPLIED_FOR_ENROLLMENT"} set:{REGISTRATION_ONLY_DATE}'="" FDA(27.11,"+1,",.16)={"REGISTRATION_ONLY_DATE"} set:{SOURCE_OF_REGISTRATION}'="" FDA(27.11,"+1,",.17)={"SOURCE_OF_REGISTRATION"} set:{CANCELEDDECLINED_REMARKS}'="" FDA(27.11,"+1,",25)={"CANCELEDDECLINED_REMARKS"} set:{SERVICE_CONNECTED}'="" FDA(27.11,"+1,",50.02)={"SERVICE_CONNECTED"} set:{SERVICE_CONNECTED_PERCENTAGE}'="" FDA(27.11,"+1,",50.03)={"SERVICE_CONNECTED_PERCENTAGE"} set:{POW_STATUS_INDICATED}'="" FDA(27.11,"+1,",50.04)={"POW_STATUS_INDICATED"} set:{RECEIVING_AA_BENEFITS}'="" FDA(27.11,"+1,",50.05)={"RECEIVING_AA_BENEFITS"} set:{RECEIVING_HOUSEBOUND_BENEFITS}'="" FDA(27.11,"+1,",50.06)={"RECEIVING_HOUSEBOUND_BENEFITS"} set:{RECEIVING_A_VA_PENSION}'="" FDA(27.11,"+1,",50.07)={"RECEIVING_A_VA_PENSION"} set:{TOTAL_ANNUAL_VA_CHECK_AMOUNT}'="" FDA(27.11,"+1,",50.08)={"TOTAL_ANNUAL_VA_CHECK_AMOUNT"} set:{DISABILITY_RET__FROM_MILITARY}'="" FDA(27.11,"+1,",50.09)={"DISABILITY_RET__FROM_MILITARY"} set:{MEDICAID}'="" FDA(27.11,"+1,",50.1)={"MEDICAID"} set:{EXPOSED_TO_AGENT_ORANGE}'="" FDA(27.11,"+1,",50.11)={"EXPOSED_TO_AGENT_ORANGE"} set:{RADIATION_EXPOSURE_INDICATED}'="" FDA(27.11,"+1,",50.12)={"RADIATION_EXPOSURE_INDICATED"} set:{SOUTHWEST_ASIA_CONDITIONS}'="" FDA(27.11,"+1,",50.13)={"SOUTHWEST_ASIA_CONDITIONS"} set:{VETERAN_CATASTROPHICALLY_DISABLED}'="" FDA(27.11,"+1,",50.15)={"VETERAN_CATASTROPHICALLY_DISABLED"} set:{PURPLE_HEART_INDICATED}'="" FDA(27.11,"+1,",50.16)={"PURPLE_HEART_INDICATED"} set:{UNEMPLOYABLE}'="" FDA(27.11,"+1,",50.17)={"UNEMPLOYABLE"} set:{COMBAT_VETERAN_END_DATE}'="" FDA(27.11,"+1,",50.18)={"COMBAT_VETERAN_END_DATE"} set:{PROJ_112SHAD}'="" FDA(27.11,"+1,",50.19)={"PROJ_112SHAD"} set:{DISCHARGED_DUE_TO_DISABILITY}'="" FDA(27.11,"+1,",50.2)={"DISCHARGED_DUE_TO_DISABILITY"} set:{AGENT_ORANGE_EXPOSURE_LOCATION}'="" FDA(27.11,"+1,",50.22)={"AGENT_ORANGE_EXPOSURE_LOCATION"} set:{MEDAL_OF_HONOR_INDICATED}'="" FDA(27.11,"+1,",50.23)={"MEDAL_OF_HONOR_INDICATED"} set:{CAMP_LEJEUNE_INDICATED}'="" FDA(27.11,"+1,",50.24)={"CAMP_LEJEUNE_INDICATED"} set:{CAMP_LEJEUNE_DATE}'="" FDA(27.11,"+1,",50.25)={"CAMP_LEJEUNE_DATE"} set:{CAMP_LEJEUNE_CHANGE_SITE}'="" FDA(27.11,"+1,",50.26)={"CAMP_LEJEUNE_CHANGE_SITE"} set:{CAMP_LEJEUNE_SOURCE}'="" FDA(27.11,"+1,",50.27)={"CAMP_LEJEUNE_SOURCE"} set:{MOH_AWARD_DATE}'="" FDA(27.11,"+1,",50.28)={"MOH_AWARD_DATE"} set:{MOH_STATUS_DATE}'="" FDA(27.11,"+1,",50.29)={"MOH_STATUS_DATE"} set:{MOH_COPAYMENT_EXEMPTION_DATE}'="" FDA(27.11,"+1,",50.3)={"MOH_COPAYMENT_EXEMPTION_DATE"} set:{EXPANDED_MH_CARE_TYPE}'="" FDA(27.11,"+1,",50.31)={"EXPANDED_MH_CARE_TYPE"} set:{DATETIME_ENTERED}'="" FDA(27.11,"+1,",75.01)={"DATETIME_ENTERED"} set:{RADIATION_EXPOSURE_METHOD}'="" FDA(27.11,"+1,",76)={"RADIATION_EXPOSURE_METHOD"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(27.11)") set %SkipFiling=1 if $d(%FMERR(27.11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(27.11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{APPLICATION_DATE*C} FDA(27.11,IENS,.01)={APPLICATION_DATE} set:{SOURCE_OF_ENROLLMENT*C} FDA(27.11,IENS,.03)={SOURCE_OF_ENROLLMENT} set:{REASON_CANCELEDDECLINED*C} FDA(27.11,IENS,.05)={REASON_CANCELEDDECLINED} set:{ENROLLMENT_PRIORITY*C} FDA(27.11,IENS,.07)={ENROLLMENT_PRIORITY} set:{EFFECTIVE_DATE*C} FDA(27.11,IENS,.08)={EFFECTIVE_DATE} set:{ENROLLMENT_DATE*C} FDA(27.11,IENS,.1)={ENROLLMENT_DATE} set:{ENROLLMENT_END_DATE*C} FDA(27.11,IENS,.11)={ENROLLMENT_END_DATE} set:{ENROLLMENT_SUBGROUP*C} FDA(27.11,IENS,.12)={ENROLLMENT_SUBGROUP} set:{REASON_FOR_CLOSED_APPLICATION*C} FDA(27.11,IENS,.13)={REASON_FOR_CLOSED_APPLICATION} set:{PT_APPLIED_FOR_ENROLLMENT*C} FDA(27.11,IENS,.14)={PT_APPLIED_FOR_ENROLLMENT} set:{REGISTRATION_ONLY_DATE*C} FDA(27.11,IENS,.16)={REGISTRATION_ONLY_DATE} set:{SOURCE_OF_REGISTRATION*C} FDA(27.11,IENS,.17)={SOURCE_OF_REGISTRATION} set:{CANCELEDDECLINED_REMARKS*C} FDA(27.11,IENS,25)={CANCELEDDECLINED_REMARKS} set:{SERVICE_CONNECTED*C} FDA(27.11,IENS,50.02)={SERVICE_CONNECTED} set:{SERVICE_CONNECTED_PERCENTAGE*C} FDA(27.11,IENS,50.03)={SERVICE_CONNECTED_PERCENTAGE} set:{POW_STATUS_INDICATED*C} FDA(27.11,IENS,50.04)={POW_STATUS_INDICATED} set:{RECEIVING_AA_BENEFITS*C} FDA(27.11,IENS,50.05)={RECEIVING_AA_BENEFITS} set:{RECEIVING_HOUSEBOUND_BENEFITS*C} FDA(27.11,IENS,50.06)={RECEIVING_HOUSEBOUND_BENEFITS} set:{RECEIVING_A_VA_PENSION*C} FDA(27.11,IENS,50.07)={RECEIVING_A_VA_PENSION} set:{TOTAL_ANNUAL_VA_CHECK_AMOUNT*C} FDA(27.11,IENS,50.08)={TOTAL_ANNUAL_VA_CHECK_AMOUNT} set:{DISABILITY_RET__FROM_MILITARY*C} FDA(27.11,IENS,50.09)={DISABILITY_RET__FROM_MILITARY} set:{MEDICAID*C} FDA(27.11,IENS,50.1)={MEDICAID} set:{EXPOSED_TO_AGENT_ORANGE*C} FDA(27.11,IENS,50.11)={EXPOSED_TO_AGENT_ORANGE} set:{RADIATION_EXPOSURE_INDICATED*C} FDA(27.11,IENS,50.12)={RADIATION_EXPOSURE_INDICATED} set:{SOUTHWEST_ASIA_CONDITIONS*C} FDA(27.11,IENS,50.13)={SOUTHWEST_ASIA_CONDITIONS} set:{VETERAN_CATASTROPHICALLY_DISABLED*C} FDA(27.11,IENS,50.15)={VETERAN_CATASTROPHICALLY_DISABLED} set:{PURPLE_HEART_INDICATED*C} FDA(27.11,IENS,50.16)={PURPLE_HEART_INDICATED} set:{UNEMPLOYABLE*C} FDA(27.11,IENS,50.17)={UNEMPLOYABLE} set:{COMBAT_VETERAN_END_DATE*C} FDA(27.11,IENS,50.18)={COMBAT_VETERAN_END_DATE} set:{PROJ_112SHAD*C} FDA(27.11,IENS,50.19)={PROJ_112SHAD} set:{DISCHARGED_DUE_TO_DISABILITY*C} FDA(27.11,IENS,50.2)={DISCHARGED_DUE_TO_DISABILITY} set:{AGENT_ORANGE_EXPOSURE_LOCATION*C} FDA(27.11,IENS,50.22)={AGENT_ORANGE_EXPOSURE_LOCATION} set:{MEDAL_OF_HONOR_INDICATED*C} FDA(27.11,IENS,50.23)={MEDAL_OF_HONOR_INDICATED} set:{CAMP_LEJEUNE_INDICATED*C} FDA(27.11,IENS,50.24)={CAMP_LEJEUNE_INDICATED} set:{CAMP_LEJEUNE_DATE*C} FDA(27.11,IENS,50.25)={CAMP_LEJEUNE_DATE} set:{CAMP_LEJEUNE_CHANGE_SITE*C} FDA(27.11,IENS,50.26)={CAMP_LEJEUNE_CHANGE_SITE} set:{CAMP_LEJEUNE_SOURCE*C} FDA(27.11,IENS,50.27)={CAMP_LEJEUNE_SOURCE} set:{MOH_AWARD_DATE*C} FDA(27.11,IENS,50.28)={MOH_AWARD_DATE} set:{MOH_STATUS_DATE*C} FDA(27.11,IENS,50.29)={MOH_STATUS_DATE} set:{MOH_COPAYMENT_EXEMPTION_DATE*C} FDA(27.11,IENS,50.3)={MOH_COPAYMENT_EXEMPTION_DATE} set:{EXPANDED_MH_CARE_TYPE*C} FDA(27.11,IENS,50.31)={EXPANDED_MH_CARE_TYPE} set:{DATETIME_ENTERED*C} FDA(27.11,IENS,75.01)={DATETIME_ENTERED} set:{RADIATION_EXPOSURE_METHOD*C} FDA(27.11,IENS,76)={RADIATION_EXPOSURE_METHOD} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(27.11)") set %SkipFiling=1 if $d(%FMERR(27.11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(27.11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PATIENTENRO5F98S index ^DGEN nonnull 27.11 "B" {APPLICATION_DATE} {IEN} 0]]> data ^DGEN 27.11 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "E" 22 "^" 0 1 "^" "E" 26 "^" "E" 25 "^" "E" 24 "^" "E" 27 "^" "R" 1 "^" "E" 18 "^" "U" 1 "^" "E" 9 "^" "E" 20 "^" 0 8 "^" 0 10 "^" 0 11 "^" 0 7 "^" 0 12 "^" "E" 31 "^" "E" 11 "^" "E" 23 "^" "E" 10 "^" "E" 28 "^" "E" 30 "^" "E" 29 "^" "E" 4 "^" "E" 19 "^" 0 14 "^" "E" 16 "^" "E" 12 "^" "E" 21 "^" 0 5 "^" 0 13 "^" "E" 5 "^" "E" 7 "^" "E" 6 "^" 0 16 "^" "E" 2 "^" "E" 3 "^" 0 3 "^" 0 17 "^" "E" 13 "^" "E" 8 "^" "E" 17 "^" "E" 15 Generated class for FileMan File Number: '9000001' File Name: 'PATIENT/IHS' Class generated by %fm2class version 2.56 This file is IHS's primary patient data file. The NAME (.01) field of this file is a pointer to the VA's patient file (#2). Fields in common between the two dictionaries actually exist only in the VA patient file and are referenced by the IHS patient file as computed fields. All other files containing patient data have backward pointers linking them to this file. The linkage is by patient name and the internal FileMan gener- ated number of the ancillary file is the same number used in this file. All applications developed for the RPMS which require patient data will point to this file. persistent _PUBLIC 0 RowId PATIENTIHS_9000001 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.0395406 67178,44713.06889621 right PATIENT/IHS 9000001 2.56 12/04/2024 12:25:13 1 1 IEN 1 PATIENT_2]]> NAME VALIP.prosthetic.fm2cw.PATIENT2 FKey_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^AUPNPAT(0),""^"",3)") 1 2 IEN FileMan Field Label: 'LOCATION OF HOME' FileMan Field Number: '1201' This is the directions to get to the patients home. %Library.String 4 LOCATION_OF_HOME FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field points to the Patient file (#2) and has the same internal number as that file. Thus, the patient's name is the Patient file (#2) name. VALIP.prosthetic.fm2cw.PATIENT2 1 3 NAME NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PATIENTIHS_9000001 where %ID=:id) set {NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_NAME 1 Relationship for Sub-File/Multiple to file name HEALTH RECORD NO. child VALIP.prosthetic.fm2cw.SUBHEALTHRECORDNO900000141 children PATIENTIHS9000001 1 SUB_HEALTH_RECORD_NO__9000001_41 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^AUPNPAT(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(9000001,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(9000001)") set %SkipFiling=1 if $d(%FMERR(9000001,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LOCATION_OF_HOME}'="" { set D0={RowId} for i=1:1:$l({LOCATION_OF_HOME},$c(13,10)) { set wp(i)=$p({LOCATION_OF_HOME},$c(13,10),i) } do WP^DIE(9000001,{RowId},1201,,"wp","%FMERR(9000001)") if $d(%FMERR(9000001,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(9000001,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(9000001)") set %SkipFiling=1 if $d(%FMERR(9000001,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LOCATION_OF_HOME*C} { set D0={RowId} kill wp if {LOCATION_OF_HOME}'="" { set wproot="wp" for i=1:1:$l({LOCATION_OF_HOME},$c(13,10)) { set wp(i)=$p({LOCATION_OF_HOME},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(9000001,{RowId},1201,,wproot,"%FMERR(9000001)") if $d(%FMERR(9000001,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PATIENTIHS92629S index ^AUPNPAT nonnull "B" {NAME} {IEN} 0]]> data ^AUPNPAT {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 12 new data,i,node set {LOCATION_OF_HOME}="" merge data=^AUPNPAT({S1},12) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {LOCATION_OF_HOME}={LOCATION_OF_HOME}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 Generated class for FileMan File Number: '135.3' File Name: 'PATIENT MOOD ' Class generated by %fm2class version 2.56 This file contains entries regarding the assessment of the patient's mood before and after the operative procedure. It is distributed with pre-supplied entries, however sites may wish to make additions to it. persistent _PUBLIC 0 RowId PATIENT_MOOD__135_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.065633978 67178,44713.517735004 right PATIENT MOOD 135.3 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the assessment of the patient's mood. %Library.String 1 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(135.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to inactivate this file entry and to prevent its selection by Surgery users. %Library.EnumString 5 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Assessment of the Patient's Mood This is the assessment of the patient's mood. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(135.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(135.3,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(135.3,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(135.3,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(135.3)") set %SkipFiling=1 if $d(%FMERR(135.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(135.3,IENS,.01)={NAME} set:{CODE*C} FDA(135.3,IENS,1)={CODE} set:{INACTIVE*C} FDA(135.3,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(135.3)") set %SkipFiling=1 if $d(%FMERR(135.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PATIENTMOOD8E07S index ^SRO nonnull 135.3 "B" {NAME} {IEN} 0]]> index ^SRO nonnull 135.3 "C" {CODE} {IEN} 0]]> data ^SRO 135.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '405' File Name: 'PATIENT MOVEMENT' Class generated by %fm2class version 2.56 This file holds the data for all admissions, transfers, discharges, treating specialty changes, and lodger movements. These entries must not be edited through fileman. Instead, the appropriate bed control options should be executed to insure data consistency. The following cross-references exist on this file: ^DGPM("ATID"_TT,DFN,Inverse date_AS,DA)="" ^DGPM("ATT"_TT,Date_AS,DA)="" ^DGPM("APID",DFN,Inverse Date_AS,DA)="" ^DGPM("APTT"_TT,DFN,Date_AS,DA)="" ^DGPM("APCA",DFN,Corresponding Admission,Date_AS,DA)="" ^DGPM("APMV",DFN,Corresponding Admission,Inverse Date_AS,DA)="" ^DGPM("APRD",DFN,Date_AS,DA)="" ^DGPM("AMV"_TT,Date_AS,DFN,DA)="" ^DGPM("ATS",DFN,Corresponding Admission,Inverse Date_AS,Treating Specialty,DA)="" ^DGPM("CN",External Format of Ward,DA)="" **inpatients only** ^DGPM("LD",External Format of Ward,DA)="" **lodgers only** ^DGPM("ARM",IFN of Room-bed,DA)=1 or 0 [1 indicates lodger, 0 indicates non-lodger] ^DGPM("B",Date,DA)="" ^DGPM("C",DFN,DA)="" ^DGPM("CA",Corresponding Admission,DA)="" where: TT=Transaction type where choices are as follows: 1=admission 4=check-in lodger 2=transfer 5=check-out lodger 3=discharge 6=specialty change AS=ASIH Sequencewhere choices are as follows: 1=transfer to hospital ASIH 2=Admission to hospital (automatically generated by module) or 1=discharge from hospitalwithin 30 days of ASIH stay 2=transfer to or discharge from NHCU/DOM (automatically generated by module) [NOTE: This value is 0 for non-ASIH movements or ASIH movements where there are not 2 movements at the same date/time] persistent _PUBLIC 0 RowId PATIENT_MOVEMENT_405 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.105070335 67178,44713.551734492 right PATIENT MOVEMENT 405 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'ABSENCE RETURN DATE' FileMan Field Number: '.13' If the patient is being transferred to an absence status (via the AUTH ABSENCE 96 HOURS OR LESS or AUTHORIZED ABSENCE transfer types), you will be asked to provide the date this patient is expected to return. If you choose to transfer the patient with AUTH ABSENCE 96 HOURS OR LESS, this date must be less than or equal to 4 days from the date of transfer. If you choose to transfer the patient AUTHORIZED ABSENCE, the date of return most be more than 4 days after the date of transfer. %Library.FilemanDate 6 ABSENCE_RETURN_DATE FileMan Field Label: 'ADMITTED FOR SC CONDITION?' FileMan Field Number: '.11' Is this patient being admitted for a service connected condition? %Library.EnumString 5 ADMITTED_FOR_SC_CONDITION FileMan Field Label: 'ASIH DAYS' FileMan Field Number: '204' This computed field will print the number of ASIH days for a DOM or NHCU admission episode. It will only be calculated from the admission movements that could have ASIH days. This field is accessible with the following extended syntax: ADMISSION/CHECK-IN MOVEMENT:ASIH DAYS %Library.String 1 28 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S X="" D EN^DGPMLOS S X=$P(X,U,4) set {ASIH_DAYS}=X 1 ASIH_DAYS FileMan Field Label: 'ASIH SEQUENCE' FileMan Field Number: '.22' This field is used internally by the module for movements that are ASIH. When transferring a patient ASIH to your own facility, there are 2 movements created at the same date/time (the admission and the transfer). This is also true for discharges FROM ASIH where both a discharge and a transfer occur at the same date/time. The movement that physically occurs first (the transfer in the first example, and the discharge in the second) will have a sequence number of 1 while the subsequent movement will have a sequence number of 2. This number (divided by 100000000) will be added to the date/time of the movement to aid in cross-referencing these movements. This is intended to make code generation quicker. [NOTE: non- ASIH movements will have a ASIH SEQUENCE of 0] %Library.Numeric 7 ASIH_SEQUENCE FileMan Field Label: 'AT VA EXPENSE?' FileMan Field Number: '11500.03' Answer yes if this transfer to a non-VA facility is at the VA's expense. %Library.EnumString 32 AT_VA_EXPENSE FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' MOVEMENT DATE/TIME Enter in this field the date/time of the movement (admission, transfer, discharge, treating specialty transfer, lodger check-in, or lodger check- out). Time must be included. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DAYS ABSENT' FileMan Field Number: '203' This field is computed to print the number of absence days for a specific admission episode. It will not print PASS DAYS and is calculated from the admission movements only. This field is accessible with the following extended syntax: ADMISSION/CHECK-IN MOVMEMENT:DAYS ABSENT %Library.String 1 27 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S X="" D EN^DGPMLOS S X=$P(X,U,2) set {DAYS_ABSENT}=X 1 DAYS_ABSENT FileMan Field Label: 'DIAGNOSIS' FileMan Field Number: '99' Enter an in-depth description of the diagnosis for this patient. This will be asked for movements with a TRANSACTION TYPE of SPECIALTY TRANSFER only. %Library.String 21 DIAGNOSIS FileMan Field Label: 'DIAGNOSIS [SHORT]' FileMan Field Number: '.1' When admitting a patient, you will be asked to provide a brief desciption of the diagnosis of this patient upon admission. %Library.String 4 DIAGNOSIS_SHORT FileMan Field Label: 'DISPLACED FOR ODS PATIENT?' FileMan Field Number: '11500.05' Enter yes if this patient was transferred out in order to free a bed for an operation desert shield patient. Otherwise, respond no. %Library.EnumString 33 DISPLACED_FOR_ODS_PATIENT FileMan Field Label: 'DISPOSITION' FileMan Field Number: '30.03' Enter in this file the disposition of this patient upon being checked-out as a lodger. Choose from ADMITTED (if the patient was admitted to your facility) or DISMISSED (if the patient was returned to his place of residence). %Library.EnumString 12 DISPOSITION FileMan Field Label: 'DMMS EPISODE NUMBER' FileMan Field Number: '.23' This field has been added for use by the DMMS package. It will hold the episode number of the movement as defined internally by that package. %Library.Numeric 8 DMMS_EPISODE_NUMBER FileMan Field Label: 'ELIGIBILITY' FileMan Field Number: '55' %Library.Numeric 1 19 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(405,55,9.2) S X=$S('$D(^DIC(8,+$P(Y(405,55,101),U,8),0)):"",1:$P(^(0),U,1)) S D0=Y(405,55,80) set {ELIGIBILITY}=X 1 ELIGIBILITY FileMan Field Label: 'ENTERED ON' FileMan Field Number: '101' This field stores the date/time on which this PATIENT MOVEMENT FILE entry was initially entered. %Library.FilemanTimeStamp 22 ENTERED_ON FileMan Field Label: 'EXCLUDE FROM FACILITY DIR' FileMan Field Number: '40' This computed field will determine if the patient wished to be excluded from the Facility Directory for the corresponding admission. %Library.String 1 13 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(405,40,9.2) S Y(405,40,101)=$S($D(^DGPM(D0,"DIR")):^("DIR"),1:"") S X=$P($P(Y(405,40,102),$C(59)_$P(Y(405,40,101),U,1)_":",2),$C(59)) S D0=Y(405,40,80) set {EXCLUDE_FROM_FACILITY_DIR}=X 1 EXCLUDE_FROM_FACILITY_DIR FileMan Field Label: 'FACILITY DIRECTORY EXCLUSION' FileMan Field Number: '41' Denotes whether or not the patient wished to be excluded from the Facility Directory for this admisison. The Facility Directory is the directory of current inpatients in the facility. If the patient wishes to be excluded from the Facility Directory, then the VAMC can not make a positive statement to family, friends, or others as to whether the patient is here or not. %Library.EnumString 14 FACILITY_DIRECTORY_EXCLUSION FileMan Field Label: 'FACILITY DIRECTORY TIME STAMP' FileMan Field Number: '42' Date/time answer to Facility Directory exclusion question was entered. %Library.FilemanTimeStamp 15 FACILITY_DIRECTORY_TIME_STAMP Internal Entry Number %Library.String $$next^%apiSQL("$p(^DGPM(0),""^"",3)") 1 2 IEN FileMan Field Label: 'IRT BACKGROUND JOB RUN' FileMan Field Number: '60.01' This field stores the date that the IRT background job was run for this admission. If this field contains a date, this admission has been initialized and all standard deficiencies have been created for this admission. When the IRT background Job is run for all admission it will check to see if the admission has already been initialized. If so, this admission will not created duplicate entries for the standard deficiencies. %Library.FilemanTimeStamp 20 IRT_BACKGROUND_JOB_RUN FileMan Field Label: 'LAST EDITED ON' FileMan Field Number: '103' This is the date/time this movement was last edited. It will only be stored if a change was made. %Library.FilemanTimeStamp 23 LAST_EDITED_ON FileMan Field Label: 'LENGTH OF STAY' FileMan Field Number: '201' LOS This field will print the length of stay in days from admission to discharge minus DAYS ABSENT and ASIH DAYS. This field is accessible with extended syntax via the following statement: ADMISSION/CHECK-IN MOVEMENT:LOS %Library.String 1 25 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S X="" D EN^DGPMLOS S X=$P(X,U,5) set {LENGTH_OF_STAY}=X 1 LENGTH_OF_STAY FileMan Field Label: 'LODGING COMMENTS' FileMan Field Number: '30.02' Enter an additional comment on why this patient is being lodged if you wish. %Library.String 11 LODGING_COMMENTS FileMan Field Label: 'NEXT PTF MOVEMENT' FileMan Field Number: '53' This field may be filled in for treating specialty movements. It will only be filled in if the treating specialty movement causes a PTF 501 movement to be created in the PTF record associated with the admission. The number stored in this field will be the internal multiple entry number of the 501 multiple, in that PTF record, corresponding to the next chronological 501 movement, if one exists. This field is updated automatically and no user input is necessary. %Library.Numeric 18 NEXT_PTF_MOVEMENT FileMan Field Label: 'NON-VA FACILITY?' FileMan Field Number: '11500.02' Respond yes if you are transferring this patient out to a non-VA facility. Respond no if transferring the patient to another VA facility. %Library.EnumString 31 NONVA_FACILITY FileMan Field Label: 'ODS AT ADMISSION' FileMan Field Number: '11500.01' Was this patient admitted for care due to injuries sustained in Operation Desert Shield? If the patient's period of service is 6 when admitted, this field will automatically be set to 1. %Library.EnumString 30 ODS_AT_ADMISSION FileMan Field Label: 'ORIGINAL ADMISSION DATE' FileMan Field Number: '300' This field contains the original admission date/time for a patient. %Library.FilemanTimeStamp 29 ORIGINAL_ADMISSION_DATE %Library.String 1 26 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S X="" D EN^DGPMLOS S X=$P(X,U,3) set {PASS_DAYS}=X 1 PASS_DAYS FileMan Field Label: 'PTF MOVEMENT NUMBER' FileMan Field Number: '52' This field may be filled in for treating specialty movements. It will only be filled in if the treating specialty movement causes a PTF 501 movement to be created in the PTF record associated with the admission. The number stored in this field will be the internal multiple entry number of the 501 multiple in that PTF record. This field is updated automatically and no user input is necessary. %Library.Numeric 17 PTF_MOVEMENT_NUMBER FileMan Field Label: 'PTF PURGE STATUS' FileMan Field Number: '.26' %Library.EnumString 10 PTF_PURGE_STATUS FileMan Field Label: 'SCHEDULED ADMISSION?' FileMan Field Number: '.25' If this admission was a result of a previously scheduled admission, this field should be answered yes. This field will be filled in for movements with a TRANSACTION of ADMISSION only. %Library.EnumString 9 SCHEDULED_ADMISSION FileMan Field Label: 'SOURCE OF ADMISSION' FileMan Field Number: '51' This computed field will determine the SOURCE OF ADMISSION for the corresponding admission. The value is obtained from the PTF entry associated with the admission. This field is only computed for admission entries. If is field is needed while working with another type of movement, the following extended syntax can be used: ADMISSION/CHECK-IN MOVEMENT:SOURCE OF ADMISSION %Library.String 1 16 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(405,51,9.2) S X=$S('$D(^DIC(45.1,+$P(Y(405,51,101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(405,51,80) set {SOURCE_OF_ADMISSION}=X 1 SOURCE_OF_ADMISSION FileMan Field Label: 'VA COST TO TRAVEL' FileMan Field Number: '11500.06' Enter the cost of travel to move this VA patient to a non-VA facility. This question is only asked if the patient was transferred in order to make room for an operation desert shield patient. %Library.Numeric 34 VA_COST_TO_TRAVEL SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 35 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WARD AT DISCHARGE' FileMan Field Number: '200' This computed field will determine the ward that the patient was on when the patient was discharged. This field is only computed for discharge entries. If is field is needed while working with another type of movement, the following extended syntax can be used: ADMISSION/CHECK-IN MOVEMENT:DISCHARGE/CHECK-OUT MOVEMENT:WARD AT DISCHARGE %Library.String 1 24 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D WARD^DGPMUTL set {WARD_AT_DISCHARGE}=X 1 WARD_AT_DISCHARGE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DGPM(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(405,"+1,",.01)={"DATETIME"} set:{DIAGNOSIS_SHORT}'="" FDA(405,"+1,",.1)={"DIAGNOSIS_SHORT"} set:{ADMITTED_FOR_SC_CONDITION}'="" FDA(405,"+1,",.11)={"ADMITTED_FOR_SC_CONDITION"} set:{ABSENCE_RETURN_DATE}'="" FDA(405,"+1,",.13)={"ABSENCE_RETURN_DATE"} set:{ASIH_SEQUENCE}'="" FDA(405,"+1,",.22)={"ASIH_SEQUENCE"} set:{DMMS_EPISODE_NUMBER}'="" FDA(405,"+1,",.23)={"DMMS_EPISODE_NUMBER"} set:{SCHEDULED_ADMISSION}'="" FDA(405,"+1,",.25)={"SCHEDULED_ADMISSION"} set:{PTF_PURGE_STATUS}'="" FDA(405,"+1,",.26)={"PTF_PURGE_STATUS"} set:{LODGING_COMMENTS}'="" FDA(405,"+1,",30.02)={"LODGING_COMMENTS"} set:{DISPOSITION}'="" FDA(405,"+1,",30.03)={"DISPOSITION"} set:{FACILITY_DIRECTORY_EXCLUSION}'="" FDA(405,"+1,",41)={"FACILITY_DIRECTORY_EXCLUSION"} set:{FACILITY_DIRECTORY_TIME_STAMP}'="" FDA(405,"+1,",42)={"FACILITY_DIRECTORY_TIME_STAMP"} set:{PTF_MOVEMENT_NUMBER}'="" FDA(405,"+1,",52)={"PTF_MOVEMENT_NUMBER"} set:{NEXT_PTF_MOVEMENT}'="" FDA(405,"+1,",53)={"NEXT_PTF_MOVEMENT"} set:{IRT_BACKGROUND_JOB_RUN}'="" FDA(405,"+1,",60.01)={"IRT_BACKGROUND_JOB_RUN"} set:{ENTERED_ON}'="" FDA(405,"+1,",101)={"ENTERED_ON"} set:{LAST_EDITED_ON}'="" FDA(405,"+1,",103)={"LAST_EDITED_ON"} set:{ORIGINAL_ADMISSION_DATE}'="" FDA(405,"+1,",300)={"ORIGINAL_ADMISSION_DATE"} set:{ODS_AT_ADMISSION}'="" FDA(405,"+1,",11500.01)={"ODS_AT_ADMISSION"} set:{NONVA_FACILITY}'="" FDA(405,"+1,",11500.02)={"NONVA_FACILITY"} set:{AT_VA_EXPENSE}'="" FDA(405,"+1,",11500.03)={"AT_VA_EXPENSE"} set:{DISPLACED_FOR_ODS_PATIENT}'="" FDA(405,"+1,",11500.05)={"DISPLACED_FOR_ODS_PATIENT"} set:{VA_COST_TO_TRAVEL}'="" FDA(405,"+1,",11500.06)={"VA_COST_TO_TRAVEL"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(405)") set %SkipFiling=1 if $d(%FMERR(405,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(405)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DIAGNOSIS}'="" { set D0={RowId} for i=1:1:$l({DIAGNOSIS},$c(13,10)) { set wp(i)=$p({DIAGNOSIS},$c(13,10),i) } do WP^DIE(405,{RowId},99,,"wp","%FMERR(405)") if $d(%FMERR(405,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(405)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(405,IENS,.01)={DATETIME} set:{DIAGNOSIS_SHORT*C} FDA(405,IENS,.1)={DIAGNOSIS_SHORT} set:{ADMITTED_FOR_SC_CONDITION*C} FDA(405,IENS,.11)={ADMITTED_FOR_SC_CONDITION} set:{ABSENCE_RETURN_DATE*C} FDA(405,IENS,.13)={ABSENCE_RETURN_DATE} set:{ASIH_SEQUENCE*C} FDA(405,IENS,.22)={ASIH_SEQUENCE} set:{DMMS_EPISODE_NUMBER*C} FDA(405,IENS,.23)={DMMS_EPISODE_NUMBER} set:{SCHEDULED_ADMISSION*C} FDA(405,IENS,.25)={SCHEDULED_ADMISSION} set:{PTF_PURGE_STATUS*C} FDA(405,IENS,.26)={PTF_PURGE_STATUS} set:{LODGING_COMMENTS*C} FDA(405,IENS,30.02)={LODGING_COMMENTS} set:{DISPOSITION*C} FDA(405,IENS,30.03)={DISPOSITION} set:{FACILITY_DIRECTORY_EXCLUSION*C} FDA(405,IENS,41)={FACILITY_DIRECTORY_EXCLUSION} set:{FACILITY_DIRECTORY_TIME_STAMP*C} FDA(405,IENS,42)={FACILITY_DIRECTORY_TIME_STAMP} set:{PTF_MOVEMENT_NUMBER*C} FDA(405,IENS,52)={PTF_MOVEMENT_NUMBER} set:{NEXT_PTF_MOVEMENT*C} FDA(405,IENS,53)={NEXT_PTF_MOVEMENT} set:{IRT_BACKGROUND_JOB_RUN*C} FDA(405,IENS,60.01)={IRT_BACKGROUND_JOB_RUN} set:{ENTERED_ON*C} FDA(405,IENS,101)={ENTERED_ON} set:{LAST_EDITED_ON*C} FDA(405,IENS,103)={LAST_EDITED_ON} set:{ORIGINAL_ADMISSION_DATE*C} FDA(405,IENS,300)={ORIGINAL_ADMISSION_DATE} set:{ODS_AT_ADMISSION*C} FDA(405,IENS,11500.01)={ODS_AT_ADMISSION} set:{NONVA_FACILITY*C} FDA(405,IENS,11500.02)={NONVA_FACILITY} set:{AT_VA_EXPENSE*C} FDA(405,IENS,11500.03)={AT_VA_EXPENSE} set:{DISPLACED_FOR_ODS_PATIENT*C} FDA(405,IENS,11500.05)={DISPLACED_FOR_ODS_PATIENT} set:{VA_COST_TO_TRAVEL*C} FDA(405,IENS,11500.06)={VA_COST_TO_TRAVEL} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(405)") set %SkipFiling=1 if $d(%FMERR(405,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(405)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DIAGNOSIS*C} { set D0={RowId} kill wp if {DIAGNOSIS}'="" { set wproot="wp" for i=1:1:$l({DIAGNOSIS},$c(13,10)) { set wp(i)=$p({DIAGNOSIS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(405,{RowId},99,,wproot,"%FMERR(405)") if $d(%FMERR(405,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(405)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PATIENTMOVEMB6AS index ^DGPM nonnull "AD" {ENTERED_ON} {IEN} 0]]> index ^DGPM nonnull "B" {DATETIME} {IEN} 0]]> data ^DGPM {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 0 13 "^" 0 11 "^" 0 22 "^" "ODS" 3 "^" 0 1 "DX" new data,i,node set {DIAGNOSIS}="" merge data=^DGPM({S1},"DX") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DIAGNOSIS}={DIAGNOSIS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 10 "^" "ODS" 5 "^" "LD" 3 "^" 0 23 "^" "USR" 2 "^" "DIR" 1 "^" "DIR" 2 "^" "IRT" 1 "^" "USR" 4 "^" "LD" 2 "^" "PTF" 3 "^" "ODS" 2 "^" "ODS" 1 "^" "ORG" 1 "^" "PTF" 2 "^" 0 26 "^" 0 25 "^" "ODS" 6 Generated class for FileMan File Number: '442.6' File Name: 'PAT NUMBER' Class generated by %fm2class version 2.56 This file contains prefix information for a PAT number. It allows the user to reserve blocks of P.O.numbers for specific groups of users, so that the computer can automatically assign the next sequential number available within the block when a new PAT is added to file 442. persistent _PUBLIC 0 RowId PAT_NUMBER_442_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44770.696857804 67178,44713.594107489 right PAT NUMBER 442.6 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'COMMON NUMBERING SERIES' FileMan Field Number: '.01' This is the station number and the common numbering series. %Library.String 1 3 COMMON_NUMBERING_SERIES FileMan Field Label: 'FISCAL YEAR' FileMan Field Number: '5' The fiscal year. %Library.String 8 FISCAL_YEAR Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRC(442.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LOWER BOUND' FileMan Field Number: '1' This is the lower bound of the numbering series. %Library.Numeric 4 LOWER_BOUND FileMan Field Label: 'NEXT NUMBER' FileMan Field Number: '3' This is the first number of the series that will be used. %Library.Numeric 6 NEXT_NUMBER FileMan Field Label: 'UPPER BOUND' FileMan Field Number: '2' This is the upper bound of the numbering series. %Library.Numeric 5 UPPER_BOUND FileMan Field Label: 'USING SECTION' FileMan Field Number: '4' This is the using Section. %Library.EnumString 7 USING_SECTION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRC(442.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{COMMON_NUMBERING_SERIES}'="" FDA(442.6,"+1,",.01)={"COMMON_NUMBERING_SERIES"} set:{LOWER_BOUND}'="" FDA(442.6,"+1,",1)={"LOWER_BOUND"} set:{UPPER_BOUND}'="" FDA(442.6,"+1,",2)={"UPPER_BOUND"} set:{NEXT_NUMBER}'="" FDA(442.6,"+1,",3)={"NEXT_NUMBER"} set:{USING_SECTION}'="" FDA(442.6,"+1,",4)={"USING_SECTION"} set:{FISCAL_YEAR}'="" FDA(442.6,"+1,",5)={"FISCAL_YEAR"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(442.6)") set %SkipFiling=1 if $d(%FMERR(442.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(442.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{COMMON_NUMBERING_SERIES*C} FDA(442.6,IENS,.01)={COMMON_NUMBERING_SERIES} set:{LOWER_BOUND*C} FDA(442.6,IENS,1)={LOWER_BOUND} set:{UPPER_BOUND*C} FDA(442.6,IENS,2)={UPPER_BOUND} set:{NEXT_NUMBER*C} FDA(442.6,IENS,3)={NEXT_NUMBER} set:{USING_SECTION*C} FDA(442.6,IENS,4)={USING_SECTION} set:{FISCAL_YEAR*C} FDA(442.6,IENS,5)={FISCAL_YEAR} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(442.6)") set %SkipFiling=1 if $d(%FMERR(442.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(442.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.PATNUMBER4426S index ^PRC nonnull 442.6 "B" {COMMON_NUMBERING_SERIES} {IEN} 0]]> data ^PRC 442.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 6 "^" 0 2 "^" 0 4 "^" 0 3 "^" 0 5 Generated class for FileMan File Number: '839.7' File Name: 'PCE DATA SOURCE' Class generated by %fm2class version 2.56 Entries in this file represent the originating sources of data that is stored in PCE. persistent _PUBLIC 0 RowId PCE_DATA_SOURCE_839_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.14382109 67178,44713.627177788 right PCE DATA SOURCE 839.7 2.56 12/04/2024 12:25:13 1 1 IEN 1 INSTITUTION_4]]> INSTITUTION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_INSTITUTION DEVICE_3_5]]> INTERFACEDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_INTERFACE_DEVICE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '101' %Library.String 8 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PX(839.7,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INSTITUTION' FileMan Field Number: '.04' VALIP.prosthetic.fm2cw.INSTITUTION4 6 INSTITUTION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PCE_DATA_SOURCE_839_7 where %ID=:id) set {INSTITUTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INSTITUTION_NAME 1 FileMan Field Label: 'INTERFACE DEVICE' FileMan Field Number: '.02' VALIP.prosthetic.fm2cw.DEVICE35 4 INTERFACE_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PCE_DATA_SOURCE_839_7 where %ID=:id) set {INTERFACE_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INTERFACE_DEVICE_NAME 1 FileMan Field Label: 'LOCATION' FileMan Field Number: '.03' %Library.String 5 LOCATION FileMan Field Label: 'SEND SCHEDULING BULLETINS' FileMan Field Number: '.09' %Library.EnumString 7 SEND_SCHEDULING_BULLETINS -tuple.]]> %Library.String 1 3 SOURCE_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PX(839.7," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SOURCE_NAME}'="" FDA(839.7,"+1,",.01)={"SOURCE_NAME"} set:{INTERFACE_DEVICE}'="" FDA(839.7,"+1,",.02)={"INTERFACE_DEVICE"} set:{LOCATION}'="" FDA(839.7,"+1,",.03)={"LOCATION"} set:{INSTITUTION}'="" FDA(839.7,"+1,",.04)={"INSTITUTION"} set:{SEND_SCHEDULING_BULLETINS}'="" FDA(839.7,"+1,",.09)={"SEND_SCHEDULING_BULLETINS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(839.7)") set %SkipFiling=1 if $d(%FMERR(839.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(839.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(839.7,{RowId},101,,"wp","%FMERR(839.7)") if $d(%FMERR(839.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(839.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SOURCE_NAME*C} FDA(839.7,IENS,.01)={SOURCE_NAME} set:{INTERFACE_DEVICE*C} FDA(839.7,IENS,.02)={INTERFACE_DEVICE} set:{LOCATION*C} FDA(839.7,IENS,.03)={LOCATION} set:{INSTITUTION*C} FDA(839.7,IENS,.04)={INSTITUTION} set:{SEND_SCHEDULING_BULLETINS*C} FDA(839.7,IENS,.09)={SEND_SCHEDULING_BULLETINS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(839.7)") set %SkipFiling=1 if $d(%FMERR(839.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(839.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(839.7,{RowId},101,,wproot,"%FMERR(839.7)") if $d(%FMERR(839.7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(839.7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PCEDATASOUR7A48S index ^PX nonnull 839.7 "B" {SOURCE_NAME} {IEN} 0]]> data ^PX 839.7 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 new data,i,node set {DESCRIPTION}="" merge data=^PX(839.7,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 4 "^" 0 2 "^" 0 3 "^" 0 9 "^" 0 1 Generated class for FileMan File Number: '27.18' File Name: 'PENSION AWARD REASONS' Class generated by %fm2class version 2.56 This file contains reasons for the awarding of and changes to pension benefits. The VBA manages benefits awards and changes to benefits. Receiving VA Pension is a monetary benefit granted to a Veteran. Recently, additional information has been shared with the HEC so that periods of award could be more accurately shown for billing purposes. Simply having a Pension Indicator = yes or no is not enough for that purpose. This file comes pre-populated and the sites are not allowed to edit it. Any changes to file will come in a patch. persistent _PUBLIC 0 RowId PENSION_AWARD_REASONS_27_18 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.16733944 67178,44713.66106585 right PENSION AWARD REASONS 27.18 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' The code identifies the Pension Award Reason. %Library.String 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(27.18,0),""^"",3)") 1 2 IEN FileMan Field Label: 'REASON' FileMan Field Number: '.01' This is the reason for the Pension Award. %Library.String 1 3 REASON SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(27.18," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{REASON}'="" FDA(27.18,"+1,",.01)={"REASON"} set:{CODE}'="" FDA(27.18,"+1,",1)={"CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(27.18)") set %SkipFiling=1 if $d(%FMERR(27.18,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(27.18)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{REASON*C} FDA(27.18,IENS,.01)={REASON} set:{CODE*C} FDA(27.18,IENS,1)={CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(27.18)") set %SkipFiling=1 if $d(%FMERR(27.18,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(27.18)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PENSIONAWAR7FD6S index {REASON}'="" 1 ^DG conditional 27.18 "B" $$TRUNCATE({REASON},30)) {IEN} 0]]> index ^DG nonnull 27.18 "C" {CODE} {IEN} 0]]> data ^DG 27.18 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '696.1' File Name: 'PERCENTAGE LESION' Class generated by %fm2class version 2.56 This file stores the lesion percentage for various segments of the Cardiac Catheterization procedures. persistent _PUBLIC 0 RowId PERCENTAGE_LESION_696_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.175888376 67178,44713.693800138 right PERCENTAGE LESION 696.1 2.56 12/04/2024 12:25:13 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file. %Library.String 1 3 NAME FileMan Field Label: 'PRESSURE GRADIENT' FileMan Field Number: '1' %Library.Numeric 4 PRESSURE_GRADIENT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696.1,"+1,",.01)={"NAME"} set:{PRESSURE_GRADIENT}'="" FDA(696.1,"+1,",1)={"PRESSURE_GRADIENT"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696.1)") set %SkipFiling=1 if $d(%FMERR(696.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696.1,IENS,.01)={NAME} set:{PRESSURE_GRADIENT*C} FDA(696.1,IENS,1)={PRESSURE_GRADIENT} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.1)") set %SkipFiling=1 if $d(%FMERR(696.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PERCENTAGEL3C7FS index ^MCAR nonnull 696.1 "B" {NAME} {IEN} 0]]> data ^MCAR 696.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '21' File Name: 'PERIOD OF SERVICE' Class generated by %fm2class version 2.56 The PERIOD OF SERVICE file contains 37 entries as determined by VACO MAS. Alteration of existing entries or addition of new ones will undoubtedly have a negative impact on the efficient operation of the MAS module and other modules. Updates to this file will be provided by the MAS developers by way of regular releases. persistent _PUBLIC 0 RowId PERIOD_OF_SERVICE_21 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.196663108 67178,44713.72680972 right PERIOD OF SERVICE 21 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '.02' This field contains an abbreviation for this period of service. Outputs and displays may alternately display the abbreviation if insufficient room exists for the full name of the period of service. %Library.String 4 ABBREVIATION FileMan Field Label: 'BEGIN DATE' FileMan Field Number: '.04' This field contains the beginning date of this period of service whether it be a war, conflict, police action, or period of peace. This data is determined by MAS VACO and must not be altered in any way. %Library.FilemanDate 6 BEGIN_DATE FileMan Field Label: 'BRIEF DESCRIPTION' FileMan Field Number: '20' This field contains a brief description of this period of service. It may contain the date range for the conflict or a brief explanation of the period of service. If the user enters two question marks at a PERIOD OF SERVICE prompt, this description will appear in addition to the period of service name and code. %Library.String 12 BRIEF_DESCRIPTION FileMan Field Label: 'CODE' FileMan Field Number: '.03' This field contains the single character code by which this period of service is known. This character is supplied by MAS VACO and MUST NOT BE ALTERED. This code is transmitted to Austin with PTF, OPC, and many other DHCP packages and modules. Editing of this code will have severe negative implications on the integrity of the data you are transmitting and it could cause rejected records and loss of reimbursement for your site. %Library.String 5 CODE FileMan Field Label: 'END DATE' FileMan Field Number: '.05' This field contains the ending date of this period of service whether it be a war, conflict, police action, or period of peace. This data is determined by MAS VACO and must not be altered in any way. %Library.FilemanDate 7 END_DATE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(21,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '.08' If this period of service has been inactivated and should no longer be selectable, this field should contain YES. Periods of service are maintained by VACO and the MAS software module. Therefore, this information should not be altered by the site. Should it be necessary to inactivate a period of service, this will occur through the release of the MAS module via a regular software release. %Library.EnumString 10 INACTIVE FileMan Field Label: 'LATEST DOB' FileMan Field Number: '.07' This field contains the latest date of birth which a patient may have had in order to participate in this period of service. For example, If this field contained 1975, only persons born in 1975 or earlier would have been old enough to serve during this period of service. %Library.FilemanDate 9 LATEST_DOB FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of a period of service as determined by MAS VACO for use in DHCP. This name should not be altered in any way nor should entries be added to or removed from this file. This data is maintained by the MAS package and all updates to it will be made by that package during a release. %Library.String 1 3 NAME FileMan Field Label: 'PTF CODE' FileMan Field Number: '.09' This field contains the code for this period of service which is transmitted as part of the PTF portion of the MAS module. This field is determined by MAS VACO and is maintained by the MAS software module. Editing of this information can have severe negative impacts on the operation of the MAS software and may cause records to be rejected in Austin. %Library.String 11 PTF_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 13 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WAR/PEACE' FileMan Field Number: '.06' This field contains a set of codes to determine whether this period of service was a wartime period or a period of peace. This information is determined by VACO and must not be altered in any way. %Library.EnumString 8 WARPEACE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(21," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(21,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(21,"+1,",.02)={"ABBREVIATION"} set:{CODE}'="" FDA(21,"+1,",.03)={"CODE"} set:{BEGIN_DATE}'="" FDA(21,"+1,",.04)={"BEGIN_DATE"} set:{END_DATE}'="" FDA(21,"+1,",.05)={"END_DATE"} set:{WARPEACE}'="" FDA(21,"+1,",.06)={"WARPEACE"} set:{LATEST_DOB}'="" FDA(21,"+1,",.07)={"LATEST_DOB"} set:{INACTIVE}'="" FDA(21,"+1,",.08)={"INACTIVE"} set:{PTF_CODE}'="" FDA(21,"+1,",.09)={"PTF_CODE"} set:{BRIEF_DESCRIPTION}'="" FDA(21,"+1,",20)={"BRIEF_DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(21)") set %SkipFiling=1 if $d(%FMERR(21,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(21)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(21,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(21,IENS,.02)={ABBREVIATION} set:{CODE*C} FDA(21,IENS,.03)={CODE} set:{BEGIN_DATE*C} FDA(21,IENS,.04)={BEGIN_DATE} set:{END_DATE*C} FDA(21,IENS,.05)={END_DATE} set:{WARPEACE*C} FDA(21,IENS,.06)={WARPEACE} set:{LATEST_DOB*C} FDA(21,IENS,.07)={LATEST_DOB} set:{INACTIVE*C} FDA(21,IENS,.08)={INACTIVE} set:{PTF_CODE*C} FDA(21,IENS,.09)={PTF_CODE} set:{BRIEF_DESCRIPTION*C} FDA(21,IENS,20)={BRIEF_DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(21)") set %SkipFiling=1 if $d(%FMERR(21,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(21)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PERIODOFSERV397S index ^DIC nonnull 21 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 21 "C" {ABBREVIATION} {IEN} 0]]> index ^DIC nonnull 21 "D" {CODE} {IEN} 0]]> data ^DIC 21 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 20 "^" 0 3 "^" 0 5 "^" 0 8 "^" 0 7 "^" 0 1 "^" 0 9 "^" 0 6 Generated class for FileMan File Number: '8932.1' File Name: 'PERSON CLASS' Class generated by %fm2class version 2.56 Per VHA Directive 2005-044, this file has been "locked down" by Data Standardization (DS). The file definition (i.e. data dictionary) shall not be modified. All additions, changes and deletions to entries in the file shall be done by Enterprise Reference Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS). Creating and/or editing locally defined fields in the file are not permitted. Use of locally defined fields that were created prior to the VHA Directive's 2005-044 effective date shall not be supported. This file holds the CMS (HCFA) provider type data. In 2001, ANSI ASC X12N asked the National Uniform Claim Committee (NUCC) to become the official maintainer of the Health Care Provider Taxonomy List (provider type). PERSON CLASS is to be used for identifying provider types for roll-ups. Patches need to review the technical description on field 90002. persistent _PUBLIC 0 RowId PERSON_CLASS_8932_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.212145828 67178,44713.763131687 right PERSON CLASS 8932.1 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'AREA OF SPECIALIZATION' FileMan Field Number: '2' This is Level III in NUCC's structure of the Provider Taxonomy. It is the most specific, but sometimes defines a "sub-category" of Classification. %Library.String 8 AREA_OF_SPECIALIZATION FileMan Field Label: 'AREA OF SPECIALIZATION CODE' FileMan Field Number: '2.1' This is Level III, Area of Specialization - a 5 byte alphanumeric consisting of the 5th through 9th characters of the X12 CODE: A code that identifies the provider's specialization, a segment of the population that a health care provider chooses to service, a specific medical service, a specialization in treating a specific disease, or any other descriptive characteristic about the providers practice relating to the services rendered. %Library.String 1 9 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(8932.1,2.1,9.2) S X=$E(Y(8932.1,2.1,2),Y(8932.1,2.1,3),X) set {AREA_OF_SPECIALIZATION_CODE}=X 1 AREA_OF_SPECIALIZATION_CODE FileMan Field Label: 'CLASSIFICATION' FileMan Field Number: '1' This is the CMS (X12) Classification (Level II). %Library.String 6 CLASSIFICATION FileMan Field Label: 'CLASSIFICATION CODE' FileMan Field Number: '1.1' This is Level II, Classification Code - 2 byte alphanumeric consisting of the 3rd and 4th characters of the X12 CODE: A code that identifies more specific services(s) or occupation(s) within the health care provider type. The coding is based on licensed provider classifications. %Library.String 1 7 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(8932.1,1.1,9.2) S X=$E(Y(8932.1,1.1,2),Y(8932.1,1.1,3),X) set {CLASSIFICATION_CODE}=X 1 CLASSIFICATION_CODE FileMan Field Label: 'DATE INACTIVATED' FileMan Field Number: '4' This field holds the date that this Class was inactivated. %Library.FilemanDate 11 DATE_INACTIVATED FileMan Field Label: 'DEFINITION' FileMan Field Number: '11' %Library.String 16 DEFINITION Internal Entry Number %Library.String $$next^%apiSQL("$p(^USC(8932.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDIVIDUAL/NON' FileMan Field Number: '90002' This field indicates whether the entry is for an Individual or for a Non-Individual, and was added at the request of IHS in their namespace, until the file supporting Non-Individuals can be defined. Note that the current definition of the X12 CODE does not explicitly indicate whether an entry is for an Individual or for a Non-Individual, either in value or structure definition. %Library.EnumString 19 INDIVIDUALNON FileMan Field Label: 'MASTER ENTRY FOR VUID' FileMan Field Number: '99.98' This field identifies the Master entry for a VUID associated with a Term/Concept. %Library.EnumString 17 MASTER_ENTRY_FOR_VUID FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This is a number field to allow adding new entries by number. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'PROVIDER TYPE' FileMan Field Number: '.01' This is Level I of NUCC's structure of the Provider Taxonomy. %Library.String 1 4 PROVIDER_TYPE FileMan Field Label: 'PROVIDER TYPE CODE' FileMan Field Number: '.011' This is Level I, Provider Type - 2 byte alphanumeric consisting of the 1st and 2nd characters of X12 CODE: A code that identifies a major grouping of service(s) or occupation(s) of health care providers. %Library.String 1 5 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(8932.1,.011,9.2) S X=$E(Y(8932.1,.011,2),Y(8932.1,.011,3),X) set {PROVIDER_TYPE_CODE}=X 1 PROVIDER_TYPE_CODE FileMan Field Label: 'reserved' FileMan Field Number: '7' This field is only to help a conversion routine for updates to the file. Any data is used only be a update routine. %Library.String 14 RESERVED FileMan Field Label: 'SPECIALTY CODE' FileMan Field Number: '8' This field holds the specialty code associated with the classification %Library.String 15 SPECIALTY_CODE FileMan Field Label: 'STATUS' FileMan Field Number: '3' This field will allow old entries to be disabled without removing them from the table. %Library.EnumString 10 STATUS FileMan Field Label: 'VA CODE' FileMan Field Number: '5' This field holds the 7 character VA assigned code for national roll-up. %Library.String 12 VA_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 20 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VUID' FileMan Field Number: '99.99' VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide. %Library.String 18 VUID FileMan Field Label: 'X12 CODE' FileMan Field Number: '6' This is the code assigned by X12N. X12 published the joint X12N and CMS Health Care Provider Taxonomy following the June 1997 X12 meeting. %Library.String 13 X12_CODE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^USC(8932.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{PROVIDER_TYPE}'="" FDA(8932.1,"+1,",.01)={"PROVIDER_TYPE"} set:{CLASSIFICATION}'="" FDA(8932.1,"+1,",1)={"CLASSIFICATION"} set:{AREA_OF_SPECIALIZATION}'="" FDA(8932.1,"+1,",2)={"AREA_OF_SPECIALIZATION"} set:{STATUS}'="" FDA(8932.1,"+1,",3)={"STATUS"} set:{DATE_INACTIVATED}'="" FDA(8932.1,"+1,",4)={"DATE_INACTIVATED"} set:{VA_CODE}'="" FDA(8932.1,"+1,",5)={"VA_CODE"} set:{X12_CODE}'="" FDA(8932.1,"+1,",6)={"X12_CODE"} set:{RESERVED}'="" FDA(8932.1,"+1,",7)={"RESERVED"} set:{SPECIALTY_CODE}'="" FDA(8932.1,"+1,",8)={"SPECIALTY_CODE"} set:{MASTER_ENTRY_FOR_VUID}'="" FDA(8932.1,"+1,",99.98)={"MASTER_ENTRY_FOR_VUID"} set:{VUID}'="" FDA(8932.1,"+1,",99.99)={"VUID"} set:{INDIVIDUALNON}'="" FDA(8932.1,"+1,",90002)={"INDIVIDUALNON"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8932.1)") set %SkipFiling=1 if $d(%FMERR(8932.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8932.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFINITION}'="" { set D0={RowId} for i=1:1:$l({DEFINITION},$c(13,10)) { set wp(i)=$p({DEFINITION},$c(13,10),i) } do WP^DIE(8932.1,{RowId},11,,"wp","%FMERR(8932.1)") if $d(%FMERR(8932.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8932.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{PROVIDER_TYPE*C} FDA(8932.1,IENS,.01)={PROVIDER_TYPE} set:{CLASSIFICATION*C} FDA(8932.1,IENS,1)={CLASSIFICATION} set:{AREA_OF_SPECIALIZATION*C} FDA(8932.1,IENS,2)={AREA_OF_SPECIALIZATION} set:{STATUS*C} FDA(8932.1,IENS,3)={STATUS} set:{DATE_INACTIVATED*C} FDA(8932.1,IENS,4)={DATE_INACTIVATED} set:{VA_CODE*C} FDA(8932.1,IENS,5)={VA_CODE} set:{X12_CODE*C} FDA(8932.1,IENS,6)={X12_CODE} set:{RESERVED*C} FDA(8932.1,IENS,7)={RESERVED} set:{SPECIALTY_CODE*C} FDA(8932.1,IENS,8)={SPECIALTY_CODE} set:{MASTER_ENTRY_FOR_VUID*C} FDA(8932.1,IENS,99.98)={MASTER_ENTRY_FOR_VUID} set:{VUID*C} FDA(8932.1,IENS,99.99)={VUID} set:{INDIVIDUALNON*C} FDA(8932.1,IENS,90002)={INDIVIDUALNON} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8932.1)") set %SkipFiling=1 if $d(%FMERR(8932.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8932.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFINITION*C} { set D0={RowId} kill wp if {DEFINITION}'="" { set wproot="wp" for i=1:1:$l({DEFINITION},$c(13,10)) { set wp(i)=$p({DEFINITION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(8932.1,{RowId},11,,wproot,"%FMERR(8932.1)") if $d(%FMERR(8932.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8932.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PERSONCLASS6CEES index ^USC nonnull 8932.1 "AMASTERVUID" {VUID} {MASTER_ENTRY_FOR_VUID} {IEN} 0]]> index ^USC nonnull 8932.1 "AVUID" {VUID} {IEN} 0]]> index ^USC nonnull 8932.1 "F" {VA_CODE} {IEN} 0]]> index ^USC nonnull 8932.1 "G" {X12_CODE} {IEN} 0]]> data ^USC 8932.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 5 11 new data,i,node set {DEFINITION}="" merge data=^USC(8932.1,{S2},11) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DEFINITION}={DEFINITION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 90002 2 "^" "VUID" 2 "^" 0 1 "^" 0 8 "^" 0 9 "^" 0 4 "^" 0 6 "^" "VUID" 1 "^" 0 7 Generated class for FileMan File Number: '375' File Name: 'PFSS ACCOUNT' Class generated by %fm2class version 2.56 This file is used to store visit/encounter data from various VistA applications, so that a background process can create HL7 ADT messages that are sent to the external medical billing system. Under no circumstances may records be created or modified directly via FileMan or other methods. Record creation and data update is allowed only through GETACCT^IBBAPI. Per VHA Directive 10-93-142, this file definition should not be modified. persistent _PUBLIC 0 RowId PFSS_ACCOUNT_375 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.262278019 67178,44713.826042243 right PFSS ACCOUNT 375 2.56 12/04/2024 12:25:13 1 1 IEN 1 NEW_PERSON_200]]> ADMITTINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ADMITTING_PHYSICIAN APPOINTMENT_TYPE_409_1]]> APPOINTMENTTYPE VALIP.prosthetic.fm2cw.APPOINTMENTTYPE4091 FKey_APPOINTMENT_TYPE NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN NEW_PERSON_200]]> CONSULTINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CONSULTING_PHYSICIAN CLINIC_STOP_40_7]]> CREDITSTOPCODE VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_CREDIT_STOP_CODE MAS_ELIGIBILITY_CODE_8_1]]> ELIGIBILITYOFVISIT VALIP.prosthetic.fm2cw.MASELIGIBILITYCODE81 FKey_ELIGIBILITY_OF_VISIT MEDICAL_CENTER_DIVISION_40_8]]> FACILITYID VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 FKey_FACILITY_ID NEW_PERSON_200]]> OTHERPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_OTHER_PROVIDER PATIENT_2]]> PATIENT VALIP.prosthetic.fm2cw.PATIENT2 FKey_PATIENT HOSPITAL_LOCATION_44]]> PATIENTLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_PATIENT_LOCATION CLINIC_STOP_40_7]]> PRIMARYSTOPCODE VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_PRIMARY_STOP_CODE CPT_81]]> PROCEDURECODE VALIP.prosthetic.fm2cw.CPT81 FKey_PROCEDURE_CODE RADNUC_MED_ORDERS_75_1]]> RADIOLOGYCLINICALHX VALIP.prosthetic.fm2cw.RADNUCMEDORDERS751 FKey_RADIOLOGY_CLINICAL_HX NEW_PERSON_200]]> SURGEON VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SURGEON SURGERY_130]]> SURGICALCASE VALIP.prosthetic.fm2cw.SURGERY130 FKey_SURGICAL_CASE_ SURGICAL_SPECIALTY_45_3]]> SURGICALSPECIALTY VALIP.prosthetic.fm2cw.SURGICALSPECIALTY453 FKey_SURGICAL_SPECIALTY FileMan Field Label: 'ACCOUNT REFERENCE' FileMan Field Number: '.01' The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing. %Library.Numeric 1 3 ACCOUNT_REFERENCE FileMan Field Label: 'ADMITTING PHYSICIAN' FileMan Field Number: '1.17' The sending application may provide data on the Admitting Physician, Surgeon, or Primary Provider associated with the visit/encounter. The data is provided as a pointer to the NEW PERSON file (#200). VALIP.prosthetic.fm2cw.NEWPERSON200 15 ADMITTING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {ADMITTING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ADMITTING_PHYSICIAN_NAME 1 FileMan Field Label: 'ADMIT DATE/TIME' FileMan Field Number: '1.44' The definition of this data element is dependent upon the application that is the originating source of the data in the account record. SCHEDULING -- Appointment Date/Time PCE -- Visit Date/Time PTF/FEE BASIS -- Admit Date RADIOLOGY -- Date Exam Desired PROSTHETICS -- Entry Date OP PHARMACY -- Fill/Refill Date SURGERY -- Date of Operation %Library.FilemanTimeStamp 19 ADMIT_DATETIME FileMan Field Label: 'ALTERNATE VISIT ID' FileMan Field Number: '1.5' Radiology Secondary Visit Number; used for Radiology charges; the external billing system's Visit Number associated with the CPRS ORDER (#100) for the outpatient or inpatient Radiology order. Concatenate ";;;;RAD to numeric string. Surgery Surgical Case Number; used for Surgery account creation. Concatenate ";;;;SUR to numeric string. OP Pharmacy IEN to PRESCRIPTION file (#52); used for Pharmacy account creation. Concatenate ";;;;OPP to numeric string. %Library.String 21 ALTERNATE_VISIT_ID FileMan Field Label: 'APPLICATION REFERENCE' FileMan Field Number: '.04' This field value indicates where in application processing the GETACCT^IBBAPI function is called. %Library.String 6 APPLICATION_REFERENCE FileMan Field Label: 'APPOINTMENT STATUS' FileMan Field Number: '2.24' %Library.EnumString 26 APPOINTMENT_STATUS FileMan Field Label: 'APPOINTMENT TYPE' FileMan Field Number: '1.04' If the account is setup for an actual outpatient visit (i.e., a Scheduled appointment), this field will contain a pointer to the APPOINTMENT TYPE file (#409.1). VALIP.prosthetic.fm2cw.APPOINTMENTTYPE4091 11 APPOINTMENT_TYPE NAME Name of the appointment type, i.e. Class II Dental is designated for veterans who are scheduling an appointment to be treated for a dental condition that was related to active duty.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {APPOINTMENT_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 APPOINTMENT_TYPE_NAME 1 FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '1.07' The sending application may provide data on the Attending Physician or Ordering Provided as a pointer to the NEW PERSON file (#200). VALIP.prosthetic.fm2cw.NEWPERSON200 12 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'CHECK-IN DATE/TIME' FileMan Field Number: '1.25' Normally only used when SCHEDULING is the sending application, this indicates the date/time of the clinic visit check-in. %Library.FilemanTimeStamp 17 CHECKIN_DATETIME FileMan Field Label: 'CONSULTING PHYSICIAN' FileMan Field Number: '1.09' The sending application may provide data on the Consulting Physician related to a patient visit as a pointer to the NEW PERSON file (#200). VALIP.prosthetic.fm2cw.NEWPERSON200 13 CONSULTING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {CONSULTING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONSULTING_PHYSICIAN_NAME 1 FileMan Field Label: 'CREDIT STOP CODE' FileMan Field Number: '1.41' The sending application may provide a pointer to the CLINIC STOP file (#40.7) in order to identify the Credit Stop Code associated with the visit, encounter, or occasion of service. VALIP.prosthetic.fm2cw.CLINICSTOP407 18 CREDIT_STOP_CODE NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {CREDIT_STOP_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREDIT_STOP_CODE_NAME 1 FileMan Field Label: 'DIAGNOSIS TEXT' FileMan Field Number: '12' If the application calling GETACCT^IBBAPI does not yet have Diagnosis data as a pointer to the ICD DIAGNOSIS file (#80), then Diagnosis may be supplied as free text. %Library.String 33 DIAGNOSIS_TEXT FileMan Field Label: 'DISCHARGE DATE/TIME' FileMan Field Number: '1.45' Used only by Scheduling to indicate the Check-Out Date/Time for the outpatient appointment. %Library.FilemanTimeStamp 20 DISCHARGE_DATETIME FileMan Field Label: 'ELIGIBILITY OF VISIT' FileMan Field Number: '2.07' Only used by SCHEDULING or PCE to indicate the patient's Eligibility related to the outpatient visit with which this account record is associated. Data is provided as a pointer to the MAS ELIGIBILITY CODE file (#8.1). VALIP.prosthetic.fm2cw.MASELIGIBILITYCODE81 24 ELIGIBILITY_OF_VISIT NAME This is the official name of the MAS eligibility code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {ELIGIBILITY_OF_VISIT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ELIGIBILITY_OF_VISIT_NAME 1 FileMan Field Label: 'EXPECTED ADMIT DATE/TIME' FileMan Field Number: '2.08' The definition of this data element is dependent upon the application that is the originating source of the data. SCHEDULING -- Appointment Date/Time PROSTHETICS -- Entry Date/Time SURGERY -- Planned Date of Operation RADIOLOGY -- Date Desired for Exam %Library.FilemanTimeStamp 25 EXPECTED_ADMIT_DATETIME FileMan Field Label: 'EXTERNAL ACCOUNT NUMBER' FileMan Field Number: '.02' The number provided by the external medical billing system for purposes of attaching charges for 1st or 3rd party billing. %Library.String 4 EXTERNAL_ACCOUNT_NUMBER FileMan Field Label: 'EXTERNAL ACCT REC'D' FileMan Field Number: '.05' The date/time at which the External Account Number was received and processed into file #375, field #.02. %Library.FilemanTimeStamp 7 EXTERNAL_ACCT_RECD FileMan Field Label: 'FACILITY ID' FileMan Field Number: '13' Identifies the facility (i.e., medical center division) associated with the patient service. VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 34 FACILITY_ID NAME Enter in this field the name of a division at your facility. It may be the main building, a satelite clinic, a domiciliary, or a nursing home.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {FACILITY_ID_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FACILITY_ID_NAME 1 FileMan Field Label: 'FUNCTIONAL TYPE' FileMan Field Number: '3.06' Radiology - Imaging Type Abbreviation. ANI = ANGIO/NEURO/INTERVENTIONAL CARD = CARDIOLOGY STUDIES (NUC MED) CT = CT SCAN RAD = GENERAL RADIOLOGY MRI = MAGNETIC RESONANCE IMAGING MAM = MAMMOGRAPHY NM = NUCLEAR MEDICINE US = ULTRASOUND VAS = VASCULAR LAB Prosthetics - Prosthetics Flag. O = Home Oxygen P = Purchasing I = Stock Issue %Library.String 29 FUNCTIONAL_TYPE Internal Entry Number %Library.String $$next^%apiSQL("$p(^IBBAA(375,0),""^"",3)") 1 2 IEN FileMan Field Label: 'OTHER PROVIDER' FileMan Field Number: '1.52' Data for an additional Provider to be supplied by the calling application as a pointer to the NEW PERSON file (#200). VALIP.prosthetic.fm2cw.NEWPERSON200 23 OTHER_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {OTHER_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OTHER_PROVIDER_NAME 1 FileMan Field Label: 'OUTSIDE LOCATION' FileMan Field Number: '16.01' If the Patient Location for the visit/encounter/service is outside the VAMC, then the name of that location is stored here as free text. For A01 event messages related to inpatient admissions to outside hospitals, the PTF application will use "FEE BASIS" as a generic location descriptor. %Library.String 38 OUTSIDE_LOCATION FileMan Field Label: 'PATIENT' FileMan Field Number: '.03' The Patient identifier associated with the billing account. An internal entry number to the PATIENT file (#2). VALIP.prosthetic.fm2cw.PATIENT2 5 PATIENT FileMan Field Label: 'PATIENT CLASS' FileMan Field Number: '1.02' The Patient associated with this account is classified as either "I" (Inpatient) or "O" (Outpatient). %Library.EnumString 9 PATIENT_CLASS FileMan Field Label: 'PATIENT LOCATION' FileMan Field Number: '1.03' The sending application provides a pointer to the HOSPITAL LOCATION file (#44), which provides the a medical center location where the patient visit took place or where service was provided. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 10 PATIENT_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {PATIENT_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_LOCATION_NAME 1 NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME 1 FileMan Field Label: 'PRIMARY STOP CODE' FileMan Field Number: '1.18' The sending application may provide a pointer to the CLINIC STOP file (#40.7) in order to identify the Primary Stop Code associated with the visit, encounter, or occasion of service. VALIP.prosthetic.fm2cw.CLINICSTOP407 16 PRIMARY_STOP_CODE NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {PRIMARY_STOP_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_STOP_CODE_NAME 1 FileMan Field Label: 'PROCEDURE CODE' FileMan Field Number: '3.03' The applications sending account data to IBB may provide a purpose for the visit, encounter, or occasion of service, in the form of a pointer value to the CPT file (#81). The pointer is used to derive a specific CPT or HCPCS code. VALIP.prosthetic.fm2cw.CPT81 28 PROCEDURE_CODE CPT CODE This file contains both CPT from the AMA and HCFA. The AMA entries will have an internal number less than 99999. The AMA CPT are '5' numbers that coorespond to the internal number. The HCFA codes will have an internal number of 100000 or greater. These codes are '1' alpha followed by '4' numbers, which will NOT correspond to the internal number.]]> %Library.String 1 CPT_CODE into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {PROCEDURE_CODE_CPT_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE_CODE_CPT_CODE 1 FileMan Field Label: 'PROCEDURE CODE MODIFIER(S)' FileMan Field Number: '3.16' Data may only be contained here if field #3.03 holds a pointer to the CPT file (#81), which may be resolved to a CPT or HCPCS code. A string of numbers delimited by semi-colons; each number is a pointer to the CPT MODIFIER file (#81.3). Example: 68;245;74;318; %Library.String 31 PROCEDURE_CODE_MODIFIERS FileMan Field Label: 'PROCEDURE TEXT' FileMan Field Number: '11' If the application calling GETACCT^IBBAPI does not yet have Procedure data as a pointer to the CPT file (#81), then Procedure may be supplied as free text. The calling application may also provide data for this field that is used to enhance or add detail to the CPT or HCPCS code provided in field #3.03. %Library.String 32 PROCEDURE_TEXT FileMan Field Label: 'PT STATUS EFFECTIVE DATE' FileMan Field Number: '2.46' The definition of this data element is dependent upon the application that is the originating source of the data. SCHEDULING - Date Appointment Made. PROSTHETICS - Date Ordered/Suspense Date. %Library.FilemanDate 27 PT_STATUS_EFFECTIVE_DATE %Library.EnumString 14 PURPOSE_OF_VISIT FileMan Field Label: 'RADIOLOGY CLINICAL HX' FileMan Field Number: '15.01' The Clinical History for the Radiology exam can be obtained by using this pointer value to the RAD/NUC MED ORDERS file (#75.1). VALIP.prosthetic.fm2cw.RADNUCMEDORDERS751 37 RADIOLOGY_CLINICAL_HX NAME NAME OF THIS RAD/NUC MED PATIENT This field gives the name of this rad/nuc med patient. The system obtains this information from the main 'PATIENT' file (#2). It is not stored in the 'RAD/NUC MED PATIENT' file (#70). ALLOWABLE WAYS TO ENTER PATIENT NAME: ------------------------------------ -Patient's last name (to reduce typing errors, enter only first few letters of last name) -Last 4 digits of patient's Social Security Number -First letter of patient's last name and last 4 digits of patient's Social Security Number.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {RADIOLOGY_CLINICAL_HX_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RADIOLOGY_CLINICAL_HX_NAME 1 Relationship for Sub-File/Multiple to file name DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBDIAGNOSIS37504 children PFSSACCOUNT375 1 SUB_DIAGNOSIS_375_04 Relationship for Sub-File/Multiple to file name EVENT HISTORY child VALIP.prosthetic.fm2cw.SUBEVENTHISTORY375099 children PFSSACCOUNT375 1 SUB_EVENT_HISTORY_375_099 Relationship for Sub-File/Multiple to file name SC/EI CLASSIFICATION child VALIP.prosthetic.fm2cw.SUBSCEICLASSIFICATION37505 children PFSSACCOUNT375 1 SUB_SCEI_CLASSIFICATION_375_05 FileMan Field Label: 'SURGEON' FileMan Field Number: '3.11' If SURGERY passes to IBB data for setup of an account, then this field provides the identity of the Principal Surgeon as a pointer to the NEW PERSON file (#200). VALIP.prosthetic.fm2cw.NEWPERSON200 30 SURGEON NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {SURGEON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURGEON_NAME 1 FileMan Field Label: 'SURGICAL CASE #' FileMan Field Number: '14.01' Surgical Case # for any account setup by Surgery package. VALIP.prosthetic.fm2cw.SURGERY130 35 SURGICAL_CASE_ PATIENT Patient's Name This is the name of the patient. ]]> %Library.String 1 PATIENT into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {SURGICAL_CASE__PATIENT}=$select(SQLCODE=0:val,1:"")]]> 1 SURGICAL_CASE__PATIENT 1 FileMan Field Label: 'SURGICAL SPECIALTY' FileMan Field Number: '14.02' Surgical Specialty for any account setup by Surgery package. VALIP.prosthetic.fm2cw.SURGICALSPECIALTY453 36 SURGICAL_SPECIALTY CODE This field contains the code for the surgical specialty. The code is a number between 48 and 62, or 78.]]> %Library.Numeric 1 CODE into :val from VALIP_prosthetic_fm2cw.PFSS_ACCOUNT_375 where %ID=:id) set {SURGICAL_SPECIALTY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 SURGICAL_SPECIALTY_CODE 1 FileMan Field Label: 'TEST PATIENT' FileMan Field Number: '.2' If the DFN for this patient indicates a test patient as a result of a call to $$TESTPAT^VADPT, then this field is set to "YES". %Library.EnumString 8 TEST_PATIENT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 39 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WORKLOAD NON-COUNT' FileMan Field Number: '1.51' Normally only used when SCHEDULING is the sending application, this defines the clinic location found in field #1.03 as "count" or "non-count" for workload purposes. %Library.EnumString 22 WORKLOAD_NONCOUNT BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^IBBAA(375," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ACCOUNT_REFERENCE}'="" FDA(375,"+1,",.01)={"ACCOUNT_REFERENCE"} set:{EXTERNAL_ACCOUNT_NUMBER}'="" FDA(375,"+1,",.02)={"EXTERNAL_ACCOUNT_NUMBER"} set:{PATIENT}'="" FDA(375,"+1,",.03)={"PATIENT"} set:{APPLICATION_REFERENCE}'="" FDA(375,"+1,",.04)={"APPLICATION_REFERENCE"} set:{EXTERNAL_ACCT_RECD}'="" FDA(375,"+1,",.05)={"EXTERNAL_ACCT_RECD"} set:{TEST_PATIENT}'="" FDA(375,"+1,",.2)={"TEST_PATIENT"} set:{PATIENT_CLASS}'="" FDA(375,"+1,",1.02)={"PATIENT_CLASS"} set:{PATIENT_LOCATION}'="" FDA(375,"+1,",1.03)={"PATIENT_LOCATION"} set:{APPOINTMENT_TYPE}'="" FDA(375,"+1,",1.04)={"APPOINTMENT_TYPE"} set:{ATTENDING_PHYSICIAN}'="" FDA(375,"+1,",1.07)={"ATTENDING_PHYSICIAN"} set:{CONSULTING_PHYSICIAN}'="" FDA(375,"+1,",1.09)={"CONSULTING_PHYSICIAN"} set:{PURPOSE_OF_VISIT}'="" FDA(375,"+1,",1.1)={"PURPOSE_OF_VISIT"} set:{ADMITTING_PHYSICIAN}'="" FDA(375,"+1,",1.17)={"ADMITTING_PHYSICIAN"} set:{PRIMARY_STOP_CODE}'="" FDA(375,"+1,",1.18)={"PRIMARY_STOP_CODE"} set:{CHECKIN_DATETIME}'="" FDA(375,"+1,",1.25)={"CHECKIN_DATETIME"} set:{CREDIT_STOP_CODE}'="" FDA(375,"+1,",1.41)={"CREDIT_STOP_CODE"} set:{ADMIT_DATETIME}'="" FDA(375,"+1,",1.44)={"ADMIT_DATETIME"} set:{DISCHARGE_DATETIME}'="" FDA(375,"+1,",1.45)={"DISCHARGE_DATETIME"} set:{ALTERNATE_VISIT_ID}'="" FDA(375,"+1,",1.5)={"ALTERNATE_VISIT_ID"} set:{WORKLOAD_NONCOUNT}'="" FDA(375,"+1,",1.51)={"WORKLOAD_NONCOUNT"} set:{OTHER_PROVIDER}'="" FDA(375,"+1,",1.52)={"OTHER_PROVIDER"} set:{ELIGIBILITY_OF_VISIT}'="" FDA(375,"+1,",2.07)={"ELIGIBILITY_OF_VISIT"} set:{EXPECTED_ADMIT_DATETIME}'="" FDA(375,"+1,",2.08)={"EXPECTED_ADMIT_DATETIME"} set:{APPOINTMENT_STATUS}'="" FDA(375,"+1,",2.24)={"APPOINTMENT_STATUS"} set:{PT_STATUS_EFFECTIVE_DATE}'="" FDA(375,"+1,",2.46)={"PT_STATUS_EFFECTIVE_DATE"} set:{PROCEDURE_CODE}'="" FDA(375,"+1,",3.03)={"PROCEDURE_CODE"} set:{FUNCTIONAL_TYPE}'="" FDA(375,"+1,",3.06)={"FUNCTIONAL_TYPE"} set:{SURGEON}'="" FDA(375,"+1,",3.11)={"SURGEON"} set:{PROCEDURE_CODE_MODIFIERS}'="" FDA(375,"+1,",3.16)={"PROCEDURE_CODE_MODIFIERS"} set:{PROCEDURE_TEXT}'="" FDA(375,"+1,",11)={"PROCEDURE_TEXT"} set:{DIAGNOSIS_TEXT}'="" FDA(375,"+1,",12)={"DIAGNOSIS_TEXT"} set:{FACILITY_ID}'="" FDA(375,"+1,",13)={"FACILITY_ID"} set:{SURGICAL_CASE_}'="" FDA(375,"+1,",14.01)={"SURGICAL_CASE_"} set:{SURGICAL_SPECIALTY}'="" FDA(375,"+1,",14.02)={"SURGICAL_SPECIALTY"} set:{RADIOLOGY_CLINICAL_HX}'="" FDA(375,"+1,",15.01)={"RADIOLOGY_CLINICAL_HX"} set:{OUTSIDE_LOCATION}'="" FDA(375,"+1,",16.01)={"OUTSIDE_LOCATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(375)") set %SkipFiling=1 if $d(%FMERR(375,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(375)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ACCOUNT_REFERENCE*C} FDA(375,IENS,.01)={ACCOUNT_REFERENCE} set:{EXTERNAL_ACCOUNT_NUMBER*C} FDA(375,IENS,.02)={EXTERNAL_ACCOUNT_NUMBER} set:{PATIENT*C} FDA(375,IENS,.03)={PATIENT} set:{APPLICATION_REFERENCE*C} FDA(375,IENS,.04)={APPLICATION_REFERENCE} set:{EXTERNAL_ACCT_RECD*C} FDA(375,IENS,.05)={EXTERNAL_ACCT_RECD} set:{TEST_PATIENT*C} FDA(375,IENS,.2)={TEST_PATIENT} set:{PATIENT_CLASS*C} FDA(375,IENS,1.02)={PATIENT_CLASS} set:{PATIENT_LOCATION*C} FDA(375,IENS,1.03)={PATIENT_LOCATION} set:{APPOINTMENT_TYPE*C} FDA(375,IENS,1.04)={APPOINTMENT_TYPE} set:{ATTENDING_PHYSICIAN*C} FDA(375,IENS,1.07)={ATTENDING_PHYSICIAN} set:{CONSULTING_PHYSICIAN*C} FDA(375,IENS,1.09)={CONSULTING_PHYSICIAN} set:{PURPOSE_OF_VISIT*C} FDA(375,IENS,1.1)={PURPOSE_OF_VISIT} set:{ADMITTING_PHYSICIAN*C} FDA(375,IENS,1.17)={ADMITTING_PHYSICIAN} set:{PRIMARY_STOP_CODE*C} FDA(375,IENS,1.18)={PRIMARY_STOP_CODE} set:{CHECKIN_DATETIME*C} FDA(375,IENS,1.25)={CHECKIN_DATETIME} set:{CREDIT_STOP_CODE*C} FDA(375,IENS,1.41)={CREDIT_STOP_CODE} set:{ADMIT_DATETIME*C} FDA(375,IENS,1.44)={ADMIT_DATETIME} set:{DISCHARGE_DATETIME*C} FDA(375,IENS,1.45)={DISCHARGE_DATETIME} set:{ALTERNATE_VISIT_ID*C} FDA(375,IENS,1.5)={ALTERNATE_VISIT_ID} set:{WORKLOAD_NONCOUNT*C} FDA(375,IENS,1.51)={WORKLOAD_NONCOUNT} set:{OTHER_PROVIDER*C} FDA(375,IENS,1.52)={OTHER_PROVIDER} set:{ELIGIBILITY_OF_VISIT*C} FDA(375,IENS,2.07)={ELIGIBILITY_OF_VISIT} set:{EXPECTED_ADMIT_DATETIME*C} FDA(375,IENS,2.08)={EXPECTED_ADMIT_DATETIME} set:{APPOINTMENT_STATUS*C} FDA(375,IENS,2.24)={APPOINTMENT_STATUS} set:{PT_STATUS_EFFECTIVE_DATE*C} FDA(375,IENS,2.46)={PT_STATUS_EFFECTIVE_DATE} set:{PROCEDURE_CODE*C} FDA(375,IENS,3.03)={PROCEDURE_CODE} set:{FUNCTIONAL_TYPE*C} FDA(375,IENS,3.06)={FUNCTIONAL_TYPE} set:{SURGEON*C} FDA(375,IENS,3.11)={SURGEON} set:{PROCEDURE_CODE_MODIFIERS*C} FDA(375,IENS,3.16)={PROCEDURE_CODE_MODIFIERS} set:{PROCEDURE_TEXT*C} FDA(375,IENS,11)={PROCEDURE_TEXT} set:{DIAGNOSIS_TEXT*C} FDA(375,IENS,12)={DIAGNOSIS_TEXT} set:{FACILITY_ID*C} FDA(375,IENS,13)={FACILITY_ID} set:{SURGICAL_CASE_*C} FDA(375,IENS,14.01)={SURGICAL_CASE_} set:{SURGICAL_SPECIALTY*C} FDA(375,IENS,14.02)={SURGICAL_SPECIALTY} set:{RADIOLOGY_CLINICAL_HX*C} FDA(375,IENS,15.01)={RADIOLOGY_CLINICAL_HX} set:{OUTSIDE_LOCATION*C} FDA(375,IENS,16.01)={OUTSIDE_LOCATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(375)") set %SkipFiling=1 if $d(%FMERR(375,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(375)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.PFSSACCOUNT375S index ^IBBAA nonnull 375 "AA" {PATIENT} {IEN} 0]]> index ^IBBAA nonnull 375 "AC" {PATIENT} {ADMIT_DATETIME} {PATIENT_LOCATION} {IEN} 0]]> index ^IBBAA nonnull 375 "AF" {PATIENT} {ADMIT_DATETIME} $$TRUNCATE({OUTSIDE_LOCATION},30)) {IEN} 0]]> index ^IBBAA nonnull 375 "C" {EXTERNAL_ACCOUNT_NUMBER} {IEN} 0]]> data ^IBBAA 375 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" "PV1" 17 "^" "PV1" 44 "^" "PV1" 50 "^" 0 4 "^" "PV2" 24 "^" "PV1" 4 "^" "PV1" 7 "^" "PV1" 25 "^" "PV1" 9 "^" "PV1" 41 "^" 12 1 "^" "PV1" 45 "^" "PV2" 7 "^" "PV2" 8 "^" 0 2 "^" 0 5 "^" 13 1 "^" "PR1" 6 "^" "PV1" 52 "^" 16 1 "^" 0 3 "^" "PV1" 2 "^" "PV1" 3 "^" "PV1" 18 "^" "PR1" 3 "^" "PR1" 16 "^" 11 1 "^" "PV2" 46 "^" "PV1" 10 "^" 15 1 "^" "PR1" 11 "^" 14 1 "^" 14 2 "^" 0 20 "^" "PV1" 51 Generated class for FileMan File Number: '700.2' File Name: 'PFT FORMULA' Class generated by %fm2class version 2.56 This file contains the master list of predicted value and correction formulas for use in Pulmonary Function Tests. persistent _PUBLIC 0 RowId PFT_FORMULA_700_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.260832774 67178,44713.877613681 right PFT FORMULA 700.2 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'ALTITUDE' FileMan Field Number: '9' This field identifies the altitude at which the study that resulted in the formula was done. %Library.String 13 ALTITUDE FileMan Field Label: 'CI' FileMan Field Number: '4' This field identifies the confidence interval. It is subtracted from the predicted value to give a 95% confidence interval. Not all elements will have confidence intervals. %Library.Numeric 8 CI FileMan Field Label: 'DEMOGRAPHICS' FileMan Field Number: '7' This field identifies the type of demographics on which the study was done which resulted in the formula: ie, Black Males, White Females, etc. %Library.String 11 DEMOGRAPHICS Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(700.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'METHOD' FileMan Field Number: '6' This field identifies the method by which the formula was calculated. %Library.String 10 METHOD FileMan Field Label: 'PFT FORMULA' FileMan Field Number: '.01' This contains the actual formula used for the calculation of PFT predicted values %Library.String 1 3 PFT_FORMULA FileMan Field Label: 'RACE TYPE' FileMan Field Number: '3.5' This field is used for doing race corrections on certain PFT elements. It indicates whether the formula for race correction applies to Black or Oriental patients. %Library.EnumString 7 RACE_TYPE FileMan Field Label: 'REFERENCE' FileMan Field Number: '2' This field contains the name of the person developing the formula and the year in which it was developed. %Library.String 5 REFERENCE FileMan Field Label: 'SEE' FileMan Field Number: '5' This field identifies the standard error equivalent, ie the amount of variance in the formula. %Library.String 9 SEE FileMan Field Label: 'SEX TYPE' FileMan Field Number: '3' This field indicates whether the formula applies to male or female patients. %Library.EnumString 6 SEX_TYPE FileMan Field Label: 'SMOKERS INCLUDED' FileMan Field Number: '8' This field identifies whether or not smokers were included in the study that resulted in the formula. %Library.EnumString 12 SMOKERS_INCLUDED FileMan Field Label: 'TYPE' FileMan Field Number: '1' This field is used to indicate which elements of the PFT the formula applies to. For example, a TLC in this field would indicate that this formula is used for Total Lung Capacity predicted values. This field is used as a screen when the formula set is edited. %Library.String 4 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(700.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{PFT_FORMULA}'="" FDA(700.2,"+1,",.01)={"PFT_FORMULA"} set:{TYPE}'="" FDA(700.2,"+1,",1)={"TYPE"} set:{REFERENCE}'="" FDA(700.2,"+1,",2)={"REFERENCE"} set:{SEX_TYPE}'="" FDA(700.2,"+1,",3)={"SEX_TYPE"} set:{RACE_TYPE}'="" FDA(700.2,"+1,",3.5)={"RACE_TYPE"} set:{CI}'="" FDA(700.2,"+1,",4)={"CI"} set:{SEE}'="" FDA(700.2,"+1,",5)={"SEE"} set:{METHOD}'="" FDA(700.2,"+1,",6)={"METHOD"} set:{DEMOGRAPHICS}'="" FDA(700.2,"+1,",7)={"DEMOGRAPHICS"} set:{SMOKERS_INCLUDED}'="" FDA(700.2,"+1,",8)={"SMOKERS_INCLUDED"} set:{ALTITUDE}'="" FDA(700.2,"+1,",9)={"ALTITUDE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(700.2)") set %SkipFiling=1 if $d(%FMERR(700.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{PFT_FORMULA*C} FDA(700.2,IENS,.01)={PFT_FORMULA} set:{TYPE*C} FDA(700.2,IENS,1)={TYPE} set:{REFERENCE*C} FDA(700.2,IENS,2)={REFERENCE} set:{SEX_TYPE*C} FDA(700.2,IENS,3)={SEX_TYPE} set:{RACE_TYPE*C} FDA(700.2,IENS,3.5)={RACE_TYPE} set:{CI*C} FDA(700.2,IENS,4)={CI} set:{SEE*C} FDA(700.2,IENS,5)={SEE} set:{METHOD*C} FDA(700.2,IENS,6)={METHOD} set:{DEMOGRAPHICS*C} FDA(700.2,IENS,7)={DEMOGRAPHICS} set:{SMOKERS_INCLUDED*C} FDA(700.2,IENS,8)={SMOKERS_INCLUDED} set:{ALTITUDE*C} FDA(700.2,IENS,9)={ALTITUDE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.2)") set %SkipFiling=1 if $d(%FMERR(700.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.PFTFORMULA7002S index {PFT_FORMULA}'="" 1 ^MCAR conditional 700.2 "B" $$TRUNCATE({PFT_FORMULA},30)) {IEN} 0]]> index ^MCAR nonnull 700.2 "C" {REFERENCE} {IEN} 0]]> index {TYPE}'="" 1 ^MCAR conditional 700.2 "D" $$TRUNCATE({TYPE},30)) {IEN} 0]]> index ^MCAR nonnull 700.2 "E" {SEX_TYPE} {IEN} 0]]> data ^MCAR 700.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 10 "^" 0 5 "^" 0 8 "^" 0 7 "^" 0 1 "^" 0 11 "^" 0 3 "^" 0 6 "^" 0 4 "^" 0 9 "^" 0 2 Generated class for FileMan File Number: '700.1' File Name: 'PFT PREDICTED VALUES' Class generated by %fm2class version 2.56 This file holds the set of Predicted Value and Correction formulas for use by the PFT report. The formulas are selected from the PFT FORMULA file (700.2). There are 2 sets present (Male and Female). The Male and Female sets can be changed through the Pulmonary Managers' menu. persistent _PUBLIC 0 RowId PFT_PREDICTED_VALUES_700_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.3159101 67178,44713.913978609 right PFT PREDICTED VALUES 700.1 2.56 12/04/2024 12:25:13 1 1 IEN 1 PFT_FORMULA_700_2]]> COHBCORRECTION VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_COHB_CORRECTION PFT_FORMULA_700_2]]> DLCOSB VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_DLCOSB PFT_FORMULA_700_2]]> FEF2575 VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_FEF2575 PFT_FORMULA_700_2]]> FEF2575RACECORRBLACK VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_FEF2575_RACE_CORR_BLACK PFT_FORMULA_700_2]]> FEV1 VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_FEV1 PFT_FORMULA_700_2]]> FRC VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_FRC PFT_FORMULA_700_2]]> FRCRVCORRBLACK VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_FRCRV_CORR_BLACK PFT_FORMULA_700_2]]> FVC VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_FVC PFT_FORMULA_700_2]]> HBCORRECTION VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_HB_CORRECTION PFT_FORMULA_700_2]]> MVV VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_MVV PFT_FORMULA_700_2]]> MVVCORRBLACK VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_MVV_CORR_BLACK PFT_FORMULA_700_2]]> MVVCORRORIENTAL VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_MVV_CORR_ORIENTAL PFT_FORMULA_700_2]]> PF VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_PF PFT_FORMULA_700_2]]> RV VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_RV PFT_FORMULA_700_2]]> TLC VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_TLC PFT_FORMULA_700_2]]> TLCVCFVCFEV1CORRBLACK VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_TLCVCFVCFEV1_CORR_BLACK PFT_FORMULA_700_2]]> TLCVCFVCFEV1CORRORIENTAL VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_TLCVCFVCFEV1_CORR_ORIENTAL PFT_FORMULA_700_2]]> VC VALIP.prosthetic.fm2cw.PFTFORMULA7002 FKey_VC FileMan Field Label: 'COHB CORRECTION' FileMan Field Number: '14' This contains the formula for correcting the diffusion for Carboxyl. VALIP.prosthetic.fm2cw.PFTFORMULA7002 21 COHB_CORRECTION PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {COHB_CORRECTION_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 COHB_CORRECTION_PFT_FORMULA 1 FileMan Field Label: 'DLCO-SB' FileMan Field Number: '9' This field contains the formula for calculating the predicted value for the Diffusion VALIP.prosthetic.fm2cw.PFTFORMULA7002 14 DLCOSB PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {DLCOSB_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 DLCOSB_PFT_FORMULA 1 FileMan Field Label: 'FEF25-75' FileMan Field Number: '8' This field contains the formula for calculating the predicted value of the Forced Expiratory Flow at 25 to 75 liters VALIP.prosthetic.fm2cw.PFTFORMULA7002 12 FEF2575 PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {FEF2575_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 FEF2575_PFT_FORMULA 1 FileMan Field Label: 'FEF25-75 RACE CORR.-BLACK' FileMan Field Number: '13' This contains the formula for a race correction for Black patients on the Forced Expiratory Flow at 25 to 75 liters. VALIP.prosthetic.fm2cw.PFTFORMULA7002 18 FEF2575_RACE_CORR_BLACK PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {FEF2575_RACE_CORR_BLACK_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 FEF2575_RACE_CORR_BLACK_PFT_FORMULA 1 FileMan Field Label: 'FEV1' FileMan Field Number: '6' This field contains the formula for calculating the predicted value for the Forced Expiratory Volume in 1 second VALIP.prosthetic.fm2cw.PFTFORMULA7002 10 FEV1 PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {FEV1_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 FEV1_PFT_FORMULA 1 FileMan Field Label: 'FRC' FileMan Field Number: '4' This field contains the formula for calculating the predicted value of the Forced Residual Capacity VALIP.prosthetic.fm2cw.PFTFORMULA7002 8 FRC FileMan Field Label: 'FRC,RV CORR.-BLACK' FileMan Field Number: '12' This contains the formula for a race correction for Black patients on Forced Residual Capacity and Residual Volume. VALIP.prosthetic.fm2cw.PFTFORMULA7002 17 FRCRV_CORR_BLACK PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {FRCRV_CORR_BLACK_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 FRCRV_CORR_BLACK_PFT_FORMULA 1 PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {FRC_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 FRC_PFT_FORMULA 1 FileMan Field Label: 'FVC' FileMan Field Number: '3' This contains the formula for calculating the predicted value of the Forced Vital Capacity VALIP.prosthetic.fm2cw.PFTFORMULA7002 7 FVC PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {FVC_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 FVC_PFT_FORMULA 1 FileMan Field Label: 'HB CORRECTION' FileMan Field Number: '15' This contains the formula for correcting the diffusion for Hemoglobin. VALIP.prosthetic.fm2cw.PFTFORMULA7002 22 HB_CORRECTION PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {HB_CORRECTION_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 HB_CORRECTION_PFT_FORMULA 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(700.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MVV' FileMan Field Number: '8.5' This field contains the formula for calculating the predicted value for the Maximal Voluntary Ventilation VALIP.prosthetic.fm2cw.PFTFORMULA7002 13 MVV FileMan Field Label: 'MVV CORR.-BLACK' FileMan Field Number: '13.01' This contains the formula for a race correction for Black patients for Maximum Voluntary Ventilation. VALIP.prosthetic.fm2cw.PFTFORMULA7002 19 MVV_CORR_BLACK PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {MVV_CORR_BLACK_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 MVV_CORR_BLACK_PFT_FORMULA 1 FileMan Field Label: 'MVV CORR.-ORIENTAL' FileMan Field Number: '13.02' This contains the formula for a race correction for Oriental patients for Maximum Voluntary Ventilation. VALIP.prosthetic.fm2cw.PFTFORMULA7002 20 MVV_CORR_ORIENTAL PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {MVV_CORR_ORIENTAL_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 MVV_CORR_ORIENTAL_PFT_FORMULA 1 PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {MVV_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 MVV_PFT_FORMULA 1 FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies the name for the set of formulas used to calculate predicted values and corrections. Current entries are Male and Female. %Library.String 1 3 NAME FileMan Field Label: 'PF' FileMan Field Number: '7' This field contains the formula for calculating the predicted value for the Peak Flow VALIP.prosthetic.fm2cw.PFTFORMULA7002 11 PF PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {PF_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 PF_PFT_FORMULA 1 FileMan Field Label: 'RV' FileMan Field Number: '5' This field contains the formula for calculating the predicted value for the Residual Volume VALIP.prosthetic.fm2cw.PFTFORMULA7002 9 RV PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {RV_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 RV_PFT_FORMULA 1 FileMan Field Label: 'SEX TYPE' FileMan Field Number: '.02' This field identifies which Sex the set of formulas are used for: Male or Female. %Library.EnumString 4 SEX_TYPE FileMan Field Label: 'TLC' FileMan Field Number: '1' This field contains the formula used for calculating the predicted value of the 'Total Lung Capacity'. VALIP.prosthetic.fm2cw.PFTFORMULA7002 5 TLC FileMan Field Label: 'TLC,VC,FVC,FEV1 CORR.-BLACK' FileMan Field Number: '10' This contains the formula for a race correction for Black patients on Total Lung Capacity, Vital Capacity, Forced Vital Capacity, and Forced Expiratory Volume. VALIP.prosthetic.fm2cw.PFTFORMULA7002 15 TLCVCFVCFEV1_CORR_BLACK PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {TLCVCFVCFEV1_CORR_BLACK_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 TLCVCFVCFEV1_CORR_BLACK_PFT_FORMULA 1 FileMan Field Label: 'TLC,VC,FVC,FEV1 CORR.-ORIENTAL' FileMan Field Number: '11' This contains the formula for a race correction for Oriental patients on Total Lung Capacity, Vital Capacity, Forced Vital Capacity, and Forced Expiratory Volume. VALIP.prosthetic.fm2cw.PFTFORMULA7002 16 TLCVCFVCFEV1_CORR_ORIENTAL PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {TLCVCFVCFEV1_CORR_ORIENTAL_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 TLCVCFVCFEV1_CORR_ORIENTAL_PFT_FORMULA 1 PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {TLC_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 TLC_PFT_FORMULA 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 23 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VC' FileMan Field Number: '2' This field contains the formula for calculating the predicted value of the 'Vital Capacity' VALIP.prosthetic.fm2cw.PFTFORMULA7002 6 VC PFT FORMULA This contains the actual formula used for the calculation of PFT predicted values]]> %Library.String 1 PFT_FORMULA into :val from VALIP_prosthetic_fm2cw.PFT_PREDICTED_VALUES_700_1 where %ID=:id) set {VC_PFT_FORMULA}=$select(SQLCODE=0:val,1:"")]]> 1 VC_PFT_FORMULA 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(700.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(700.1,"+1,",.01)={"NAME"} set:{SEX_TYPE}'="" FDA(700.1,"+1,",.02)={"SEX_TYPE"} set:{TLC}'="" FDA(700.1,"+1,",1)={"TLC"} set:{VC}'="" FDA(700.1,"+1,",2)={"VC"} set:{FVC}'="" FDA(700.1,"+1,",3)={"FVC"} set:{FRC}'="" FDA(700.1,"+1,",4)={"FRC"} set:{RV}'="" FDA(700.1,"+1,",5)={"RV"} set:{FEV1}'="" FDA(700.1,"+1,",6)={"FEV1"} set:{PF}'="" FDA(700.1,"+1,",7)={"PF"} set:{FEF2575}'="" FDA(700.1,"+1,",8)={"FEF2575"} set:{MVV}'="" FDA(700.1,"+1,",8.5)={"MVV"} set:{DLCOSB}'="" FDA(700.1,"+1,",9)={"DLCOSB"} set:{TLCVCFVCFEV1_CORR_BLACK}'="" FDA(700.1,"+1,",10)={"TLCVCFVCFEV1_CORR_BLACK"} set:{TLCVCFVCFEV1_CORR_ORIENTAL}'="" FDA(700.1,"+1,",11)={"TLCVCFVCFEV1_CORR_ORIENTAL"} set:{FRCRV_CORR_BLACK}'="" FDA(700.1,"+1,",12)={"FRCRV_CORR_BLACK"} set:{FEF2575_RACE_CORR_BLACK}'="" FDA(700.1,"+1,",13)={"FEF2575_RACE_CORR_BLACK"} set:{MVV_CORR_BLACK}'="" FDA(700.1,"+1,",13.01)={"MVV_CORR_BLACK"} set:{MVV_CORR_ORIENTAL}'="" FDA(700.1,"+1,",13.02)={"MVV_CORR_ORIENTAL"} set:{COHB_CORRECTION}'="" FDA(700.1,"+1,",14)={"COHB_CORRECTION"} set:{HB_CORRECTION}'="" FDA(700.1,"+1,",15)={"HB_CORRECTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(700.1)") set %SkipFiling=1 if $d(%FMERR(700.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(700.1,IENS,.01)={NAME} set:{SEX_TYPE*C} FDA(700.1,IENS,.02)={SEX_TYPE} set:{TLC*C} FDA(700.1,IENS,1)={TLC} set:{VC*C} FDA(700.1,IENS,2)={VC} set:{FVC*C} FDA(700.1,IENS,3)={FVC} set:{FRC*C} FDA(700.1,IENS,4)={FRC} set:{RV*C} FDA(700.1,IENS,5)={RV} set:{FEV1*C} FDA(700.1,IENS,6)={FEV1} set:{PF*C} FDA(700.1,IENS,7)={PF} set:{FEF2575*C} FDA(700.1,IENS,8)={FEF2575} set:{MVV*C} FDA(700.1,IENS,8.5)={MVV} set:{DLCOSB*C} FDA(700.1,IENS,9)={DLCOSB} set:{TLCVCFVCFEV1_CORR_BLACK*C} FDA(700.1,IENS,10)={TLCVCFVCFEV1_CORR_BLACK} set:{TLCVCFVCFEV1_CORR_ORIENTAL*C} FDA(700.1,IENS,11)={TLCVCFVCFEV1_CORR_ORIENTAL} set:{FRCRV_CORR_BLACK*C} FDA(700.1,IENS,12)={FRCRV_CORR_BLACK} set:{FEF2575_RACE_CORR_BLACK*C} FDA(700.1,IENS,13)={FEF2575_RACE_CORR_BLACK} set:{MVV_CORR_BLACK*C} FDA(700.1,IENS,13.01)={MVV_CORR_BLACK} set:{MVV_CORR_ORIENTAL*C} FDA(700.1,IENS,13.02)={MVV_CORR_ORIENTAL} set:{COHB_CORRECTION*C} FDA(700.1,IENS,14)={COHB_CORRECTION} set:{HB_CORRECTION*C} FDA(700.1,IENS,15)={HB_CORRECTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.1)") set %SkipFiling=1 if $d(%FMERR(700.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PFTPREDICTEA8F7S index ^MCAR nonnull 700.1 "AC" {SEX_TYPE} {IEN} 0]]> index ^MCAR nonnull 700.1 "B" {NAME} {IEN} 0]]> data ^MCAR 700.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "COHB" 1 "^" "DLCOSB" 1 "^" "FEF2575" 1 "^" "RC" 4 "^" "FEV1" 1 "^" "FRC" 1 "^" "RC" 3 "^" "FVC" 1 "^" "HB" 1 "^" "MVV" 1 "^" "RC" 5 "^" "RC" 6 "^" 0 1 "^" "PF" 1 "^" "RV" 1 "^" 1 1 "^" "TLC" 1 "^" "RC" 1 "^" "RC" 2 "^" "VC" 1 Generated class for FileMan File Number: '22' File Name: 'POW PERIOD' Class generated by %fm2class version 2.56 This file contains 8 possible locations where a person could have been a prisoner of war. This data is determined by VACO and is maintained by the PIMS software module via frequent software releases. Editing of this information will have severe and negative impacts on the operation of the PIMS module as well as other VistA software modules. Entries in this file must NOT be added, edited, or removed. persistent _PUBLIC 0 RowId POW_PERIOD_22 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.373958125 67178,44713.958002948 right POW PERIOD 22 2.56 12/04/2024 12:25:13 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains an alternate name by which this prisoner of war period may be called. This abbreviation may be displayed on outputs or other displays where there is insufficient space to display the entire name of the POW PERIOD. %Library.String 5 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(22,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the period/place where a patient may have been a prisoner of war. Choices include WWI and Vietnam. This data must NOT be edited in any way. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field contains the internal entry number for this POW PERIOD. This number may be used by various software packages. This must not be edited and entries must not be added or deleted unless done through a software upgrade of the PIMS package. %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(22," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(22,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(22,"+1,",1)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(22)") set %SkipFiling=1 if $d(%FMERR(22,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(22)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(22,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(22,IENS,1)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(22)") set %SkipFiling=1 if $d(%FMERR(22,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(22)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.POWPERIOD22S index ^DIC nonnull 22 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 22 "C" {ABBREVIATION} {IEN} 0]]> data ^DIC 22 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '125' File Name: 'PROBLEM SELECTION LIST' Class generated by %fm2class version 2.56 This file contains information defining lists of problems commonly seen by a particular clinic or user. These lists will be presented as menus to select from, to facilitate adding new problems. persistent _PUBLIC 0 RowId PROBLEM_SELECTION_LIST_125 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.401853931 67178,44713.991226812 right PROBLEM SELECTION LIST 125 2.56 12/04/2024 12:25:13 1 1 IEN 1 HOSPITAL_LOCATION_44]]> CLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_CLINIC FileMan Field Label: 'CLASS' FileMan Field Number: '.04' This is the Class of the selection list. Possible classes are "N" for national, "V" for VISN, and "L" for local. National lists cannot be edited by sites. %Library.EnumString 1 6 CLASS FileMan Field Label: 'CLINIC' FileMan Field Number: '.03' This is the clinic to be associated with this list. This should be the primary clinic in which this list will be used to populate patient problem lists; when adding new problems for a patient from this clinic, this list will automatically be presented to select problems from. **NOTE**: This field will no longer be utilized with GMPL*2.0*49 and will be replaced with the ORQQPL SELECTION LIST parameter settings. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 5 CLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROBLEM_SELECTION_LIST_125 where %ID=:id) set {CLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLINIC_NAME 1 FileMan Field Label: 'DATE LAST MODIFIED' FileMan Field Number: '.02' This is the date[/time] this list was last changed in any way; this value is stuffed in by the Problem List pkg utilities that manage this file. %Library.FilemanTimeStamp 4 DATE_LAST_MODIFIED Internal Entry Number %Library.String $$next^%apiSQL("$p(^GMPL(125,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is a free text name for the list; it must be unique. National lists are prefixed with a "VA-". %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name CATEGORY child VALIP.prosthetic.fm2cw.SUBCATEGORY12501 children PROBLEMSELECTIONLIST125 1 SUB_CATEGORY_125_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^GMPL(125," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(125,"+1,",.01)={"NAME"} set:{DATE_LAST_MODIFIED}'="" FDA(125,"+1,",.02)={"DATE_LAST_MODIFIED"} set:{CLINIC}'="" FDA(125,"+1,",.03)={"CLINIC"} set:{CLASS}'="" FDA(125,"+1,",.04)={"CLASS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(125)") set %SkipFiling=1 if $d(%FMERR(125,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(125)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(125,IENS,.01)={NAME} set:{DATE_LAST_MODIFIED*C} FDA(125,IENS,.02)={DATE_LAST_MODIFIED} set:{CLINIC*C} FDA(125,IENS,.03)={CLINIC} set:{CLASS*C} FDA(125,IENS,.04)={CLASS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(125)") set %SkipFiling=1 if $d(%FMERR(125,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(125)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROBLEMSELED98CS index ^GMPL nonnull 125 "B" {NAME} {IEN} 0]]> index ^GMPL nonnull 125 "C" {CLINIC} {IEN} 0]]> data ^GMPL 125 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '61.5' File Name: 'PROCEDURE FIELD' Class generated by %fm2class version 2.56 This is the PROCEDURE file of SNOMED persistent _PUBLIC 0 RowId PROCEDURE_FIELD_61_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.399422982 67178,44714.068087783 right PROCEDURE FIELD 61.5 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '6' This is a 1 to 5 character abbreviation for the procedure. It is used as a unique code for it. %Library.String 6 ABBREVIATION FileMan Field Label: 'ASK RESULT' FileMan Field Number: '2.3' If a result of a procedure should be prompted for, enter 'Yes'. %Library.EnumString 5 ASK_RESULT Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(61.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of the procedure. %Library.String 1 3 NAME FileMan Field Label: 'SNOMED CODE' FileMan Field Number: '2' ENTER CHARACTERS FOLLOWING 'P-' IN SNOMED REFERENCE BOOK The characters following "P-" in the SNOMED reference book. %Library.String 1 4 SNOMED_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(61.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(61.5,"+1,",.01)={"NAME"} set:{SNOMED_CODE}'="" FDA(61.5,"+1,",2)={"SNOMED_CODE"} set:{ASK_RESULT}'="" FDA(61.5,"+1,",2.3)={"ASK_RESULT"} set:{ABBREVIATION}'="" FDA(61.5,"+1,",6)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(61.5)") set %SkipFiling=1 if $d(%FMERR(61.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(61.5,IENS,.01)={NAME} set:{SNOMED_CODE*C} FDA(61.5,IENS,2)={SNOMED_CODE} set:{ASK_RESULT*C} FDA(61.5,IENS,2.3)={ASK_RESULT} set:{ABBREVIATION*C} FDA(61.5,IENS,6)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(61.5)") set %SkipFiling=1 if $d(%FMERR(61.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROCEDUREFIE710S index {NAME}'="" 1 ^LAB conditional 61.5 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^LAB nonnull 61.5 "C" {SNOMED_CODE} {IEN} 0]]> data ^LAB 61.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" 0 3 "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '697.2' File Name: 'PROCEDURE/SUBSPECIALTY' Class generated by %fm2class version 2.56 This file stores various File Manager and Screen Handler parameters associated with medical procedures, including global locations, names of File Manager full and brief input templates, and names of Screen Handler enter/edit screens. persistent _PUBLIC 0 RowId PROCEDURESUBSPECIALTY_697_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.437120736 67178,44714.025714354 right PROCEDURE/SUBSPECIALTY 697.2 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'BRIEF INPUT TEMPLATE' FileMan Field Number: '10' %Library.String 15 BRIEF_INPUT_TEMPLATE FileMan Field Label: 'BRIEF SCREEN ONE' FileMan Field Number: '2.1' This holds the name of the first screen for those procedures which have a brief screen-oriented entry. %Library.String 7 BRIEF_SCREEN_ONE FileMan Field Label: 'ENTRY POINT OF PRINT ROUTINE' FileMan Field Number: '4' This field contains the entry point of the print routine for use with summary of patient procedures routine (MCARPS) %Library.String 9 ENTRY_POINT_OF_PRINT_ROUTINE FileMan Field Label: 'GLOBAL LOCATION' FileMan Field Number: '1' This field stores the global reference at which data for this type of medical procedure is stored. %Library.String 4 GLOBAL_LOCATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(697.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INPUT TEMPLATE' FileMan Field Number: '9' This field indicates what input template is to be used by File Manager in performing *full* line entry/editing of the file in Field 1. %Library.String 14 INPUT_TEMPLATE FileMan Field Label: 'LOCALLY DEFINED' FileMan Field Number: '16' This field is used to identify if the procedure name is locally defined. %Library.EnumString 21 LOCALLY_DEFINED FileMan Field Label: 'MCESKEY' FileMan Field Number: '12' %Library.String 17 MCESKEY FileMan Field Label: 'MCESON' FileMan Field Number: '11' %Library.EnumString 16 MCESON FileMan Field Label: 'MEDICAL PATIENT FIELD NUMBER' FileMan Field Number: '1.1' This is the field number of the Medical Patient field in the file corresponding to this Procedure/Subspecialty. The system assumes that the field number is 1 unless another entry is made. %Library.String 5 MEDICAL_PATIENT_FIELD_NUMBER FileMan Field Label: 'NAME' FileMan Field Number: '.01' The short names of the various medicine procedures are stored here. %Library.String 1 3 NAME FileMan Field Label: 'PRINT LINE' FileMan Field Number: '6' This field is used if the printing of the report is done in routine 'MCARP'. It sets the routine line name for use by the print routine and the 'Summary of Patient Procedures'. %Library.String 11 PRINT_LINE FileMan Field Label: 'PRINT NAME' FileMan Field Number: '7' This field stores the full length name of the medical procedure. This name is used on the print reports. The name must be unique. %Library.String 1 12 PRINT_NAME FileMan Field Label: 'PRINT ROUTINE' FileMan Field Number: '5' This field holds the print routine name for use in the Summary of Patient Procedures routine (MCARPS) %Library.String 10 PRINT_ROUTINE FileMan Field Label: 'PROCEDURE/SUBSPECIALTY' FileMan Field Number: '1001' This new field is to identify if the entry is a procedure, or a subspecialty. %Library.EnumString 22 PROCEDURESUBSPECIALTY FileMan Field Label: 'RNV STATUS ON' FileMan Field Number: '14' This field allows the manager(s) to remove Release Not Verified as a Status. If the Manager answers "Yes" to RNV STATUS ON for a particular Procedure/Subspecialty, then users with the subspecialty provider key can select Release Not Verified. If the Manager answers "No" to RNV STATUS ON, the key holder can only select a verified status and must sign off on it. %Library.EnumString 19 RNV_STATUS_ON FileMan Field Label: 'SCREEN ONE' FileMan Field Number: '2' This holds the name of the first screen for those procedures which have a screen-oriented entry. %Library.String 6 SCREEN_ONE Relationship for Sub-File/Multiple to file name CPT child VALIP.prosthetic.fm2cw.SUBCPT69721 children PROCEDURESUBSPECIALTY6972 1 SUB_CPT_697_21 FileMan Field Label: 'TYPE OF PROCEDURE' FileMan Field Number: '3' This field contains the medical specialty with which the procedure is associated. %Library.EnumString 8 TYPE_OF_PROCEDURE FileMan Field Label: 'USED WITH GENERIC MODULE?' FileMan Field Number: '8' This field is used to distinguish those sub-specialties entered through the Generic module and the individul S.O.A.P. consults. %Library.EnumString 13 USED_WITH_GENERIC_MODULE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 23 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VIEWING OF SUPERSEDED RECORD' FileMan Field Number: '13' This field allow the manager to remove previous records that has been superseded from the general users and key holders. Answering 'Yes' will allow the non-managers to view or print superseded records. Answering 'No' will only allow the managers to view or print superseded records from the managers menu. %Library.EnumString 18 VIEWING_OF_SUPERSEDED_RECORD FileMan Field Label: 'VIEW ALL' FileMan Field Number: '15' %Library.EnumString 20 VIEW_ALL BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(697.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(697.2,"+1,",.01)={"NAME"} set:{GLOBAL_LOCATION}'="" FDA(697.2,"+1,",1)={"GLOBAL_LOCATION"} set:{MEDICAL_PATIENT_FIELD_NUMBER}'="" FDA(697.2,"+1,",1.1)={"MEDICAL_PATIENT_FIELD_NUMBER"} set:{SCREEN_ONE}'="" FDA(697.2,"+1,",2)={"SCREEN_ONE"} set:{BRIEF_SCREEN_ONE}'="" FDA(697.2,"+1,",2.1)={"BRIEF_SCREEN_ONE"} set:{TYPE_OF_PROCEDURE}'="" FDA(697.2,"+1,",3)={"TYPE_OF_PROCEDURE"} set:{ENTRY_POINT_OF_PRINT_ROUTINE}'="" FDA(697.2,"+1,",4)={"ENTRY_POINT_OF_PRINT_ROUTINE"} set:{PRINT_ROUTINE}'="" FDA(697.2,"+1,",5)={"PRINT_ROUTINE"} set:{PRINT_LINE}'="" FDA(697.2,"+1,",6)={"PRINT_LINE"} set:{PRINT_NAME}'="" FDA(697.2,"+1,",7)={"PRINT_NAME"} set:{USED_WITH_GENERIC_MODULE}'="" FDA(697.2,"+1,",8)={"USED_WITH_GENERIC_MODULE"} set:{INPUT_TEMPLATE}'="" FDA(697.2,"+1,",9)={"INPUT_TEMPLATE"} set:{BRIEF_INPUT_TEMPLATE}'="" FDA(697.2,"+1,",10)={"BRIEF_INPUT_TEMPLATE"} set:{MCESON}'="" FDA(697.2,"+1,",11)={"MCESON"} set:{MCESKEY}'="" FDA(697.2,"+1,",12)={"MCESKEY"} set:{VIEWING_OF_SUPERSEDED_RECORD}'="" FDA(697.2,"+1,",13)={"VIEWING_OF_SUPERSEDED_RECORD"} set:{RNV_STATUS_ON}'="" FDA(697.2,"+1,",14)={"RNV_STATUS_ON"} set:{VIEW_ALL}'="" FDA(697.2,"+1,",15)={"VIEW_ALL"} set:{LOCALLY_DEFINED}'="" FDA(697.2,"+1,",16)={"LOCALLY_DEFINED"} set:{PROCEDURESUBSPECIALTY}'="" FDA(697.2,"+1,",1001)={"PROCEDURESUBSPECIALTY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(697.2)") set %SkipFiling=1 if $d(%FMERR(697.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(697.2,IENS,.01)={NAME} set:{GLOBAL_LOCATION*C} FDA(697.2,IENS,1)={GLOBAL_LOCATION} set:{MEDICAL_PATIENT_FIELD_NUMBER*C} FDA(697.2,IENS,1.1)={MEDICAL_PATIENT_FIELD_NUMBER} set:{SCREEN_ONE*C} FDA(697.2,IENS,2)={SCREEN_ONE} set:{BRIEF_SCREEN_ONE*C} FDA(697.2,IENS,2.1)={BRIEF_SCREEN_ONE} set:{TYPE_OF_PROCEDURE*C} FDA(697.2,IENS,3)={TYPE_OF_PROCEDURE} set:{ENTRY_POINT_OF_PRINT_ROUTINE*C} FDA(697.2,IENS,4)={ENTRY_POINT_OF_PRINT_ROUTINE} set:{PRINT_ROUTINE*C} FDA(697.2,IENS,5)={PRINT_ROUTINE} set:{PRINT_LINE*C} FDA(697.2,IENS,6)={PRINT_LINE} set:{PRINT_NAME*C} FDA(697.2,IENS,7)={PRINT_NAME} set:{USED_WITH_GENERIC_MODULE*C} FDA(697.2,IENS,8)={USED_WITH_GENERIC_MODULE} set:{INPUT_TEMPLATE*C} FDA(697.2,IENS,9)={INPUT_TEMPLATE} set:{BRIEF_INPUT_TEMPLATE*C} FDA(697.2,IENS,10)={BRIEF_INPUT_TEMPLATE} set:{MCESON*C} FDA(697.2,IENS,11)={MCESON} set:{MCESKEY*C} FDA(697.2,IENS,12)={MCESKEY} set:{VIEWING_OF_SUPERSEDED_RECORD*C} FDA(697.2,IENS,13)={VIEWING_OF_SUPERSEDED_RECORD} set:{RNV_STATUS_ON*C} FDA(697.2,IENS,14)={RNV_STATUS_ON} set:{VIEW_ALL*C} FDA(697.2,IENS,15)={VIEW_ALL} set:{LOCALLY_DEFINED*C} FDA(697.2,IENS,16)={LOCALLY_DEFINED} set:{PROCEDURESUBSPECIALTY*C} FDA(697.2,IENS,1001)={PROCEDURESUBSPECIALTY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.2)") set %SkipFiling=1 if $d(%FMERR(697.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROCEDURESUDB7FS index ^MCAR nonnull 697.2 "BA" {PRINT_NAME} {IEN} 0]]> index ^MCAR nonnull 697.2 "B" {NAME} {IEN} 0]]> index ^MCAR nonnull 697.2 "C" {GLOBAL_LOCATION} {IEN} 0]]> index ^MCAR nonnull 697.2 "D" {TYPE_OF_PROCEDURE} {IEN} 0]]> data ^MCAR 697.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 11 "^" 0 13 "^" 0 5 "^" 0 2 "^" 0 10 "^" 0 19 "^" 0 15 "^" 0 14 "^" 0 12 "^" 0 1 "^" 0 7 "^" 0 8 "^" 0 6 "^" 1 1 "^" 0 17 "^" 0 3 "^" 0 4 "^" 0 9 "^" 0 16 "^" 0 18 Generated class for FileMan File Number: '8932.2' File Name: 'PROGRAM OF STUDY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId PROGRAM_OF_STUDY_8932_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.445714644 67178,44714.102009372 right PROGRAM OF STUDY 8932.2 2.56 12/04/2024 12:25:14 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^USC(8932.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the program of study. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^USC(8932.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(8932.2,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8932.2)") set %SkipFiling=1 if $d(%FMERR(8932.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8932.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(8932.2,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8932.2)") set %SkipFiling=1 if $d(%FMERR(8932.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8932.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROGRAMOFST730FS index ^USC nonnull 8932.2 "B" {NAME} {IEN} 0]]> data ^USC 8932.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '663' File Name: 'PROS AMIS CODES' Class generated by %fm2class version 2.56 Contains prosthetic AMIS codes assigned to each item purchased for a veteran. File 661, PROS ITEM MASTER, points to this file. Do not edit these codes. persistent _PUBLIC 0 RowId PROS_AMIS_CODES_663 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44770.87190946 67178,44714.704658537 right PROS AMIS CODES 663 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'AMIS SEGMENT NO' FileMan Field Number: '3.5' This fields contains the segment number for the related disability codes. Used for the Generation of Generic Code Sheets. %Library.Numeric 7 AMIS_SEGMENT_NO FileMan Field Label: 'CODE' FileMan Field Number: '.01' The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. %Library.String 1 3 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(663,0),""^"",3)") 1 2 IEN FileMan Field Label: 'ISSUE/REPAIR CODE' FileMan Field Number: '3' This is a code defining what group within prosthetics the AMIS code will be counted. %Library.EnumString 6 ISSUEREPAIR_CODE FileMan Field Label: 'LINE DESCRIPTION' FileMan Field Number: '2' This is the AMIS Line Item Description. %Library.String 5 LINE_DESCRIPTION FileMan Field Label: 'RATIO' FileMan Field Number: '1' This is the national ratio set by VACO for AMIS calculations. %Library.String 4 RATIO SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(663," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CODE}'="" FDA(663,"+1,",.01)={"CODE"} set:{RATIO}'="" FDA(663,"+1,",1)={"RATIO"} set:{LINE_DESCRIPTION}'="" FDA(663,"+1,",2)={"LINE_DESCRIPTION"} set:{ISSUEREPAIR_CODE}'="" FDA(663,"+1,",3)={"ISSUEREPAIR_CODE"} set:{AMIS_SEGMENT_NO}'="" FDA(663,"+1,",3.5)={"AMIS_SEGMENT_NO"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(663)") set %SkipFiling=1 if $d(%FMERR(663,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(663)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CODE*C} FDA(663,IENS,.01)={CODE} set:{RATIO*C} FDA(663,IENS,1)={RATIO} set:{LINE_DESCRIPTION*C} FDA(663,IENS,2)={LINE_DESCRIPTION} set:{ISSUEREPAIR_CODE*C} FDA(663,IENS,3)={ISSUEREPAIR_CODE} set:{AMIS_SEGMENT_NO*C} FDA(663,IENS,3.5)={AMIS_SEGMENT_NO} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(663)") set %SkipFiling=1 if $d(%FMERR(663,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(663)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSAMISCOD1153S index ^RMPR nonnull 663 "B" {CODE} {IEN} 0]]> index {LINE_DESCRIPTION}'="" 1 ^RMPR conditional 663 "C" $$TRUNCATE({LINE_DESCRIPTION},30)) {IEN} 0]]> index ^RMPR nonnull 663 "D" {ISSUEREPAIR_CODE} {IEN} 0]]> index ^RMPR nonnull 663 "E" {AMIS_SEGMENT_NO} {IEN} 0]]> data ^RMPR 663 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" 0 1 "^" 0 4 "^" 0 3 "^" 0 2 Generated class for FileMan File Number: '662' File Name: 'PROS DISABILITY CODE' Class generated by %fm2class version 2.56 Contains disability codes related to patient prosthetic disabilities. These disability codes are viewed on the patient VAF 10-2319 record to determine eligibility. persistent _PUBLIC 0 RowId PROS_DISABILITY_CODE_662 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44771.040421823 67178,44714.740235109 right PROS DISABILITY CODE 662 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'ARABIC DISABILITY NAME' FileMan Field Number: '.01' This is the Arabic initials for a disability code, such as AMP/LAE for Amputee/Arm, Left, Above Elbow. %Library.String 1 4 ARABIC_DISABILITY_NAME FileMan Field Label: 'DISABILITY GROUPING' FileMan Field Number: '5.5' Contains the Number 1 through 10. The 10 major disability groupings are displayed on the VAF 10-7306d AMIS report. %Library.Numeric 7 DISABILITY_GROUPING FileMan Field Label: 'GROUP EXTENT OF DISABILITY' FileMan Field Number: '5' Contains the area of the Veterans disability. Reference to the parts of body disabled. %Library.String 6 GROUP_EXTENT_OF_DISABILITY Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(662,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MAJOR DISABILITY CODE SYMBOLS' FileMan Field Number: '4' Contains the Major Disability Code Symbol for the Prosthetics Disability Code (e.g. AMPUTEE). %Library.String 5 MAJOR_DISABILITY_CODE_SYMBOLS FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This is the internal number of the Prosthetic Disability Code. %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(662," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ARABIC_DISABILITY_NAME}'="" FDA(662,"+1,",.01)={"ARABIC_DISABILITY_NAME"} set:{MAJOR_DISABILITY_CODE_SYMBOLS}'="" FDA(662,"+1,",4)={"MAJOR_DISABILITY_CODE_SYMBOLS"} set:{GROUP_EXTENT_OF_DISABILITY}'="" FDA(662,"+1,",5)={"GROUP_EXTENT_OF_DISABILITY"} set:{DISABILITY_GROUPING}'="" FDA(662,"+1,",5.5)={"DISABILITY_GROUPING"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(662)") set %SkipFiling=1 if $d(%FMERR(662,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(662)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ARABIC_DISABILITY_NAME*C} FDA(662,IENS,.01)={ARABIC_DISABILITY_NAME} set:{MAJOR_DISABILITY_CODE_SYMBOLS*C} FDA(662,IENS,4)={MAJOR_DISABILITY_CODE_SYMBOLS} set:{GROUP_EXTENT_OF_DISABILITY*C} FDA(662,IENS,5)={GROUP_EXTENT_OF_DISABILITY} set:{DISABILITY_GROUPING*C} FDA(662,IENS,5.5)={DISABILITY_GROUPING} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(662)") set %SkipFiling=1 if $d(%FMERR(662,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(662)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSDISABIL7624S index ^RMPR nonnull 662 "B" {ARABIC_DISABILITY_NAME} {IEN} 0]]> data ^RMPR 662 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 4 "^" 0 3 "^" 0 2 Generated class for FileMan File Number: '661.3' File Name: 'PROS ITEM LOCATION' Class generated by %fm2class version 2.56 This is a Prosthetics Location file that contains all locations and items being tracked for inventory. Never delete a location or item from this file. Use option Remove Item from Inventory to deactivate an Item. persistent _PUBLIC 0 RowId PROS_ITEM_LOCATION_661_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44771.205112891 67178,44714.774468646 right PROS ITEM LOCATION 661.3 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'ADDRESS' FileMan Field Number: '.02' This is the address of the LOCATION field. %Library.String 4 ADDRESS Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(661.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LOCATION' FileMan Field Number: '.01' This is a location of an item or stock being tracked for inventory. %Library.String 1 3 LOCATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(661.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{LOCATION}'="" FDA(661.3,"+1,",.01)={"LOCATION"} set:{ADDRESS}'="" FDA(661.3,"+1,",.02)={"ADDRESS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(661.3)") set %SkipFiling=1 if $d(%FMERR(661.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{LOCATION*C} FDA(661.3,IENS,.01)={LOCATION} set:{ADDRESS*C} FDA(661.3,IENS,.02)={ADDRESS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661.3)") set %SkipFiling=1 if $d(%FMERR(661.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSITEMLOC103ES index ^RMPR nonnull 661.3 "B" {LOCATION} {IEN} 0]]> data ^RMPR 661.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '661' File Name: 'PROS ITEM MASTER' Class generated by %fm2class version 2.56 This is the ITEM MASTER file for Prosthetics that points to File 441, IFCAP ITEM MASTER file. The main purpose of this file is to store AMIS codes for prosthetic items. persistent _PUBLIC 0 RowId PROS_ITEM_MASTER_661 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44771.445393484 67178,44714.832706345 right PROS ITEM MASTER 661 2.56 12/04/2024 12:25:14 1 1 IEN 1 PROS_AMIS_CODES_663]]> AMISADMINNEWCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_AMIS_ADMIN_NEW_CODE PROS_AMIS_CODES_663]]> AMISADMINREPAIRCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_AMIS_ADMIN_REPAIR_CODE PROS_AMIS_CODES_663]]> AMISORTHOTICSREPAIRCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_AMIS_ORTHOTICS_REPAIR_CODE PROS_AMIS_CODES_663]]> AMISORTHOTICNEWCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_AMIS_ORTHOTIC_NEW_CODE PROS_AMIS_CODES_663]]> AMISRESTORATIONSREPAIRCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_AMIS_RESTORATIONS_REPAIR_CODE PROS_AMIS_CODES_663]]> AMISRESTORATIONNEWCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_AMIS_RESTORATION_NEW_CODE ITEM_MASTER_441]]> NAME VALIP.prosthetic.fm2cw.ITEMMASTER441 FKey_NAME FileMan Field Label: 'AMIS ADMIN NEW CODE' FileMan Field Number: '1' Enter the AMIS code to be reported on New Items. This should always be numeric. VALIP.prosthetic.fm2cw.PROSAMISCODES663 4 AMIS_ADMIN_NEW_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PROS_ITEM_MASTER_661 where %ID=:id) set {AMIS_ADMIN_NEW_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 AMIS_ADMIN_NEW_CODE_CODE 1 FileMan Field Label: 'AMIS ADMIN REPAIR CODE' FileMan Field Number: '2' Enter the AMIS code to be reported on Repair Items. This should always start with an "R." VALIP.prosthetic.fm2cw.PROSAMISCODES663 5 AMIS_ADMIN_REPAIR_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PROS_ITEM_MASTER_661 where %ID=:id) set {AMIS_ADMIN_REPAIR_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 AMIS_ADMIN_REPAIR_CODE_CODE 1 FileMan Field Label: 'AMIS ORTHOTICS REPAIR CODE' FileMan Field Number: '4' This field holds the Restoration Lab AMIS code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 7 AMIS_ORTHOTICS_REPAIR_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PROS_ITEM_MASTER_661 where %ID=:id) set {AMIS_ORTHOTICS_REPAIR_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 AMIS_ORTHOTICS_REPAIR_CODE_CODE 1 FileMan Field Label: 'AMIS ORTHOTIC NEW CODE' FileMan Field Number: '3' This field holds the Orthotics Lab AMIS code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 6 AMIS_ORTHOTIC_NEW_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PROS_ITEM_MASTER_661 where %ID=:id) set {AMIS_ORTHOTIC_NEW_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 AMIS_ORTHOTIC_NEW_CODE_CODE 1 FileMan Field Label: 'AMIS RESTORATIONS REPAIR CODE' FileMan Field Number: '6' This field hold the AMIS Restorations Repair Code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 9 AMIS_RESTORATIONS_REPAIR_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PROS_ITEM_MASTER_661 where %ID=:id) set {AMIS_RESTORATIONS_REPAIR_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 AMIS_RESTORATIONS_REPAIR_CODE_CODE 1 FileMan Field Label: 'AMIS RESTORATION NEW CODE' FileMan Field Number: '5' SHOE AMIS CODE This field holds the Shoe Lab AMIS code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 8 AMIS_RESTORATION_NEW_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.PROS_ITEM_MASTER_661 where %ID=:id) set {AMIS_RESTORATION_NEW_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 AMIS_RESTORATION_NEW_CODE_CODE 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(661,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the IFCAP Item Master Number. VALIP.prosthetic.fm2cw.ITEMMASTER441 1 3 NAME NUMBER This is the item number. Values 20000000 and higher are reserved for the National Formulary and created by the NIF/IFCAP interface.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.PROS_ITEM_MASTER_661 where %ID=:id) set {NAME_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_NUMBER 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(661," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(661,"+1,",.01)={"NAME"} set:{AMIS_ADMIN_NEW_CODE}'="" FDA(661,"+1,",1)={"AMIS_ADMIN_NEW_CODE"} set:{AMIS_ADMIN_REPAIR_CODE}'="" FDA(661,"+1,",2)={"AMIS_ADMIN_REPAIR_CODE"} set:{AMIS_ORTHOTIC_NEW_CODE}'="" FDA(661,"+1,",3)={"AMIS_ORTHOTIC_NEW_CODE"} set:{AMIS_ORTHOTICS_REPAIR_CODE}'="" FDA(661,"+1,",4)={"AMIS_ORTHOTICS_REPAIR_CODE"} set:{AMIS_RESTORATION_NEW_CODE}'="" FDA(661,"+1,",5)={"AMIS_RESTORATION_NEW_CODE"} set:{AMIS_RESTORATIONS_REPAIR_CODE}'="" FDA(661,"+1,",6)={"AMIS_RESTORATIONS_REPAIR_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(661)") set %SkipFiling=1 if $d(%FMERR(661,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(661,IENS,.01)={NAME} set:{AMIS_ADMIN_NEW_CODE*C} FDA(661,IENS,1)={AMIS_ADMIN_NEW_CODE} set:{AMIS_ADMIN_REPAIR_CODE*C} FDA(661,IENS,2)={AMIS_ADMIN_REPAIR_CODE} set:{AMIS_ORTHOTIC_NEW_CODE*C} FDA(661,IENS,3)={AMIS_ORTHOTIC_NEW_CODE} set:{AMIS_ORTHOTICS_REPAIR_CODE*C} FDA(661,IENS,4)={AMIS_ORTHOTICS_REPAIR_CODE} set:{AMIS_RESTORATION_NEW_CODE*C} FDA(661,IENS,5)={AMIS_RESTORATION_NEW_CODE} set:{AMIS_RESTORATIONS_REPAIR_CODE*C} FDA(661,IENS,6)={AMIS_RESTORATIONS_REPAIR_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661)") set %SkipFiling=1 if $d(%FMERR(661,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSITEMMAS7DF1S index ^RMPR nonnull 661 "B" {NAME} {IEN} 0]]> data ^RMPR 661 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 4 "^" 0 6 "^" 0 5 "^" 0 8 "^" 0 7 "^" 0 1 Generated class for FileMan File Number: '665.2' File Name: 'PROS LETTER' Class generated by %fm2class version 2.56 Contains skeleton letters for Prosthetics. persistent _PUBLIC 0 RowId PROS_LETTER_665_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44771.697718405 67178,44714.869748498 right PROS LETTER 665.2 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'ADP FL 10-90 FLAG' FileMan Field Number: '3' This field is set to 1 if the letter is an ADP FL 10-90. %Library.EnumString 6 ADP_FL_1090_FLAG FileMan Field Label: 'DENIAL FLAG' FileMan Field Number: '2' This field stores the denial flag for AMIS purposes. %Library.EnumString 5 DENIAL_FLAG Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(665.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LETTER TEXT' FileMan Field Number: '1' This is the text of the skeleton letter. %Library.String 4 LETTER_TEXT FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the skeleton letter. %Library.String 1 3 NAME FileMan Field Label: 'NON EDITABLE LETTER' FileMan Field Number: '4' If this field is set to 1 this letter is marked as non editable. %Library.EnumString 7 NON_EDITABLE_LETTER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(665.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(665.2,"+1,",.01)={"NAME"} set:{DENIAL_FLAG}'="" FDA(665.2,"+1,",2)={"DENIAL_FLAG"} set:{ADP_FL_1090_FLAG}'="" FDA(665.2,"+1,",3)={"ADP_FL_1090_FLAG"} set:{NON_EDITABLE_LETTER}'="" FDA(665.2,"+1,",4)={"NON_EDITABLE_LETTER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(665.2)") set %SkipFiling=1 if $d(%FMERR(665.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LETTER_TEXT}'="" { set D0={RowId} for i=1:1:$l({LETTER_TEXT},$c(13,10)) { set wp(i)=$p({LETTER_TEXT},$c(13,10),i) } do WP^DIE(665.2,{RowId},1,,"wp","%FMERR(665.2)") if $d(%FMERR(665.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(665.2,IENS,.01)={NAME} set:{DENIAL_FLAG*C} FDA(665.2,IENS,2)={DENIAL_FLAG} set:{ADP_FL_1090_FLAG*C} FDA(665.2,IENS,3)={ADP_FL_1090_FLAG} set:{NON_EDITABLE_LETTER*C} FDA(665.2,IENS,4)={NON_EDITABLE_LETTER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665.2)") set %SkipFiling=1 if $d(%FMERR(665.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {LETTER_TEXT*C} { set D0={RowId} kill wp if {LETTER_TEXT}'="" { set wproot="wp" for i=1:1:$l({LETTER_TEXT},$c(13,10)) { set wp(i)=$p({LETTER_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(665.2,{RowId},1,,wproot,"%FMERR(665.2)") if $d(%FMERR(665.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.PROSLETTER6652S index ^RMPR nonnull 665.2 "B" {NAME} {IEN} 0]]> data ^RMPR 665.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 1 new data,i,node set {LETTER_TEXT}="" merge data=^RMPR(665.2,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {LETTER_TEXT}={LETTER_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 4 Generated class for FileMan File Number: '664.1' File Name: 'PROSTHETIC 2529-3' Class generated by %fm2class version 2.56 This file will contain all information related to providing a patient with items/services via the automated VAF 10-2529-3. The items/services will be provided locally by the Orthotic Laboratory, Restoration Laboratory, or Wheelchair Repair Shops or remote services such as the Denver Distribution Center, National Foot Center, or a remote Orthotic Laboratory. This file is the main file for the Prosthetic Lab module. Request and Receipt for Prosthetic Appliances or Services, which is used to maintain a consolidated record of prosthetic items and services furnished to eligible veterans. persistent _PUBLIC 0 RowId PROSTHETIC_25293_664_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.109258823 67178,44714.325617442 right PROSTHETIC 2529-3 664.1 2.56 12/04/2024 12:25:14 1 1 IEN 1 NEW_PERSON_200]]> APPROVINGOFFICIAL VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_APPROVING_OFFICIAL NEW_PERSON_200]]> ASSIGNEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ASSIGNED_BY NEW_PERSON_200]]> CANCELLEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CANCELLED_BY NEW_PERSON_200]]> COMPLETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_COMPLETED_BY NEW_PERSON_200]]> INSPECTINGOFFICIAL VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INSPECTING_OFFICIAL PROSTHETIC_WORK_ORDER_664_2]]> NOCOUNTWORKORDER VALIP.prosthetic.fm2cw.PROSTHETICWORKORDER6642 FKey_NO_COUNT_WORK_ORDER PROSTHETICS_PATIENT_665]]> PATIENT VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 FKey_PATIENT NEW_PERSON_200]]> PHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PHYSICIAN INSTITUTION_4]]> RECEIVINGSTATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_RECEIVING_STATION NEW_PERSON_200]]> REQUESTINGOFFICIAL VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REQUESTING_OFFICIAL INSTITUTION_4]]> REQUESTINGSTATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_REQUESTING_STATION NEW_PERSON_200]]> RETURNEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_RETURNED_BY INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION PROSTHETIC_SUSPENSE_668]]> SUSPENSERECORD VALIP.prosthetic.fm2cw.PROSTHETICSUSPENSE668 FKey_SUSPENSE_RECORD NEW_PERSON_200]]> TECHNICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_TECHNICIAN FACILITY_TREATING_SPECIALTY_45_7]]> TREATINGSPECIALTY VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 FKey_TREATING_SPECIALTY WARD_LOCATION_42]]> WARDLOCATION VALIP.prosthetic.fm2cw.WARDLOCATION42 FKey_WARD_LOCATION FileMan Field Label: 'AMIS GROUPER' FileMan Field Number: '31' This is a number that is assigned to group the items on a request together for AMIS reporting purposes. %Library.Numeric 44 AMIS_GROUPER FileMan Field Label: 'APPROVING DATE' FileMan Field Number: '18' The date this VAF 10-2529-3 was approved. %Library.FilemanDate 32 APPROVING_DATE FileMan Field Label: 'APPROVING OFFICIAL' FileMan Field Number: '14' This is the official who approved this VAF 10-2529-3. VALIP.prosthetic.fm2cw.NEWPERSON200 28 APPROVING_OFFICIAL NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {APPROVING_OFFICIAL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 APPROVING_OFFICIAL_NAME 1 FileMan Field Label: 'ASSIGNED BY' FileMan Field Number: '27' Indiviual who assigned the VAF 10-2529-3 Job to a Lab Technician. VALIP.prosthetic.fm2cw.NEWPERSON200 41 ASSIGNED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {ASSIGNED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSIGNED_BY_NAME 1 FileMan Field Label: 'CANCELLATION REMARKS' FileMan Field Number: '11' These are the Cancellation remarks, if the VAF 10-2529-3 was canceled. %Library.String 20 CANCELLATION_REMARKS FileMan Field Label: 'CANCELLED BY' FileMan Field Number: '7' Contains a pointer to the entry in the New Person file for the person who cancelled this VAF 10-2529-3. VALIP.prosthetic.fm2cw.NEWPERSON200 16 CANCELLED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {CANCELLED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CANCELLED_BY_NAME 1 FileMan Field Label: 'CANCEL DATE' FileMan Field Number: '8' This field contains the date the VAF 10-2529-3 was canceled. %Library.FilemanDate 17 CANCEL_DATE FileMan Field Label: 'CLOSE-OUT DATE' FileMan Field Number: '23' Date the the VAF 10-2529-3 was closed out for AMIS Purposes. %Library.FilemanTimeStamp 37 CLOSEOUT_DATE FileMan Field Label: 'COMPLETED BY' FileMan Field Number: '22' Indiviual who completed the Job Section of the 2529-3. VALIP.prosthetic.fm2cw.NEWPERSON200 36 COMPLETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {COMPLETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLETED_BY_NAME 1 FileMan Field Label: 'DATE' FileMan Field Number: '.01' Patient Name or Date Date that the VAF 10-2529-3 was created. %Library.FilemanTimeStamp 1 3 DATE_01 FileMan Field Label: 'DATE ASSIGNED' FileMan Field Number: '19' Date that the 2529-3 was assigned to the lab technician. %Library.FilemanTimeStamp 33 DATE_ASSIGNED FileMan Field Label: 'DATE DELIVERED' FileMan Field Number: '20' Date that the item/service was delivered to the patient or requesting VAMC institution. %Library.FilemanDate 34 DATE_DELIVERED FileMan Field Label: 'DATE ITEM RECEIVED' FileMan Field Number: '33' This is the date the item was received to service the patient. %Library.FilemanDate 46 DATE_ITEM_RECEIVED FileMan Field Label: 'DATE REQUIRED' FileMan Field Number: '.09' Date that the Items/Services are required. %Library.FilemanTimeStamp 11 DATE_REQUIRED FileMan Field Label: 'DELIVERY STATUS' FileMan Field Number: '24' Code indicates delivery status of this VAF 10-2529-3. %Library.EnumString 38 DELIVERY_STATUS FileMan Field Label: 'DIAGNOSIS' FileMan Field Number: '12.2' Current patient diagnosis most related to receiving this item. %Library.String 24 DIAGNOSIS FileMan Field Label: 'ELIGIBILITY STATUS' FileMan Field Number: '.06' The eligibility status of the patient needing items/services. %Library.EnumString 8 ELIGIBILITY_STATUS Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(664.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INSPECTING OFFICIAL' FileMan Field Number: '21' Individual who is responsible for inspecting the work performed by the Prosthetics Lab. VALIP.prosthetic.fm2cw.NEWPERSON200 35 INSPECTING_OFFICIAL NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {INSPECTING_OFFICIAL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INSPECTING_OFFICIAL_NAME 1 FileMan Field Label: 'JOB # COUNT' FileMan Field Number: '30' Set to the last job number on the 2529-3 to ensure that the Job count for the 2529-3 is accurate. %Library.Numeric 43 JOB__COUNT FileMan Field Label: 'NO ADMIN COUNT' FileMan Field Number: '28' Status is set to ensure that Work Load and Total Cost do not count on the Adminstrative AMIS if the VAF 10-2529-3 is considered work for another station. %Library.EnumString 42 NO_ADMIN_COUNT FileMan Field Label: 'NO COUNT WORK ORDER' FileMan Field Number: '34' This is the work order that was used to create the No-Count VAF 10-2529-3. VALIP.prosthetic.fm2cw.PROSTHETICWORKORDER6642 47 NO_COUNT_WORK_ORDER WORK ORDER NUMBER This is the permanent number used to identify and track the Lab request. It is built from both information the user enters and a sequence number assigned by the computer (e.g., 644-95-2-O-0016). 644 = Station Number 95 = Fiscal Year 2 = Quarter O = Type of Laboratory (Orthotic, Restoration, Shoe Last, Wheelchair Repair, National Foot Center, or Denver Distribution Center)]]> %Library.String 1 WORK_ORDER_NUMBER into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {NO_COUNT_WORK_ORDER_WORK_ORDER_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 NO_COUNT_WORK_ORDER_WORK_ORDER_NUMBER 1 FileMan Field Label: 'NO LAB COUNT' FileMan Field Number: '32' If this field contains a '1' then this VAF 10-2529-3 is a request to another station to provide the item/service(s), and this station will take an ADMINISTRATIVE count on this request, but no LAB count. %Library.EnumString 45 NO_LAB_COUNT FileMan Field Label: 'OTHER DESCRIPTION' FileMan Field Number: '.081' This is a remarks field. %Library.String 10 OTHER_DESCRIPTION FileMan Field Label: 'PATIENT' FileMan Field Number: '.02' The name of the Prosthetics Patient requiring services. VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 4 PATIENT NAME This is the name of the patient, same as the PATIENT file in MAS.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME 1 FileMan Field Label: 'PHYSICIAN' FileMan Field Number: '12.1' Provider who prescribes the services/items for the Prosthetics inpatient. VALIP.prosthetic.fm2cw.NEWPERSON200 23 PHYSICIAN FileMan Field Label: 'PHYSICIAN EXTENSION' FileMan Field Number: '12.4' Phone Extension by which the Physician may be contacted. %Library.String 26 PHYSICIAN_EXTENSION NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PHYSICIAN_NAME 1 FileMan Field Label: 'RECEIVING STATION' FileMan Field Number: '.11' Station that is responsible for furnishing the item. VALIP.prosthetic.fm2cw.INSTITUTION4 12 RECEIVING_STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {RECEIVING_STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RECEIVING_STATION_NAME 1 FileMan Field Label: 'REQUESTING OFFICIAL' FileMan Field Number: '13' This is the official person who entered this VAF 10-2529-3. VALIP.prosthetic.fm2cw.NEWPERSON200 27 REQUESTING_OFFICIAL NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {REQUESTING_OFFICIAL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_OFFICIAL_NAME 1 FileMan Field Label: 'REQUESTING STATION' FileMan Field Number: '.04' Station that has requested the item/services. VALIP.prosthetic.fm2cw.INSTITUTION4 6 REQUESTING_STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {REQUESTING_STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_STATION_NAME 1 FileMan Field Label: 'REQUESTOR DATE' FileMan Field Number: '17' The date this VAF 10-25-29-3 was entered. %Library.FilemanDate 31 REQUESTOR_DATE FileMan Field Label: 'RETURNED BY' FileMan Field Number: '9' Lab Supervisor that returned the 2529-3 to the Lab as incomplete. VALIP.prosthetic.fm2cw.NEWPERSON200 18 RETURNED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {RETURNED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RETURNED_BY_NAME 1 FileMan Field Label: 'RETURN DATE' FileMan Field Number: '10' The date the VAF 10-2529-3 was returned to the LAB. %Library.FilemanDate 19 RETURN_DATE FileMan Field Label: 'RETURN TO LAB REASON' FileMan Field Number: '11.5' This contains the reason for returning the VAF 10-2529-3 to the LAB. %Library.String 21 RETURN_TO_LAB_REASON FileMan Field Label: 'SOURCE OF PROCUREMENT' FileMan Field Number: '2' Known sources from which Prosthetics Items are acquired within the VA. %Library.EnumString 14 SOURCE_OF_PROCUREMENT FileMan Field Label: 'SPECIAL CATEGORY' FileMan Field Number: '.07' The Special Category of the Patient needing items/services. %Library.EnumString 9 SPECIAL_CATEGORY FileMan Field Label: 'STATION' FileMan Field Number: '.03' Station that will receive the AMIS count. VALIP.prosthetic.fm2cw.INSTITUTION4 5 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 FileMan Field Label: 'STATUS' FileMan Field Number: '16' This is the current status of this VAF 10-2529-3. %Library.EnumString 30 STATUS Relationship for Sub-File/Multiple to file name AUDIT DATE child VALIP.prosthetic.fm2cw.SUBAUDITDATE664129 children PROSTHETIC252936641 1 SUB_AUDIT_DATE_664_129 Relationship for Sub-File/Multiple to file name DISABILITY CODE child VALIP.prosthetic.fm2cw.SUBDISABILITYCODE66415 children PROSTHETIC252936641 1 SUB_DISABILITY_CODE_664_15 Relationship for Sub-File/Multiple to file name ITEM child VALIP.prosthetic.fm2cw.SUBITEM66416 children PROSTHETIC252936641 1 SUB_ITEM_664_16 FileMan Field Label: 'SUSPENSE RECORD' FileMan Field Number: '.05' Pointer to the Prosthetics Suspense Record file #668 that is associated with this work order. VALIP.prosthetic.fm2cw.PROSTHETICSUSPENSE668 7 SUSPENSE_RECORD SUSPENSE DATE Date that the Suspense entry was entered.]]> %Library.FilemanTimeStamp 1 SUSPENSE_DATE into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {SUSPENSE_RECORD_SUSPENSE_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 SUSPENSE_RECORD_SUSPENSE_DATE 1 FileMan Field Label: 'TECHNICIAN' FileMan Field Number: '15' This is the Technician associated with this VAF 10-2529-3. VALIP.prosthetic.fm2cw.NEWPERSON200 29 TECHNICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {TECHNICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TECHNICIAN_NAME 1 FileMan Field Label: 'TOTAL COST' FileMan Field Number: '26' The total charges associated with the item/service(s) requested on this VAF 10-2529-3 including labor charges. %Library.Numeric 40 TOTAL_COST FileMan Field Label: 'TOTAL MATERIALS COST' FileMan Field Number: '25' The total charges associated with the item/service requested on this VAF 10-2529-3 minus the labor costs. %Library.Numeric 39 TOTAL_MATERIALS_COST FileMan Field Label: 'TRANSACTION TYPE' FileMan Field Number: '1' This field indicates whether the item being issued is the first of this item for this patient, a spare item, or is replacing the last such item the patient received, or if the item is being repaired. %Library.EnumString 13 TRANSACTION_TYPE FileMan Field Label: 'TREATING SPECIALTY' FileMan Field Number: '12.3' This is the Inpatient treating specialty that will be associated with cost containment reporting. VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 25 TREATING_SPECIALTY NAME Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {TREATING_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TREATING_SPECIALTY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 48 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WARD LOCATION' FileMan Field Number: '12' This field will contain the ward the request was originated from if the Patient is an inpatient. VALIP.prosthetic.fm2cw.WARDLOCATION42 22 WARD_LOCATION NAME Enter in this field the name of the ward location as selectable using bed control options in MAS. Mixing ward names that are pure numbers (4,5,6...) with ward names that are alphabetic (A,B,C...) or with ward names that combine numbers with alphas (4A, 4B, 5C...) may yield unexpected results when printing output sorted by ward.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_25293_664_1 where %ID=:id) set {WARD_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARD_LOCATION_NAME 1 FileMan Field Label: 'WORK ORDER NUMBER' FileMan Field Number: '4' This is the permanent number used to identify and track Lab Work Orders. It is built from both information the user enters and the sequence number assigned by the computer (e.g., 644-95-2-O-0016). 644 = Station Number 95 = Fiscal Year 2 = Quarter O = Type of Laboratory (Orthotic, Restoration, Shoe Last, Wheelchair Repair, National Foot Center, or Denver Distribution Center) 0016 = Sequence number assigned by the computer %Library.String 15 WORK_ORDER_NUMBER BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(664.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATE_01}'="" FDA(664.1,"+1,",.01)={"DATE_01"} set:{PATIENT}'="" FDA(664.1,"+1,",.02)={"PATIENT"} set:{STATION}'="" FDA(664.1,"+1,",.03)={"STATION"} set:{REQUESTING_STATION}'="" FDA(664.1,"+1,",.04)={"REQUESTING_STATION"} set:{SUSPENSE_RECORD}'="" FDA(664.1,"+1,",.05)={"SUSPENSE_RECORD"} set:{ELIGIBILITY_STATUS}'="" FDA(664.1,"+1,",.06)={"ELIGIBILITY_STATUS"} set:{SPECIAL_CATEGORY}'="" FDA(664.1,"+1,",.07)={"SPECIAL_CATEGORY"} set:{DATE_REQUIRED}'="" FDA(664.1,"+1,",.09)={"DATE_REQUIRED"} set:{RECEIVING_STATION}'="" FDA(664.1,"+1,",.11)={"RECEIVING_STATION"} set:{TRANSACTION_TYPE}'="" FDA(664.1,"+1,",1)={"TRANSACTION_TYPE"} set:{SOURCE_OF_PROCUREMENT}'="" FDA(664.1,"+1,",2)={"SOURCE_OF_PROCUREMENT"} set:{WORK_ORDER_NUMBER}'="" FDA(664.1,"+1,",4)={"WORK_ORDER_NUMBER"} set:{CANCELLED_BY}'="" FDA(664.1,"+1,",7)={"CANCELLED_BY"} set:{CANCEL_DATE}'="" FDA(664.1,"+1,",8)={"CANCEL_DATE"} set:{RETURNED_BY}'="" FDA(664.1,"+1,",9)={"RETURNED_BY"} set:{RETURN_DATE}'="" FDA(664.1,"+1,",10)={"RETURN_DATE"} set:{WARD_LOCATION}'="" FDA(664.1,"+1,",12)={"WARD_LOCATION"} set:{PHYSICIAN}'="" FDA(664.1,"+1,",12.1)={"PHYSICIAN"} set:{DIAGNOSIS}'="" FDA(664.1,"+1,",12.2)={"DIAGNOSIS"} set:{TREATING_SPECIALTY}'="" FDA(664.1,"+1,",12.3)={"TREATING_SPECIALTY"} set:{PHYSICIAN_EXTENSION}'="" FDA(664.1,"+1,",12.4)={"PHYSICIAN_EXTENSION"} set:{REQUESTING_OFFICIAL}'="" FDA(664.1,"+1,",13)={"REQUESTING_OFFICIAL"} set:{APPROVING_OFFICIAL}'="" FDA(664.1,"+1,",14)={"APPROVING_OFFICIAL"} set:{TECHNICIAN}'="" FDA(664.1,"+1,",15)={"TECHNICIAN"} set:{STATUS}'="" FDA(664.1,"+1,",16)={"STATUS"} set:{REQUESTOR_DATE}'="" FDA(664.1,"+1,",17)={"REQUESTOR_DATE"} set:{APPROVING_DATE}'="" FDA(664.1,"+1,",18)={"APPROVING_DATE"} set:{DATE_ASSIGNED}'="" FDA(664.1,"+1,",19)={"DATE_ASSIGNED"} set:{DATE_DELIVERED}'="" FDA(664.1,"+1,",20)={"DATE_DELIVERED"} set:{INSPECTING_OFFICIAL}'="" FDA(664.1,"+1,",21)={"INSPECTING_OFFICIAL"} set:{COMPLETED_BY}'="" FDA(664.1,"+1,",22)={"COMPLETED_BY"} set:{CLOSEOUT_DATE}'="" FDA(664.1,"+1,",23)={"CLOSEOUT_DATE"} set:{DELIVERY_STATUS}'="" FDA(664.1,"+1,",24)={"DELIVERY_STATUS"} set:{TOTAL_MATERIALS_COST}'="" FDA(664.1,"+1,",25)={"TOTAL_MATERIALS_COST"} set:{TOTAL_COST}'="" FDA(664.1,"+1,",26)={"TOTAL_COST"} set:{ASSIGNED_BY}'="" FDA(664.1,"+1,",27)={"ASSIGNED_BY"} set:{NO_ADMIN_COUNT}'="" FDA(664.1,"+1,",28)={"NO_ADMIN_COUNT"} set:{JOB__COUNT}'="" FDA(664.1,"+1,",30)={"JOB__COUNT"} set:{AMIS_GROUPER}'="" FDA(664.1,"+1,",31)={"AMIS_GROUPER"} set:{NO_LAB_COUNT}'="" FDA(664.1,"+1,",32)={"NO_LAB_COUNT"} set:{DATE_ITEM_RECEIVED}'="" FDA(664.1,"+1,",33)={"DATE_ITEM_RECEIVED"} set:{NO_COUNT_WORK_ORDER}'="" FDA(664.1,"+1,",34)={"NO_COUNT_WORK_ORDER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(664.1)") set %SkipFiling=1 if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OTHER_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({OTHER_DESCRIPTION},$c(13,10)) { set wp(i)=$p({OTHER_DESCRIPTION},$c(13,10),i) } do WP^DIE(664.1,{RowId},.081,,"wp","%FMERR(664.1)") if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CANCELLATION_REMARKS}'="" { set D0={RowId} for i=1:1:$l({CANCELLATION_REMARKS},$c(13,10)) { set wp(i)=$p({CANCELLATION_REMARKS},$c(13,10),i) } do WP^DIE(664.1,{RowId},11,,"wp","%FMERR(664.1)") if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {RETURN_TO_LAB_REASON}'="" { set D0={RowId} for i=1:1:$l({RETURN_TO_LAB_REASON},$c(13,10)) { set wp(i)=$p({RETURN_TO_LAB_REASON},$c(13,10),i) } do WP^DIE(664.1,{RowId},11.5,,"wp","%FMERR(664.1)") if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATE_01*C} FDA(664.1,IENS,.01)={DATE_01} set:{PATIENT*C} FDA(664.1,IENS,.02)={PATIENT} set:{STATION*C} FDA(664.1,IENS,.03)={STATION} set:{REQUESTING_STATION*C} FDA(664.1,IENS,.04)={REQUESTING_STATION} set:{SUSPENSE_RECORD*C} FDA(664.1,IENS,.05)={SUSPENSE_RECORD} set:{ELIGIBILITY_STATUS*C} FDA(664.1,IENS,.06)={ELIGIBILITY_STATUS} set:{SPECIAL_CATEGORY*C} FDA(664.1,IENS,.07)={SPECIAL_CATEGORY} set:{DATE_REQUIRED*C} FDA(664.1,IENS,.09)={DATE_REQUIRED} set:{RECEIVING_STATION*C} FDA(664.1,IENS,.11)={RECEIVING_STATION} set:{TRANSACTION_TYPE*C} FDA(664.1,IENS,1)={TRANSACTION_TYPE} set:{SOURCE_OF_PROCUREMENT*C} FDA(664.1,IENS,2)={SOURCE_OF_PROCUREMENT} set:{WORK_ORDER_NUMBER*C} FDA(664.1,IENS,4)={WORK_ORDER_NUMBER} set:{CANCELLED_BY*C} FDA(664.1,IENS,7)={CANCELLED_BY} set:{CANCEL_DATE*C} FDA(664.1,IENS,8)={CANCEL_DATE} set:{RETURNED_BY*C} FDA(664.1,IENS,9)={RETURNED_BY} set:{RETURN_DATE*C} FDA(664.1,IENS,10)={RETURN_DATE} set:{WARD_LOCATION*C} FDA(664.1,IENS,12)={WARD_LOCATION} set:{PHYSICIAN*C} FDA(664.1,IENS,12.1)={PHYSICIAN} set:{DIAGNOSIS*C} FDA(664.1,IENS,12.2)={DIAGNOSIS} set:{TREATING_SPECIALTY*C} FDA(664.1,IENS,12.3)={TREATING_SPECIALTY} set:{PHYSICIAN_EXTENSION*C} FDA(664.1,IENS,12.4)={PHYSICIAN_EXTENSION} set:{REQUESTING_OFFICIAL*C} FDA(664.1,IENS,13)={REQUESTING_OFFICIAL} set:{APPROVING_OFFICIAL*C} FDA(664.1,IENS,14)={APPROVING_OFFICIAL} set:{TECHNICIAN*C} FDA(664.1,IENS,15)={TECHNICIAN} set:{STATUS*C} FDA(664.1,IENS,16)={STATUS} set:{REQUESTOR_DATE*C} FDA(664.1,IENS,17)={REQUESTOR_DATE} set:{APPROVING_DATE*C} FDA(664.1,IENS,18)={APPROVING_DATE} set:{DATE_ASSIGNED*C} FDA(664.1,IENS,19)={DATE_ASSIGNED} set:{DATE_DELIVERED*C} FDA(664.1,IENS,20)={DATE_DELIVERED} set:{INSPECTING_OFFICIAL*C} FDA(664.1,IENS,21)={INSPECTING_OFFICIAL} set:{COMPLETED_BY*C} FDA(664.1,IENS,22)={COMPLETED_BY} set:{CLOSEOUT_DATE*C} FDA(664.1,IENS,23)={CLOSEOUT_DATE} set:{DELIVERY_STATUS*C} FDA(664.1,IENS,24)={DELIVERY_STATUS} set:{TOTAL_MATERIALS_COST*C} FDA(664.1,IENS,25)={TOTAL_MATERIALS_COST} set:{TOTAL_COST*C} FDA(664.1,IENS,26)={TOTAL_COST} set:{ASSIGNED_BY*C} FDA(664.1,IENS,27)={ASSIGNED_BY} set:{NO_ADMIN_COUNT*C} FDA(664.1,IENS,28)={NO_ADMIN_COUNT} set:{JOB__COUNT*C} FDA(664.1,IENS,30)={JOB__COUNT} set:{AMIS_GROUPER*C} FDA(664.1,IENS,31)={AMIS_GROUPER} set:{NO_LAB_COUNT*C} FDA(664.1,IENS,32)={NO_LAB_COUNT} set:{DATE_ITEM_RECEIVED*C} FDA(664.1,IENS,33)={DATE_ITEM_RECEIVED} set:{NO_COUNT_WORK_ORDER*C} FDA(664.1,IENS,34)={NO_COUNT_WORK_ORDER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(664.1)") set %SkipFiling=1 if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OTHER_DESCRIPTION*C} { set D0={RowId} kill wp if {OTHER_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({OTHER_DESCRIPTION},$c(13,10)) { set wp(i)=$p({OTHER_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(664.1,{RowId},.081,,wproot,"%FMERR(664.1)") if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CANCELLATION_REMARKS*C} { set D0={RowId} kill wp if {CANCELLATION_REMARKS}'="" { set wproot="wp" for i=1:1:$l({CANCELLATION_REMARKS},$c(13,10)) { set wp(i)=$p({CANCELLATION_REMARKS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(664.1,{RowId},11,,wproot,"%FMERR(664.1)") if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {RETURN_TO_LAB_REASON*C} { set D0={RowId} kill wp if {RETURN_TO_LAB_REASON}'="" { set wproot="wp" for i=1:1:$l({RETURN_TO_LAB_REASON},$c(13,10)) { set wp(i)=$p({RETURN_TO_LAB_REASON},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(664.1,{RowId},11.5,,wproot,"%FMERR(664.1)") if $d(%FMERR(664.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETIC252EBS index ^RMPR nonnull 664.1 "B" {DATE_01} {IEN} 0]]> index ^RMPR nonnull 664.1 "C" {WORK_ORDER_NUMBER} {IEN} 0]]> index ^RMPR nonnull 664.1 "D" {PATIENT} {IEN} 0]]> index ^RMPR nonnull 664.1 "E" {STATUS} {IEN} 0]]> index ^RMPR nonnull 664.1 "G" {TECHNICIAN} {IEN} 0]]> index ^RMPR nonnull 664.1 "H" {SOURCE_OF_PROCUREMENT} {IEN} 0]]> data ^RMPR 664.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 14 "^" 0 19 "^" 0 7 "^" 7 3 4 new data,i,node set {CANCELLATION_REMARKS}="" merge data=^RMPR(664.1,{S2},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CANCELLATION_REMARKS}={CANCELLATION_REMARKS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 3 1 "^" 3 2 "^" 0 26 "^" 0 25 "^" 0 1 "^" 7 1 "^" 7 2 "^" 7 4 "^" 0 9 "^" 0 27 "^" "CDR" 3 "^" 0 6 "^" 0 21 "^" 0 24 "^" 0 23 "^" 0 12 "^" 0 20 5 new data,i,node set {OTHER_DESCRIPTION}="" merge data=^RMPR(664.1,{S2},5) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_DESCRIPTION}={OTHER_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 "^" "CDR" 2 "^" "CDR" 5 "^" 0 15 "^" 0 5 "^" 0 4 "^" 0 18 "^" 3 3 "^" 3 4 6 new data,i,node set {RETURN_TO_LAB_REASON}="" merge data=^RMPR(664.1,{S2},6) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {RETURN_TO_LAB_REASON}={RETURN_TO_LAB_REASON}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 11 "^" 0 22 "^" 0 3 "^" 0 17 "^" 0 8 "^" 0 16 "^" 7 8 "^" 7 7 "^" 0 10 "^" "CDR" 4 "^" "CDR" 1 "^" 0 13 index ^RMPR nonnull 664.1 "SUS" {SUSPENSE_RECORD} {IEN} 0]]> Generated class for FileMan File Number: '661.1' File Name: 'PROSTHETIC HCPCS' Class generated by %fm2class version 2.56 This is a standardized Prosthetic HCPCS file that contains HCPCS code used in Prosthetics. Sites are not allowed to update, add, edit or delete entries from this file. Only the SYNONYM and ITEM fields are editable, and can be edited in the sites, all other fields will only be updated by the Prosthetics Data Validation Group and update nationally will take place through a patch. persistent _PUBLIC 0 RowId PROSTHETIC_HCPCS_661_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.092775117 67178,44714.407146713 right PROSTHETIC HCPCS 661.1 2.56 12/04/2024 12:25:14 1 1 IEN 1 CPT_81]]> CPT VALIP.prosthetic.fm2cw.CPT81 FKey_CPT PROSTHETIC_HCPCS_661_1]]> NEWHCPCCODE VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 FKey_NEW_HCPC_CODE FileMan Field Label: 'CALCULATION FLAG' FileMan Field Number: '9' To be used to associate like items on one HCPCS. %Library.String 15 CALCULATION_FLAG FileMan Field Label: 'CPT' FileMan Field Number: '2' A pointer to cpt file (#81). VALIP.prosthetic.fm2cw.CPT81 11 CPT CPT CODE This file contains both CPT from the AMA and HCFA. The AMA entries will have an internal number less than 99999. The AMA CPT are '5' numbers that coorespond to the internal number. The HCFA codes will have an internal number of 100000 or greater. These codes are '1' alpha followed by '4' numbers, which will NOT correspond to the internal number.]]> %Library.String 1 CPT_CODE into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_HCPCS_661_1 where %ID=:id) set {CPT_CPT_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 CPT_CPT_CODE 1 FileMan Field Label: 'CPT MODIFIER' FileMan Field Number: '.03' List of CPT modifier authorized, consistent with the HCFA standard to be used under this HCPCS. %Library.String 5 CPT_MODIFIER FileMan Field Label: 'DATE/TIME LAST UPDATE' FileMan Field Number: '1.1' This is the date and time the record was last updated. %Library.FilemanTimeStamp 8 DATETIME_LAST_UPDATE FileMan Field Label: 'HCPCS' FileMan Field Number: '.01' This is a unique Prosthetics HCPCS code that corresponds to the CPT code. %Library.String 1 3 HCPCS Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(661.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INVENTORY FLAG' FileMan Field Number: '10' Signifies if it's an inventory item. %Library.EnumString 16 INVENTORY_FLAG FileMan Field Label: 'LAST UPDATE' FileMan Field Number: '1.2' This is the identifier associated with the last update. %Library.String 9 LAST_UPDATE FileMan Field Label: 'NEW HCPC CODE' FileMan Field Number: '1' A new HCPCS code to be used once a HCPCS has been deactivated by Prosthetics Data Validation Group. VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 7 NEW_HCPC_CODE HCPCS This is a unique Prosthetics HCPCS code that corresponds to the CPT code.]]> %Library.String 1 HCPCS into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_HCPCS_661_1 where %ID=:id) set {NEW_HCPC_CODE_HCPCS}=$select(SQLCODE=0:val,1:"")]]> 1 NEW_HCPC_CODE_HCPCS 1 FileMan Field Label: 'NON-BILLABLE FLAG' FileMan Field Number: '.04' This field flags a HCPCS to be non-billable. This will be used in the future for billing purposes. Currently this field is not used. %Library.EnumString 6 NONBILLABLE_FLAG FileMan Field Label: 'NPPD NEW CODE' FileMan Field Number: '6' New code for NPPD. %Library.String 14 NPPD_NEW_CODE FileMan Field Label: 'NPPD REPAIR CODE' FileMan Field Number: '5' Repair code for NPPD. %Library.String 13 NPPD_REPAIR_CODE FileMan Field Label: 'PRE-DETERMINED LAB TIME' FileMan Field Number: '11' Number of minutes to fit an item to a veteran. %Library.Numeric 17 PREDETERMINED_LAB_TIME FileMan Field Label: 'RENTAL FLAG' FileMan Field Number: '30' This is a flag use by sites to designate an item issued under a particular HCPCS to have a possible Rental (RR modifier). If this field is set to 'YES', user will be asked if the item issued is a RENTAL. %Library.EnumString 18 RENTAL_FLAG FileMan Field Label: 'SHORT NAME' FileMan Field Number: '.02' A short description for the Prosthetics HCPCS code as in CPT file #81. %Library.String 4 SHORT_NAME FileMan Field Label: 'STATUS' FileMan Field Number: '3' Set an entry active or inactive. %Library.EnumString 12 STATUS Relationship for Sub-File/Multiple to file name DESCRIPTION child VALIP.prosthetic.fm2cw.SUBDESCRIPTION66118 children PROSTHETICHCPCS6611 1 SUB_DESCRIPTION_661_18 Relationship for Sub-File/Multiple to file name ITEM child VALIP.prosthetic.fm2cw.SUBITEM66112 children PROSTHETICHCPCS6611 1 SUB_ITEM_661_12 Relationship for Sub-File/Multiple to file name SYNONYM child VALIP.prosthetic.fm2cw.SUBSYNONYM66114 children PROSTHETICHCPCS6611 1 SUB_SYNONYM_661_14 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 19 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERSION DATE' FileMan Field Number: '1.3' This date represents the most recent update to a HCPCS code in the PCM gold copy. Version date is controlled by PCM and is used to synchronize VistA HCPCS updates with the enterprise asset management system. %Library.FilemanDate 10 VERSION_DATE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(661.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{HCPCS}'="" FDA(661.1,"+1,",.01)={"HCPCS"} set:{SHORT_NAME}'="" FDA(661.1,"+1,",.02)={"SHORT_NAME"} set:{CPT_MODIFIER}'="" FDA(661.1,"+1,",.03)={"CPT_MODIFIER"} set:{NONBILLABLE_FLAG}'="" FDA(661.1,"+1,",.04)={"NONBILLABLE_FLAG"} set:{NEW_HCPC_CODE}'="" FDA(661.1,"+1,",1)={"NEW_HCPC_CODE"} set:{DATETIME_LAST_UPDATE}'="" FDA(661.1,"+1,",1.1)={"DATETIME_LAST_UPDATE"} set:{LAST_UPDATE}'="" FDA(661.1,"+1,",1.2)={"LAST_UPDATE"} set:{VERSION_DATE}'="" FDA(661.1,"+1,",1.3)={"VERSION_DATE"} set:{CPT}'="" FDA(661.1,"+1,",2)={"CPT"} set:{STATUS}'="" FDA(661.1,"+1,",3)={"STATUS"} set:{NPPD_REPAIR_CODE}'="" FDA(661.1,"+1,",5)={"NPPD_REPAIR_CODE"} set:{NPPD_NEW_CODE}'="" FDA(661.1,"+1,",6)={"NPPD_NEW_CODE"} set:{CALCULATION_FLAG}'="" FDA(661.1,"+1,",9)={"CALCULATION_FLAG"} set:{INVENTORY_FLAG}'="" FDA(661.1,"+1,",10)={"INVENTORY_FLAG"} set:{PREDETERMINED_LAB_TIME}'="" FDA(661.1,"+1,",11)={"PREDETERMINED_LAB_TIME"} set:{RENTAL_FLAG}'="" FDA(661.1,"+1,",30)={"RENTAL_FLAG"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(661.1)") set %SkipFiling=1 if $d(%FMERR(661.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{HCPCS*C} FDA(661.1,IENS,.01)={HCPCS} set:{SHORT_NAME*C} FDA(661.1,IENS,.02)={SHORT_NAME} set:{CPT_MODIFIER*C} FDA(661.1,IENS,.03)={CPT_MODIFIER} set:{NONBILLABLE_FLAG*C} FDA(661.1,IENS,.04)={NONBILLABLE_FLAG} set:{NEW_HCPC_CODE*C} FDA(661.1,IENS,1)={NEW_HCPC_CODE} set:{DATETIME_LAST_UPDATE*C} FDA(661.1,IENS,1.1)={DATETIME_LAST_UPDATE} set:{LAST_UPDATE*C} FDA(661.1,IENS,1.2)={LAST_UPDATE} set:{VERSION_DATE*C} FDA(661.1,IENS,1.3)={VERSION_DATE} set:{CPT*C} FDA(661.1,IENS,2)={CPT} set:{STATUS*C} FDA(661.1,IENS,3)={STATUS} set:{NPPD_REPAIR_CODE*C} FDA(661.1,IENS,5)={NPPD_REPAIR_CODE} set:{NPPD_NEW_CODE*C} FDA(661.1,IENS,6)={NPPD_NEW_CODE} set:{CALCULATION_FLAG*C} FDA(661.1,IENS,9)={CALCULATION_FLAG} set:{INVENTORY_FLAG*C} FDA(661.1,IENS,10)={INVENTORY_FLAG} set:{PREDETERMINED_LAB_TIME*C} FDA(661.1,IENS,11)={PREDETERMINED_LAB_TIME} set:{RENTAL_FLAG*C} FDA(661.1,IENS,30)={RENTAL_FLAG} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661.1)") set %SkipFiling=1 if $d(%FMERR(661.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICH6ABCS index ^RMPR nonnull 661.1 "B" {HCPCS} {IEN} 0]]> index ^RMPR nonnull 661.1 "C" {SHORT_NAME} {IEN} 0]]> data ^RMPR 661.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 8 "^" 0 4 "^" 4 1 "^" 0 11 "^" 0 1 "^" 0 9 "^" 0 12 "^" 0 3 "^" 4 2 "^" 0 7 "^" 0 6 "^" 0 10 "^" 5 1 "^" 0 2 "^" 0 5 "^" 5 2 Generated class for FileMan File Number: '661.6' File Name: 'PROSTHETIC INVENTORY TRANSACTION' Class generated by %fm2class version 2.56 This file records each transaction as it pertains to inventory. persistent _PUBLIC 0 RowId PROSTHETIC_INVENTORY_TRANSACTION_661_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.093745672 67178,44714.473305069 right PROSTHETIC INVENTORY TRANSACTION 661.6 2.56 12/04/2024 12:25:14 1 1 IEN 1 PROSTHETIC_STOCK_LOCATION_661_5]]> LOCATION VALIP.prosthetic.fm2cw.PROSTHETICSTOCKLOCATION6615 FKey_LOCATION INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION NEW_PERSON_200]]> USER9 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_USER9 VENDOR_440]]> VENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_VENDOR FileMan Field Label: 'COMMENT' FileMan Field Number: '8' A short comment can be entered, if required for a particular transaction. %Library.String 9 COMMENT %Library.FilemanTimeStamp 4 DATETIME_STAMP FileMan Field Label: 'HCPCS' FileMan Field Number: '.01' This field is the HCPCS code as defined by the .01 field in the PROSTHETIC HCPCS file (661.1). %Library.String 1 3 HCPCS FileMan Field Label: 'HCPCS ITEM' FileMan Field Number: '11' This field is the HCPCS ITEM field held on the 661.12 sub field of the PROSTHETIC HCPCS file (661.1). The value held is the sub file's IEN not the ITEM text field. %Library.Numeric 11 HCPCS_ITEM Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(661.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LOCATION' FileMan Field Number: '14' This field is a pointer to the PROSTHETIC STOCK LOCATION file (661.5). VALIP.prosthetic.fm2cw.PROSTHETICSTOCKLOCATION6615 14 LOCATION NAME This is the name of the stock location.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_INVENTORY_TRANSACTION_661_6 where %ID=:id) set {LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOCATION_NAME 1 FileMan Field Label: 'QUANTITY' FileMan Field Number: '5' The number of items associated with the transaction. %Library.Numeric 7 QUANTITY %Library.Numeric 5 SEQUENCE FileMan Field Label: 'STATION' FileMan Field Number: '13' This field is a pointer to the INSTITUTION file (4). VALIP.prosthetic.fm2cw.INSTITUTION4 13 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_INVENTORY_TRANSACTION_661_6 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 FileMan Field Label: 'TRANSACTION TYPE' FileMan Field Number: '4' This field records the transaction type, which can be one of the following... Receipt - for receiving items into stock. Order - for when a stock item has been ordered from the vendor. Patient Issue - for when a stock item is issued to a veteran. Issue to Lab - this transaction should be used for those items which are used by the labs to fabricate items. An example would be a bag of plaster which could be used for treating several patients. Return to Vendor - if an item has been received into stock but is later returned to the vendor for some reason, then this transaction type should be used. Write Off - use this transaction type when an item is removed from stock and scrapped. Transfer - for transferring stock between locations. The transaction quantity will be -ve for the 'transfer from' location. Return In - for when a veteran returns a stock item previously issued. Reconcile - for when a stock check is done. %Library.EnumString 6 TRANSACTION_TYPE FileMan Field Label: 'USER' FileMan Field Number: '9' This field points to the New Person file (200) and identifies the person responsible for creating the transaction on the system. VALIP.prosthetic.fm2cw.NEWPERSON200 10 USER9 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_INVENTORY_TRANSACTION_661_6 where %ID=:id) set {USER9_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USER9_NAME 1 FileMan Field Label: 'VALUE' FileMan Field Number: '6' The dollar value of the transaction. %Library.Numeric 8 VALUE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 15 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR' FileMan Field Number: '12' This field is the FMS VENDOR CODE held on the VENDOR file (440). This field is guaranteed to be unique irrespective of where a database is located. The Vendor IEN should be derived from the 'D' cross-reference of the Vendor file. VALIP.prosthetic.fm2cw.VENDOR440 12 VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_INVENTORY_TRANSACTION_661_6 where %ID=:id) set {VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VENDOR_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(661.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{HCPCS}'="" FDA(661.6,"+1,",.01)={"HCPCS"} set:{DATETIME_STAMP}'="" FDA(661.6,"+1,",2)={"DATETIME_STAMP"} set:{SEQUENCE}'="" FDA(661.6,"+1,",3)={"SEQUENCE"} set:{TRANSACTION_TYPE}'="" FDA(661.6,"+1,",4)={"TRANSACTION_TYPE"} set:{QUANTITY}'="" FDA(661.6,"+1,",5)={"QUANTITY"} set:{VALUE}'="" FDA(661.6,"+1,",6)={"VALUE"} set:{COMMENT}'="" FDA(661.6,"+1,",8)={"COMMENT"} set:{USER9}'="" FDA(661.6,"+1,",9)={"USER9"} set:{HCPCS_ITEM}'="" FDA(661.6,"+1,",11)={"HCPCS_ITEM"} set:{VENDOR}'="" FDA(661.6,"+1,",12)={"VENDOR"} set:{STATION}'="" FDA(661.6,"+1,",13)={"STATION"} set:{LOCATION}'="" FDA(661.6,"+1,",14)={"LOCATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(661.6)") set %SkipFiling=1 if $d(%FMERR(661.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{HCPCS*C} FDA(661.6,IENS,.01)={HCPCS} set:{DATETIME_STAMP*C} FDA(661.6,IENS,2)={DATETIME_STAMP} set:{SEQUENCE*C} FDA(661.6,IENS,3)={SEQUENCE} set:{TRANSACTION_TYPE*C} FDA(661.6,IENS,4)={TRANSACTION_TYPE} set:{QUANTITY*C} FDA(661.6,IENS,5)={QUANTITY} set:{VALUE*C} FDA(661.6,IENS,6)={VALUE} set:{COMMENT*C} FDA(661.6,IENS,8)={COMMENT} set:{USER9*C} FDA(661.6,IENS,9)={USER9} set:{HCPCS_ITEM*C} FDA(661.6,IENS,11)={HCPCS_ITEM} set:{VENDOR*C} FDA(661.6,IENS,12)={VENDOR} set:{STATION*C} FDA(661.6,IENS,13)={STATION} set:{LOCATION*C} FDA(661.6,IENS,14)={LOCATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661.6)") set %SkipFiling=1 if $d(%FMERR(661.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICI280ES index ^RMPR nonnull 661.6 "ADHS" {DATETIME_STAMP} {HCPCS} {SEQUENCE} {IEN} 0]]> index ^RMPR nonnull 661.6 "ASHD" {STATION} {HCPCS} {DATETIME_STAMP} {IEN} 0]]> index ^RMPR nonnull 661.6 "ASLD" {STATION} {LOCATION} {DATETIME_STAMP} {IEN} 0]]> index ^RMPR nonnull 661.6 "ASTHIDS" {STATION} {TRANSACTION_TYPE} {HCPCS} {HCPCS_ITEM} {DATETIME_STAMP} {SEQUENCE} {IEN} 0]]> index ^RMPR nonnull 661.6 "B" {HCPCS} {IEN} 0]]> index ^RMPR nonnull 661.6 "C" {DATETIME_STAMP} {IEN} 0]]> data ^RMPR 661.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 8 "^" 0 2 "^" 0 1 "^" 0 11 "^" 0 14 "^" 0 5 "^" 0 3 "^" 0 13 "^" 0 4 "^" 0 9 "^" 0 6 "^" 0 12 index ^RMPR nonnull 661.6 "XHDS" {HCPCS} {DATETIME_STAMP} {SEQUENCE} {IEN} 0]]> index ^RMPR nonnull 661.6 "XSTD" {STATION} {TRANSACTION_TYPE} {DATETIME_STAMP} {IEN} 0]]> Generated class for FileMan File Number: '664' File Name: 'PROSTHETICS 1358' Class generated by %fm2class version 2.56 This is a bridge file used to temporarily store purchasing information that links with the 1358 Daily Record File (424) prior to close out. Upon close out, transactions may be purged by using the Purge menu option. Normally, purging this file may be done for transactions over 180 days old. The purge retaining time is set in the site parameter file. persistent _PUBLIC 0 RowId PROSTHETICS_1358_664 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.092669097 67178,44714.135337631 right PROSTHETICS 1358 664 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'ACT. SHIPPING CHARGE' FileMan Field Number: '12' This field will be set when closing out the transaction if shipping charges were changed or deleted. %Library.Numeric 14 ACT__SHIPPING_CHARGE FileMan Field Label: 'AUDIT DATE' FileMan Field Number: '31' This field was created with the release of Prosthetics patch RMPR*3.0*67. This patch was released to allow users to modify the credit card number contained in the Oracle reconciliation document received from Austin and stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6). Due to CitiBank canceling and re-issuing a number of credit cards, it may be necessary to modify the credit card number in the file #440.6 Oracle document to match the credit card number that is in the original purchase order. This is the date that the credit card number in file 440.6 was modified. %Library.FilemanTimeStamp 28 AUDIT_DATE FileMan Field Label: 'BANK AUTHORIZATION NUMBER' FileMan Field Number: '26' This six digit number is the authorization number VISA gives to the vendor for guaranteed payment. This number is used in the reconciliation process. %Library.String 24 BANK_AUTHORIZATION_NUMBER FileMan Field Label: 'CANCELLATION DATE' FileMan Field Number: '3' The date the purchasing transaction was cancelled. %Library.FilemanDate 5 CANCELLATION_DATE FileMan Field Label: 'CANCELLATION REMARKS' FileMan Field Number: '3.1' Any remarks the Purchasing Agent, or Prosthetic Clerk would like to say in the mail message. %Library.String 6 CANCELLATION_REMARKS FileMan Field Label: 'CLOSE-OUT AMOUNT' FileMan Field Number: '28' This is the final amount authorized on the Purchase Card Transaction. %Library.Numeric 26 CLOSEOUT_AMOUNT FileMan Field Label: 'CLOSE-OUT REMARKS' FileMan Field Number: '8.1' Any remarks at the time the transaction is being marked as complete. %Library.String 10 CLOSEOUT_REMARKS FileMan Field Label: 'CLOSE OUT DATE' FileMan Field Number: '8' This is the date the transaction was closed-out, and posted as complete in IFCAP and the electronic 10-2319. This is the date AMIS will be based on. %Library.FilemanTimeStamp 9 CLOSE_OUT_DATE FileMan Field Label: 'DATE' FileMan Field Number: '.01' This is the date that the 1358 transaction took place. %Library.FilemanTimeStamp 1 3 DATE_01 FileMan Field Label: 'DATE REQUIRED' FileMan Field Number: '20' This field stores the date the vendor is required to provide the Item/Service by. %Library.FilemanDate 20 DATE_REQUIRED FileMan Field Label: 'DELIVERY TIME' FileMan Field Number: '21' This field stores the number of days the vendor has to delivery the Item/Service. %Library.Numeric 21 DELIVERY_TIME FileMan Field Label: 'DELIVER TO' FileMan Field Number: '19' LOCATION Contains the destination for delivery of the purchased item. %Library.String 19 DELIVER_TO FileMan Field Label: 'DELIVER TO ATTENTION' FileMan Field Number: '21.1' Attention to: line for delivery %Library.String 22 DELIVER_TO_ATTENTION FileMan Field Label: 'EST AMOUNT' FileMan Field Number: '27' This is the estimated amount of the transaction. This field is only used for Purchase Card Transactions. %Library.Numeric 25 EST_AMOUNT FileMan Field Label: 'EST. SHIPPING CHARGE' FileMan Field Number: '11' The estimated shipping charge when the transaction is created. This field only holds the estimate, and not the actual charge. %Library.Numeric 13 EST__SHIPPING_CHARGE FileMan Field Label: 'FORM TYPE' FileMan Field Number: '15' This field will contain the Form type of the 2319 and should not be edited thru Fileman. %Library.String 16 FORM_TYPE Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(664,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LAST AMEND REPRINT OK' FileMan Field Number: '8.8' This is a flag used to determine if the order should be reprinted or not. If this is set to 1, or yes, then the order may be reprinted. This means no pending IFCAP amendments are outstanding. %Library.EnumString 12 LAST_AMEND_REPRINT_OK FileMan Field Label: 'LAST AMEND TOTAL' FileMan Field Number: '8.7' This is the last total amount that was amended through IFCAP on this transaction. %Library.Numeric 11 LAST_AMEND_TOTAL FileMan Field Label: 'NEW PURCHASE CARD NUMBER' FileMan Field Number: '29' This field was created with the release of Prosthetics patch RMPR*3.0*67. This patch was released to allow users to modify the credit card number contained in the Oracle reconciliation document received from Austin and stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6). Due to CitiBank canceling and re-issuing a number of credit cards, it may be necessary to modify the credit card number in the file #440.6 Oracle document to match the credit card number that is in the original purchase order. This field stores the new purchase card number that was sent from CitiBank in the Oracle transaction from Austin. This number was originally stored in file 440.6, the IFCAP PURCHASE CARD ORDER RECONCILE file, and has been replaced in file 440.6 by the original purchase card number on the prosthetics transaction. This is necessary so that the prosthetics order can be reconciled and closed. This field is needed to maintain the audit trail for changing the purchase card number in 440.6 from the new purchase card number back to the original purchase card number. %Library.String 27 NEW_PURCHASE_CARD_NUMBER FileMan Field Label: 'OBLIGATION NUMBER' FileMan Field Number: '.5' This is the IFCAP obligation number. %Library.String 4 OBLIGATION_NUMBER FileMan Field Label: 'PERCENT DISCOUNT' FileMan Field Number: '17' Contains the % Discount for the Purchase. Estimated Cost and Actual Cost are calculated with the % Discount. %Library.Numeric 18 PERCENT_DISCOUNT FileMan Field Label: 'PICKUP/DELIVERY REMARKS' FileMan Field Number: '14' Pickup and delivery remarks go here. %Library.String 15 PICKUPDELIVERY_REMARKS FileMan Field Label: 'PSC CATEGORY' FileMan Field Number: '16' Contains the PSC CATEGORY for the type of 10-55 or 2520 purchase. %Library.EnumString 17 PSC_CATEGORY FileMan Field Label: 'PURCHASE CARD NUMBER' FileMan Field Number: '25' This is the Purchase Card Number used in a credit card transaction. %Library.String 23 PURCHASE_CARD_NUMBER FileMan Field Label: 'PURCHASE CARD REFERENCE' FileMan Field Number: '7.5' This is the unique Purchase Card Transaction Number. Do not edit this field from Fileman. %Library.String 8 PURCHASE_CARD_REFERENCE FileMan Field Label: 'REFERENCE' FileMan Field Number: '7' This is the individual reference number that this transaction has been assigned. %Library.String 7 REFERENCE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 29 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(664," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATE_01}'="" FDA(664,"+1,",.01)={"DATE_01"} set:{OBLIGATION_NUMBER}'="" FDA(664,"+1,",.5)={"OBLIGATION_NUMBER"} set:{CANCELLATION_DATE}'="" FDA(664,"+1,",3)={"CANCELLATION_DATE"} set:{CANCELLATION_REMARKS}'="" FDA(664,"+1,",3.1)={"CANCELLATION_REMARKS"} set:{REFERENCE}'="" FDA(664,"+1,",7)={"REFERENCE"} set:{PURCHASE_CARD_REFERENCE}'="" FDA(664,"+1,",7.5)={"PURCHASE_CARD_REFERENCE"} set:{CLOSE_OUT_DATE}'="" FDA(664,"+1,",8)={"CLOSE_OUT_DATE"} set:{CLOSEOUT_REMARKS}'="" FDA(664,"+1,",8.1)={"CLOSEOUT_REMARKS"} set:{LAST_AMEND_TOTAL}'="" FDA(664,"+1,",8.7)={"LAST_AMEND_TOTAL"} set:{LAST_AMEND_REPRINT_OK}'="" FDA(664,"+1,",8.8)={"LAST_AMEND_REPRINT_OK"} set:{EST__SHIPPING_CHARGE}'="" FDA(664,"+1,",11)={"EST__SHIPPING_CHARGE"} set:{ACT__SHIPPING_CHARGE}'="" FDA(664,"+1,",12)={"ACT__SHIPPING_CHARGE"} set:{PICKUPDELIVERY_REMARKS}'="" FDA(664,"+1,",14)={"PICKUPDELIVERY_REMARKS"} set:{FORM_TYPE}'="" FDA(664,"+1,",15)={"FORM_TYPE"} set:{PSC_CATEGORY}'="" FDA(664,"+1,",16)={"PSC_CATEGORY"} set:{PERCENT_DISCOUNT}'="" FDA(664,"+1,",17)={"PERCENT_DISCOUNT"} set:{DELIVER_TO}'="" FDA(664,"+1,",19)={"DELIVER_TO"} set:{DATE_REQUIRED}'="" FDA(664,"+1,",20)={"DATE_REQUIRED"} set:{DELIVERY_TIME}'="" FDA(664,"+1,",21)={"DELIVERY_TIME"} set:{DELIVER_TO_ATTENTION}'="" FDA(664,"+1,",21.1)={"DELIVER_TO_ATTENTION"} set:{PURCHASE_CARD_NUMBER}'="" FDA(664,"+1,",25)={"PURCHASE_CARD_NUMBER"} set:{BANK_AUTHORIZATION_NUMBER}'="" FDA(664,"+1,",26)={"BANK_AUTHORIZATION_NUMBER"} set:{EST_AMOUNT}'="" FDA(664,"+1,",27)={"EST_AMOUNT"} set:{CLOSEOUT_AMOUNT}'="" FDA(664,"+1,",28)={"CLOSEOUT_AMOUNT"} set:{NEW_PURCHASE_CARD_NUMBER}'="" FDA(664,"+1,",29)={"NEW_PURCHASE_CARD_NUMBER"} set:{AUDIT_DATE}'="" FDA(664,"+1,",31)={"AUDIT_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(664)") set %SkipFiling=1 if $d(%FMERR(664,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATE_01*C} FDA(664,IENS,.01)={DATE_01} set:{OBLIGATION_NUMBER*C} FDA(664,IENS,.5)={OBLIGATION_NUMBER} set:{CANCELLATION_DATE*C} FDA(664,IENS,3)={CANCELLATION_DATE} set:{CANCELLATION_REMARKS*C} FDA(664,IENS,3.1)={CANCELLATION_REMARKS} set:{REFERENCE*C} FDA(664,IENS,7)={REFERENCE} set:{PURCHASE_CARD_REFERENCE*C} FDA(664,IENS,7.5)={PURCHASE_CARD_REFERENCE} set:{CLOSE_OUT_DATE*C} FDA(664,IENS,8)={CLOSE_OUT_DATE} set:{CLOSEOUT_REMARKS*C} FDA(664,IENS,8.1)={CLOSEOUT_REMARKS} set:{LAST_AMEND_TOTAL*C} FDA(664,IENS,8.7)={LAST_AMEND_TOTAL} set:{LAST_AMEND_REPRINT_OK*C} FDA(664,IENS,8.8)={LAST_AMEND_REPRINT_OK} set:{EST__SHIPPING_CHARGE*C} FDA(664,IENS,11)={EST__SHIPPING_CHARGE} set:{ACT__SHIPPING_CHARGE*C} FDA(664,IENS,12)={ACT__SHIPPING_CHARGE} set:{PICKUPDELIVERY_REMARKS*C} FDA(664,IENS,14)={PICKUPDELIVERY_REMARKS} set:{FORM_TYPE*C} FDA(664,IENS,15)={FORM_TYPE} set:{PSC_CATEGORY*C} FDA(664,IENS,16)={PSC_CATEGORY} set:{PERCENT_DISCOUNT*C} FDA(664,IENS,17)={PERCENT_DISCOUNT} set:{DELIVER_TO*C} FDA(664,IENS,19)={DELIVER_TO} set:{DATE_REQUIRED*C} FDA(664,IENS,20)={DATE_REQUIRED} set:{DELIVERY_TIME*C} FDA(664,IENS,21)={DELIVERY_TIME} set:{DELIVER_TO_ATTENTION*C} FDA(664,IENS,21.1)={DELIVER_TO_ATTENTION} set:{PURCHASE_CARD_NUMBER*C} FDA(664,IENS,25)={PURCHASE_CARD_NUMBER} set:{BANK_AUTHORIZATION_NUMBER*C} FDA(664,IENS,26)={BANK_AUTHORIZATION_NUMBER} set:{EST_AMOUNT*C} FDA(664,IENS,27)={EST_AMOUNT} set:{CLOSEOUT_AMOUNT*C} FDA(664,IENS,28)={CLOSEOUT_AMOUNT} set:{NEW_PURCHASE_CARD_NUMBER*C} FDA(664,IENS,29)={NEW_PURCHASE_CARD_NUMBER} set:{AUDIT_DATE*C} FDA(664,IENS,31)={AUDIT_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(664)") set %SkipFiling=1 if $d(%FMERR(664,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICSBBA6S index ^RMPR nonnull 664 "AC" {OBLIGATION_NUMBER} {IEN} 0]]> index ^RMPR nonnull 664 "B" {DATE_01} {IEN} 0]]> index ^RMPR nonnull 664 "E" {REFERENCE} {IEN} 0]]> index ^RMPR nonnull 664 "F" {BANK_AUTHORIZATION_NUMBER} {IEN} 0]]> index ^RMPR nonnull 664 "G" {PURCHASE_CARD_REFERENCE} {IEN} 0]]> data ^RMPR 664 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 11 "^" 4 9 "^" 4 2 "^" 0 5 "^" 2 1 "^" 4 4 "^" 2 3 "^" 0 8 "^" 0 1 "^" 3 2 "^" 3 3 "^" 3 1 "^" 3 4 "^" 4 3 "^" 0 10 "^" 2 4 "^" 2 10 "^" 2 9 "^" 4 7 "^" 0 3 "^" 2 6 "^" 0 13 "^" 2 5 "^" 4 1 "^" 4 5 "^" 0 7 Generated class for FileMan File Number: '665' File Name: 'PROSTHETICS PATIENT' Class generated by %fm2class version 2.56 This file holds vital 10-2319 patient information. Included is PSC, Auto Adaptive Equipment, Clothing Allowance, Hearing Aid, Returned Status and other critical patient data. persistent _PUBLIC 0 RowId PROSTHETICS_PATIENT_665 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.152497552 67178,44714.202061111 right PROSTHETICS PATIENT 665 2.56 12/04/2024 12:25:14 1 1 IEN 1 PROSTHETICS_SITE_PARAMETERS_669_9]]> HOMEOXYGENCONTRACTLOCATION VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 FKey_HOME_OXYGEN_CONTRACT_LOCATION NEW_PERSON_200]]> HOMEOXYGENINACTIVATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_HOME_OXYGEN_INACTIVATED_BY PROS_LETTER_665_2]]> HOMEOXYGENLETTERTOBESENT VALIP.prosthetic.fm2cw.PROSLETTER6652 FKey_HOME_OXYGEN_LETTER_TO_BE_SENT PATIENT_2]]> NAME VALIP.prosthetic.fm2cw.PATIENT2 FKey_NAME INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION FileMan Field Label: 'CRITICAL COMMENTS' FileMan Field Number: '30' Stores patient notes/critical comments for prosthetics. %Library.String 24 CRITICAL_COMMENTS FileMan Field Label: 'EYE COLOR' FileMan Field Number: '22' This field stores the eye color of the patient. %Library.EnumString 22 EYE_COLOR FileMan Field Label: 'HAIR COLOR' FileMan Field Number: '23' This field stores the hair color of the patient. %Library.EnumString 23 HAIR_COLOR FileMan Field Label: 'HEIGHT (INCHES)' FileMan Field Number: '20' This field stores the height (in inches) of the patient. %Library.Numeric 20 HEIGHT_INCHES FileMan Field Label: 'HOME OXYGEN ACTIVATION DATE' FileMan Field Number: '19.2' This is the date when the patient was activated as a home oxygen patient. The first prescription date will be the same as this date. %Library.FilemanDate 16 HOME_OXYGEN_ACTIVATION_DATE FileMan Field Label: 'HOME OXYGEN CONTRACT LOCATION' FileMan Field Number: '19.12' The Home Oxygen program is administered via a contract to a vendor. Each patient receives services from only one vendor. That vendor usually has a contract with a medical center (site) to provide those services. This is the site that administers that contract. VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 8 HOME_OXYGEN_CONTRACT_LOCATION SITE NAME The site name can be either uppercase, or a combination of upper and lower. This is the name of your Medical Center, and should be entered the way you would like to have it print on your forms. For example: Carl T. Hayden VAMC.]]> %Library.String 1 SITE_NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_PATIENT_665 where %ID=:id) set {HOME_OXYGEN_CONTRACT_LOCATION_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOME_OXYGEN_CONTRACT_LOCATION_SITE_NAME 1 FileMan Field Label: 'HOME OXYGEN ELIGIBILITY' FileMan Field Number: '19.1' Home Oxygen Eligibility Enter the Home Oxygen eligibility code. %Library.EnumString 6 HOME_OXYGEN_ELIGIBILITY FileMan Field Label: 'HOME OXYGEN INACTIVATED BY' FileMan Field Number: '19.7' User who inactivated home oxygen patient. VALIP.prosthetic.fm2cw.NEWPERSON200 19 HOME_OXYGEN_INACTIVATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_PATIENT_665 where %ID=:id) set {HOME_OXYGEN_INACTIVATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOME_OXYGEN_INACTIVATED_BY_NAME 1 FileMan Field Label: 'HOME OXYGEN INACTIVATION DATE' FileMan Field Number: '19.5' Enter the date that the home oxygen treatment was discontinued. Do not enter this field until the actual date of discontinuance. %Library.FilemanDate 17 HOME_OXYGEN_INACTIVATION_DATE FileMan Field Label: 'HOME OXYGEN INACTIVAT. REASON' FileMan Field Number: '19.6' Enter a code (P, R, M, D, I, or E) for the reason for discontinue of home oxygen therapy. %Library.EnumString 18 HOME_OXYGEN_INACTIVAT__REASON FileMan Field Label: 'HOME OXYGEN LETTER TO BE SENT' FileMan Field Number: '19.13' Indicates that a letter needs to be sent for this patient. VALIP.prosthetic.fm2cw.PROSLETTER6652 9 HOME_OXYGEN_LETTER_TO_BE_SENT NAME This is the name of the skeleton letter.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_PATIENT_665 where %ID=:id) set {HOME_OXYGEN_LETTER_TO_BE_SENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOME_OXYGEN_LETTER_TO_BE_SENT_NAME 1 FileMan Field Label: 'HO LETTER 1 CODE' FileMan Field Number: '19.15' The code signifies if Home Oxygen letter 1 was printed or deleted. %Library.EnumString 11 HO_LETTER_1_CODE FileMan Field Label: 'HO LETTER 1 DATE' FileMan Field Number: '19.14' This is the date/time when Home Oxygen letter 1 was printed or deleted. %Library.FilemanTimeStamp 10 HO_LETTER_1_DATE FileMan Field Label: 'HO LETTER 2 CODE' FileMan Field Number: '19.17' The code which signifies Home Oxygen Letter 2 was printed or deleted. %Library.EnumString 13 HO_LETTER_2_CODE FileMan Field Label: 'HO LETTER 2 DATE' FileMan Field Number: '19.16' This is the date/time when Home Oxygen Letter 2 was printed or deleted. %Library.FilemanTimeStamp 12 HO_LETTER_2_DATE FileMan Field Label: 'HO LETTER 3 CODE' FileMan Field Number: '19.19' The code signifies that signifies a HOme Oxygen Letter 3 was printed or deleted. %Library.EnumString 15 HO_LETTER_3_CODE FileMan Field Label: 'HO LETTER 3 DATE' FileMan Field Number: '19.18' This is the date/time when Home Oxygen Letter 3 was printed or deleted. %Library.FilemanTimeStamp 14 HO_LETTER_3_DATE Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(665,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the patient, same as the PATIENT file in MAS. VALIP.prosthetic.fm2cw.PATIENT2 1 3 NAME NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_PATIENT_665 where %ID=:id) set {NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_NAME 1 FileMan Field Label: 'OTHER DATA' FileMan Field Number: '14' This is a word-processing field that records other patient data. %Library.String 5 OTHER_DATA FileMan Field Label: 'SPECIAL NSC/OP CATEGORY' FileMan Field Number: '19.11' Entry is made only for NSC/OP eligible patients. %Library.EnumString 7 SPECIAL_NSCOP_CATEGORY FileMan Field Label: 'STATION' FileMan Field Number: '2' This is the Station that maintains the Patient's 2319. VALIP.prosthetic.fm2cw.INSTITUTION4 1 4 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_PATIENT_665 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 Relationship for Sub-File/Multiple to file name *AUTOMOBILE ACQUISITION child VALIP.prosthetic.fm2cw.SUBAUTOMOBILEACQUISITION665013 children PROSTHETICSPATIENT665 1 SUB_AUTOMOBILE_ACQUISITION_665_013 Relationship for Sub-File/Multiple to file name DATE OF CLOTHING ALLOWANCE child VALIP.prosthetic.fm2cw.SUBDATEOFCLOTHINGALLOWANCE66502 children PROSTHETICSPATIENT665 1 SUB_DATE_OF_CLOTHING_ALLOWANCE_665_02 Relationship for Sub-File/Multiple to file name HOME OXYGEN ITEM child VALIP.prosthetic.fm2cw.SUBHOMEOXYGENITEM665194 children PROSTHETICSPATIENT665 1 SUB_HOME_OXYGEN_ITEM_665_194 Relationship for Sub-File/Multiple to file name HOME OXYGEN PRESCRIPTION child VALIP.prosthetic.fm2cw.SUBHOMEOXYGENPRESCRIPTION665193 children PROSTHETICSPATIENT665 1 SUB_HOME_OXYGEN_PRESCRIPTION_665_193 Relationship for Sub-File/Multiple to file name PROSTHETIC DISABILITY CODE child VALIP.prosthetic.fm2cw.SUBPROSTHETICDISABILITYCODE66501 children PROSTHETICSPATIENT665 1 SUB_PROSTHETIC_DISABILITY_CODE_665_01 Relationship for Sub-File/Multiple to file name PSC ISSUE CARD child VALIP.prosthetic.fm2cw.SUBPSCISSUECARD665012 children PROSTHETICSPATIENT665 1 SUB_PSC_ISSUE_CARD_665_012 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 25 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WEIGHT (POUNDS)' FileMan Field Number: '21' This field stores the weight of the patient in pounds. %Library.Numeric 21 WEIGHT_POUNDS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(665," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(665,"+1,",.01)={"NAME"} set:{STATION}'="" FDA(665,"+1,",2)={"STATION"} set:{HOME_OXYGEN_ELIGIBILITY}'="" FDA(665,"+1,",19.1)={"HOME_OXYGEN_ELIGIBILITY"} set:{SPECIAL_NSCOP_CATEGORY}'="" FDA(665,"+1,",19.11)={"SPECIAL_NSCOP_CATEGORY"} set:{HOME_OXYGEN_CONTRACT_LOCATION}'="" FDA(665,"+1,",19.12)={"HOME_OXYGEN_CONTRACT_LOCATION"} set:{HOME_OXYGEN_LETTER_TO_BE_SENT}'="" FDA(665,"+1,",19.13)={"HOME_OXYGEN_LETTER_TO_BE_SENT"} set:{HO_LETTER_1_DATE}'="" FDA(665,"+1,",19.14)={"HO_LETTER_1_DATE"} set:{HO_LETTER_1_CODE}'="" FDA(665,"+1,",19.15)={"HO_LETTER_1_CODE"} set:{HO_LETTER_2_DATE}'="" FDA(665,"+1,",19.16)={"HO_LETTER_2_DATE"} set:{HO_LETTER_2_CODE}'="" FDA(665,"+1,",19.17)={"HO_LETTER_2_CODE"} set:{HO_LETTER_3_DATE}'="" FDA(665,"+1,",19.18)={"HO_LETTER_3_DATE"} set:{HO_LETTER_3_CODE}'="" FDA(665,"+1,",19.19)={"HO_LETTER_3_CODE"} set:{HOME_OXYGEN_ACTIVATION_DATE}'="" FDA(665,"+1,",19.2)={"HOME_OXYGEN_ACTIVATION_DATE"} set:{HOME_OXYGEN_INACTIVATION_DATE}'="" FDA(665,"+1,",19.5)={"HOME_OXYGEN_INACTIVATION_DATE"} set:{HOME_OXYGEN_INACTIVAT__REASON}'="" FDA(665,"+1,",19.6)={"HOME_OXYGEN_INACTIVAT__REASON"} set:{HOME_OXYGEN_INACTIVATED_BY}'="" FDA(665,"+1,",19.7)={"HOME_OXYGEN_INACTIVATED_BY"} set:{HEIGHT_INCHES}'="" FDA(665,"+1,",20)={"HEIGHT_INCHES"} set:{WEIGHT_POUNDS}'="" FDA(665,"+1,",21)={"WEIGHT_POUNDS"} set:{EYE_COLOR}'="" FDA(665,"+1,",22)={"EYE_COLOR"} set:{HAIR_COLOR}'="" FDA(665,"+1,",23)={"HAIR_COLOR"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(665)") set %SkipFiling=1 if $d(%FMERR(665,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OTHER_DATA}'="" { set D0={RowId} for i=1:1:$l({OTHER_DATA},$c(13,10)) { set wp(i)=$p({OTHER_DATA},$c(13,10),i) } do WP^DIE(665,{RowId},14,,"wp","%FMERR(665)") if $d(%FMERR(665,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CRITICAL_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({CRITICAL_COMMENTS},$c(13,10)) { set wp(i)=$p({CRITICAL_COMMENTS},$c(13,10),i) } do WP^DIE(665,{RowId},30,,"wp","%FMERR(665)") if $d(%FMERR(665,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(665,IENS,.01)={NAME} set:{STATION*C} FDA(665,IENS,2)={STATION} set:{HOME_OXYGEN_ELIGIBILITY*C} FDA(665,IENS,19.1)={HOME_OXYGEN_ELIGIBILITY} set:{SPECIAL_NSCOP_CATEGORY*C} FDA(665,IENS,19.11)={SPECIAL_NSCOP_CATEGORY} set:{HOME_OXYGEN_CONTRACT_LOCATION*C} FDA(665,IENS,19.12)={HOME_OXYGEN_CONTRACT_LOCATION} set:{HOME_OXYGEN_LETTER_TO_BE_SENT*C} FDA(665,IENS,19.13)={HOME_OXYGEN_LETTER_TO_BE_SENT} set:{HO_LETTER_1_DATE*C} FDA(665,IENS,19.14)={HO_LETTER_1_DATE} set:{HO_LETTER_1_CODE*C} FDA(665,IENS,19.15)={HO_LETTER_1_CODE} set:{HO_LETTER_2_DATE*C} FDA(665,IENS,19.16)={HO_LETTER_2_DATE} set:{HO_LETTER_2_CODE*C} FDA(665,IENS,19.17)={HO_LETTER_2_CODE} set:{HO_LETTER_3_DATE*C} FDA(665,IENS,19.18)={HO_LETTER_3_DATE} set:{HO_LETTER_3_CODE*C} FDA(665,IENS,19.19)={HO_LETTER_3_CODE} set:{HOME_OXYGEN_ACTIVATION_DATE*C} FDA(665,IENS,19.2)={HOME_OXYGEN_ACTIVATION_DATE} set:{HOME_OXYGEN_INACTIVATION_DATE*C} FDA(665,IENS,19.5)={HOME_OXYGEN_INACTIVATION_DATE} set:{HOME_OXYGEN_INACTIVAT__REASON*C} FDA(665,IENS,19.6)={HOME_OXYGEN_INACTIVAT__REASON} set:{HOME_OXYGEN_INACTIVATED_BY*C} FDA(665,IENS,19.7)={HOME_OXYGEN_INACTIVATED_BY} set:{HEIGHT_INCHES*C} FDA(665,IENS,20)={HEIGHT_INCHES} set:{WEIGHT_POUNDS*C} FDA(665,IENS,21)={WEIGHT_POUNDS} set:{EYE_COLOR*C} FDA(665,IENS,22)={EYE_COLOR} set:{HAIR_COLOR*C} FDA(665,IENS,23)={HAIR_COLOR} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665)") set %SkipFiling=1 if $d(%FMERR(665,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OTHER_DATA*C} { set D0={RowId} kill wp if {OTHER_DATA}'="" { set wproot="wp" for i=1:1:$l({OTHER_DATA},$c(13,10)) { set wp(i)=$p({OTHER_DATA},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(665,{RowId},14,,wproot,"%FMERR(665)") if $d(%FMERR(665,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CRITICAL_COMMENTS*C} { set D0={RowId} kill wp if {CRITICAL_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({CRITICAL_COMMENTS},$c(13,10)) { set wp(i)=$p({CRITICAL_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(665,{RowId},30,,wproot,"%FMERR(665)") if $d(%FMERR(665,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICS5998S index ^RMPR nonnull 665 "AHO" {HOME_OXYGEN_ACTIVATION_DATE} {IEN} 0]]> index ^RMPR nonnull 665 "ALTR" {HOME_OXYGEN_LETTER_TO_BE_SENT} {IEN} 0]]> index ^RMPR nonnull 665 "B" {NAME} {IEN} 0]]> data ^RMPR 665 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 new data,i,node set {CRITICAL_COMMENTS}="" merge data=^RMPR(665,{S2},8) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CRITICAL_COMMENTS}={CRITICAL_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 10 3 "^" 10 4 "^" 10 1 "^" "RMPOA" 2 "^" "RMPOA" 7 "^" "RMPOA" 1 "^" "RMPOA" 6 "^" "RMPOA" 3 "^" "RMPOA" 4 "^" "RMPOA" 8 "^" "RMPOA" 10 "^" "RMPOA" 9 "^" "RMPOA" 12 "^" "RMPOA" 11 "^" "RMPOA" 14 "^" "RMPOA" 13 "^" 0 1 4 new data,i,node set {OTHER_DATA}="" merge data=^RMPR(665,{S2},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_DATA}={OTHER_DATA}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "RMPOA" 5 "^" 0 2 "^" 10 2 Generated class for FileMan File Number: '669.9' File Name: 'PROSTHETICS SITE PARAMETERS' Class generated by %fm2class version 2.56 This file holds the list of parameters which can change the operation of the prosthetics package at a site. It should be noted that these parameters are generally copied into a local variable when entering the prosthetics program. This means that, in general, a change to this file will not take effect until the users currently using the package leave the prosthetics system and come back into it again. This file may have one or more entries. During the installation process, some of the parameters for the first site may be set for you. Never edit or delete the AMIS GROUPER field. Never delete an entry in this file, only edit it. persistent _PUBLIC 0 RowId PROSTHETICS_SITE_PARAMETERS_669_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.170599292 67178,44714.246438165 right PROSTHETICS SITE PARAMETERS 669.9 2.56 12/04/2024 12:25:14 1 1 IEN 1 PAT_NUMBER_442_6]]> COMMONNUMBERINGSERIES VALIP.prosthetic.fm2cw.PATNUMBER4426 FKey_COMMON_NUMBERING_SERIES DEVICE_3_5]]> INVENTORYDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_INVENTORY_DEVICE DEVICE_3_5]]> ORTHOTICLABDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_ORTHOTIC_LAB_DEVICE HOSPITAL_LOCATION_44]]> PCEHOSPITALLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_PCE_HOSPITAL_LOCATION DEVICE_3_5]]> PURCHASINGDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_PURCHASING_DEVICE DEVICE_3_5]]> RESTORATIONCLINICDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_RESTORATION_CLINIC_DEVICE DEVICE_3_5]]> SHOELASTCLINICDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_SHOE_LAST_CLINIC_DEVICE STATE_5]]> STATE VALIP.prosthetic.fm2cw.STATE5 FKey_STATE INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION DEVICE_3_5]]> WHEELCHAIRREPAIRSHOPDEVICE VALIP.prosthetic.fm2cw.DEVICE35 FKey_WHEELCHAIR_REPAIR_SHOP_DEVICE FileMan Field Label: 'ART LIMBS PSC AMOUNT' FileMan Field Number: '15' When a 10-2520 is issued, certain dollar limits are set for artifical limbs. %Library.Numeric 21 ART_LIMBS_PSC_AMOUNT FileMan Field Label: 'AUTOMATED INVENTORY (GIP)' FileMan Field Number: '2' When you first install Prosthetics, this should be set to no. When you are ready to start using the inventory package, you should change this to yes. %Library.EnumString 6 AUTOMATED_INVENTORY_GIP FileMan Field Label: 'BLIND AIDS PSC AMOUNT' FileMan Field Number: '18' When a 10-2520 is issued, certain dollar limits are set for blind aids. %Library.Numeric 24 BLIND_AIDS_PSC_AMOUNT FileMan Field Label: 'BRACES PSC AMOUNT' FileMan Field Number: '17' When a 10-2520 is issued, certain dollar limits are set for braces. %Library.Numeric 23 BRACES_PSC_AMOUNT FileMan Field Label: 'CANCELLATION PURCHASING PURGE' FileMan Field Number: '21' NUMBER OF DAYS TO RETAIN CANCELLED TRANSACTIONS This is the number of days to keep transactions that have been cancelled. It is recommended that this be set to 120 days. %Library.Numeric 27 CANCELLATION_PURCHASING_PURGE FileMan Field Label: 'CHIEF SIG BLOCK' FileMan Field Number: '8' This is the name of the Fund Control Point Official that signs. %Library.String 13 CHIEF_SIG_BLOCK FileMan Field Label: 'CITY' FileMan Field Number: '5' This is the city to go with the STREET ADD1 field. This is the city of your Prosthetics Service. %Library.String 9 CITY FileMan Field Label: 'CLOSE-OUT PURCHASING PURGE' FileMan Field Number: '20' NUMBER OF DAYS TO RETAIN CLOSED PURCHASING TRANSACTIONS This is the number of days to keep old transactions in the file. It is recommended that this be set to 120 days. days. %Library.Numeric 26 CLOSEOUT_PURCHASING_PURGE FileMan Field Label: 'COMMON NUMBERING SERIES' FileMan Field Number: '10' This is the Numbering Series given by Fiscal so each PO # will be unique. VALIP.prosthetic.fm2cw.PATNUMBER4426 16 COMMON_NUMBERING_SERIES COMMON NUMBERING SERIES This is the station number and the common numbering series.]]> %Library.String 1 COMMON_NUMBERING_SERIES into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {COMMON_NUMBERING_SERIES_COMMON_NUMBERING_SERIES}=$select(SQLCODE=0:val,1:"")]]> 1 COMMON_NUMBERING_SERIES_COMMON_NUMBERING_SERIES 1 FileMan Field Label: 'DVN FILE DIRECTORY' FileMan Field Number: '13' This is the System File Directory name that is given by the local IRM. The instructions for the file directory set up are in the Installation Guide for RMPR*3.0*125 %Library.String 19 DVN_FILE_DIRECTORY FileMan Field Label: 'DVN IP ADDRESS' FileMan Field Number: '12' This is the IP address for the Delivery Verification Notice DVN for the Patient Notification Cards. %Library.String 18 DVN_IP_ADDRESS FileMan Field Label: 'DVN SFTP USERNAME' FileMan Field Number: '14' This is the sftp User name that will be given to the sites and entered into the first site in the list when using the SS Enter/Edit Station Site Parameters option. %Library.String 20 DVN_SFTP_USERNAME FileMan Field Label: 'GROUPER COUNTER' FileMan Field Number: '11' GROUPER COUNTER is used in the calculation of AMIS reports both in Purchasing and Issue from Stock Modules. This field should NEVER BE CHANGED! %Library.Numeric 17 GROUPER_COUNTER FileMan Field Label: 'HQ MAIL ADDRESS' FileMan Field Number: '38' This is an exchange address for HQ personnel who will receive the PIP reports. %Library.String 38 HQ_MAIL_ADDRESS FileMan Field Label: 'HQ REPORT DATE' FileMan Field Number: '39' Date when PIP report was ran for HQ. %Library.FilemanDate 39 HQ_REPORT_DATE Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(669.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IFCAP SITE' FileMan Field Number: '1.1' This field should contain the current IFCAP site location. %Library.String 5 IFCAP_SITE FileMan Field Label: 'INVENTORY DEVICE' FileMan Field Number: '35' This is a device that will print a Notification letter for Items below the re-order level. VALIP.prosthetic.fm2cw.DEVICE35 36 INVENTORY_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {INVENTORY_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INVENTORY_DEVICE_NAME 1 FileMan Field Label: 'LAB' FileMan Field Number: '31' This field turns on the lab module. The Labs are on if ths field is set to 'yes'. %Library.EnumString 32 LAB FileMan Field Label: 'MANAGER COMMENT' FileMan Field Number: '7.1' This comment will display on GUI Purchasing Page. %Library.String 12 MANAGER_COMMENT FileMan Field Label: 'NOTIFICATION DATE' FileMan Field Number: '37' This is the date that a taskman job runs for the Notification letter. %Library.FilemanDate 37 NOTIFICATION_DATE FileMan Field Label: 'ORTHOTICS LAB ACTIVATED?' FileMan Field Number: '32' This field will contain a 1 if the Orthotics Lab has been activated at this station. %Library.EnumString 33 ORTHOTICS_LAB_ACTIVATED FileMan Field Label: 'ORTHOTIC LAB DEVICE' FileMan Field Number: '27' This is an optional entry. If a device name is entered, it will be the device the 2529-3s will print on for the Orthostics Lab. If the field is left null the user will be prompted to enter a device. VALIP.prosthetic.fm2cw.DEVICE35 28 ORTHOTIC_LAB_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {ORTHOTIC_LAB_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ORTHOTIC_LAB_DEVICE_NAME 1 FileMan Field Label: 'PCE END DATE' FileMan Field Number: '51' PCE END DATE is the date and time the PCE background job finish to completion. %Library.FilemanTimeStamp 42 PCE_END_DATE FileMan Field Label: 'PCE HOSPITAL LOCATION' FileMan Field Number: '52' This is a pointer to Hopital Location file (#44), a clinic, where prosthetics outpatient encounter is scheduled. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 43 PCE_HOSPITAL_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {PCE_HOSPITAL_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PCE_HOSPITAL_LOCATION_NAME 1 FileMan Field Label: 'PCE START DATE' FileMan Field Number: '50' PCE START DATE is the starting date and time the background job runs. %Library.FilemanTimeStamp 41 PCE_START_DATE FileMan Field Label: 'PHONE NUMBER' FileMan Field Number: '3' This field stores the phone number of Prosthetics. This phone number will print on all 2421 forms. 24 spaces are allotted for phone number which should allow for entry of both area code and a four digit extension, if desired. %Library.String 7 PHONE_NUMBER FileMan Field Label: 'PURCHASING DEVICE' FileMan Field Number: '9' This is the device all VAF 10-2421s and 10-55's will be printed on. VALIP.prosthetic.fm2cw.DEVICE35 15 PURCHASING_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {PURCHASING_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PURCHASING_DEVICE_NAME 1 FileMan Field Label: 'RESTORATION CLINIC DEVICE' FileMan Field Number: '28' Entry of a DEVICE is optional. If a device name is entered, the device will print 2529-3s for the Restoration Clinic. If the field is null, the users will be prompted to enter a device. VALIP.prosthetic.fm2cw.DEVICE35 29 RESTORATION_CLINIC_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {RESTORATION_CLINIC_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESTORATION_CLINIC_DEVICE_NAME 1 FileMan Field Label: 'RESTORATION LAB ACTIVATED?' FileMan Field Number: '33' A '1' in this field indicates that Restoration Clinic has been activated at this station. %Library.EnumString 34 RESTORATION_LAB_ACTIVATED FileMan Field Label: 'ROUTING NUMBER' FileMan Field Number: '34' This field is the mail routing symbol, which is printed on purchasing forms. The mail routing symbol '121' is being replaced by the value entered in this field. %Library.String 35 ROUTING_NUMBER FileMan Field Label: 'SHOE LAST CLINIC DEVICE' FileMan Field Number: '29' This is th e device that will print the 2529-3 for the Shoe Last Clinic. If the field is null, the user will be prompted to enter the device. VALIP.prosthetic.fm2cw.DEVICE35 30 SHOE_LAST_CLINIC_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {SHOE_LAST_CLINIC_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SHOE_LAST_CLINIC_DEVICE_NAME 1 %Library.String 14 SIGNATURE_BLOCK_TITLE FileMan Field Label: 'SITE NAME' FileMan Field Number: '.01' The site name can be either uppercase, or a combination of upper and lower. This is the name of your Medical Center, and should be entered the way you would like to have it print on your forms. For example: Carl T. Hayden VAMC. %Library.String 1 3 SITE_NAME FileMan Field Label: 'STATE' FileMan Field Number: '6' Pointer to the State file #5. VALIP.prosthetic.fm2cw.STATE5 10 STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_NAME 1 FileMan Field Label: 'STATION' FileMan Field Number: '1' This is your station number. VALIP.prosthetic.fm2cw.INSTITUTION4 4 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 FileMan Field Label: 'STREET ADD1' FileMan Field Number: '4' This should be the street address of your Prosthetics Service, or the address you would like printed on your forms. %Library.String 8 STREET_ADD1 Relationship for Sub-File/Multiple to file name HOME OXYGEN FUND CONTROL POINT child VALIP.prosthetic.fm2cw.SUBHOMEOXYGENFUNDCONTROLPOINT669961 children PROSTHETICSSITEPARAMETERS6699 1 SUB_HOME_OXYGEN_FUND_CONTROL_POINT_669_961 Relationship for Sub-File/Multiple to file name HOME OXYGEN LETTER child VALIP.prosthetic.fm2cw.SUBHOMEOXYGENLETTER669965 children PROSTHETICSSITEPARAMETERS6699 1 SUB_HOME_OXYGEN_LETTER_669_965 Relationship for Sub-File/Multiple to file name HOME OXYGEN PRESCRIPTION child VALIP.prosthetic.fm2cw.SUBHOMEOXYGENPRESCRIPTION6699001 children PROSTHETICSSITEPARAMETERS6699 1 SUB_HOME_OXYGEN_PRESCRIPTION_669_9001 Relationship for Sub-File/Multiple to file name HOME OXYGEN VENDOR child VALIP.prosthetic.fm2cw.SUBHOMEOXYGENVENDOR669962 children PROSTHETICSSITEPARAMETERS6699 1 SUB_HOME_OXYGEN_VENDOR_669_962 Relationship for Sub-File/Multiple to file name HO LETTER 1 LIST child VALIP.prosthetic.fm2cw.SUBHOLETTER1LIST6699002 children PROSTHETICSSITEPARAMETERS6699 1 SUB_HO_LETTER_1_LIST_669_9002 Relationship for Sub-File/Multiple to file name HO LETTER 2 LIST child VALIP.prosthetic.fm2cw.SUBHOLETTER2LIST669972 children PROSTHETICSSITEPARAMETERS6699 1 SUB_HO_LETTER_2_LIST_669_972 Relationship for Sub-File/Multiple to file name HO LETTER 3 LIST child VALIP.prosthetic.fm2cw.SUBHOLETTER3LIST669974 children PROSTHETICSSITEPARAMETERS6699 1 SUB_HO_LETTER_3_LIST_669_974 Relationship for Sub-File/Multiple to file name PROSTHETICS CLINIC child VALIP.prosthetic.fm2cw.SUBPROSTHETICSCLINIC669922 children PROSTHETICSSITEPARAMETERS6699 1 SUB_PROSTHETICS_CLINIC_669_922 Relationship for Sub-File/Multiple to file name PURCHASING AGENT child VALIP.prosthetic.fm2cw.SUBPURCHASINGAGENT6699003 children PROSTHETICSSITEPARAMETERS6699 1 SUB_PURCHASING_AGENT_669_9003 FileMan Field Label: 'SUSPENSE PURGE' FileMan Field Number: '19' NUMBER OF DAYS TO RETAIN CLOSED SUSPENSE This is the number of days for the suspense records to remain in the file once they have been completed. %Library.Numeric 25 SUSPENSE_PURGE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 44 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VISN' FileMan Field Number: '40' This is the VISN where this station belong to. %Library.Numeric 40 VISN FileMan Field Label: 'WHEELCHAIR PSC AMOUNT' FileMan Field Number: '16' When a 10-2520 is issued, certain dollar limits are set for wheelchairs. %Library.Numeric 22 WHEELCHAIR_PSC_AMOUNT FileMan Field Label: 'WHEELCHAIR REPAIR SHOP DEVICE' FileMan Field Number: '30' This is the device that will print the 2529-3s for the Wheelchair Repair Shop. If this field is null, the user will be asked to enter the device. VALIP.prosthetic.fm2cw.DEVICE35 31 WHEELCHAIR_REPAIR_SHOP_DEVICE NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETICS_SITE_PARAMETERS_669_9 where %ID=:id) set {WHEELCHAIR_REPAIR_SHOP_DEVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WHEELCHAIR_REPAIR_SHOP_DEVICE_NAME 1 FileMan Field Label: 'ZIP CODE' FileMan Field Number: '7' This is the zip code to go with the street address and city. %Library.String 11 ZIP_CODE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(669.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SITE_NAME}'="" FDA(669.9,"+1,",.01)={"SITE_NAME"} set:{STATION}'="" FDA(669.9,"+1,",1)={"STATION"} set:{IFCAP_SITE}'="" FDA(669.9,"+1,",1.1)={"IFCAP_SITE"} set:{AUTOMATED_INVENTORY_GIP}'="" FDA(669.9,"+1,",2)={"AUTOMATED_INVENTORY_GIP"} set:{PHONE_NUMBER}'="" FDA(669.9,"+1,",3)={"PHONE_NUMBER"} set:{STREET_ADD1}'="" FDA(669.9,"+1,",4)={"STREET_ADD1"} set:{CITY}'="" FDA(669.9,"+1,",5)={"CITY"} set:{STATE}'="" FDA(669.9,"+1,",6)={"STATE"} set:{ZIP_CODE}'="" FDA(669.9,"+1,",7)={"ZIP_CODE"} set:{MANAGER_COMMENT}'="" FDA(669.9,"+1,",7.1)={"MANAGER_COMMENT"} set:{CHIEF_SIG_BLOCK}'="" FDA(669.9,"+1,",8)={"CHIEF_SIG_BLOCK"} set:{SIGNATURE_BLOCK_TITLE}'="" FDA(669.9,"+1,",8.5)={"SIGNATURE_BLOCK_TITLE"} set:{PURCHASING_DEVICE}'="" FDA(669.9,"+1,",9)={"PURCHASING_DEVICE"} set:{COMMON_NUMBERING_SERIES}'="" FDA(669.9,"+1,",10)={"COMMON_NUMBERING_SERIES"} set:{GROUPER_COUNTER}'="" FDA(669.9,"+1,",11)={"GROUPER_COUNTER"} set:{DVN_IP_ADDRESS}'="" FDA(669.9,"+1,",12)={"DVN_IP_ADDRESS"} set:{DVN_FILE_DIRECTORY}'="" FDA(669.9,"+1,",13)={"DVN_FILE_DIRECTORY"} set:{DVN_SFTP_USERNAME}'="" FDA(669.9,"+1,",14)={"DVN_SFTP_USERNAME"} set:{ART_LIMBS_PSC_AMOUNT}'="" FDA(669.9,"+1,",15)={"ART_LIMBS_PSC_AMOUNT"} set:{WHEELCHAIR_PSC_AMOUNT}'="" FDA(669.9,"+1,",16)={"WHEELCHAIR_PSC_AMOUNT"} set:{BRACES_PSC_AMOUNT}'="" FDA(669.9,"+1,",17)={"BRACES_PSC_AMOUNT"} set:{BLIND_AIDS_PSC_AMOUNT}'="" FDA(669.9,"+1,",18)={"BLIND_AIDS_PSC_AMOUNT"} set:{SUSPENSE_PURGE}'="" FDA(669.9,"+1,",19)={"SUSPENSE_PURGE"} set:{CLOSEOUT_PURCHASING_PURGE}'="" FDA(669.9,"+1,",20)={"CLOSEOUT_PURCHASING_PURGE"} set:{CANCELLATION_PURCHASING_PURGE}'="" FDA(669.9,"+1,",21)={"CANCELLATION_PURCHASING_PURGE"} set:{ORTHOTIC_LAB_DEVICE}'="" FDA(669.9,"+1,",27)={"ORTHOTIC_LAB_DEVICE"} set:{RESTORATION_CLINIC_DEVICE}'="" FDA(669.9,"+1,",28)={"RESTORATION_CLINIC_DEVICE"} set:{SHOE_LAST_CLINIC_DEVICE}'="" FDA(669.9,"+1,",29)={"SHOE_LAST_CLINIC_DEVICE"} set:{WHEELCHAIR_REPAIR_SHOP_DEVICE}'="" FDA(669.9,"+1,",30)={"WHEELCHAIR_REPAIR_SHOP_DEVICE"} set:{LAB}'="" FDA(669.9,"+1,",31)={"LAB"} set:{ORTHOTICS_LAB_ACTIVATED}'="" FDA(669.9,"+1,",32)={"ORTHOTICS_LAB_ACTIVATED"} set:{RESTORATION_LAB_ACTIVATED}'="" FDA(669.9,"+1,",33)={"RESTORATION_LAB_ACTIVATED"} set:{ROUTING_NUMBER}'="" FDA(669.9,"+1,",34)={"ROUTING_NUMBER"} set:{INVENTORY_DEVICE}'="" FDA(669.9,"+1,",35)={"INVENTORY_DEVICE"} set:{NOTIFICATION_DATE}'="" FDA(669.9,"+1,",37)={"NOTIFICATION_DATE"} set:{HQ_MAIL_ADDRESS}'="" FDA(669.9,"+1,",38)={"HQ_MAIL_ADDRESS"} set:{HQ_REPORT_DATE}'="" FDA(669.9,"+1,",39)={"HQ_REPORT_DATE"} set:{VISN}'="" FDA(669.9,"+1,",40)={"VISN"} set:{PCE_START_DATE}'="" FDA(669.9,"+1,",50)={"PCE_START_DATE"} set:{PCE_END_DATE}'="" FDA(669.9,"+1,",51)={"PCE_END_DATE"} set:{PCE_HOSPITAL_LOCATION}'="" FDA(669.9,"+1,",52)={"PCE_HOSPITAL_LOCATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(669.9)") set %SkipFiling=1 if $d(%FMERR(669.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(669.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SITE_NAME*C} FDA(669.9,IENS,.01)={SITE_NAME} set:{STATION*C} FDA(669.9,IENS,1)={STATION} set:{IFCAP_SITE*C} FDA(669.9,IENS,1.1)={IFCAP_SITE} set:{AUTOMATED_INVENTORY_GIP*C} FDA(669.9,IENS,2)={AUTOMATED_INVENTORY_GIP} set:{PHONE_NUMBER*C} FDA(669.9,IENS,3)={PHONE_NUMBER} set:{STREET_ADD1*C} FDA(669.9,IENS,4)={STREET_ADD1} set:{CITY*C} FDA(669.9,IENS,5)={CITY} set:{STATE*C} FDA(669.9,IENS,6)={STATE} set:{ZIP_CODE*C} FDA(669.9,IENS,7)={ZIP_CODE} set:{MANAGER_COMMENT*C} FDA(669.9,IENS,7.1)={MANAGER_COMMENT} set:{CHIEF_SIG_BLOCK*C} FDA(669.9,IENS,8)={CHIEF_SIG_BLOCK} set:{SIGNATURE_BLOCK_TITLE*C} FDA(669.9,IENS,8.5)={SIGNATURE_BLOCK_TITLE} set:{PURCHASING_DEVICE*C} FDA(669.9,IENS,9)={PURCHASING_DEVICE} set:{COMMON_NUMBERING_SERIES*C} FDA(669.9,IENS,10)={COMMON_NUMBERING_SERIES} set:{GROUPER_COUNTER*C} FDA(669.9,IENS,11)={GROUPER_COUNTER} set:{DVN_IP_ADDRESS*C} FDA(669.9,IENS,12)={DVN_IP_ADDRESS} set:{DVN_FILE_DIRECTORY*C} FDA(669.9,IENS,13)={DVN_FILE_DIRECTORY} set:{DVN_SFTP_USERNAME*C} FDA(669.9,IENS,14)={DVN_SFTP_USERNAME} set:{ART_LIMBS_PSC_AMOUNT*C} FDA(669.9,IENS,15)={ART_LIMBS_PSC_AMOUNT} set:{WHEELCHAIR_PSC_AMOUNT*C} FDA(669.9,IENS,16)={WHEELCHAIR_PSC_AMOUNT} set:{BRACES_PSC_AMOUNT*C} FDA(669.9,IENS,17)={BRACES_PSC_AMOUNT} set:{BLIND_AIDS_PSC_AMOUNT*C} FDA(669.9,IENS,18)={BLIND_AIDS_PSC_AMOUNT} set:{SUSPENSE_PURGE*C} FDA(669.9,IENS,19)={SUSPENSE_PURGE} set:{CLOSEOUT_PURCHASING_PURGE*C} FDA(669.9,IENS,20)={CLOSEOUT_PURCHASING_PURGE} set:{CANCELLATION_PURCHASING_PURGE*C} FDA(669.9,IENS,21)={CANCELLATION_PURCHASING_PURGE} set:{ORTHOTIC_LAB_DEVICE*C} FDA(669.9,IENS,27)={ORTHOTIC_LAB_DEVICE} set:{RESTORATION_CLINIC_DEVICE*C} FDA(669.9,IENS,28)={RESTORATION_CLINIC_DEVICE} set:{SHOE_LAST_CLINIC_DEVICE*C} FDA(669.9,IENS,29)={SHOE_LAST_CLINIC_DEVICE} set:{WHEELCHAIR_REPAIR_SHOP_DEVICE*C} FDA(669.9,IENS,30)={WHEELCHAIR_REPAIR_SHOP_DEVICE} set:{LAB*C} FDA(669.9,IENS,31)={LAB} set:{ORTHOTICS_LAB_ACTIVATED*C} FDA(669.9,IENS,32)={ORTHOTICS_LAB_ACTIVATED} set:{RESTORATION_LAB_ACTIVATED*C} FDA(669.9,IENS,33)={RESTORATION_LAB_ACTIVATED} set:{ROUTING_NUMBER*C} FDA(669.9,IENS,34)={ROUTING_NUMBER} set:{INVENTORY_DEVICE*C} FDA(669.9,IENS,35)={INVENTORY_DEVICE} set:{NOTIFICATION_DATE*C} FDA(669.9,IENS,37)={NOTIFICATION_DATE} set:{HQ_MAIL_ADDRESS*C} FDA(669.9,IENS,38)={HQ_MAIL_ADDRESS} set:{HQ_REPORT_DATE*C} FDA(669.9,IENS,39)={HQ_REPORT_DATE} set:{VISN*C} FDA(669.9,IENS,40)={VISN} set:{PCE_START_DATE*C} FDA(669.9,IENS,50)={PCE_START_DATE} set:{PCE_END_DATE*C} FDA(669.9,IENS,51)={PCE_END_DATE} set:{PCE_HOSPITAL_LOCATION*C} FDA(669.9,IENS,52)={PCE_HOSPITAL_LOCATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.9)") set %SkipFiling=1 if $d(%FMERR(669.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(669.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICS56B0S index {SITE_NAME}'="" 1 ^RMPR conditional 669.9 "B" $$TRUNCATE({SITE_NAME},30)) {IEN} 0]]> index ^RMPR nonnull 669.9 "C" {STATION} {IEN} 0]]> data ^RMPR 669.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 2 7 "^" 0 3 "^" 2 10 "^" 2 9 "^" 0 10 "^" 2 6 "^" 2 3 "^" 0 9 "^" 4 2 "^" 3 2 "^" 3 1 "^" 3 3 "^" 0 7 "^" "INV" 4 "^" "INV" 5 "^" 4 1 "^" "INV" 1 "^" 0 6 "^" 6 1 "^" "INV" 3 "^" 0 11 "^" "DEV" 2 "^" "PCE" 2 "^" "PCE" 3 "^" "PCE" 1 "^" 0 4 "^" 0 5 "^" "DEV" 3 "^" 0 12 "^" 0 13 "^" "DEV" 4 "^" 2 1 "^" 0 1 "^" 2 4 "^" 0 2 "^" 2 2 "^" 0 8 "^" "INV" 2 "^" 2 8 "^" "DEV" 5 "^" 2 5 Generated class for FileMan File Number: '661.5' File Name: 'PROSTHETIC STOCK LOCATION' Class generated by %fm2class version 2.56 This file holds the name, address and station number of each stock location. There will be an index by Station Number and Location Name. persistent _PUBLIC 0 RowId PROSTHETIC_STOCK_LOCATION_661_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.1626645 67178,44714.516802062 right PROSTHETIC STOCK LOCATION 661.5 2.56 12/04/2024 12:25:14 1 1 IEN 1 INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION NEW_PERSON_200]]> USER6 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_USER6 FileMan Field Label: 'ADDRESS' FileMan Field Number: '3' This is an address for the stock location. %Library.String 5 ADDRESS Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(661.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the stock location. %Library.String 1 3 NAME FileMan Field Label: 'STATION' FileMan Field Number: '2' This field points to the Institution file (4). VALIP.prosthetic.fm2cw.INSTITUTION4 4 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_STOCK_LOCATION_661_5 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 FileMan Field Label: 'STATUS' FileMan Field Number: '4' This field indicates whether a stock location is active (A) or inactive (I). Stock locations should not be deleted once they have participated in inventory transactions because other inventory files will inevitably point to the Stock Location file. Instead stock locations should be marked as inactive when no longer in use (due to stock room re-organisation or any other reason). The system will not allow receipts into inactive locations, but issues and outward transfers will be permitted (although ideally all stock should be transferred to other active locations before deactivation). %Library.EnumString 6 STATUS FileMan Field Label: 'STATUS CHANGE DATE' FileMan Field Number: '5' This fields records the date when the status of a stock location is changed. %Library.FilemanDate 7 STATUS_CHANGE_DATE FileMan Field Label: 'USER' FileMan Field Number: '6' This field records the pointer of the user who last updated the stock location record. VALIP.prosthetic.fm2cw.NEWPERSON200 8 USER6 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_STOCK_LOCATION_661_5 where %ID=:id) set {USER6_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USER6_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(661.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(661.5,"+1,",.01)={"NAME"} set:{STATION}'="" FDA(661.5,"+1,",2)={"STATION"} set:{ADDRESS}'="" FDA(661.5,"+1,",3)={"ADDRESS"} set:{STATUS}'="" FDA(661.5,"+1,",4)={"STATUS"} set:{STATUS_CHANGE_DATE}'="" FDA(661.5,"+1,",5)={"STATUS_CHANGE_DATE"} set:{USER6}'="" FDA(661.5,"+1,",6)={"USER6"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(661.5)") set %SkipFiling=1 if $d(%FMERR(661.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(661.5,IENS,.01)={NAME} set:{STATION*C} FDA(661.5,IENS,2)={STATION} set:{ADDRESS*C} FDA(661.5,IENS,3)={ADDRESS} set:{STATUS*C} FDA(661.5,IENS,4)={STATUS} set:{STATUS_CHANGE_DATE*C} FDA(661.5,IENS,5)={STATUS_CHANGE_DATE} set:{USER6*C} FDA(661.5,IENS,6)={USER6} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661.5)") set %SkipFiling=1 if $d(%FMERR(661.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(661.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICSDC11S index ^RMPR nonnull 661.5 "AS" {STATION} {IEN} 0]]> index ^RMPR nonnull 661.5 "ASSL" {STATUS} {STATION} {NAME} {IEN} 0]]> index ^RMPR nonnull 661.5 "B" {NAME} {IEN} 0]]> data ^RMPR 661.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 1 "^" 0 2 "^" 0 4 "^" 0 5 "^" 0 6 index ^RMPR nonnull 661.5 "XSL" {STATION} {NAME} {IEN} 0]]> Generated class for FileMan File Number: '668' File Name: 'PROSTHETIC SUSPENSE' Class generated by %fm2class version 2.56 Prosthetic Suspense file used to contain information regarding pending Prosthetic requests and orders. This file contains both Manual and CPRS Orders. When a suspense is added to Prosthetics the status is OPEN. Once an initial action is taken on the suspense record, the status changes from OPEN to PENDING. The status remains PENDING when additional action is taken on a suspense record. The status is changed to CLOSED when the process is complete and either service was performed or an item was given to the patient. There are two main types of suspense items, MANUAL and CPRS via Consult Tracking. persistent _PUBLIC 0 RowId PROSTHETIC_SUSPENSE_668 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.233998283 67178,44714.553900786 right PROSTHETIC SUSPENSE 668 2.56 12/04/2024 12:25:14 1 1 IEN 1 NEW_PERSON_200]]> CANCELLEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CANCELLED_BY NEW_PERSON_200]]> COMPLETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_COMPLETED_BY REQUESTCONSULTATION_123]]> CONSULT VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_CONSULT REQUEST_SERVICES_123_5]]> CONSULTREQUESTSERVICE VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 FKey_CONSULT_REQUEST_SERVICE NEW_PERSON_200]]> FORWARDEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FORWARDED_BY ICD_DIAGNOSIS_80]]> ICD VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD NEW_PERSON_200]]> INITIALACTIONBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INITIAL_ACTION_BY ORDER_100]]> ORDER VALIP.prosthetic.fm2cw.ORDER100 FKey_ORDER ICD_DIAGNOSIS_80]]> PRIMARYICDDIAGNOSISCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_PRIMARY_ICD_DIAGNOSIS_CODE INSTITUTION_4]]> REQUESTINGFACILITY VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_REQUESTING_FACILITY NEW_PERSON_200]]> REQUESTOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REQUESTOR ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSIS1 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_1 ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSIS2 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_2 ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSIS3 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_3 INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION NEW_PERSON_200]]> SUSPENDEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SUSPENDED_BY PATIENT_2]]> VETERAN VALIP.prosthetic.fm2cw.PATIENT2 FKey_VETERAN FileMan Field Label: 'CANCELLED BY' FileMan Field Number: '17' This is the person who cancelled the suspense. VALIP.prosthetic.fm2cw.NEWPERSON200 23 CANCELLED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {CANCELLED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CANCELLED_BY_NAME 1 FileMan Field Label: 'CANCEL DATE' FileMan Field Number: '18' This is the date the suspense record was cancelled. %Library.FilemanTimeStamp 24 CANCEL_DATE FileMan Field Label: 'CANCEL NOTE' FileMan Field Number: '21' This is the cancel note. If it is a CPRS order the note will be recorded with the Consult. Reason you are cancelling suspense, and/or deny consult. %Library.String 27 CANCEL_NOTE FileMan Field Label: 'COMPLETED BY' FileMan Field Number: '6' This is the person who dispositioned this transaction. VALIP.prosthetic.fm2cw.NEWPERSON200 13 COMPLETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {COMPLETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLETED_BY_NAME 1 FileMan Field Label: 'COMPLETION DATE' FileMan Field Number: '5' This is the date and time of the completion note. %Library.FilemanTimeStamp 12 COMPLETION_DATE FileMan Field Label: 'COMPLETION NOTE' FileMan Field Number: '12' This is the note for the completion comments. %Library.String 18 COMPLETION_NOTE FileMan Field Label: 'CONSULT' FileMan Field Number: '20' This is the entry associated with consult Tracking. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 26 CONSULT FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {CONSULT_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 CONSULT_FILE_ENTRY_DATE 1 FileMan Field Label: 'CONSULT REQUEST SERVICE' FileMan Field Number: '23' This is used to forward a Consult to another service. VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 29 CONSULT_REQUEST_SERVICE SERVICE NAME This is the Name of a service or specialty which may receive consult/ requests. This may also be a name which represents a group of services]]> %Library.String 1 SERVICE_NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {CONSULT_REQUEST_SERVICE_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONSULT_REQUEST_SERVICE_SERVICE_NAME 1 FileMan Field Label: 'DATE RX WRITTEN' FileMan Field Number: '22' This is the date the request was signed by a provider. %Library.FilemanTimeStamp 28 DATE_RX_WRITTEN FileMan Field Label: 'DESCRIPTION OF ITEM/SERVICES' FileMan Field Number: '4' This Field will contain the Description of the Item on suspense and Service rendered to the Veteran. %Library.String 11 DESCRIPTION_OF_ITEMSERVICES FileMan Field Label: 'FORWARDED BY' FileMan Field Number: '24' This is the person who forwarded the consult. VALIP.prosthetic.fm2cw.NEWPERSON200 30 FORWARDED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {FORWARDED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FORWARDED_BY_NAME 1 FileMan Field Label: 'ICD' FileMan Field Number: '1.6' This is the primary CPRS diagnosis code at the time of consult. (Stuffed from HL7 message.) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 6 ICD CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {ICD_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_CODE_NUMBER 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(668,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INITIAL ACTION BY' FileMan Field Number: '16' This is the person who took first action. VALIP.prosthetic.fm2cw.NEWPERSON200 22 INITIAL_ACTION_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {INITIAL_ACTION_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INITIAL_ACTION_BY_NAME 1 FileMan Field Label: 'INITIAL ACTION DATE' FileMan Field Number: '10' This is the date and time the first action on a suspense was taken. %Library.FilemanTimeStamp 17 INITIAL_ACTION_DATE FileMan Field Label: 'INITIAL ACTION NOTE' FileMan Field Number: '7' A word-processing field storing the action taken on a suspense with the initial action to remove from the delayed order report. %Library.String 14 INITIAL_ACTION_NOTE FileMan Field Label: 'OIF/OEF' FileMan Field Number: '15' Veteran determined to be OEF/OIF 1 Yes 0 NO. %Library.EnumString 21 OIFOEF FileMan Field Label: 'ORDER' FileMan Field Number: '19' This is the CPRS Order Number used to send messages. VALIP.prosthetic.fm2cw.ORDER100 25 ORDER FileMan Field Label: 'ORDERING PROVIDER' FileMan Field Number: '27' Provider who ordered the entry for Inter-facility Consults (IFC). This is a free text field. %Library.String 31 ORDERING_PROVIDER ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {ORDER_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORDER_ORDER_ 1 FileMan Field Label: 'PRIMARY AGENT ORANGE' FileMan Field Number: '30.1' Primary diagnosis is related to Agent Orange exposure. %Library.EnumString 33 PRIMARY_AGENT_ORANGE FileMan Field Label: 'PRIMARY COMBAT VET' FileMan Field Number: '30.7' Primary diagnosis is related to Combat. %Library.EnumString 39 PRIMARY_COMBAT_VET FileMan Field Label: 'PRIMARY ENVIRONMENTAL CONT.' FileMan Field Number: '30.4' Primary diagnosis is related to Environmental Contaminants exposure. %Library.EnumString 36 PRIMARY_ENVIRONMENTAL_CONT_ FileMan Field Label: 'PRIMARY HEAD/NECK CANCER' FileMan Field Number: '30.6' Primary diagnosis is related to Head/Neck Cancer. %Library.EnumString 38 PRIMARY_HEADNECK_CANCER FileMan Field Label: 'PRIMARY ICD DIAGNOSIS CODE' FileMan Field Number: '30' This is the primary diagnosis code. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 32 PRIMARY_ICD_DIAGNOSIS_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {PRIMARY_ICD_DIAGNOSIS_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_ICD_DIAGNOSIS_CODE_CODE_NUMBER 1 FileMan Field Label: 'PRIMARY IONIZED RADIATION' FileMan Field Number: '30.2' Primary diagnosis is related to Ionized Radiation exposure. %Library.EnumString 34 PRIMARY_IONIZED_RADIATION FileMan Field Label: 'PRIMARY MST' FileMan Field Number: '30.5' Primary diagnosis is related to Military Sexual Trauma. %Library.EnumString 37 PRIMARY_MST FileMan Field Label: 'PRIMARY SERVICE-CONNECTED' FileMan Field Number: '30.3' Primary diagnosis is related to a Service-Connected condition. %Library.EnumString 35 PRIMARY_SERVICECONNECTED FileMan Field Label: 'PROVISIONAL DIAGNOSIS' FileMan Field Number: '1.5' CPRS Provisional Diagnosis at the time the Consult was created. %Library.String 5 PROVISIONAL_DIAGNOSIS FileMan Field Label: 'REQUESTING FACILITY' FileMan Field Number: '2.1' CPRS Requesting Facility, local facility only from Consult Tracking. VALIP.prosthetic.fm2cw.INSTITUTION4 8 REQUESTING_FACILITY NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {REQUESTING_FACILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_FACILITY_NAME 1 FileMan Field Label: 'REQUESTOR' FileMan Field Number: '13' This is the person who requested the order, or submitted the order. VALIP.prosthetic.fm2cw.NEWPERSON200 19 REQUESTOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {REQUESTOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTOR_NAME 1 FileMan Field Label: 'SECONDARY AGENT ORANGE 1' FileMan Field Number: '31.1' Secondary diagnosis 1 is related to Agent Orange exposure. %Library.EnumString 41 SECONDARY_AGENT_ORANGE_1 FileMan Field Label: 'SECONDARY AGENT ORANGE 2' FileMan Field Number: '32.1' Secondary diagnosis 2 is related to Agent Orange exposure. %Library.EnumString 49 SECONDARY_AGENT_ORANGE_2 FileMan Field Label: 'SECONDARY AGENT ORANGE 3' FileMan Field Number: '33.1' Secondary diagnosis 3 is related to Agent Orange. %Library.EnumString 57 SECONDARY_AGENT_ORANGE_3 FileMan Field Label: 'SECONDARY COMBAT VET 1' FileMan Field Number: '31.7' Secondary diagnosis 1 is related to Combat. %Library.EnumString 47 SECONDARY_COMBAT_VET_1 FileMan Field Label: 'SECONDARY COMBAT VET 2' FileMan Field Number: '32.7' Secondary diagnosis 2 is related to Combat. %Library.EnumString 55 SECONDARY_COMBAT_VET_2 FileMan Field Label: 'SECONDARY COMBAT VET 3' FileMan Field Number: '33.7' Secondary diagnosis 3 is related to Combat. %Library.EnumString 63 SECONDARY_COMBAT_VET_3 FileMan Field Label: 'SECONDARY ENVIRON. CONT. 1' FileMan Field Number: '31.4' Secondary diagnosis 1 is related to Environmental Contaminants exposure. %Library.EnumString 44 SECONDARY_ENVIRON__CONT__1 FileMan Field Label: 'SECONDARY ENVIRON. CONT. 2' FileMan Field Number: '32.4' Secondary diagnosis 2 is related to Environmental Contaminants exposure. %Library.EnumString 52 SECONDARY_ENVIRON__CONT__2 FileMan Field Label: 'SECONDARY ENVIRON. CONT. 3' FileMan Field Number: '33.4' Secondary diagnosis 3 is related to Environmental Contaminants exposure. %Library.EnumString 60 SECONDARY_ENVIRON__CONT__3 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 1' FileMan Field Number: '31.6' Secondary diagnosis 1 is related to Head/Neck Cancer. %Library.EnumString 46 SECONDARY_HEADNECK_CANCER_1 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 2' FileMan Field Number: '32.6' Secondary diagnosis 2 is related to Head/Neck Cancer. %Library.EnumString 54 SECONDARY_HEADNECK_CANCER_2 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 3' FileMan Field Number: '33.6' Secondary diagnosis 3 is related to Head/Neck Cancer. %Library.EnumString 62 SECONDARY_HEADNECK_CANCER_3 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS 1' FileMan Field Number: '31' This is the secondary CPRS diagnosis code 1 at the time of consult. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 40 SECONDARY_ICD_DIAGNOSIS_1 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_1_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_1_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS 2' FileMan Field Number: '32' This is the secondary CPRS diagnosis code 2 at the time of consult. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 48 SECONDARY_ICD_DIAGNOSIS_2 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_2_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_2_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS 3' FileMan Field Number: '33' This is the secondary CPRS diagnosis code 3 at the time of consult. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 56 SECONDARY_ICD_DIAGNOSIS_3 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_3_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_3_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY IONIZED RADIATION 1' FileMan Field Number: '31.2' Secondary diagnosis 1 is related to Ionized Radiation exposure. %Library.EnumString 42 SECONDARY_IONIZED_RADIATION_1 FileMan Field Label: 'SECONDARY IONIZED RADIATION 2' FileMan Field Number: '32.2' Secondary diagnosis 2 is related to Ionized Radiation exposure. %Library.EnumString 50 SECONDARY_IONIZED_RADIATION_2 FileMan Field Label: 'SECONDARY IONIZED RADIATION 3' FileMan Field Number: '33.2' Secondary diagnosis 3 is related to Ionized Radiation. %Library.EnumString 58 SECONDARY_IONIZED_RADIATION_3 FileMan Field Label: 'SECONDARY MST 1' FileMan Field Number: '31.5' Secondary diagnosis 1 is related to Military Sexual Trauma. %Library.EnumString 45 SECONDARY_MST_1 FileMan Field Label: 'SECONDARY MST 2' FileMan Field Number: '32.5' Secondary diagnosis 2 is related to Military Sexual Trauma. %Library.EnumString 53 SECONDARY_MST_2 FileMan Field Label: 'SECONDARY MST 3' FileMan Field Number: '33.5' Secondary diagnosis 3 is related to Military Sexual Trauma. %Library.EnumString 61 SECONDARY_MST_3 FileMan Field Label: 'SECONDARY SERVICE-CONNECTED 1' FileMan Field Number: '31.3' Secondary diagnosis 1 is related to a Service-Connected condition. %Library.EnumString 43 SECONDARY_SERVICECONNECTED_1 FileMan Field Label: 'SECONDARY SERVICE-CONNECTED 2' FileMan Field Number: '32.3' Secondary diagnosis 2 is related to a Service-Connected condition. %Library.EnumString 51 SECONDARY_SERVICECONNECTED_2 FileMan Field Label: 'SECONDARY SERVICE-CONNECTED 3' FileMan Field Number: '33.3' Secondary diagnosis 3 is related to a Service-Connected condition. %Library.EnumString 59 SECONDARY_SERVICECONNECTED_3 FileMan Field Label: 'STATION' FileMan Field Number: '2' This field stores the station number of the patient. VALIP.prosthetic.fm2cw.INSTITUTION4 7 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 FileMan Field Label: 'STATUS' FileMan Field Number: '14' This is the current status, Open, Pending, Closed, or Cancelled. %Library.EnumString 20 STATUS Relationship for Sub-File/Multiple to file name ACTION DATE child VALIP.prosthetic.fm2cw.SUBACTIONDATE668011 children PROSTHETICSUSPENSE668 1 SUB_ACTION_DATE_668_011 Relationship for Sub-File/Multiple to file name AMIS GROUPER child VALIP.prosthetic.fm2cw.SUBAMISGROUPER66882 children PROSTHETICSUSPENSE668 1 SUB_AMIS_GROUPER_668_82 Relationship for Sub-File/Multiple to file name PATIENT 2319 child VALIP.prosthetic.fm2cw.SUBPATIENT231966881 children PROSTHETICSUSPENSE668 1 SUB_PATIENT_2319_668_81 FileMan Field Label: 'SUSPENDED BY' FileMan Field Number: '8' Person who created the suspense entry. VALIP.prosthetic.fm2cw.NEWPERSON200 15 SUSPENDED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {SUSPENDED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SUSPENDED_BY_NAME 1 FileMan Field Label: 'SUSPENSE DATE' FileMan Field Number: '.01' Date that the Suspense entry was entered. %Library.FilemanTimeStamp 1 3 SUSPENSE_DATE FileMan Field Label: 'SUSPENSE FORM' FileMan Field Number: '3' Type of form for the transaction that is being tracked by the Suspense Module. %Library.EnumString 1 10 SUSPENSE_FORM FileMan Field Label: 'TYPE OF REQUEST' FileMan Field Number: '9' This is the type of order from CPRS Consult Tracking Module, or VBA. It also records MANUAL for paper orders received. %Library.EnumString 16 TYPE_OF_REQUEST FileMan Field Label: 'URGENCY' FileMan Field Number: '2.3' From CPRS, the urgency the user defined at the time the Consult was created. %Library.String 9 URGENCY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 64 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VETERAN' FileMan Field Number: '1' Pointer to the Patient file. MAS Patients may not become Prosthetic Patients while their eligility is being determined. VALIP.prosthetic.fm2cw.PATIENT2 4 VETERAN NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_SUSPENSE_668 where %ID=:id) set {VETERAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VETERAN_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(668," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SUSPENSE_DATE}'="" FDA(668,"+1,",.01)={"SUSPENSE_DATE"} set:{VETERAN}'="" FDA(668,"+1,",1)={"VETERAN"} set:{PROVISIONAL_DIAGNOSIS}'="" FDA(668,"+1,",1.5)={"PROVISIONAL_DIAGNOSIS"} set:{ICD}'="" FDA(668,"+1,",1.6)={"ICD"} set:{STATION}'="" FDA(668,"+1,",2)={"STATION"} set:{REQUESTING_FACILITY}'="" FDA(668,"+1,",2.1)={"REQUESTING_FACILITY"} set:{URGENCY}'="" FDA(668,"+1,",2.3)={"URGENCY"} set:{SUSPENSE_FORM}'="" FDA(668,"+1,",3)={"SUSPENSE_FORM"} set:{COMPLETION_DATE}'="" FDA(668,"+1,",5)={"COMPLETION_DATE"} set:{COMPLETED_BY}'="" FDA(668,"+1,",6)={"COMPLETED_BY"} set:{SUSPENDED_BY}'="" FDA(668,"+1,",8)={"SUSPENDED_BY"} set:{TYPE_OF_REQUEST}'="" FDA(668,"+1,",9)={"TYPE_OF_REQUEST"} set:{INITIAL_ACTION_DATE}'="" FDA(668,"+1,",10)={"INITIAL_ACTION_DATE"} set:{REQUESTOR}'="" FDA(668,"+1,",13)={"REQUESTOR"} set:{STATUS}'="" FDA(668,"+1,",14)={"STATUS"} set:{OIFOEF}'="" FDA(668,"+1,",15)={"OIFOEF"} set:{INITIAL_ACTION_BY}'="" FDA(668,"+1,",16)={"INITIAL_ACTION_BY"} set:{CANCELLED_BY}'="" FDA(668,"+1,",17)={"CANCELLED_BY"} set:{CANCEL_DATE}'="" FDA(668,"+1,",18)={"CANCEL_DATE"} set:{ORDER}'="" FDA(668,"+1,",19)={"ORDER"} set:{CONSULT}'="" FDA(668,"+1,",20)={"CONSULT"} set:{DATE_RX_WRITTEN}'="" FDA(668,"+1,",22)={"DATE_RX_WRITTEN"} set:{CONSULT_REQUEST_SERVICE}'="" FDA(668,"+1,",23)={"CONSULT_REQUEST_SERVICE"} set:{FORWARDED_BY}'="" FDA(668,"+1,",24)={"FORWARDED_BY"} set:{ORDERING_PROVIDER}'="" FDA(668,"+1,",27)={"ORDERING_PROVIDER"} set:{PRIMARY_ICD_DIAGNOSIS_CODE}'="" FDA(668,"+1,",30)={"PRIMARY_ICD_DIAGNOSIS_CODE"} set:{PRIMARY_AGENT_ORANGE}'="" FDA(668,"+1,",30.1)={"PRIMARY_AGENT_ORANGE"} set:{PRIMARY_IONIZED_RADIATION}'="" FDA(668,"+1,",30.2)={"PRIMARY_IONIZED_RADIATION"} set:{PRIMARY_SERVICECONNECTED}'="" FDA(668,"+1,",30.3)={"PRIMARY_SERVICECONNECTED"} set:{PRIMARY_ENVIRONMENTAL_CONT_}'="" FDA(668,"+1,",30.4)={"PRIMARY_ENVIRONMENTAL_CONT_"} set:{PRIMARY_MST}'="" FDA(668,"+1,",30.5)={"PRIMARY_MST"} set:{PRIMARY_HEADNECK_CANCER}'="" FDA(668,"+1,",30.6)={"PRIMARY_HEADNECK_CANCER"} set:{PRIMARY_COMBAT_VET}'="" FDA(668,"+1,",30.7)={"PRIMARY_COMBAT_VET"} set:{SECONDARY_ICD_DIAGNOSIS_1}'="" FDA(668,"+1,",31)={"SECONDARY_ICD_DIAGNOSIS_1"} set:{SECONDARY_AGENT_ORANGE_1}'="" FDA(668,"+1,",31.1)={"SECONDARY_AGENT_ORANGE_1"} set:{SECONDARY_IONIZED_RADIATION_1}'="" FDA(668,"+1,",31.2)={"SECONDARY_IONIZED_RADIATION_1"} set:{SECONDARY_SERVICECONNECTED_1}'="" FDA(668,"+1,",31.3)={"SECONDARY_SERVICECONNECTED_1"} set:{SECONDARY_ENVIRON__CONT__1}'="" FDA(668,"+1,",31.4)={"SECONDARY_ENVIRON__CONT__1"} set:{SECONDARY_MST_1}'="" FDA(668,"+1,",31.5)={"SECONDARY_MST_1"} set:{SECONDARY_HEADNECK_CANCER_1}'="" FDA(668,"+1,",31.6)={"SECONDARY_HEADNECK_CANCER_1"} set:{SECONDARY_COMBAT_VET_1}'="" FDA(668,"+1,",31.7)={"SECONDARY_COMBAT_VET_1"} set:{SECONDARY_ICD_DIAGNOSIS_2}'="" FDA(668,"+1,",32)={"SECONDARY_ICD_DIAGNOSIS_2"} set:{SECONDARY_AGENT_ORANGE_2}'="" FDA(668,"+1,",32.1)={"SECONDARY_AGENT_ORANGE_2"} set:{SECONDARY_IONIZED_RADIATION_2}'="" FDA(668,"+1,",32.2)={"SECONDARY_IONIZED_RADIATION_2"} set:{SECONDARY_SERVICECONNECTED_2}'="" FDA(668,"+1,",32.3)={"SECONDARY_SERVICECONNECTED_2"} set:{SECONDARY_ENVIRON__CONT__2}'="" FDA(668,"+1,",32.4)={"SECONDARY_ENVIRON__CONT__2"} set:{SECONDARY_MST_2}'="" FDA(668,"+1,",32.5)={"SECONDARY_MST_2"} set:{SECONDARY_HEADNECK_CANCER_2}'="" FDA(668,"+1,",32.6)={"SECONDARY_HEADNECK_CANCER_2"} set:{SECONDARY_COMBAT_VET_2}'="" FDA(668,"+1,",32.7)={"SECONDARY_COMBAT_VET_2"} set:{SECONDARY_ICD_DIAGNOSIS_3}'="" FDA(668,"+1,",33)={"SECONDARY_ICD_DIAGNOSIS_3"} set:{SECONDARY_AGENT_ORANGE_3}'="" FDA(668,"+1,",33.1)={"SECONDARY_AGENT_ORANGE_3"} set:{SECONDARY_IONIZED_RADIATION_3}'="" FDA(668,"+1,",33.2)={"SECONDARY_IONIZED_RADIATION_3"} set:{SECONDARY_SERVICECONNECTED_3}'="" FDA(668,"+1,",33.3)={"SECONDARY_SERVICECONNECTED_3"} set:{SECONDARY_ENVIRON__CONT__3}'="" FDA(668,"+1,",33.4)={"SECONDARY_ENVIRON__CONT__3"} set:{SECONDARY_MST_3}'="" FDA(668,"+1,",33.5)={"SECONDARY_MST_3"} set:{SECONDARY_HEADNECK_CANCER_3}'="" FDA(668,"+1,",33.6)={"SECONDARY_HEADNECK_CANCER_3"} set:{SECONDARY_COMBAT_VET_3}'="" FDA(668,"+1,",33.7)={"SECONDARY_COMBAT_VET_3"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(668)") set %SkipFiling=1 if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION_OF_ITEMSERVICES}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION_OF_ITEMSERVICES},$c(13,10)) { set wp(i)=$p({DESCRIPTION_OF_ITEMSERVICES},$c(13,10),i) } do WP^DIE(668,{RowId},4,,"wp","%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INITIAL_ACTION_NOTE}'="" { set D0={RowId} for i=1:1:$l({INITIAL_ACTION_NOTE},$c(13,10)) { set wp(i)=$p({INITIAL_ACTION_NOTE},$c(13,10),i) } do WP^DIE(668,{RowId},7,,"wp","%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMPLETION_NOTE}'="" { set D0={RowId} for i=1:1:$l({COMPLETION_NOTE},$c(13,10)) { set wp(i)=$p({COMPLETION_NOTE},$c(13,10),i) } do WP^DIE(668,{RowId},12,,"wp","%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CANCEL_NOTE}'="" { set D0={RowId} for i=1:1:$l({CANCEL_NOTE},$c(13,10)) { set wp(i)=$p({CANCEL_NOTE},$c(13,10),i) } do WP^DIE(668,{RowId},21,,"wp","%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SUSPENSE_DATE*C} FDA(668,IENS,.01)={SUSPENSE_DATE} set:{VETERAN*C} FDA(668,IENS,1)={VETERAN} set:{PROVISIONAL_DIAGNOSIS*C} FDA(668,IENS,1.5)={PROVISIONAL_DIAGNOSIS} set:{ICD*C} FDA(668,IENS,1.6)={ICD} set:{STATION*C} FDA(668,IENS,2)={STATION} set:{REQUESTING_FACILITY*C} FDA(668,IENS,2.1)={REQUESTING_FACILITY} set:{URGENCY*C} FDA(668,IENS,2.3)={URGENCY} set:{SUSPENSE_FORM*C} FDA(668,IENS,3)={SUSPENSE_FORM} set:{COMPLETION_DATE*C} FDA(668,IENS,5)={COMPLETION_DATE} set:{COMPLETED_BY*C} FDA(668,IENS,6)={COMPLETED_BY} set:{SUSPENDED_BY*C} FDA(668,IENS,8)={SUSPENDED_BY} set:{TYPE_OF_REQUEST*C} FDA(668,IENS,9)={TYPE_OF_REQUEST} set:{INITIAL_ACTION_DATE*C} FDA(668,IENS,10)={INITIAL_ACTION_DATE} set:{REQUESTOR*C} FDA(668,IENS,13)={REQUESTOR} set:{STATUS*C} FDA(668,IENS,14)={STATUS} set:{OIFOEF*C} FDA(668,IENS,15)={OIFOEF} set:{INITIAL_ACTION_BY*C} FDA(668,IENS,16)={INITIAL_ACTION_BY} set:{CANCELLED_BY*C} FDA(668,IENS,17)={CANCELLED_BY} set:{CANCEL_DATE*C} FDA(668,IENS,18)={CANCEL_DATE} set:{ORDER*C} FDA(668,IENS,19)={ORDER} set:{CONSULT*C} FDA(668,IENS,20)={CONSULT} set:{DATE_RX_WRITTEN*C} FDA(668,IENS,22)={DATE_RX_WRITTEN} set:{CONSULT_REQUEST_SERVICE*C} FDA(668,IENS,23)={CONSULT_REQUEST_SERVICE} set:{FORWARDED_BY*C} FDA(668,IENS,24)={FORWARDED_BY} set:{ORDERING_PROVIDER*C} FDA(668,IENS,27)={ORDERING_PROVIDER} set:{PRIMARY_ICD_DIAGNOSIS_CODE*C} FDA(668,IENS,30)={PRIMARY_ICD_DIAGNOSIS_CODE} set:{PRIMARY_AGENT_ORANGE*C} FDA(668,IENS,30.1)={PRIMARY_AGENT_ORANGE} set:{PRIMARY_IONIZED_RADIATION*C} FDA(668,IENS,30.2)={PRIMARY_IONIZED_RADIATION} set:{PRIMARY_SERVICECONNECTED*C} FDA(668,IENS,30.3)={PRIMARY_SERVICECONNECTED} set:{PRIMARY_ENVIRONMENTAL_CONT_*C} FDA(668,IENS,30.4)={PRIMARY_ENVIRONMENTAL_CONT_} set:{PRIMARY_MST*C} FDA(668,IENS,30.5)={PRIMARY_MST} set:{PRIMARY_HEADNECK_CANCER*C} FDA(668,IENS,30.6)={PRIMARY_HEADNECK_CANCER} set:{PRIMARY_COMBAT_VET*C} FDA(668,IENS,30.7)={PRIMARY_COMBAT_VET} set:{SECONDARY_ICD_DIAGNOSIS_1*C} FDA(668,IENS,31)={SECONDARY_ICD_DIAGNOSIS_1} set:{SECONDARY_AGENT_ORANGE_1*C} FDA(668,IENS,31.1)={SECONDARY_AGENT_ORANGE_1} set:{SECONDARY_IONIZED_RADIATION_1*C} FDA(668,IENS,31.2)={SECONDARY_IONIZED_RADIATION_1} set:{SECONDARY_SERVICECONNECTED_1*C} FDA(668,IENS,31.3)={SECONDARY_SERVICECONNECTED_1} set:{SECONDARY_ENVIRON__CONT__1*C} FDA(668,IENS,31.4)={SECONDARY_ENVIRON__CONT__1} set:{SECONDARY_MST_1*C} FDA(668,IENS,31.5)={SECONDARY_MST_1} set:{SECONDARY_HEADNECK_CANCER_1*C} FDA(668,IENS,31.6)={SECONDARY_HEADNECK_CANCER_1} set:{SECONDARY_COMBAT_VET_1*C} FDA(668,IENS,31.7)={SECONDARY_COMBAT_VET_1} set:{SECONDARY_ICD_DIAGNOSIS_2*C} FDA(668,IENS,32)={SECONDARY_ICD_DIAGNOSIS_2} set:{SECONDARY_AGENT_ORANGE_2*C} FDA(668,IENS,32.1)={SECONDARY_AGENT_ORANGE_2} set:{SECONDARY_IONIZED_RADIATION_2*C} FDA(668,IENS,32.2)={SECONDARY_IONIZED_RADIATION_2} set:{SECONDARY_SERVICECONNECTED_2*C} FDA(668,IENS,32.3)={SECONDARY_SERVICECONNECTED_2} set:{SECONDARY_ENVIRON__CONT__2*C} FDA(668,IENS,32.4)={SECONDARY_ENVIRON__CONT__2} set:{SECONDARY_MST_2*C} FDA(668,IENS,32.5)={SECONDARY_MST_2} set:{SECONDARY_HEADNECK_CANCER_2*C} FDA(668,IENS,32.6)={SECONDARY_HEADNECK_CANCER_2} set:{SECONDARY_COMBAT_VET_2*C} FDA(668,IENS,32.7)={SECONDARY_COMBAT_VET_2} set:{SECONDARY_ICD_DIAGNOSIS_3*C} FDA(668,IENS,33)={SECONDARY_ICD_DIAGNOSIS_3} set:{SECONDARY_AGENT_ORANGE_3*C} FDA(668,IENS,33.1)={SECONDARY_AGENT_ORANGE_3} set:{SECONDARY_IONIZED_RADIATION_3*C} FDA(668,IENS,33.2)={SECONDARY_IONIZED_RADIATION_3} set:{SECONDARY_SERVICECONNECTED_3*C} FDA(668,IENS,33.3)={SECONDARY_SERVICECONNECTED_3} set:{SECONDARY_ENVIRON__CONT__3*C} FDA(668,IENS,33.4)={SECONDARY_ENVIRON__CONT__3} set:{SECONDARY_MST_3*C} FDA(668,IENS,33.5)={SECONDARY_MST_3} set:{SECONDARY_HEADNECK_CANCER_3*C} FDA(668,IENS,33.6)={SECONDARY_HEADNECK_CANCER_3} set:{SECONDARY_COMBAT_VET_3*C} FDA(668,IENS,33.7)={SECONDARY_COMBAT_VET_3} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(668)") set %SkipFiling=1 if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION_OF_ITEMSERVICES*C} { set D0={RowId} kill wp if {DESCRIPTION_OF_ITEMSERVICES}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION_OF_ITEMSERVICES},$c(13,10)) { set wp(i)=$p({DESCRIPTION_OF_ITEMSERVICES},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(668,{RowId},4,,wproot,"%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INITIAL_ACTION_NOTE*C} { set D0={RowId} kill wp if {INITIAL_ACTION_NOTE}'="" { set wproot="wp" for i=1:1:$l({INITIAL_ACTION_NOTE},$c(13,10)) { set wp(i)=$p({INITIAL_ACTION_NOTE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(668,{RowId},7,,wproot,"%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMPLETION_NOTE*C} { set D0={RowId} kill wp if {COMPLETION_NOTE}'="" { set wproot="wp" for i=1:1:$l({COMPLETION_NOTE},$c(13,10)) { set wp(i)=$p({COMPLETION_NOTE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(668,{RowId},12,,wproot,"%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CANCEL_NOTE*C} { set D0={RowId} kill wp if {CANCEL_NOTE}'="" { set wproot="wp" for i=1:1:$l({CANCEL_NOTE},$c(13,10)) { set wp(i)=$p({CANCEL_NOTE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(668,{RowId},21,,wproot,"%FMERR(668)") if $d(%FMERR(668,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICS9AB8S index ^RMPR nonnull 668 "B" {SUSPENSE_DATE} {IEN} 0]]> index ^RMPR nonnull 668 "C" {VETERAN} {IEN} 0]]> index ^RMPR nonnull 668 "D" {CONSULT} {IEN} 0]]> index ^RMPR nonnull 668 "E" {STATUS} {IEN} 0]]> data ^RMPR 668 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 13 "^" 5 1 9 new data,i,node set {CANCEL_NOTE}="" merge data=^RMPR(668,{S2},9) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CANCEL_NOTE}={CANCEL_NOTE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" 0 5 4 new data,i,node set {COMPLETION_NOTE}="" merge data=^RMPR(668,{S2},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMPLETION_NOTE}={COMPLETION_NOTE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 15 "^" 8 6 "^" 0 16 2 new data,i,node set {DESCRIPTION_OF_ITEMSERVICES}="" merge data=^RMPR(668,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION_OF_ITEMSERVICES}={DESCRIPTION_OF_ITEMSERVICES}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 8 7 "^" 8 3 "^" 0 12 "^" 0 9 3 new data,i,node set {INITIAL_ACTION_NOTE}="" merge data=^RMPR(668,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INITIAL_ACTION_NOTE}={INITIAL_ACTION_NOTE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 7 1 "^" 0 14 "^" "IFC1" 3 "^" "BA1" 2 "^" "BA1" 8 "^" "BA1" 5 "^" "BA1" 7 "^" "BA1" 1 "^" "BA1" 3 "^" "BA1" 6 "^" "BA1" 4 "^" 8 2 "^" 8 1 "^" 0 11 "^" "BA2" 2 "^" "BA3" 2 "^" "BA4" 2 "^" "BA2" 8 "^" "BA3" 8 "^" "BA4" 8 "^" "BA2" 5 "^" "BA3" 5 "^" "BA4" 5 "^" "BA2" 7 "^" "BA3" 7 "^" "BA4" 7 "^" "BA2" 1 "^" "BA3" 1 "^" "BA4" 1 "^" "BA2" 3 "^" "BA3" 3 "^" "BA4" 3 "^" "BA2" 6 "^" "BA3" 6 "^" "BA4" 6 "^" "BA2" 4 "^" "BA3" 4 "^" "BA4" 4 "^" 0 7 "^" 0 10 "^" 0 4 "^" 0 1 "^" 0 3 "^" 0 8 "^" 8 5 "^" 0 2 Generated class for FileMan File Number: '664.2' File Name: 'PROSTHETIC WORK ORDER' Class generated by %fm2class version 2.56 This file contains VAF 10-2529-3 Work Order information that will be stored for AMIS calculations. This file will only be updated if the facility has an active Prosthetic Lab. persistent _PUBLIC 0 RowId PROSTHETIC_WORK_ORDER_664_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.231790602 67178,44714.640536249 right PROSTHETIC WORK ORDER 664.2 2.56 12/04/2024 12:25:14 1 1 IEN 1 RECORD_OF_PROS_APPLIANCEREPAIR_660]]> APPLIANCEREPAIR VALIP.prosthetic.fm2cw.RECORDOFPROSAPPLIANCEREPAIR660 FKey_APPLIANCEREPAIR NEW_PERSON_200]]> CHECKEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CHECKED_BY NEW_PERSON_200]]> COMPLETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_COMPLETED_BY INSTITUTION_4]]> REFERRALSTATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_REFERRAL_STATION INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION FileMan Field Label: 'ACTUAL SHIPPING CHARGE' FileMan Field Number: '5' This is the actual shipping cost for delivery of item(s) on VAF 10-2421. %Library.Numeric 9 ACTUAL_SHIPPING_CHARGE FileMan Field Label: 'APPLIANCE/REPAIR' FileMan Field Number: '1' Pointer to associated RECORD OF PROS APPLIANCE/REPAIR entry in file #660. VALIP.prosthetic.fm2cw.RECORDOFPROSAPPLIANCEREPAIR660 4 APPLIANCEREPAIR ENTRY DATE This is the date that the transaction was entered into the system. It may or may not be the same as the request date.]]> %Library.FilemanTimeStamp 1 ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_WORK_ORDER_664_2 where %ID=:id) set {APPLIANCEREPAIR_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 APPLIANCEREPAIR_ENTRY_DATE 1 FileMan Field Label: 'CHECKED BY' FileMan Field Number: '11' This is the name of the person checking the completed item/service requested on the Lab Work Order for quality control monitoring. VALIP.prosthetic.fm2cw.NEWPERSON200 15 CHECKED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_WORK_ORDER_664_2 where %ID=:id) set {CHECKED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CHECKED_BY_NAME 1 FileMan Field Label: 'COMPLETED BY' FileMan Field Number: '9' This is the name of the person who completed the Item/Job. VALIP.prosthetic.fm2cw.NEWPERSON200 13 COMPLETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_WORK_ORDER_664_2 where %ID=:id) set {COMPLETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLETED_BY_NAME 1 FileMan Field Label: 'DATE' FileMan Field Number: '1.8' This is the DATE the Lab Work Order was entered. %Library.FilemanTimeStamp 7 DATE1_8 FileMan Field Label: 'DATE COMPLETED' FileMan Field Number: '8' This is the date that the Item/Job on the Lab Work Order was completed. %Library.FilemanDate 12 DATE_COMPLETED FileMan Field Label: 'DATE MEASURED' FileMan Field Number: '10' This is the date that the Lab Technician measured or fitted the patient for the items/services requested on the Lab Work Order. %Library.FilemanDate 14 DATE_MEASURED FileMan Field Label: 'EST. SHIPPING CHARGE' FileMan Field Number: '4' This is the estimated shipping cost for delivery of item(s) on VAF 10-2421. %Library.Numeric 8 EST__SHIPPING_CHARGE Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(664.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'JOB NUMBER' FileMan Field Number: '1.7' This is a job number, which may be between 1 and 999. Each job number is associated withan item on the 2529-3. The numbers are not entered by the user, but set in the background in the lab routines. %Library.Numeric 6 JOB_NUMBER FileMan Field Label: 'REFERRAL STATION' FileMan Field Number: '6' This is the Station Name or Station Number of the facility that is referring the VAF 10-2529-3 to a Prosthetic Laboratory. VALIP.prosthetic.fm2cw.INSTITUTION4 10 REFERRAL_STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_WORK_ORDER_664_2 where %ID=:id) set {REFERRAL_STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REFERRAL_STATION_NAME 1 FileMan Field Label: 'REMARKS' FileMan Field Number: '12' Additional comments noted on the Lab Work Order. %Library.String 16 REMARKS FileMan Field Label: 'STATION' FileMan Field Number: '1.5' This field is a pointer to the INSTITUTION file (#4). If a site is multidivisional, entries are screened out by site number. VALIP.prosthetic.fm2cw.INSTITUTION4 5 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROSTHETIC_WORK_ORDER_664_2 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 Relationship for Sub-File/Multiple to file name MATERIALS USED child VALIP.prosthetic.fm2cw.SUBMATERIALSUSED66422 children PROSTHETICWORKORDER6642 1 SUB_MATERIALS_USED_664_22 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 17 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WORK FOR OTHER STATION' FileMan Field Number: '7' Prosthetic Laboratories processing a Work Order for another facility should enter a `1` in order to get the appropriate AMIS credit. The referring facility receives the administrative AMIS credit, and the facility processing the Work Order receives the laboratory AMIS credit. %Library.EnumString 11 WORK_FOR_OTHER_STATION FileMan Field Label: 'WORK ORDER NUMBER' FileMan Field Number: '.01' This is the permanent number used to identify and track the Lab request. It is built from both information the user enters and a sequence number assigned by the computer (e.g., 644-95-2-O-0016). 644 = Station Number 95 = Fiscal Year 2 = Quarter O = Type of Laboratory (Orthotic, Restoration, Shoe Last, Wheelchair Repair, National Foot Center, or Denver Distribution Center) %Library.String 1 3 WORK_ORDER_NUMBER BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(664.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{WORK_ORDER_NUMBER}'="" FDA(664.2,"+1,",.01)={"WORK_ORDER_NUMBER"} set:{APPLIANCEREPAIR}'="" FDA(664.2,"+1,",1)={"APPLIANCEREPAIR"} set:{STATION}'="" FDA(664.2,"+1,",1.5)={"STATION"} set:{JOB_NUMBER}'="" FDA(664.2,"+1,",1.7)={"JOB_NUMBER"} set:{DATE1_8}'="" FDA(664.2,"+1,",1.8)={"DATE1_8"} set:{EST__SHIPPING_CHARGE}'="" FDA(664.2,"+1,",4)={"EST__SHIPPING_CHARGE"} set:{ACTUAL_SHIPPING_CHARGE}'="" FDA(664.2,"+1,",5)={"ACTUAL_SHIPPING_CHARGE"} set:{REFERRAL_STATION}'="" FDA(664.2,"+1,",6)={"REFERRAL_STATION"} set:{WORK_FOR_OTHER_STATION}'="" FDA(664.2,"+1,",7)={"WORK_FOR_OTHER_STATION"} set:{DATE_COMPLETED}'="" FDA(664.2,"+1,",8)={"DATE_COMPLETED"} set:{COMPLETED_BY}'="" FDA(664.2,"+1,",9)={"COMPLETED_BY"} set:{DATE_MEASURED}'="" FDA(664.2,"+1,",10)={"DATE_MEASURED"} set:{CHECKED_BY}'="" FDA(664.2,"+1,",11)={"CHECKED_BY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(664.2)") set %SkipFiling=1 if $d(%FMERR(664.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REMARKS}'="" { set D0={RowId} for i=1:1:$l({REMARKS},$c(13,10)) { set wp(i)=$p({REMARKS},$c(13,10),i) } do WP^DIE(664.2,{RowId},12,,"wp","%FMERR(664.2)") if $d(%FMERR(664.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{WORK_ORDER_NUMBER*C} FDA(664.2,IENS,.01)={WORK_ORDER_NUMBER} set:{APPLIANCEREPAIR*C} FDA(664.2,IENS,1)={APPLIANCEREPAIR} set:{STATION*C} FDA(664.2,IENS,1.5)={STATION} set:{JOB_NUMBER*C} FDA(664.2,IENS,1.7)={JOB_NUMBER} set:{DATE1_8*C} FDA(664.2,IENS,1.8)={DATE1_8} set:{EST__SHIPPING_CHARGE*C} FDA(664.2,IENS,4)={EST__SHIPPING_CHARGE} set:{ACTUAL_SHIPPING_CHARGE*C} FDA(664.2,IENS,5)={ACTUAL_SHIPPING_CHARGE} set:{REFERRAL_STATION*C} FDA(664.2,IENS,6)={REFERRAL_STATION} set:{WORK_FOR_OTHER_STATION*C} FDA(664.2,IENS,7)={WORK_FOR_OTHER_STATION} set:{DATE_COMPLETED*C} FDA(664.2,IENS,8)={DATE_COMPLETED} set:{COMPLETED_BY*C} FDA(664.2,IENS,9)={COMPLETED_BY} set:{DATE_MEASURED*C} FDA(664.2,IENS,10)={DATE_MEASURED} set:{CHECKED_BY*C} FDA(664.2,IENS,11)={CHECKED_BY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(664.2)") set %SkipFiling=1 if $d(%FMERR(664.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REMARKS*C} { set D0={RowId} kill wp if {REMARKS}'="" { set wproot="wp" for i=1:1:$l({REMARKS},$c(13,10)) { set wp(i)=$p({REMARKS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(664.2,{RowId},12,,wproot,"%FMERR(664.2)") if $d(%FMERR(664.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PROSTHETICW62CES index {WORK_ORDER_NUMBER}'="" 1 ^RMPR conditional 664.2 "B" $$TRUNCATE({WORK_ORDER_NUMBER},30)) {IEN} 0]]> index ^RMPR nonnull 664.2 "C" {APPLIANCEREPAIR} {IEN} 0]]> data ^RMPR 664.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 7 "^" 0 2 "^" 0 12 "^" 0 11 "^" 0 5 "^" 0 10 "^" 0 5 "^" 0 6 "^" 0 4 "^" 0 8 3 new data,i,node set {REMARKS}="" merge data=^RMPR(664.2,{S2},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REMARKS}={REMARKS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 3 "^" 0 9 "^" 0 1 Generated class for FileMan File Number: '101' File Name: 'PROTOCOL' Class generated by %fm2class version 2.56 This file contains the orderables and methods for accomplishing orders (protocols) within OE/RR. persistent _PUBLIC 0 RowId PROTOCOL_101 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.531361725 67178,44714.92672817 right PROTOCOL 101 2.56 12/04/2024 12:25:14 1 1 IEN 1 Foreign Key constraint for Variable Pointer reference field FILE_LINK_ACTION_TYPES FILELINKACTIONTYPES VALIP.prosthetic.fm2cw.REQUESTACTIONTYPES1231 FKey_FILE_LINK_ACTION_TYPES Foreign Key constraint for Variable Pointer reference field FILE_LINK_EXECUTE_CODE FILELINKEXECUTECODE VALIP.prosthetic.fm2cw.EXECUTECODE6207 FKey_FILE_LINK_EXECUTE_CODE Foreign Key constraint for Variable Pointer reference field FILE_LINK_LAB FILELINKLAB VALIP.prosthetic.fm2cw.LABORATORYTEST60 FKey_FILE_LINK_LAB Foreign Key constraint for Variable Pointer reference field FILE_LINK_OPTION FILELINKOPTION VALIP.prosthetic.fm2cw.OPTION19 FKey_FILE_LINK_OPTION Foreign Key constraint for Variable Pointer reference field FILE_LINK_RADIOLOGY_PROCEDURE FILELINKRADIOLOGYPROCEDURE VALIP.prosthetic.fm2cw.RADNUCMEDPROCEDURES71 FKey_FILE_LINK_RADIOLOGY_PROCEDURE Foreign Key constraint for Variable Pointer reference field FILE_LINK_SAMPLE FILELINKSAMPLE VALIP.prosthetic.fm2cw.COLLECTIONSAMPLE62 FKey_FILE_LINK_SAMPLE Foreign Key constraint for Variable Pointer reference field FILE_LINK_SERVICE FILELINKSERVICE VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 FKey_FILE_LINK_SERVICE Foreign Key constraint for Variable Pointer reference field FILE_LINK_SPECIMEN FILELINKSPECIMEN VALIP.prosthetic.fm2cw.TOPOGRAPHYFIELD61 FKey_FILE_LINK_SPECIMEN Foreign Key constraint for Variable Pointer reference field FILE_LINK_URGENCY FILELINKURGENCY VALIP.prosthetic.fm2cw.URGENCY6205 FKey_FILE_LINK_URGENCY FileMan Field Label: 'ACK MODE SET IN SUBSCRIBER' FileMan Field Number: '773.5' A 'YES' of this field will indicate that MSH-15 and MSH-16 will be taken from Subscriber protocol instead of the value(s) defined in Event driver protocol. %Library.EnumString 67 ACK_MODE_SET_IN_SUBSCRIBER FileMan Field Label: 'BATCH/FILE MESSAGE COMMIT ACK' FileMan Field Number: '770.14' In a bi-directional interface, this field will be used to determine whether or not a Batch or File message should send or receive a Commit Acknowledgement. A Batch or File message will always send/receive an Application Ack. This feature is non-standard according to HL7. It is needed to insure the receipt of a message. %Library.EnumString 57 BATCHFILE_MESSAGE_COMMIT_ACK FileMan Field Label: 'COLUMN WIDTH' FileMan Field Number: '41' This is the width, in characters, for each column on a menu. For example, to have 3 columns on an 80 character device, enter a column width of 26. %Library.Numeric 39 COLUMN_WIDTH FileMan Field Label: 'COST' FileMan Field Number: '8' This is the cost of filling the order associated with this protocol. %Library.Numeric 22 COST FileMan Field Label: 'DATE/TIME OF MESSAGE REQUIRED?' FileMan Field Number: '773.4' %Library.EnumString 66 DATETIME_OF_MESSAGE_REQUIRED FileMan Field Label: 'DEFAULT ANSWER' FileMan Field Number: '101.043' For a term protocol, this is the default answer that is automatically used when the term is used as an item in a dialog. The default may be modified at the item level. %Library.String 53 DEFAULT_ANSWER FileMan Field Label: 'DEFAULT HELP' FileMan Field Number: '101.044' For a term protocol, this is the help text that is automatically used when the term is used as an item in a dialog. The help text may be replaced at the item level. %Library.String 55 DEFAULT_HELP FileMan Field Label: 'DEFAULT PROMPT' FileMan Field Number: '101.042' For this term, this is the prompt that is automatically used when the term is used as an item in a dialog. The prompt may be modified at the item level. %Library.String 52 DEFAULT_PROMPT FileMan Field Label: 'DEFAULT WORD PROCESSING ANSWER' FileMan Field Number: '101.0431' This is text used as a template for an item in a dialog that is a word processing type. %Library.String 54 DEFAULT_WORD_PROCESSING_ANSWER FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '3.5' This field contains a brief explanation of the protocol. %Library.String 8 DESCRIPTION FileMan Field Label: 'DIC {DIC}' FileMan Field Number: '30' This field is used as the global reference passed to ^DIC for a file look-up. The entry should be in the regular format for a call to ^DIC i.e. ^GL(41, %Library.String 1 38 s {DIC_DIC}=$e({NODE_30},1,64) 1 DIC_DIC FileMan Field Label: 'DISABLE' FileMan Field Number: '2' This field disables use of the protocol when there is text in it. The text should be a short message explaining why use of the protocol has been disabled, as it will be displayed if the protocol is selected. %Library.String 6 DISABLE FileMan Field Label: 'DOMAIN (DATA TYPE)' FileMan Field Number: '101.041' This is the data type of a term (i.e. protocol of type term) used in a dialog. %Library.EnumString 51 DOMAIN_DATA_TYPE FileMan Field Label: 'DOMAIN PARAMETER' FileMan Field Number: '101.045' This is a parameter that may be used to further specify the data type (i.e. input transform) for a term protocol. The parameter is what would be placed in the second up-arrow piece of DIR(0) when calling the reader. %Library.String 56 DOMAIN_PARAMETER FileMan Field Label: 'ENTRY ACTION' FileMan Field Number: '20' This field contains MUMPS code which will be executed on entering this option. It is applicable to Menu and Action types. %Library.String 1 26 s {ENTRY_ACTION}=$e({NODE_20},1,245) 1 ENTRY_ACTION FileMan Field Label: 'EXIT ACTION' FileMan Field Number: '15' This field contains MUMPS code which will be executed on leaving this option. It is only applicable to Menu types. %Library.String 1 24 s {EXIT_ACTION}=$e({NODE_15},1,245) 1 EXIT_ACTION FileMan Field Label: 'FILE LINK' FileMan Field Number: '6' This field is a variable pointer which may point to the entry in a file to which a protocol is linked. %Library.String 11 1 FILELINKOPTION,FILELINKLAB,FILELINKSPECIMEN,FILELINKSAMPLE,FILELINKURGENCY,FILELINKEXECUTECODE,FILELINKRADIOLOGYPROCEDURE,FILELINKACTIONTYPES,FILELINKSERVICE FILE_LINK Variable Pointer Reference Field for Pointer field ACTION_TYPES 'REQUEST ACTION TYPES' VALIP.prosthetic.fm2cw.REQUESTACTIONTYPES1231 19 1 FILE_LINK_ACTION_TYPES ACTION TYPE This file contains the tracking actions which may be taken to track a Consult or Request order from its entry in CPRS through its resolution. This file also contains relationships of CPRS statuses which are the result of the action taken.]]> %Library.String 1 ACTION_TYPE into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_ACTION_TYPES_ACTION_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_ACTION_TYPES_ACTION_TYPE 1 Variable Pointer Reference Field for Pointer field EXECUTE_CODE 'EXECUTE CODE' VALIP.prosthetic.fm2cw.EXECUTECODE6207 17 1 FILE_LINK_EXECUTE_CODE NAME The user given name of the code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_EXECUTE_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_EXECUTE_CODE_NAME 1 Variable Pointer Reference Field for Pointer field LAB 'LABORATORY TEST' VALIP.prosthetic.fm2cw.LABORATORYTEST60 13 1 FILE_LINK_LAB NAME This is the name of the Laboratory test you are defining in this entry.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_LAB_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_LAB_NAME 1 Variable Pointer Reference Field for Pointer field OPTION 'OPTION' VALIP.prosthetic.fm2cw.OPTION19 12 1 FILE_LINK_OPTION NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_OPTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_OPTION_NAME 1 Variable Pointer Reference Field for Pointer field RADIOLOGY_PROCEDURE 'RAD/NUC MED PROCEDURES' VALIP.prosthetic.fm2cw.RADNUCMEDPROCEDURES71 18 1 FILE_LINK_RADIOLOGY_PROCEDURE NAME NAME OF THE RAD/NUC MED PROCEDURE This field contains the name (3-60 characters) of this rad/nuc med procedure. The first thirty characters of the procedure name must be unique. The semicolon (';') and the caret ('^') are not allowed as characters.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_RADIOLOGY_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_RADIOLOGY_PROCEDURE_NAME 1 Variable Pointer Reference Field for Pointer field SAMPLE 'COLLECTION SAMPLE' VALIP.prosthetic.fm2cw.COLLECTIONSAMPLE62 15 1 FILE_LINK_SAMPLE NAME The name of the collection sample.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_SAMPLE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_SAMPLE_NAME 1 Variable Pointer Reference Field for Pointer field SERVICE 'REQUEST SERVICES' VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 20 1 FILE_LINK_SERVICE SERVICE NAME This is the Name of a service or specialty which may receive consult/ requests. This may also be a name which represents a group of services]]> %Library.String 1 SERVICE_NAME into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_SERVICE_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_SERVICE_SERVICE_NAME 1 Variable Pointer Reference Field for Pointer field SPECIMEN 'TOPOGRAPHY FIELD' VALIP.prosthetic.fm2cw.TOPOGRAPHYFIELD61 14 1 FILE_LINK_SPECIMEN NAME The name of the specimen or source.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_SPECIMEN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_SPECIMEN_NAME 1 Variable Pointer Reference Field for Pointer field URGENCY 'URGENCY' VALIP.prosthetic.fm2cw.URGENCY6205 16 1 FILE_LINK_URGENCY URGENCY The name of the urgency status.]]> %Library.String 1 URGENCY into :val from VALIP_prosthetic_fm2cw.PROTOCOL_101 where %ID=:id) set {FILE_LINK_URGENCY_URGENCY}=$select(SQLCODE=0:val,1:"")]]> 1 FILE_LINK_URGENCY_URGENCY 1 Variable Pointer Value Field for Pointer field FILE_LINK %Library.String 1 21 if {FILE_LINK_OPTION_NAME}'="" { set {*}={FILE_LINK_OPTION_NAME} quit } if {FILE_LINK_LAB_NAME}'="" { set {*}={FILE_LINK_LAB_NAME} quit } if {FILE_LINK_SPECIMEN_NAME}'="" { set {*}={FILE_LINK_SPECIMEN_NAME} quit } if {FILE_LINK_SAMPLE_NAME}'="" { set {*}={FILE_LINK_SAMPLE_NAME} quit } if {FILE_LINK_URGENCY_URGENCY}'="" { set {*}={FILE_LINK_URGENCY_URGENCY} quit } if {FILE_LINK_EXECUTE_CODE_NAME}'="" { set {*}={FILE_LINK_EXECUTE_CODE_NAME} quit } if {FILE_LINK_RADIOLOGY_PROCEDURE_NAME}'="" { set {*}={FILE_LINK_RADIOLOGY_PROCEDURE_NAME} quit } if {FILE_LINK_ACTION_TYPES_ACTION_TYPE}'="" { set {*}={FILE_LINK_ACTION_TYPES_ACTION_TYPE} quit } if {FILE_LINK_SERVICE_SERVICE_NAME}'="" { set {*}={FILE_LINK_SERVICE_SERVICE_NAME} quit } set {*}="" 1 FILE_LINK_VALUE FileMan Field Label: 'HEADER' FileMan Field Number: '26' In the case of menus (type M or Q), this contains MUMPS code that is executed to display a header for the menu. %Library.String 1 30 s {HEADER}=$e({NODE_26},1,245) 1 HEADER FileMan Field Label: 'IDENTIFIER' FileMan Field Number: '44' Entries into this file can be given identifiers to show context, function and/or relationships. For example, Digoxin may exist in the file as three different entries with identifiers of SERUM, PLASMA and Drug. %Library.String 42 IDENTIFIER Internal Entry Number %Library.String $$next^%apiSQL("$p(^ORD(101,0),""^"",3)") 1 2 IEN FileMan Field Label: 'ITEM TEXT' FileMan Field Number: '1' The protocol's text as it appears to the user on the menu or subheader. %Library.String 4 ITEM_TEXT FileMan Field Label: 'LOCK' FileMan Field Number: '3' The name of the key required of the user to access this option This field is used to deny access to users who have this option as part of their menu. If an option has a lock, then only users who hold the matching key can access it. %Library.String 7 LOCK FileMan Field Label: 'MENU DEFAULT' FileMan Field Number: '29' This field contains a default response (i.e., default selection from the menu), if desired. %Library.String 1 36 s {MENU_DEFAULT}=$e({NODE_29},1,245) 1 MENU_DEFAULT FileMan Field Label: 'MENU HELP' FileMan Field Number: '27' This contains MUMPS code that displays additional help to that already given with the menu. %Library.String 1 32 s {MENU_HELP}=$e({NODE_27},1,245) 1 MENU_HELP FileMan Field Label: 'MENU PROMPT' FileMan Field Number: '28' This contains text to replace the standard "Select Item: " prompt normally given with a menu. %Library.String 1 34 s {MENU_PROMPT}=$e({NODE_28},1,245) 1 MENU_PROMPT FileMan Field Label: 'MNEMONIC WIDTH' FileMan Field Number: '42' This field allows the width allowed for mnemonics to be varied. The default width is 5. %Library.Numeric 40 MNEMONIC_WIDTH FileMan Field Label: 'NAME' FileMan Field Number: '.01' A unique name, which is preceded by the package namespace. %Library.String 1 3 NAME Computed Field For Node 100 %Library.String 1 44 s {NODE_100}=$g(^ORD(101,{IEN},100)) 1 NODE_100 Computed Field For Node 100.1 %Library.String 1 46 s {NODE_100_1}=$g(^ORD(101,{IEN},100.1)) 1 NODE_100_1 Computed Field For Node 100.2 %Library.String 1 48 s {NODE_100_2}=$g(^ORD(101,{IEN},100.2)) 1 NODE_100_2 Computed Field For Node 15 %Library.String 1 23 s {NODE_15}=$g(^ORD(101,{IEN},15)) 1 NODE_15 Computed Field For Node 20 %Library.String 1 25 s {NODE_20}=$g(^ORD(101,{IEN},20)) 1 NODE_20 Computed Field For Node 24 %Library.String 1 27 s {NODE_24}=$g(^ORD(101,{IEN},24)) 1 NODE_24 Computed Field For Node 26 %Library.String 1 29 s {NODE_26}=$g(^ORD(101,{IEN},26)) 1 NODE_26 Computed Field For Node 27 %Library.String 1 31 s {NODE_27}=$g(^ORD(101,{IEN},27)) 1 NODE_27 Computed Field For Node 28 %Library.String 1 33 s {NODE_28}=$g(^ORD(101,{IEN},28)) 1 NODE_28 Computed Field For Node 29 %Library.String 1 35 s {NODE_29}=$g(^ORD(101,{IEN},29)) 1 NODE_29 Computed Field For Node 30 %Library.String 1 37 s {NODE_30}=$g(^ORD(101,{IEN},30)) 1 NODE_30 Computed Field For Node 771 %Library.String 1 59 s {NODE_771}=$g(^ORD(101,{IEN},771)) 1 NODE_771 Computed Field For Node 772 %Library.String 1 61 s {NODE_772}=$g(^ORD(101,{IEN},772)) 1 NODE_772 Computed Field For Node 774 %Library.String 1 68 s {NODE_774}=$g(^ORD(101,{IEN},774)) 1 NODE_774 FileMan Field Label: '*ORDER CANCEL ACTION' FileMan Field Number: '100.1' ***NOTICE- THIS FIELD WILL BE REMOVED IN A FUTURE VERSION*** Package action when an order is cancelled or discontinued. Included in this file for backward compatability with earlier versions of OE/RR. %Library.String 1 47 s {ORDER_CANCEL_ACTION}=$e({NODE_100_1},1,245) 1 ORDER_CANCEL_ACTION FileMan Field Label: '*ORDER PRINT ACTION' FileMan Field Number: '100' ***NOTICE- THIS FIELD WILL BE REMOVED IN A FUTURE VERSION*** Package action when a detailed listing of an order is requested. Included in this file for backward compatability with earlier versions of OE/RR. %Library.String 1 45 s {ORDER_PRINT_ACTION}=$e({NODE_100},1,245) 1 ORDER_PRINT_ACTION FileMan Field Label: '*ORDER PURGE ACTION' FileMan Field Number: '100.2' ***NOTICE- THIS FIELD WILL BE REMOVED IN A FUTURE VERSION*** Package action when an order is to be purged from file 100. Included in this file for backward compatability with earlier versions of OE/RR. %Library.String 1 49 s {ORDER_PURGE_ACTION}=$e({NODE_100_2},1,245) 1 ORDER_PURGE_ACTION FileMan Field Label: 'PATH SWITCH' FileMan Field Number: '43' This allows the user, when traversing back UP the tree of protocols, to select a new path back down the tree. In other words, the menu is redisplayed when returning to that menu's level in the tree, and processing back down the tree is possible from that point. If nothing is selected from the menu, the path continues back up the tree. %Library.EnumString 41 PATH_SWITCH FileMan Field Label: 'PRINT NAME' FileMan Field Number: '1.11' This is a shortened version of the item text to be used on print-outs where the name must be abbreviated. %Library.String 5 PRINT_NAME FileMan Field Label: 'PROCESSING ID' FileMan Field Number: '770.6' This field describes how a message should be processed once it is handed off to the receiving application. PROCESSING ID is a required field in the HL7 message header. However, the Event Driver protocol entry is only used whenset to DEBUG. Data for the header is normally derived from the HL COMMUNICATION SERVER FILE. If testing a transaction in Debug mode, make sure it is changed on both the sending and receiving system. The receiving application developer should consider checking this portion of the header before filing data on a production system. Training and Debug messages may not be suitable for filing. %Library.EnumString 58 PROCESSING_ID FileMan Field Label: 'PROCESSING ROUTINE' FileMan Field Number: '771' This field is executed on the receiving system. It defines the routine used to process the original inbound message in a transaction and to GENERATE and APPLICATION response/ACK back to the sending system using the entry point, GENACK^HLMA1. %Library.String 1 60 s {PROCESSING_ROUTINE}=$e({NODE_771},1,245) 1 PROCESSING_ROUTINE FileMan Field Label: 'PROHIBITED TIMES' FileMan Field Number: '3.9' This specifies a time range during which this option cannot be accessed. The time should be entered in military format. For example, to prohibit an option from running between 9 AM and 2 PM, enter 0900-1400. %Library.String 9 PROHIBITED_TIMES FileMan Field Label: 'RECEIVING FACILITY REQUIRED?' FileMan Field Number: '773.2' %Library.EnumString 64 RECEIVING_FACILITY_REQUIRED FileMan Field Label: 'REQUIRES SIGNATURE' FileMan Field Number: '101.01' This field is used to specify an orderable/protocol that does not require a physician signature in OE/RR. Some of the things entered in OE/RR are considered instructions and don't require physician signature. An example of this might be an entry for an Early/Late tray. %Library.EnumString 50 REQUIRES_SIGNATURE FileMan Field Label: 'RESPONSE PROCESSING ROUTINE' FileMan Field Number: '772' This field is executed on the sending system when an Acknowledgement or Query response is received. The message ID of the original message is always contained within the response. This is used to identify the location of the original message and the corresponding event point protocol. Note that this pertains to Original and Enhanced Mode Application Acks only. The HL7 package generates and processes Enhanced mode Commit Accepts internally. %Library.String 1 62 s {RESPONSE_PROCESSING_ROUTINE}=$e({NODE_772},1,245) 1 RESPONSE_PROCESSING_ROUTINE FileMan Field Label: 'ROUTING LOGIC' FileMan Field Number: '774' M code in this field is executed only when a message is in an OUTBOUND state. Normally, Vista HL7 'broadcasts' a message to all subscribers whenever a message is generated. However, in some cases, a client may need to receive the message only if it matches a particular condition. This field allows you to set up screening logic to interpret the message and dynamically address the message to those interested in the data when it meets these conditions. The output of your routing logic routine should be the creation of a list of additional message recipients set into the HLL("LINKS") array. For details on dynamic addressing, see the documentation for HL*1.6*14. %Library.String 1 69 s {ROUTING_LOGIC}=$e({NODE_774},1,245) 1 ROUTING_LOGIC FileMan Field Label: 'SCREEN' FileMan Field Number: '24' This field contains MUMPS code that screens out menu items or the execution of particular items in a protocol. Before each item is displayed or executed, the screen is executed and the item is only processed if $T is true. %Library.String 1 28 s {SCREEN}=$e({NODE_24},1,245) 1 SCREEN FileMan Field Label: 'SECURITY REQUIRED?' FileMan Field Number: '773.3' %Library.EnumString 65 SECURITY_REQUIRED FileMan Field Label: 'SENDING FACILITY REQUIRED?' FileMan Field Number: '773.1' %Library.EnumString 63 SENDING_FACILITY_REQUIRED FileMan Field Label: 'TIMESTAMP' FileMan Field Number: '99' This contains the $H time that fields which are necessary to menu display were last changed. %Library.String 43 TIMESTAMP FileMan Field Label: 'TYPE' FileMan Field Number: '4' This field defines the type of protocol to be executed. Types Q, O, and L are strictly related to the 'Add orders' function. Q = Protocol menu - used for displaying and selecting orderable items during the add sequence. When this type of protocol is encountered OE/RR will ask the 'Select PATIENT:,' 'LOCATION:,' 'Provider:' prompts and execute the transaction logic for the new orders screen. This is also true for type O and L. O = Protocol - same as Q but the protocol is the item selected. Protocols are directly executed when encountered. L = Limited protocol - same as O but any existing sub-items are not executed. M = Menu - used for displaying and selecting items. X = Extended action - protocols of this type execute the entry action plus all sub-items. A = Action - same as X but any existing sub-items are not executed. X = Extended action - protocols of this type execute the entry action plus all sub-items. A = Action - same as X but any existing sub-items are not executed. %Library.EnumString 10 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 70 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^ORD(101," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(101,"+1,",.01)={"NAME"} set:{ITEM_TEXT}'="" FDA(101,"+1,",1)={"ITEM_TEXT"} set:{PRINT_NAME}'="" FDA(101,"+1,",1.11)={"PRINT_NAME"} set:{DISABLE}'="" FDA(101,"+1,",2)={"DISABLE"} set:{LOCK}'="" FDA(101,"+1,",3)={"LOCK"} set:{PROHIBITED_TIMES}'="" FDA(101,"+1,",3.9)={"PROHIBITED_TIMES"} set:{TYPE}'="" FDA(101,"+1,",4)={"TYPE"} set:{FILE_LINK}'="" FDA(101,"+1,",6)={"FILE_LINK"} set:{COST}'="" FDA(101,"+1,",8)={"COST"} set:{COLUMN_WIDTH}'="" FDA(101,"+1,",41)={"COLUMN_WIDTH"} set:{MNEMONIC_WIDTH}'="" FDA(101,"+1,",42)={"MNEMONIC_WIDTH"} set:{PATH_SWITCH}'="" FDA(101,"+1,",43)={"PATH_SWITCH"} set:{IDENTIFIER}'="" FDA(101,"+1,",44)={"IDENTIFIER"} set:{TIMESTAMP}'="" FDA(101,"+1,",99)={"TIMESTAMP"} set:{REQUIRES_SIGNATURE}'="" FDA(101,"+1,",101.01)={"REQUIRES_SIGNATURE"} set:{DOMAIN_DATA_TYPE}'="" FDA(101,"+1,",101.041)={"DOMAIN_DATA_TYPE"} set:{DEFAULT_PROMPT}'="" FDA(101,"+1,",101.042)={"DEFAULT_PROMPT"} set:{DEFAULT_ANSWER}'="" FDA(101,"+1,",101.043)={"DEFAULT_ANSWER"} set:{DEFAULT_HELP}'="" FDA(101,"+1,",101.044)={"DEFAULT_HELP"} set:{DOMAIN_PARAMETER}'="" FDA(101,"+1,",101.045)={"DOMAIN_PARAMETER"} set:{BATCHFILE_MESSAGE_COMMIT_ACK}'="" FDA(101,"+1,",770.14)={"BATCHFILE_MESSAGE_COMMIT_ACK"} set:{PROCESSING_ID}'="" FDA(101,"+1,",770.6)={"PROCESSING_ID"} set:{SENDING_FACILITY_REQUIRED}'="" FDA(101,"+1,",773.1)={"SENDING_FACILITY_REQUIRED"} set:{RECEIVING_FACILITY_REQUIRED}'="" FDA(101,"+1,",773.2)={"RECEIVING_FACILITY_REQUIRED"} set:{SECURITY_REQUIRED}'="" FDA(101,"+1,",773.3)={"SECURITY_REQUIRED"} set:{DATETIME_OF_MESSAGE_REQUIRED}'="" FDA(101,"+1,",773.4)={"DATETIME_OF_MESSAGE_REQUIRED"} set:{ACK_MODE_SET_IN_SUBSCRIBER}'="" FDA(101,"+1,",773.5)={"ACK_MODE_SET_IN_SUBSCRIBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(101)") set %SkipFiling=1 if $d(%FMERR(101,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(101,{RowId},3.5,,"wp","%FMERR(101)") if $d(%FMERR(101,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {DEFAULT_WORD_PROCESSING_ANSWER}'="" { set D0={RowId} for i=1:1:$l({DEFAULT_WORD_PROCESSING_ANSWER},$c(13,10)) { set wp(i)=$p({DEFAULT_WORD_PROCESSING_ANSWER},$c(13,10),i) } do WP^DIE(101,{RowId},101.0431,,"wp","%FMERR(101)") if $d(%FMERR(101,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(101,IENS,.01)={NAME} set:{ITEM_TEXT*C} FDA(101,IENS,1)={ITEM_TEXT} set:{PRINT_NAME*C} FDA(101,IENS,1.11)={PRINT_NAME} set:{DISABLE*C} FDA(101,IENS,2)={DISABLE} set:{LOCK*C} FDA(101,IENS,3)={LOCK} set:{PROHIBITED_TIMES*C} FDA(101,IENS,3.9)={PROHIBITED_TIMES} set:{TYPE*C} FDA(101,IENS,4)={TYPE} set:{FILE_LINK*C} FDA(101,IENS,6)={FILE_LINK} set:{COST*C} FDA(101,IENS,8)={COST} set:{COLUMN_WIDTH*C} FDA(101,IENS,41)={COLUMN_WIDTH} set:{MNEMONIC_WIDTH*C} FDA(101,IENS,42)={MNEMONIC_WIDTH} set:{PATH_SWITCH*C} FDA(101,IENS,43)={PATH_SWITCH} set:{IDENTIFIER*C} FDA(101,IENS,44)={IDENTIFIER} set:{TIMESTAMP*C} FDA(101,IENS,99)={TIMESTAMP} set:{REQUIRES_SIGNATURE*C} FDA(101,IENS,101.01)={REQUIRES_SIGNATURE} set:{DOMAIN_DATA_TYPE*C} FDA(101,IENS,101.041)={DOMAIN_DATA_TYPE} set:{DEFAULT_PROMPT*C} FDA(101,IENS,101.042)={DEFAULT_PROMPT} set:{DEFAULT_ANSWER*C} FDA(101,IENS,101.043)={DEFAULT_ANSWER} set:{DEFAULT_HELP*C} FDA(101,IENS,101.044)={DEFAULT_HELP} set:{DOMAIN_PARAMETER*C} FDA(101,IENS,101.045)={DOMAIN_PARAMETER} set:{BATCHFILE_MESSAGE_COMMIT_ACK*C} FDA(101,IENS,770.14)={BATCHFILE_MESSAGE_COMMIT_ACK} set:{PROCESSING_ID*C} FDA(101,IENS,770.6)={PROCESSING_ID} set:{SENDING_FACILITY_REQUIRED*C} FDA(101,IENS,773.1)={SENDING_FACILITY_REQUIRED} set:{RECEIVING_FACILITY_REQUIRED*C} FDA(101,IENS,773.2)={RECEIVING_FACILITY_REQUIRED} set:{SECURITY_REQUIRED*C} FDA(101,IENS,773.3)={SECURITY_REQUIRED} set:{DATETIME_OF_MESSAGE_REQUIRED*C} FDA(101,IENS,773.4)={DATETIME_OF_MESSAGE_REQUIRED} set:{ACK_MODE_SET_IN_SUBSCRIBER*C} FDA(101,IENS,773.5)={ACK_MODE_SET_IN_SUBSCRIBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(101)") set %SkipFiling=1 if $d(%FMERR(101,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(101,{RowId},3.5,,wproot,"%FMERR(101)") if $d(%FMERR(101,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {DEFAULT_WORD_PROCESSING_ANSWER*C} { set D0={RowId} kill wp if {DEFAULT_WORD_PROCESSING_ANSWER}'="" { set wproot="wp" for i=1:1:$l({DEFAULT_WORD_PROCESSING_ANSWER},$c(13,10)) { set wp(i)=$p({DEFAULT_WORD_PROCESSING_ANSWER},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(101,{RowId},101.0431,,wproot,"%FMERR(101)") if $d(%FMERR(101,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(101)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.PROTOCOL101S index {FILE_LINK}'="" 1 ^ORD conditional 101 "AE" $$TRUNCATE({FILE_LINK},30)) {IEN} 0]]> index ^ORD nonnull 101 "B" {NAME} {IEN} 0]]> data ^ORD 101 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 773 5 "^" 770 14 "^" 4 1 "^" 5 2 "^" 773 4 "^" 101.04 3 "^" 101.04 4 "^" 101.04 2 101.0431 new data,i,node set {DEFAULT_WORD_PROCESSING_ANSWER}="" merge data=^ORD(101,{S2},101.0431) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DEFAULT_WORD_PROCESSING_ANSWER}={DEFAULT_WORD_PROCESSING_ANSWER}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 1 new data,i,node set {DESCRIPTION}="" merge data=^ORD(101,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 3 "^" 101.04 1 "^" 101.04 5 "^" 5 1 If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="GMR(123.1," s {FILE_LINK_ACTION_TYPES}="" Quit s {FILE_LINK_ACTION_TYPES}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="LAB(62.07," s {FILE_LINK_EXECUTE_CODE}="" Quit s {FILE_LINK_EXECUTE_CODE}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="LAB(60," s {FILE_LINK_LAB}="" Quit s {FILE_LINK_LAB}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="DIC(19," s {FILE_LINK_OPTION}="" Quit s {FILE_LINK_OPTION}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="RAMIS(71," s {FILE_LINK_RADIOLOGY_PROCEDURE}="" Quit s {FILE_LINK_RADIOLOGY_PROCEDURE}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="LAB(62," s {FILE_LINK_SAMPLE}="" Quit s {FILE_LINK_SAMPLE}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="GMR(123.5," s {FILE_LINK_SERVICE}="" Quit s {FILE_LINK_SERVICE}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="LAB(61," s {FILE_LINK_SPECIMEN}="" Quit s {FILE_LINK_SPECIMEN}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") If $p($p($g(^ORD({S1},{S2},5)),"^",1),";",2,999)'="LAB(62.05," s {FILE_LINK_URGENCY}="" Quit s {FILE_LINK_URGENCY}=$p($p($g(^ORD({S1},{S2},5)),"^",1),";") "^" 4 4 "^" 0 2 "^" 0 6 "^" 4 2 "^" 0 1 "^" 4 3 "^" .1 1 "^" 770 6 "^" 0 9 "^" 773 2 "^" 101.01 1 "^" 773 3 "^" 773 1 "^" 99 1 "^" 0 4 Generated class for FileMan File Number: '7' File Name: 'PROVIDER CLASS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId PROVIDER_CLASS_7 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.486452268 67178,44714.985032178 right PROVIDER CLASS 7 2.56 12/04/2024 12:25:14 1 1 IEN 1 FileMan Field Label: 'ABBREV. TITLE' FileMan Field Number: '1' %Library.String 4 ABBREV__TITLE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(7,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(7," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(7,"+1,",.01)={"NAME"} set:{ABBREV__TITLE}'="" FDA(7,"+1,",1)={"ABBREV__TITLE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(7)") set %SkipFiling=1 if $d(%FMERR(7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(7,IENS,.01)={NAME} set:{ABBREV__TITLE*C} FDA(7,IENS,1)={ABBREV__TITLE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(7)") set %SkipFiling=1 if $d(%FMERR(7,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(7)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.PROVIDERCLASS7S index ^DIC nonnull 7 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 7 "C" {ABBREV__TITLE} {IEN} 0]]> data ^DIC 7 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '700' File Name: 'PULMONARY FUNCTION TESTS' Class generated by %fm2class version 2.56 This file stores the data on Pulmonary Function Tests performed on the patient. persistent _PUBLIC 0 RowId PULMONARY_FUNCTION_TESTS_700 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.542814379 67178,44715.04473009 right PULMONARY FUNCTION TESTS 700 2.56 12/04/2024 12:25:15 1 1 IEN 1 NEW_PERSON_200]]> DELETERDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETER_DUZ NEW_PERSON_200]]> ENTERINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERING_DUZ REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER PFT_PREDICTED_VALUES_700_1]]> PREDICTEDVALUEFORMULASUSED VALIP.prosthetic.fm2cw.PFTPREDICTEDVALUES7001 FKey_PREDICTED_VALUE_FORMULAS_USED NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER NEW_PERSON_200]]> REFERRINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REFERRING_PHYSICIAN NEW_PERSON_200]]> REVIEWEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REVIEWED_BY NEW_PERSON_200]]> TECHNICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_TECHNICIAN NEW_PERSON_200]]> VERIFYINGDUZ VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFYING_DUZ HOSPITAL_LOCATION_44]]> WARDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_WARDCLINIC FileMan Field Label: 'BAROMETRIC PRESSURE' FileMan Field Number: '6' This field identifies the Barometric Pressure in Torr units at the time the PFT was done %Library.Numeric 10 BAROMETRIC_PRESSURE FileMan Field Label: 'COMMENTS AND RECOMMENDATIONS' FileMan Field Number: '30' This field identifies a word processing field which allows comments and recommendations to be entered by the interpreter. %Library.String 22 COMMENTS_AND_RECOMMENDATIONS FileMan Field Label: 'COSIGNER VALIDATION CODE' FileMan Field Number: '1501' %Library.String 39 COSIGNER_VALIDATION_CODE FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 52 CREATION_DATE FileMan Field Label: 'CURRENT BRONCHODILATOR' FileMan Field Number: '8' This field tells whether the patient had used a Bronchodilator within 4 hours of the test. %Library.EnumString 13 CURRENT_BRONCHODILATOR FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This field identifies the date/time of the Pulmonary Function tests. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DATE OF RELEASED' FileMan Field Number: '1507' %Library.FilemanTimeStamp 45 DATE_OF_RELEASED FileMan Field Label: 'DATE OF VERIFIED' FileMan Field Number: '1508' %Library.FilemanTimeStamp 46 DATE_OF_VERIFIED FileMan Field Label: 'DELETER DUZ' FileMan Field Number: '1512' VALIP.prosthetic.fm2cw.NEWPERSON200 50 DELETER_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {DELETER_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETER_DUZ_NAME 1 FileMan Field Label: 'DIFFUSING CAPACITY METHOD' FileMan Field Number: '37' This field identifies the Method used for the Diffusing Capacity (DLCO) Test. %Library.EnumString 27 DIFFUSING_CAPACITY_METHOD FileMan Field Label: 'DIFFUSION INTERPRETATION' FileMan Field Number: '26.5' %Library.String 20 DIFFUSION_INTERPRETATION FileMan Field Label: 'DLCO-SB' FileMan Field Number: '19' This field identifies the measured Diffusing Capacity. %Library.Numeric 16 DLCOSB FileMan Field Label: 'ENTERING DATE' FileMan Field Number: '1502' %Library.FilemanTimeStamp 40 ENTERING_DATE FileMan Field Label: 'ENTERING DUZ' FileMan Field Number: '1500' VALIP.prosthetic.fm2cw.NEWPERSON200 38 ENTERING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {ENTERING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERING_DUZ_NAME 1 FileMan Field Label: 'FLOWS INTERPRETATION' FileMan Field Number: '23.5' %Library.String 18 FLOWS_INTERPRETATION FileMan Field Label: 'FLOW STUDY MACHINE' FileMan Field Number: '35' This field identifies the type of machine used for the Flow Study. %Library.EnumString 26 FLOW_STUDY_MACHINE FileMan Field Label: 'FLOW VOLUME LOOP INTERP.' FileMan Field Number: '24.5' %Library.String 19 FLOW_VOLUME_LOOP_INTERP_ FileMan Field Label: 'FREE TEXT INTERPRETATION' FileMan Field Number: '33.5' This field identifies a word processing field which allows the Interpreter to enter Interpretation(s) in addition to, or instead of, the Computer Generated Interpretations. %Library.String 24 FREE_TEXT_INTERPRETATION FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 37 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'HEIGHT (CM)' FileMan Field Number: '2' This field identifies the Height of the patient in Centimeters. %Library.Numeric 6 HEIGHT_CM FileMan Field Label: 'HEIGHT (INCHES.TENTHS)' FileMan Field Number: '3' This field identifies the height of the patient in inches and tenths of inches. This value will be converted to Centimeters for the report. %Library.Numeric 7 HEIGHT_INCHES_TENTHS Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(700,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MARK FOR DELETION' FileMan Field Number: '1511' %Library.EnumString 49 MARK_FOR_DELETION FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the patient's name. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 5 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 36 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER REASON FOR STOPPING' FileMan Field Number: '41' %Library.String 32 OTHER_REASON_FOR_STOPPING FileMan Field Label: 'PATIENT EFFORT' FileMan Field Number: '39' This field indicates the patient effort: GOOD, EXCELLENT, or POOR. %Library.EnumString 30 PATIENT_EFFORT FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 35 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PREDICTED VALUE FORMULAS USED' FileMan Field Number: '28' This field identifies a pointer to the set of formulas used to calculate predicted values. VALIP.prosthetic.fm2cw.PFTPREDICTEDVALUES7001 21 PREDICTED_VALUE_FORMULAS_USED NAME This field identifies the name for the set of formulas used to calculate predicted values and corrections. Current entries are Male and Female.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {PREDICTED_VALUE_FORMULAS_USED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREDICTED_VALUE_FORMULAS_USED_NAME 1 FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 34 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This field identifies a required 79 character summary of the PFT. Will appear on the Summary of Patient Procedures. %Library.String 33 PROCEDURE_SUMMARY FileMan Field Label: 'RACE CORRECTIONS FOR RACE TYPE' FileMan Field Number: '38.5' If the 'USE RACE CORRECTIONS' is set to YES and the race value is both BLACK and ASIAN, this field will store which race type the race correction will be for. %Library.EnumString 29 RACE_CORRECTIONS_FOR_RACE_TYPE FileMan Field Label: 'REFERRING PHYSICIAN' FileMan Field Number: '10' This field refers to the Physician who ordered the PFT. VALIP.prosthetic.fm2cw.NEWPERSON200 15 REFERRING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {REFERRING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REFERRING_PHYSICIAN_NAME 1 FileMan Field Label: 'RELEASE REPORT' FileMan Field Number: '40' %Library.EnumString 31 RELEASE_REPORT FileMan Field Label: 'RELEASE STATUS' FileMan Field Number: '1506' %Library.EnumString 44 RELEASE_STATUS FileMan Field Label: 'REVIEWED BY' FileMan Field Number: '31' This field identifies the provider who reviewed the PFT. VALIP.prosthetic.fm2cw.NEWPERSON200 23 REVIEWED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {REVIEWED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REVIEWED_BY_NAME 1 FileMan Field Label: 'ROOM TEMPERATURE (CENTIGRADE)' FileMan Field Number: '6.5' This field identifies the room temperature in degrees centigrade at the time the PFT was done %Library.Numeric 11 ROOM_TEMPERATURE_CENTIGRADE FileMan Field Label: 'SIGNER VALIDATION CODE' FileMan Field Number: '1504' %Library.String 42 SIGNER_VALIDATION_CODE FileMan Field Label: 'SMOKER' FileMan Field Number: '7' This field tells whether the patient is a smoker or a non-smoker. %Library.EnumString 12 SMOKER Relationship for Sub-File/Multiple to file name BLOOD GAS child VALIP.prosthetic.fm2cw.SUBBLOODGAS70002 children PULMONARYFUNCTIONTESTS700 1 SUB_BLOOD_GAS_700_02 Relationship for Sub-File/Multiple to file name COMP. FLOW VOL. LOOP INTERP. child VALIP.prosthetic.fm2cw.SUBCOMPFLOWVOLLOOPINTERP700024 children PULMONARYFUNCTIONTESTS700 1 SUB_COMP__FLOW_VOL__LOOP_INTERP__700_024 Relationship for Sub-File/Multiple to file name COMP. GENERATED INTERPRETATION child VALIP.prosthetic.fm2cw.SUBCOMPGENERATEDINTERPRETATION700033 children PULMONARYFUNCTIONTESTS700 1 SUB_COMP__GENERATED_INTERPRETATION_700_033 Relationship for Sub-File/Multiple to file name COMP. GEN. ABG INTERP. child VALIP.prosthetic.fm2cw.SUBCOMPGENABGINTERP700027 children PULMONARYFUNCTIONTESTS700 1 SUB_COMP__GEN__ABG_INTERP__700_027 Relationship for Sub-File/Multiple to file name COMP. GEN. DIFFUSION INTERP. child VALIP.prosthetic.fm2cw.SUBCOMPGENDIFFUSIONINTERP700026 children PULMONARYFUNCTIONTESTS700 1 SUB_COMP__GEN__DIFFUSION_INTERP__700_026 Relationship for Sub-File/Multiple to file name COMP. GEN. FLOWS INTERP. child VALIP.prosthetic.fm2cw.SUBCOMPGENFLOWSINTERP700023 children PULMONARYFUNCTIONTESTS700 1 SUB_COMP__GEN__FLOWS_INTERP__700_023 Relationship for Sub-File/Multiple to file name COMP. GEN. VOLUME INTERP. child VALIP.prosthetic.fm2cw.SUBCOMPGENVOLUMEINTERP700022 children PULMONARYFUNCTIONTESTS700 1 SUB_COMP__GEN__VOLUME_INTERP__700_022 Relationship for Sub-File/Multiple to file name CONSULT DX child VALIP.prosthetic.fm2cw.SUBCONSULTDX70001 children PULMONARYFUNCTIONTESTS700 1 SUB_CONSULT_DX_700_01 Relationship for Sub-File/Multiple to file name FLOWS STUDY child VALIP.prosthetic.fm2cw.SUBFLOWSSTUDY700018 children PULMONARYFUNCTIONTESTS700 1 SUB_FLOWS_STUDY_700_018 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS70005 children PULMONARYFUNCTIONTESTS700 1 SUB_ICD_DIAGNOSIS_700_05 Relationship for Sub-File/Multiple to file name IMPRESSION child VALIP.prosthetic.fm2cw.SUBIMPRESSION700029 children PULMONARYFUNCTIONTESTS700 1 SUB_IMPRESSION_700_029 Relationship for Sub-File/Multiple to file name INTERPRETATION BY child VALIP.prosthetic.fm2cw.SUBINTERPRETATIONBY700021 children PULMONARYFUNCTIONTESTS700 1 SUB_INTERPRETATION_BY_700_021 Relationship for Sub-File/Multiple to file name SPECIAL STUDY child VALIP.prosthetic.fm2cw.SUBSPECIALSTUDY700032 children PULMONARYFUNCTIONTESTS700 1 SUB_SPECIAL_STUDY_700_032 Relationship for Sub-File/Multiple to file name VOLUME STUDY child VALIP.prosthetic.fm2cw.SUBVOLUMESTUDY700017 children PULMONARYFUNCTIONTESTS700 1 SUB_VOLUME_STUDY_700_017 FileMan Field Label: 'SUMMARY' FileMan Field Number: '.03' This field identifies a brief summary of the PFT for use on the Summary of Patient Procedures and the Health Summary. The Results portion of OERR is expected to trigger off this field in the future. %Library.EnumString 4 SUMMARY FileMan Field Label: 'SUPERSEDED' FileMan Field Number: '1509' %Library.Numeric 47 SUPERSEDED FileMan Field Label: 'SUPERSEDED BY' FileMan Field Number: '1510' %Library.Numeric 48 SUPERSEDED_BY FileMan Field Label: 'SUPERSEDED DATE' FileMan Field Number: '1513' %Library.String 51 SUPERSEDED_DATE FileMan Field Label: 'SUPERSEDED NUMBER' FileMan Field Number: '1515' %Library.Numeric 53 SUPERSEDED_NUMBER FileMan Field Label: 'TECHNICIAN' FileMan Field Number: '34' This field identifies the Technician who performed the PFT. VALIP.prosthetic.fm2cw.NEWPERSON200 25 TECHNICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {TECHNICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TECHNICIAN_NAME 1 FileMan Field Label: 'USE RACE CORRECTIONS' FileMan Field Number: '38' This field allows the user to decide whether certain data should be race corrected. Used for Black or Oriental patients. %Library.EnumString 28 USE_RACE_CORRECTIONS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 54 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIER DATE' FileMan Field Number: '1505' %Library.FilemanTimeStamp 43 VERIFIER_DATE FileMan Field Label: 'VERIFYING DUZ' FileMan Field Number: '1503' VALIP.prosthetic.fm2cw.NEWPERSON200 41 VERIFYING_DUZ NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {VERIFYING_DUZ_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFYING_DUZ_NAME 1 FileMan Field Label: 'VOLUME INTERPRETATION' FileMan Field Number: '22.5' %Library.String 17 VOLUME_INTERPRETATION FileMan Field Label: 'WARD/CLINIC' FileMan Field Number: '9' This field will be a ward if the patient is an inpatient, a clinic if the patient is an outpatient. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 14 WARDCLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.PULMONARY_FUNCTION_TESTS_700 where %ID=:id) set {WARDCLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WARDCLINIC_NAME 1 FileMan Field Label: 'WEIGHT (KG)' FileMan Field Number: '5' This field identifies the weight of the patient in Kilograms. %Library.Numeric 9 WEIGHT_KG FileMan Field Label: 'WEIGHT (POUNDS.TENTHS)' FileMan Field Number: '4' This field identifies the weight of the patients in pounds and tenths of pounds. This value will be converted to Kilograms for the report. %Library.Numeric 8 WEIGHT_POUNDS_TENTHS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(700," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(700,"+1,",.01)={"DATETIME"} set:{SUMMARY}'="" FDA(700,"+1,",.03)={"SUMMARY"} set:{MEDICAL_PATIENT}'="" FDA(700,"+1,",1)={"MEDICAL_PATIENT"} set:{HEIGHT_CM}'="" FDA(700,"+1,",2)={"HEIGHT_CM"} set:{HEIGHT_INCHES_TENTHS}'="" FDA(700,"+1,",3)={"HEIGHT_INCHES_TENTHS"} set:{WEIGHT_POUNDS_TENTHS}'="" FDA(700,"+1,",4)={"WEIGHT_POUNDS_TENTHS"} set:{WEIGHT_KG}'="" FDA(700,"+1,",5)={"WEIGHT_KG"} set:{BAROMETRIC_PRESSURE}'="" FDA(700,"+1,",6)={"BAROMETRIC_PRESSURE"} set:{ROOM_TEMPERATURE_CENTIGRADE}'="" FDA(700,"+1,",6.5)={"ROOM_TEMPERATURE_CENTIGRADE"} set:{SMOKER}'="" FDA(700,"+1,",7)={"SMOKER"} set:{CURRENT_BRONCHODILATOR}'="" FDA(700,"+1,",8)={"CURRENT_BRONCHODILATOR"} set:{WARDCLINIC}'="" FDA(700,"+1,",9)={"WARDCLINIC"} set:{REFERRING_PHYSICIAN}'="" FDA(700,"+1,",10)={"REFERRING_PHYSICIAN"} set:{DLCOSB}'="" FDA(700,"+1,",19)={"DLCOSB"} set:{PREDICTED_VALUE_FORMULAS_USED}'="" FDA(700,"+1,",28)={"PREDICTED_VALUE_FORMULAS_USED"} set:{REVIEWED_BY}'="" FDA(700,"+1,",31)={"REVIEWED_BY"} set:{TECHNICIAN}'="" FDA(700,"+1,",34)={"TECHNICIAN"} set:{FLOW_STUDY_MACHINE}'="" FDA(700,"+1,",35)={"FLOW_STUDY_MACHINE"} set:{DIFFUSING_CAPACITY_METHOD}'="" FDA(700,"+1,",37)={"DIFFUSING_CAPACITY_METHOD"} set:{USE_RACE_CORRECTIONS}'="" FDA(700,"+1,",38)={"USE_RACE_CORRECTIONS"} set:{RACE_CORRECTIONS_FOR_RACE_TYPE}'="" FDA(700,"+1,",38.5)={"RACE_CORRECTIONS_FOR_RACE_TYPE"} set:{PATIENT_EFFORT}'="" FDA(700,"+1,",39)={"PATIENT_EFFORT"} set:{RELEASE_REPORT}'="" FDA(700,"+1,",40)={"RELEASE_REPORT"} set:{PROCEDURE_SUMMARY}'="" FDA(700,"+1,",600)={"PROCEDURE_SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(700,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(700,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(700,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(700,"+1,",1001)={"GMRCO"} set:{ENTERING_DUZ}'="" FDA(700,"+1,",1500)={"ENTERING_DUZ"} set:{COSIGNER_VALIDATION_CODE}'="" FDA(700,"+1,",1501)={"COSIGNER_VALIDATION_CODE"} set:{ENTERING_DATE}'="" FDA(700,"+1,",1502)={"ENTERING_DATE"} set:{VERIFYING_DUZ}'="" FDA(700,"+1,",1503)={"VERIFYING_DUZ"} set:{SIGNER_VALIDATION_CODE}'="" FDA(700,"+1,",1504)={"SIGNER_VALIDATION_CODE"} set:{VERIFIER_DATE}'="" FDA(700,"+1,",1505)={"VERIFIER_DATE"} set:{RELEASE_STATUS}'="" FDA(700,"+1,",1506)={"RELEASE_STATUS"} set:{DATE_OF_RELEASED}'="" FDA(700,"+1,",1507)={"DATE_OF_RELEASED"} set:{DATE_OF_VERIFIED}'="" FDA(700,"+1,",1508)={"DATE_OF_VERIFIED"} set:{SUPERSEDED}'="" FDA(700,"+1,",1509)={"SUPERSEDED"} set:{SUPERSEDED_BY}'="" FDA(700,"+1,",1510)={"SUPERSEDED_BY"} set:{MARK_FOR_DELETION}'="" FDA(700,"+1,",1511)={"MARK_FOR_DELETION"} set:{DELETER_DUZ}'="" FDA(700,"+1,",1512)={"DELETER_DUZ"} set:{SUPERSEDED_DATE}'="" FDA(700,"+1,",1513)={"SUPERSEDED_DATE"} set:{CREATION_DATE}'="" FDA(700,"+1,",1514)={"CREATION_DATE"} set:{SUPERSEDED_NUMBER}'="" FDA(700,"+1,",1515)={"SUPERSEDED_NUMBER"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(700)") set %SkipFiling=1 if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {VOLUME_INTERPRETATION}'="" { set D0={RowId} for i=1:1:$l({VOLUME_INTERPRETATION},$c(13,10)) { set wp(i)=$p({VOLUME_INTERPRETATION},$c(13,10),i) } do WP^DIE(700,{RowId},22.5,,"wp","%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FLOWS_INTERPRETATION}'="" { set D0={RowId} for i=1:1:$l({FLOWS_INTERPRETATION},$c(13,10)) { set wp(i)=$p({FLOWS_INTERPRETATION},$c(13,10),i) } do WP^DIE(700,{RowId},23.5,,"wp","%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FLOW_VOLUME_LOOP_INTERP_}'="" { set D0={RowId} for i=1:1:$l({FLOW_VOLUME_LOOP_INTERP_},$c(13,10)) { set wp(i)=$p({FLOW_VOLUME_LOOP_INTERP_},$c(13,10),i) } do WP^DIE(700,{RowId},24.5,,"wp","%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {DIFFUSION_INTERPRETATION}'="" { set D0={RowId} for i=1:1:$l({DIFFUSION_INTERPRETATION},$c(13,10)) { set wp(i)=$p({DIFFUSION_INTERPRETATION},$c(13,10),i) } do WP^DIE(700,{RowId},26.5,,"wp","%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENTS_AND_RECOMMENDATIONS}'="" { set D0={RowId} for i=1:1:$l({COMMENTS_AND_RECOMMENDATIONS},$c(13,10)) { set wp(i)=$p({COMMENTS_AND_RECOMMENDATIONS},$c(13,10),i) } do WP^DIE(700,{RowId},30,,"wp","%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FREE_TEXT_INTERPRETATION}'="" { set D0={RowId} for i=1:1:$l({FREE_TEXT_INTERPRETATION},$c(13,10)) { set wp(i)=$p({FREE_TEXT_INTERPRETATION},$c(13,10),i) } do WP^DIE(700,{RowId},33.5,,"wp","%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_REASON_FOR_STOPPING}'="" { set D0={RowId} for i=1:1:$l({OTHER_REASON_FOR_STOPPING},$c(13,10)) { set wp(i)=$p({OTHER_REASON_FOR_STOPPING},$c(13,10),i) } do WP^DIE(700,{RowId},41,,"wp","%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(700,IENS,.01)={DATETIME} set:{SUMMARY*C} FDA(700,IENS,.03)={SUMMARY} set:{MEDICAL_PATIENT*C} FDA(700,IENS,1)={MEDICAL_PATIENT} set:{HEIGHT_CM*C} FDA(700,IENS,2)={HEIGHT_CM} set:{HEIGHT_INCHES_TENTHS*C} FDA(700,IENS,3)={HEIGHT_INCHES_TENTHS} set:{WEIGHT_POUNDS_TENTHS*C} FDA(700,IENS,4)={WEIGHT_POUNDS_TENTHS} set:{WEIGHT_KG*C} FDA(700,IENS,5)={WEIGHT_KG} set:{BAROMETRIC_PRESSURE*C} FDA(700,IENS,6)={BAROMETRIC_PRESSURE} set:{ROOM_TEMPERATURE_CENTIGRADE*C} FDA(700,IENS,6.5)={ROOM_TEMPERATURE_CENTIGRADE} set:{SMOKER*C} FDA(700,IENS,7)={SMOKER} set:{CURRENT_BRONCHODILATOR*C} FDA(700,IENS,8)={CURRENT_BRONCHODILATOR} set:{WARDCLINIC*C} FDA(700,IENS,9)={WARDCLINIC} set:{REFERRING_PHYSICIAN*C} FDA(700,IENS,10)={REFERRING_PHYSICIAN} set:{DLCOSB*C} FDA(700,IENS,19)={DLCOSB} set:{PREDICTED_VALUE_FORMULAS_USED*C} FDA(700,IENS,28)={PREDICTED_VALUE_FORMULAS_USED} set:{REVIEWED_BY*C} FDA(700,IENS,31)={REVIEWED_BY} set:{TECHNICIAN*C} FDA(700,IENS,34)={TECHNICIAN} set:{FLOW_STUDY_MACHINE*C} FDA(700,IENS,35)={FLOW_STUDY_MACHINE} set:{DIFFUSING_CAPACITY_METHOD*C} FDA(700,IENS,37)={DIFFUSING_CAPACITY_METHOD} set:{USE_RACE_CORRECTIONS*C} FDA(700,IENS,38)={USE_RACE_CORRECTIONS} set:{RACE_CORRECTIONS_FOR_RACE_TYPE*C} FDA(700,IENS,38.5)={RACE_CORRECTIONS_FOR_RACE_TYPE} set:{PATIENT_EFFORT*C} FDA(700,IENS,39)={PATIENT_EFFORT} set:{RELEASE_REPORT*C} FDA(700,IENS,40)={RELEASE_REPORT} set:{PROCEDURE_SUMMARY*C} FDA(700,IENS,600)={PROCEDURE_SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(700,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(700,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(700,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(700,IENS,1001)={GMRCO} set:{ENTERING_DUZ*C} FDA(700,IENS,1500)={ENTERING_DUZ} set:{COSIGNER_VALIDATION_CODE*C} FDA(700,IENS,1501)={COSIGNER_VALIDATION_CODE} set:{ENTERING_DATE*C} FDA(700,IENS,1502)={ENTERING_DATE} set:{VERIFYING_DUZ*C} FDA(700,IENS,1503)={VERIFYING_DUZ} set:{SIGNER_VALIDATION_CODE*C} FDA(700,IENS,1504)={SIGNER_VALIDATION_CODE} set:{VERIFIER_DATE*C} FDA(700,IENS,1505)={VERIFIER_DATE} set:{RELEASE_STATUS*C} FDA(700,IENS,1506)={RELEASE_STATUS} set:{DATE_OF_RELEASED*C} FDA(700,IENS,1507)={DATE_OF_RELEASED} set:{DATE_OF_VERIFIED*C} FDA(700,IENS,1508)={DATE_OF_VERIFIED} set:{SUPERSEDED*C} FDA(700,IENS,1509)={SUPERSEDED} set:{SUPERSEDED_BY*C} FDA(700,IENS,1510)={SUPERSEDED_BY} set:{MARK_FOR_DELETION*C} FDA(700,IENS,1511)={MARK_FOR_DELETION} set:{DELETER_DUZ*C} FDA(700,IENS,1512)={DELETER_DUZ} set:{SUPERSEDED_DATE*C} FDA(700,IENS,1513)={SUPERSEDED_DATE} set:{CREATION_DATE*C} FDA(700,IENS,1514)={CREATION_DATE} set:{SUPERSEDED_NUMBER*C} FDA(700,IENS,1515)={SUPERSEDED_NUMBER} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700)") set %SkipFiling=1 if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {VOLUME_INTERPRETATION*C} { set D0={RowId} kill wp if {VOLUME_INTERPRETATION}'="" { set wproot="wp" for i=1:1:$l({VOLUME_INTERPRETATION},$c(13,10)) { set wp(i)=$p({VOLUME_INTERPRETATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700,{RowId},22.5,,wproot,"%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FLOWS_INTERPRETATION*C} { set D0={RowId} kill wp if {FLOWS_INTERPRETATION}'="" { set wproot="wp" for i=1:1:$l({FLOWS_INTERPRETATION},$c(13,10)) { set wp(i)=$p({FLOWS_INTERPRETATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700,{RowId},23.5,,wproot,"%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FLOW_VOLUME_LOOP_INTERP_*C} { set D0={RowId} kill wp if {FLOW_VOLUME_LOOP_INTERP_}'="" { set wproot="wp" for i=1:1:$l({FLOW_VOLUME_LOOP_INTERP_},$c(13,10)) { set wp(i)=$p({FLOW_VOLUME_LOOP_INTERP_},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700,{RowId},24.5,,wproot,"%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {DIFFUSION_INTERPRETATION*C} { set D0={RowId} kill wp if {DIFFUSION_INTERPRETATION}'="" { set wproot="wp" for i=1:1:$l({DIFFUSION_INTERPRETATION},$c(13,10)) { set wp(i)=$p({DIFFUSION_INTERPRETATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700,{RowId},26.5,,wproot,"%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {COMMENTS_AND_RECOMMENDATIONS*C} { set D0={RowId} kill wp if {COMMENTS_AND_RECOMMENDATIONS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS_AND_RECOMMENDATIONS},$c(13,10)) { set wp(i)=$p({COMMENTS_AND_RECOMMENDATIONS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700,{RowId},30,,wproot,"%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {FREE_TEXT_INTERPRETATION*C} { set D0={RowId} kill wp if {FREE_TEXT_INTERPRETATION}'="" { set wproot="wp" for i=1:1:$l({FREE_TEXT_INTERPRETATION},$c(13,10)) { set wp(i)=$p({FREE_TEXT_INTERPRETATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700,{RowId},33.5,,wproot,"%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OTHER_REASON_FOR_STOPPING*C} { set D0={RowId} kill wp if {OTHER_REASON_FOR_STOPPING}'="" { set wproot="wp" for i=1:1:$l({OTHER_REASON_FOR_STOPPING},$c(13,10)) { set wp(i)=$p({OTHER_REASON_FOR_STOPPING},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700,{RowId},41,,wproot,"%FMERR(700)") if $d(%FMERR(700,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.PULMONARYFU8441S index ^MCAR nonnull 700 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 700 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 700 "C" {MEDICAL_PATIENT} {IEN} 0]]> data ^MCAR 700 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 7 16 new data,i,node set {COMMENTS_AND_RECOMMENDATIONS}="" merge data=^MCAR(700,{S2},16) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS_AND_RECOMMENDATIONS}={COMMENTS_AND_RECOMMENDATIONS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "ES" 2 "^" "ES" 15 "^" 0 9 "^" 0 1 "^" "ES" 8 "^" "ES" 9 "^" "ES" 13 "^" 17 4 23 new data,i,node set {DIFFUSION_INTERPRETATION}="" merge data=^MCAR(700,{S2},23) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DIFFUSION_INTERPRETATION}={DIFFUSION_INTERPRETATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 5 1 "^" "ES" 3 "^" "ES" 1 21 new data,i,node set {FLOWS_INTERPRETATION}="" merge data=^MCAR(700,{S2},21) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {FLOWS_INTERPRETATION}={FLOWS_INTERPRETATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 17 2 22 new data,i,node set {FLOW_VOLUME_LOOP_INTERP_}="" merge data=^MCAR(700,{S2},22) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {FLOW_VOLUME_LOOP_INTERP_}={FLOW_VOLUME_LOOP_INTERP_}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 25 new data,i,node set {FREE_TEXT_INTERPRETATION}="" merge data=^MCAR(700,{S2},25) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {FREE_TEXT_INTERPRETATION}={FREE_TEXT_INTERPRETATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "OR" 2 "^" 0 3 "^" 0 4 "^" "ES" 12 "^" 0 2 "^" "OR" 1 19 new data,i,node set {OTHER_REASON_FOR_STOPPING}="" merge data=^MCAR(700,{S2},19) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_REASON_FOR_STOPPING}={OTHER_REASON_FOR_STOPPING}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 17 6 "^" "PCC" 1 "^" "PV" 1 "^" "PROV" 1 "^" .2 2 "^" 17 7 "^" 0 11 "^" 2 1 "^" "ES" 7 "^" 17 1 "^" 0 12 "^" "ES" 5 "^" 0 8 "^" .2 1 "^" "ES" 10 "^" "ES" 11 "^" "ES" 14 "^" "ES" 16 "^" 0 13 "^" 17 5 "^" "ES" 6 "^" "ES" 4 20 new data,i,node set {VOLUME_INTERPRETATION}="" merge data=^MCAR(700,{S2},20) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {VOLUME_INTERPRETATION}={VOLUME_INTERPRETATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 10 "^" 0 6 "^" 0 5 Generated class for FileMan File Number: '10' File Name: 'RACE' Class generated by %fm2class version 2.56 This file contains the list of valid races. The allowable entries are maintained by VA Central Office and, as such, alteration and/or addition of entries is not allowed. persistent _PUBLIC 0 RowId RACE_10 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.658137615 67178,44715.104077133 right RACE 10 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '2' This field contains the abbreviation for this race entry. This may appear on various outputs where there is insufficient room to print the entire name of the race. %Library.String 4 ABBREVIATION FileMan Field Label: 'CDC VALUE' FileMan Field Number: '4' The CDC representation of this race %Library.String 6 CDC_VALUE FileMan Field Label: 'HL7 VALUE' FileMan Field Number: '3' The HL7 representation of this race %Library.String 5 HL7_VALUE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(10,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVATION DATE' FileMan Field Number: '202' Date that this race became inactive %Library.FilemanDate 10 INACTIVATION_DATE FileMan Field Label: 'INACTIVE' FileMan Field Number: '200' This field is used to denote that this race value is no longer active. %Library.EnumString 9 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of a race as selectable during enter/edit of patient data information. These entries are distributed by the MAS module and entry or edit of any data elements contained in this file could have negative impacts on the performance of the MAS or other DHCP modules. %Library.String 1 3 NAME FileMan Field Label: 'PTF VALUE' FileMan Field Number: '5' The PTF represenation of this race %Library.String 7 PTF_VALUE FileMan Field Label: 'RACE NO.' FileMan Field Number: '101' %Library.Numeric 8 RACE_NO_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(10," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(10,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(10,"+1,",2)={"ABBREVIATION"} set:{HL7_VALUE}'="" FDA(10,"+1,",3)={"HL7_VALUE"} set:{CDC_VALUE}'="" FDA(10,"+1,",4)={"CDC_VALUE"} set:{PTF_VALUE}'="" FDA(10,"+1,",5)={"PTF_VALUE"} set:{RACE_NO_}'="" FDA(10,"+1,",101)={"RACE_NO_"} set:{INACTIVE}'="" FDA(10,"+1,",200)={"INACTIVE"} set:{INACTIVATION_DATE}'="" FDA(10,"+1,",202)={"INACTIVATION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(10)") set %SkipFiling=1 if $d(%FMERR(10,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(10)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(10,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(10,IENS,2)={ABBREVIATION} set:{HL7_VALUE*C} FDA(10,IENS,3)={HL7_VALUE} set:{CDC_VALUE*C} FDA(10,IENS,4)={CDC_VALUE} set:{PTF_VALUE*C} FDA(10,IENS,5)={PTF_VALUE} set:{RACE_NO_*C} FDA(10,IENS,101)={RACE_NO_} set:{INACTIVE*C} FDA(10,IENS,200)={INACTIVE} set:{INACTIVATION_DATE*C} FDA(10,IENS,202)={INACTIVATION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(10)") set %SkipFiling=1 if $d(%FMERR(10,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(10)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic.fm2cw.RACE10S index ^DIC nonnull 10 "AHL7" {HL7_VALUE} {IEN} 0]]> index {NAME}'="" 1 ^DIC conditional 10 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^DIC nonnull 10 "C" {ABBREVIATION} {IEN} 0]]> index ^DIC nonnull 10 "D" {RACE_NO_} {IEN} 0]]> data ^DIC 10 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 3 "^" .02 2 "^" .02 1 "^" 0 1 "^" 0 5 "^" 0 3 Generated class for FileMan File Number: '75.1' File Name: 'RAD/NUC MED ORDERS' Class generated by %fm2class version 2.56 This file contains all information pertaining to an imaging order entered for a patient. The file structure is like that of the Rad/Nuc Med Patient file. This imaging order file allows the storage of General Radiology, Nuclear Medicine, Magnetic Resonance Imaging, Computed Tomography, Ultrasound and other types of imaging modality data. Data Storage ------------ The data for 'RAD/NUC MED ORDERS' file is stored in the ^RAO(75.1,global.. This file is very volatile and should be journaled and translated if the operating system supports these two functions. Input Templates --------------- The following is a list of input templates used by the package and in the OPTIONS file (#19) that uses the template: Input Template Name Input Template Description Option(s) ------------------- -------------------------- --------- RA ORDER EXAM Enter an order for a VistA RAORDER EXAM Radiology procedure. RA QUICK EXAM ORDER Allows quick entry of one or RAQUICK EXAM ORDER multiple exams for a patient. RA OERR EDIT Edit an unreleased order that was entered through the OE/RR package. Print Templates --------------- There are no print templates associated with this file. Sort Templates -------------- There are no sort templates associated with this file. persistent _PUBLIC 0 RowId RADNUC_MED_ORDERS_75_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.701084968 67178,44715.140677915 right RAD/NUC MED ORDERS 75.1 2.56 12/04/2024 12:25:15 1 1 IEN 1 NEW_PERSON_200]]> APPROVINGRADNUCMEDPHYS VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_APPROVING_RADNUC_MED_PHYS CONTRACTSHARING_AGREEMENTS_34]]> CONTRACTSHARINGSOURCE VALIP.prosthetic.fm2cw.CONTRACTSHARINGAGREEMENTS34 FKey_CONTRACTSHARING_SOURCE IMAGING_LOCATIONS_79_1]]> IMAGINGLOCATION VALIP.prosthetic.fm2cw.IMAGINGLOCATIONS791 FKey_IMAGING_LOCATION PATIENT_2]]> NAME VALIP.prosthetic.fm2cw.PATIENT2 FKey_NAME ORDER_100]]> ORDER VALIP.prosthetic.fm2cw.ORDER100 FKey_ORDER PFSS_ACCOUNT_375]]> PFSSACCOUNTREFERENCE VALIP.prosthetic.fm2cw.PFSSACCOUNT375 FKey_PFSS_ACCOUNT_REFERENCE ICD_DIAGNOSIS_80]]> PRIMARYORDERINGICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_PRIMARY_ORDERING_ICD_DIAGNOSIS RADNUC_MED_PROCEDURES_71]]> PROCEDURE2 VALIP.prosthetic.fm2cw.RADNUCMEDPROCEDURES71 FKey_PROCEDURE2 RADNUC_MED_REASON_75_2]]> REASON VALIP.prosthetic.fm2cw.RADNUCMEDREASON752 FKey_REASON HOSPITAL_LOCATION_44]]> REQUESTINGLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_REQUESTING_LOCATION NEW_PERSON_200]]> REQUESTINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REQUESTING_PHYSICIAN IMAGING_TYPE_79_2]]> TYPEOFIMAGING VALIP.prosthetic.fm2cw.IMAGINGTYPE792 FKey_TYPE_OF_IMAGING NEW_PERSON_200]]> USERENTERINGREQUEST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_USER_ENTERING_REQUEST FileMan Field Label: 'APPROVING RAD/NUC MED PHYS' FileMan Field Number: '8' This field points to the 'NEW PERSON' file (#200) to indicate the name of the radiology or nuclear medicine physician who approved this order. Procedures which require an approving physician are site specific. VALIP.prosthetic.fm2cw.NEWPERSON200 11 APPROVING_RADNUC_MED_PHYS NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {APPROVING_RADNUC_MED_PHYS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 APPROVING_RADNUC_MED_PHYS_NAME 1 FileMan Field Label: 'CANCEL DESCRIPTION' FileMan Field Number: '27' This field indicates the reason a request is placed in the 'CANCELED' status via CPRS (front-door) only. The description matches an entry on file #100.03. If not canceled using CPRS, then this field will be empty and the REASON field (field 10) will be populated instead. This field also tracks the reason a radiology order, placed through the backdoor, is rejected by CPRS. %Library.String 31 CANCEL_DESCRIPTION FileMan Field Label: 'CATEGORY OF EXAM' FileMan Field Number: '4' CATEGORY OF THIS RAD/NUC MED REQUEST This field contains the exam category associated with this request. It is used to compile various workload statistics and various management reports (i.e. AMIS and RCS14-4). Available exam categories are: 'I' for INPATIENT, 'O' for OUTPATIENT, 'C' for CONTRACT, 'E' for EMPLOYEE, and 'R' for RESEARCH. %Library.EnumString 7 CATEGORY_OF_EXAM FileMan Field Label: 'CLINICAL HISTORY FOR EXAM' FileMan Field Number: '400' This field may contain a written clinical history pertinent to the procedure requested, as well as instructions to the interpreting physician. For example, the instructions might be for the interpreting physician to read the exam films to rule out the possibility of a patient having a certain disease. This field is used as the 'Clinical History' that appears on the printed report for each exam associated with this visit. %Library.String 43 CLINICAL_HISTORY_FOR_EXAM FileMan Field Label: 'CONTRACT/SHARING SOURCE' FileMan Field Number: '9' REFERRING CONTRACT/SHARING AGREEMENT This field is used for exams with a 'category of exam' of 'contract' or 'sharing'. It points to the 'CONTRACT/SHARING AGREEMENTS' file (#34) to indicate the name of the contract or sharing agreement that referred this patient to the imaging service for this exam. VALIP.prosthetic.fm2cw.CONTRACTSHARINGAGREEMENTS34 12 CONTRACTSHARING_SOURCE AGREEMENT NAME]]> %Library.String 1 AGREEMENT_NAME into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {CONTRACTSHARING_SOURCE_AGREEMENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONTRACTSHARING_SOURCE_AGREEMENT_NAME 1 FileMan Field Label: 'DATE DESIRED (Not guaranteed)' FileMan Field Number: '21' REQUESTED DATE (TIME optional) This field contains the date for which the rad/nuc med exam is requested. This field should not be interpreted as an appointment date. %Library.FilemanTimeStamp 25 DATE_DESIRED_NOT_GUARANTEED FileMan Field Label: 'HOLD DESCRIPTION' FileMan Field Number: '25' This is a word processing field for entering the reason an order is on hold. %Library.String 29 HOLD_DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^RAO(75.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IMAGING LOCATION' FileMan Field Number: '20' This field points to the 'IMAGING LOCATIONS' file (#79.1) to indicate the name of the imaging location within the hospital division where the rad/nuc med exam is to be performed. VALIP.prosthetic.fm2cw.IMAGINGLOCATIONS791 24 IMAGING_LOCATION FileMan Field Label: 'ISOLATION PROCEDURES' FileMan Field Number: '24' IS PATIENT ON ISOLATION PROCEDURES? This field contains 'YES' if the patient is on isolation procedures at the time the request is submitted, or 'NO' if the patient is not. If the patient is on isolation procedures the following message will be displayed on the request printed in the imaging service location: ** Universal Isolation Precautions ** %Library.EnumString 28 ISOLATION_PROCEDURES FileMan Field Label: 'LAST ACTIVITY DATE/TIME' FileMan Field Number: '18' This field contains the date and time the last action was taken on this request. %Library.FilemanTimeStamp 22 LAST_ACTIVITY_DATETIME FileMan Field Label: 'MODE OF TRANSPORT' FileMan Field Number: '19' This field contains the mode of transport which the patient will require when the exam is performed. Available categories are : AMBULATORY, PORTABLE, STRETCHER and WHEEL CHAIR. %Library.EnumString 23 MODE_OF_TRANSPORT FileMan Field Label: 'NAME' FileMan Field Number: '.01' NAME OF THIS RAD/NUC MED PATIENT This field gives the name of this rad/nuc med patient. The system obtains this information from the main 'PATIENT' file (#2). It is not stored in the 'RAD/NUC MED PATIENT' file (#70). ALLOWABLE WAYS TO ENTER PATIENT NAME: ------------------------------------ -Patient's last name (to reduce typing errors, enter only first few letters of last name) -Last 4 digits of patient's Social Security Number -First letter of patient's last name and last 4 digits of patient's Social Security Number. VALIP.prosthetic.fm2cw.PATIENT2 1 3 NAME NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NAME_NAME 1 FileMan Field Label: 'NATURE OF (NEW) ORDER ACTIVITY' FileMan Field Number: '26' This is the Nature of Order Activity for newly entered orders through the Radiology/Nuclear Medicine 'back door' order entry option. This information is needed to clarify which actions should be taken as a result of entering this order. Depending on the facility configuration of the Nature of Order Activity in the OE/RR software, the code entered here may or may not trigger alerts for electronic signatures and chart copy printing. %Library.EnumString 30 NATURE_OF_NEW_ORDER_ACTIVITY FileMan Field Label: 'ORDER' FileMan Field Number: '7' This field points to the Order Entry/Results Reporting (OE/RR) 'ORDER' File (#100). This field will only contain data if the OE/RR Package is running and the Radiology/Nuclear Medicine package is available through OE/RR. VALIP.prosthetic.fm2cw.ORDER100 10 ORDER ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {ORDER_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORDER_ORDER_ 1 FileMan Field Label: 'ORIGINAL REQUEST CHANGED' FileMan Field Number: '11' This field contains a value to indicate if the information contained in the original request was changed by Rad/Nuc Med Service. Available values are: 'Y' for 'Yes' and 'N' for 'NO". This field is populated when the request moves to a 'complete' status. If the procedure on the request is a 'parent' procedure, this field will always be set to 'yes' since it is not the parent procedure that is actually performed. %Library.EnumString 15 ORIGINAL_REQUEST_CHANGED FileMan Field Label: 'PAST VISIT DATE/TIME' FileMan Field Number: '17' This field contains the date and time of the patient's last recorded visit to the Radiology/Nuclear Medicine Service. %Library.FilemanTimeStamp 21 PAST_VISIT_DATETIME FileMan Field Label: 'PFSS ACCOUNT REFERENCE' FileMan Field Number: '90' This field points to the PFSS ACCOUNT file (#375). The value is returned from the GETACCT^IBBAPI, which Radiology silently invokes whenever an order is placed, whether from the Front Door (CPRS) or from the Back Door (Vista Radiology). VALIP.prosthetic.fm2cw.PFSSACCOUNT375 32 PFSS_ACCOUNT_REFERENCE ACCOUNT REFERENCE The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing.]]> %Library.Numeric 1 ACCOUNT_REFERENCE into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE}=$select(SQLCODE=0:val,1:"")]]> 1 PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE 1 FileMan Field Label: 'PREGNANT' FileMan Field Number: '13' This field contains a value to indicate if the patient is pregnant. Available values are 'Y' for 'Yes' and 'N' for 'No'. If 'Yes', a warning message is displayed to the receptionist when this patient is registered for the procedure requested. %Library.EnumString 17 PREGNANT FileMan Field Label: 'PRE-OP SCHEDULED DATE/TIME' FileMan Field Number: '12' PRE-OP SCHEDULED DATE (TIME optional) This field contains the date/time if a patient has a pre-op scheduled. %Library.FilemanTimeStamp 16 PREOP_SCHEDULED_DATETIME FileMan Field Label: 'PRIMARY DX RELATED TO AO' FileMan Field Number: '93' This field will be used to indicate if this order was for treating a VA patient based on an Agent Orange related problem. %Library.EnumString 35 PRIMARY_DX_RELATED_TO_AO FileMan Field Label: 'PRIMARY DX RELATED TO CV' FileMan Field Number: '99' This field will be used to indicate if this order was for treating a VA patient based on an Combat Veteran related problem. %Library.EnumString 40 PRIMARY_DX_RELATED_TO_CV FileMan Field Label: 'PRIMARY DX RELATED TO HNC' FileMan Field Number: '97' This field will be used to indicate if this order was for treating a VA patient based on a Head and Neck cancer (HNC) related problem. %Library.EnumString 39 PRIMARY_DX_RELATED_TO_HNC FileMan Field Label: 'PRIMARY DX RELATED TO IR' FileMan Field Number: '94' This field will be used to indicate if this order was for treating a VA patient based on an Ionizing Radiation related problem. %Library.EnumString 36 PRIMARY_DX_RELATED_TO_IR FileMan Field Label: 'PRIMARY DX RELATED TO MST' FileMan Field Number: '96' This field will be used to indicate if this order was for treating a VA patient based on a Military Sexual Trauma related problem. %Library.EnumString 38 PRIMARY_DX_RELATED_TO_MST FileMan Field Label: 'PRIMARY DX RELATED TO SC' FileMan Field Number: '92' This field will be used to indicate if this order was for treating a VA patient based on a Service Connected related problem. %Library.EnumString 34 PRIMARY_DX_RELATED_TO_SC FileMan Field Label: 'PRIMARY DX RELATED TO SHAD' FileMan Field Number: '100' This field is used to indicate if this order was for treating a VA patient based on a Shipboard Hazard and Defense related problem. %Library.EnumString 41 PRIMARY_DX_RELATED_TO_SHAD FileMan Field Label: 'PRIMARY DX RELATED TO SWAC' FileMan Field Number: '95' This field is used to indicate if this order was for treating a VA patient based on a Southwest Asia Conditions related problem. %Library.EnumString 37 PRIMARY_DX_RELATED_TO_SWAC FileMan Field Label: 'PRIMARY ORDERING ICD DIAGNOSIS' FileMan Field Number: '91' This field contains the Primary ICD Diagnosis responsible for this order. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 33 PRIMARY_ORDERING_ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {PRIMARY_ORDERING_ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_ORDERING_ICD_DIAGNOSIS_CODE_NUMBER 1 FileMan Field Label: 'PROCEDURE' FileMan Field Number: '2' IMAGING PROCEDURE ASSOCIATED WITH THIS REQUEST This field points to the 'RAD/NUC MED PROCEDURES' file (#71) to indicate the Imaging procedure associated with this request. ALLOWABLE WAYS TO ENTER THE RADIOLOGY/NUCLEAR MEDICINE PROCEDURE FOR THIS REQUEST: ----------------------------------------------------------------- -Name of procedure -CPT Code -Site specific synonym VALIP.prosthetic.fm2cw.RADNUCMEDPROCEDURES71 5 PROCEDURE2 NAME NAME OF THE RAD/NUC MED PROCEDURE This field contains the name (3-60 characters) of this rad/nuc med procedure. The first thirty characters of the procedure name must be unique. The semicolon (';') and the caret ('^') are not allowed as characters.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {PROCEDURE2_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE2_NAME 1 FileMan Field Label: 'REASON' FileMan Field Number: '10' This field points to the 'RAD/NUC MED REASON' file (#75.2) to indicate the reason a request is placed in the 'HOLD' or 'CANCELLED' status. VALIP.prosthetic.fm2cw.RADNUCMEDREASON752 14 REASON FileMan Field Label: 'REASON FOR STUDY' FileMan Field Number: '1.1' The reason for the study is often a short patient history summarizing the condition of the patient and giving background information as to why the study has been initiated. %Library.String 4 REASON_FOR_STUDY REASON This field contains the allowable reasons a user may choose from when placing an order in the category of 'HOLD' or 'CANCELLED'.]]> %Library.String 1 REASON into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {REASON_REASON}=$select(SQLCODE=0:val,1:"")]]> 1 REASON_REASON 1 FileMan Field Label: 'REFERRED TO COMMUNITY CARE?' FileMan Field Number: '201' This field is an indicator if the request has been referred to community care using the auto-referral option 'Refer Selected Requests to COMMUNITY CARE Provider' (RA ORDERREF). This field is automatically populated by the option. %Library.EnumString 42 REFERRED_TO_COMMUNITY_CARE FileMan Field Label: 'REQUESTING LOCATION' FileMan Field Number: '22' This field points to the 'HOSPITAL LOCATION' file (#44) to indicate the name of the hospital location that is requesting the exam. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 26 REQUESTING_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {REQUESTING_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_LOCATION_NAME 1 FileMan Field Label: 'REQUESTING PHYSICIAN' FileMan Field Number: '14' NAME OF THE REQUESTING PHYSICIAN This field points to the 'NEW PERSON' file (#200) to indicate the name of the person who requested this rad/nuc med exam. This person is not always a physician. (i.e. A nurse might request the exam.) VALIP.prosthetic.fm2cw.NEWPERSON200 18 REQUESTING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {REQUESTING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_PHYSICIAN_NAME 1 FileMan Field Label: 'REQUEST ENTERED DATE/TIME' FileMan Field Number: '16' This field contains the date and time the request was entered into the system. %Library.FilemanTimeStamp 20 REQUEST_ENTERED_DATETIME FileMan Field Label: 'REQUEST STATUS' FileMan Field Number: '5' STATUS OF THIS REQUEST This field is a set type field. The statuses in this field should correspond in name and number to those in the OE/RR 'ORDER STATUS' file (#100.01). %Library.EnumString 8 REQUEST_STATUS FileMan Field Label: 'REQUEST URGENCY' FileMan Field Number: '6' This field value defaults to 'ROUTINE', when entering a new request for an imaging exam. Available Urgencies are: ROUTINE, URGENT and STAT. %Library.EnumString 9 REQUEST_URGENCY FileMan Field Label: 'RESEARCH SOURCE' FileMan Field Number: '9.5' REFERRING RESEARCH SOURCE This field is used for exams with a 'category of exam' of 'research'. This field contains the name (3-40 characters) of the research source that referred this patient to the imaging service for this exam. %Library.String 13 RESEARCH_SOURCE FileMan Field Label: 'SCHEDULED DATE (TIME optional)' FileMan Field Number: '23' This field contains the scheduled date and time of the requested exam. %Library.FilemanTimeStamp 27 SCHEDULED_DATE_TIME_OPTIONAL Relationship for Sub-File/Multiple to file name PROCEDURE MODIFIERS child VALIP.prosthetic.fm2cw.SUBPROCEDUREMODIFIERS751125 children RADNUCMEDORDERS751 1 SUB_PROCEDURE_MODIFIERS_75_1125 Relationship for Sub-File/Multiple to file name REQUEST STATUS TIMES child VALIP.prosthetic.fm2cw.SUBREQUESTSTATUSTIMES7512 children RADNUCMEDORDERS751 1 SUB_REQUEST_STATUS_TIMES_75_12 Relationship for Sub-File/Multiple to file name SECONDARY ORDERING ICD DIAG. child VALIP.prosthetic.fm2cw.SUBSECONDARYORDERINGICDDIAG7513 children RADNUCMEDORDERS751 1 SUB_SECONDARY_ORDERING_ICD_DIAG__75_13 FileMan Field Label: 'TYPE OF IMAGING' FileMan Field Number: '3' THE TYPE OF IMAGING FOR THIS REQUESTED EXAM This field points to the 'IMAGING TYPE' file (#79.2) to indicate the type of imaging used for this rad/nuc med request. It is filled in by the system with the appropriate type of imaging (i.e. GENERAL RADIOLOGY, NUCLEAR MEDICINE, ULTRASOUND, CT SCAN, MAGNETIC RESONANCE IMAGING, VASCULAR LAB, etc.). For example, when a General Radiology procedure is chosen, this field is filled in with 'GENERAL RADIOLOGY'. VALIP.prosthetic.fm2cw.IMAGINGTYPE792 6 TYPE_OF_IMAGING TYPE OF IMAGING NAME OF THIS TYPE OF IMAGING This field contains the name of this type of imaging. DO NOT ADD, EDIT OR DELETE imaging type names; this will cause problems between the Radiology/Nuclear Med and Order Entry interface.]]> %Library.String 1 TYPE_OF_IMAGING into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {TYPE_OF_IMAGING_TYPE_OF_IMAGING}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_OF_IMAGING_TYPE_OF_IMAGING 1 FileMan Field Label: 'USER ENTERING REQUEST' FileMan Field Number: '15' This field points to the 'NEW PERSON' file (#200) to indicate the person entering the request into the rad/nuc med system. It is filled in by the system from information the user entered at sign-on. VALIP.prosthetic.fm2cw.NEWPERSON200 19 USER_ENTERING_REQUEST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RADNUC_MED_ORDERS_75_1 where %ID=:id) set {USER_ENTERING_REQUEST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USER_ENTERING_REQUEST_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 44 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RAO(75.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(75.1,"+1,",.01)={"NAME"} set:{REASON_FOR_STUDY}'="" FDA(75.1,"+1,",1.1)={"REASON_FOR_STUDY"} set:{PROCEDURE2}'="" FDA(75.1,"+1,",2)={"PROCEDURE2"} set:{TYPE_OF_IMAGING}'="" FDA(75.1,"+1,",3)={"TYPE_OF_IMAGING"} set:{CATEGORY_OF_EXAM}'="" FDA(75.1,"+1,",4)={"CATEGORY_OF_EXAM"} set:{REQUEST_STATUS}'="" FDA(75.1,"+1,",5)={"REQUEST_STATUS"} set:{REQUEST_URGENCY}'="" FDA(75.1,"+1,",6)={"REQUEST_URGENCY"} set:{ORDER}'="" FDA(75.1,"+1,",7)={"ORDER"} set:{APPROVING_RADNUC_MED_PHYS}'="" FDA(75.1,"+1,",8)={"APPROVING_RADNUC_MED_PHYS"} set:{CONTRACTSHARING_SOURCE}'="" FDA(75.1,"+1,",9)={"CONTRACTSHARING_SOURCE"} set:{RESEARCH_SOURCE}'="" FDA(75.1,"+1,",9.5)={"RESEARCH_SOURCE"} set:{REASON}'="" FDA(75.1,"+1,",10)={"REASON"} set:{ORIGINAL_REQUEST_CHANGED}'="" FDA(75.1,"+1,",11)={"ORIGINAL_REQUEST_CHANGED"} set:{PREOP_SCHEDULED_DATETIME}'="" FDA(75.1,"+1,",12)={"PREOP_SCHEDULED_DATETIME"} set:{PREGNANT}'="" FDA(75.1,"+1,",13)={"PREGNANT"} set:{REQUESTING_PHYSICIAN}'="" FDA(75.1,"+1,",14)={"REQUESTING_PHYSICIAN"} set:{USER_ENTERING_REQUEST}'="" FDA(75.1,"+1,",15)={"USER_ENTERING_REQUEST"} set:{REQUEST_ENTERED_DATETIME}'="" FDA(75.1,"+1,",16)={"REQUEST_ENTERED_DATETIME"} set:{PAST_VISIT_DATETIME}'="" FDA(75.1,"+1,",17)={"PAST_VISIT_DATETIME"} set:{LAST_ACTIVITY_DATETIME}'="" FDA(75.1,"+1,",18)={"LAST_ACTIVITY_DATETIME"} set:{MODE_OF_TRANSPORT}'="" FDA(75.1,"+1,",19)={"MODE_OF_TRANSPORT"} set:{IMAGING_LOCATION}'="" FDA(75.1,"+1,",20)={"IMAGING_LOCATION"} set:{DATE_DESIRED_NOT_GUARANTEED}'="" FDA(75.1,"+1,",21)={"DATE_DESIRED_NOT_GUARANTEED"} set:{REQUESTING_LOCATION}'="" FDA(75.1,"+1,",22)={"REQUESTING_LOCATION"} set:{SCHEDULED_DATE_TIME_OPTIONAL}'="" FDA(75.1,"+1,",23)={"SCHEDULED_DATE_TIME_OPTIONAL"} set:{ISOLATION_PROCEDURES}'="" FDA(75.1,"+1,",24)={"ISOLATION_PROCEDURES"} set:{NATURE_OF_NEW_ORDER_ACTIVITY}'="" FDA(75.1,"+1,",26)={"NATURE_OF_NEW_ORDER_ACTIVITY"} set:{CANCEL_DESCRIPTION}'="" FDA(75.1,"+1,",27)={"CANCEL_DESCRIPTION"} set:{PFSS_ACCOUNT_REFERENCE}'="" FDA(75.1,"+1,",90)={"PFSS_ACCOUNT_REFERENCE"} set:{PRIMARY_ORDERING_ICD_DIAGNOSIS}'="" FDA(75.1,"+1,",91)={"PRIMARY_ORDERING_ICD_DIAGNOSIS"} set:{PRIMARY_DX_RELATED_TO_SC}'="" FDA(75.1,"+1,",92)={"PRIMARY_DX_RELATED_TO_SC"} set:{PRIMARY_DX_RELATED_TO_AO}'="" FDA(75.1,"+1,",93)={"PRIMARY_DX_RELATED_TO_AO"} set:{PRIMARY_DX_RELATED_TO_IR}'="" FDA(75.1,"+1,",94)={"PRIMARY_DX_RELATED_TO_IR"} set:{PRIMARY_DX_RELATED_TO_SWAC}'="" FDA(75.1,"+1,",95)={"PRIMARY_DX_RELATED_TO_SWAC"} set:{PRIMARY_DX_RELATED_TO_MST}'="" FDA(75.1,"+1,",96)={"PRIMARY_DX_RELATED_TO_MST"} set:{PRIMARY_DX_RELATED_TO_HNC}'="" FDA(75.1,"+1,",97)={"PRIMARY_DX_RELATED_TO_HNC"} set:{PRIMARY_DX_RELATED_TO_CV}'="" FDA(75.1,"+1,",99)={"PRIMARY_DX_RELATED_TO_CV"} set:{PRIMARY_DX_RELATED_TO_SHAD}'="" FDA(75.1,"+1,",100)={"PRIMARY_DX_RELATED_TO_SHAD"} set:{REFERRED_TO_COMMUNITY_CARE}'="" FDA(75.1,"+1,",201)={"REFERRED_TO_COMMUNITY_CARE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(75.1)") set %SkipFiling=1 if $d(%FMERR(75.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {HOLD_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({HOLD_DESCRIPTION},$c(13,10)) { set wp(i)=$p({HOLD_DESCRIPTION},$c(13,10),i) } do WP^DIE(75.1,{RowId},25,,"wp","%FMERR(75.1)") if $d(%FMERR(75.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CLINICAL_HISTORY_FOR_EXAM}'="" { set D0={RowId} for i=1:1:$l({CLINICAL_HISTORY_FOR_EXAM},$c(13,10)) { set wp(i)=$p({CLINICAL_HISTORY_FOR_EXAM},$c(13,10),i) } do WP^DIE(75.1,{RowId},400,,"wp","%FMERR(75.1)") if $d(%FMERR(75.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(75.1,IENS,.01)={NAME} set:{REASON_FOR_STUDY*C} FDA(75.1,IENS,1.1)={REASON_FOR_STUDY} set:{PROCEDURE2*C} FDA(75.1,IENS,2)={PROCEDURE2} set:{TYPE_OF_IMAGING*C} FDA(75.1,IENS,3)={TYPE_OF_IMAGING} set:{CATEGORY_OF_EXAM*C} FDA(75.1,IENS,4)={CATEGORY_OF_EXAM} set:{REQUEST_STATUS*C} FDA(75.1,IENS,5)={REQUEST_STATUS} set:{REQUEST_URGENCY*C} FDA(75.1,IENS,6)={REQUEST_URGENCY} set:{ORDER*C} FDA(75.1,IENS,7)={ORDER} set:{APPROVING_RADNUC_MED_PHYS*C} FDA(75.1,IENS,8)={APPROVING_RADNUC_MED_PHYS} set:{CONTRACTSHARING_SOURCE*C} FDA(75.1,IENS,9)={CONTRACTSHARING_SOURCE} set:{RESEARCH_SOURCE*C} FDA(75.1,IENS,9.5)={RESEARCH_SOURCE} set:{REASON*C} FDA(75.1,IENS,10)={REASON} set:{ORIGINAL_REQUEST_CHANGED*C} FDA(75.1,IENS,11)={ORIGINAL_REQUEST_CHANGED} set:{PREOP_SCHEDULED_DATETIME*C} FDA(75.1,IENS,12)={PREOP_SCHEDULED_DATETIME} set:{PREGNANT*C} FDA(75.1,IENS,13)={PREGNANT} set:{REQUESTING_PHYSICIAN*C} FDA(75.1,IENS,14)={REQUESTING_PHYSICIAN} set:{USER_ENTERING_REQUEST*C} FDA(75.1,IENS,15)={USER_ENTERING_REQUEST} set:{REQUEST_ENTERED_DATETIME*C} FDA(75.1,IENS,16)={REQUEST_ENTERED_DATETIME} set:{PAST_VISIT_DATETIME*C} FDA(75.1,IENS,17)={PAST_VISIT_DATETIME} set:{LAST_ACTIVITY_DATETIME*C} FDA(75.1,IENS,18)={LAST_ACTIVITY_DATETIME} set:{MODE_OF_TRANSPORT*C} FDA(75.1,IENS,19)={MODE_OF_TRANSPORT} set:{IMAGING_LOCATION*C} FDA(75.1,IENS,20)={IMAGING_LOCATION} set:{DATE_DESIRED_NOT_GUARANTEED*C} FDA(75.1,IENS,21)={DATE_DESIRED_NOT_GUARANTEED} set:{REQUESTING_LOCATION*C} FDA(75.1,IENS,22)={REQUESTING_LOCATION} set:{SCHEDULED_DATE_TIME_OPTIONAL*C} FDA(75.1,IENS,23)={SCHEDULED_DATE_TIME_OPTIONAL} set:{ISOLATION_PROCEDURES*C} FDA(75.1,IENS,24)={ISOLATION_PROCEDURES} set:{NATURE_OF_NEW_ORDER_ACTIVITY*C} FDA(75.1,IENS,26)={NATURE_OF_NEW_ORDER_ACTIVITY} set:{CANCEL_DESCRIPTION*C} FDA(75.1,IENS,27)={CANCEL_DESCRIPTION} set:{PFSS_ACCOUNT_REFERENCE*C} FDA(75.1,IENS,90)={PFSS_ACCOUNT_REFERENCE} set:{PRIMARY_ORDERING_ICD_DIAGNOSIS*C} FDA(75.1,IENS,91)={PRIMARY_ORDERING_ICD_DIAGNOSIS} set:{PRIMARY_DX_RELATED_TO_SC*C} FDA(75.1,IENS,92)={PRIMARY_DX_RELATED_TO_SC} set:{PRIMARY_DX_RELATED_TO_AO*C} FDA(75.1,IENS,93)={PRIMARY_DX_RELATED_TO_AO} set:{PRIMARY_DX_RELATED_TO_IR*C} FDA(75.1,IENS,94)={PRIMARY_DX_RELATED_TO_IR} set:{PRIMARY_DX_RELATED_TO_SWAC*C} FDA(75.1,IENS,95)={PRIMARY_DX_RELATED_TO_SWAC} set:{PRIMARY_DX_RELATED_TO_MST*C} FDA(75.1,IENS,96)={PRIMARY_DX_RELATED_TO_MST} set:{PRIMARY_DX_RELATED_TO_HNC*C} FDA(75.1,IENS,97)={PRIMARY_DX_RELATED_TO_HNC} set:{PRIMARY_DX_RELATED_TO_CV*C} FDA(75.1,IENS,99)={PRIMARY_DX_RELATED_TO_CV} set:{PRIMARY_DX_RELATED_TO_SHAD*C} FDA(75.1,IENS,100)={PRIMARY_DX_RELATED_TO_SHAD} set:{REFERRED_TO_COMMUNITY_CARE*C} FDA(75.1,IENS,201)={REFERRED_TO_COMMUNITY_CARE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(75.1)") set %SkipFiling=1 if $d(%FMERR(75.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {HOLD_DESCRIPTION*C} { set D0={RowId} kill wp if {HOLD_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({HOLD_DESCRIPTION},$c(13,10)) { set wp(i)=$p({HOLD_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(75.1,{RowId},25,,wproot,"%FMERR(75.1)") if $d(%FMERR(75.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CLINICAL_HISTORY_FOR_EXAM*C} { set D0={RowId} kill wp if {CLINICAL_HISTORY_FOR_EXAM}'="" { set wproot="wp" for i=1:1:$l({CLINICAL_HISTORY_FOR_EXAM},$c(13,10)) { set wp(i)=$p({CLINICAL_HISTORY_FOR_EXAM},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(75.1,{RowId},400,,wproot,"%FMERR(75.1)") if $d(%FMERR(75.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.RADNUCMEDORD959S index {REFERRED_TO_COMMUNITY_CARE}'="" 1 ^RAO conditional 75.1 "AC" $$TRUNCATE({REFERRED_TO_COMMUNITY_CARE},1)) {NAME} {IEN} 0]]> index ^RAO nonnull 75.1 "AO" {LAST_ACTIVITY_DATETIME} {IEN} 0]]> index ^RAO nonnull 75.1 "AS" {NAME} $$TRUNCATE({REQUEST_STATUS},3)) {IEN} 0]]> index ^RAO nonnull 75.1 "B" {NAME} {IEN} 0]]> index ^RAO nonnull 75.1 "BDD" {DATE_DESIRED_NOT_GUARANTEED} {IEN} 0]]> data ^RAO 75.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 8 "^" 0 27 "^" 0 4 "H" new data,i,node set {CLINICAL_HISTORY_FOR_EXAM}="" merge data=^RAO(75.1,{S2},"H") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CLINICAL_HISTORY_FOR_EXAM}={CLINICAL_HISTORY_FOR_EXAM}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 9 "^" 0 21 1 new data,i,node set {HOLD_DESCRIPTION}="" merge data=^RAO(75.1,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {HOLD_DESCRIPTION}={HOLD_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 20 "^" 0 24 "^" 0 18 "^" 0 19 "^" 0 1 "^" 0 26 "^" 0 7 "^" 0 11 "^" 0 17 "^" 0 28 "^" 0 13 "^" 0 12 "^" "BA" 3 "^" "BA" 8 "^" "BA" 7 "^" "BA" 4 "^" "BA" 6 "^" "BA" 2 "^" "BA" 9 "^" "BA" 5 "^" "BA" 1 "^" 0 2 "^" 0 10 "^" .1 1 "^" 2 1 "^" 0 22 "^" 0 14 "^" 0 16 "^" 0 5 "^" 0 6 "^" "R" 1 "^" 0 23 "^" 0 3 "^" 0 15 Generated class for FileMan File Number: '71' File Name: 'RAD/NUC MED PROCEDURES' Class generated by %fm2class version 2.56 This file contains all the procedures that may be associated with an imaging exam. The entries in this file are the allowable choices the user will be able to pick from at the procedure prompt. This prompt appears as part of the 'Register', 'Case No. Edit' and the 'Exam Status Tracking' functions of the module. If the procedure has an inactivation date less than the current date then the procedure is not a valid choice and will not appear on the list of valid/active procedures when displayed to the user. Once this software is in production, you should never delete any entries. Entries can be deactivated by entering an 'inactivation' date for the entry. Adding new entries is always allowed. Data Storage ------------ The data for the 'RAD/NUC MED PROCEDURES' file is stored in the ^RAMIS(71, global. At the present time this file is very static after day-one initialization is complete. However, it still should be journaled. It should also be translated if the operating system supports this function. Input Templates --------------- The following is a list of input templates used by the package and the entry in the OPTIONS file (#19) that uses the template: Name Routine Description; Option(s) Compiled ____ ________ ____________ RA PROCEDURE EDIT Use to enter/edit procedure to the file; If any modifications to this input template are needed for local purposes, then great care should be taken not to degrade any branching logic in the template. Print Templates --------------- The following is a list of print templates used by the package: Name Description; Option(s) ____ ______________________ RA ALPHA LIST OF ACTIVES Prints a listing of procedures and used with the ALPHA LIST OF ACTIVES sort template to list only 'active' procedures; RA ALPHALIST RA PROCEDURE LIST Prints a 'long' listing of procedures; RA PROCLONG, RA INACPRCLONG, RA PROCSERIES RA PROCEDURE SHORT LIST Prints a 'short' listing of procedures; RA PROCSHORT, RA INACPRCSHORT Sort Templates -------------- The following is a list of sort templates used by the package: Name Related Print Template ---- ---------------------- RA ALPHA LIST OF ACTIVES ALPHA LIST OF ACTIVES RA PROCEDURES BY PROCEDURE LIST AMIS CODES RA SERIES ONLY PROCEDURE LIST The modification of any sort templates is not recommended. persistent _PUBLIC 0 RowId RADNUC_MED_PROCEDURES_71 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.732267058 67178,44715.217746198 right RAD/NUC MED PROCEDURES 71 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'CONTRAST MEDIA USED' FileMan Field Number: '20' This field contains a value to indicate if a contrast agent is used with this Rad/Nuc Med procedure. Acceptable values are: 'Y' for 'Yes' and 'N' for 'No'. %Library.EnumString 16 CONTRAST_MEDIA_USED FileMan Field Label: 'COST OF PROCEDURE' FileMan Field Number: '10' COST OF THIS RAD/NUC MED PROCEDURE This field may be used in the future for possible third party billing. %Library.Numeric 9 COST_OF_PROCEDURE FileMan Field Label: 'DISPLAY ED DESC WHEN ORDERED' FileMan Field Number: '17' If the Educational Description of a procedure should be displayed along with the procedure message (if any) at the time the procedure is ordered, enter 'Yes'. If only the procedure message should be displayed, enter 'No'. %Library.EnumString 13 DISPLAY_ED_DESC_WHEN_ORDERED FileMan Field Label: 'EDUCATIONAL DESCRIPTION' FileMan Field Number: '500' The text entered here should describe the procedure. It may be used by clinicians who are trying to familiarize themselves with imaging procedures that are available via an option within this software system. This text can also be displayed along with the procedure message during the ordering process if the Rad/Nuc Med Procedure file parameter that controls displaying it when ordered is set to 'Yes'. %Library.String 19 EDUCATIONAL_DESCRIPTION FileMan Field Label: 'ENTRY CREATION DATE' FileMan Field Number: '902' This is the date that this procedure was created in this file. %Library.FilemanDate 21 ENTRY_CREATION_DATE FileMan Field Label: 'Exception Flag' FileMan Field Number: '901' When a new procedure is entered or if there is no match to this procedure in the MASTER RADIOLOGY PROCEDURE file (#71.99) this field will be set to 'YES' to indicate that this procedure has been submitted to the New Terminology Rapid Turnaround (NTRT) team for action. When a new procedure is created for the MRPF that is a match to this procedure this field will be set to null. %Library.EnumString 20 EXCEPTION_FLAG Internal Entry Number %Library.String $$next^%apiSQL("$p(^RAMIS(71,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVATION DATE' FileMan Field Number: '100' DATE OF INACTIVATION OF THIS PROCEDURE This field contains the date this procedure was inactivated by the rad/nuc med coordinator. Until the day following the inactivation date, the procedure appears on the active procedure list and may be selected. If this procedure is active in the Common Procedure file, it must be removed from the active common procedure list before an inactivation date can be entered. Procedures should always be inactivated instead of deleted. %Library.FilemanDate 17 INACTIVATION_DATE FileMan Field Label: 'LOINC' FileMan Field Number: '903' This field holds the LOINC from the mapped procedure in the MASTER RADIOLOGY PROCEDURE file (#71.99). %Library.String 22 LOINC FileMan Field Label: 'NAME' FileMan Field Number: '.01' NAME OF THE RAD/NUC MED PROCEDURE This field contains the name (3-60 characters) of this rad/nuc med procedure. The first thirty characters of the procedure name must be unique. The semicolon (';') and the caret ('^') are not allowed as characters. %Library.String 1 3 NAME FileMan Field Label: 'NEW PROCEDURE MESSAGE' FileMan Field Number: '400' %Library.String 18 NEW_PROCEDURE_MESSAGE FileMan Field Label: 'ORIGINAL PROCEDURE?' FileMan Field Number: '8' IS THIS A PROCEDURE SENT AS PART OF THE PACKAGE? This field contains a 'Yes' or 'No' value which indicates if this procedure is from the original group of 535 procedures sent with this system or if this procedure has been set up by the site. The original 535 procedures are filled in with 'Yes'. The system allows the name field of the file to be changed for any procedure that has a 'No' in this field. Always use the Procedure Edit Function of the system to modify this Procedure File. %Library.EnumString 8 ORIGINAL_PROCEDURE FileMan Field Label: 'PRINT CPT BARCODE' FileMan Field Number: '16' This field can be used on FileMan printouts to print the CPT barcode. %Library.String 1 12 1 PRINT_CPT_BARCODE FileMan Field Label: 'PRINT PROCEDURE BARCODE' FileMan Field Number: '15' This field can be used on FileMan printouts to print the first thirty characters of the procedure name in a barcode format. %Library.String 1 11 1 PRINT_PROCEDURE_BARCODE %Library.EnumString 5 PROMPT_FOR_MEDS FileMan Field Label: 'PROMPT FOR RADIOPHARM RX' FileMan Field Number: '19' This field applies only to Detailed or Series procedures with an Imaging Type that uses radiopharmaceuticals. It controls whether case edit and status tracking options prompt for prescribing physician, prescribed radiopharmaceutical dose and witness to dose administration. If you answer 'YES' to this field, prescriber prompts will appear for any radiopharmaceuticals entered for this procedure. If this field is left blank, prescriber and witness prompts will not appear. If this field is set to 'YES', Status Tracking will prompt during each edit session until the data is entered; case edits will always prompt, even if prescriber and witness data has already been entered. %Library.EnumString 15 PROMPT_FOR_RADIOPHARM_RX FileMan Field Label: 'RAD/NM PHYS APPROVAL REQUIRED' FileMan Field Number: '11' IS RAD/NM PHYSICIAN APPROVAL REQUIRED TO REQUEST THIS PROCEDURE? This field is set to indicate whether or not requesting this procedure requires a Radiology or Nuclear Med physician 's approval. If this field contains a 'Yes', the appropriate Imaging Service must be contacted to request the procedure. If this field is set to 'No', the procedure can be requested without this approval. %Library.EnumString 10 RADNM_PHYS_APPROVAL_REQUIRED %Library.EnumString 14 SINGLE_REPORT FileMan Field Label: 'STAFF REVIEW REQUIRED' FileMan Field Number: '7' IS STAFF REVIEW OF REPORTS REQUIRED? This field contains a 'Yes' or 'No' value to indicate if this procedure requires an interpreting staff physician's review of the interpreting resident's report results. %Library.EnumString 7 STAFF_REVIEW_REQUIRED FileMan Field Label: 'SUPPRESS RADIOPHARM PROMPT' FileMan Field Number: '2' SUPPRESS RADIOPHARMACEUTICAL PROMPT This question only applies to procedures with an imaging type that use radiopharmaceuticals (i.e. nuclear medicine or cardiology studies). If the exam status set-up for the affected imaging types specifies that radiopharmaceutical data should be asked and/or required to progress to various statuses, this field can be used to over-ride that requirement. Available categories are defined as follows: 0 or blank - Always ask for Radiopharmaceutical if and when exam status parameters specify (this is the default). 1 - Suppress the radiopharmaceutical prompts. Never ask or require Radiopharmaceutical even if exam status parameters specify that a Radiopharmaceutical should be entered. Even if default Radiopharmaceuticals are entered for the procedure they will not be automatically entered on the exam record by the system when the case is registered. %Library.EnumString 4 SUPPRESS_RADIOPHARM_PROMPT FileMan Field Label: 'TYPE OF PROCEDURE' FileMan Field Number: '6' TYPE OF RAD/NUC MED PROCEDURE This field contains a value to indicate the type of rad/nuc med procedure. Valid choices are: 'B' for Broad, 'D' for Detailed, 'S' for Series, and 'P' for Parent. 'Broad' can be used when the procedure is being initially registered, but must be changed by the technologist to 'Detailed' or 'Series' procedure before the exam is completed. 'Series' is used when there is more than one AMIS code associated with this exam procedure. 'Parent' procedures should be used to pre-define a group of procedures (descendents). When a procedure is marked as a 'Parent', the system will ask for its 'descendents' (other procedures in this file that are part of the procedure group). During the 'Register an Exam' option, these 'descendent' procedures will be registered as a set under one exam date/time. %Library.EnumString 6 TYPE_OF_PROCEDURE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 23 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RAMIS(71," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(71,"+1,",.01)={"NAME"} set:{SUPPRESS_RADIOPHARM_PROMPT}'="" FDA(71,"+1,",2)={"SUPPRESS_RADIOPHARM_PROMPT"} set:{PROMPT_FOR_MEDS}'="" FDA(71,"+1,",5)={"PROMPT_FOR_MEDS"} set:{TYPE_OF_PROCEDURE}'="" FDA(71,"+1,",6)={"TYPE_OF_PROCEDURE"} set:{STAFF_REVIEW_REQUIRED}'="" FDA(71,"+1,",7)={"STAFF_REVIEW_REQUIRED"} set:{ORIGINAL_PROCEDURE}'="" FDA(71,"+1,",8)={"ORIGINAL_PROCEDURE"} set:{COST_OF_PROCEDURE}'="" FDA(71,"+1,",10)={"COST_OF_PROCEDURE"} set:{RADNM_PHYS_APPROVAL_REQUIRED}'="" FDA(71,"+1,",11)={"RADNM_PHYS_APPROVAL_REQUIRED"} set:{DISPLAY_ED_DESC_WHEN_ORDERED}'="" FDA(71,"+1,",17)={"DISPLAY_ED_DESC_WHEN_ORDERED"} set:{SINGLE_REPORT}'="" FDA(71,"+1,",18)={"SINGLE_REPORT"} set:{PROMPT_FOR_RADIOPHARM_RX}'="" FDA(71,"+1,",19)={"PROMPT_FOR_RADIOPHARM_RX"} set:{CONTRAST_MEDIA_USED}'="" FDA(71,"+1,",20)={"CONTRAST_MEDIA_USED"} set:{INACTIVATION_DATE}'="" FDA(71,"+1,",100)={"INACTIVATION_DATE"} set:{EXCEPTION_FLAG}'="" FDA(71,"+1,",901)={"EXCEPTION_FLAG"} set:{ENTRY_CREATION_DATE}'="" FDA(71,"+1,",902)={"ENTRY_CREATION_DATE"} set:{LOINC}'="" FDA(71,"+1,",903)={"LOINC"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(71)") set %SkipFiling=1 if $d(%FMERR(71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {NEW_PROCEDURE_MESSAGE}'="" { set D0={RowId} for i=1:1:$l({NEW_PROCEDURE_MESSAGE},$c(13,10)) { set wp(i)=$p({NEW_PROCEDURE_MESSAGE},$c(13,10),i) } do WP^DIE(71,{RowId},400,,"wp","%FMERR(71)") if $d(%FMERR(71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {EDUCATIONAL_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({EDUCATIONAL_DESCRIPTION},$c(13,10)) { set wp(i)=$p({EDUCATIONAL_DESCRIPTION},$c(13,10),i) } do WP^DIE(71,{RowId},500,,"wp","%FMERR(71)") if $d(%FMERR(71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(71,IENS,.01)={NAME} set:{SUPPRESS_RADIOPHARM_PROMPT*C} FDA(71,IENS,2)={SUPPRESS_RADIOPHARM_PROMPT} set:{PROMPT_FOR_MEDS*C} FDA(71,IENS,5)={PROMPT_FOR_MEDS} set:{TYPE_OF_PROCEDURE*C} FDA(71,IENS,6)={TYPE_OF_PROCEDURE} set:{STAFF_REVIEW_REQUIRED*C} FDA(71,IENS,7)={STAFF_REVIEW_REQUIRED} set:{ORIGINAL_PROCEDURE*C} FDA(71,IENS,8)={ORIGINAL_PROCEDURE} set:{COST_OF_PROCEDURE*C} FDA(71,IENS,10)={COST_OF_PROCEDURE} set:{RADNM_PHYS_APPROVAL_REQUIRED*C} FDA(71,IENS,11)={RADNM_PHYS_APPROVAL_REQUIRED} set:{DISPLAY_ED_DESC_WHEN_ORDERED*C} FDA(71,IENS,17)={DISPLAY_ED_DESC_WHEN_ORDERED} set:{SINGLE_REPORT*C} FDA(71,IENS,18)={SINGLE_REPORT} set:{PROMPT_FOR_RADIOPHARM_RX*C} FDA(71,IENS,19)={PROMPT_FOR_RADIOPHARM_RX} set:{CONTRAST_MEDIA_USED*C} FDA(71,IENS,20)={CONTRAST_MEDIA_USED} set:{INACTIVATION_DATE*C} FDA(71,IENS,100)={INACTIVATION_DATE} set:{EXCEPTION_FLAG*C} FDA(71,IENS,901)={EXCEPTION_FLAG} set:{ENTRY_CREATION_DATE*C} FDA(71,IENS,902)={ENTRY_CREATION_DATE} set:{LOINC*C} FDA(71,IENS,903)={LOINC} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(71)") set %SkipFiling=1 if $d(%FMERR(71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {NEW_PROCEDURE_MESSAGE*C} { set D0={RowId} kill wp if {NEW_PROCEDURE_MESSAGE}'="" { set wproot="wp" for i=1:1:$l({NEW_PROCEDURE_MESSAGE},$c(13,10)) { set wp(i)=$p({NEW_PROCEDURE_MESSAGE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(71,{RowId},400,,wproot,"%FMERR(71)") if $d(%FMERR(71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {EDUCATIONAL_DESCRIPTION*C} { set D0={RowId} kill wp if {EDUCATIONAL_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({EDUCATIONAL_DESCRIPTION},$c(13,10)) { set wp(i)=$p({EDUCATIONAL_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(71,{RowId},500,,wproot,"%FMERR(71)") if $d(%FMERR(71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.RADNUCMEDPR4922S index ^RAMIS nonnull 71 "B" {NAME} {IEN} 0]]> index ^RAMIS nonnull 71 "CM" {CONTRAST_MEDIA_USED} {IEN} 0]]> index ^RAMIS nonnull 71 "CREAT" {ENTRY_CREATION_DATE} {IEN} 0]]> data ^RAMIS 71 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 20 "^" 0 10 "^" 0 17 "EDU" new data,i,node set {EDUCATIONAL_DESCRIPTION}="" merge data=^RAMIS(71,{S2},"EDU") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {EDUCATIONAL_DESCRIPTION}={EDUCATIONAL_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "NTRT" 3 "^" "NTRT" 2 "^" "I" 1 "^" "LOINC" 1 "^" 0 1 "PMES" new data,i,node set {NEW_PROCEDURE_MESSAGE}="" merge data=^RAMIS(71,{S2},"PMES") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {NEW_PROCEDURE_MESSAGE}={NEW_PROCEDURE_MESSAGE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 8 "^" 0 5 "^" 0 19 "^" 0 11 "^" 0 18 "^" 0 7 "^" 0 2 "^" 0 6 Generated class for FileMan File Number: '75.2' File Name: 'RAD/NUC MED REASON' Class generated by %fm2class version 2.56 This file contains the reasons a user may select from when placing an order in the 'HOLD' or 'CANCELLED' status. Data Storage ------------ The data for the 'RAD/NUC MED REASON' file is stored in the ^RA(75 global. Input Templates --------------- There are no input templates associated with this file. Print Templates --------------- There are no print templates associated with this file. Sort Templates -------------- There are no sort templates associated with this file. persistent _PUBLIC 0 RowId RADNUC_MED_REASON_75_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.787688902 67178,44715.258463748 right RAD/NUC MED REASON 75.2 2.56 12/04/2024 12:25:15 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^RA(75.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NATIONAL' FileMan Field Number: '5' Flag to indicate a standardized entry provided by national. If this flag is set, the entry cannot be modified. %Library.EnumString 8 NATIONAL5 FileMan Field Label: 'NATURE OF ORDER ACTIVITY' FileMan Field Number: '4' The Nature of Order Activity determines actions that OE/RR will take when it is notified that an order was held or canceled by the imaging service. The Nature of Order Activity you enter here may trigger or suppress OE/RR printing of a chart copy of the hold or cancel order. It may also trigger or suppress OE/RR alerting the original requesting physician that his/her electronic signature is needed. The master file of Nature of Order Activities resides within the OE/RR software and may be configured different at each facility. The Radiology/Nuclear Med ADPAC should coordinate Nature of Order Activity set-up with the OE/RR or clinical coordinator. %Library.EnumString 7 NATURE_OF_ORDER_ACTIVITY FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field contains the number associated with the reasons listed in the 'RAD/NUC MED REASON' file (#75.2). %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'REASON' FileMan Field Number: '.01' This field contains the allowable reasons a user may choose from when placing an order in the category of 'HOLD' or 'CANCELLED'. %Library.String 1 4 REASON FileMan Field Label: 'SYNONYM' FileMan Field Number: '3' This field may contain a synonym (2-15 characters) for the reason. It is recommended that frequently used reasons be given at least one synonym to allow the reason to be called up rapidly, resulting in processing time to be saved. %Library.String 6 SYNONYM FileMan Field Label: 'TYPE OF REASON' FileMan Field Number: '2' This field contains internally stored code. '1' will stand for 'Cancel Request'. '3' will stand for 'Hold Request'. '9' will stand for 'General Request'. A type code must be assigned to a reason in order to make it selectable by users. %Library.EnumString 5 TYPE_OF_REASON SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RA(75.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{REASON}'="" FDA(75.2,"+1,",.01)={"REASON"} set:{TYPE_OF_REASON}'="" FDA(75.2,"+1,",2)={"TYPE_OF_REASON"} set:{SYNONYM}'="" FDA(75.2,"+1,",3)={"SYNONYM"} set:{NATURE_OF_ORDER_ACTIVITY}'="" FDA(75.2,"+1,",4)={"NATURE_OF_ORDER_ACTIVITY"} set:{NATIONAL5}'="" FDA(75.2,"+1,",5)={"NATIONAL5"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(75.2)") set %SkipFiling=1 if $d(%FMERR(75.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{REASON*C} FDA(75.2,IENS,.01)={REASON} set:{TYPE_OF_REASON*C} FDA(75.2,IENS,2)={TYPE_OF_REASON} set:{SYNONYM*C} FDA(75.2,IENS,3)={SYNONYM} set:{NATURE_OF_ORDER_ACTIVITY*C} FDA(75.2,IENS,4)={NATURE_OF_ORDER_ACTIVITY} set:{NATIONAL5*C} FDA(75.2,IENS,5)={NATIONAL5} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(75.2)") set %SkipFiling=1 if $d(%FMERR(75.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(75.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.RADNUCMEDREFA71S index {REASON}'="" 1 ^RA conditional 75.2 "B" $$TRUNCATE({REASON},30)) {IEN} 0]]> data ^RA 75.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" 0 4 "^" 0 1 "^" 0 3 "^" 0 2 index ^RA nonnull 75.2 "S" {SYNONYM} {IEN} 0]]> Generated class for FileMan File Number: '74' File Name: 'RAD/NUC MED REPORTS' Class generated by %fm2class version 2.56 This file contains the reports for registered exams. These reports are usually first dictated by the interpreting physician before being entered by the transcriptionist. The Radiology/Nuclear Medicine software includes an HL7 interface to support report entry using voice recognition systems. The data in this file has three basic sections: I. Demographic information about the file - patient, date reported, date entered etc. II. Text Data - clinical history, report and impression III. Computed Fields that obtain data from patient's exam record - technician, procedure etc. The computed fields can be a very efficent way to do File Man prints and searches of exam record data, as opposed to doing prints and searches through the 'RAD/NUC MED PATIENT' file. Data Storage ------------ The data for the 'RAD/NUC MED REPORTS file is stored in the ^RARPT( global. This global is very volatile and should be journaled. It should also be translated if the operating system supports this function. Because of the large amount of disk space the report text will demand of the system, the module has a 'Purge Data' function that will allow the site manager to delete the 'REPORT TEXT' and 'CLINCIAL HISTORY' fields on a periodic basis. It is up to the computer site manager and the imaging coordinator to determine how long this data will remain on-line. The 'IMPRESSION' text will not be purged. In the future, the module will also have an archive function. Input Templates --------------- The following is a list of input templates used by the package and the entry in the OPTIONS file (#19) that uses the template: Compiled Name Routine Description; Option(s) ---- -------- ---------------------- RA REPORT EDIT ^RACTWR* Used to enter/edit reports and associated information into this file; RA RPTENTRY RA VERIFY ^RACTVR* Used to indicate a report has been verified; REPORT ONLY RA BATCHVERIFY, RA RPTVERIFY RA PRE-VERIFY REPORT EDIT Used to edit reports and associated information in this file. Does not allow report verification; RA RESIDENT PRE-VERIFY RA PRE-VERIFY REPORT ONLY Used to pre-verify reports; RA RESIDENT PRE-VERIFY If any modifications to these input templates are needed for local purposes, then great care should be taken not to degrade any branching logic in the template. Print Templates --------------- Compiled Name Routine Description; Option(s) ----- -------- ---------------------- RA REPORT ^RACTRT Prints the status of verified reports only. PRINT STATUS Includes date verified, routing queue, date printed, printed by ward/clinic. RA RPTDISTPRINTSTATUS Sort Templates -------------- The package does not use any sort templates associated with this file. persistent _PUBLIC 0 RowId RADNUC_MED_REPORTS_74 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.836244606 67178,44715.293717147 right RAD/NUC MED REPORTS 74 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'ADDITIONAL CLINICAL HISTORY' FileMan Field Number: '400' CLINICAL HISTORY FOR THIS EXAM This field may contain a patient's clinical history as well as instructions to the interpreting physician. For example, the instructions might be for the physician to interpret the exam images to rule out the possibility of the patient having a certain disease. The 'additional clinical history' is written by the interpreting physician and is entered into the system by the transcriptionist. Voice Recognition systems allow the interpreting physician to directly enter this information into the 'additional clinical history' field. %Library.String 40 ADDITIONAL_CLINICAL_HISTORY FileMan Field Label: 'BEDSECTION' FileMan Field Number: '119' BEDSECTION OF THE RAD/NUC MED PATIENT This field is computed by the system to the name of the bedsection of the rad/nuc med inpatient associated with this exam report. %Library.String 1 37 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="BED" D ^RARTFLDS K RAEXFLD set {BEDSECTION}=X 1 BEDSECTION FileMan Field Label: 'CASE NUMBER' FileMan Field Number: '4' CASE NUMBER OF THIS EXAM This field contains the completed case number of the exam associated with this report. The system fills in the data for this field with information obtained from the 'RAD/NUC MED PATIENT' file (#70). %Library.Numeric 5 CASE_NUMBER FileMan Field Label: 'CATEGORY OF EXAM' FileMan Field Number: '104' CATEGORY OF THE EXAM ASSOCIATED WITH THIS REPORT This field is computed by the system to the category of the exam associated with this report. %Library.String 1 25 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="CAT" D ^RARTFLDS K RAEXFLD set {CATEGORY_OF_EXAM}=X 1 CATEGORY_OF_EXAM FileMan Field Label: 'COMPLICATION' FileMan Field Number: '116' EXAM COMPLICATION This field is computed by the system to the complication that may have occurred during the exam procedure associated with this exam report. %Library.String 1 35 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="COMP" D ^RARTFLDS K RAEXFLD set {COMPLICATION}=X 1 COMPLICATION FileMan Field Label: 'CONTRACT/SHARING SOURCE' FileMan Field Number: '109' REFERRING CONTRACT/SHARING AGREEMENT This field is computed by the system to the name of the contract or sharing agreement that referred the patient associated with this exam report to rad/nuc med. %Library.String 1 29 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="CONT" D ^RARTFLDS K RARTFLD set {CONTRACTSHARING_SOURCE}=X 1 CONTRACTSHARING_SOURCE FileMan Field Label: 'DATE INITIAL OUTSIDE RPT ENTRY' FileMan Field Number: '18' DATE AND TIME AN OUTSIDE REPORT WAS LOGGED INTO THE SYSTEM The system populates this value when the 'Outside Report Entry/Edit' option is used. %Library.FilemanTimeStamp 16 DATE_INITIAL_OUTSIDE_RPT_ENTRY FileMan Field Label: 'DATE REPORT ENTERED' FileMan Field Number: '6' DATE AND TIME REPORT WAS ENTERED INTO SYSTEM This field contains the date and time that the report was entered into the system by the transcriptionist. %Library.FilemanTimeStamp 7 DATE_REPORT_ENTERED FileMan Field Label: 'DATE REPORT PRINTED' FileMan Field Number: '13' This is the date this report was first printed. Before a report is printed for the first time the patient location is updated, if necessary, in the 'RAD/NUC MED PATIENT' file (#70) at the Examinations multiple. %Library.FilemanTimeStamp 13 DATE_REPORT_PRINTED FileMan Field Label: 'DAY-CASE#' FileMan Field Number: '.01' DATE AND CASE NUMBER OF EXAM This field contains the date and case number of the imaging exam associated with this report. The system fills in this field with information obtained from the 'RAD/NUC MED PATIENT' file (#70) according to the case number selected by the transcriptionist. If the Site Specific Accession Number is in use then the 3-digit Site ID is appended to the beginning of the field. %Library.String 1 3 DAYCASE FileMan Field Label: 'ELECTRONIC SIGNATURE CODE' FileMan Field Number: '10' This field is computed by the system to the electronic signature code of the verifying interpreting physician. %Library.String 12 ELECTRONIC_SIGNATURE_CODE FileMan Field Label: 'EXAM DATE/TIME' FileMan Field Number: '3' DATE AND TIME OF EXAM This field contains the date and the time of the exam associated with this report. The system fills in this field with data obtained from the 'RAD/NUC MED PATIENT' file (#70) according to the case number selected by the transcriptionist. %Library.FilemanTimeStamp 4 EXAM_DATETIME FileMan Field Label: 'EXAM STATUS' FileMan Field Number: '103' STATUS OF THE EXAM ASSOCIATED WITH THIS REPORT This field is filled in by the system with the exam status of the exam associated with this report. %Library.String 1 24 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="EXAM" D ^RARTFLDS K RAEXFLD set {EXAM_STATUS}=X 1 EXAM_STATUS FileMan Field Label: 'HOSPITAL DIVISION' FileMan Field Number: '53' HOSPITAL DIVISION WHERE EXAM WAS PERFORMED This field is computed by the system to the name of the hospital division where the exam associated with this exam report was performed. %Library.String 1 21 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="DIV" D ^RARTFLDS K RAEXFLD set {HOSPITAL_DIVISION}=X 1 HOSPITAL_DIVISION Internal Entry Number %Library.String $$next^%apiSQL("$p(^RARPT(0),""^"",3)") 1 2 IEN FileMan Field Label: 'IMAGING LOCATION' FileMan Field Number: '54' IMAGING LOCATION WHERE EXAM WAS PERFORMED This field is computed by the system to the name of the imaging location within the hospital division where the exam associated with this exam report was performed. %Library.String 1 22 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="LOC" D ^RARTFLDS K RAEXFLD set {IMAGING_LOCATION}=X 1 IMAGING_LOCATION FileMan Field Label: 'IMPRESSION TEXT' FileMan Field Number: '300' IMPRESSION TEXT FOR THIS EXAM This field contains the 'impression text' of the rad/nuc med exam associated with this report. The 'impression text' gives a quick summary of the 'report text'. It is written by the interpreting physician and is entered into the system by the transcriptionist. The system will allow the interpreting physician to directly enter this information into the 'impression text' field through a voice recognition system. If the interpreting physician requests a standard report, the information in this field is copied from the 'impression text' field of the 'Standard Reports' file. %Library.String 39 IMPRESSION_TEXT Computed Field For Node P %Library.String 1 17 s {NODE_P}=$g(^RARPT({IEN},"P")) 1 NODE_P FileMan Field Label: 'NO PURGE INDICATOR' FileMan Field Number: '45' If this field is set to 'NO PURGE', then the report will not be purged or archived. This field is set when the corresponding field of the associated exam is set to 'NO PURGE'. %Library.EnumString 20 NO_PURGE_INDICATOR FileMan Field Label: 'PRE-VERIFICATION DATE/TIME' FileMan Field Number: '14' This is the date and time a report was pre-verified by an Interpreting Resident or Staff. %Library.FilemanTimeStamp 14 PREVERIFICATION_DATETIME FileMan Field Label: 'PRE-VERIFICATION E-SIG' FileMan Field Number: '16' PRE-VERIFICATION ELECTRONIC SIGNATURE CODE This is the electronic signature code of the Interpreting Resident or Staff who pre-verified this report. %Library.String 15 PREVERIFICATION_ESIG FileMan Field Label: 'PRIMARY CAMERA/EQUIP/RM' FileMan Field Number: '118' NAME OF PRIMARY CAMERA/EQUIP/RM This field is computed by the system to the name of the primary camera/equip/rm where the exam associated with this exam report was performed. %Library.String 1 36 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="EXRM" D ^RARTFLDS K RAEXFLD set {PRIMARY_CAMERAEQUIPRM}=X 1 PRIMARY_CAMERAEQUIPRM FileMan Field Label: 'PRIMARY DIAGNOSTIC CODE' FileMan Field Number: '113' PRIMARY DIAGNOSTIC CODE OF THE RAD/NUC MED EXAM This field is computed by the system to the primary diagnostic code associated with this exam report. %Library.String 1 32 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="DIAG" D ^RARTFLDS K RAEXFLD set {PRIMARY_DIAGNOSTIC_CODE}=X 1 PRIMARY_DIAGNOSTIC_CODE FileMan Field Label: 'PRIMARY INTERPRETING RESIDENT' FileMan Field Number: '112' PRIMARY INTERPRETING RESIDENT WHO ANALYZED IMAGES This field is computed by the system to the name of the primary interpreting resident who interprets the images associated with this exam report. %Library.String 1 31 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="RES" D ^RARTFLDS K RAEXFLD set {PRIMARY_INTERPRETING_RESIDENT}=X 1 PRIMARY_INTERPRETING_RESIDENT FileMan Field Label: 'PRIMARY INTERPRETING STAFF' FileMan Field Number: '115' PRIMARY INTERPRETING STAFF WHO ANALYZED IMAGES This field is computed by the system to the name of the primary interpreting staff who interprets the images associated with this report. %Library.String 1 34 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="STAFF" D ^RARTFLDS K RAEXFLD set {PRIMARY_INTERPRETING_STAFF}=X 1 PRIMARY_INTERPRETING_STAFF FileMan Field Label: 'PRINCIPAL CLINIC' FileMan Field Number: '108' REFERRING PRINCIPAL CLINIC This field is computed by the system to the name of the outpatient clinic that referred the patient associated with this exam report to rad/nuc med for the exam. %Library.String 1 28 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="CLINIC" D ^RARTFLDS K RAEXFLD set {PRINCIPAL_CLINIC}=X 1 PRINCIPAL_CLINIC FileMan Field Label: 'PROBLEM STATEMENT' FileMan Field Number: '25' STATEMENT TO DESCRIBE PROBLEM ENCOUNTERED IN TRANSCRIPTION This field may contain a note from the transcriptionist to the interpreting physician if any problems were encountered during the transcribing of this report. This message can be between 2 and 240 characters in length and is used to describe the problem. This field is available for use only if the status of the report is 'PD' (problem draft). %Library.String 1 18 s {PROBLEM_STATEMENT}=$e({NODE_P},1,240) 1 PROBLEM_STATEMENT FileMan Field Label: 'PROCEDURE' FileMan Field Number: '102' NAME OF THE PROCEDURE ASSOCIATED WITH THIS REPORT This field is filled in by the system with the name of the rad/nuc med procedure associated with this report. %Library.String 1 23 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="PROC" D ^RARTFLDS K RAEXFLD set {PROCEDURE102}=X 1 PROCEDURE102 FileMan Field Label: 'PURGED DATE' FileMan Field Number: '40' DATE OF LAST PURGE This field contains the date and the time that the 'Purge Data' option of the system was last used to purge the clinical history, report text, and the activity log of this report. %Library.FilemanDate 19 PURGED_DATE FileMan Field Label: 'REPORTED DATE' FileMan Field Number: '8' DATE THE REPORT WAS DICTATED This field contains the date that the interpreting physician dictated this report. The transcriptionist enters this date from the dictation tape. If the physician is using a voice recognition system for dictation, this date is entered at the time the report is transmitted to DHCP. %Library.FilemanDate 9 REPORTED_DATE FileMan Field Label: 'REPORT STATUS' FileMan Field Number: '5' STATUS OF THIS REPORT This field contains a value to indicate the status of this report. Valid choices are: 'V' for Verified, 'R' for Released/Not Verified, 'PD' for Problem Draft, 'D' for Draft, 'EF' for Electronically Filed and 'X' for Deleted. 'V' (Verified) status refers to a report that is verified by the interpreting physician and is available for display outside the Rad/Nuc Med Department to appropriate users, such as ward clerks, nurses, and physicians. 'R' (Released/Not Verified) status refers to a report that is not verified by the interpreting physician and is available for display outside the Rad/Nuc Med Department. The 'R' status is allowed only when the parameter that controls this feature, 'Allow Released/Unverified' of the 'RAD/NUC MED DIVISION' file (#79), is set to 'Yes'. Use the 'Display Report' option to view reports with the 'R' status. 'D' (Draft) status or 'PD' (Problem Draft) status refers to a report that is available only for display in the Rad/Nuc Med Department. A statement describing the problem to the interpreting physician is printed at the end of reports with the 'PD' status. 'EF' (Electronically Filed) status refers to a report that is interpreted outside the Rad/Nuc Med Department. The content is not the actual interpreted report, but canned text referring to the outside interpreted report. 'X' (Deleted) status refers to a report that is deleted from a case, but remains in the database though not selectable from any Radiology options. %Library.EnumString 6 REPORT_STATUS FileMan Field Label: 'REPORT TEXT' FileMan Field Number: '200' REPORT TEXT FOR THIS EXAM This field contains the report text for the imaging exam. The report text is written by the interpreting physician and may be entered into the system by a transcriptionist. A report may also be entered into DHCP when the interpreting physician uses a voice recognition system. If the interpreting physician requests a standard report, the information in this field is copied from the 'Report Text' field of the 'Standard Reports' file. %Library.String 38 REPORT_TEXT FileMan Field Label: 'REQUESTING PHYSICIAN' FileMan Field Number: '114' NAME OF THE REQUESTING PHYSICIAN This field is computed by the system to the name of the person who requested the exam associated with this report. This person does not have to be a physician. (ie. It might be a nurse.) %Library.String 1 33 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="PHY" D ^RARTFLDS K RAEXFLD set {REQUESTING_PHYSICIAN}=X 1 REQUESTING_PHYSICIAN FileMan Field Label: 'RESEARCH SOURCE' FileMan Field Number: '109.5' REFERRING RESEARCH SOURCE This field is computed by the system to the name of the research source that referred the patient associated with this exam report to rad/nuc med. %Library.String 1 30 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="RSCH" D ^RARTFLDS K RAEXFLD set {RESEARCH_SOURCE}=X 1 RESEARCH_SOURCE FileMan Field Label: 'SERVICE' FileMan Field Number: '107' SERVICE TREATING THE RAD/NUC MED INPATIENT This field is computed by the system to the name of the service treating the inpatient associated with this exam report. %Library.String 1 27 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="SERV" D ^RARTFLDS K RAEXFLD set {SERVICE}=X 1 SERVICE FileMan Field Label: 'TELERADIOLOGY PHYSICIAN NAME' FileMan Field Number: '9.1' This field identifies the name of the teleradiologist who verified (signed) the report. %Library.String 10 TELERADIOLOGY_PHYSICIAN_NAME FileMan Field Label: 'TELERADIOLOGY PHYSICIAN NPI' FileMan Field Number: '9.2' This field identified the National Provider ID (NPI) of the teleradiologist who verified (signed) the report. %Library.String 11 TELERADIOLOGY_PHYSICIAN_NPI SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 41 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFIED DATE' FileMan Field Number: '7' DATE AND TIME NOTICE OF VERIFICATION WAS ENTERED INTO SYSTEM As of July, 1985, this field contains the date and the time that it was indicated to the system that the report was verified by the interpreting physician. An option allowing online verification lets the interpreting physician verify the report directly via a CRT. As a result, there will be no discrepency between the date/time the physician verified the report and the date/time it was indicated to the system. %Library.FilemanTimeStamp 8 VERIFIED_DATE FileMan Field Label: 'WARD' FileMan Field Number: '106' WARD LOCATION OF RAD/NUC MED INPATIENT This field is computed by the system to the name of the hospital ward where the inpatient associated with this exam report resided at the time this report was first printed. %Library.String 1 26 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S RAEXFLD="WARD" D ^RARTFLDS K RAEXFLD set {WARD}=X 1 WARD BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RARPT(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DAYCASE}'="" FDA(74,"+1,",.01)={"DAYCASE"} set:{EXAM_DATETIME}'="" FDA(74,"+1,",3)={"EXAM_DATETIME"} set:{CASE_NUMBER}'="" FDA(74,"+1,",4)={"CASE_NUMBER"} set:{REPORT_STATUS}'="" FDA(74,"+1,",5)={"REPORT_STATUS"} set:{DATE_REPORT_ENTERED}'="" FDA(74,"+1,",6)={"DATE_REPORT_ENTERED"} set:{VERIFIED_DATE}'="" FDA(74,"+1,",7)={"VERIFIED_DATE"} set:{REPORTED_DATE}'="" FDA(74,"+1,",8)={"REPORTED_DATE"} set:{TELERADIOLOGY_PHYSICIAN_NAME}'="" FDA(74,"+1,",9.1)={"TELERADIOLOGY_PHYSICIAN_NAME"} set:{TELERADIOLOGY_PHYSICIAN_NPI}'="" FDA(74,"+1,",9.2)={"TELERADIOLOGY_PHYSICIAN_NPI"} set:{ELECTRONIC_SIGNATURE_CODE}'="" FDA(74,"+1,",10)={"ELECTRONIC_SIGNATURE_CODE"} set:{DATE_REPORT_PRINTED}'="" FDA(74,"+1,",13)={"DATE_REPORT_PRINTED"} set:{PREVERIFICATION_DATETIME}'="" FDA(74,"+1,",14)={"PREVERIFICATION_DATETIME"} set:{PREVERIFICATION_ESIG}'="" FDA(74,"+1,",16)={"PREVERIFICATION_ESIG"} set:{DATE_INITIAL_OUTSIDE_RPT_ENTRY}'="" FDA(74,"+1,",18)={"DATE_INITIAL_OUTSIDE_RPT_ENTRY"} set:{PURGED_DATE}'="" FDA(74,"+1,",40)={"PURGED_DATE"} set:{NO_PURGE_INDICATOR}'="" FDA(74,"+1,",45)={"NO_PURGE_INDICATOR"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(74)") set %SkipFiling=1 if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REPORT_TEXT}'="" { set D0={RowId} for i=1:1:$l({REPORT_TEXT},$c(13,10)) { set wp(i)=$p({REPORT_TEXT},$c(13,10),i) } do WP^DIE(74,{RowId},200,,"wp","%FMERR(74)") if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {IMPRESSION_TEXT}'="" { set D0={RowId} for i=1:1:$l({IMPRESSION_TEXT},$c(13,10)) { set wp(i)=$p({IMPRESSION_TEXT},$c(13,10),i) } do WP^DIE(74,{RowId},300,,"wp","%FMERR(74)") if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {ADDITIONAL_CLINICAL_HISTORY}'="" { set D0={RowId} for i=1:1:$l({ADDITIONAL_CLINICAL_HISTORY},$c(13,10)) { set wp(i)=$p({ADDITIONAL_CLINICAL_HISTORY},$c(13,10),i) } do WP^DIE(74,{RowId},400,,"wp","%FMERR(74)") if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DAYCASE*C} FDA(74,IENS,.01)={DAYCASE} set:{EXAM_DATETIME*C} FDA(74,IENS,3)={EXAM_DATETIME} set:{CASE_NUMBER*C} FDA(74,IENS,4)={CASE_NUMBER} set:{REPORT_STATUS*C} FDA(74,IENS,5)={REPORT_STATUS} set:{DATE_REPORT_ENTERED*C} FDA(74,IENS,6)={DATE_REPORT_ENTERED} set:{VERIFIED_DATE*C} FDA(74,IENS,7)={VERIFIED_DATE} set:{REPORTED_DATE*C} FDA(74,IENS,8)={REPORTED_DATE} set:{TELERADIOLOGY_PHYSICIAN_NAME*C} FDA(74,IENS,9.1)={TELERADIOLOGY_PHYSICIAN_NAME} set:{TELERADIOLOGY_PHYSICIAN_NPI*C} FDA(74,IENS,9.2)={TELERADIOLOGY_PHYSICIAN_NPI} set:{ELECTRONIC_SIGNATURE_CODE*C} FDA(74,IENS,10)={ELECTRONIC_SIGNATURE_CODE} set:{DATE_REPORT_PRINTED*C} FDA(74,IENS,13)={DATE_REPORT_PRINTED} set:{PREVERIFICATION_DATETIME*C} FDA(74,IENS,14)={PREVERIFICATION_DATETIME} set:{PREVERIFICATION_ESIG*C} FDA(74,IENS,16)={PREVERIFICATION_ESIG} set:{DATE_INITIAL_OUTSIDE_RPT_ENTRY*C} FDA(74,IENS,18)={DATE_INITIAL_OUTSIDE_RPT_ENTRY} set:{PURGED_DATE*C} FDA(74,IENS,40)={PURGED_DATE} set:{NO_PURGE_INDICATOR*C} FDA(74,IENS,45)={NO_PURGE_INDICATOR} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(74)") set %SkipFiling=1 if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REPORT_TEXT*C} { set D0={RowId} kill wp if {REPORT_TEXT}'="" { set wproot="wp" for i=1:1:$l({REPORT_TEXT},$c(13,10)) { set wp(i)=$p({REPORT_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(74,{RowId},200,,wproot,"%FMERR(74)") if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {IMPRESSION_TEXT*C} { set D0={RowId} kill wp if {IMPRESSION_TEXT}'="" { set wproot="wp" for i=1:1:$l({IMPRESSION_TEXT},$c(13,10)) { set wp(i)=$p({IMPRESSION_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(74,{RowId},300,,wproot,"%FMERR(74)") if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {ADDITIONAL_CLINICAL_HISTORY*C} { set D0={RowId} kill wp if {ADDITIONAL_CLINICAL_HISTORY}'="" { set wproot="wp" for i=1:1:$l({ADDITIONAL_CLINICAL_HISTORY},$c(13,10)) { set wp(i)=$p({ADDITIONAL_CLINICAL_HISTORY},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(74,{RowId},400,,wproot,"%FMERR(74)") if $d(%FMERR(74,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(74)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.RADNUCMEDREPO59S index ^RARPT nonnull "B" {DAYCASE} {IEN} 0]]> data ^RARPT {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "H" new data,i,node set {ADDITIONAL_CLINICAL_HISTORY}="" merge data=^RARPT({S1},"H") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {ADDITIONAL_CLINICAL_HISTORY}={ADDITIONAL_CLINICAL_HISTORY}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 4 "^" 0 18 "^" 0 6 "^" 0 11 "^" 0 1 "^" 0 10 "^" 0 3 "I" new data,i,node set {IMPRESSION_TEXT}="" merge data=^RARPT({S1},"I") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {IMPRESSION_TEXT}={IMPRESSION_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "NOPURGE" 1 "^" 0 12 "^" 0 14 "^" "PURGE" 1 "^" 0 8 "^" 0 5 "R" new data,i,node set {REPORT_TEXT}="" merge data=^RARPT({S1},"R") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REPORT_TEXT}={REPORT_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "TT" 1 "^" "TT" 2 "^" 0 7 Generated class for FileMan File Number: '695.8' File Name: 'REASON (MEDICINE)' Class generated by %fm2class version 2.56 This file stores the various reasons for stopping of Exercise Tolerance Tests, the reason for Generator/Lead changes for Pacemaker, and the reason for transmitting a Pacemaker report to the National Center. persistent _PUBLIC 0 RowId REASON_MEDICINE_695_8 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.828203897 67178,44715.337333633 right REASON (MEDICINE) 695.8 2.56 12/04/2024 12:25:15 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695.8,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEDICIAL PACKAGE USE' FileMan Field Number: '1' This field is used as a screen to differentiate which area of Medicine the reason is associated with. %Library.EnumString 4 MEDICIAL_PACKAGE_USE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field holds a list of Medical reasons for various areas of Medicine. Examples: Explain reasons for Pacemaker, Reason for stopping for PFT, etc. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695.8," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(695.8,"+1,",.01)={"NAME"} set:{MEDICIAL_PACKAGE_USE}'="" FDA(695.8,"+1,",1)={"MEDICIAL_PACKAGE_USE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695.8)") set %SkipFiling=1 if $d(%FMERR(695.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(695.8,IENS,.01)={NAME} set:{MEDICIAL_PACKAGE_USE*C} FDA(695.8,IENS,1)={MEDICIAL_PACKAGE_USE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.8)") set %SkipFiling=1 if $d(%FMERR(695.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REASONMEDICI4F0S index {MEDICIAL_PACKAGE_USE}'="" 1 ^MCAR conditional 695.8 "AC" $$TRUNCATE({MEDICIAL_PACKAGE_USE},30)) {IEN} 0]]> index ^MCAR nonnull 695.8 "B" {NAME} {IEN} 0]]> data ^MCAR 695.8 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '660' File Name: 'RECORD OF PROS APPLIANCE/REPAIR' Class generated by %fm2class version 2.56 This is the main file for prosthetic purchasing transactions. AMIS is calculated from this file based on item issued and disability served. This file is also the permanent record for the patient VAF 10-2319 of items issued to the veteran. persistent _PUBLIC 0 RowId RECORD_OF_PROS_APPLIANCEREPAIR_660 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.33204803 67178,44715.394318845 right RECORD OF PROS APPLIANCE/REPAIR 660 2.56 12/04/2024 12:25:15 1 1 IEN 1 PROS_AMIS_CODES_663]]> ADMINREPAIRAMISCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_ADMIN_REPAIR_AMIS_CODE PROS_AMIS_CODES_663]]> AMISNEWCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_AMIS_NEW_CODE REQUESTCONSULTATION_123]]> CONSULT VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_CONSULT CPT_81]]> HCPCS VALIP.prosthetic.fm2cw.CPT81 FKey_HCPCS NEW_PERSON_200]]> INITIATOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INITIATOR GENERIC_INVENTORY_445]]> INVENTORYPOINT VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_INVENTORY_POINT PROS_ITEM_MASTER_661]]> ITEM VALIP.prosthetic.fm2cw.PROSITEMMASTER661 FKey_ITEM NEW_PERSON_200]]> LATESTORDERINGPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_LATEST_ORDERING_PROVIDER PROSTHETIC_HCPCS_661_1]]> LATESTPSASHCPCS VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 FKey_LATEST_PSAS_HCPCS PROS_AMIS_CODES_663]]> ORTHOTICSLABCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_ORTHOTICS_LAB_CODE PROS_AMIS_CODES_663]]> ORTHOTICSLABREPAIRCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_ORTHOTICS_LAB_REPAIR_CODE PROSTHETICS_PATIENT_665]]> PATIENTNAME VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 FKey_PATIENT_NAME VISIT_9000010]]> PCE VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCE PFSS_ACCOUNT_375]]> PFSSACCOUNTREFERENCE VALIP.prosthetic.fm2cw.PFSSACCOUNT375 FKey_PFSS_ACCOUNT_REFERENCE ICD_DIAGNOSIS_80]]> PRIMARYICDDIAGNOSISCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_PRIMARY_ICD_DIAGNOSIS_CODE PROSTHETIC_HCPCS_661_1]]> PSASHCPCS VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 FKey_PSAS_HCPCS INSTITUTION_4]]> RECEIVINGSTATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_RECEIVING_STATION INSTITUTION_4]]> REQUESTINGSTATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_REQUESTING_STATION PROS_AMIS_CODES_663]]> RESTORATIONSLABREPAIRCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_RESTORATIONS_LAB_REPAIR_CODE PROS_AMIS_CODES_663]]> RESTORATIONLABCODE VALIP.prosthetic.fm2cw.PROSAMISCODES663 FKey_RESTORATION_LAB_CODE ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSIS2 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_2 ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSIS3 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_3 ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSISCODE1 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_CODE_1 INSTITUTION_4]]> STATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_STATION PROSTHETIC_INVENTORY_TRANSACTION_661_6]]> STOCKISSUE VALIP.prosthetic.fm2cw.PROSTHETICINVENTORYTRANSACTION6616 FKey_STOCK_ISSUE ICD_DIAGNOSIS_80]]> SUSPENSEICD VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SUSPENSE_ICD NEW_PERSON_200]]> SUSPENSEREQUESTOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SUSPENSE_REQUESTOR INSTITUTION_4]]> SUSPENSESTATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_SUSPENSE_STATION UNIT_OF_ISSUE_420_5]]> UNITOFISSUE VALIP.prosthetic.fm2cw.UNITOFISSUE4205 FKey_UNIT_OF_ISSUE NEW_PERSON_200]]> USERWHOEDIT VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_USER_WHO_EDIT VENDOR_440]]> VENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_VENDOR PROSTHETIC_WORK_ORDER_664_2]]> WORKORDERNUMBER VALIP.prosthetic.fm2cw.PROSTHETICWORKORDER6642 FKey_WORK_ORDER_NUMBER PROSTHETIC_25293_664_1]]> f25293 VALIP.prosthetic.fm2cw.PROSTHETIC252936641 FKey_f25293 FileMan Field Label: 'ACTION' FileMan Field Number: '13' QTY The action taken on this transaction is noted here. The set of codes is self explanatory; however, the inactive action is used to indicate that the appliance is no longer being followed by VA. %Library.EnumString 43 ACTION FileMan Field Label: 'ADMIN REPAIR AMIS CODE' FileMan Field Number: '64' This field will be set when AMIS is generated for the Repair Worksheets. VALIP.prosthetic.fm2cw.PROSAMISCODES663 116 ADMIN_REPAIR_AMIS_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {ADMIN_REPAIR_AMIS_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 ADMIN_REPAIR_AMIS_CODE_CODE 1 FileMan Field Label: 'AMIS DATE' FileMan Field Number: '60' This field is set when AMIS is generated. This is the date AMIS was run and the item was picked up and counted. %Library.FilemanDate 113 AMIS_DATE FileMan Field Label: 'AMIS FLAG' FileMan Field Number: '79' Contains the status if the Item will not count on the Administrative AMIS. %Library.EnumString 129 AMIS_FLAG FileMan Field Label: 'AMIS GROUPER' FileMan Field Number: '68' This is used in AMIS calculations. This field should never be changed through FileMan! %Library.Numeric 117 AMIS_GROUPER FileMan Field Label: 'AMIS NEW CODE' FileMan Field Number: '52' This field is set when AMIS is generated. It is the New Worksheet AMIS code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 112 AMIS_NEW_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {AMIS_NEW_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 AMIS_NEW_CODE_CODE 1 FileMan Field Label: 'BACKLOG DATE' FileMan Field Number: '83' This field will contain the date that the entry was created. This entry will be a backlog entry until it has been completed. All backlog data must show up on the Laboratory or Restoration AMIS Count. %Library.FilemanDate 133 BACKLOG_DATE FileMan Field Label: 'BANK AUTHORIZATION NUMBER' FileMan Field Number: '4.3' This six digit number is the authorization number VISA gives to the vendor for guaranteed payment. This number is used in the reconciliation process. %Library.String 10 BANK_AUTHORIZATION_NUMBER FileMan Field Label: 'CODING FLAG DATE' FileMan Field Number: '4.91' This is the date associated with field number 4.9. The date the coding flag was set. %Library.FilemanTimeStamp 16 CODING_FLAG_DATE FileMan Field Label: 'COMPLETION DATE' FileMan Field Number: '8.4' This is the date the susepnse was completed as it appears in file #668. %Library.FilemanTimeStamp 30 COMPLETION_DATE FileMan Field Label: 'COMPLETION DATE' FileMan Field Number: '50' The date the job was completed. %Library.FilemanDate 110 COMPLETION_DATE0 FileMan Field Label: 'CONSULT' FileMan Field Number: '8.9' This is a pointer to Consult file #123. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 36 CONSULT FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {CONSULT_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 CONSULT_FILE_ENTRY_DATE 1 FileMan Field Label: 'CONSULT REQUEST SERVICE' FileMan Field Number: '8.61' A service/section of a suspense requestor that initiated a consult for Prosthetics item. This free text entry is a service/section name of SERVICE/SECTION file (#49). %Library.String 33 CONSULT_REQUEST_SERVICE FileMan Field Label: 'CONTRACT #' FileMan Field Number: '38.7' This field stores the Contract Number. %Library.String 100 CONTRACT_ FileMan Field Label: 'CPT MODIFIER' FileMan Field Number: '4.7' CPT Modifiers in a comma delimited format, consistent with the HCFA published manuals. %Library.String 13 CPT_MODIFIER FileMan Field Label: 'DALC BILL DATE' FileMan Field Number: '89.2' This is the Billing Date from the Denver Acquisition and Logistics Center (DALC). %Library.FilemanDate 136 DALC_BILL_DATE FileMan Field Label: 'DALC ORDERING STATION' FileMan Field Number: '89.3' This is the Ordering station from to the Denver Acquisition and Logistics Center (DALC). %Library.String 137 DALC_ORDERING_STATION FileMan Field Label: 'DALC REFERENCE NUMBER' FileMan Field Number: '89.1' This is the line level reference number from a DALC purchase order or delivery of item or service. %Library.String 135 DALC_REFERENCE_NUMBER FileMan Field Label: 'DATE CPT MODIFIER EXTRACTED' FileMan Field Number: '4.8' This is the date the patient record extracted for billing. This date is also being used to trigger a mail message to billing if the PSAS HCPCS is edited and changed after the extraction has been ran. %Library.FilemanTimeStamp 14 DATE_CPT_MODIFIER_EXTRACTED FileMan Field Label: 'DATE EDITED' FileMan Field Number: '36' This is the date the Total Cost field has been changed using option ED2. %Library.FilemanDate 96 DATE_EDITED FileMan Field Label: 'DATE OF SERVICE' FileMan Field Number: '39' This is the date when an item is issued to the patient. %Library.FilemanDate 102 DATE_OF_SERVICE FileMan Field Label: 'DATE REQUIRED' FileMan Field Number: '26' This field stores the date the vendor is required to provide the Item/Service by. %Library.FilemanDate 58 DATE_REQUIRED FileMan Field Label: 'DATE RX WRITTEN' FileMan Field Number: '8.2' This is the date the prescription was written as it appears in file #668. %Library.FilemanTimeStamp 28 DATE_RX_WRITTEN FileMan Field Label: 'DATE SENT TO PCE' FileMan Field Number: '8.13' This is the date last sent or edited in PCE. If PCE is deleted this field should be deleted. %Library.FilemanTimeStamp 26 DATE_SENT_TO_PCE FileMan Field Label: 'DELIVERY DATE' FileMan Field Number: '10' This is the date that the appliance was delivered and accepted by the patient. This date, under certain circumstances, may be a date that the appliance was mailed to the patient. It may or may not be the same as the transaction date and/or the request date. %Library.FilemanTimeStamp 40 DELIVERY_DATE FileMan Field Label: 'DELIVERY VERIFICATION DATE' FileMan Field Number: '20' This is the date the Veteran indicates on the Notification card that he received the item. %Library.FilemanDate 51 DELIVERY_VERIFICATION_DATE FileMan Field Label: 'DELIVERY VERIFICATION STATUS' FileMan Field Number: '20.1' This is the statement of receipt that the Veteran indicates on the returned Delivery Notification Card. %Library.EnumString 52 DELIVERY_VERIFICATION_STATUS FileMan Field Label: 'DELIVER TO' FileMan Field Number: '25' Delivery location that will print on VAF 10-2421 to show the vendor where the item will be delivered. %Library.String 57 DELIVER_TO FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '24' This is a detailed description of the item/service supplied. %Library.String 56 DESCRIPTION FileMan Field Label: 'ECMS ACTIONUID' FileMan Field Number: '41' This field stores the eCMS internal, unique identifier for the IFCAP 2237 used to perform the Purchase Request. This data is part of the eCMS/IFCAP interface. %Library.String 104 ECMS_ACTIONUID FileMan Field Label: 'ENTRY DATE' FileMan Field Number: '.01' This is the date that the transaction was entered into the system. It may or may not be the same as the request date. %Library.FilemanTimeStamp 1 3 ENTRY_DATE FileMan Field Label: 'EXCLUDE/WAIVER' FileMan Field Number: '38.1' This field determines if the item is EXCLUDED or Waver off of a National Contract %Library.EnumString 99 EXCLUDEWAIVER FileMan Field Label: 'EXTENDED DESCRIPTION' FileMan Field Number: '28' This is the extended information from purchasing and also from posting of VAF 2237s. %Library.String 60 EXTENDED_DESCRIPTION FileMan Field Label: '2529-3' FileMan Field Number: '72' VAF 10-2529-3 information will be displayed if the VAF 10-2319 item is associated with a Denver Distribution Center, National Foot Center, or Prosthetics Lab request. VALIP.prosthetic.fm2cw.PROSTHETIC252936641 121 f25293 DATE Patient Name or Date Date that the VAF 10-2529-3 was created.]]> %Library.FilemanTimeStamp 1 DATE_01 into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {f25293_DATE_01}=$select(SQLCODE=0:val,1:"")]]> 1 f25293_DATE_01 1 FileMan Field Label: 'FORM REQUESTED ON' FileMan Field Number: '11' The FORM REQUESTED ON is based on current VA regulations. The system makes no checks to be sure that the form entered from the set of codes is within these regulations. %Library.EnumString 41 FORM_REQUESTED_ON FileMan Field Label: 'FREE TEXT WO #' FileMan Field Number: '72.5' This is the actual human readable Work Order Number for NPPD identification purposes. %Library.String 122 FREE_TEXT_WO_ FileMan Field Label: 'HCPCS' FileMan Field Number: '4.1' Health Care Financing Administration Common Procedure Coding System (HCPCS). This field should have the HCPCS code for the Item you are selecting. HCPCS is a uniform method for healthcare providers and medical suppliers to report professional services, procedures and supplies. VALIP.prosthetic.fm2cw.CPT81 8 HCPCS FileMan Field Label: 'HCPCS-ICD9 CODING FLAG' FileMan Field Number: '4.9' This field is used to determine the current code set versioning of a transaction. No errors, number 1. PSAS HCPCS, Not Billiable Item, number 14. ICD9 error, number 12. HCPCS error, number 13. Both ICD9 and HCPCS error, number 132. Both ICD9 error and Not Billiable Item, number 142. %Library.Numeric 15 HCPCSICD9_CODING_FLAG FileMan Field Label: 'HCPCS/ITEM' FileMan Field Number: '37' Enternal entry of an HCPCS concatenated to an enternal entry of an item in file #661.1. Entry for this field is derived from the entry in file 661.2, field #9. %Library.String 97 HCPCSITEM FileMan Field Label: 'HCPCS/ITEM DESCRIPTION' FileMan Field Number: '38' This is the description of an Item or Appliance kept by local site in file #661.1, field #20. This field is updated during the STOCK ISSUE options. %Library.String 98 HCPCSITEM_DESCRIPTION CPT CODE This file contains both CPT from the AMA and HCFA. The AMA entries will have an internal number less than 99999. The AMA CPT are '5' numbers that coorespond to the internal number. The HCFA codes will have an internal number of 100000 or greater. These codes are '1' alpha followed by '4' numbers, which will NOT correspond to the internal number.]]> %Library.String 1 CPT_CODE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {HCPCS_CPT_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 HCPCS_CPT_CODE 1 FileMan Field Label: 'HIGH TECH ITEM' FileMan Field Number: '4.92' This is the determination by the Prosthetics Laboratory Technician. 1=YES 0=NO %Library.EnumString 17 HIGH_TECH_ITEM FileMan Field Label: 'HISTORICAL CITY' FileMan Field Number: '94' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 142 HISTORICAL_CITY FileMan Field Label: 'HISTORICAL DATA' FileMan Field Number: '15' If this field contains an asterisk (*), then this transaction has been counted by the AMIS option, or is considered to be a historical transaction. %Library.String 45 HISTORICAL_DATA FileMan Field Label: 'HISTORICAL ITEM' FileMan Field Number: '89' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 134 HISTORICAL_ITEM FileMan Field Label: 'HISTORICAL RECORD' FileMan Field Number: '97' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.Numeric 145 HISTORICAL_RECORD FileMan Field Label: 'HISTORICAL STATE' FileMan Field Number: '95' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 143 HISTORICAL_STATE FileMan Field Label: 'HISTORICAL STATION' FileMan Field Number: '90' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 138 HISTORICAL_STATION FileMan Field Label: 'HISTORICAL STREET ADD' FileMan Field Number: '93' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 141 HISTORICAL_STREET_ADD FileMan Field Label: 'HISTORICAL VENDOR' FileMan Field Number: '91' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 139 HISTORICAL_VENDOR FileMan Field Label: 'HISTORICAL VENDOR PHONE' FileMan Field Number: '92' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 140 HISTORICAL_VENDOR_PHONE FileMan Field Label: 'HISTORICAL ZIP' FileMan Field Number: '96' This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported. %Library.String 144 HISTORICAL_ZIP Internal Entry Number %Library.String $$next^%apiSQL("$p(^RMPR(660,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INITIAL ACTION DATE' FileMan Field Number: '8.3' This field is the date when an initial action was entered in suspense. %Library.FilemanTimeStamp 29 INITIAL_ACTION_DATE FileMan Field Label: 'INITIATOR' FileMan Field Number: '27' This is the person who created the transaction. VALIP.prosthetic.fm2cw.NEWPERSON200 59 INITIATOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {INITIATOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INITIATOR_NAME 1 FileMan Field Label: 'INVENTORY POINT' FileMan Field Number: '29' This is the inventory point for this transaction and is a pointer to the GENERIC INVENTORY file (#445). VALIP.prosthetic.fm2cw.GENERICINVENTORY445 61 INVENTORY_POINT INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {INVENTORY_POINT_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 INVENTORY_POINT_INVENTORY_POINT 1 FileMan Field Label: 'ITEM' FileMan Field Number: '4' This field is a pointer to the master item list of possible appliances. The master list is set up so that appliances fall into groups which are the types of appliances. VALIP.prosthetic.fm2cw.PROSITEMMASTER661 7 ITEM NAME This is the IFCAP Item Master Number.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {ITEM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_NAME 1 FileMan Field Label: 'LAB AMIS DATE' FileMan Field Number: '73' Last date the Lab AMIS was run. %Library.FilemanTimeStamp 123 LAB_AMIS_DATE FileMan Field Label: 'LAB REMARKS' FileMan Field Number: '51' A free-text field used to indicate any additional Laboratory information that is needed for this entry. Since the field is only 40 characters in length, use meaningful abbreviations where possible. %Library.String 111 LAB_REMARKS FileMan Field Label: 'LATEST ORDERING PROVIDER' FileMan Field Number: '105' This is the latest attending physician (ordering provider) that is held and stored for comparison during the account updates for the PFSS project. VALIP.prosthetic.fm2cw.NEWPERSON200 151 LATEST_ORDERING_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {LATEST_ORDERING_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LATEST_ORDERING_PROVIDER_NAME 1 FileMan Field Label: 'LATEST PSAS HCPCS' FileMan Field Number: '102' This is the latest PSAS HCPCS code that is held and stored for comparison during the account updates for the PFSS project. VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 148 LATEST_PSAS_HCPCS HCPCS This is a unique Prosthetics HCPCS code that corresponds to the CPT code.]]> %Library.String 1 HCPCS into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {LATEST_PSAS_HCPCS_HCPCS}=$select(SQLCODE=0:val,1:"")]]> 1 LATEST_PSAS_HCPCS_HCPCS 1 FileMan Field Label: 'LATEST QTY' FileMan Field Number: '103' This is the latest QTY that is held and stored for comparison during the account updates for the PFSS project. %Library.Numeric 149 LATEST_QTY FileMan Field Label: 'LATEST TOTAL COST' FileMan Field Number: '104' This is the latest Total Cost that is held and stored for comparison during the account updates for the PFSS project. %Library.Numeric 150 LATEST_TOTAL_COST FileMan Field Label: 'LOT NUMBER' FileMan Field Number: '21' This field stores the lot number of the item being furnished to the patient. Enter the manufacturer's lot number, if known. %Library.String 53 LOT_NUMBER FileMan Field Label: 'NO ADMIN COUNT' FileMan Field Number: '81' This field will be set if the Item will not count on the Administrative AMIS or the Orthotic Laboratory AMIS. %Library.EnumString 131 NO_ADMIN_COUNT FileMan Field Label: 'NO LAB COUNT' FileMan Field Number: '82' Field will be set if there is no AMIS Count for AMIS. %Library.EnumString 132 NO_LAB_COUNT FileMan Field Label: 'NUMBER OF BIDS' FileMan Field Number: '38.8' The number of bids recieved for a particular item. %Library.Numeric 101 NUMBER_OF_BIDS FileMan Field Label: 'OIF/OEF' FileMan Field Number: '34' Veteran determined to be OEF/OIF 1 Yes 0 NO. %Library.EnumString 94 OIFOEF FileMan Field Label: 'ORTHOTICS LAB CODE' FileMan Field Number: '74' Contains the Orthotic Lab New Code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 124 ORTHOTICS_LAB_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {ORTHOTICS_LAB_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 ORTHOTICS_LAB_CODE_CODE 1 FileMan Field Label: 'ORTHOTICS LAB REPAIR CODE' FileMan Field Number: '75' Contains the Orthotic Lab Repair Code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 125 ORTHOTICS_LAB_REPAIR_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {ORTHOTICS_LAB_REPAIR_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 ORTHOTICS_LAB_REPAIR_CODE_CODE 1 FileMan Field Label: 'PATIENT CATEGORY' FileMan Field Number: '62' This is the Prosthetic Patient Category used for counting AMIS. %Library.EnumString 114 PATIENT_CATEGORY FileMan Field Label: 'PATIENT NAME' FileMan Field Number: '.02' This is the name of the patient that this transaction is for. The name is a pointer to the PROSTHETIC PATIENT file which has the same internal entry number as the main patient database. VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 1 4 PATIENT_NAME NAME This is the name of the patient, same as the PATIENT file in MAS.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {PATIENT_NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME_NAME 1 FileMan Field Label: 'PATIENT NOTIFICATION FLAG' FileMan Field Number: '19' This field if set to 1 will be used to gather the patient records that need to be re-sent for the daily pull of the Mandatory Patient Notification process. %Library.EnumString 50 PATIENT_NOTIFICATION_FLAG FileMan Field Label: 'PCE' FileMan Field Number: '8.12' This field is pointer to (Patient Encounter), Visit file (#9000010). When an entry is created in PCE a pointer is being set. VALIP.prosthetic.fm2cw.VISIT9000010 25 PCE VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {PCE_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCE_VISITADMIT_DATETIME 1 FileMan Field Label: 'PFSS ACCOUNT FLAG' FileMan Field Number: '106' Flag for ready to process PFSS Account Creation/Pre-Certification. 1 = Ready to process %Library.EnumString 152 PFSS_ACCOUNT_FLAG FileMan Field Label: 'PFSS ACCOUNT REFERENCE' FileMan Field Number: '100' This refers to the reference number passed back to Prosthetics application from the PFSS IBB get account process. This field points to PFSS ACCOUNT file (#375). VALIP.prosthetic.fm2cw.PFSSACCOUNT375 146 PFSS_ACCOUNT_REFERENCE ACCOUNT REFERENCE The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing.]]> %Library.Numeric 1 ACCOUNT_REFERENCE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE}=$select(SQLCODE=0:val,1:"")]]> 1 PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE 1 FileMan Field Label: 'PFSS CHARGE FLAG' FileMan Field Number: '107' Flag for ready to process PFSS Charge message. 1 = Ready to process %Library.EnumString 153 PFSS_CHARGE_FLAG FileMan Field Label: 'PFSS CHARGE ID' FileMan Field Number: '101' A unique charge identifier for each charge entity. Prosthetics calls $$GETCHGID^IBBAPI() to obtain a Unique Charge Identifier. %Library.Numeric 147 PFSS_CHARGE_ID FileMan Field Label: 'PICKUP/DEL' FileMan Field Number: '6.5' This field is a set of codes to identify pickup/delivery charges on VAF 10-2319. %Library.EnumString 20 PICKUPDEL FileMan Field Label: 'PRIMARY AGENT ORANGE EXPOSURE' FileMan Field Number: '30.1' Primary diagnosis is related to Agent Orange exposure. %Library.EnumString 63 PRIMARY_AGENT_ORANGE_EXPOSURE FileMan Field Label: 'PRIMARY COMBAT VET' FileMan Field Number: '30.7' Primary diagnosis related to Combat. %Library.EnumString 69 PRIMARY_COMBAT_VET FileMan Field Label: 'PRIMARY ENVIRONMENTAL CONT.' FileMan Field Number: '30.4' Primary diagnosis is related to Environmental Contaminants exposure. %Library.EnumString 66 PRIMARY_ENVIRONMENTAL_CONT_ FileMan Field Label: 'PRIMARY HEAD/NECK CANCER' FileMan Field Number: '30.6' Primary diagnosis is related to Head/Neck Cancer. %Library.EnumString 68 PRIMARY_HEADNECK_CANCER FileMan Field Label: 'PRIMARY ICD DIAGNOSIS CODE' FileMan Field Number: '30' This is the primary diagnosis code for the order. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 62 PRIMARY_ICD_DIAGNOSIS_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {PRIMARY_ICD_DIAGNOSIS_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_ICD_DIAGNOSIS_CODE_CODE_NUMBER 1 FileMan Field Label: 'PRIMARY IONIZED RADIATION' FileMan Field Number: '30.2' Primary diagnosis is related to Ionized Radiation exposure. %Library.EnumString 64 PRIMARY_IONIZED_RADIATION FileMan Field Label: 'PRIMARY MST' FileMan Field Number: '30.5' Primary diagnosis is related to Military Sexual Trauma. %Library.EnumString 67 PRIMARY_MST FileMan Field Label: 'PRIMARY SERVICE-CONNECTED' FileMan Field Number: '30.3' Primary diagnosis is related to a Service-Connected condition. %Library.EnumString 65 PRIMARY_SERVICECONNECTED FileMan Field Label: 'PRODUCT DESCRIPTION' FileMan Field Number: '9.1' The manufacture product description to be used for recalls. %Library.String 38 PRODUCT_DESCRIPTION FileMan Field Label: '*PRODUCT LINE' FileMan Field Number: '22' Set of codes that contains information for Hearing Aid transactions. %Library.EnumString 54 PRODUCT_LINE FileMan Field Label: 'PRODUCT MODEL' FileMan Field Number: '9.2' The manufacture product model number to be used for recalls. %Library.String 39 PRODUCT_MODEL FileMan Field Label: 'PROVISIONAL DIAGNOSIS' FileMan Field Number: '8.7' This is a free text diagnosis as it appears in suspense file. %Library.String 34 PROVISIONAL_DIAGNOSIS FileMan Field Label: 'PSAS HCPCS' FileMan Field Number: '4.5' Standardized Prosthetics HCPCS that points to file 661.1. VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 11 PSAS_HCPCS HCPCS This is a unique Prosthetics HCPCS code that corresponds to the CPT code.]]> %Library.String 1 HCPCS into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {PSAS_HCPCS_HCPCS}=$select(SQLCODE=0:val,1:"")]]> 1 PSAS_HCPCS_HCPCS 1 FileMan Field Label: 'QTY' FileMan Field Number: '5' This is the number of units that was issued or repaired for this transaction. %Library.Numeric 18 QTY FileMan Field Label: 'RECEIVING STATION' FileMan Field Number: '70' This field contains the institution that will receive the VAF 10-2529-3 request for processing. VALIP.prosthetic.fm2cw.INSTITUTION4 119 RECEIVING_STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {RECEIVING_STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RECEIVING_STATION_NAME 1 FileMan Field Label: 'REMARKS' FileMan Field Number: '16' A free-text field used to indicate any additional information that is needed for this entry. For Purchasing Transactions this field will contain the remarks for the individual item, and the close-out remarks added together. %Library.String 46 REMARKS FileMan Field Label: 'REQUESTING STATION' FileMan Field Number: '40' This is the station requesting services or appliances. VALIP.prosthetic.fm2cw.INSTITUTION4 103 REQUESTING_STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {REQUESTING_STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_STATION_NAME 1 FileMan Field Label: 'REQUEST DATE' FileMan Field Number: '1' This field is the date the appliance issue or repair was requested by the patient. It may or may not be the same as the entry date or the delivery date. This depends on how quickly the transactions take place. %Library.FilemanDate 5 REQUEST_DATE FileMan Field Label: 'RESTORATIONS LAB REPAIR CODE' FileMan Field Number: '77' Contains the Restoration Lab Repair Code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 127 RESTORATIONS_LAB_REPAIR_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {RESTORATIONS_LAB_REPAIR_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 RESTORATIONS_LAB_REPAIR_CODE_CODE 1 FileMan Field Label: 'RESTORATION LAB CODE' FileMan Field Number: '76' Contains the Restoration Lab New Code. VALIP.prosthetic.fm2cw.PROSAMISCODES663 126 RESTORATION_LAB_CODE CODE The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. ]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {RESTORATION_LAB_CODE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 RESTORATION_LAB_CODE_CODE 1 FileMan Field Label: 'RETURNED STATUS' FileMan Field Number: '17' The status of the appliance upon return to the veteran. This notes what action was taken by the repair depot or station upon the completion of repairs. %Library.EnumString 47 RETURNED_STATUS FileMan Field Label: 'RETURN STATUS DATE' FileMan Field Number: '17.5' This is the date upon which the return status was determined and carried out if the item was returned to the veteran. %Library.FilemanDate 48 RETURN_STATUS_DATE FileMan Field Label: 'SECONDARY AGENT ORANGE 1' FileMan Field Number: '31.1' Secondary diagnosis 1 is related to Agent Orange exposure. %Library.EnumString 71 SECONDARY_AGENT_ORANGE_1 FileMan Field Label: 'SECONDARY AGENT ORANGE 2' FileMan Field Number: '32.1' Secondary diagnosis 2 is related to Agent Orange exposure. %Library.EnumString 79 SECONDARY_AGENT_ORANGE_2 FileMan Field Label: 'SECONDARY AGENT ORANGE 3' FileMan Field Number: '33.1' Secondary diagnosis 3 is related to Agent Orange exposure. %Library.EnumString 87 SECONDARY_AGENT_ORANGE_3 FileMan Field Label: 'SECONDARY COMBAT VET 1' FileMan Field Number: '31.7' Secondary diagnosis 1 is related to Combat. %Library.EnumString 77 SECONDARY_COMBAT_VET_1 FileMan Field Label: 'SECONDARY COMBAT VET 2' FileMan Field Number: '32.7' Secondary diagnosis 2 is related to Combat. %Library.EnumString 85 SECONDARY_COMBAT_VET_2 FileMan Field Label: 'SECONDARY COMBAT VET 3' FileMan Field Number: '33.7' Secondary diagnosis 3 is related to Combat. %Library.EnumString 93 SECONDARY_COMBAT_VET_3 FileMan Field Label: 'SECONDARY ENVIRONMENTAL CONT 1' FileMan Field Number: '31.4' Secondary diagnosis 1 is related to Environmental Contaminants exposure. %Library.EnumString 74 SECONDARY_ENVIRONMENTAL_CONT_1 FileMan Field Label: 'SECONDARY ENVIRON. CONT. 3' FileMan Field Number: '33.4' Secondary diagnosis 3 is related to Environmental Contaminants exposure. %Library.EnumString 90 SECONDARY_ENVIRON__CONT__3 FileMan Field Label: 'SECONDARY ENVIR. CONT. 2' FileMan Field Number: '32.4' Secondary diagnosis 2 is related to Environmental Contaminants exposure. %Library.EnumString 82 SECONDARY_ENVIR__CONT__2 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 1' FileMan Field Number: '31.6' Secondary diagnosis 1 is related to Head/Neck cancer. %Library.EnumString 76 SECONDARY_HEADNECK_CANCER_1 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 2' FileMan Field Number: '32.6' Secondary diagnosis 2 is related to Head/Neck cancer. %Library.EnumString 84 SECONDARY_HEADNECK_CANCER_2 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 3' FileMan Field Number: '33.6' Secondary diagnosis 3 is related to Head/Neck cancer. %Library.EnumString 92 SECONDARY_HEADNECK_CANCER_3 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS 2' FileMan Field Number: '32' This is the secondary diagnosis code 2. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 78 SECONDARY_ICD_DIAGNOSIS_2 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_2_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_2_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS 3' FileMan Field Number: '33' This is the secondary diagnosis code 3. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 86 SECONDARY_ICD_DIAGNOSIS_3 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_3_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_3_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS CODE 1' FileMan Field Number: '31' This is the secondary diagnosis code 1. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 70 SECONDARY_ICD_DIAGNOSIS_CODE_1 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_CODE_1_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_CODE_1_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY IONIZED RADIATION 1' FileMan Field Number: '31.2' Secondary diagnosis 1 is related to Ionized Radiation exposure. %Library.EnumString 72 SECONDARY_IONIZED_RADIATION_1 FileMan Field Label: 'SECONDARY IONIZED RADIATION 2' FileMan Field Number: '32.2' Secondary diagnosis 2 is related to Ionized Radiation exposure. %Library.EnumString 80 SECONDARY_IONIZED_RADIATION_2 FileMan Field Label: 'SECONDARY IONIZED RADIATION 3' FileMan Field Number: '33.2' Secondary diagnosis 3 is related to Ionized Radiation exposure. %Library.EnumString 88 SECONDARY_IONIZED_RADIATION_3 FileMan Field Label: 'SECONDARY MST 1' FileMan Field Number: '31.5' Secondary diagnosis 1 is related to Military Sexual Trauma. %Library.EnumString 75 SECONDARY_MST_1 FileMan Field Label: 'SECONDARY MST 2' FileMan Field Number: '32.5' Secondary diagnosis 2 is related to Military Sexual Trauma. %Library.EnumString 83 SECONDARY_MST_2 FileMan Field Label: 'SECONDARY MST 3' FileMan Field Number: '33.5' Secondary diagnosis 3 is related to Military Sexual Trauma. %Library.EnumString 91 SECONDARY_MST_3 FileMan Field Label: 'SECONDARY SERVICE-CONNECTED 1' FileMan Field Number: '31.3' Secondary Diagnosis 1 is related to a Service-Connected condition. %Library.EnumString 73 SECONDARY_SERVICECONNECTED_1 FileMan Field Label: 'SECONDARY SERVICE-CONNECTED 2' FileMan Field Number: '32.3' Secondary diagnosis 2 is related to a Service-Connected condition. %Library.EnumString 81 SECONDARY_SERVICECONNECTED_2 FileMan Field Label: 'SECONDARY SERVICE-CONNECTED 3' FileMan Field Number: '33.3' Secondary diagnosis 3 is related to a Service-Connected condition. %Library.EnumString 89 SECONDARY_SERVICECONNECTED_3 FileMan Field Label: 'SERIAL NBR' FileMan Field Number: '9' This is the serial number of the issued or repaired appliance. If the serial number is longer than 20 characters, use the FIRST 20 characters. %Library.String 37 SERIAL_NBR FileMan Field Label: 'SHIP/DEL' FileMan Field Number: '6' This is the charge associated with shipping. %Library.Numeric 19 SHIPDEL FileMan Field Label: 'SOURCE' FileMan Field Number: '12' This set of codes denotes which two possible sources were used for the acquisition of the appliance. The sources are grouped into either VA sources or commercial sources. %Library.EnumString 42 SOURCE FileMan Field Label: 'SOURCE OF PROCUREMENT' FileMan Field Number: '69' The source from which the Purchasing Agent is ordering the needed equipment. The sources one may choose from are limited. %Library.EnumString 118 SOURCE_OF_PROCUREMENT FileMan Field Label: 'SPECIAL CATEGORY' FileMan Field Number: '63' If the patient is NSC/OP, then this field must also be set. SPECIAL CATEGORY is also used in counting AMIS. %Library.EnumString 115 SPECIAL_CATEGORY FileMan Field Label: 'STATION' FileMan Field Number: '8' The station is the Veterans Affairs site where this transaction is to come to completion. It is the station that is ultimately responsible for the issue and payment for the prosthetic device. This is the station reporting the workload. VALIP.prosthetic.fm2cw.INSTITUTION4 22 STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATION_NAME 1 FileMan Field Label: '*STATUS FLAG' FileMan Field Number: '18' The status of the patient is entered here so the service can determine if the patient is being followed, dropped, transferred, or canceled by this station. %Library.EnumString 49 STATUS_FLAG FileMan Field Label: 'STOCK ISSUE' FileMan Field Number: '4.6' This is a pointer to file #661.6. VALIP.prosthetic.fm2cw.PROSTHETICINVENTORYTRANSACTION6616 12 STOCK_ISSUE HCPCS This field is the HCPCS code as defined by the .01 field in the PROSTHETIC HCPCS file (661.1).]]> %Library.String 1 HCPCS into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {STOCK_ISSUE_HCPCS}=$select(SQLCODE=0:val,1:"")]]> 1 STOCK_ISSUE_HCPCS 1 FileMan Field Label: 'SUSPENSE DATE' FileMan Field Number: '8.1' This is suspense date (.01 field) of file (#668). %Library.FilemanDate 23 SUSPENSE_DATE FileMan Field Label: 'SUSPENSE ICD' FileMan Field Number: '8.8' This is the code at the time suspense was created. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 35 SUSPENSE_ICD CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {SUSPENSE_ICD_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SUSPENSE_ICD_CODE_NUMBER 1 FileMan Field Label: 'SUSPENSE REQUESTOR' FileMan Field Number: '8.6' This is a pointer to file #200, the person requesting the suspense as it appears in file #668. VALIP.prosthetic.fm2cw.NEWPERSON200 32 SUSPENSE_REQUESTOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {SUSPENSE_REQUESTOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SUSPENSE_REQUESTOR_NAME 1 FileMan Field Label: 'SUSPENSE STATION' FileMan Field Number: '8.11' This refers to the consulting station. VALIP.prosthetic.fm2cw.INSTITUTION4 24 SUSPENSE_STATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {SUSPENSE_STATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SUSPENSE_STATION_NAME 1 FileMan Field Label: 'SUSPENSE STATUS' FileMan Field Number: '8.14' This is the suspense status of the patient 2319 record. If the status is complete, a suspense link was established. If the status is incomplete, there is no suspense link to the patient 2319 record. %Library.EnumString 27 SUSPENSE_STATUS FileMan Field Label: 'TOTAL COST' FileMan Field Number: '14' This field contains the total cost of the transaction. %Library.Numeric 44 TOTAL_COST FileMan Field Label: 'TOTAL LABOR COST' FileMan Field Number: '46' The total cost of the labor to perform this job. %Library.Numeric 107 TOTAL_LABOR_COST FileMan Field Label: 'TOTAL LABOR HOURS' FileMan Field Number: '45' This is the number of hours spent on the job. This field is only populated via routines. %Library.Numeric 106 TOTAL_LABOR_HOURS FileMan Field Label: 'TOTAL LAB COST' FileMan Field Number: '48' The Prosthetic Laboratory Total Cost calculated by AMIS. %Library.Numeric 109 TOTAL_LAB_COST FileMan Field Label: 'TOTAL MATERIAL COST' FileMan Field Number: '47' The total cost of all the materials to perform the job. %Library.Numeric 108 TOTAL_MATERIAL_COST FileMan Field Label: 'TRANSACTION' FileMan Field Number: '23' This is the IFCAP transaction number from VAF 4-1358 or VAF 2237. A temporary Transaction number for a VAF 10-2529-3 may also be entered. %Library.String 55 TRANSACTION23 FileMan Field Label: 'TYPE OF REQUEST' FileMan Field Number: '8.5' This field could either be ROUTINE PROSTHETICS, EYEGLASS, CONTACT LENS, OXYGEN, MANUAL NON CPRS or CLOTHING ALLOWANCE. %Library.String 31 TYPE_OF_REQUEST FileMan Field Label: 'TYPE OF TRANSACTION' FileMan Field Number: '2' LABEL This set of codes will tell what kind of transaction this request is. The possibilities all fall under the VAF 10-7306a listings except for the repair. %Library.EnumString 6 TYPE_OF_TRANSACTION FileMan Field Label: 'UNIQUE ITEM ID' FileMan Field Number: '42' This field stores the unique identifier of the eCMS or IFCAP 2237 line item of a Purchase Request. This data is part of the eCMS/IFCAP interface if a contract item or is a modification of the 2237 Obligation Number if not. %Library.String 105 UNIQUE_ITEM_ID FileMan Field Label: 'UNIT OF ISSUE' FileMan Field Number: '78' This is the unit by which items/services are issued (e.g., each, pair, box, case, etc.). VALIP.prosthetic.fm2cw.UNITOFISSUE4205 128 UNIT_OF_ISSUE NAME This is the name of the unit of the item.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {UNIT_OF_ISSUE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 UNIT_OF_ISSUE_NAME 1 FileMan Field Label: 'USER WHO EDIT' FileMan Field Number: '35' User who edited the 2319 record using option ED2. This field will only be populated when the Total Cost field has been changed. VALIP.prosthetic.fm2cw.NEWPERSON200 95 USER_WHO_EDIT NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {USER_WHO_EDIT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USER_WHO_EDIT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 154 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR' FileMan Field Number: '7' The vendor is a pointer to IFCAP's VENDOR file and is the name of the company from which this appliance was or is to be purchased. The vendor may or may not be the same as the manufacturer. Therefore, manufacturers should also be listed in this file as vendors if you are going to be purchasing directly from the manufacturer. VALIP.prosthetic.fm2cw.VENDOR440 21 VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VENDOR_NAME 1 FileMan Field Label: 'VENDOR TRACKING NUMBER' FileMan Field Number: '4.2' This field is the Vendor's internal unique tracking number. Some of the small vendors are not automated with VISA, and this tracking number is used to reference this transaction. This tracking number is based on the item, and can be as simple as the vendors item number, or elaborate as the vendors transaction number. This data will be used in the reconciliation process. %Library.String 9 VENDOR_TRACKING_NUMBER FileMan Field Label: 'WORK FOR OTHER STATION' FileMan Field Number: '80' Contains the Status if the Job Performed will display as work performed for another station. %Library.EnumString 130 WORK_FOR_OTHER_STATION FileMan Field Label: 'WORK ORDER NUMBER' FileMan Field Number: '71' Work Order Number (STA-FY-QTR-TYPE OF LAB-NUMBER) for items processed in the Prosthetic Laboratory. VALIP.prosthetic.fm2cw.PROSTHETICWORKORDER6642 120 WORK_ORDER_NUMBER WORK ORDER NUMBER This is the permanent number used to identify and track the Lab request. It is built from both information the user enters and a sequence number assigned by the computer (e.g., 644-95-2-O-0016). 644 = Station Number 95 = Fiscal Year 2 = Quarter O = Type of Laboratory (Orthotic, Restoration, Shoe Last, Wheelchair Repair, National Foot Center, or Denver Distribution Center)]]> %Library.String 1 WORK_ORDER_NUMBER into :val from VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 where %ID=:id) set {WORK_ORDER_NUMBER_WORK_ORDER_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 WORK_ORDER_NUMBER_WORK_ORDER_NUMBER 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^RMPR(660," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ENTRY_DATE}'="" FDA(660,"+1,",.01)={"ENTRY_DATE"} set:{PATIENT_NAME}'="" FDA(660,"+1,",.02)={"PATIENT_NAME"} set:{REQUEST_DATE}'="" FDA(660,"+1,",1)={"REQUEST_DATE"} set:{TYPE_OF_TRANSACTION}'="" FDA(660,"+1,",2)={"TYPE_OF_TRANSACTION"} set:{ITEM}'="" FDA(660,"+1,",4)={"ITEM"} set:{HCPCS}'="" FDA(660,"+1,",4.1)={"HCPCS"} set:{VENDOR_TRACKING_NUMBER}'="" FDA(660,"+1,",4.2)={"VENDOR_TRACKING_NUMBER"} set:{BANK_AUTHORIZATION_NUMBER}'="" FDA(660,"+1,",4.3)={"BANK_AUTHORIZATION_NUMBER"} set:{PSAS_HCPCS}'="" FDA(660,"+1,",4.5)={"PSAS_HCPCS"} set:{STOCK_ISSUE}'="" FDA(660,"+1,",4.6)={"STOCK_ISSUE"} set:{CPT_MODIFIER}'="" FDA(660,"+1,",4.7)={"CPT_MODIFIER"} set:{DATE_CPT_MODIFIER_EXTRACTED}'="" FDA(660,"+1,",4.8)={"DATE_CPT_MODIFIER_EXTRACTED"} set:{HCPCSICD9_CODING_FLAG}'="" FDA(660,"+1,",4.9)={"HCPCSICD9_CODING_FLAG"} set:{CODING_FLAG_DATE}'="" FDA(660,"+1,",4.91)={"CODING_FLAG_DATE"} set:{HIGH_TECH_ITEM}'="" FDA(660,"+1,",4.92)={"HIGH_TECH_ITEM"} set:{QTY}'="" FDA(660,"+1,",5)={"QTY"} set:{SHIPDEL}'="" FDA(660,"+1,",6)={"SHIPDEL"} set:{PICKUPDEL}'="" FDA(660,"+1,",6.5)={"PICKUPDEL"} set:{VENDOR}'="" FDA(660,"+1,",7)={"VENDOR"} set:{STATION}'="" FDA(660,"+1,",8)={"STATION"} set:{SUSPENSE_DATE}'="" FDA(660,"+1,",8.1)={"SUSPENSE_DATE"} set:{SUSPENSE_STATION}'="" FDA(660,"+1,",8.11)={"SUSPENSE_STATION"} set:{PCE}'="" FDA(660,"+1,",8.12)={"PCE"} set:{DATE_SENT_TO_PCE}'="" FDA(660,"+1,",8.13)={"DATE_SENT_TO_PCE"} set:{SUSPENSE_STATUS}'="" FDA(660,"+1,",8.14)={"SUSPENSE_STATUS"} set:{DATE_RX_WRITTEN}'="" FDA(660,"+1,",8.2)={"DATE_RX_WRITTEN"} set:{INITIAL_ACTION_DATE}'="" FDA(660,"+1,",8.3)={"INITIAL_ACTION_DATE"} set:{COMPLETION_DATE}'="" FDA(660,"+1,",8.4)={"COMPLETION_DATE"} set:{TYPE_OF_REQUEST}'="" FDA(660,"+1,",8.5)={"TYPE_OF_REQUEST"} set:{SUSPENSE_REQUESTOR}'="" FDA(660,"+1,",8.6)={"SUSPENSE_REQUESTOR"} set:{CONSULT_REQUEST_SERVICE}'="" FDA(660,"+1,",8.61)={"CONSULT_REQUEST_SERVICE"} set:{PROVISIONAL_DIAGNOSIS}'="" FDA(660,"+1,",8.7)={"PROVISIONAL_DIAGNOSIS"} set:{SUSPENSE_ICD}'="" FDA(660,"+1,",8.8)={"SUSPENSE_ICD"} set:{CONSULT}'="" FDA(660,"+1,",8.9)={"CONSULT"} set:{SERIAL_NBR}'="" FDA(660,"+1,",9)={"SERIAL_NBR"} set:{PRODUCT_DESCRIPTION}'="" FDA(660,"+1,",9.1)={"PRODUCT_DESCRIPTION"} set:{PRODUCT_MODEL}'="" FDA(660,"+1,",9.2)={"PRODUCT_MODEL"} set:{DELIVERY_DATE}'="" FDA(660,"+1,",10)={"DELIVERY_DATE"} set:{FORM_REQUESTED_ON}'="" FDA(660,"+1,",11)={"FORM_REQUESTED_ON"} set:{SOURCE}'="" FDA(660,"+1,",12)={"SOURCE"} set:{ACTION}'="" FDA(660,"+1,",13)={"ACTION"} set:{TOTAL_COST}'="" FDA(660,"+1,",14)={"TOTAL_COST"} set:{HISTORICAL_DATA}'="" FDA(660,"+1,",15)={"HISTORICAL_DATA"} set:{REMARKS}'="" FDA(660,"+1,",16)={"REMARKS"} set:{RETURNED_STATUS}'="" FDA(660,"+1,",17)={"RETURNED_STATUS"} set:{RETURN_STATUS_DATE}'="" FDA(660,"+1,",17.5)={"RETURN_STATUS_DATE"} set:{STATUS_FLAG}'="" FDA(660,"+1,",18)={"STATUS_FLAG"} set:{PATIENT_NOTIFICATION_FLAG}'="" FDA(660,"+1,",19)={"PATIENT_NOTIFICATION_FLAG"} set:{DELIVERY_VERIFICATION_DATE}'="" FDA(660,"+1,",20)={"DELIVERY_VERIFICATION_DATE"} set:{DELIVERY_VERIFICATION_STATUS}'="" FDA(660,"+1,",20.1)={"DELIVERY_VERIFICATION_STATUS"} set:{LOT_NUMBER}'="" FDA(660,"+1,",21)={"LOT_NUMBER"} set:{PRODUCT_LINE}'="" FDA(660,"+1,",22)={"PRODUCT_LINE"} set:{TRANSACTION23}'="" FDA(660,"+1,",23)={"TRANSACTION23"} set:{DESCRIPTION}'="" FDA(660,"+1,",24)={"DESCRIPTION"} set:{DELIVER_TO}'="" FDA(660,"+1,",25)={"DELIVER_TO"} set:{DATE_REQUIRED}'="" FDA(660,"+1,",26)={"DATE_REQUIRED"} set:{INITIATOR}'="" FDA(660,"+1,",27)={"INITIATOR"} set:{INVENTORY_POINT}'="" FDA(660,"+1,",29)={"INVENTORY_POINT"} set:{PRIMARY_ICD_DIAGNOSIS_CODE}'="" FDA(660,"+1,",30)={"PRIMARY_ICD_DIAGNOSIS_CODE"} set:{PRIMARY_AGENT_ORANGE_EXPOSURE}'="" FDA(660,"+1,",30.1)={"PRIMARY_AGENT_ORANGE_EXPOSURE"} set:{PRIMARY_IONIZED_RADIATION}'="" FDA(660,"+1,",30.2)={"PRIMARY_IONIZED_RADIATION"} set:{PRIMARY_SERVICECONNECTED}'="" FDA(660,"+1,",30.3)={"PRIMARY_SERVICECONNECTED"} set:{PRIMARY_ENVIRONMENTAL_CONT_}'="" FDA(660,"+1,",30.4)={"PRIMARY_ENVIRONMENTAL_CONT_"} set:{PRIMARY_MST}'="" FDA(660,"+1,",30.5)={"PRIMARY_MST"} set:{PRIMARY_HEADNECK_CANCER}'="" FDA(660,"+1,",30.6)={"PRIMARY_HEADNECK_CANCER"} set:{PRIMARY_COMBAT_VET}'="" FDA(660,"+1,",30.7)={"PRIMARY_COMBAT_VET"} set:{SECONDARY_ICD_DIAGNOSIS_CODE_1}'="" FDA(660,"+1,",31)={"SECONDARY_ICD_DIAGNOSIS_CODE_1"} set:{SECONDARY_AGENT_ORANGE_1}'="" FDA(660,"+1,",31.1)={"SECONDARY_AGENT_ORANGE_1"} set:{SECONDARY_IONIZED_RADIATION_1}'="" FDA(660,"+1,",31.2)={"SECONDARY_IONIZED_RADIATION_1"} set:{SECONDARY_SERVICECONNECTED_1}'="" FDA(660,"+1,",31.3)={"SECONDARY_SERVICECONNECTED_1"} set:{SECONDARY_ENVIRONMENTAL_CONT_1}'="" FDA(660,"+1,",31.4)={"SECONDARY_ENVIRONMENTAL_CONT_1"} set:{SECONDARY_MST_1}'="" FDA(660,"+1,",31.5)={"SECONDARY_MST_1"} set:{SECONDARY_HEADNECK_CANCER_1}'="" FDA(660,"+1,",31.6)={"SECONDARY_HEADNECK_CANCER_1"} set:{SECONDARY_COMBAT_VET_1}'="" FDA(660,"+1,",31.7)={"SECONDARY_COMBAT_VET_1"} set:{SECONDARY_ICD_DIAGNOSIS_2}'="" FDA(660,"+1,",32)={"SECONDARY_ICD_DIAGNOSIS_2"} set:{SECONDARY_AGENT_ORANGE_2}'="" FDA(660,"+1,",32.1)={"SECONDARY_AGENT_ORANGE_2"} set:{SECONDARY_IONIZED_RADIATION_2}'="" FDA(660,"+1,",32.2)={"SECONDARY_IONIZED_RADIATION_2"} set:{SECONDARY_SERVICECONNECTED_2}'="" FDA(660,"+1,",32.3)={"SECONDARY_SERVICECONNECTED_2"} set:{SECONDARY_ENVIR__CONT__2}'="" FDA(660,"+1,",32.4)={"SECONDARY_ENVIR__CONT__2"} set:{SECONDARY_MST_2}'="" FDA(660,"+1,",32.5)={"SECONDARY_MST_2"} set:{SECONDARY_HEADNECK_CANCER_2}'="" FDA(660,"+1,",32.6)={"SECONDARY_HEADNECK_CANCER_2"} set:{SECONDARY_COMBAT_VET_2}'="" FDA(660,"+1,",32.7)={"SECONDARY_COMBAT_VET_2"} set:{SECONDARY_ICD_DIAGNOSIS_3}'="" FDA(660,"+1,",33)={"SECONDARY_ICD_DIAGNOSIS_3"} set:{SECONDARY_AGENT_ORANGE_3}'="" FDA(660,"+1,",33.1)={"SECONDARY_AGENT_ORANGE_3"} set:{SECONDARY_IONIZED_RADIATION_3}'="" FDA(660,"+1,",33.2)={"SECONDARY_IONIZED_RADIATION_3"} set:{SECONDARY_SERVICECONNECTED_3}'="" FDA(660,"+1,",33.3)={"SECONDARY_SERVICECONNECTED_3"} set:{SECONDARY_ENVIRON__CONT__3}'="" FDA(660,"+1,",33.4)={"SECONDARY_ENVIRON__CONT__3"} set:{SECONDARY_MST_3}'="" FDA(660,"+1,",33.5)={"SECONDARY_MST_3"} set:{SECONDARY_HEADNECK_CANCER_3}'="" FDA(660,"+1,",33.6)={"SECONDARY_HEADNECK_CANCER_3"} set:{SECONDARY_COMBAT_VET_3}'="" FDA(660,"+1,",33.7)={"SECONDARY_COMBAT_VET_3"} set:{OIFOEF}'="" FDA(660,"+1,",34)={"OIFOEF"} set:{USER_WHO_EDIT}'="" FDA(660,"+1,",35)={"USER_WHO_EDIT"} set:{DATE_EDITED}'="" FDA(660,"+1,",36)={"DATE_EDITED"} set:{HCPCSITEM}'="" FDA(660,"+1,",37)={"HCPCSITEM"} set:{HCPCSITEM_DESCRIPTION}'="" FDA(660,"+1,",38)={"HCPCSITEM_DESCRIPTION"} set:{EXCLUDEWAIVER}'="" FDA(660,"+1,",38.1)={"EXCLUDEWAIVER"} set:{CONTRACT_}'="" FDA(660,"+1,",38.7)={"CONTRACT_"} set:{NUMBER_OF_BIDS}'="" FDA(660,"+1,",38.8)={"NUMBER_OF_BIDS"} set:{DATE_OF_SERVICE}'="" FDA(660,"+1,",39)={"DATE_OF_SERVICE"} set:{REQUESTING_STATION}'="" FDA(660,"+1,",40)={"REQUESTING_STATION"} set:{ECMS_ACTIONUID}'="" FDA(660,"+1,",41)={"ECMS_ACTIONUID"} set:{UNIQUE_ITEM_ID}'="" FDA(660,"+1,",42)={"UNIQUE_ITEM_ID"} set:{TOTAL_LABOR_HOURS}'="" FDA(660,"+1,",45)={"TOTAL_LABOR_HOURS"} set:{TOTAL_LABOR_COST}'="" FDA(660,"+1,",46)={"TOTAL_LABOR_COST"} set:{TOTAL_MATERIAL_COST}'="" FDA(660,"+1,",47)={"TOTAL_MATERIAL_COST"} set:{TOTAL_LAB_COST}'="" FDA(660,"+1,",48)={"TOTAL_LAB_COST"} set:{COMPLETION_DATE0}'="" FDA(660,"+1,",50)={"COMPLETION_DATE0"} set:{LAB_REMARKS}'="" FDA(660,"+1,",51)={"LAB_REMARKS"} set:{AMIS_NEW_CODE}'="" FDA(660,"+1,",52)={"AMIS_NEW_CODE"} set:{AMIS_DATE}'="" FDA(660,"+1,",60)={"AMIS_DATE"} set:{PATIENT_CATEGORY}'="" FDA(660,"+1,",62)={"PATIENT_CATEGORY"} set:{SPECIAL_CATEGORY}'="" FDA(660,"+1,",63)={"SPECIAL_CATEGORY"} set:{ADMIN_REPAIR_AMIS_CODE}'="" FDA(660,"+1,",64)={"ADMIN_REPAIR_AMIS_CODE"} set:{AMIS_GROUPER}'="" FDA(660,"+1,",68)={"AMIS_GROUPER"} set:{SOURCE_OF_PROCUREMENT}'="" FDA(660,"+1,",69)={"SOURCE_OF_PROCUREMENT"} set:{RECEIVING_STATION}'="" FDA(660,"+1,",70)={"RECEIVING_STATION"} set:{WORK_ORDER_NUMBER}'="" FDA(660,"+1,",71)={"WORK_ORDER_NUMBER"} set:{f25293}'="" FDA(660,"+1,",72)={"f25293"} set:{FREE_TEXT_WO_}'="" FDA(660,"+1,",72.5)={"FREE_TEXT_WO_"} set:{LAB_AMIS_DATE}'="" FDA(660,"+1,",73)={"LAB_AMIS_DATE"} set:{ORTHOTICS_LAB_CODE}'="" FDA(660,"+1,",74)={"ORTHOTICS_LAB_CODE"} set:{ORTHOTICS_LAB_REPAIR_CODE}'="" FDA(660,"+1,",75)={"ORTHOTICS_LAB_REPAIR_CODE"} set:{RESTORATION_LAB_CODE}'="" FDA(660,"+1,",76)={"RESTORATION_LAB_CODE"} set:{RESTORATIONS_LAB_REPAIR_CODE}'="" FDA(660,"+1,",77)={"RESTORATIONS_LAB_REPAIR_CODE"} set:{UNIT_OF_ISSUE}'="" FDA(660,"+1,",78)={"UNIT_OF_ISSUE"} set:{AMIS_FLAG}'="" FDA(660,"+1,",79)={"AMIS_FLAG"} set:{WORK_FOR_OTHER_STATION}'="" FDA(660,"+1,",80)={"WORK_FOR_OTHER_STATION"} set:{NO_ADMIN_COUNT}'="" FDA(660,"+1,",81)={"NO_ADMIN_COUNT"} set:{NO_LAB_COUNT}'="" FDA(660,"+1,",82)={"NO_LAB_COUNT"} set:{BACKLOG_DATE}'="" FDA(660,"+1,",83)={"BACKLOG_DATE"} set:{HISTORICAL_ITEM}'="" FDA(660,"+1,",89)={"HISTORICAL_ITEM"} set:{DALC_REFERENCE_NUMBER}'="" FDA(660,"+1,",89.1)={"DALC_REFERENCE_NUMBER"} set:{DALC_BILL_DATE}'="" FDA(660,"+1,",89.2)={"DALC_BILL_DATE"} set:{DALC_ORDERING_STATION}'="" FDA(660,"+1,",89.3)={"DALC_ORDERING_STATION"} set:{HISTORICAL_STATION}'="" FDA(660,"+1,",90)={"HISTORICAL_STATION"} set:{HISTORICAL_VENDOR}'="" FDA(660,"+1,",91)={"HISTORICAL_VENDOR"} set:{HISTORICAL_VENDOR_PHONE}'="" FDA(660,"+1,",92)={"HISTORICAL_VENDOR_PHONE"} set:{HISTORICAL_STREET_ADD}'="" FDA(660,"+1,",93)={"HISTORICAL_STREET_ADD"} set:{HISTORICAL_CITY}'="" FDA(660,"+1,",94)={"HISTORICAL_CITY"} set:{HISTORICAL_STATE}'="" FDA(660,"+1,",95)={"HISTORICAL_STATE"} set:{HISTORICAL_ZIP}'="" FDA(660,"+1,",96)={"HISTORICAL_ZIP"} set:{HISTORICAL_RECORD}'="" FDA(660,"+1,",97)={"HISTORICAL_RECORD"} set:{PFSS_ACCOUNT_REFERENCE}'="" FDA(660,"+1,",100)={"PFSS_ACCOUNT_REFERENCE"} set:{PFSS_CHARGE_ID}'="" FDA(660,"+1,",101)={"PFSS_CHARGE_ID"} set:{LATEST_PSAS_HCPCS}'="" FDA(660,"+1,",102)={"LATEST_PSAS_HCPCS"} set:{LATEST_QTY}'="" FDA(660,"+1,",103)={"LATEST_QTY"} set:{LATEST_TOTAL_COST}'="" FDA(660,"+1,",104)={"LATEST_TOTAL_COST"} set:{LATEST_ORDERING_PROVIDER}'="" FDA(660,"+1,",105)={"LATEST_ORDERING_PROVIDER"} set:{PFSS_ACCOUNT_FLAG}'="" FDA(660,"+1,",106)={"PFSS_ACCOUNT_FLAG"} set:{PFSS_CHARGE_FLAG}'="" FDA(660,"+1,",107)={"PFSS_CHARGE_FLAG"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(660)") set %SkipFiling=1 if $d(%FMERR(660,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(660)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {EXTENDED_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({EXTENDED_DESCRIPTION},$c(13,10)) { set wp(i)=$p({EXTENDED_DESCRIPTION},$c(13,10),i) } do WP^DIE(660,{RowId},28,,"wp","%FMERR(660)") if $d(%FMERR(660,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(660)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ENTRY_DATE*C} FDA(660,IENS,.01)={ENTRY_DATE} set:{PATIENT_NAME*C} FDA(660,IENS,.02)={PATIENT_NAME} set:{REQUEST_DATE*C} FDA(660,IENS,1)={REQUEST_DATE} set:{TYPE_OF_TRANSACTION*C} FDA(660,IENS,2)={TYPE_OF_TRANSACTION} set:{ITEM*C} FDA(660,IENS,4)={ITEM} set:{HCPCS*C} FDA(660,IENS,4.1)={HCPCS} set:{VENDOR_TRACKING_NUMBER*C} FDA(660,IENS,4.2)={VENDOR_TRACKING_NUMBER} set:{BANK_AUTHORIZATION_NUMBER*C} FDA(660,IENS,4.3)={BANK_AUTHORIZATION_NUMBER} set:{PSAS_HCPCS*C} FDA(660,IENS,4.5)={PSAS_HCPCS} set:{STOCK_ISSUE*C} FDA(660,IENS,4.6)={STOCK_ISSUE} set:{CPT_MODIFIER*C} FDA(660,IENS,4.7)={CPT_MODIFIER} set:{DATE_CPT_MODIFIER_EXTRACTED*C} FDA(660,IENS,4.8)={DATE_CPT_MODIFIER_EXTRACTED} set:{HCPCSICD9_CODING_FLAG*C} FDA(660,IENS,4.9)={HCPCSICD9_CODING_FLAG} set:{CODING_FLAG_DATE*C} FDA(660,IENS,4.91)={CODING_FLAG_DATE} set:{HIGH_TECH_ITEM*C} FDA(660,IENS,4.92)={HIGH_TECH_ITEM} set:{QTY*C} FDA(660,IENS,5)={QTY} set:{SHIPDEL*C} FDA(660,IENS,6)={SHIPDEL} set:{PICKUPDEL*C} FDA(660,IENS,6.5)={PICKUPDEL} set:{VENDOR*C} FDA(660,IENS,7)={VENDOR} set:{STATION*C} FDA(660,IENS,8)={STATION} set:{SUSPENSE_DATE*C} FDA(660,IENS,8.1)={SUSPENSE_DATE} set:{SUSPENSE_STATION*C} FDA(660,IENS,8.11)={SUSPENSE_STATION} set:{PCE*C} FDA(660,IENS,8.12)={PCE} set:{DATE_SENT_TO_PCE*C} FDA(660,IENS,8.13)={DATE_SENT_TO_PCE} set:{SUSPENSE_STATUS*C} FDA(660,IENS,8.14)={SUSPENSE_STATUS} set:{DATE_RX_WRITTEN*C} FDA(660,IENS,8.2)={DATE_RX_WRITTEN} set:{INITIAL_ACTION_DATE*C} FDA(660,IENS,8.3)={INITIAL_ACTION_DATE} set:{COMPLETION_DATE*C} FDA(660,IENS,8.4)={COMPLETION_DATE} set:{TYPE_OF_REQUEST*C} FDA(660,IENS,8.5)={TYPE_OF_REQUEST} set:{SUSPENSE_REQUESTOR*C} FDA(660,IENS,8.6)={SUSPENSE_REQUESTOR} set:{CONSULT_REQUEST_SERVICE*C} FDA(660,IENS,8.61)={CONSULT_REQUEST_SERVICE} set:{PROVISIONAL_DIAGNOSIS*C} FDA(660,IENS,8.7)={PROVISIONAL_DIAGNOSIS} set:{SUSPENSE_ICD*C} FDA(660,IENS,8.8)={SUSPENSE_ICD} set:{CONSULT*C} FDA(660,IENS,8.9)={CONSULT} set:{SERIAL_NBR*C} FDA(660,IENS,9)={SERIAL_NBR} set:{PRODUCT_DESCRIPTION*C} FDA(660,IENS,9.1)={PRODUCT_DESCRIPTION} set:{PRODUCT_MODEL*C} FDA(660,IENS,9.2)={PRODUCT_MODEL} set:{DELIVERY_DATE*C} FDA(660,IENS,10)={DELIVERY_DATE} set:{FORM_REQUESTED_ON*C} FDA(660,IENS,11)={FORM_REQUESTED_ON} set:{SOURCE*C} FDA(660,IENS,12)={SOURCE} set:{ACTION*C} FDA(660,IENS,13)={ACTION} set:{TOTAL_COST*C} FDA(660,IENS,14)={TOTAL_COST} set:{HISTORICAL_DATA*C} FDA(660,IENS,15)={HISTORICAL_DATA} set:{REMARKS*C} FDA(660,IENS,16)={REMARKS} set:{RETURNED_STATUS*C} FDA(660,IENS,17)={RETURNED_STATUS} set:{RETURN_STATUS_DATE*C} FDA(660,IENS,17.5)={RETURN_STATUS_DATE} set:{STATUS_FLAG*C} FDA(660,IENS,18)={STATUS_FLAG} set:{PATIENT_NOTIFICATION_FLAG*C} FDA(660,IENS,19)={PATIENT_NOTIFICATION_FLAG} set:{DELIVERY_VERIFICATION_DATE*C} FDA(660,IENS,20)={DELIVERY_VERIFICATION_DATE} set:{DELIVERY_VERIFICATION_STATUS*C} FDA(660,IENS,20.1)={DELIVERY_VERIFICATION_STATUS} set:{LOT_NUMBER*C} FDA(660,IENS,21)={LOT_NUMBER} set:{PRODUCT_LINE*C} FDA(660,IENS,22)={PRODUCT_LINE} set:{TRANSACTION23*C} FDA(660,IENS,23)={TRANSACTION23} set:{DESCRIPTION*C} FDA(660,IENS,24)={DESCRIPTION} set:{DELIVER_TO*C} FDA(660,IENS,25)={DELIVER_TO} set:{DATE_REQUIRED*C} FDA(660,IENS,26)={DATE_REQUIRED} set:{INITIATOR*C} FDA(660,IENS,27)={INITIATOR} set:{INVENTORY_POINT*C} FDA(660,IENS,29)={INVENTORY_POINT} set:{PRIMARY_ICD_DIAGNOSIS_CODE*C} FDA(660,IENS,30)={PRIMARY_ICD_DIAGNOSIS_CODE} set:{PRIMARY_AGENT_ORANGE_EXPOSURE*C} FDA(660,IENS,30.1)={PRIMARY_AGENT_ORANGE_EXPOSURE} set:{PRIMARY_IONIZED_RADIATION*C} FDA(660,IENS,30.2)={PRIMARY_IONIZED_RADIATION} set:{PRIMARY_SERVICECONNECTED*C} FDA(660,IENS,30.3)={PRIMARY_SERVICECONNECTED} set:{PRIMARY_ENVIRONMENTAL_CONT_*C} FDA(660,IENS,30.4)={PRIMARY_ENVIRONMENTAL_CONT_} set:{PRIMARY_MST*C} FDA(660,IENS,30.5)={PRIMARY_MST} set:{PRIMARY_HEADNECK_CANCER*C} FDA(660,IENS,30.6)={PRIMARY_HEADNECK_CANCER} set:{PRIMARY_COMBAT_VET*C} FDA(660,IENS,30.7)={PRIMARY_COMBAT_VET} set:{SECONDARY_ICD_DIAGNOSIS_CODE_1*C} FDA(660,IENS,31)={SECONDARY_ICD_DIAGNOSIS_CODE_1} set:{SECONDARY_AGENT_ORANGE_1*C} FDA(660,IENS,31.1)={SECONDARY_AGENT_ORANGE_1} set:{SECONDARY_IONIZED_RADIATION_1*C} FDA(660,IENS,31.2)={SECONDARY_IONIZED_RADIATION_1} set:{SECONDARY_SERVICECONNECTED_1*C} FDA(660,IENS,31.3)={SECONDARY_SERVICECONNECTED_1} set:{SECONDARY_ENVIRONMENTAL_CONT_1*C} FDA(660,IENS,31.4)={SECONDARY_ENVIRONMENTAL_CONT_1} set:{SECONDARY_MST_1*C} FDA(660,IENS,31.5)={SECONDARY_MST_1} set:{SECONDARY_HEADNECK_CANCER_1*C} FDA(660,IENS,31.6)={SECONDARY_HEADNECK_CANCER_1} set:{SECONDARY_COMBAT_VET_1*C} FDA(660,IENS,31.7)={SECONDARY_COMBAT_VET_1} set:{SECONDARY_ICD_DIAGNOSIS_2*C} FDA(660,IENS,32)={SECONDARY_ICD_DIAGNOSIS_2} set:{SECONDARY_AGENT_ORANGE_2*C} FDA(660,IENS,32.1)={SECONDARY_AGENT_ORANGE_2} set:{SECONDARY_IONIZED_RADIATION_2*C} FDA(660,IENS,32.2)={SECONDARY_IONIZED_RADIATION_2} set:{SECONDARY_SERVICECONNECTED_2*C} FDA(660,IENS,32.3)={SECONDARY_SERVICECONNECTED_2} set:{SECONDARY_ENVIR__CONT__2*C} FDA(660,IENS,32.4)={SECONDARY_ENVIR__CONT__2} set:{SECONDARY_MST_2*C} FDA(660,IENS,32.5)={SECONDARY_MST_2} set:{SECONDARY_HEADNECK_CANCER_2*C} FDA(660,IENS,32.6)={SECONDARY_HEADNECK_CANCER_2} set:{SECONDARY_COMBAT_VET_2*C} FDA(660,IENS,32.7)={SECONDARY_COMBAT_VET_2} set:{SECONDARY_ICD_DIAGNOSIS_3*C} FDA(660,IENS,33)={SECONDARY_ICD_DIAGNOSIS_3} set:{SECONDARY_AGENT_ORANGE_3*C} FDA(660,IENS,33.1)={SECONDARY_AGENT_ORANGE_3} set:{SECONDARY_IONIZED_RADIATION_3*C} FDA(660,IENS,33.2)={SECONDARY_IONIZED_RADIATION_3} set:{SECONDARY_SERVICECONNECTED_3*C} FDA(660,IENS,33.3)={SECONDARY_SERVICECONNECTED_3} set:{SECONDARY_ENVIRON__CONT__3*C} FDA(660,IENS,33.4)={SECONDARY_ENVIRON__CONT__3} set:{SECONDARY_MST_3*C} FDA(660,IENS,33.5)={SECONDARY_MST_3} set:{SECONDARY_HEADNECK_CANCER_3*C} FDA(660,IENS,33.6)={SECONDARY_HEADNECK_CANCER_3} set:{SECONDARY_COMBAT_VET_3*C} FDA(660,IENS,33.7)={SECONDARY_COMBAT_VET_3} set:{OIFOEF*C} FDA(660,IENS,34)={OIFOEF} set:{USER_WHO_EDIT*C} FDA(660,IENS,35)={USER_WHO_EDIT} set:{DATE_EDITED*C} FDA(660,IENS,36)={DATE_EDITED} set:{HCPCSITEM*C} FDA(660,IENS,37)={HCPCSITEM} set:{HCPCSITEM_DESCRIPTION*C} FDA(660,IENS,38)={HCPCSITEM_DESCRIPTION} set:{EXCLUDEWAIVER*C} FDA(660,IENS,38.1)={EXCLUDEWAIVER} set:{CONTRACT_*C} FDA(660,IENS,38.7)={CONTRACT_} set:{NUMBER_OF_BIDS*C} FDA(660,IENS,38.8)={NUMBER_OF_BIDS} set:{DATE_OF_SERVICE*C} FDA(660,IENS,39)={DATE_OF_SERVICE} set:{REQUESTING_STATION*C} FDA(660,IENS,40)={REQUESTING_STATION} set:{ECMS_ACTIONUID*C} FDA(660,IENS,41)={ECMS_ACTIONUID} set:{UNIQUE_ITEM_ID*C} FDA(660,IENS,42)={UNIQUE_ITEM_ID} set:{TOTAL_LABOR_HOURS*C} FDA(660,IENS,45)={TOTAL_LABOR_HOURS} set:{TOTAL_LABOR_COST*C} FDA(660,IENS,46)={TOTAL_LABOR_COST} set:{TOTAL_MATERIAL_COST*C} FDA(660,IENS,47)={TOTAL_MATERIAL_COST} set:{TOTAL_LAB_COST*C} FDA(660,IENS,48)={TOTAL_LAB_COST} set:{COMPLETION_DATE0*C} FDA(660,IENS,50)={COMPLETION_DATE0} set:{LAB_REMARKS*C} FDA(660,IENS,51)={LAB_REMARKS} set:{AMIS_NEW_CODE*C} FDA(660,IENS,52)={AMIS_NEW_CODE} set:{AMIS_DATE*C} FDA(660,IENS,60)={AMIS_DATE} set:{PATIENT_CATEGORY*C} FDA(660,IENS,62)={PATIENT_CATEGORY} set:{SPECIAL_CATEGORY*C} FDA(660,IENS,63)={SPECIAL_CATEGORY} set:{ADMIN_REPAIR_AMIS_CODE*C} FDA(660,IENS,64)={ADMIN_REPAIR_AMIS_CODE} set:{AMIS_GROUPER*C} FDA(660,IENS,68)={AMIS_GROUPER} set:{SOURCE_OF_PROCUREMENT*C} FDA(660,IENS,69)={SOURCE_OF_PROCUREMENT} set:{RECEIVING_STATION*C} FDA(660,IENS,70)={RECEIVING_STATION} set:{WORK_ORDER_NUMBER*C} FDA(660,IENS,71)={WORK_ORDER_NUMBER} set:{f25293*C} FDA(660,IENS,72)={f25293} set:{FREE_TEXT_WO_*C} FDA(660,IENS,72.5)={FREE_TEXT_WO_} set:{LAB_AMIS_DATE*C} FDA(660,IENS,73)={LAB_AMIS_DATE} set:{ORTHOTICS_LAB_CODE*C} FDA(660,IENS,74)={ORTHOTICS_LAB_CODE} set:{ORTHOTICS_LAB_REPAIR_CODE*C} FDA(660,IENS,75)={ORTHOTICS_LAB_REPAIR_CODE} set:{RESTORATION_LAB_CODE*C} FDA(660,IENS,76)={RESTORATION_LAB_CODE} set:{RESTORATIONS_LAB_REPAIR_CODE*C} FDA(660,IENS,77)={RESTORATIONS_LAB_REPAIR_CODE} set:{UNIT_OF_ISSUE*C} FDA(660,IENS,78)={UNIT_OF_ISSUE} set:{AMIS_FLAG*C} FDA(660,IENS,79)={AMIS_FLAG} set:{WORK_FOR_OTHER_STATION*C} FDA(660,IENS,80)={WORK_FOR_OTHER_STATION} set:{NO_ADMIN_COUNT*C} FDA(660,IENS,81)={NO_ADMIN_COUNT} set:{NO_LAB_COUNT*C} FDA(660,IENS,82)={NO_LAB_COUNT} set:{BACKLOG_DATE*C} FDA(660,IENS,83)={BACKLOG_DATE} set:{HISTORICAL_ITEM*C} FDA(660,IENS,89)={HISTORICAL_ITEM} set:{DALC_REFERENCE_NUMBER*C} FDA(660,IENS,89.1)={DALC_REFERENCE_NUMBER} set:{DALC_BILL_DATE*C} FDA(660,IENS,89.2)={DALC_BILL_DATE} set:{DALC_ORDERING_STATION*C} FDA(660,IENS,89.3)={DALC_ORDERING_STATION} set:{HISTORICAL_STATION*C} FDA(660,IENS,90)={HISTORICAL_STATION} set:{HISTORICAL_VENDOR*C} FDA(660,IENS,91)={HISTORICAL_VENDOR} set:{HISTORICAL_VENDOR_PHONE*C} FDA(660,IENS,92)={HISTORICAL_VENDOR_PHONE} set:{HISTORICAL_STREET_ADD*C} FDA(660,IENS,93)={HISTORICAL_STREET_ADD} set:{HISTORICAL_CITY*C} FDA(660,IENS,94)={HISTORICAL_CITY} set:{HISTORICAL_STATE*C} FDA(660,IENS,95)={HISTORICAL_STATE} set:{HISTORICAL_ZIP*C} FDA(660,IENS,96)={HISTORICAL_ZIP} set:{HISTORICAL_RECORD*C} FDA(660,IENS,97)={HISTORICAL_RECORD} set:{PFSS_ACCOUNT_REFERENCE*C} FDA(660,IENS,100)={PFSS_ACCOUNT_REFERENCE} set:{PFSS_CHARGE_ID*C} FDA(660,IENS,101)={PFSS_CHARGE_ID} set:{LATEST_PSAS_HCPCS*C} FDA(660,IENS,102)={LATEST_PSAS_HCPCS} set:{LATEST_QTY*C} FDA(660,IENS,103)={LATEST_QTY} set:{LATEST_TOTAL_COST*C} FDA(660,IENS,104)={LATEST_TOTAL_COST} set:{LATEST_ORDERING_PROVIDER*C} FDA(660,IENS,105)={LATEST_ORDERING_PROVIDER} set:{PFSS_ACCOUNT_FLAG*C} FDA(660,IENS,106)={PFSS_ACCOUNT_FLAG} set:{PFSS_CHARGE_FLAG*C} FDA(660,IENS,107)={PFSS_CHARGE_FLAG} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(660)") set %SkipFiling=1 if $d(%FMERR(660,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(660)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {EXTENDED_DESCRIPTION*C} { set D0={RowId} kill wp if {EXTENDED_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({EXTENDED_DESCRIPTION},$c(13,10)) { set wp(i)=$p({EXTENDED_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(660,{RowId},28,,wproot,"%FMERR(660)") if $d(%FMERR(660,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(660)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.RECORDOFPRO80B8S index ^RMPR nonnull 660 "AD" {ITEM} {IEN} 0]]> index ^RMPR nonnull 660 "AE" {AMIS_DATE} {IEN} 0]]> index ^RMPR nonnull 660 "AF" {DATE_OF_SERVICE} {IEN} 0]]> index ^RMPR nonnull 660 "AG" {AMIS_GROUPER} {IEN} 0]]> index ^RMPR nonnull 660 "ALOG" {BACKLOG_DATE} {IEN} 0]]> index ^RMPR nonnull 660 "APD" {PFSS_CHARGE_FLAG} {IEN} 0]]> index ^RMPR nonnull 660 "APH" {PFSS_ACCOUNT_FLAG} {IEN} 0]]> index ^RMPR nonnull 660 "B" {ENTRY_DATE} {IEN} 0]]> index ^RMPR nonnull 660 "C" {PATIENT_NAME} {IEN} 0]]> index ^RMPR nonnull 660 "CD" {COMPLETION_DATE0} {IEN} 0]]> index ^RMPR nonnull 660 "CT" {DELIVERY_DATE} {IEN} 0]]> index ^RMPR nonnull 660 "D" {SERIAL_NBR} {IEN} 0]]> index ^RMPR nonnull 660 "DDC" {DALC_REFERENCE_NUMBER} {IEN} 0]]> index ^RMPR nonnull 660 "DVN" {PATIENT_NOTIFICATION_FLAG} {IEN} 0]]> index ^RMPR nonnull 660 "E" {TRANSACTION23} {IEN} 0]]> index ^RMPR nonnull 660 "EIID" {UNIQUE_ITEM_ID} {IEN} 0]]> index ^RMPR nonnull 660 "G" {HCPCS} {IEN} 0]]> index ^RMPR nonnull 660 "H" {PSAS_HCPCS} {IEN} 0]]> index ^RMPR nonnull 660 "I" {DATE_SENT_TO_PCE} {IEN} 0]]> data ^RMPR 660 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" "AM" 5 "^" "AM" 1 "^" "AM" 6 "^" "AMS" 1 "^" "AM" 9 "^" "LBA" 6 "^" 4 2 "^" 1 12 "^" 10 4 "^" "LB" 11 "^" 10 9 "^" 4 3 "^" 2 9 "^" 1 6 "^" "HSTV1" 4 "^" "HSTV1" 5 "^" "HSTV1" 3 "^" 1 7 "^" 1 10 "^" 1 8 "^" 3 2 "^" 10 2 "^" 10 13 "^" 0 12 "^" 6 1 "^" 6 2 "^" 3 1 "^" 1 2 "^" 5 2 "^" 0 1 "^" 2 3 "DES" new data,i,node set {EXTENDED_DESCRIPTION}="" merge data=^RMPR(660,{S2},"DES") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {EXTENDED_DESCRIPTION}={EXTENDED_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 13 "^" "LB" 2 "^" 0 22 "^" 1 11 "^" 2 1 "^" 2 2 "^" 1 13 "^" "HSTV" 3 "^" 0 15 "^" "HST" 1 "^" "HST" 4 "^" "HSTV1" 1 "^" "HST" 2 "^" "HSTV" 2 "^" "HST" 3 "^" "HSTV" 1 "^" "HSTV1" 2 "^" 10 3 "^" 0 27 "^" 1 3 "^" 0 6 "^" "LBA" 1 "^" "LB" 12 "^" "PFSS" 6 "^" "PFSS" 3 "^" "PFSS" 4 "^" "PFSS" 5 "^" 0 24 "^" "AM" 2 "^" "LB" 14 "^" 2 10 "^" 5 1 "^" "LBA" 2 "^" "LBA" 3 "^" "AM" 3 "^" 0 2 "^" 3 3 "^" 10 12 "^" "PFSS" 7 "^" "PFSS" 1 "^" "PFSS" 8 "^" "PFSS" 2 "^" 0 26 "^" "BA1" 2 "^" "BA1" 8 "^" "BA1" 5 "^" "BA1" 7 "^" "BA1" 1 "^" "BA1" 3 "^" "BA1" 6 "^" "BA1" 4 "^" 9 1 "^" 0 25 "^" 9 2 "^" 10 7 "^" 1 4 "^" 0 7 "^" "LB" 4 "^" 0 18 "^" "LB" 1 "^" 0 3 "^" "LBA" 5 "^" "LBA" 4 "^" 0 19 "^" 0 20 "^" "BA2" 2 "^" "BA3" 2 "^" "BA4" 2 "^" "BA2" 8 "^" "BA3" 8 "^" "BA4" 8 "^" "BA2" 5 "^" "BA4" 5 "^" "BA3" 5 "^" "BA2" 7 "^" "BA3" 7 "^" "BA4" 7 "^" "BA3" 1 "^" "BA4" 1 "^" "BA2" 1 "^" "BA2" 3 "^" "BA3" 3 "^" "BA4" 3 "^" "BA2" 6 "^" "BA3" 6 "^" "BA4" 6 "^" "BA2" 4 "^" "BA3" 4 "^" "BA4" 4 "^" 0 11 "^" 0 17 "^" 0 14 "^" "LB" 3 "^" "AM" 4 "^" 0 10 "^" 0 21 "^" 1 5 "^" 10 1 "^" 10 8 "^" 10 6 "^" 10 11 "^" 10 14 "^" 0 16 "^" "LB" 7 "^" "LB" 6 "^" "LB" 9 "^" "LB" 8 "^" 1 1 "^" 10 5 "^" 0 4 "^" 5 3 "^" 0 8 "^" 1 9 "^" 0 9 "^" 4 1 "^" "LB" 13 "^" "LB" 5 "^" "LB" 10 Generated class for FileMan File Number: '195.2' File Name: 'RECORD TYPES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId RECORD_TYPES_195_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.860431979 67178,44715.495560488 right RECORD TYPES 195.2 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '2' This allows the record type to be selected by a few characters. %Library.String 4 ABBREVIATION FileMan Field Label: 'ASK FOR CONTENT DESCRIPTOR?' FileMan Field Number: '16' Yes means the system will query the user to add free text for record description. %Library.EnumString 16 ASK_FOR_CONTENT_DESCRIPTOR FileMan Field Label: 'BARCODE RENEWAL CUTOFF (days)' FileMan Field Number: '11.1' Barcode Renewal Cutoff (days) This field contains the number of days required to consider re-printing a barcode label. %Library.Numeric 11 BARCODE_RENEWAL_CUTOFF_DAYS FileMan Field Label: 'CAN RECORD BE REQUESTED?' FileMan Field Number: '14' No means the record cannot be requested. %Library.EnumString 14 CAN_RECORD_BE_REQUESTED FileMan Field Label: 'CONTROL OF FINDING RECORDS' FileMan Field Number: '7' This allows the application to limit the designation of a missing record as found. %Library.EnumString 6 CONTROL_OF_FINDING_RECORDS FileMan Field Label: 'CURRENT BORR REQUEST TIME MIN.' FileMan Field Number: '13' CURRENT BORROWER FUTURE REQUEST TIME MINIMUM (minutes) This defines the time in the future when the current borrower may request the record again. %Library.Numeric 13 CURRENT_BORR_REQUEST_TIME_MIN_ FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '150' This free text allows the record to be described more fully. %Library.String 23 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(195.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVATION DATE' FileMan Field Number: '50' This defines a date when the record is no longer available to be charged out. %Library.FilemanDate 22 INACTIVATION_DATE FileMan Field Label: 'INQUIRY DISPLAY ORDER' FileMan Field Number: '4' This is used by the system to allow application modification of displays. %Library.Numeric 5 INQUIRY_DISPLAY_ORDER FileMan Field Label: 'IS RECORD TEMPORARY?' FileMan Field Number: '15' This means that the record can only be charged out once. %Library.EnumString 15 IS_RECORD_TEMPORARY FileMan Field Label: 'MULTIPLE VOLUMES ALLOWED?' FileMan Field Number: '17' Yes means the system will allow creation of multiple volumes for this type of record. %Library.EnumString 17 MULTIPLE_VOLUMES_ALLOWED FileMan Field Label: 'NAME' FileMan Field Number: '.01' This describes the record as to function. %Library.String 1 3 NAME FileMan Field Label: 'OK TO PURGE DATA?' FileMan Field Number: '18' NO means that all the purge parameters will be ignored by the purge option and no data is purged until this parameter is set to YES. %Library.EnumString 18 OK_TO_PURGE_DATA FileMan Field Label: 'OK TO RETIRE RECORDS?' FileMan Field Number: '22' %Library.EnumString 21 OK_TO_RETIRE_RECORDS FileMan Field Label: 'OVERDUE RECORD CUTOFF (days)' FileMan Field Number: '11' This defines the number of days that a charged record is allowed to be charged before it is considered by the system as overdue. %Library.Numeric 10 OVERDUE_RECORD_CUTOFF_DAYS FileMan Field Label: 'PENDING CHECK-IN CUTOFF (days)' FileMan Field Number: '21' This describes the number of days a pending request will be displayed for a record when the record is being checked in. %Library.Numeric 20 PENDING_CHECKIN_CUTOFF_DAYS FileMan Field Label: 'PENDING REQUEST CUTOFF (days)' FileMan Field Number: '9' This defines the number of days before a request is considered not filled by the system. %Library.Numeric 8 PENDING_REQUEST_CUTOFF_DAYS FileMan Field Label: '# PREVIOUS MOVEMENTS TO RETAIN' FileMan Field Number: '12' This defines the number of movements to not be purged by the purge option. %Library.Numeric 12 PREVIOUS_MOVEMENTS_TO_RETAIN FileMan Field Label: 'PULL LIST PURGE CUTOFF (days)' FileMan Field Number: '10' This defines the number of days to retain pull lists before the pull lists are purged by the purge option. %Library.Numeric 9 PULL_LIST_PURGE_CUTOFF_DAYS FileMan Field Label: 'REQUEST PURGE CUTOFF (days)' FileMan Field Number: '8' This defines the number of days to retain requests before purging. %Library.Numeric 7 REQUEST_PURGE_CUTOFF_DAYS FileMan Field Label: 'RETIRE RECORD CUTOFF (days)' FileMan Field Number: '19' Record Retirement Cutoff (days) This field will contain the number of days required for a record to be considered for retirement. %Library.Numeric 19 RETIRE_RECORD_CUTOFF_DAYS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 24 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(195.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(195.2,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(195.2,"+1,",2)={"ABBREVIATION"} set:{INQUIRY_DISPLAY_ORDER}'="" FDA(195.2,"+1,",4)={"INQUIRY_DISPLAY_ORDER"} set:{CONTROL_OF_FINDING_RECORDS}'="" FDA(195.2,"+1,",7)={"CONTROL_OF_FINDING_RECORDS"} set:{REQUEST_PURGE_CUTOFF_DAYS}'="" FDA(195.2,"+1,",8)={"REQUEST_PURGE_CUTOFF_DAYS"} set:{PENDING_REQUEST_CUTOFF_DAYS}'="" FDA(195.2,"+1,",9)={"PENDING_REQUEST_CUTOFF_DAYS"} set:{PULL_LIST_PURGE_CUTOFF_DAYS}'="" FDA(195.2,"+1,",10)={"PULL_LIST_PURGE_CUTOFF_DAYS"} set:{OVERDUE_RECORD_CUTOFF_DAYS}'="" FDA(195.2,"+1,",11)={"OVERDUE_RECORD_CUTOFF_DAYS"} set:{BARCODE_RENEWAL_CUTOFF_DAYS}'="" FDA(195.2,"+1,",11.1)={"BARCODE_RENEWAL_CUTOFF_DAYS"} set:{PREVIOUS_MOVEMENTS_TO_RETAIN}'="" FDA(195.2,"+1,",12)={"PREVIOUS_MOVEMENTS_TO_RETAIN"} set:{CURRENT_BORR_REQUEST_TIME_MIN_}'="" FDA(195.2,"+1,",13)={"CURRENT_BORR_REQUEST_TIME_MIN_"} set:{CAN_RECORD_BE_REQUESTED}'="" FDA(195.2,"+1,",14)={"CAN_RECORD_BE_REQUESTED"} set:{IS_RECORD_TEMPORARY}'="" FDA(195.2,"+1,",15)={"IS_RECORD_TEMPORARY"} set:{ASK_FOR_CONTENT_DESCRIPTOR}'="" FDA(195.2,"+1,",16)={"ASK_FOR_CONTENT_DESCRIPTOR"} set:{MULTIPLE_VOLUMES_ALLOWED}'="" FDA(195.2,"+1,",17)={"MULTIPLE_VOLUMES_ALLOWED"} set:{OK_TO_PURGE_DATA}'="" FDA(195.2,"+1,",18)={"OK_TO_PURGE_DATA"} set:{RETIRE_RECORD_CUTOFF_DAYS}'="" FDA(195.2,"+1,",19)={"RETIRE_RECORD_CUTOFF_DAYS"} set:{PENDING_CHECKIN_CUTOFF_DAYS}'="" FDA(195.2,"+1,",21)={"PENDING_CHECKIN_CUTOFF_DAYS"} set:{OK_TO_RETIRE_RECORDS}'="" FDA(195.2,"+1,",22)={"OK_TO_RETIRE_RECORDS"} set:{INACTIVATION_DATE}'="" FDA(195.2,"+1,",50)={"INACTIVATION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(195.2)") set %SkipFiling=1 if $d(%FMERR(195.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(195.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(195.2,{RowId},150,,"wp","%FMERR(195.2)") if $d(%FMERR(195.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(195.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(195.2,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(195.2,IENS,2)={ABBREVIATION} set:{INQUIRY_DISPLAY_ORDER*C} FDA(195.2,IENS,4)={INQUIRY_DISPLAY_ORDER} set:{CONTROL_OF_FINDING_RECORDS*C} FDA(195.2,IENS,7)={CONTROL_OF_FINDING_RECORDS} set:{REQUEST_PURGE_CUTOFF_DAYS*C} FDA(195.2,IENS,8)={REQUEST_PURGE_CUTOFF_DAYS} set:{PENDING_REQUEST_CUTOFF_DAYS*C} FDA(195.2,IENS,9)={PENDING_REQUEST_CUTOFF_DAYS} set:{PULL_LIST_PURGE_CUTOFF_DAYS*C} FDA(195.2,IENS,10)={PULL_LIST_PURGE_CUTOFF_DAYS} set:{OVERDUE_RECORD_CUTOFF_DAYS*C} FDA(195.2,IENS,11)={OVERDUE_RECORD_CUTOFF_DAYS} set:{BARCODE_RENEWAL_CUTOFF_DAYS*C} FDA(195.2,IENS,11.1)={BARCODE_RENEWAL_CUTOFF_DAYS} set:{PREVIOUS_MOVEMENTS_TO_RETAIN*C} FDA(195.2,IENS,12)={PREVIOUS_MOVEMENTS_TO_RETAIN} set:{CURRENT_BORR_REQUEST_TIME_MIN_*C} FDA(195.2,IENS,13)={CURRENT_BORR_REQUEST_TIME_MIN_} set:{CAN_RECORD_BE_REQUESTED*C} FDA(195.2,IENS,14)={CAN_RECORD_BE_REQUESTED} set:{IS_RECORD_TEMPORARY*C} FDA(195.2,IENS,15)={IS_RECORD_TEMPORARY} set:{ASK_FOR_CONTENT_DESCRIPTOR*C} FDA(195.2,IENS,16)={ASK_FOR_CONTENT_DESCRIPTOR} set:{MULTIPLE_VOLUMES_ALLOWED*C} FDA(195.2,IENS,17)={MULTIPLE_VOLUMES_ALLOWED} set:{OK_TO_PURGE_DATA*C} FDA(195.2,IENS,18)={OK_TO_PURGE_DATA} set:{RETIRE_RECORD_CUTOFF_DAYS*C} FDA(195.2,IENS,19)={RETIRE_RECORD_CUTOFF_DAYS} set:{PENDING_CHECKIN_CUTOFF_DAYS*C} FDA(195.2,IENS,21)={PENDING_CHECKIN_CUTOFF_DAYS} set:{OK_TO_RETIRE_RECORDS*C} FDA(195.2,IENS,22)={OK_TO_RETIRE_RECORDS} set:{INACTIVATION_DATE*C} FDA(195.2,IENS,50)={INACTIVATION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(195.2)") set %SkipFiling=1 if $d(%FMERR(195.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(195.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(195.2,{RowId},150,,wproot,"%FMERR(195.2)") if $d(%FMERR(195.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(195.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.RECORDTYPES55A8S index ^DIC nonnull 195.2 "B" {NAME} {IEN} 0]]> data ^DIC 195.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 16 "^" 0 20 "^" 0 14 "^" 0 7 "^" 0 13 "D" new data,i,node set {DESCRIPTION}="" merge data=^DIC(195.2,{S2},"D") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "I" 1 "^" 0 4 "^" 0 15 "^" 0 17 "^" 0 1 "^" 0 18 "^" 1 2 "^" 0 11 "^" 1 1 "^" 0 9 "^" 0 12 "^" 0 10 "^" 0 8 "^" 0 19 Generated class for FileMan File Number: '67' File Name: 'REFERRAL PATIENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId REFERRAL_PATIENT_67 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.914703219 67178,44715.535769081 right REFERRAL PATIENT 67 2.56 12/04/2024 12:25:15 1 1 IEN 1 Foreign Key constraint for Variable Pointer reference field PATIENT_NAME_PATIENT_FILE_ENTRY PATIENTNAMEPATIENTFILEENTRY VALIP.prosthetic.fm2cw.PATIENT2 FKey_PATIENT_NAME_PATIENT_FILE_ENTRY Foreign Key constraint for Variable Pointer reference field PATIENT_NAME_REFERRAL_PATIENT PATIENTNAMEREFERRALPATIENT VALIP.prosthetic.fm2cw.REFERRALPATIENT67 FKey_PATIENT_NAME_REFERRAL_PATIENT FileMan Field Label: 'AGE' FileMan Field Number: '.033' Computed field. %Library.String 1 6 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(67,.033,1)=$S($D(^LRT(67,D0,0)):^(0),1:"") S X=DT,X1=X,X2=$P(Y(67,.033,1),U,3),X="" D:X2 ^%DTC:X1 S X=X\365.25 set {AGE}=X 1 AGE FileMan Field Label: 'CITY' FileMan Field Number: '.114' City part of address of patient. %Library.String 14 CITY FileMan Field Label: 'DATE OF DEATH' FileMan Field Number: '.351' Date of death of patient. %Library.FilemanTimeStamp 20 DATE_OF_DEATH FileMan Field Label: 'DOB' FileMan Field Number: '.03' Date of birth of patient. %Library.FilemanDate 5 DOB FileMan Field Label: 'IDENTIFIER' FileMan Field Number: '.09' Short description of referral. %Library.String 1 7 IDENTIFIER Internal Entry Number %Library.String $$next^%apiSQL("$p(^LRT(67,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name of patient. %Library.String 1 3 NAME Computed Field For Node .1 %Library.String 1 8 s {NODE__1}=$g(^LRT(67,{IEN},.1)) 1 NODE__1 FileMan Field Label: 'OFFICE PHONE' FileMan Field Number: '.132' Office (work) phone number of patient. %Library.String 17 OFFICE_PHONE FileMan Field Label: 'Patient Name' FileMan Field Number: '3' This field controls the sequence used to lookup of patient's demographic information already stored in either ^DPT( or the ^LRT(67 files. This field is used by LEDI patient accessioning software. %Library.String 21 1 PATIENTNAMEPATIENTFILEENTRY,PATIENTNAMEREFERRALPATIENT PATIENT_NAME Variable Pointer Reference Field for Pointer field Patient_file_entry 'PATIENT' VALIP.prosthetic.fm2cw.PATIENT2 22 1 PATIENT_NAME_PATIENT_FILE_ENTRY NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REFERRAL_PATIENT_67 where %ID=:id) set {PATIENT_NAME_PATIENT_FILE_ENTRY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME_PATIENT_FILE_ENTRY_NAME 1 Variable Pointer Reference Field for Pointer field Referral_Patient 'REFERRAL PATIENT' VALIP.prosthetic.fm2cw.REFERRALPATIENT67 23 1 PATIENT_NAME_REFERRAL_PATIENT NAME Name of patient.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REFERRAL_PATIENT_67 where %ID=:id) set {PATIENT_NAME_REFERRAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME_REFERRAL_PATIENT_NAME 1 Variable Pointer Value Field for Pointer field PATIENT_NAME %Library.String 1 24 if {PATIENT_NAME_PATIENT_FILE_ENTRY_NAME}'="" { set {*}={PATIENT_NAME_PATIENT_FILE_ENTRY_NAME} quit } if {PATIENT_NAME_REFERRAL_PATIENT_NAME}'="" { set {*}={PATIENT_NAME_REFERRAL_PATIENT_NAME} quit } set {*}="" 1 PATIENT_NAME_VALUE FileMan Field Label: 'PHONE' FileMan Field Number: '.131' Home phone number of patient. %Library.String 16 PHONE FileMan Field Label: 'PHONE #3' FileMan Field Number: '.133' Other phone number. %Library.String 18 PHONE_3 FileMan Field Label: 'PHONE #4' FileMan Field Number: '.134' Other phone number. %Library.String 19 PHONE_4 FileMan Field Label: 'PROVIDER' FileMan Field Number: '.104' %Library.String 10 PROVIDER FileMan Field Label: 'REFERRAL SOURCE' FileMan Field Number: '.1' Where specimen came from- (ex. Hospital, Physician's office) %Library.String 1 9 s {REFERRAL_SOURCE}=$e({NODE__1},1,19) 1 REFERRAL_SOURCE FileMan Field Label: 'SEX' FileMan Field Number: '.02' Sex of patient. %Library.EnumString 4 SEX FileMan Field Label: 'STREET ADDRESS' FileMan Field Number: '.111' Street part of address of patient. %Library.String 11 STREET_ADDRESS FileMan Field Label: 'STREET ADDRESS 2' FileMan Field Number: '.112' Secondary street address. %Library.String 12 STREET_ADDRESS_2 FileMan Field Label: 'STREET ADDRESS 3' FileMan Field Number: '.113' Tertiary street address. %Library.String 13 STREET_ADDRESS_3 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 25 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'ZIP CODE' FileMan Field Number: '.116' Zip code part of address of patient. %Library.String 15 ZIP_CODE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LRT(67," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(67,"+1,",.01)={"NAME"} set:{SEX}'="" FDA(67,"+1,",.02)={"SEX"} set:{DOB}'="" FDA(67,"+1,",.03)={"DOB"} set:{IDENTIFIER}'="" FDA(67,"+1,",.09)={"IDENTIFIER"} set:{PROVIDER}'="" FDA(67,"+1,",.104)={"PROVIDER"} set:{STREET_ADDRESS}'="" FDA(67,"+1,",.111)={"STREET_ADDRESS"} set:{STREET_ADDRESS_2}'="" FDA(67,"+1,",.112)={"STREET_ADDRESS_2"} set:{STREET_ADDRESS_3}'="" FDA(67,"+1,",.113)={"STREET_ADDRESS_3"} set:{CITY}'="" FDA(67,"+1,",.114)={"CITY"} set:{ZIP_CODE}'="" FDA(67,"+1,",.116)={"ZIP_CODE"} set:{PHONE}'="" FDA(67,"+1,",.131)={"PHONE"} set:{OFFICE_PHONE}'="" FDA(67,"+1,",.132)={"OFFICE_PHONE"} set:{PHONE_3}'="" FDA(67,"+1,",.133)={"PHONE_3"} set:{PHONE_4}'="" FDA(67,"+1,",.134)={"PHONE_4"} set:{DATE_OF_DEATH}'="" FDA(67,"+1,",.351)={"DATE_OF_DEATH"} set:{PATIENT_NAME}'="" FDA(67,"+1,",3)={"PATIENT_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(67)") set %SkipFiling=1 if $d(%FMERR(67,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(67)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(67,IENS,.01)={NAME} set:{SEX*C} FDA(67,IENS,.02)={SEX} set:{DOB*C} FDA(67,IENS,.03)={DOB} set:{IDENTIFIER*C} FDA(67,IENS,.09)={IDENTIFIER} set:{PROVIDER*C} FDA(67,IENS,.104)={PROVIDER} set:{STREET_ADDRESS*C} FDA(67,IENS,.111)={STREET_ADDRESS} set:{STREET_ADDRESS_2*C} FDA(67,IENS,.112)={STREET_ADDRESS_2} set:{STREET_ADDRESS_3*C} FDA(67,IENS,.113)={STREET_ADDRESS_3} set:{CITY*C} FDA(67,IENS,.114)={CITY} set:{ZIP_CODE*C} FDA(67,IENS,.116)={ZIP_CODE} set:{PHONE*C} FDA(67,IENS,.131)={PHONE} set:{OFFICE_PHONE*C} FDA(67,IENS,.132)={OFFICE_PHONE} set:{PHONE_3*C} FDA(67,IENS,.133)={PHONE_3} set:{PHONE_4*C} FDA(67,IENS,.134)={PHONE_4} set:{DATE_OF_DEATH*C} FDA(67,IENS,.351)={DATE_OF_DEATH} set:{PATIENT_NAME*C} FDA(67,IENS,3)={PATIENT_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(67)") set %SkipFiling=1 if $d(%FMERR(67,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(67)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REFERRALPAT846FS index {NAME}'="" 1 ^LRT conditional 67 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^LRT nonnull 67 "C" {IDENTIFIER} {IEN} 0]]> index ^LRT nonnull 67 "CN" {REFERRAL_SOURCE} {IEN} 0]]> data ^LRT 67 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" .11 4 "^" .35 1 "^" 0 3 "^" 0 9 "^" 0 1 "^" .13 2 "^" 3 1 If $p($p($g(^LRT({S1},{S2},3)),"^",1),";",2,999)'="DPT(" s {PATIENT_NAME_PATIENT_FILE_ENTRY}="" Quit s {PATIENT_NAME_PATIENT_FILE_ENTRY}=$p($p($g(^LRT({S1},{S2},3)),"^",1),";") If $p($p($g(^LRT({S1},{S2},3)),"^",1),";",2,999)'="LRT(67," s {PATIENT_NAME_REFERRAL_PATIENT}="" Quit s {PATIENT_NAME_REFERRAL_PATIENT}=$p($p($g(^LRT({S1},{S2},3)),"^",1),";") "^" .13 1 "^" .13 3 "^" .13 4 "^" .104 1 "^" 0 2 "^" .11 1 "^" .11 2 "^" .11 3 "^" .11 6 Generated class for FileMan File Number: '697.1' File Name: 'REFERRING PHYSICIAN/AGENCY' Class generated by %fm2class version 2.56 This file holds the various referring physicians and agencies that have made referrals for cardiac catheterizations. persistent _PUBLIC 0 RowId REFERRING_PHYSICIANAGENCY_697_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.911099275 67178,44715.578082521 right REFERRING PHYSICIAN/AGENCY 697.1 2.56 12/04/2024 12:25:15 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(697.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies a list of non-site physicians or referring agencies that refer a patient to the VA site for a Catheterization. This list is LAYGO. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(697.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(697.1,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(697.1)") set %SkipFiling=1 if $d(%FMERR(697.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(697.1,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.1)") set %SkipFiling=1 if $d(%FMERR(697.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(697.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REFERRINGPH480FS index ^MCAR nonnull 697.1 "B" {NAME} {IEN} 0]]> data ^MCAR 697.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '695.1' File Name: 'REGIONAL WALL MOTION' Class generated by %fm2class version 2.56 This file stores the regional wall motions associated with ECHO procedures. persistent _PUBLIC 0 RowId REGIONAL_WALL_MOTION_695_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.93281838 67178,44715.611320741 right REGIONAL WALL MOTION 695.1 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'CURRENT ENTRY' FileMan Field Number: '1' This field is used as a screen to differentiate the current list of wall motions from past lists without removing the data to insure backwards compatibility on the Echo report. %Library.EnumString 4 CURRENT_ENTRY Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a list of various Regional Wall Motions used by the Echo procedure. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(695.1,"+1,",.01)={"NAME"} set:{CURRENT_ENTRY}'="" FDA(695.1,"+1,",1)={"CURRENT_ENTRY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695.1)") set %SkipFiling=1 if $d(%FMERR(695.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(695.1,IENS,.01)={NAME} set:{CURRENT_ENTRY*C} FDA(695.1,IENS,1)={CURRENT_ENTRY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.1)") set %SkipFiling=1 if $d(%FMERR(695.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REGIONALWAL34D2S index ^MCAR nonnull 695.1 "B" {NAME} {IEN} 0]]> data ^MCAR 695.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '13' File Name: 'RELIGION' Class generated by %fm2class version 2.56 The RELIGION file currently contains 90 entries. These entries are determined by VACO MAS. This file should not be added to nor should entries in it be altered or deleted by the facility. Entry, edit or deletion of these entries could have severe negative effects on the performance of the MAS module. persistent _PUBLIC 0 RowId RELIGION_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.956804275 67178,44715.644252629 right RELIGION 13 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains an abbreviation for this religion. This abbreviation will appear on outputs or displays where there in insufficient room for the full name of the religion. This field should not be altered at the site level. %Library.String 4 ABBREVIATION FileMan Field Label: 'CLASSIFICATION' FileMan Field Number: '2' This field should contain the classification of the religion (whether it be Catholic, Protestant, Jewish, Orthodox, or something other than what is listed. This field is distributed by the MAS module and should not be altered in any way. %Library.EnumString 5 CLASSIFICATION FileMan Field Label: 'CODE' FileMan Field Number: '3' This field contains the numeric code for this particular religion. This code is transmitted to Austin with various DHCP packages. It must NOT be altered in any way as this could cause severe negative impacts on various DHCP modules and could cause rejected records to be returned from Austin. %Library.Numeric 6 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(13,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the religion as it will appear to users at the time of selection in the registration module. This name will appear in various reports and options throughout DHCP. This field should not be altered. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(13," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(13,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(13,"+1,",1)={"ABBREVIATION"} set:{CLASSIFICATION}'="" FDA(13,"+1,",2)={"CLASSIFICATION"} set:{CODE}'="" FDA(13,"+1,",3)={"CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(13)") set %SkipFiling=1 if $d(%FMERR(13,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(13)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(13,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(13,IENS,1)={ABBREVIATION} set:{CLASSIFICATION*C} FDA(13,IENS,2)={CLASSIFICATION} set:{CODE*C} FDA(13,IENS,3)={CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(13)") set %SkipFiling=1 if $d(%FMERR(13,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(13)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.RELIGION13S index ^DIC nonnull 13 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 13 "C" {CODE} {IEN} 0]]> data ^DIC 13 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 4 "^" 0 1 Generated class for FileMan File Number: '811.9' File Name: 'REMINDER DEFINITION' Class generated by %fm2class version 2.56 This file contains Clinical Reminder definitions. For a detailed description of the contents of this file, see the Clinical Reminders Manager Manual. Additional information may be found at the Clinical Reminders web site: http//domaindomain.ext/reminders This file contains a combination of nationally distributed and local entries. Any local entries are assigned an internal entry number prefixed with your site number. Nationally distributed entries have their name prefixed with VA-. Local entry names cannot start with VA-. persistent _PUBLIC 0 RowId REMINDER_DEFINITION_811_9 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.99844961 67178,44715.679253673 right REMINDER DEFINITION 811.9 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'AGE FINDINGS COUNT' FileMan Field Number: '40' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.Numeric 21 AGE_FINDINGS_COUNT FileMan Field Label: 'AGE FINDINGS LIST' FileMan Field Number: '41' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 22 AGE_FINDINGS_LIST FileMan Field Label: 'CLASS' FileMan Field Number: '100' This is the CLASS of the definition. Possible classes are "N" for national, "V" for VISN, and "L" for local. National definitions cannot be edited by sites. %Library.EnumString 1 59 CLASS FileMan Field Label: 'CONTRAINDICATED FALSE TEXT' FileMan Field Number: '84' %Library.String 49 CONTRAINDICATED_FALSE_TEXT FileMan Field Label: 'CONTRAINDICATED FINDINGS COUNT' FileMan Field Number: '81' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.Numeric 46 CONTRAINDICATED_FINDINGS_COUNT FileMan Field Label: 'CONTRAINDICATED FINDINGS LIST' FileMan Field Number: '82' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 47 CONTRAINDICATED_FINDINGS_LIST FileMan Field Label: 'CONTRAINDICATED LOGIC' FileMan Field Number: '80' CONTRAINDICATED LOGIC (OPTIONAL) This field defines the CONTRAINDICATED LOGIC. When this logic evaluates to TRUE, the reminder evaluation status will be CONTRA. Detailed information on how to create logic strings can be found in the Clinical Reminders Manager's Manual. %Library.String 45 CONTRAINDICATED_LOGIC FileMan Field Label: 'CONTRAINDICATED TRUE TEXT' FileMan Field Number: '83' %Library.String 48 CONTRAINDICATED_TRUE_TEXT FileMan Field Label: 'CUSTOMIZED COHORT LOGIC' FileMan Field Number: '30' CUSTOMIZED PATIENT COHORT LOGIC (OPTIONAL) This field may be used to define a customized Patient Cohort Logic string. Typically this is done when the USE IN PATIENT COHORT LOGIC fields associated with each finding do not provide the ability to create the required logic string. The requirement for custom logic arises when the required logic is more complex than can be represented by simple concatenation of Boolean logical operators and findings. Detailed information on how to create the custom logic string can be found in the Clinical Reminders Manager Manual. %Library.String 13 CUSTOMIZED_COHORT_LOGIC FileMan Field Label: 'CUSTOMIZED RESOLUTION LOGIC' FileMan Field Number: '34' CUSTOMIZED RESOLUTION LOGIC (OPTIONAL) This field may be used to define a customized Resolution Logic string. Typically this is done when the USE IN RESOLUTION LOGIC fields associated with each finding do not provide the ability to create the required logic string. The requirement for custom logic arises when the required logic is more complex than can be represented by simple concatenation of Boolean logical operators and findings. Detailed information on how to create the custom logic string can be found in the Clinical Reminders Manager Manual. %Library.String 17 CUSTOMIZED_RESOLUTION_LOGIC FileMan Field Label: 'CUSTOM DATE DUE' FileMan Field Number: '45' When a CUSTOM DATE DUE is defined, it takes precedence over the standard date due calculation. This means the normal date due calculation that is based on the dates of the resolution findings and the final frequency is not done. Only the dates of the findings and the frequencies specified in the Custom Date Due string are used. Any finding that is in the reminder definition can be used in the Custom Date Due string; it is not limited to those defined as resolution findings. The final age range will still be used to determine if the patient is in the cohort; however, the frequency associated with this age range is not used. Only the frequencies specified in the Custom Date Due String are used. They are added to the date of the associated finding to determine the dates used by either the MIN_DATE or MAX_DATE functions. %Library.String 25 CUSTOM_DATE_DUE FileMan Field Label: 'CUSTOM DATE DUE FUNCTION' FileMan Field Number: '46' This field contains the function used in the CUSTOM DATE DUE. It is created automatically and should not be set by hand. %Library.String 26 CUSTOM_DATE_DUE_FUNCTION FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '2' This field contains a description of the clinical reminder. It is used to document its purpose and intended usage. %Library.String 11 DESCRIPTION FileMan Field Label: 'DO IN ADVANCE TIME FRAME' FileMan Field Number: '1.3' This field is used to let a reminder become due earlier than the date determined by adding the frequency to the date when the reminder was last resolved. For example, if the frequency is 1Y (one year) and the DO IN ADVANCE TIME FRAME is 1M (one month), the reminder would have a status of "DUE SOON" 11 months after it was last resolved. After one year has passed, the STATUS would be "DUE". Frequencies have the form IU where I is an integer and U is one of the following units: H (hours), D (days), W (weeks), M (months), and Y (years). %Library.String 5 DO_IN_ADVANCE_TIME_FRAME FileMan Field Label: 'GENERAL COHORT FOUND TEXT' FileMan Field Number: '60' This optional field defines the detailed text to display when the Patient Cohort Logic is true. Detailed text is used for components such as Clinical Maintenance and MyHealtheVet Detailed. %Library.String 28 GENERAL_COHORT_FOUND_TEXT FileMan Field Label: 'GENERAL COHORT NOT FOUND TEXT' FileMan Field Number: '61' This optional field defines the detailed text to display when the Patient Cohort Logic is false. Detailed text is used for components such as Clinical Maintenance and MyHealtheVet Detailed. %Library.String 29 GENERAL_COHORT_NOT_FOUND_TEXT FileMan Field Label: 'GENERAL RES. FOUND TEXT' FileMan Field Number: '65' This optional field defines the detailed text to display when the Resolution Logic is true. Detailed text is used for components such as Clinical Maintenance and MyHealtheVet Detailed. %Library.String 32 GENERAL_RES__FOUND_TEXT FileMan Field Label: 'GENERAL RES. NOT FOUND TEXT' FileMan Field Number: '66' This optional field defines the detailed text to display when the Resolution Logic is false. Detailed text is used for components such as Clinical Maintenance and MyHealtheVet Detailed. %Library.String 33 GENERAL_RES__NOT_FOUND_TEXT FileMan Field Label: '# GEN. COHORT NOT FOUND LINES' FileMan Field Number: '63' This is the number of lines in the GENERAL COHORT NOT FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 31 GEN__COHORT_NOT_FOUND_LINES FileMan Field Label: '# GEN. RES. FOUND LINES' FileMan Field Number: '67' This is the number of lines in the GENERAL RESOLUTION FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 34 GEN__RES__FOUND_LINES FileMan Field Label: '# GEN. RES. NOT FOUND LINES' FileMan Field Number: '68' This is the number of lines in the GENERAL RESOLUTION NOT FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 35 GEN__RES__NOT_FOUND_LINES Internal Entry Number %Library.String $$next^%apiSQL("$p(^PXD(811.9,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IGNORE ON N/A' FileMan Field Number: '1.8' This field allows the user to stop reminders from being printed in the Clinical Maintenance component if the reminder is N/A. This is a free text field that can contain any combination of the following codes: Code Description A N/A due to not meeting age criteria. I N/A due to inactive reminder. R N/A due to the wrong race. S N/A due to the wrong sex. * N/A for any reason. %Library.String 8 IGNORE_ON_NA FileMan Field Label: 'INACTIVE CHANGE DATE' FileMan Field Number: '1.7' This is the date and time when the INACTIVE FLAG was last changed. It is set automatically. Users should never edit this field. %Library.FilemanTimeStamp 7 INACTIVE_CHANGE_DATE FileMan Field Label: 'INACTIVE FLAG' FileMan Field Number: '1.6' Reminders that are inactive will not be evaluated. The Clinical Maintenance component will return a message stating the reminder is inactive and the date when it was made inactive. Other applications that use reminders may use this flag to determine if a reminder can be selected for inclusion. %Library.EnumString 6 INACTIVE_FLAG FileMan Field Label: 'INFORMATION FINDINGS COUNT' FileMan Field Number: '42' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.Numeric 23 INFORMATION_FINDINGS_COUNT FileMan Field Label: 'INFORMATION FINDINGS LIST' FileMan Field Number: '43' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 24 INFORMATION_FINDINGS_LIST FileMan Field Label: 'INTERNAL PATIENT COHORT LOGIC' FileMan Field Number: '31' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 14 INTERNAL_PATIENT_COHORT_LOGIC FileMan Field Label: 'INTERNAL RESOLUTION LOGIC' FileMan Field Number: '35' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 18 INTERNAL_RESOLUTION_LOGIC FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field is the name of a clinical reminder definition. Nationally distributed reminder definition names are prefixed with "VA-". The VA- prefixed reminder definitions cannot be altered by a site, but may be inactivated so they will not be selectable or evaluated in the CPRS GUI. Local modifications can be made to any "VA-" reminder definition by copying the definition to a new one with a unique name and then making modifications to the new definition which meet local criteria. %Library.String 1 3 NAME FileMan Field Label: 'NUMBER OF ARGUMENTS' FileMan Field Number: '47' This is the number of arguments (findings) used in the CUSTOM DATE DUE. It is created automatically and should not be set by hand. %Library.Numeric 27 NUMBER_OF_ARGUMENTS FileMan Field Label: '# OF CONTRA FALSE LINES' FileMan Field Number: '86' This is the number of lines in the CONTRAINDICATED FALSE TEXT. If the number ends with "T", then the text contains TIU objects. If the number ends with "C", then the text contains CSUB objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 51 OF_CONTRA_FALSE_LINES FileMan Field Label: '# OF CONTRA TRUE LINES' FileMan Field Number: '85' This is the number of lines in the CONTRAINDICATED TRUE TEXT. If the number ends with "T", then the text contains TIU objects. If the number ends with "C", then the text contains CSUB objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 50 OF_CONTRA_TRUE_LINES FileMan Field Label: '# OF GEN. COHORT FOUND LINES' FileMan Field Number: '62' This is the number of lines in the GENERAL COHORT FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 30 OF_GEN__COHORT_FOUND_LINES FileMan Field Label: '# OF REFUSED FALSE LINES' FileMan Field Number: '96' This is the number of lines in the REFUSED FALSE TEXT. If the number ends with "T", then the text contains TIU objects. If the number ends with "C", then the text contains CSUB objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 58 OF_REFUSED_FALSE_LINES FileMan Field Label: '# OF REFUSED TRUE LINES' FileMan Field Number: '95' This is the number of lines in the REFUSED TRUE TEXT. If the number ends with "T", then the text contains TIU objects. If the number ends with "C", then the text contains CSUB objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 57 OF_REFUSED_TRUE_LINES FileMan Field Label: 'PATIENT COHORT FINDINGS COUNT' FileMan Field Number: '32' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.Numeric 15 PATIENT_COHORT_FINDINGS_COUNT FileMan Field Label: 'PATIENT COHORT FINDINGS LIST' FileMan Field Number: '33' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 16 PATIENT_COHORT_FINDINGS_LIST FileMan Field Label: 'PRINT NAME' FileMan Field Number: '1.2' This is the name that is used when the results of a reminder evaluation are displayed. %Library.String 4 PRINT_NAME FileMan Field Label: 'PRIORITY' FileMan Field Number: '1.91' REMINDER PRIORITY is used by the CPRS GUI for sorting purposes. %Library.EnumString 10 PRIORITY FileMan Field Label: 'REFUSED FALSE TEXT' FileMan Field Number: '94' %Library.String 56 REFUSED_FALSE_TEXT FileMan Field Label: 'REFUSED FINDINGS COUNT' FileMan Field Number: '91' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.Numeric 53 REFUSED_FINDINGS_COUNT FileMan Field Label: 'REFUSED FINDINGS LIST' FileMan Field Number: '92' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 54 REFUSED_FINDINGS_LIST FileMan Field Label: 'REFUSED LOGIC' FileMan Field Number: '90' REFUSED LOGIC (OPTIONAL) This field defines the REFUSED LOGIC. When this logic evaluates to TRUE, the reminder evaluation status will be REFUSED, as long as, the status has not already been determined to be CONTRA; CONTRA takes precedence over REFUSED. Detailed information on how to create logic strings can be found in the Clinical Reminders Manager's Manual. %Library.String 52 REFUSED_LOGIC FileMan Field Label: 'REFUSED TRUE TEXT' FileMan Field Number: '93' %Library.String 55 REFUSED_TRUE_TEXT FileMan Field Label: 'RESCISSION DATE' FileMan Field Number: '69' This is the rescission date for this reminder definition. %Library.FilemanDate 36 RESCISSION_DATE FileMan Field Label: 'RESOLUTION FINDINGS COUNT' FileMan Field Number: '36' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.Numeric 19 RESOLUTION_FINDINGS_COUNT FileMan Field Label: 'RESOLUTION FINDINGS LIST' FileMan Field Number: '37' This field is computed by the Clinical Reminders software and should never be edited by hand. %Library.String 20 RESOLUTION_FINDINGS_LIST FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '102' The REVIEW DATE is used to determine when the definition should be reviewed to verify that it is current with the latest standards and guidelines. You can find all reminder definitions whose review date has passed using the Clinical Reminders Review Date Report. %Library.FilemanDate 60 REVIEW_DATE FileMan Field Label: 'SEX SPECIFIC' FileMan Field Number: '1.9' This field is used to make a reminder sex specific. If an "F" is entered, the reminder applies only to females. If an "M" is entered, the reminder applies only to males. If it is left blank, then the reminder is applicable to either sex. If CUSTOM COHORT LOGIC is defined and it does not contain SEX, then this field will be ignored. %Library.EnumString 9 SEX_SPECIFIC FileMan Field Label: 'SUMMARY COHORT FOUND TEXT' FileMan Field Number: '70' This optional field defines the summary text to display when the Patient Cohort Logic is true. Summary text is used for components such as MyHealtheVet Summary. %Library.String 37 SUMMARY_COHORT_FOUND_TEXT FileMan Field Label: 'SUMMARY COHORT NOT FOUND TEXT' FileMan Field Number: '71' This optional field defines the summary text to display when the Patient Cohort Logic is false. Summary text is used for components such MyHealtheVet Summary. %Library.String 38 SUMMARY_COHORT_NOT_FOUND_TEXT FileMan Field Label: 'SUMMARY RES. FOUND TEXT' FileMan Field Number: '75' This optional field defines the summary text to display when the Resolution Logic is true. Summary text is used for components such as MyHealtheVet Summary. %Library.String 41 SUMMARY_RES__FOUND_TEXT FileMan Field Label: 'SUMMARY RES. NOT FOUND TEXT' FileMan Field Number: '76' This optional field defines the summary text to display when the Resolution Logic is false. Summary text is used for components such as MyHealtheVet Summary. %Library.String 42 SUMMARY_RES__NOT_FOUND_TEXT FileMan Field Label: '# SUM. COHORT FOUND LINES' FileMan Field Number: '72' This is the number of lines in the SUMMARY COHORT FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 39 SUM__COHORT_FOUND_LINES FileMan Field Label: '# SUM. COHORT NOT FOUND LINES' FileMan Field Number: '73' This is the number of lines in the SUMMARY COHORT NOT FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 40 SUM__COHORT_NOT_FOUND_LINES FileMan Field Label: '# SUM. RES. FOUND LINES' FileMan Field Number: '77' This is the number of lines in the SUMMARY RESOLUTION FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 43 SUM__RES__FOUND_LINES FileMan Field Label: '# SUM. RES. NOT FOUND LINES' FileMan Field Number: '78' This is the number of lines in the SUMMARY RESOLUTION NOT FOUND TEXT. If the number ends with "T" then the text contains TIU objects. This field is set automatically during reminder edit and should never be edited by hand. %Library.String 44 SUM__RES__NOT_FOUND_LINES FileMan Field Label: 'TECHNICAL DESCRIPTION' FileMan Field Number: '3' The TECHNICAL DESCRIPTION is for documenting how a reminder is supposed to function and why the definition is set up the way it is. %Library.String 12 TECHNICAL_DESCRIPTION FileMan Field Label: 'USAGE' FileMan Field Number: '103' The Usage field describes how the reminder definition can be used. This field must contain C or * if the reminder is to be selected in CPRS. The L or the O values will override all other values. For example, if L and C are defined in the Usage field, the Reminder will not show on the cover sheet in CPRS, because L is in the Usage field. The A will not allow a reminder to be used on the CPRS coversheet unless the value of C is set also in the usage field. This is free text field and can contain any combination of the following codes: Code Usage A Action C CPRS L Reminder Patient List O Reminder Order Checks P Patient R Reminder Reports X Reminder Extracts * All of the above, except L, O, and P. %Library.String 61 USAGE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 62 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PXD(811.9," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(811.9,"+1,",.01)={"NAME"} set:{PRINT_NAME}'="" FDA(811.9,"+1,",1.2)={"PRINT_NAME"} set:{DO_IN_ADVANCE_TIME_FRAME}'="" FDA(811.9,"+1,",1.3)={"DO_IN_ADVANCE_TIME_FRAME"} set:{INACTIVE_FLAG}'="" FDA(811.9,"+1,",1.6)={"INACTIVE_FLAG"} set:{INACTIVE_CHANGE_DATE}'="" FDA(811.9,"+1,",1.7)={"INACTIVE_CHANGE_DATE"} set:{IGNORE_ON_NA}'="" FDA(811.9,"+1,",1.8)={"IGNORE_ON_NA"} set:{SEX_SPECIFIC}'="" FDA(811.9,"+1,",1.9)={"SEX_SPECIFIC"} set:{PRIORITY}'="" FDA(811.9,"+1,",1.91)={"PRIORITY"} set:{CUSTOMIZED_COHORT_LOGIC}'="" FDA(811.9,"+1,",30)={"CUSTOMIZED_COHORT_LOGIC"} set:{INTERNAL_PATIENT_COHORT_LOGIC}'="" FDA(811.9,"+1,",31)={"INTERNAL_PATIENT_COHORT_LOGIC"} set:{PATIENT_COHORT_FINDINGS_COUNT}'="" FDA(811.9,"+1,",32)={"PATIENT_COHORT_FINDINGS_COUNT"} set:{PATIENT_COHORT_FINDINGS_LIST}'="" FDA(811.9,"+1,",33)={"PATIENT_COHORT_FINDINGS_LIST"} set:{CUSTOMIZED_RESOLUTION_LOGIC}'="" FDA(811.9,"+1,",34)={"CUSTOMIZED_RESOLUTION_LOGIC"} set:{INTERNAL_RESOLUTION_LOGIC}'="" FDA(811.9,"+1,",35)={"INTERNAL_RESOLUTION_LOGIC"} set:{RESOLUTION_FINDINGS_COUNT}'="" FDA(811.9,"+1,",36)={"RESOLUTION_FINDINGS_COUNT"} set:{RESOLUTION_FINDINGS_LIST}'="" FDA(811.9,"+1,",37)={"RESOLUTION_FINDINGS_LIST"} set:{AGE_FINDINGS_COUNT}'="" FDA(811.9,"+1,",40)={"AGE_FINDINGS_COUNT"} set:{AGE_FINDINGS_LIST}'="" FDA(811.9,"+1,",41)={"AGE_FINDINGS_LIST"} set:{INFORMATION_FINDINGS_COUNT}'="" FDA(811.9,"+1,",42)={"INFORMATION_FINDINGS_COUNT"} set:{INFORMATION_FINDINGS_LIST}'="" FDA(811.9,"+1,",43)={"INFORMATION_FINDINGS_LIST"} set:{CUSTOM_DATE_DUE}'="" FDA(811.9,"+1,",45)={"CUSTOM_DATE_DUE"} set:{CUSTOM_DATE_DUE_FUNCTION}'="" FDA(811.9,"+1,",46)={"CUSTOM_DATE_DUE_FUNCTION"} set:{NUMBER_OF_ARGUMENTS}'="" FDA(811.9,"+1,",47)={"NUMBER_OF_ARGUMENTS"} set:{OF_GEN__COHORT_FOUND_LINES}'="" FDA(811.9,"+1,",62)={"OF_GEN__COHORT_FOUND_LINES"} set:{GEN__COHORT_NOT_FOUND_LINES}'="" FDA(811.9,"+1,",63)={"GEN__COHORT_NOT_FOUND_LINES"} set:{GEN__RES__FOUND_LINES}'="" FDA(811.9,"+1,",67)={"GEN__RES__FOUND_LINES"} set:{GEN__RES__NOT_FOUND_LINES}'="" FDA(811.9,"+1,",68)={"GEN__RES__NOT_FOUND_LINES"} set:{RESCISSION_DATE}'="" FDA(811.9,"+1,",69)={"RESCISSION_DATE"} set:{SUM__COHORT_FOUND_LINES}'="" FDA(811.9,"+1,",72)={"SUM__COHORT_FOUND_LINES"} set:{SUM__COHORT_NOT_FOUND_LINES}'="" FDA(811.9,"+1,",73)={"SUM__COHORT_NOT_FOUND_LINES"} set:{SUM__RES__FOUND_LINES}'="" FDA(811.9,"+1,",77)={"SUM__RES__FOUND_LINES"} set:{SUM__RES__NOT_FOUND_LINES}'="" FDA(811.9,"+1,",78)={"SUM__RES__NOT_FOUND_LINES"} set:{CONTRAINDICATED_LOGIC}'="" FDA(811.9,"+1,",80)={"CONTRAINDICATED_LOGIC"} set:{CONTRAINDICATED_FINDINGS_COUNT}'="" FDA(811.9,"+1,",81)={"CONTRAINDICATED_FINDINGS_COUNT"} set:{CONTRAINDICATED_FINDINGS_LIST}'="" FDA(811.9,"+1,",82)={"CONTRAINDICATED_FINDINGS_LIST"} set:{OF_CONTRA_TRUE_LINES}'="" FDA(811.9,"+1,",85)={"OF_CONTRA_TRUE_LINES"} set:{OF_CONTRA_FALSE_LINES}'="" FDA(811.9,"+1,",86)={"OF_CONTRA_FALSE_LINES"} set:{REFUSED_LOGIC}'="" FDA(811.9,"+1,",90)={"REFUSED_LOGIC"} set:{REFUSED_FINDINGS_COUNT}'="" FDA(811.9,"+1,",91)={"REFUSED_FINDINGS_COUNT"} set:{REFUSED_FINDINGS_LIST}'="" FDA(811.9,"+1,",92)={"REFUSED_FINDINGS_LIST"} set:{OF_REFUSED_TRUE_LINES}'="" FDA(811.9,"+1,",95)={"OF_REFUSED_TRUE_LINES"} set:{OF_REFUSED_FALSE_LINES}'="" FDA(811.9,"+1,",96)={"OF_REFUSED_FALSE_LINES"} set:{CLASS}'="" FDA(811.9,"+1,",100)={"CLASS"} set:{REVIEW_DATE}'="" FDA(811.9,"+1,",102)={"REVIEW_DATE"} set:{USAGE}'="" FDA(811.9,"+1,",103)={"USAGE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(811.9)") set %SkipFiling=1 if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(811.9,{RowId},2,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {TECHNICAL_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({TECHNICAL_DESCRIPTION},$c(13,10)) { set wp(i)=$p({TECHNICAL_DESCRIPTION},$c(13,10),i) } do WP^DIE(811.9,{RowId},3,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_COHORT_FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({GENERAL_COHORT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_COHORT_FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},60,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_COHORT_NOT_FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({GENERAL_COHORT_NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_COHORT_NOT_FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},61,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_RES__FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({GENERAL_RES__FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_RES__FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},65,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_RES__NOT_FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({GENERAL_RES__NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_RES__NOT_FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},66,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_COHORT_FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({SUMMARY_COHORT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_COHORT_FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},70,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_COHORT_NOT_FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({SUMMARY_COHORT_NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_COHORT_NOT_FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},71,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_RES__FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({SUMMARY_RES__FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_RES__FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},75,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_RES__NOT_FOUND_TEXT}'="" { set D0={RowId} for i=1:1:$l({SUMMARY_RES__NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_RES__NOT_FOUND_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},76,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CONTRAINDICATED_TRUE_TEXT}'="" { set D0={RowId} for i=1:1:$l({CONTRAINDICATED_TRUE_TEXT},$c(13,10)) { set wp(i)=$p({CONTRAINDICATED_TRUE_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},83,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CONTRAINDICATED_FALSE_TEXT}'="" { set D0={RowId} for i=1:1:$l({CONTRAINDICATED_FALSE_TEXT},$c(13,10)) { set wp(i)=$p({CONTRAINDICATED_FALSE_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},84,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {REFUSED_TRUE_TEXT}'="" { set D0={RowId} for i=1:1:$l({REFUSED_TRUE_TEXT},$c(13,10)) { set wp(i)=$p({REFUSED_TRUE_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},93,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {REFUSED_FALSE_TEXT}'="" { set D0={RowId} for i=1:1:$l({REFUSED_FALSE_TEXT},$c(13,10)) { set wp(i)=$p({REFUSED_FALSE_TEXT},$c(13,10),i) } do WP^DIE(811.9,{RowId},94,,"wp","%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(811.9,IENS,.01)={NAME} set:{PRINT_NAME*C} FDA(811.9,IENS,1.2)={PRINT_NAME} set:{DO_IN_ADVANCE_TIME_FRAME*C} FDA(811.9,IENS,1.3)={DO_IN_ADVANCE_TIME_FRAME} set:{INACTIVE_FLAG*C} FDA(811.9,IENS,1.6)={INACTIVE_FLAG} set:{INACTIVE_CHANGE_DATE*C} FDA(811.9,IENS,1.7)={INACTIVE_CHANGE_DATE} set:{IGNORE_ON_NA*C} FDA(811.9,IENS,1.8)={IGNORE_ON_NA} set:{SEX_SPECIFIC*C} FDA(811.9,IENS,1.9)={SEX_SPECIFIC} set:{PRIORITY*C} FDA(811.9,IENS,1.91)={PRIORITY} set:{CUSTOMIZED_COHORT_LOGIC*C} FDA(811.9,IENS,30)={CUSTOMIZED_COHORT_LOGIC} set:{INTERNAL_PATIENT_COHORT_LOGIC*C} FDA(811.9,IENS,31)={INTERNAL_PATIENT_COHORT_LOGIC} set:{PATIENT_COHORT_FINDINGS_COUNT*C} FDA(811.9,IENS,32)={PATIENT_COHORT_FINDINGS_COUNT} set:{PATIENT_COHORT_FINDINGS_LIST*C} FDA(811.9,IENS,33)={PATIENT_COHORT_FINDINGS_LIST} set:{CUSTOMIZED_RESOLUTION_LOGIC*C} FDA(811.9,IENS,34)={CUSTOMIZED_RESOLUTION_LOGIC} set:{INTERNAL_RESOLUTION_LOGIC*C} FDA(811.9,IENS,35)={INTERNAL_RESOLUTION_LOGIC} set:{RESOLUTION_FINDINGS_COUNT*C} FDA(811.9,IENS,36)={RESOLUTION_FINDINGS_COUNT} set:{RESOLUTION_FINDINGS_LIST*C} FDA(811.9,IENS,37)={RESOLUTION_FINDINGS_LIST} set:{AGE_FINDINGS_COUNT*C} FDA(811.9,IENS,40)={AGE_FINDINGS_COUNT} set:{AGE_FINDINGS_LIST*C} FDA(811.9,IENS,41)={AGE_FINDINGS_LIST} set:{INFORMATION_FINDINGS_COUNT*C} FDA(811.9,IENS,42)={INFORMATION_FINDINGS_COUNT} set:{INFORMATION_FINDINGS_LIST*C} FDA(811.9,IENS,43)={INFORMATION_FINDINGS_LIST} set:{CUSTOM_DATE_DUE*C} FDA(811.9,IENS,45)={CUSTOM_DATE_DUE} set:{CUSTOM_DATE_DUE_FUNCTION*C} FDA(811.9,IENS,46)={CUSTOM_DATE_DUE_FUNCTION} set:{NUMBER_OF_ARGUMENTS*C} FDA(811.9,IENS,47)={NUMBER_OF_ARGUMENTS} set:{OF_GEN__COHORT_FOUND_LINES*C} FDA(811.9,IENS,62)={OF_GEN__COHORT_FOUND_LINES} set:{GEN__COHORT_NOT_FOUND_LINES*C} FDA(811.9,IENS,63)={GEN__COHORT_NOT_FOUND_LINES} set:{GEN__RES__FOUND_LINES*C} FDA(811.9,IENS,67)={GEN__RES__FOUND_LINES} set:{GEN__RES__NOT_FOUND_LINES*C} FDA(811.9,IENS,68)={GEN__RES__NOT_FOUND_LINES} set:{RESCISSION_DATE*C} FDA(811.9,IENS,69)={RESCISSION_DATE} set:{SUM__COHORT_FOUND_LINES*C} FDA(811.9,IENS,72)={SUM__COHORT_FOUND_LINES} set:{SUM__COHORT_NOT_FOUND_LINES*C} FDA(811.9,IENS,73)={SUM__COHORT_NOT_FOUND_LINES} set:{SUM__RES__FOUND_LINES*C} FDA(811.9,IENS,77)={SUM__RES__FOUND_LINES} set:{SUM__RES__NOT_FOUND_LINES*C} FDA(811.9,IENS,78)={SUM__RES__NOT_FOUND_LINES} set:{CONTRAINDICATED_LOGIC*C} FDA(811.9,IENS,80)={CONTRAINDICATED_LOGIC} set:{CONTRAINDICATED_FINDINGS_COUNT*C} FDA(811.9,IENS,81)={CONTRAINDICATED_FINDINGS_COUNT} set:{CONTRAINDICATED_FINDINGS_LIST*C} FDA(811.9,IENS,82)={CONTRAINDICATED_FINDINGS_LIST} set:{OF_CONTRA_TRUE_LINES*C} FDA(811.9,IENS,85)={OF_CONTRA_TRUE_LINES} set:{OF_CONTRA_FALSE_LINES*C} FDA(811.9,IENS,86)={OF_CONTRA_FALSE_LINES} set:{REFUSED_LOGIC*C} FDA(811.9,IENS,90)={REFUSED_LOGIC} set:{REFUSED_FINDINGS_COUNT*C} FDA(811.9,IENS,91)={REFUSED_FINDINGS_COUNT} set:{REFUSED_FINDINGS_LIST*C} FDA(811.9,IENS,92)={REFUSED_FINDINGS_LIST} set:{OF_REFUSED_TRUE_LINES*C} FDA(811.9,IENS,95)={OF_REFUSED_TRUE_LINES} set:{OF_REFUSED_FALSE_LINES*C} FDA(811.9,IENS,96)={OF_REFUSED_FALSE_LINES} set:{CLASS*C} FDA(811.9,IENS,100)={CLASS} set:{REVIEW_DATE*C} FDA(811.9,IENS,102)={REVIEW_DATE} set:{USAGE*C} FDA(811.9,IENS,103)={USAGE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(811.9)") set %SkipFiling=1 if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},2,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {TECHNICAL_DESCRIPTION*C} { set D0={RowId} kill wp if {TECHNICAL_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({TECHNICAL_DESCRIPTION},$c(13,10)) { set wp(i)=$p({TECHNICAL_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},3,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_COHORT_FOUND_TEXT*C} { set D0={RowId} kill wp if {GENERAL_COHORT_FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({GENERAL_COHORT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_COHORT_FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},60,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_COHORT_NOT_FOUND_TEXT*C} { set D0={RowId} kill wp if {GENERAL_COHORT_NOT_FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({GENERAL_COHORT_NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_COHORT_NOT_FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},61,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_RES__FOUND_TEXT*C} { set D0={RowId} kill wp if {GENERAL_RES__FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({GENERAL_RES__FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_RES__FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},65,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {GENERAL_RES__NOT_FOUND_TEXT*C} { set D0={RowId} kill wp if {GENERAL_RES__NOT_FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({GENERAL_RES__NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({GENERAL_RES__NOT_FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},66,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_COHORT_FOUND_TEXT*C} { set D0={RowId} kill wp if {SUMMARY_COHORT_FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({SUMMARY_COHORT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_COHORT_FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},70,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_COHORT_NOT_FOUND_TEXT*C} { set D0={RowId} kill wp if {SUMMARY_COHORT_NOT_FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({SUMMARY_COHORT_NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_COHORT_NOT_FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},71,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_RES__FOUND_TEXT*C} { set D0={RowId} kill wp if {SUMMARY_RES__FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({SUMMARY_RES__FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_RES__FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},75,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SUMMARY_RES__NOT_FOUND_TEXT*C} { set D0={RowId} kill wp if {SUMMARY_RES__NOT_FOUND_TEXT}'="" { set wproot="wp" for i=1:1:$l({SUMMARY_RES__NOT_FOUND_TEXT},$c(13,10)) { set wp(i)=$p({SUMMARY_RES__NOT_FOUND_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},76,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CONTRAINDICATED_TRUE_TEXT*C} { set D0={RowId} kill wp if {CONTRAINDICATED_TRUE_TEXT}'="" { set wproot="wp" for i=1:1:$l({CONTRAINDICATED_TRUE_TEXT},$c(13,10)) { set wp(i)=$p({CONTRAINDICATED_TRUE_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},83,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CONTRAINDICATED_FALSE_TEXT*C} { set D0={RowId} kill wp if {CONTRAINDICATED_FALSE_TEXT}'="" { set wproot="wp" for i=1:1:$l({CONTRAINDICATED_FALSE_TEXT},$c(13,10)) { set wp(i)=$p({CONTRAINDICATED_FALSE_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},84,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {REFUSED_TRUE_TEXT*C} { set D0={RowId} kill wp if {REFUSED_TRUE_TEXT}'="" { set wproot="wp" for i=1:1:$l({REFUSED_TRUE_TEXT},$c(13,10)) { set wp(i)=$p({REFUSED_TRUE_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},93,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {REFUSED_FALSE_TEXT*C} { set D0={RowId} kill wp if {REFUSED_FALSE_TEXT}'="" { set wproot="wp" for i=1:1:$l({REFUSED_FALSE_TEXT},$c(13,10)) { set wp(i)=$p({REFUSED_FALSE_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.9,{RowId},94,,wproot,"%FMERR(811.9)") if $d(%FMERR(811.9,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.9)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REMINDERDEFIAEFS index ^PXD nonnull 811.9 "B" {NAME} {IEN} 0]]> index ^PXD nonnull 811.9 "D" {PRINT_NAME} {IEN} 0]]> data ^PXD 811.9 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 40 1 "^" 40 2 "^" 100 1 84 new data,i,node set {CONTRAINDICATED_FALSE_TEXT}="" merge data=^PXD(811.9,{S2},84) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CONTRAINDICATED_FALSE_TEXT}={CONTRAINDICATED_FALSE_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 81 1 "^" 81 2 "^" 80 1 83 new data,i,node set {CONTRAINDICATED_TRUE_TEXT}="" merge data=^PXD(811.9,{S2},83) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CONTRAINDICATED_TRUE_TEXT}={CONTRAINDICATED_TRUE_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 30 1 "^" 34 1 "^" 45 1 "^" 46 1 1 new data,i,node set {DESCRIPTION}="" merge data=^PXD(811.9,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 4 60 new data,i,node set {GENERAL_COHORT_FOUND_TEXT}="" merge data=^PXD(811.9,{S2},60) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_COHORT_FOUND_TEXT}={GENERAL_COHORT_FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 61 new data,i,node set {GENERAL_COHORT_NOT_FOUND_TEXT}="" merge data=^PXD(811.9,{S2},61) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_COHORT_NOT_FOUND_TEXT}={GENERAL_COHORT_NOT_FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 65 new data,i,node set {GENERAL_RES__FOUND_TEXT}="" merge data=^PXD(811.9,{S2},65) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_RES__FOUND_TEXT}={GENERAL_RES__FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 66 new data,i,node set {GENERAL_RES__NOT_FOUND_TEXT}="" merge data=^PXD(811.9,{S2},66) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_RES__NOT_FOUND_TEXT}={GENERAL_RES__NOT_FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 62 2 "^" 67 1 "^" 67 2 "^" 0 8 "^" 0 7 "^" 0 6 "^" 42 1 "^" 42 2 "^" 31 1 "^" 35 1 "^" 0 1 "^" 46 2 "^" 85 2 "^" 85 1 "^" 62 1 "^" 95 2 "^" 95 1 "^" 32 1 "^" 32 2 "^" 0 3 "^" 0 10 94 new data,i,node set {REFUSED_FALSE_TEXT}="" merge data=^PXD(811.9,{S2},94) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REFUSED_FALSE_TEXT}={REFUSED_FALSE_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 91 1 "^" 91 2 "^" 90 1 93 new data,i,node set {REFUSED_TRUE_TEXT}="" merge data=^PXD(811.9,{S2},93) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REFUSED_TRUE_TEXT}={REFUSED_TRUE_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 11 "^" 36 1 "^" 36 2 "^" 100 3 "^" 0 9 70 new data,i,node set {SUMMARY_COHORT_FOUND_TEXT}="" merge data=^PXD(811.9,{S2},70) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SUMMARY_COHORT_FOUND_TEXT}={SUMMARY_COHORT_FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 71 new data,i,node set {SUMMARY_COHORT_NOT_FOUND_TEXT}="" merge data=^PXD(811.9,{S2},71) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SUMMARY_COHORT_NOT_FOUND_TEXT}={SUMMARY_COHORT_NOT_FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 75 new data,i,node set {SUMMARY_RES__FOUND_TEXT}="" merge data=^PXD(811.9,{S2},75) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SUMMARY_RES__FOUND_TEXT}={SUMMARY_RES__FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 76 new data,i,node set {SUMMARY_RES__NOT_FOUND_TEXT}="" merge data=^PXD(811.9,{S2},76) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SUMMARY_RES__NOT_FOUND_TEXT}={SUMMARY_RES__NOT_FOUND_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 72 1 "^" 72 2 "^" 77 1 "^" 77 2 2 new data,i,node set {TECHNICAL_DESCRIPTION}="" merge data=^PXD(811.9,{S2},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {TECHNICAL_DESCRIPTION}={TECHNICAL_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 100 4 persistent _PUBLIC 0 RowId REMINDER_LIST_RULE_810_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44740.98933314 67178,44715.732942214 right REMINDER LIST RULE 810.4 2.56 12/04/2024 12:25:15 1 1 IEN 1 REMINDER_DEFINITION_811_9]]> REMINDERDEFINITION VALIP.prosthetic.fm2cw.REMINDERDEFINITION8119 FKey_REMINDER_DEFINITION REMINDER_TERM_811_5]]> REMINDERTERM VALIP.prosthetic.fm2cw.REMINDERTERM8115 FKey_REMINDER_TERM REMINDER_PATIENT_LIST_810_5]]> USEEXISTINGPTLIST VALIP.prosthetic.fm2cw.REMINDERPATIENTLIST8105 FKey_USE_EXISTING_PT_LIST FileMan Field Label: 'CLASS' FileMan Field Number: '100' This is the CLASS of the rule. National rules cannot be edited. %Library.EnumString 12 CLASS Internal Entry Number %Library.String $$next^%apiSQL("$p(^PXRM(810.4,0),""^"",3)") 1 2 IEN %Library.String 7 LIST_RULE_BEGINNING_DATETIME %Library.String 8 LIST_RULE_ENDING_DATETIME FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the list rule. National list rules are prefixed VA- and class national. %Library.String 1 3 NAME FileMan Field Label: 'REMINDER DEFINITION' FileMan Field Number: '9' This is a pointer to the Reminder Definition file #811.9. Reminders used to build patient lists must have an "L" in their USAGE field. VALIP.prosthetic.fm2cw.REMINDERDEFINITION8119 11 REMINDER_DEFINITION NAME This field is the name of a clinical reminder definition. Nationally distributed reminder definition names are prefixed with "VA-". The VA- prefixed reminder definitions cannot be altered by a site, but may be inactivated so they will not be selectable or evaluated in the CPRS GUI. Local modifications can be made to any "VA-" reminder definition by copying the definition to a new one with a unique name and then making modifications to the new definition which meet local criteria.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REMINDER_LIST_RULE_810_4 where %ID=:id) set {REMINDER_DEFINITION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REMINDER_DEFINITION_NAME 1 FileMan Field Label: 'REMINDER TERM' FileMan Field Number: '1' Finding rules (type 1) use a reminder term (#811.5) to select patients via the reminder package indexes. VALIP.prosthetic.fm2cw.REMINDERTERM8115 6 REMINDER_TERM NAME This is the name of the term. The names of national terms are prefixed with "VA-".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REMINDER_LIST_RULE_810_4 where %ID=:id) set {REMINDER_TERM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REMINDER_TERM_NAME 1 FileMan Field Label: 'SHORT DESCRIPTION' FileMan Field Number: '.02' This is a short description of the list rule. %Library.String 4 SHORT_DESCRIPTION Relationship for Sub-File/Multiple to file name EDIT HISTORY child VALIP.prosthetic.fm2cw.SUBEDITHISTORY81042 children REMINDERLISTRULE8104 1 SUB_EDIT_HISTORY_810_42 Relationship for Sub-File/Multiple to file name SEQUENCE child VALIP.prosthetic.fm2cw.SUBSEQUENCE81041 children REMINDERLISTRULE8104 1 SUB_SEQUENCE_810_41 FileMan Field Label: 'TYPE' FileMan Field Number: '.03' There are three types of rules in the file. Patient List Rules define an existing patient list. Finding Rules define reminder terms. Rule Sets contain both Finding and Patient List rules. %Library.EnumString 1 5 TYPE FileMan Field Label: 'USE EXISTING PT LIST' FileMan Field Number: '4' This field is used by Patient List rules to identify an existing patient list in the Reminder Patient List file. The existing patient list is used as the patient source to perform the ADD, SELECT, or REMOVE operation on the list rule. The existing patient list is used to modify the temporary patient list built during list build processing. For the ADD operation the patients in the source list will be added to the temporary patient list. For the SELECT operation, the patients in the source list will be compared to the temporary patient list. Patient's in the temporary list that are not in the source list will be removed from the temporary patient list. For the REMOVE operation, the patients in the source list, that match a patient in the temporary patient list will be removed from the temporary patient list. If the USE EXISTING PT LIST and USE EXTRACT PT LIST NAMED field are both defined in the list rule, the USE EXTRACT PT LIST NAMED will be used as the patient source for extract processing, and the USE EXISTING PT LIST will be used when the build processing is started from the Reminder Patient List option. VALIP.prosthetic.fm2cw.REMINDERPATIENTLIST8105 9 USE_EXISTING_PT_LIST NAME This is the unique name identifying the patient list. Patient lists created as denominator lists in the rollup of national data to the Austin Automation Center begin with 'VA-'. The patient list name for this type of list begins with the name of the extract definition used to create the patient list. e.g. VA-IHD QUERI 2002 Q1 04/22/2002@10:00AM ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REMINDER_LIST_RULE_810_4 where %ID=:id) set {USE_EXISTING_PT_LIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USE_EXISTING_PT_LIST_NAME 1 FileMan Field Label: 'USE EXTRACT PT LIST NAMED' FileMan Field Number: '7' This is a free-text field that contains the name of the patient list to use when processing this list rule during an extract run. The patient list has not been created at the time the list rule is defined. In contrast, the USE EXISTING PT LIST field is used by patient list rule tools to reference a patient list already existing in the REMINDER PATIENT LIST file. The name specified in the USE EXTRACT PT LIST NAMED will contain 'yyyy' for year and 'pnn' for reporting period. The nn is either the month (01-12) or calendar quarter (01-04), and p is either M for monthly, Q for quarterly, or Y for yearly. When an extract is run for a particular reporting period, the extract tool will use the USE EXTRACT PT LIST NAMED to find the patient list matching the name and then use this patient list to create the starting temporary patient list. The starting temporary patient list will be modified by add, select, and delete operations defined in the remaining list rules defined in the rule set. The same extract patient list name is also named in the REMINDER EXTRACT DEFINITION file (#810.2). The extract definition is used to create the extract patient list during an extract run. The 'yyyy' and 'pnn' ensures the extract process for the reporting year and period consistently uses the appropriate extract patient list created for the reporting period. Example: The patient list 'VA-*IHD QUERI yyyy pnn PATIENTS WITH QUALIFYING VISIT' is created during 'VA-IHD QUERI' extract processing by a rule set defined in the extract definition. Then a subsequent rule set defined in the 'VA-IHD QUERI' extract definition references a REMINDER LIST RULE entry with the same extract patient list name in the USE EXTRACT PT LIST NAMED field. During the extract run, the named list will be used to find the patient list created during the extract run in process. This list is used with the ADD operation in the rule set to create the temporary patient list to process the remaining rules in the rule set. In this example, the temorary patient list is modified to include patients that have both a QUALIFYING VISIT and an ANCHOR visit, creating a new patient list, 'VA-*IHD QUERI yyyy nn PATIENTS WITH QUALIFYING AND ANCHOR VISIT'. The new patient list created by the rule set processing is defined in the extract definition. %Library.String 10 USE_EXTRACT_PT_LIST_NAMED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 13 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PXRM(810.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(810.4,"+1,",.01)={"NAME"} set:{SHORT_DESCRIPTION}'="" FDA(810.4,"+1,",.02)={"SHORT_DESCRIPTION"} set:{TYPE}'="" FDA(810.4,"+1,",.03)={"TYPE"} set:{REMINDER_TERM}'="" FDA(810.4,"+1,",1)={"REMINDER_TERM"} set:{LIST_RULE_BEGINNING_DATETIME}'="" FDA(810.4,"+1,",2)={"LIST_RULE_BEGINNING_DATETIME"} set:{LIST_RULE_ENDING_DATETIME}'="" FDA(810.4,"+1,",3)={"LIST_RULE_ENDING_DATETIME"} set:{USE_EXISTING_PT_LIST}'="" FDA(810.4,"+1,",4)={"USE_EXISTING_PT_LIST"} set:{USE_EXTRACT_PT_LIST_NAMED}'="" FDA(810.4,"+1,",7)={"USE_EXTRACT_PT_LIST_NAMED"} set:{REMINDER_DEFINITION}'="" FDA(810.4,"+1,",9)={"REMINDER_DEFINITION"} set:{CLASS}'="" FDA(810.4,"+1,",100)={"CLASS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(810.4)") set %SkipFiling=1 if $d(%FMERR(810.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(810.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(810.4,IENS,.01)={NAME} set:{SHORT_DESCRIPTION*C} FDA(810.4,IENS,.02)={SHORT_DESCRIPTION} set:{TYPE*C} FDA(810.4,IENS,.03)={TYPE} set:{REMINDER_TERM*C} FDA(810.4,IENS,1)={REMINDER_TERM} set:{LIST_RULE_BEGINNING_DATETIME*C} FDA(810.4,IENS,2)={LIST_RULE_BEGINNING_DATETIME} set:{LIST_RULE_ENDING_DATETIME*C} FDA(810.4,IENS,3)={LIST_RULE_ENDING_DATETIME} set:{USE_EXISTING_PT_LIST*C} FDA(810.4,IENS,4)={USE_EXISTING_PT_LIST} set:{USE_EXTRACT_PT_LIST_NAMED*C} FDA(810.4,IENS,7)={USE_EXTRACT_PT_LIST_NAMED} set:{REMINDER_DEFINITION*C} FDA(810.4,IENS,9)={REMINDER_DEFINITION} set:{CLASS*C} FDA(810.4,IENS,100)={CLASS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(810.4)") set %SkipFiling=1 if $d(%FMERR(810.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(810.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REMINDERLISD422S index ^PXRM nonnull 810.4 "B" {NAME} {IEN} 0]]> data ^PXRM 810.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 100 1 "^" 0 4 "^" 0 5 "^" 0 1 "^" 0 10 "^" 0 7 "^" 0 2 "^" 0 3 "^" 0 8 "^" 1 1 Generated class for FileMan File Number: '810.5' File Name: 'REMINDER PATIENT LIST' Class generated by %fm2class version 2.56 Patient lists in this file are created from the Reminder Due reporting option, Reminder Patient List option or from Reminder Extract runs. Reminder patient lists are retained for 5 years in this file before being purged. Individual patient lists can have the automatic purge turned off. Patient lists that are created from national extract runs are prefixed with "VA-". Sites should name locally created patient lists according to their local naming conventions. persistent _PUBLIC 0 RowId REMINDER_PATIENT_LIST_810_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.035954867 67178,44715.770810821 right REMINDER PATIENT LIST 810.5 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'AUTOMATICALLY PURGE' FileMan Field Number: '50' This field is use to determine if the Patient List should be automatically purge after five years. This field will be checked by the Reminder Extract code that runs monthly when running the National Extract. %Library.EnumString 12 AUTOMATICALLY_PURGE FileMan Field Label: 'CLASS' FileMan Field Number: '100' This is the class of the patient list. National patient lists cannot be edited. %Library.EnumString 13 CLASS FileMan Field Label: 'CREATED BY REMINDER DUE REPORT' FileMan Field Number: '.09' This field will be true if the patient list was created by a Reminders Due Report. %Library.EnumString 8 CREATED_BY_REMINDER_DUE_REPORT FileMan Field Label: 'CREATION DOCUMENTATION' FileMan Field Number: '200' This word-processing field documents how the patient list was created and it is created automatically when the patient list is built. The information it contains shows the rule set details and how the rule set was processed to build the patient list. This includes the final Beginning Date/Time and Ending Date/Time for each finding used in the list rule for each sequence/step in the rule set. %Library.String 14 CREATION_DOCUMENTATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PXRMXP(810.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INCLUDE DECEASED PATIENTS' FileMan Field Number: '1' This field is used to record the user's answer to the prompt: Include deceased patients? %Library.EnumString 10 INCLUDE_DECEASED_PATIENTS FileMan Field Label: 'INCLUDE PCMM INSTITUTION' FileMan Field Number: '.1' This field is set automatically to YES if the rule set used to create the patient list contains a finding rule that is associated with either of the terms VA-IHD STATION CODE or VA-PCMM INSTITUTION. It is used to control the display of the PCMM Institution column in the ListManager patient list interface. %Library.EnumString 9 INCLUDE_PCMM_INSTITUTION FileMan Field Label: 'INCLUDE TEST PATIENTS' FileMan Field Number: '2' This field is used to store the user's response to the prompt: Include test patients? %Library.EnumString 11 INCLUDE_TEST_PATIENTS FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the unique name identifying the patient list. Patient lists created as denominator lists in the rollup of national data to the Austin Automation Center begin with 'VA-'. The patient list name for this type of list begins with the name of the extract definition used to create the patient list. e.g. VA-IHD QUERI 2002 Q1 04/22/2002@10:00AM %Library.String 1 3 NAME FileMan Field Label: 'ORIGINAL DATE CREATED' FileMan Field Number: '.04' This is the date the patient list was originally created. %Library.FilemanTimeStamp 6 ORIGINAL_DATE_CREATED FileMan Field Label: 'REPORT PERIOD' FileMan Field Number: '.03' This is the extract period (Q1,M1 etc). Applies only if the patient list was created from an extract run. %Library.Numeric 5 REPORT_PERIOD FileMan Field Label: 'REPORT YEAR' FileMan Field Number: '.02' This is the extract year. Applies only if the patient list was created from an extract run. %Library.Numeric 4 REPORT_YEAR FileMan Field Label: 'TYPE' FileMan Field Number: '.08' This field is used to mark a list as being public or private. %Library.EnumString 7 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 15 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PXRMXP(810.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(810.5,"+1,",.01)={"NAME"} set:{REPORT_YEAR}'="" FDA(810.5,"+1,",.02)={"REPORT_YEAR"} set:{REPORT_PERIOD}'="" FDA(810.5,"+1,",.03)={"REPORT_PERIOD"} set:{ORIGINAL_DATE_CREATED}'="" FDA(810.5,"+1,",.04)={"ORIGINAL_DATE_CREATED"} set:{TYPE}'="" FDA(810.5,"+1,",.08)={"TYPE"} set:{CREATED_BY_REMINDER_DUE_REPORT}'="" FDA(810.5,"+1,",.09)={"CREATED_BY_REMINDER_DUE_REPORT"} set:{INCLUDE_PCMM_INSTITUTION}'="" FDA(810.5,"+1,",.1)={"INCLUDE_PCMM_INSTITUTION"} set:{INCLUDE_DECEASED_PATIENTS}'="" FDA(810.5,"+1,",1)={"INCLUDE_DECEASED_PATIENTS"} set:{INCLUDE_TEST_PATIENTS}'="" FDA(810.5,"+1,",2)={"INCLUDE_TEST_PATIENTS"} set:{AUTOMATICALLY_PURGE}'="" FDA(810.5,"+1,",50)={"AUTOMATICALLY_PURGE"} set:{CLASS}'="" FDA(810.5,"+1,",100)={"CLASS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(810.5)") set %SkipFiling=1 if $d(%FMERR(810.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(810.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {CREATION_DOCUMENTATION}'="" { set D0={RowId} for i=1:1:$l({CREATION_DOCUMENTATION},$c(13,10)) { set wp(i)=$p({CREATION_DOCUMENTATION},$c(13,10),i) } do WP^DIE(810.5,{RowId},200,,"wp","%FMERR(810.5)") if $d(%FMERR(810.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(810.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(810.5,IENS,.01)={NAME} set:{REPORT_YEAR*C} FDA(810.5,IENS,.02)={REPORT_YEAR} set:{REPORT_PERIOD*C} FDA(810.5,IENS,.03)={REPORT_PERIOD} set:{ORIGINAL_DATE_CREATED*C} FDA(810.5,IENS,.04)={ORIGINAL_DATE_CREATED} set:{TYPE*C} FDA(810.5,IENS,.08)={TYPE} set:{CREATED_BY_REMINDER_DUE_REPORT*C} FDA(810.5,IENS,.09)={CREATED_BY_REMINDER_DUE_REPORT} set:{INCLUDE_PCMM_INSTITUTION*C} FDA(810.5,IENS,.1)={INCLUDE_PCMM_INSTITUTION} set:{INCLUDE_DECEASED_PATIENTS*C} FDA(810.5,IENS,1)={INCLUDE_DECEASED_PATIENTS} set:{INCLUDE_TEST_PATIENTS*C} FDA(810.5,IENS,2)={INCLUDE_TEST_PATIENTS} set:{AUTOMATICALLY_PURGE*C} FDA(810.5,IENS,50)={AUTOMATICALLY_PURGE} set:{CLASS*C} FDA(810.5,IENS,100)={CLASS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(810.5)") set %SkipFiling=1 if $d(%FMERR(810.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(810.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {CREATION_DOCUMENTATION*C} { set D0={RowId} kill wp if {CREATION_DOCUMENTATION}'="" { set wproot="wp" for i=1:1:$l({CREATION_DOCUMENTATION},$c(13,10)) { set wp(i)=$p({CREATION_DOCUMENTATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(810.5,{RowId},200,,wproot,"%FMERR(810.5)") if $d(%FMERR(810.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(810.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REMINDERPATIB07S index ^PXRMXP nonnull 810.5 "B" {NAME} {IEN} 0]]> data ^PXRMXP 810.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 50 1 "^" 100 1 "^" 0 9 200 new data,i,node set {CREATION_DOCUMENTATION}="" merge data=^PXRMXP(810.5,{S2},200) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CREATION_DOCUMENTATION}={CREATION_DOCUMENTATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 11 "^" 0 10 "^" 0 12 "^" 0 1 "^" 0 4 "^" 0 3 "^" 0 2 "^" 0 8 Generated class for FileMan File Number: '811.5' File Name: 'REMINDER TERM' Class generated by %fm2class version 2.56 This file defines Clinical Reminder terms. Terms have a number of uses, including as findings in a reminder definition, as finding rules for building patient lists, and as elements of extract finding groups. This file contains a combination of national, local, and VISN level terms. Nationally distributed entries will have a CLASS of "National" and the name is prefixed with "VA-". Any terms created at your site should have a CLASS of "Local". Terms created for VISN use will have a CLASS of "VISN" Before a term can be used, it must have findings mapped to it. The findings that can be mapped to a term are any of the standard Clinical Reminder findings with the exception of terms. Reminder terms are useful for national reminders involving findings that are based on local file definitions (e.g., laboratory test, drug file, radiology). National reminder terms have limited editing capabilities, which allow sites to map their local finding items to a term. Sites may create local reminder terms, providing an easy way to group a variety of findings and treat them the same way in a reminder. When a reminder with terms is evaluated, the finding items mapped to the term are used to find the patient data, but the patient data is reported based on the term the data is mapped to. persistent _PUBLIC 0 RowId REMINDER_TERM_811_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.074480778 67178,44715.807578885 right REMINDER TERM 811.5 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'CLASS' FileMan Field Number: '100' This is the class of the term. Possible classes are "N" for national, "V" for VISN, and "L" for local. For national terms, only the finding list can be edited. %Library.EnumString 1 6 CLASS FileMan Field Label: 'DATE CREATED' FileMan Field Number: '.04' This is the date when the term was created. %Library.FilemanDate 4 DATE_CREATED FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' This is a description of the term. %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PXRMD(811.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the term. The names of national terms are prefixed with "VA-". %Library.String 1 3 NAME FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '102' Review Date is used to determine when the term should be reviewed to verify that it is current with the latest standards and guidelines. You can find all terms whose review date has passed using the Clinical Reminder Review Date Report. %Library.FilemanDate 7 REVIEW_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PXRMD(811.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(811.5,"+1,",.01)={"NAME"} set:{DATE_CREATED}'="" FDA(811.5,"+1,",.04)={"DATE_CREATED"} set:{CLASS}'="" FDA(811.5,"+1,",100)={"CLASS"} set:{REVIEW_DATE}'="" FDA(811.5,"+1,",102)={"REVIEW_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(811.5)") set %SkipFiling=1 if $d(%FMERR(811.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(811.5,{RowId},1,,"wp","%FMERR(811.5)") if $d(%FMERR(811.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(811.5,IENS,.01)={NAME} set:{DATE_CREATED*C} FDA(811.5,IENS,.04)={DATE_CREATED} set:{CLASS*C} FDA(811.5,IENS,100)={CLASS} set:{REVIEW_DATE*C} FDA(811.5,IENS,102)={REVIEW_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(811.5)") set %SkipFiling=1 if $d(%FMERR(811.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(811.5,{RowId},1,,wproot,"%FMERR(811.5)") if $d(%FMERR(811.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(811.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REMINDERTERMB71S index ^PXRMD nonnull 811.5 "B" {NAME} {IEN} 0]]> data ^PXRMD 811.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 100 1 "^" 0 4 1 new data,i,node set {DESCRIPTION}="" merge data=^PXRMD(811.5,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 100 3 Generated class for FileMan File Number: '8994.5' File Name: 'REMOTE APPLICATION' Class generated by %fm2class version 2.56 The REMOTE APPLICATION file was introduced as part of the Broker Security Enhancement to secure access via the remote user or visitor approach by GUI applications (formerly known as the CAPRI approach for the first application to use this access style). The remote visitor access permits applications where users need to access a large number of sites to do so without requiring a separate access code and verify code at each site. Following the Broker Security Enhancement, applications will be able to use the remote visitor access only if they have an entry in this file with a one-way hash of a secure phrase. Identification of an entry in the file is based on the application passing in the original phrase which is then hashed and used for a cross-reference lookup. The application must have at least one entry in the CALLBACKTYPE sub-file indicating a connection type, a valid address for the authenticating server, and a connection port number. This information is necessary for the remote server to directly connect the authenticating server to obtain the demographic information necessary to create or match the visitor entry in the NEW PERSON file (#200). The application will also specify the desired context option for the user and this will be given to the remote visitor instead of the application having to figure out how to set this value. persistent _PUBLIC 0 RowId REMOTE_APPLICATION_8994_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.104624362 67178,44715.842477099 right REMOTE APPLICATION 8994.5 2.56 12/04/2024 12:25:15 1 1 IEN 1 OPTION_19]]> CONTEXTOPTION VALIP.prosthetic.fm2cw.OPTION19 FKey_CONTEXTOPTION FileMan Field Label: 'APPLICATIONCODE' FileMan Field Number: '.03' This is the application's hashed value for a security phrase and is described below. Security Phrase The security phrase is an application's entry into the REMOTE APPLICATION file (#8994.5) for accessing the information necessary to permit the application to enroll a remote user. Create a security phrase, case sensitive, in programmer mode using the following command (assuming the security phrase is "My Special Phrase"): W $$SHAHASH^XUSHSH(256,"My Special Phrase","B") The resulting value is: xfXJqDgiByKcNdnGj8f6v64B98Ecs8wlmKFfMzusjaM= This is the one-way hash value for the security phrase. It is this hashed value that will be entered into the ApplicationCode field (#.03) in the REMOTE APPLICATION file (#8994.5) for the application. To make a remote connection, the application will have the user sign onto the application's authenticating server (the one entered as CallbackServer) and then obtain a Token for the user (similar to "XWBHDL977-124367_0") using the "XUS SET VISITOR" RPC. The application will then disconnect from the authenticating server and set the new SecurityPhrase property for the TRPCBroker component to the unhashed security phrase concatenated with a caret ("^") and the token for the user (e.g., "My Special Phrase^XWBHDL977-124367_0") This property will be encoded and passed to the remote server for authentication; it will hash the security phrase and use the resulting value to identify the application's entry in the REMOTE APPLICATION file (#8994.5). The mechanism(s) for contacting the authenticating server will be identified and the authentication server will be requested to provide the demographic information necessary to identify the user and create or match an entry in the NEW PERSON file (#200) based on the token provided. With this information, the user will be set up as a visitor entry and be provided the context option specified. The application will then be notified that the user is connected. If there is no entry for the application, no match for the token, or the authenticating server can not be connected, the user will be prompted with a regular sign on screen (i.e., required to enter their Access and Verify codes). Since the security phrase is the application's identifier, we recommend that the security phrase in RPCBroker Delphi-based programs be identified as a const value in an include file. And that a substitute include file containing a phrase similar to that used above, be included with release of the source code. It must be realized that the security phrase identifies any application that uses it as your application, and it would, of course, be desirable that rogue applications not appear to be your application. %Library.String 5 APPLICATIONCODE FileMan Field Label: 'CONTEXTOPTION' FileMan Field Number: '.02' The name of the context (Client/Server or B-type) option that the application users will need that will be added as a secondary menu item. The user is signed on as a visitor and given the Context Option specified in this field as a secondary menu option. The application still needs to set the Context Option using the CreateContext method, but the visitor has it as a valid option so that it can be used. VALIP.prosthetic.fm2cw.OPTION19 4 CONTEXTOPTION NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REMOTE_APPLICATION_8994_5 where %ID=:id) set {CONTEXTOPTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CONTEXTOPTION_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^XWB(8994.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the NAME of the REMOTE GUI APPLICATION for which the data in this entry pertains. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name CALLBACKTYPE child VALIP.prosthetic.fm2cw.SUBCALLBACKTYPE899451 children REMOTEAPPLICATION89945 1 SUB_CALLBACKTYPE_8994_51 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^XWB(8994.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(8994.5,"+1,",.01)={"NAME"} set:{CONTEXTOPTION}'="" FDA(8994.5,"+1,",.02)={"CONTEXTOPTION"} set:{APPLICATIONCODE}'="" FDA(8994.5,"+1,",.03)={"APPLICATIONCODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8994.5)") set %SkipFiling=1 if $d(%FMERR(8994.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8994.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(8994.5,IENS,.01)={NAME} set:{CONTEXTOPTION*C} FDA(8994.5,IENS,.02)={CONTEXTOPTION} set:{APPLICATIONCODE*C} FDA(8994.5,IENS,.03)={APPLICATIONCODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8994.5)") set %SkipFiling=1 if $d(%FMERR(8994.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8994.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REMOTEAPPLI5AE5S index ^XWB nonnull 8994.5 "ACODE" {APPLICATIONCODE} {IEN} 0]]> index ^XWB nonnull 8994.5 "B" {NAME} {IEN} 0]]> data ^XWB 8994.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '123.1' File Name: 'REQUEST ACTION TYPES' Class generated by %fm2class version 2.56 This file identifies the action types which may be used by a service to track activity related to a consult or request. Certain action types may have a "GMRCACT " protocol entry in the Protocol File (101) which corresponds to the action type. Two actions should not point to the same protocol. persistent _PUBLIC 0 RowId REQUEST_ACTION_TYPES_123_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.105833326 67178,44715.992731125 right REQUEST ACTION TYPES 123.1 2.56 12/04/2024 12:25:15 1 1 IEN 1 FileMan Field Label: 'ACTION PRINT NAME' FileMan Field Number: '7' This field is used on the 513 Form as a header for comments. %Library.String 9 ACTION_PRINT_NAME FileMan Field Label: 'ACTION TYPE' FileMan Field Number: '.01' This file contains the tracking actions which may be taken to track a Consult or Request order from its entry in CPRS through its resolution. This file also contains relationships of CPRS statuses which are the result of the action taken. %Library.String 1 4 ACTION_TYPE FileMan Field Label: 'DISABLED MESSAGE' FileMan Field Number: '3' This field displays a 'DISABLED' message when this CPRS status has been disabled. %Library.String 5 DISABLED_MESSAGE FileMan Field Label: 'HL7 CONTROL CODE FROM CONSULTS' FileMan Field Number: '4' This field indicates what HL7 control code is passed to CPRS from Consults. Example: "SN"=Service entered, backdoor consult, automatically released from CPRS, though signatures may still be required depending on nature of order "OD"=Discontinued "OC"=Denied by service (Cancelled) "SC"=Service status update (generic status change) for active and partial results "XX"=Forwarded "RE"=Completed %Library.String 6 HL7_CONTROL_CODE_FROM_CONSULTS FileMan Field Label: 'HL7 CONTROL CODE FROM CPRS' FileMan Field Number: '5' This field indicates what HL7 control code is passed from CPRS to Consults. Example: "NW"=New consult entered and released through CPRS "CA"=Cancelled via the orders tab "DC"=Discontinued %Library.String 7 HL7_CONTROL_CODE_FROM_CPRS FileMan Field Label: 'HL7 TABLE 38 ORDER STATUS' FileMan Field Number: '6' This field is for documenting purposes and contains the related Table 38 order status from HL7 for each activity. %Library.String 8 HL7_TABLE_38_ORDER_STATUS Internal Entry Number %Library.String $$next^%apiSQL("$p(^GMR(123.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' The internal entry number of the Request Action Type. %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^GMR(123.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ACTION_TYPE}'="" FDA(123.1,"+1,",.01)={"ACTION_TYPE"} set:{DISABLED_MESSAGE}'="" FDA(123.1,"+1,",3)={"DISABLED_MESSAGE"} set:{HL7_CONTROL_CODE_FROM_CONSULTS}'="" FDA(123.1,"+1,",4)={"HL7_CONTROL_CODE_FROM_CONSULTS"} set:{HL7_CONTROL_CODE_FROM_CPRS}'="" FDA(123.1,"+1,",5)={"HL7_CONTROL_CODE_FROM_CPRS"} set:{HL7_TABLE_38_ORDER_STATUS}'="" FDA(123.1,"+1,",6)={"HL7_TABLE_38_ORDER_STATUS"} set:{ACTION_PRINT_NAME}'="" FDA(123.1,"+1,",7)={"ACTION_PRINT_NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(123.1)") set %SkipFiling=1 if $d(%FMERR(123.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ACTION_TYPE*C} FDA(123.1,IENS,.01)={ACTION_TYPE} set:{DISABLED_MESSAGE*C} FDA(123.1,IENS,3)={DISABLED_MESSAGE} set:{HL7_CONTROL_CODE_FROM_CONSULTS*C} FDA(123.1,IENS,4)={HL7_CONTROL_CODE_FROM_CONSULTS} set:{HL7_CONTROL_CODE_FROM_CPRS*C} FDA(123.1,IENS,5)={HL7_CONTROL_CODE_FROM_CPRS} set:{HL7_TABLE_38_ORDER_STATUS*C} FDA(123.1,IENS,6)={HL7_TABLE_38_ORDER_STATUS} set:{ACTION_PRINT_NAME*C} FDA(123.1,IENS,7)={ACTION_PRINT_NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.1)") set %SkipFiling=1 if $d(%FMERR(123.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REQUESTACTI954BS index {ACTION_TYPE}'="" 1 ^GMR conditional 123.1 "B" $$TRUNCATE({ACTION_TYPE},30)) {IEN} 0]]> index ^GMR nonnull 123.1 "D" {HL7_CONTROL_CODE_FROM_CPRS} {IEN} 0]]> data ^GMR 123.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 8 "^" 0 1 "^" 0 4 "^" 0 5 "^" 0 6 "^" 0 7 Generated class for FileMan File Number: '123' File Name: 'REQUEST/CONSULTATION' Class generated by %fm2class version 2.56 This file contains consult and request orders originating primarily via the OE/RR ordering process. Once the order exists in this file, receiving service users perform update tracking activities. An audit trail of the update tracking activities is maintained in this file. The only associating of results to a consult or request, for this version, is based on Medicine Package procedure results. persistent _PUBLIC 0 RowId REQUESTCONSULTATION_123 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.191927242 67178,44715.90009184 right REQUEST/CONSULTATION 123 2.56 12/04/2024 12:25:15 1 1 IEN 1 NEW_PERSON_200]]> ATTENTION VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENTION CP_DEFINITION_702_01]]> CLINICALPROCEDURE VALIP.prosthetic.fm2cw.CPDEFINITION70201 FKey_CLINICAL_PROCEDURE ORDER_STATUS_100_01]]> CPRSSTATUS VALIP.prosthetic.fm2cw.ORDERSTATUS10001 FKey_CPRS_STATUS HOSPITAL_LOCATION_44]]> FROM2 VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_FROM2 REQUEST_ACTION_TYPES_123_1]]> LASTACTIONTAKEN VALIP.prosthetic.fm2cw.REQUESTACTIONTYPES1231 FKey_LAST_ACTION_TAKEN ORDER_100]]> OERRFILENUMBER VALIP.prosthetic.fm2cw.ORDER100 FKey_OERR_FILE_NUMBER INSTITUTION_4]]> ORDERINGFACILITY VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_ORDERING_FACILITY HOSPITAL_LOCATION_44]]> PATIENTLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_PATIENT_LOCATION PATIENT_2]]> PATIENTNAME VALIP.prosthetic.fm2cw.PATIENT2 FKey_PATIENT_NAME PROTOCOL_101]]> PLACEOFCONSULTATION VALIP.prosthetic.fm2cw.PROTOCOL101 FKey_PLACE_OF_CONSULTATION Foreign Key constraint for Variable Pointer reference field PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE PROCEDUREREQUESTTYPECONSULTPROCEDURE VALIP.prosthetic.fm2cw.GMRCPROCEDURE1233 FKey_PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE Foreign Key constraint for Variable Pointer reference field PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM PROCEDUREREQUESTTYPEENTERORDERITEM VALIP.prosthetic.fm2cw.PROTOCOL101 FKey_PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_A_LEAD_IMPLANT RESULTSELECTALEADIMPLANT VALIP.prosthetic.fm2cw.ALEADIMPLANT6982 FKey_RESULT_SELECT_A_LEAD_IMPLANT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_CATH_REPORT RESULTSELECTCATHREPORT VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 FKey_RESULT_SELECT_CATH_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_ECG_REPORT RESULTSELECTECGREPORT VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 FKey_RESULT_SELECT_ECG_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_ECHO_REPORT RESULTSELECTECHOREPORT VALIP.prosthetic.fm2cw.ECHO691 FKey_RESULT_SELECT_ECHO_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_ENDOSCOPY_REPORT RESULTSELECTENDOSCOPYREPORT VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 FKey_RESULT_SELECT_ENDOSCOPY_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_EP_REPORT RESULTSELECTEPREPORT VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 FKey_RESULT_SELECT_EP_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_ETT_REPORT RESULTSELECTETTREPORT VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 FKey_RESULT_SELECT_ETT_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_GEN_IMP_REPORT RESULTSELECTGENIMPREPORT VALIP.prosthetic.fm2cw.GENERATORIMPLANT698 FKey_RESULT_SELECT_GEN_IMP_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_HEM_REPORT RESULTSELECTHEMREPORT VALIP.prosthetic.fm2cw.HEMATOLOGY694 FKey_RESULT_SELECT_HEM_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_HOLTER_RESULT RESULTSELECTHOLTERRESULT VALIP.prosthetic.fm2cw.HOLTER6916 FKey_RESULT_SELECT_HOLTER_RESULT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_PFT_REPORT RESULTSELECTPFTREPORT VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 FKey_RESULT_SELECT_PFT_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_RHEUMATOLOGY_REPORT RESULTSELECTRHEUMATOLOGYREPORT VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 FKey_RESULT_SELECT_RHEUMATOLOGY_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_SURVEILLANCE_REPORT RESULTSELECTSURVEILLANCEREPORT VALIP.prosthetic.fm2cw.PACEMAKERSURVEILLANCE6983 FKey_RESULT_SELECT_SURVEILLANCE_REPORT Foreign Key constraint for Variable Pointer reference field RESULT_SELECT_V_LEAD_IMPLANT RESULTSELECTVLEADIMPLANT VALIP.prosthetic.fm2cw.VLEADIMPLANT6981 FKey_RESULT_SELECT_V_LEAD_IMPLANT INSTITUTION_4]]> ROUTINGFACILITY VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_ROUTING_FACILITY NEW_PERSON_200]]> SENDINGPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SENDING_PROVIDER TIU_DOCUMENT_8925]]> TIURESULTNARRATIVE VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_TIU_RESULT_NARRATIVE REQUEST_SERVICES_123_5]]> TOSERVICE VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 FKey_TO_SERVICE PROTOCOL_101]]> URGENCY VALIP.prosthetic.fm2cw.PROTOCOL101 FKey_URGENCY FileMan Field Label: 'ADMINISTRATIVE' FileMan Field Number: '70' This field is set via a trigger on TO SERVICE which will set this field to the value found in the ADMINISTRATIVE field of the REQUEST SERVICES file (#123.5). Requests marked as administrative shall be excluded from the Consults Performance Monitor report [GMRC RPT PERF MONITOR] %Library.EnumString 58 ADMINISTRATIVE FileMan Field Label: 'ATTENTION' FileMan Field Number: '7' Enter the name of a person you would like to alert about the consult. This person will be sent a notification that a new consult exists. In order for the person to see this type of notification, the person must be set up to receive "New service consult" notifications. VALIP.prosthetic.fm2cw.NEWPERSON200 27 ATTENTION NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {ATTENTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENTION_NAME 1 FileMan Field Label: 'Cerner Ordering Provider' FileMan Field Number: '507' This field stores the ordering provider data from OBR-16 of the originating IFC order sent by Cerner. %Library.String 1 64 s {CERNER_ORDERING_PROVIDER}=$e({NODE_CERNER1},1,255) 1 CERNER_ORDERING_PROVIDER FileMan Field Label: 'Cerner Placer Field 1' FileMan Field Number: '508' This field stores the Cerner Placer Field 1 from OBR-19 of the originating IFC order sent by Cerner. %Library.String 1 66 s {CERNER_PLACER_FIELD_1}=$e({NODE_CERNER2},1,255) 1 CERNER_PLACER_FIELD_1 FileMan Field Label: 'CLINICALLY INDICATED DATE' FileMan Field Number: '17' The Clinically Indicated Date (CID) is entered by a provider ordering a consult and should be the date by which it is clinically appropriate to complete the consult. This date is used by the Consults Performance Monitor Report to help determine the wait times for specialty care. This field was formerly named EARLIEST DATE, and was commonly referred to as "Earliest Appropriate Date". It was introduced with GMRC*3.0*66 as part of CPRS GUI v28 (OR*3*280). The new name was introduced via GMRC*3.0*81 as part of CPRS GUI v30.B (OR*3*350). %Library.FilemanDate 52 CLINICALLY_INDICATED_DATE FileMan Field Label: 'CLINICAL PROCEDURE' FileMan Field Number: '1.01' This field contains the CP DEFINITION that is associated with this request. VALIP.prosthetic.fm2cw.CPDEFINITION70201 18 CLINICAL_PROCEDURE NAME Procedure Name This field contains the name of the procedure. It should be descriptive of the procedure and contain 3-30 alphanumeric characters. The first character MUST be a letter. To maintain consistency it is recommended that all procedures be entered in UPPERCASE letters as well. (Reference IA #3139)]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {CLINICAL_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLINICAL_PROCEDURE_NAME 1 FileMan Field Label: 'CPRS STATUS' FileMan Field Number: '8' This is the current CPRS status of the consult or request order. The Action Types which may be taken from the "Select Action: " prompt update the status in this file as well as in the Orders File (100). VALIP.prosthetic.fm2cw.ORDERSTATUS10001 28 CPRS_STATUS NAME This is the name of the status.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {CPRS_STATUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CPRS_STATUS_NAME 1 FileMan Field Label: 'DATE OF REQUEST' FileMan Field Number: '3' This is the date and time the order was released from OE/RR. If the TO service entered the order stub through the Add Order (AD) action, this is the service-specified request date. %Library.FilemanTimeStamp 20 DATE_OF_REQUEST FileMan Field Label: 'DECISION SUPPORT TOOL ID' FileMan Field Number: '85' This is the ID value from the Decision Support Tool (DST). This value is populated automatically by DST and CPRS GUI during the save of an unsigned consult order, or can also be populated after a consult order has been signed. The field should not be modified. %Library.String 61 DECISION_SUPPORT_TOOL_ID FileMan Field Label: 'DISPLAY TEXT OF ITEM ORDERED' FileMan Field Number: '.1' This is the display text of the item ordered. If the order was placed using a quick order, then the Display text is the text from the Order Dialog File. If the order was placed by selecting an Orderable Item, then the text is the Print Name from the Orderable Item file. %Library.String 11 DISPLAY_TEXT_OF_ITEM_ORDERED FileMan Field Label: 'DIVISION ID OF ENTERING PERSON' FileMan Field Number: '81' This field is populated the Community Care Referrals and Authorization process when the consult is first sent to the HealthShare Referral Management system. This field stores the division id of the user entering the consult. %Library.String 60 DIVISION_ID_OF_ENTERING_PERSON FileMan Field Label: 'FILE ENTRY DATE' FileMan Field Number: '.01' Date of actual entry of consultation request into the file. Transparent to user. %Library.FilemanTimeStamp 1 4 FILE_ENTRY_DATE FileMan Field Label: 'FROM' FileMan Field Number: '2' This field represents the location that sent the order to the receiving location. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 19 FROM2 NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {FROM2_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FROM2_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^GMR(123,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IFC REMOTE SERVICE NAME' FileMan Field Number: '.131' This field holds the name of the service that will perform the Inter- facility Consult at the remote facility. %Library.String 14 IFC_REMOTE_SERVICE_NAME FileMan Field Label: 'IFC ROLE' FileMan Field Number: '.125' This field will define the role of the particular VistA system in the fullfillment of the inter-facility consult. This facilitates proper HL7 message formats. PLACER indicates that this VistA system originated and ordered this request. FILLER indicates that this request was generated at the institution in the ORDERING FACILITY field. %Library.EnumString 12 IFC_ROLE FileMan Field Label: 'LAST ACTION TAKEN' FileMan Field Number: '9' This is the last Action Type taken that updated the activity tracking audit trail. VALIP.prosthetic.fm2cw.REQUESTACTIONTYPES1231 29 LAST_ACTION_TAKEN ACTION TYPE This file contains the tracking actions which may be taken to track a Consult or Request order from its entry in CPRS through its resolution. This file also contains relationships of CPRS statuses which are the result of the action taken.]]> %Library.String 1 ACTION_TYPE into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {LAST_ACTION_TAKEN_ACTION_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 LAST_ACTION_TAKEN_ACTION_TYPE 1 FileMan Field Label: 'MODE OF ENTRY' FileMan Field Number: '12' When a consult or request is entered by the service, rather than through CPRS order processing, this field will be set to "1" to indicate the Service forced the entry. This forcing means there is no electronic signature related to the order. %Library.EnumString 47 MODE_OF_ENTRY Computed Field For Node CERNER1 %Library.String 1 63 s {NODE_CERNER1}=$g(^GMR(123,{IEN},"CERNER1")) 1 NODE_CERNER1 Computed Field For Node CERNER2 %Library.String 1 65 s {NODE_CERNER2}=$g(^GMR(123,{IEN},"CERNER2")) 1 NODE_CERNER2 FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'OE/RR FILE NUMBER' FileMan Field Number: '.03' This is the internal entry number of the order in the Orders File (100). The consult sends CPRS information about the consult which is stored in File 100. This is the IEN of the consult in that file. VALIP.prosthetic.fm2cw.ORDER100 6 OERR_FILE_NUMBER ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {OERR_FILE_NUMBER_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 OERR_FILE_NUMBER_ORDER_ 1 FileMan Field Label: 'OPT IN FOR FINAL STATUS' FileMan Field Number: '511' This field is used to store the value sent by Cerner in OBR-20 so that it can be returned back to Cerner. %Library.String 67 OPT_IN_FOR_FINAL_STATUS FileMan Field Label: 'ORDERING FACILITY' FileMan Field Number: '.05' This field contains the number, from file 4, of the institution/hospital that is requesting the consult. This field is mandatory if the consult/ request is being sent to another hospital/institution, so that routing information can be obtained in order to return the results to the sending hospital/institution. VALIP.prosthetic.fm2cw.INSTITUTION4 8 ORDERING_FACILITY NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {ORDERING_FACILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ORDERING_FACILITY_NAME 1 FileMan Field Label: 'Patient Account Number' FileMan Field Number: '502' Stores value in PID-18 from Cerner HL7 orders. %Library.String 62 PATIENT_ACCOUNT_NUMBER FileMan Field Label: 'PATIENT LOCATION' FileMan Field Number: '.04' This is the location of the patient when the consult/request order was placed. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 7 PATIENT_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {PATIENT_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_LOCATION_NAME 1 FileMan Field Label: 'PATIENT NAME' FileMan Field Number: '.02' This is the Patient who the consult or request was ordered for. Enter the patient's name, or the last four digits of the SSN. VALIP.prosthetic.fm2cw.PATIENT2 1 5 PATIENT_NAME NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {PATIENT_NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME_NAME 1 FileMan Field Label: 'PERFORMED DATE/TIME' FileMan Field Number: '512' This field is used to store the value sent by Cerner in OBR-27.4 so that it can be returned back to Cerner. %Library.String 68 PERFORMED_DATETIME FileMan Field Label: 'PLACE OF CONSULTATION' FileMan Field Number: '6' This is the place where the consultation will take place. Choose from: B - Bedside C - Consultant's Choice E - Emergency Room O - On Call EKG - EKG Lab VALIP.prosthetic.fm2cw.PROTOCOL101 26 PLACE_OF_CONSULTATION NAME A unique name, which is preceded by the package namespace.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {PLACE_OF_CONSULTATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PLACE_OF_CONSULTATION_NAME 1 FileMan Field Label: 'PROCEDURE/REQUEST TYPE' FileMan Field Number: '4' This is the procedure that was requested via CPRS while ordering. %Library.String 21 1 PROCEDUREREQUESTTYPEENTERORDERITEM,PROCEDUREREQUESTTYPECONSULTPROCEDURE PROCEDUREREQUEST_TYPE Variable Pointer Reference Field for Pointer field Consult_Procedure 'GMRC PROCEDURE' VALIP.prosthetic.fm2cw.GMRCPROCEDURE1233 23 1 PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE NAME This is the name of the procedure that will be requested within CPRS.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE_NAME 1 Variable Pointer Reference Field for Pointer field Enter_Order_Item 'PROTOCOL' VALIP.prosthetic.fm2cw.PROTOCOL101 22 1 PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM NAME A unique name, which is preceded by the package namespace.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM_NAME 1 Variable Pointer Value Field for Pointer field PROCEDUREREQUEST_TYPE %Library.String 1 24 if {PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM_NAME}'="" { set {*}={PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM_NAME} quit } if {PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE_NAME}'="" { set {*}={PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE_NAME} quit } set {*}="" 1 PROCEDUREREQUEST_TYPE_VALUE FileMan Field Label: 'PROVISIONAL DIAGNOSIS' FileMan Field Number: '30' This is the Provisional Diagnosis the ordering clinician would specify on the Consult Form 513. %Library.String 54 PROVISIONAL_DIAGNOSIS FileMan Field Label: 'PROVISIONAL DIAGNOSIS CODE' FileMan Field Number: '30.1' This field is used to store the coded portion of the Provisional Diagnosis if a coded diagnosis is sent via CPRS. %Library.String 55 PROVISIONAL_DIAGNOSIS_CODE FileMan Field Label: 'PROVISIONAL DIAGNOSIS DATE' FileMan Field Number: '30.2' This is the date of the provisional diagnosis and will contain a value if the request is filed with a coded diagnosis. This field is used internally to help identify if a given code is active. %Library.FilemanDate 56 PROVISIONAL_DIAGNOSIS_DATE FileMan Field Label: 'PROVISIONAL DIAGNOSIS SYSTEM' FileMan Field Number: '30.3' This is the 3-character Source Abbreviation (SAB) for the coding system to which a given diagnosis code belongs. This field will only contain a value when a given service is configured to receive a coded diagnosis. This field is used internally to check if a given code is active. For example, ICD is stored if the coding system is ICD-9. 10D is stored if the coding system is ICD-10. %Library.String 57 PROVISIONAL_DIAGNOSIS_SYSTEM FileMan Field Label: 'REASON FOR REQUEST' FileMan Field Number: '20' This is the reason for requesting the Consult or Procedure Request. %Library.String 53 REASON_FOR_REQUEST FileMan Field Label: 'REMOTE CONSULT FILE ENTRY' FileMan Field Number: '.06' This is the ^GMR(123, file number of the consult from a foreign database. It is stored here so that when the consult is returned in an HL7 message, it can be located at the sending facility. Also, if the sending facility needs to send updated consult information to the receiving facility, this number will reference the consult number there so that the data can be added/ammended and tracking information can be updated. %Library.Numeric 9 REMOTE_CONSULT_FILE_ENTRY FileMan Field Label: 'REMOTE ORDERING PROVIDER' FileMan Field Number: '.126' This field contains the name of the requesting provider of an inter-facility consult. This field is only defined on an inter-facility consult on file at a consulting site. %Library.String 13 REMOTE_ORDERING_PROVIDER FileMan Field Label: 'REMOTE REQUESTOR DIG PAGER' FileMan Field Number: '.133' This field contains the digital pager number of a remote requesting provider if this is an inter-facility consult. This may expedite communication between the requesting provider and the consultant. This data in this field is derived from the DIGITAL PAGER field of the NEW PERSON file. %Library.String 16 REMOTE_REQUESTOR_DIG_PAGER FileMan Field Label: 'REMOTE REQUESTOR PHONE' FileMan Field Number: '.132' This field will contain the telephone number of the remote requestor of an inter-facility consult. This will be displayed with the consult and can expedite communication between requesting provider and consultant. This field is derived from the OFFICE PHONE field of the NEW PERSON file. %Library.String 15 REMOTE_REQUESTOR_PHONE FileMan Field Label: 'REQUEST TYPE' FileMan Field Number: '13' This field will indicate whether the order is a consult or procedure request order. Based on this fields value, the Consultation Body Header alters to indicate "Consult Type: " or "Procedure Request: ". %Library.EnumString 48 REQUEST_TYPE FileMan Field Label: 'RESULT' FileMan Field Number: '11' This is a variable pointer used by the GMRC MEDICINE PKG INTERFACE option to associate results in the Medicine Procedure Files with a consult/request order. %Library.String 31 1 RESULTSELECTECHOREPORT,RESULTSELECTCATHREPORT,RESULTSELECTECGREPORT,RESULTSELECTHOLTERRESULT,RESULTSELECTETTREPORT,RESULTSELECTEPREPORT,RESULTSELECTHEMREPORT,RESULTSELECTGENIMPREPORT,RESULTSELECTVLEADIMPLANT,RESULTSELECTALEADIMPLANT,RESULTSELECTSURVEILLANCEREPORT,RESULTSELECTENDOSCOPYREPORT,RESULTSELECTPFTREPORT,RESULTSELECTRHEUMATOLOGYREPORT RESULT Variable Pointer Reference Field for Pointer field Select_A_LEAD_IMPLANT 'A LEAD IMPLANT' VALIP.prosthetic.fm2cw.ALEADIMPLANT6982 41 1 RESULT_SELECT_A_LEAD_IMPLANT DATE/TIME OF IMPLANT This allows analysis based on time.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_IMPLANT into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_A_LEAD_IMPLANT_DATETIME_OF_IMPLANT}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_A_LEAD_IMPLANT_DATETIME_OF_IMPLANT 1 Variable Pointer Reference Field for Pointer field Select_CATH_report 'CARDIAC CATHETERIZATION' VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 33 1 RESULT_SELECT_CATH_REPORT DATE/TIME This date/time field identifies the catheterization procedure.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_CATH_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_CATH_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_ECG_report 'ELECTROCARDIOGRAM (EKG)' VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 34 1 RESULT_SELECT_ECG_REPORT DATE/TIME This field identifies the specific EKG procedure.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_ECG_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_ECG_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_ECHO_report 'ECHO' VALIP.prosthetic.fm2cw.ECHO691 32 1 RESULT_SELECT_ECHO_REPORT DATE/TIME This field identifies the date and time when the echo was taken.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_ECHO_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_ECHO_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_ENDOSCOPY_report 'ENDOSCOPY/CONSULT' VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 43 1 RESULT_SELECT_ENDOSCOPY_REPORT APPOINTMENT DATE/TIME This field contains the date/time of the Endoscopy procedure.]]> %Library.FilemanTimeStamp 1 APPOINTMENT_DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_ENDOSCOPY_REPORT_APPOINTMENT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_ENDOSCOPY_REPORT_APPOINTMENT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_EP_report 'ELECTROPHYSIOLOGY (EP)' VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 37 1 RESULT_SELECT_EP_REPORT DATE/TIME This field identifies the date and time that the procedure was entered into the database.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_EP_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_EP_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_ETT_report 'EXERCISE TOLERANCE TEST' VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 36 1 RESULT_SELECT_ETT_REPORT DATE/TIME OF TEST This field identifies the precise Exercise Tolerance procedure.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_TEST into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_ETT_REPORT_DATETIME_OF_TEST}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_ETT_REPORT_DATETIME_OF_TEST 1 Variable Pointer Reference Field for Pointer field Select_GEN_IMP_report 'GENERATOR IMPLANT' VALIP.prosthetic.fm2cw.GENERATORIMPLANT698 39 1 RESULT_SELECT_GEN_IMP_REPORT DATE/TIME OF IMPLANT This allows analysis based on time.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_IMPLANT into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT 1 Variable Pointer Reference Field for Pointer field Select_HEM_report 'HEMATOLOGY' VALIP.prosthetic.fm2cw.HEMATOLOGY694 38 1 RESULT_SELECT_HEM_REPORT DATE/TIME This field identifies the time and date of entry.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_HEM_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_HEM_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_HOLTER_result 'HOLTER' VALIP.prosthetic.fm2cw.HOLTER6916 35 1 RESULT_SELECT_HOLTER_RESULT HOOK-UP DATE/TIME This field identifies the specific Holter procedure.]]> %Library.FilemanTimeStamp 1 HOOKUP_DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_HOLTER_RESULT_HOOKUP_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_HOLTER_RESULT_HOOKUP_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_PFT_report 'PULMONARY FUNCTION TESTS' VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 44 1 RESULT_SELECT_PFT_REPORT DATE/TIME This field identifies the date/time of the Pulmonary Function tests.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_PFT_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_PFT_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_RHEUMATOLOGY_report 'RHEUMATOLOGY' VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 45 1 RESULT_SELECT_RHEUMATOLOGY_REPORT DATE/TIME This field identifies the date and time that the data is first entered into the database or when the data was collected.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_RHEUMATOLOGY_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_RHEUMATOLOGY_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_SURVEILLANCE_report 'PACEMAKER SURVEILLANCE' VALIP.prosthetic.fm2cw.PACEMAKERSURVEILLANCE6983 42 1 RESULT_SELECT_SURVEILLANCE_REPORT DATE/TIME This allows analysis based on time.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_SURVEILLANCE_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_SURVEILLANCE_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_V_LEAD_IMPLANT 'V LEAD IMPLANT' VALIP.prosthetic.fm2cw.VLEADIMPLANT6981 40 1 RESULT_SELECT_V_LEAD_IMPLANT DATE/TIME OF IMPLANT This field is the date/time that the procedure was entered into the database.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_IMPLANT into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {RESULT_SELECT_V_LEAD_IMPLANT_DATETIME_OF_IMPLANT}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_SELECT_V_LEAD_IMPLANT_DATETIME_OF_IMPLANT 1 Variable Pointer Value Field for Pointer field RESULT %Library.String 1 46 if {RESULT_SELECT_ECHO_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_ECHO_REPORT_DATETIME} quit } if {RESULT_SELECT_CATH_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_CATH_REPORT_DATETIME} quit } if {RESULT_SELECT_ECG_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_ECG_REPORT_DATETIME} quit } if {RESULT_SELECT_HOLTER_RESULT_HOOKUP_DATETIME}'="" { set {*}={RESULT_SELECT_HOLTER_RESULT_HOOKUP_DATETIME} quit } if {RESULT_SELECT_ETT_REPORT_DATETIME_OF_TEST}'="" { set {*}={RESULT_SELECT_ETT_REPORT_DATETIME_OF_TEST} quit } if {RESULT_SELECT_EP_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_EP_REPORT_DATETIME} quit } if {RESULT_SELECT_HEM_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_HEM_REPORT_DATETIME} quit } if {RESULT_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT}'="" { set {*}={RESULT_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT} quit } if {RESULT_SELECT_V_LEAD_IMPLANT_DATETIME_OF_IMPLANT}'="" { set {*}={RESULT_SELECT_V_LEAD_IMPLANT_DATETIME_OF_IMPLANT} quit } if {RESULT_SELECT_A_LEAD_IMPLANT_DATETIME_OF_IMPLANT}'="" { set {*}={RESULT_SELECT_A_LEAD_IMPLANT_DATETIME_OF_IMPLANT} quit } if {RESULT_SELECT_SURVEILLANCE_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_SURVEILLANCE_REPORT_DATETIME} quit } if {RESULT_SELECT_ENDOSCOPY_REPORT_APPOINTMENT_DATETIME}'="" { set {*}={RESULT_SELECT_ENDOSCOPY_REPORT_APPOINTMENT_DATETIME} quit } if {RESULT_SELECT_PFT_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_PFT_REPORT_DATETIME} quit } if {RESULT_SELECT_RHEUMATOLOGY_REPORT_DATETIME}'="" { set {*}={RESULT_SELECT_RHEUMATOLOGY_REPORT_DATETIME} quit } set {*}="" 1 RESULT_VALUE FileMan Field Label: 'ROUTING FACILITY' FileMan Field Number: '.07' This field will contain the INSTITUTION to which communications and updates regarding this request will be routed. If the request is being requested and performed locally, this field will be blank. VALIP.prosthetic.fm2cw.INSTITUTION4 10 ROUTING_FACILITY NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {ROUTING_FACILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ROUTING_FACILITY_NAME 1 FileMan Field Label: 'SENDING PROVIDER' FileMan Field Number: '10' This is the provider who originated the order. VALIP.prosthetic.fm2cw.NEWPERSON200 30 SENDING_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {SENDING_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SENDING_PROVIDER_NAME 1 FileMan Field Label: 'SERVICE RENDERED AS IN OR OUT' FileMan Field Number: '14' This field allows the ordering person to indicate if the service is to be rendered on an outpatient or inpatient basis. This is to alleviate the confusion if patient is currently an inpatient/outpatient but is just about to be discharged/admitted and become a outpatient/inpatient. %Library.EnumString 49 SERVICE_RENDERED_AS_IN_OR_OUT FileMan Field Label: 'SIGNIFICANT FINDINGS' FileMan Field Number: '15' If significant findings are noted in the consult results, then this field may be marked "Yes", and appropriate comments may be entered in the "Comment" field. "Unknown" is the default. "No" may also be specified to indicate the results do not include significant findings. %Library.EnumString 50 SIGNIFICANT_FINDINGS Relationship for Sub-File/Multiple to file name ASSOCIATED RESULTS child VALIP.prosthetic.fm2cw.SUBASSOCIATEDRESULTS12303 children REQUESTCONSULTATION123 1 SUB_ASSOCIATED_RESULTS_123_03 Relationship for Sub-File/Multiple to file name REMOTE RESULTS child VALIP.prosthetic.fm2cw.SUBREMOTERESULTS123051 children REQUESTCONSULTATION123 1 SUB_REMOTE_RESULTS_123_051 Relationship for Sub-File/Multiple to file name REQUEST PROCESSING ACTIVITY child VALIP.prosthetic.fm2cw.SUBREQUESTPROCESSINGACTIVITY12302 children REQUESTCONSULTATION123 1 SUB_REQUEST_PROCESSING_ACTIVITY_123_02 FileMan Field Label: 'TIU RESULT NARRATIVE' FileMan Field Number: '16' Pointer to the Text Integration Utilities file (#8925) where consult/request results narrative is stored. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 51 TIU_RESULT_NARRATIVE DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {TIU_RESULT_NARRATIVE_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 TIU_RESULT_NARRATIVE_DOCUMENT_TYPE 1 FileMan Field Label: 'TO SERVICE' FileMan Field Number: '1' This is the "TO" service/specialty. This service is responsible for completion of the consult/request. VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 17 TO_SERVICE SERVICE NAME This is the Name of a service or specialty which may receive consult/ requests. This may also be a name which represents a group of services]]> %Library.String 1 SERVICE_NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {TO_SERVICE_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TO_SERVICE_SERVICE_NAME 1 FileMan Field Label: 'UNIQUE CONSULT ID ' FileMan Field Number: '80' A Unique Consult record identifier across all VistA systems. %Library.String 59 UNIQUE_CONSULT_ID_ FileMan Field Label: 'URGENCY' FileMan Field Number: '5' This field describes the urgency of the consult. Urgencies are sent in the PROTOCOL File (#101) as: STAT, EMERGENCY, INPATIENT, NEXT AVAILABLE, NOW, ROUTINE, TODAY, WITHIN 24 HOURS, WITHIN 48 HOURS, WITHIN 72 HOURS, WITHIN 1 WEEK, WITHIN 1 MONTH. VALIP.prosthetic.fm2cw.PROTOCOL101 25 URGENCY NAME A unique name, which is preceded by the package namespace.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 where %ID=:id) set {URGENCY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 URGENCY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 69 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^GMR(123," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{FILE_ENTRY_DATE}'="" FDA(123,"+1,",.01)={"FILE_ENTRY_DATE"} set:{PATIENT_NAME}'="" FDA(123,"+1,",.02)={"PATIENT_NAME"} set:{OERR_FILE_NUMBER}'="" FDA(123,"+1,",.03)={"OERR_FILE_NUMBER"} set:{PATIENT_LOCATION}'="" FDA(123,"+1,",.04)={"PATIENT_LOCATION"} set:{ORDERING_FACILITY}'="" FDA(123,"+1,",.05)={"ORDERING_FACILITY"} set:{REMOTE_CONSULT_FILE_ENTRY}'="" FDA(123,"+1,",.06)={"REMOTE_CONSULT_FILE_ENTRY"} set:{ROUTING_FACILITY}'="" FDA(123,"+1,",.07)={"ROUTING_FACILITY"} set:{DISPLAY_TEXT_OF_ITEM_ORDERED}'="" FDA(123,"+1,",.1)={"DISPLAY_TEXT_OF_ITEM_ORDERED"} set:{IFC_ROLE}'="" FDA(123,"+1,",.125)={"IFC_ROLE"} set:{REMOTE_ORDERING_PROVIDER}'="" FDA(123,"+1,",.126)={"REMOTE_ORDERING_PROVIDER"} set:{IFC_REMOTE_SERVICE_NAME}'="" FDA(123,"+1,",.131)={"IFC_REMOTE_SERVICE_NAME"} set:{REMOTE_REQUESTOR_PHONE}'="" FDA(123,"+1,",.132)={"REMOTE_REQUESTOR_PHONE"} set:{REMOTE_REQUESTOR_DIG_PAGER}'="" FDA(123,"+1,",.133)={"REMOTE_REQUESTOR_DIG_PAGER"} set:{TO_SERVICE}'="" FDA(123,"+1,",1)={"TO_SERVICE"} set:{CLINICAL_PROCEDURE}'="" FDA(123,"+1,",1.01)={"CLINICAL_PROCEDURE"} set:{FROM2}'="" FDA(123,"+1,",2)={"FROM2"} set:{DATE_OF_REQUEST}'="" FDA(123,"+1,",3)={"DATE_OF_REQUEST"} set:{PROCEDUREREQUEST_TYPE}'="" FDA(123,"+1,",4)={"PROCEDUREREQUEST_TYPE"} set:{URGENCY}'="" FDA(123,"+1,",5)={"URGENCY"} set:{PLACE_OF_CONSULTATION}'="" FDA(123,"+1,",6)={"PLACE_OF_CONSULTATION"} set:{ATTENTION}'="" FDA(123,"+1,",7)={"ATTENTION"} set:{CPRS_STATUS}'="" FDA(123,"+1,",8)={"CPRS_STATUS"} set:{LAST_ACTION_TAKEN}'="" FDA(123,"+1,",9)={"LAST_ACTION_TAKEN"} set:{SENDING_PROVIDER}'="" FDA(123,"+1,",10)={"SENDING_PROVIDER"} set:{RESULT}'="" FDA(123,"+1,",11)={"RESULT"} set:{MODE_OF_ENTRY}'="" FDA(123,"+1,",12)={"MODE_OF_ENTRY"} set:{REQUEST_TYPE}'="" FDA(123,"+1,",13)={"REQUEST_TYPE"} set:{SERVICE_RENDERED_AS_IN_OR_OUT}'="" FDA(123,"+1,",14)={"SERVICE_RENDERED_AS_IN_OR_OUT"} set:{SIGNIFICANT_FINDINGS}'="" FDA(123,"+1,",15)={"SIGNIFICANT_FINDINGS"} set:{TIU_RESULT_NARRATIVE}'="" FDA(123,"+1,",16)={"TIU_RESULT_NARRATIVE"} set:{CLINICALLY_INDICATED_DATE}'="" FDA(123,"+1,",17)={"CLINICALLY_INDICATED_DATE"} set:{PROVISIONAL_DIAGNOSIS}'="" FDA(123,"+1,",30)={"PROVISIONAL_DIAGNOSIS"} set:{PROVISIONAL_DIAGNOSIS_CODE}'="" FDA(123,"+1,",30.1)={"PROVISIONAL_DIAGNOSIS_CODE"} set:{PROVISIONAL_DIAGNOSIS_DATE}'="" FDA(123,"+1,",30.2)={"PROVISIONAL_DIAGNOSIS_DATE"} set:{PROVISIONAL_DIAGNOSIS_SYSTEM}'="" FDA(123,"+1,",30.3)={"PROVISIONAL_DIAGNOSIS_SYSTEM"} set:{ADMINISTRATIVE}'="" FDA(123,"+1,",70)={"ADMINISTRATIVE"} set:{UNIQUE_CONSULT_ID_}'="" FDA(123,"+1,",80)={"UNIQUE_CONSULT_ID_"} set:{DIVISION_ID_OF_ENTERING_PERSON}'="" FDA(123,"+1,",81)={"DIVISION_ID_OF_ENTERING_PERSON"} set:{DECISION_SUPPORT_TOOL_ID}'="" FDA(123,"+1,",85)={"DECISION_SUPPORT_TOOL_ID"} set:{PATIENT_ACCOUNT_NUMBER}'="" FDA(123,"+1,",502)={"PATIENT_ACCOUNT_NUMBER"} set:{OPT_IN_FOR_FINAL_STATUS}'="" FDA(123,"+1,",511)={"OPT_IN_FOR_FINAL_STATUS"} set:{PERFORMED_DATETIME}'="" FDA(123,"+1,",512)={"PERFORMED_DATETIME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(123)") set %SkipFiling=1 if $d(%FMERR(123,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REASON_FOR_REQUEST}'="" { set D0={RowId} for i=1:1:$l({REASON_FOR_REQUEST},$c(13,10)) { set wp(i)=$p({REASON_FOR_REQUEST},$c(13,10),i) } do WP^DIE(123,{RowId},20,,"wp","%FMERR(123)") if $d(%FMERR(123,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{FILE_ENTRY_DATE*C} FDA(123,IENS,.01)={FILE_ENTRY_DATE} set:{PATIENT_NAME*C} FDA(123,IENS,.02)={PATIENT_NAME} set:{OERR_FILE_NUMBER*C} FDA(123,IENS,.03)={OERR_FILE_NUMBER} set:{PATIENT_LOCATION*C} FDA(123,IENS,.04)={PATIENT_LOCATION} set:{ORDERING_FACILITY*C} FDA(123,IENS,.05)={ORDERING_FACILITY} set:{REMOTE_CONSULT_FILE_ENTRY*C} FDA(123,IENS,.06)={REMOTE_CONSULT_FILE_ENTRY} set:{ROUTING_FACILITY*C} FDA(123,IENS,.07)={ROUTING_FACILITY} set:{DISPLAY_TEXT_OF_ITEM_ORDERED*C} FDA(123,IENS,.1)={DISPLAY_TEXT_OF_ITEM_ORDERED} set:{IFC_ROLE*C} FDA(123,IENS,.125)={IFC_ROLE} set:{REMOTE_ORDERING_PROVIDER*C} FDA(123,IENS,.126)={REMOTE_ORDERING_PROVIDER} set:{IFC_REMOTE_SERVICE_NAME*C} FDA(123,IENS,.131)={IFC_REMOTE_SERVICE_NAME} set:{REMOTE_REQUESTOR_PHONE*C} FDA(123,IENS,.132)={REMOTE_REQUESTOR_PHONE} set:{REMOTE_REQUESTOR_DIG_PAGER*C} FDA(123,IENS,.133)={REMOTE_REQUESTOR_DIG_PAGER} set:{TO_SERVICE*C} FDA(123,IENS,1)={TO_SERVICE} set:{CLINICAL_PROCEDURE*C} FDA(123,IENS,1.01)={CLINICAL_PROCEDURE} set:{FROM2*C} FDA(123,IENS,2)={FROM2} set:{DATE_OF_REQUEST*C} FDA(123,IENS,3)={DATE_OF_REQUEST} set:{PROCEDUREREQUEST_TYPE*C} FDA(123,IENS,4)={PROCEDUREREQUEST_TYPE} set:{URGENCY*C} FDA(123,IENS,5)={URGENCY} set:{PLACE_OF_CONSULTATION*C} FDA(123,IENS,6)={PLACE_OF_CONSULTATION} set:{ATTENTION*C} FDA(123,IENS,7)={ATTENTION} set:{CPRS_STATUS*C} FDA(123,IENS,8)={CPRS_STATUS} set:{LAST_ACTION_TAKEN*C} FDA(123,IENS,9)={LAST_ACTION_TAKEN} set:{SENDING_PROVIDER*C} FDA(123,IENS,10)={SENDING_PROVIDER} set:{RESULT*C} FDA(123,IENS,11)={RESULT} set:{MODE_OF_ENTRY*C} FDA(123,IENS,12)={MODE_OF_ENTRY} set:{REQUEST_TYPE*C} FDA(123,IENS,13)={REQUEST_TYPE} set:{SERVICE_RENDERED_AS_IN_OR_OUT*C} FDA(123,IENS,14)={SERVICE_RENDERED_AS_IN_OR_OUT} set:{SIGNIFICANT_FINDINGS*C} FDA(123,IENS,15)={SIGNIFICANT_FINDINGS} set:{TIU_RESULT_NARRATIVE*C} FDA(123,IENS,16)={TIU_RESULT_NARRATIVE} set:{CLINICALLY_INDICATED_DATE*C} FDA(123,IENS,17)={CLINICALLY_INDICATED_DATE} set:{PROVISIONAL_DIAGNOSIS*C} FDA(123,IENS,30)={PROVISIONAL_DIAGNOSIS} set:{PROVISIONAL_DIAGNOSIS_CODE*C} FDA(123,IENS,30.1)={PROVISIONAL_DIAGNOSIS_CODE} set:{PROVISIONAL_DIAGNOSIS_DATE*C} FDA(123,IENS,30.2)={PROVISIONAL_DIAGNOSIS_DATE} set:{PROVISIONAL_DIAGNOSIS_SYSTEM*C} FDA(123,IENS,30.3)={PROVISIONAL_DIAGNOSIS_SYSTEM} set:{ADMINISTRATIVE*C} FDA(123,IENS,70)={ADMINISTRATIVE} set:{UNIQUE_CONSULT_ID_*C} FDA(123,IENS,80)={UNIQUE_CONSULT_ID_} set:{DIVISION_ID_OF_ENTERING_PERSON*C} FDA(123,IENS,81)={DIVISION_ID_OF_ENTERING_PERSON} set:{DECISION_SUPPORT_TOOL_ID*C} FDA(123,IENS,85)={DECISION_SUPPORT_TOOL_ID} set:{PATIENT_ACCOUNT_NUMBER*C} FDA(123,IENS,502)={PATIENT_ACCOUNT_NUMBER} set:{OPT_IN_FOR_FINAL_STATUS*C} FDA(123,IENS,511)={OPT_IN_FOR_FINAL_STATUS} set:{PERFORMED_DATETIME*C} FDA(123,IENS,512)={PERFORMED_DATETIME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123)") set %SkipFiling=1 if $d(%FMERR(123,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REASON_FOR_REQUEST*C} { set D0={RowId} kill wp if {REASON_FOR_REQUEST}'="" { set wproot="wp" for i=1:1:$l({REASON_FOR_REQUEST},$c(13,10)) { set wp(i)=$p({REASON_FOR_REQUEST},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(123,{RowId},20,,wproot,"%FMERR(123)") if $d(%FMERR(123,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REQUESTCONSD613S index ^GMR nonnull 123 "AC" {OERR_FILE_NUMBER} {IEN} 0]]> index ^GMR nonnull 123 "ACP" {CLINICAL_PROCEDURE} {PATIENT_NAME} {IEN} 0]]> index ^GMR nonnull 123 "AIFC" {ROUTING_FACILITY} {REMOTE_CONSULT_FILE_ENTRY} {IEN} 0]]> index ^GMR nonnull 123 "AL" {PATIENT_LOCATION} {IEN} 0]]> index {PROCEDUREREQUEST_TYPE}'="" 1 ^GMR conditional 123 "AP" $$TRUNCATE({PROCEDUREREQUEST_TYPE},30)) {IEN} 0]]> index ^GMR nonnull 123 "B" {FILE_ENTRY_DATE} {IEN} 0]]> index ^GMR nonnull 123 "C" {TO_SERVICE} {IEN} 0]]> index ^GMR nonnull 123 "D" {CPRS_STATUS} {IEN} 0]]> index ^GMR nonnull 123 "E" {DATE_OF_REQUEST} {IEN} 0]]> index ^GMR nonnull 123 "F" {PATIENT_NAME} {IEN} 0]]> index ^GMR nonnull 123 "G" {SENDING_PROVIDER} {IEN} 0]]> index ^GMR nonnull 123 "H" {FROM2} {IEN} 0]]> data ^GMR 123 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 70 1 "^" 0 11 "^" 0 24 "^" 1 1 "^" 0 12 "^" 0 7 "^" 75 1 "^" 1.11 1 "^" 5 1 "^" 0 1 "^" 0 6 "^" 13 1 "^" 12 5 "^" 0 13 "^" 0 16 "^" 0 3 "^" "CERNER" 11 "^" 0 21 "^" "CERNER" 3 "^" 0 4 "^" 0 2 "^" "CERNER" 12 "^" 0 10 "^" 0 8 If $p($p($g(^GMR({S1},{S2},0)),"^",8),";",2,999)'="GMR(123.3," s {PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE}="" Quit s {PROCEDUREREQUEST_TYPE_CONSULT_PROCEDURE}=$p($p($g(^GMR({S1},{S2},0)),"^",8),";") If $p($p($g(^GMR({S1},{S2},0)),"^",8),";",2,999)'="ORD(101," s {PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM}="" Quit s {PROCEDUREREQUEST_TYPE_ENTER_ORDER_ITEM}=$p($p($g(^GMR({S1},{S2},0)),"^",8),";") "^" 30 1 "^" 30.1 1 "^" 30.1 2 "^" 30.1 3 20 new data,i,node set {REASON_FOR_REQUEST}="" merge data=^GMR(123,{S2},20) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REASON_FOR_REQUEST}={REASON_FOR_REQUEST}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 22 "^" 12 6 "^" 13 3 "^" 13 2 "^" 0 17 "^" 0 15 If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(698.2," s {RESULT_SELECT_A_LEAD_IMPLANT}="" Quit s {RESULT_SELECT_A_LEAD_IMPLANT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(691.1," s {RESULT_SELECT_CATH_REPORT}="" Quit s {RESULT_SELECT_CATH_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(691.5," s {RESULT_SELECT_ECG_REPORT}="" Quit s {RESULT_SELECT_ECG_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(691," s {RESULT_SELECT_ECHO_REPORT}="" Quit s {RESULT_SELECT_ECHO_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(699," s {RESULT_SELECT_ENDOSCOPY_REPORT}="" Quit s {RESULT_SELECT_ENDOSCOPY_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(691.8," s {RESULT_SELECT_EP_REPORT}="" Quit s {RESULT_SELECT_EP_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(691.7," s {RESULT_SELECT_ETT_REPORT}="" Quit s {RESULT_SELECT_ETT_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(698," s {RESULT_SELECT_GEN_IMP_REPORT}="" Quit s {RESULT_SELECT_GEN_IMP_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(694," s {RESULT_SELECT_HEM_REPORT}="" Quit s {RESULT_SELECT_HEM_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(691.6," s {RESULT_SELECT_HOLTER_RESULT}="" Quit s {RESULT_SELECT_HOLTER_RESULT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(700," s {RESULT_SELECT_PFT_REPORT}="" Quit s {RESULT_SELECT_PFT_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(701," s {RESULT_SELECT_RHEUMATOLOGY_REPORT}="" Quit s {RESULT_SELECT_RHEUMATOLOGY_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(698.3," s {RESULT_SELECT_SURVEILLANCE_REPORT}="" Quit s {RESULT_SELECT_SURVEILLANCE_REPORT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") If $p($p($g(^GMR({S1},{S2},0)),"^",15),";",2,999)'="MCAR(698.1," s {RESULT_SELECT_V_LEAD_IMPLANT}="" Quit s {RESULT_SELECT_V_LEAD_IMPLANT}=$p($p($g(^GMR({S1},{S2},0)),"^",15),";") "^" 0 23 "^" 0 14 "^" 0 18 "^" 0 19 "^" 0 20 "^" 0 5 "^" "UCID" 1 "^" 0 9 Generated class for FileMan File Number: '123.5' File Name: 'REQUEST SERVICES' Class generated by %fm2class version 2.56 This file allows services and specialties to be grouped in a hierarchy representing the sites services available. This grouping capability may be used with Review screens to filter out consults to a service, sub-service, specialty, or sub-specialty of consults/requests. The main entry in this file is the "ALL SERVICES" entry. Other entries should be subordinate in its hierarchy. The "ALL SERVICES" entry is used to display the hierarchy of the hospital services when the Clinician ordering a consult is prompted for "Select TO Service/Specialty:" to send the consult to. persistent _PUBLIC 0 RowId REQUEST_SERVICES_123_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.144499201 67178,44716.051217006 right REQUEST SERVICES 123.5 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'ADMINISTRATIVE' FileMan Field Number: '150' Entering 'YES" here will cause any orders placed to this service to have a corresponding entry of 'YES' in the ADMINISTRATIVE field of the REQUEST CONSULTATION FILE, #123. Administrative requests are to be excluded from the CONSULTS PERFORMANCE MONITOR report [GMRC RPT PERF MONITOR]. %Library.EnumString 22 ADMINISTRATIVE FileMan Field Label: 'DEFAULT REASON FOR REQUEST' FileMan Field Number: '124' This field will allow a boilerplate of text to be imported into the reason for request when placing consult or procedure orders for this service. If the user places an order using a quick order having boilerplate text, that text will supersede any default text stored. This field may contain any text including TIU objects. TIU Objects must be enclosed in vertical bars (e.g. |PATIENT NAME| ). %Library.String 18 DEFAULT_REASON_FOR_REQUEST FileMan Field Label: 'DISABLE MESSAGE' FileMan Field Number: '3' If a service is disabled, a DISABLED message will be displayed on the screen. %Library.String 14 DISABLE_MESSAGE FileMan Field Label: 'ENTRY ACTION' FileMan Field Number: '20' This field contains MUMPS code that will be executed when someone enters this option for CPRS Detailed and Results displays. %Library.String 1 17 s {ENTRY_ACTION}=$e({NODE_20},1,245) 1 ENTRY_ACTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^GMR(123.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IFC REMOTE NAME' FileMan Field Number: '133' This field contains the name of the service that will be requested at the VAMC defined in the IFC ROUTING SITE field. Enter the name of the service exactly as it is named at the remote facility. If this name does not match the name of the service at the routing site, the request will fail to be filed at the remote site. This will delay or prohibit the performance and processing of this request. %Library.String 21 IFC_REMOTE_NAME FileMan Field Label: 'INTERNAL NAME' FileMan Field Number: '11' This field holds a name that can be used for internal name-spacing. This name will not be viewable to users when selecting a service. This name may be used to look up entries in the file via VA Fileman and the Setup Consult Services option. %Library.String 15 INTERNAL_NAME Computed Field For Node 20 %Library.String 1 16 s {NODE_20}=$g(^GMR(123.5,{IEN},20)) 1 NODE_20 FileMan Field Label: 'NOTIFY SERVICE ON DC' FileMan Field Number: '1.04' This field controls when members configured to receive notifications for this service in the Consult hierarchy will be alerted to a consult being discontinued. 0 - ALWAYS service update users will receive notification of a discontinue regardless of who DC's the order 1 - REQUESTOR ACTION service update users will receive notification of a discontinue only if the user discontinuing the consult is not an update user for the service 2 - NEVER service update users will never receive notification of a discontinued consult %Library.EnumString 10 NOTIFY_SERVICE_ON_DC FileMan Field Label: 'PREREQUISITE' FileMan Field Number: '125' %Library.String 19 PREREQUISITE FileMan Field Label: 'PRINT NAME' FileMan Field Number: '1.11' ABBREVIATED PRINT NAME This is a commonly known Abbreviation for this Service/Specialty. This name is used to build Consult Notifications when a consult/request is ordered in OE/RR. If not defined, the NAME (.01) is used. %Library.String 12 PRINT_NAME FileMan Field Label: 'PROCESS PARENTS FOR NOTIFS' FileMan Field Number: '.08' This field, if set to YES will cause the parent services of this service to be processed when determining notification recipients. %Library.EnumString 6 PROCESS_PARENTS_FOR_NOTIFS FileMan Field Label: 'PROCESS PARENTS FOR UPDATES' FileMan Field Number: '.07' This field, if set to YES will cause the parent services of the this service to be screened to determine update authority for a given user. %Library.EnumString 5 PROCESS_PARENTS_FOR_UPDATES FileMan Field Label: 'PROSTHETICS SERVICE' FileMan Field Number: '131' This field is used to flag those services that are part of the interface between Consult/Request Tracking and the Prosthetics package. This field is set by a package option. It is not intended to be modified via VA FileMan. %Library.EnumString 20 PROSTHETICS_SERVICE FileMan Field Label: 'PROVISIONAL DX INPUT' FileMan Field Number: '1.02' This field will determine the method that CPRS will use to prompt the user for input of the provisional diagnosis when ordering. If set to FREE TEXT, the user may type any text from 2-80 characters in length. If set to LEXICON, the user will be required to select a coded diagnosis from the Clinical Lexicon. %Library.EnumString 8 PROVISIONAL_DX_INPUT FileMan Field Label: 'PROVISIONAL DX PROMPT' FileMan Field Number: '1.01' This field will be used by CPRS to determine how to prompt for the provisional diagnosis when ordering consults for this service. If this field is set to OPTIONAL, the user will be prompted for the provisional diagnosis but may bypass answering the prompt. If the field is set to SUPPRESS, the user will not be presented with the provisional diagnosis prompt. If set to REQUIRED, the user must answer the prompt to continue placing the order. %Library.EnumString 7 PROVISIONAL_DX_PROMPT FileMan Field Label: 'REPRINT 513 ON DC' FileMan Field Number: '1.05' This field will determine if the SF-513 should reprint to the consulting service when a consult is discontinued. 0 - ALWAYS the SF-513 will always reprint to the SERVICE PRINTER when a consult is discontinued 1 - REQUESTOR ACTION the SF-513 will reprint to the SERVICE PRINTER only when a consult is discontinued by a user that is not an update user for the service in 2 - NEVER the SF-513 will never reprint to the SERVICE printer regardless of who discontinued the consult %Library.EnumString 11 REPRINT_513_ON_DC FileMan Field Label: 'RESTRICT DEFAULT REASON EDIT' FileMan Field Number: '1.03' If a DEFAULT REASON FOR REQUEST exists for this service this field affects the ordering person's ability to edit the default reason while placing an order. 0 - UNRESTRICTED User will be able to edit the default text at any time. 1 - ASK ON EDIT ONLY User will only be allowed to edit the default reason if the order is edited before releasing to the service. 2 - NO EDITING User will not be allowed to edit the default reason at any time. The value of this field will be ignored if no DEFAULT REASON FOR REQUEST exists for this service. %Library.EnumString 9 RESTRICT_DEFAULT_REASON_EDIT FileMan Field Label: 'SERVICE NAME' FileMan Field Number: '.01' This is the Name of a service or specialty which may receive consult/ requests. This may also be a name which represents a group of services %Library.String 1 3 SERVICE_NAME FileMan Field Label: 'SERVICE USAGE' FileMan Field Number: '2' Whenever a value is defined in the SERVICE USAGE field, the Service entry will NOT be selectable to send consults TO in the OE/RR ordering process. Service Usages cause functioning as follows: GROUPER ONLY - Allows a service to be used for grouping other services together for review purposes, and aids in defining the service hierarchy (e.g., ALL SERVICES, INPATIENT SERVICES, OUTSIDE SERVICES). During the order process, a user selecting a grouper only service will be shown the service hierarchy under that service grouper. A Grouper ONLY service should never be a "TO" Service on a consult. TRACKING ONLY - Allows a service to be defined in a hierarchy, but will not allow users ordering consults in OE/RR to be able to see or select a service marked for TRACKING ONLY. (e.g., Psychology may be defined with its Service Usage blank, and its Sub-specialty multiple defined with services of which some or all may be "TRACKING ONLY" services. This hierarchy facilitates the situation when a service, such as Psychology, prefers a common location for all related consults to be sent to. A Tracking user at the common location then "Forwards" the request to one of the sub-service TRACKING ONLY services for completion.) DISABLED - Disabled services are not selectable for ordering or tracking. %Library.EnumString 13 SERVICE_USAGE FileMan Field Label: 'UNRESTRICTED ACCESS' FileMan Field Number: '.06' This field, if set to yes will allow all users to perform the full range of update activities on consult or procedure requests directed to this service. If this field is set to yes, all other fields related to assignment of update users are ignored. The SERVICE INDIVIDUAL TO NOTIFY and the SERVICE TEAM(S) TO NOTIFY fields will still be used to determine notification recipients for each individual service. %Library.EnumString 4 UNRESTRICTED_ACCESS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 23 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^GMR(123.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SERVICE_NAME}'="" FDA(123.5,"+1,",.01)={"SERVICE_NAME"} set:{UNRESTRICTED_ACCESS}'="" FDA(123.5,"+1,",.06)={"UNRESTRICTED_ACCESS"} set:{PROCESS_PARENTS_FOR_UPDATES}'="" FDA(123.5,"+1,",.07)={"PROCESS_PARENTS_FOR_UPDATES"} set:{PROCESS_PARENTS_FOR_NOTIFS}'="" FDA(123.5,"+1,",.08)={"PROCESS_PARENTS_FOR_NOTIFS"} set:{PROVISIONAL_DX_PROMPT}'="" FDA(123.5,"+1,",1.01)={"PROVISIONAL_DX_PROMPT"} set:{PROVISIONAL_DX_INPUT}'="" FDA(123.5,"+1,",1.02)={"PROVISIONAL_DX_INPUT"} set:{RESTRICT_DEFAULT_REASON_EDIT}'="" FDA(123.5,"+1,",1.03)={"RESTRICT_DEFAULT_REASON_EDIT"} set:{NOTIFY_SERVICE_ON_DC}'="" FDA(123.5,"+1,",1.04)={"NOTIFY_SERVICE_ON_DC"} set:{REPRINT_513_ON_DC}'="" FDA(123.5,"+1,",1.05)={"REPRINT_513_ON_DC"} set:{PRINT_NAME}'="" FDA(123.5,"+1,",1.11)={"PRINT_NAME"} set:{SERVICE_USAGE}'="" FDA(123.5,"+1,",2)={"SERVICE_USAGE"} set:{DISABLE_MESSAGE}'="" FDA(123.5,"+1,",3)={"DISABLE_MESSAGE"} set:{INTERNAL_NAME}'="" FDA(123.5,"+1,",11)={"INTERNAL_NAME"} set:{PROSTHETICS_SERVICE}'="" FDA(123.5,"+1,",131)={"PROSTHETICS_SERVICE"} set:{IFC_REMOTE_NAME}'="" FDA(123.5,"+1,",133)={"IFC_REMOTE_NAME"} set:{ADMINISTRATIVE}'="" FDA(123.5,"+1,",150)={"ADMINISTRATIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(123.5)") set %SkipFiling=1 if $d(%FMERR(123.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFAULT_REASON_FOR_REQUEST}'="" { set D0={RowId} for i=1:1:$l({DEFAULT_REASON_FOR_REQUEST},$c(13,10)) { set wp(i)=$p({DEFAULT_REASON_FOR_REQUEST},$c(13,10),i) } do WP^DIE(123.5,{RowId},124,,"wp","%FMERR(123.5)") if $d(%FMERR(123.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PREREQUISITE}'="" { set D0={RowId} for i=1:1:$l({PREREQUISITE},$c(13,10)) { set wp(i)=$p({PREREQUISITE},$c(13,10),i) } do WP^DIE(123.5,{RowId},125,,"wp","%FMERR(123.5)") if $d(%FMERR(123.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SERVICE_NAME*C} FDA(123.5,IENS,.01)={SERVICE_NAME} set:{UNRESTRICTED_ACCESS*C} FDA(123.5,IENS,.06)={UNRESTRICTED_ACCESS} set:{PROCESS_PARENTS_FOR_UPDATES*C} FDA(123.5,IENS,.07)={PROCESS_PARENTS_FOR_UPDATES} set:{PROCESS_PARENTS_FOR_NOTIFS*C} FDA(123.5,IENS,.08)={PROCESS_PARENTS_FOR_NOTIFS} set:{PROVISIONAL_DX_PROMPT*C} FDA(123.5,IENS,1.01)={PROVISIONAL_DX_PROMPT} set:{PROVISIONAL_DX_INPUT*C} FDA(123.5,IENS,1.02)={PROVISIONAL_DX_INPUT} set:{RESTRICT_DEFAULT_REASON_EDIT*C} FDA(123.5,IENS,1.03)={RESTRICT_DEFAULT_REASON_EDIT} set:{NOTIFY_SERVICE_ON_DC*C} FDA(123.5,IENS,1.04)={NOTIFY_SERVICE_ON_DC} set:{REPRINT_513_ON_DC*C} FDA(123.5,IENS,1.05)={REPRINT_513_ON_DC} set:{PRINT_NAME*C} FDA(123.5,IENS,1.11)={PRINT_NAME} set:{SERVICE_USAGE*C} FDA(123.5,IENS,2)={SERVICE_USAGE} set:{DISABLE_MESSAGE*C} FDA(123.5,IENS,3)={DISABLE_MESSAGE} set:{INTERNAL_NAME*C} FDA(123.5,IENS,11)={INTERNAL_NAME} set:{PROSTHETICS_SERVICE*C} FDA(123.5,IENS,131)={PROSTHETICS_SERVICE} set:{IFC_REMOTE_NAME*C} FDA(123.5,IENS,133)={IFC_REMOTE_NAME} set:{ADMINISTRATIVE*C} FDA(123.5,IENS,150)={ADMINISTRATIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.5)") set %SkipFiling=1 if $d(%FMERR(123.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DEFAULT_REASON_FOR_REQUEST*C} { set D0={RowId} kill wp if {DEFAULT_REASON_FOR_REQUEST}'="" { set wproot="wp" for i=1:1:$l({DEFAULT_REASON_FOR_REQUEST},$c(13,10)) { set wp(i)=$p({DEFAULT_REASON_FOR_REQUEST},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(123.5,{RowId},124,,wproot,"%FMERR(123.5)") if $d(%FMERR(123.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {PREREQUISITE*C} { set D0={RowId} kill wp if {PREREQUISITE}'="" { set wproot="wp" for i=1:1:$l({PREREQUISITE},$c(13,10)) { set wp(i)=$p({PREREQUISITE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(123.5,{RowId},125,,wproot,"%FMERR(123.5)") if $d(%FMERR(123.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.REQUESTSERVC595S index ^GMR nonnull 123.5 "B" {SERVICE_NAME} {IEN} 0]]> index {INTERNAL_NAME}'="" 1 ^GMR conditional 123.5 "E" $$TRUNCATE({INTERNAL_NAME},30)) {IEN} 0]]> data ^GMR 123.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 30 1 124 new data,i,node set {DEFAULT_REASON_FOR_REQUEST}="" merge data=^GMR(123.5,{S2},124) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DEFAULT_REASON_FOR_REQUEST}={DEFAULT_REASON_FOR_REQUEST}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 3 "^" "IFC" 2 "^" 11 1 "^" 1 4 125 new data,i,node set {PREREQUISITE}="" merge data=^GMR(123.5,{S2},125) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PREREQUISITE}={PREREQUISITE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .1 1 "^" 0 8 "^" 0 7 "^" "INT" 1 "^" 1 2 "^" 1 1 "^" 1 5 "^" 1 3 "^" 0 1 "^" 0 2 "^" 0 6 Generated class for FileMan File Number: '699.81' File Name: 'RESULTS' Class generated by %fm2class version 2.56 This file holds results for Endoscopic procedures. persistent _PUBLIC 0 RowId RESULTS_699_81 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.189135852 67178,44716.09117694 right RESULTS 699.81 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'ENDOSCOPIC RESULTS' FileMan Field Number: '.01' This field contains a name of a result applicable to an Endoscopy. %Library.String 1 3 ENDOSCOPIC_RESULTS Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.81,0),""^"",3)") 1 2 IEN Relationship for Sub-File/Multiple to file name MEDICAL PACKAGE USE child VALIP.prosthetic.fm2cw.SUBMEDICALPACKAGEUSE699811 children RESULTS69981 1 SUB_MEDICAL_PACKAGE_USE_699_811 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.81," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ENDOSCOPIC_RESULTS}'="" FDA(699.81,"+1,",.01)={"ENDOSCOPIC_RESULTS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.81)") set %SkipFiling=1 if $d(%FMERR(699.81,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.81)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ENDOSCOPIC_RESULTS*C} FDA(699.81,IENS,.01)={ENDOSCOPIC_RESULTS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.81)") set %SkipFiling=1 if $d(%FMERR(699.81,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.81)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.RESULTS69981S data ^MCAR 699.81 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '701' File Name: 'RHEUMATOLOGY' Class generated by %fm2class version 2.56 This file stores data on Rheumatology visits. persistent _PUBLIC 0 RowId RHEUMATOLOGY_701 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.327028756 67178,44716.146897589 right RHEUMATOLOGY 701 2.56 12/04/2024 12:25:16 1 1 IEN 1 REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO LAB_DATA_63]]> LABORATORYINFO VALIP.prosthetic.fm2cw.LABDATA63 FKey_LABORATORY_INFO LABORATORY_TEST_60]]> LABCHEM VALIP.prosthetic.fm2cw.LABORATORYTEST60 FKey_LAB_CHEM MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT NEW_PERSON_200]]> OBSERVER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_OBSERVER ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER FileMan Field Label: 'ACTIVITIES' FileMan Field Number: '309' Indicates the level of functionality for activities. %Library.Numeric 193 ACTIVITIES FileMan Field Label: 'ANKLE LEFT' FileMan Field Number: '152' Indicates the degree of impairment of ankle left. %Library.EnumString 166 ANKLE_LEFT FileMan Field Label: 'ANKLE RIGHT' FileMan Field Number: '153' Indicates the degree of impairment of ankle right. %Library.EnumString 167 ANKLE_RIGHT FileMan Field Label: 'ARISING' FileMan Field Number: '303' Indicates the level of functionality for arising. %Library.Numeric 187 ARISING FileMan Field Label: 'AUTOPSY AVAILABLE' FileMan Field Number: '321' This field identifies enter yes or no if autopsy is available. %Library.EnumString 202 AUTOPSY_AVAILABLE FileMan Field Label: 'BLK/TARRY STOOL(NOT FROM IRON)' FileMan Field Number: '19' Indicates whether the patient experienced black/tarry stool (not caused by iron ingestion) during the last 6 months. %Library.EnumString 24 BLKTARRY_STOOLNOT_FROM_IRON FileMan Field Label: 'BLOOD IN URINE' FileMan Field Number: '31' Indicates whether the patient experienced blood in the urine in the last 6 months. %Library.EnumString 37 BLOOD_IN_URINE FileMan Field Label: 'BLURRED VISION' FileMan Field Number: '2' Indicates whether the patient experienced blurring of vision in the past 6 months. %Library.EnumString 6 BLURRED_VISION FileMan Field Label: 'BP-DIASTOLIC' FileMan Field Number: '296' This field identifies the patient's diastolic blood pressure. %Library.Numeric 180 BPDIASTOLIC FileMan Field Label: 'BP-SYSTOLIC' FileMan Field Number: '295' This field identifies the patient's systolic blood pressure. %Library.Numeric 179 BPSYSTOLIC FileMan Field Label: 'BURNING ON URINATION' FileMan Field Number: '32' Indicates whether the patient experienced burning on urination in the last 6 months. %Library.EnumString 41 BURNING_ON_URINATION FileMan Field Label: 'CATARACT' FileMan Field Number: '68' Indicates the presence of a cataract. %Library.EnumString 79 CATARACT FileMan Field Label: 'CAUSE OF DEATH' FileMan Field Number: '322' This allows user to choose cause of death from list. %Library.EnumString 203 CAUSE_OF_DEATH FileMan Field Label: 'CERVICAL SPINE' FileMan Field Number: '158' Indicates the degree of impairment of cervical spine. %Library.EnumString 172 CERVICAL_SPINE FileMan Field Label: 'CHART TYPE' FileMan Field Number: '313' This allows the user to select chart type for the patient. %Library.EnumString 195 CHART_TYPE FileMan Field Label: 'CHEST EXPANSION' FileMan Field Number: '121' Indicates expansion of chest between 0 and 12 cm. %Library.Numeric 135 CHEST_EXPANSION FileMan Field Label: 'CHEST PAIN/TAKING DEEP BREATH' FileMan Field Number: '16' Indicates whether the patient experienced chest pain/ taking deep breath during the past 6 months. %Library.EnumString 21 CHEST_PAINTAKING_DEEP_BREATH FileMan Field Label: 'CONJUNCTIVITIS/EPISCLERITIS' FileMan Field Number: '67.7' Indicates the degree of conjunctivitis/episcleritis present. %Library.EnumString 78 CONJUNCTIVITISEPISCLERITIS FileMan Field Label: 'CONSTIPATION' FileMan Field Number: '20' Indicates whether the patient experienced constipation during the last 6 months. %Library.EnumString 26 CONSTIPATION FileMan Field Label: 'COSTOCHONDRAL-LEFT' FileMan Field Number: '160' Indicates the degree of costochondral disease(left). %Library.EnumString 174 COSTOCHONDRALLEFT FileMan Field Label: 'COSTOCHONDRAL-RIGHT' FileMan Field Number: '161' Indicates the degree of costochondral disease(right). %Library.EnumString 175 COSTOCHONDRALRIGHT FileMan Field Label: 'COSTOCHONDRITIS' FileMan Field Number: '117' Indicates the degree of impairment of costochondritis. %Library.EnumString 131 COSTOCHONDRITIS FileMan Field Label: 'CREATION DATE' FileMan Field Number: '1514' %Library.FilemanTimeStamp 230 CREATION_DATE FileMan Field Label: 'CURRENT MEDICATION' FileMan Field Number: '107' This field identifies the current medication. %Library.String 120 CURRENT_MEDICATION FileMan Field Label: 'CUTANEOUS VASCULTITIS' FileMan Field Number: '99' Indicates the degree of cutaneous vasculitis. %Library.EnumString 112 CUTANEOUS_VASCULTITIS FileMan Field Label: 'DACTYLITIS' FileMan Field Number: '110' Indicates the degree of impairment of dactylitis. %Library.EnumString 123 DACTYLITIS FileMan Field Label: 'DATE/TIME' FileMan Field Number: '.01' This field identifies the date and time that the data is first entered into the database or when the data was collected. %Library.FilemanTimeStamp 1 3 DATETIME FileMan Field Label: 'DEATH DATE' FileMan Field Number: '319' This allows the user to enter the death date of patient. %Library.FilemanDate 201 DEATH_DATE FileMan Field Label: 'DEATH NOTIFIED DATE' FileMan Field Number: '328' This allows user to enter the date when notified. %Library.FilemanDate 206 DEATH_NOTIFIED_DATE FileMan Field Label: 'DEC NUMBER' FileMan Field Number: '316' Data entry clerk number. %Library.Numeric 198 DEC_NUMBER FileMan Field Label: 'DEPRESSION' FileMan Field Number: '45' Indicates whether the patient experienced depression in the last 6 months. %Library.EnumString 54 DEPRESSION FileMan Field Label: 'DIARRHEA(FREQUENT,WATERY)' FileMan Field Number: '21' Indicates whether the patient experienced diarrhea in the last 6 months. %Library.EnumString 27 DIARRHEAFREQUENTWATERY FileMan Field Label: 'DIASTOLIC MURMUR' FileMan Field Number: '76' Indicates the degree of diastolic murmur. %Library.EnumString 87 DIASTOLIC_MURMUR FileMan Field Label: 'DIASTOLIC PRESSURE' FileMan Field Number: '65' Indicates diastolic pressure in millimeters of mercury. %Library.Numeric 74 DIASTOLIC_PRESSURE FileMan Field Label: 'DIFFICULTY SWALLOWING' FileMan Field Number: '22' Indicates whether the patient experienced difficulty in swallowing in the last 6 months. %Library.EnumString 28 DIFFICULTY_SWALLOWING FileMan Field Label: 'DIGITAL ULCERS' FileMan Field Number: '103' Indicates the degree of digital ulcers. %Library.EnumString 116 DIGITAL_ULCERS FileMan Field Label: 'DISABILITY INDEX' FileMan Field Number: '301' Indicates the disability index. %Library.Numeric 185 DISABILITY_INDEX FileMan Field Label: 'DISCHARGE FROM PENIS' FileMan Field Number: '59' Indicates whether the patient experienced discharge from the penis in the last 6 months. %Library.EnumString 68 DISCHARGE_FROM_PENIS FileMan Field Label: 'DISEASE ACTIVITY COMPOSITE' FileMan Field Number: '297' Indicates the patients disease activity composite. %Library.Numeric 181 DISEASE_ACTIVITY_COMPOSITE FileMan Field Label: 'DISEASE SEVERITY-MD ESTIMATE' FileMan Field Number: '299' This field identifies the clinician's estimate of the disease severity. %Library.Numeric 183 DISEASE_SEVERITYMD_ESTIMATE FileMan Field Label: 'DISEASE SEVERITY-PAT. ESTIMATE' FileMan Field Number: '129' This field identifies the Pat. estimate of disease severity. %Library.EnumString 143 DISEASE_SEVERITYPAT__ESTIMATE FileMan Field Label: 'DISEASE SEVERITY-PHY. ESTIMATE' FileMan Field Number: '329' This allows the user to choose estimate from list. %Library.EnumString 207 DISEASE_SEVERITYPHY__ESTIMATE FileMan Field Label: 'DISEASE SEVERITY-PT. ESTIMATE' FileMan Field Number: '298' This field identifies the patient's estimate of the disease severity. %Library.Numeric 182 DISEASE_SEVERITYPT__ESTIMATE FileMan Field Label: 'DIZZINESS' FileMan Field Number: '3' Indicates whether the patient experienced dizziness in the past 6 months. %Library.EnumString 7 DIZZINESS FileMan Field Label: 'DRESSING AND GROOMING' FileMan Field Number: '302' Indicates the level of functionality for dressing and grooming. %Library.Numeric 186 DRESSING_AND_GROOMING FileMan Field Label: 'DRUGSTY' FileMan Field Number: '606' This field identifies a special field to identify patients who are participating in a drug research study. %Library.EnumString 217 DRUGSTY FileMan Field Label: 'DRY EYES' FileMan Field Number: '4' Indicates whether the patient experienced dry eyes in the past 6 months. %Library.EnumString 8 DRY_EYES FileMan Field Label: 'DRY MOUTH' FileMan Field Number: '5' Indicates whether the patient experienced dry mouth in the past 6 months. %Library.EnumString 9 DRY_MOUTH FileMan Field Label: 'EASY BRUISING' FileMan Field Number: '51' Indicates whether the patient experienced easy bruising in the last 6 months. %Library.EnumString 60 EASY_BRUISING FileMan Field Label: 'EATING' FileMan Field Number: '304' Indicates the level of functionality for eating. %Library.Numeric 188 EATING FileMan Field Label: 'ELBOW LEFT' FileMan Field Number: '140' Indicates the degree of impairment of elbow left. %Library.EnumString 154 ELBOW_LEFT FileMan Field Label: 'ELBOW RIGHT' FileMan Field Number: '141' Indicates the degree of impairment of elbow right. %Library.EnumString 155 ELBOW_RIGHT FileMan Field Label: 'END SESSION' FileMan Field Number: '612' This allows user to hit the RETURN key to end session. %Library.String 223 END_SESSION FileMan Field Label: 'ERYTHEMA NODOSUM' FileMan Field Number: '106' Indicates the degree of erythema nodosum. %Library.EnumString 119 ERYTHEMA_NODOSUM FileMan Field Label: '1ST CARPOMETACARPAL L' FileMan Field Number: '136' Indicates the degree of impairment of first carpometacarpal left. %Library.EnumString 150 f1ST_CARPOMETACARPAL_L FileMan Field Label: '1ST CARPOMETACARPAL R' FileMan Field Number: '137' Indicates the degree of impairment of first carpometacarpal right. %Library.EnumString 151 f1ST_CARPOMETACARPAL_R FileMan Field Label: 'FACIAL SKIN TIGHTENING' FileMan Field Number: '52' Indicates whether the patient experienced facial skin tightening in the last 6 months. %Library.EnumString 61 FACIAL_SKIN_TIGHTENING FileMan Field Label: 'FEVER' FileMan Field Number: '6' Indicates whether the patient experienced fever in the past 6 months. %Library.EnumString 10 FEVER FileMan Field Label: 'FINGERS-DIP LEFT' FileMan Field Number: '130' Indicates the degree of impairment of fingers - dip left %Library.EnumString 144 FINGERSDIP_LEFT FileMan Field Label: 'FINGERS-DIP RIGHT' FileMan Field Number: '131' Indicates the degree of impairment of fingers - dip right. %Library.EnumString 145 FINGERSDIP_RIGHT FileMan Field Label: 'FINGERS-PIP LEFT' FileMan Field Number: '132' Indicates the degree of impairment of fingers - pip left. %Library.EnumString 146 FINGERSPIP_LEFT FileMan Field Label: 'FINGERS-PIP RIGHT' FileMan Field Number: '133' Indicates the degree of impairment of fingers - pip right. %Library.EnumString 147 FINGERSPIP_RIGHT FileMan Field Label: 'FINGER-TO-PALM CREASE-LEFT' FileMan Field Number: '123' Indicates left finger-to-palm crease. %Library.Numeric 137 FINGERTOPALM_CREASELEFT FileMan Field Label: 'FINGER-TO-PALM CREASE-RIGHT' FileMan Field Number: '124' Indicates right finger-to-palm crease. %Library.Numeric 138 FINGERTOPALM_CREASERIGHT FileMan Field Label: 'FUNCTIONAL CLASS (ACR)' FileMan Field Number: '128' This field identifies the ACR functional class to indicate degree of impairment. %Library.EnumString 142 FUNCTIONAL_CLASS_ACR FileMan Field Label: 'GAS(FLATULENCE)' FileMan Field Number: '23' Indicates whether the patient experienced gas in the last 6 months. %Library.EnumString 29 GASFLATULENCE FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 229 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 FileMan Field Label: 'GRIP-ARA' FileMan Field Number: '308' Indicates the level of functionality for ARA grip. %Library.Numeric 192 GRIPARA FileMan Field Label: 'GRIP STRENGTH-LEFT' FileMan Field Number: '118' Indicates left grip strength in millimeters of mercury. %Library.Numeric 132 GRIP_STRENGTHLEFT FileMan Field Label: 'GRIP STRENGTH-RIGHT' FileMan Field Number: '119' Indicates right grip strength in millimeters of mercury. %Library.Numeric 133 GRIP_STRENGTHRIGHT FileMan Field Label: 'HAQADMIN' FileMan Field Number: '603' %Library.EnumString 214 HAQADMIN FileMan Field Label: 'HEADACHE' FileMan Field Number: '7' Indicates whether the patient experienced headache in the past 6 months. %Library.EnumString 11 HEADACHE FileMan Field Label: 'HEARING DIFFICULTIES' FileMan Field Number: '8' Indicates whether the patient experienced hearing difficulties in the past 6 months. %Library.EnumString 12 HEARING_DIFFICULTIES FileMan Field Label: 'HEARTBURN,INDIGESTION,BELCHING' FileMan Field Number: '24' Indicates whether the patient experienced heartburn, indigestion, or belching in the last 6 months. %Library.EnumString 30 HEARTBURNINDIGESTIONBELCHING FileMan Field Label: 'HEEL PAIN' FileMan Field Number: '114' Indicates the degree of impairment of heel pain. %Library.EnumString 128 HEEL_PAIN FileMan Field Label: 'HEIGHT' FileMan Field Number: '62' Indicates the patient's height in centimeters. %Library.Numeric 71 HEIGHT FileMan Field Label: 'HELIOTROPE EYELIDS' FileMan Field Number: '88' Indicates the degree of heliotrope eyelids. %Library.EnumString 99 HELIOTROPE_EYELIDS FileMan Field Label: 'HEPATOMEGALY' FileMan Field Number: '80' Indicates the degree of hepatomegaly. %Library.EnumString 91 HEPATOMEGALY FileMan Field Label: 'HIP LEFT' FileMan Field Number: '148' Indicates the degree of impairment of hip left. %Library.EnumString 162 HIP_LEFT FileMan Field Label: 'HIP RIGHT' FileMan Field Number: '149' Indicates the degree of impairment of hip right. %Library.EnumString 163 HIP_RIGHT FileMan Field Label: 'HISTORY NARRATIVE' FileMan Field Number: '611' This allows user to enter a history narrative. %Library.String 222 HISTORY_NARRATIVE FileMan Field Label: 'HIVES OR WELTS' FileMan Field Number: '53' Indicates whether the patient experienced hives or welts in the last 6 months. %Library.EnumString 62 HIVES_OR_WELTS FileMan Field Label: 'HYGIENE' FileMan Field Number: '306' Indicates the level of functionality for hygiene. %Library.Numeric 190 HYGIENE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(701,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IMPOTENCE' FileMan Field Number: '60' Indicates whether the patient experienced impotence in the last 6 months. %Library.EnumString 69 IMPOTENCE FileMan Field Label: 'INCREASED SWEATING' FileMan Field Number: '9' Indicates whether the patient experienced increased sweating in the past 6 months. %Library.EnumString 13 INCREASED_SWEATING FileMan Field Label: 'INSOMNIA' FileMan Field Number: '46' Indicates whether the patient experienced insomnia in the last 6 months. %Library.EnumString 55 INSOMNIA FileMan Field Label: 'INTERINCISOR DISTANCE' FileMan Field Number: '125' Indicates interincisor distance, between 0 and 60 mm. %Library.Numeric 139 INTERINCISOR_DISTANCE FileMan Field Label: 'IRITIS' FileMan Field Number: '69' Indicates the presence of iritis. %Library.EnumString 80 IRITIS FileMan Field Label: 'IRREGULAR PERIODS' FileMan Field Number: '34' Indicates whether the patient experienced irregular periods in the last 6 months. %Library.EnumString 43 IRREGULAR_PERIODS FileMan Field Label: 'ITCHING' FileMan Field Number: '54' Indicates whether the patient experienced itching in the last 6 months. %Library.EnumString 63 ITCHING FileMan Field Label: 'JAUNDICE' FileMan Field Number: '25' Indicates whether the patient experienced jaundice in the last 6 months. %Library.EnumString 31 JAUNDICE FileMan Field Label: 'JOINT PAIN' FileMan Field Number: '36' Indicates whether the patient experienced joint pain in the last 6 months. %Library.EnumString 45 JOINT_PAIN FileMan Field Label: 'JOINT SWELLING' FileMan Field Number: '37' Indicates whether the patient experienced joint swelling in the last 6 months. %Library.EnumString 46 JOINT_SWELLING FileMan Field Label: 'KERATODERMIA BLENNORRHAGICA' FileMan Field Number: '101' Indicates the degree of keratodermia blennorrhagia. %Library.EnumString 114 KERATODERMIA_BLENNORRHAGICA FileMan Field Label: 'KIDNEY PROBLEMS' FileMan Field Number: '31.5' Describes forms of kidney problems in the patient's history. %Library.String 39 KIDNEY_PROBLEMS FileMan Field Label: 'KNEE LEFT' FileMan Field Number: '150' Indicates the degree of impairment of knee left. %Library.EnumString 164 KNEE_LEFT FileMan Field Label: 'KNEE RIGHT' FileMan Field Number: '151' Indicates the degree of impairment of knee right. %Library.EnumString 165 KNEE_RIGHT FileMan Field Label: 'KNUCKLE ERYTHEMA' FileMan Field Number: '102' Indicates the degree of Knuckle erythema. %Library.EnumString 115 KNUCKLE_ERYTHEMA FileMan Field Label: 'LABORATORY INFO' FileMan Field Number: '613' This allows user to enter laboratory information. VALIP.prosthetic.fm2cw.LABDATA63 224 LABORATORY_INFO LRDFN The internal file number of the "patient" (or other entity)]]> %Library.Numeric 1 LRDFN into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {LABORATORY_INFO_LRDFN}=$select(SQLCODE=0:val,1:"")]]> 1 LABORATORY_INFO_LRDFN 1 FileMan Field Label: 'LAB CHEM' FileMan Field Number: '614' This allows user to enter information to the laboratory test file. VALIP.prosthetic.fm2cw.LABORATORYTEST60 225 LAB_CHEM NAME This is the name of the Laboratory test you are defining in this entry.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {LAB_CHEM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAB_CHEM_NAME 1 FileMan Field Label: 'LIVER PROBLEMS' FileMan Field Number: '19.1' Enter a brief description of liver disease. %Library.String 25 LIVER_PROBLEMS FileMan Field Label: 'LOOSE/FREQUENT BOWEL(MILD)' FileMan Field Number: '26' Indicates whether the patient experienced loose/ frequent bowel in the last 6 months. %Library.EnumString 32 LOOSEFREQUENT_BOWELMILD FileMan Field Label: 'LOSS,CHANGE IN TASTE' FileMan Field Number: '10' Indicates whether the patient experienced loss, change in taste in the past 6 months. %Library.EnumString 15 LOSSCHANGE_IN_TASTE FileMan Field Label: 'LOSS OF APPETITE' FileMan Field Number: '27' Indicates whether the patient experienced loss of appetite in the last 6 months. %Library.EnumString 33 LOSS_OF_APPETITE FileMan Field Label: 'LOSS OF HAIR' FileMan Field Number: '11' Indicates whether the patient experienced loss of hair in the past 6 months. %Library.EnumString 16 LOSS_OF_HAIR FileMan Field Label: 'LOST OR DEATH STATUS' FileMan Field Number: '318' Is patient dead or lost from the VA files. %Library.EnumString 200 LOST_OR_DEATH_STATUS FileMan Field Label: 'LOW BACK PAIN' FileMan Field Number: '38' Indicates whether the patient experienced low back pain in the last 6 months. %Library.EnumString 47 LOW_BACK_PAIN FileMan Field Label: 'LOW PLATELETS' FileMan Field Number: '351' Indicates the condition of low platelet count. %Library.EnumString 209 LOW_PLATELETS FileMan Field Label: 'LOW RED BLOOD COUNT' FileMan Field Number: '352' Indicates the condition of low red blood count. %Library.EnumString 210 LOW_RED_BLOOD_COUNT FileMan Field Label: 'LOW WHITE BLOOD COUNT' FileMan Field Number: '350' Indicates the condition of low white blood count. %Library.EnumString 208 LOW_WHITE_BLOOD_COUNT FileMan Field Label: 'LUMBAR SPINE' FileMan Field Number: '159' Indicates the degree of impairment of lumbar spine. %Library.EnumString 173 LUMBAR_SPINE FileMan Field Label: 'LYMPH NODE ENLARGEMENT' FileMan Field Number: '77' Indicates the degree of lymph node enlargement. %Library.EnumString 88 LYMPH_NODE_ENLARGEMENT FileMan Field Label: 'MCPS LEFT' FileMan Field Number: '134' Indicates the degree of impairment of MCPS LEFT. %Library.EnumString 148 MCPS_LEFT FileMan Field Label: 'MCPS RIGHT' FileMan Field Number: '135' Indicates the degree of impairment of MCPS RIGHT. %Library.EnumString 149 MCPS_RIGHT FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the patient in the medicine file. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'MORPHEA' FileMan Field Number: '97' Indicates the degree of morphea. %Library.EnumString 110 MORPHEA FileMan Field Label: 'MOTOR NEUROPATHY' FileMan Field Number: '86' Indicates the degree of motor neuropathy. %Library.EnumString 97 MOTOR_NEUROPATHY FileMan Field Label: 'MOUTH SORES' FileMan Field Number: '12' Indicates whether the patient experienced mouth sores in the past 6 months. %Library.EnumString 17 MOUTH_SORES FileMan Field Label: 'MTP LEFT' FileMan Field Number: '154' Indicates the degree of impairment of MTP left. %Library.EnumString 168 MTP_LEFT FileMan Field Label: 'MTP RIGHT' FileMan Field Number: '155' Indicates the degree of impairment of MTP right. %Library.EnumString 169 MTP_RIGHT FileMan Field Label: 'MUSCLE ATROPHY' FileMan Field Number: '83' Indicates the degree of muscle atrophy. %Library.EnumString 94 MUSCLE_ATROPHY FileMan Field Label: 'MUSCLE PAIN' FileMan Field Number: '39' Indicates whether the patient experienced muscle pain in the last 6 months. %Library.EnumString 48 MUSCLE_PAIN FileMan Field Label: 'MUSCLE TENDERNESS' FileMan Field Number: '78' Indicates the degree of muscle tenderness. %Library.EnumString 89 MUSCLE_TENDERNESS FileMan Field Label: 'MUSCLE WEAKNESS-DISTAL' FileMan Field Number: '79' Indicates the degree of distal muscle weakness. %Library.EnumString 90 MUSCLE_WEAKNESSDISTAL FileMan Field Label: 'MUSCLE WEAKNESS-PROXIMAL' FileMan Field Number: '82' Indicates the degree of proximal muscle weakness. %Library.EnumString 93 MUSCLE_WEAKNESSPROXIMAL FileMan Field Label: 'NAIL PITTING' FileMan Field Number: '104' Indicates the degree of nail pitting. %Library.EnumString 117 NAIL_PITTING FileMan Field Label: 'NAUSEA' FileMan Field Number: '610' This allows user to enter yes or no for presence of nausea. %Library.EnumString 221 NAUSEA FileMan Field Label: 'NECK PAIN' FileMan Field Number: '40' Indicates whether the patient experienced neck pain in the last 6 months. %Library.EnumString 49 NECK_PAIN FileMan Field Label: 'NERVOUSNESS' FileMan Field Number: '47' Indicates whether the patient experienced nervousness in the last 6 months. %Library.EnumString 56 NERVOUSNESS FileMan Field Label: 'NIGHT PAIN' FileMan Field Number: '41' Indicates whether the patient experienced night pain in the last 6 months. %Library.EnumString 50 NIGHT_PAIN FileMan Field Label: 'NIGHT SWEATS' FileMan Field Number: '9.1' Indicates whether the condition of NIGHT Sweats exists. %Library.EnumString 14 NIGHT_SWEATS FileMan Field Label: 'NOTIFIED BY' FileMan Field Number: '326' This allows user to choose notification method by list. %Library.EnumString 204 NOTIFIED_BY FileMan Field Label: 'NUMBNESS OR TINGLING' FileMan Field Number: '42' Indicates whether the patient experienced numbness or tingling in the last 6 months. %Library.EnumString 51 NUMBNESS_OR_TINGLING FileMan Field Label: 'OBSERVER' FileMan Field Number: '314' The provider who saw the patient. VALIP.prosthetic.fm2cw.NEWPERSON200 196 OBSERVER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {OBSERVER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OBSERVER_NAME 1 FileMan Field Label: 'OCCIPUT-WALL' FileMan Field Number: '122' Indicates occiput - wall between 0 and 20 cm. %Library.Numeric 136 OCCIPUTWALL FileMan Field Label: 'OCCUPATION' FileMan Field Number: '312' This allows the user to enter occupation from a list of choices. %Library.EnumString 194 OCCUPATION FileMan Field Label: 'ORAL ULCERS' FileMan Field Number: '70' Indicates the patient has oral ulcers. %Library.EnumString 81 ORAL_ULCERS FileMan Field Label: 'ORGANIC BRAIN SYNDROME' FileMan Field Number: '85' Indicates the degree of organic brain syndrome. %Library.EnumString 96 ORGANIC_BRAIN_SYNDROME FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 228 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'OTHER' FileMan Field Number: '31.8' A brief description of a relevant condition which cannot be otherwise noted. %Library.String 40 OTHER FileMan Field Label: 'PAIN/CRAMPS LOWER ABDOMEN' FileMan Field Number: '28' Indicates whether the patient experienced pain/ cramps in the lower abdomen in the last 6 months. %Library.EnumString 34 PAINCRAMPS_LOWER_ABDOMEN FileMan Field Label: 'PAIN/DISCOMFORT UPPER ABDOMEN' FileMan Field Number: '29' Indicates whether the patient experienced pain/ discomfort in the upper abdomen in the last 6 months. %Library.EnumString 35 PAINDISCOMFORT_UPPER_ABDOMEN FileMan Field Label: 'PAINSCAL' FileMan Field Number: '300' Indicates the pain scale. %Library.Numeric 184 PAINSCAL FileMan Field Label: 'PALPABLE PURPURA' FileMan Field Number: '93' Indicates the degree of palpable purpura. %Library.EnumString 106 PALPABLE_PURPURA FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 227 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PERICARDIAL RUB/PERICARDITIS' FileMan Field Number: '74' Indicates the degree of pericardial rub. %Library.EnumString 85 PERICARDIAL_RUBPERICARDITIS FileMan Field Label: 'PERIUNGAL ERYTHEMA' FileMan Field Number: '100' Indicates the degree of periungual erythema. %Library.EnumString 113 PERIUNGAL_ERYTHEMA FileMan Field Label: 'PERSON PROVIDING NOTIFICATION' FileMan Field Number: '327' This allows user to enter the person's name who provided the notification, last name first. %Library.String 205 PERSON_PROVIDING_NOTIFICATION FileMan Field Label: 'PLEURAL EFFUSION' FileMan Field Number: '73' Indicates the degree of pleural effusion. %Library.EnumString 84 PLEURAL_EFFUSION FileMan Field Label: 'PLEURAL RUB/CLINICAL PLEURISY' FileMan Field Number: '72' Indicates the degree of pleural rub. %Library.EnumString 83 PLEURAL_RUBCLINICAL_PLEURISY FileMan Field Label: 'PMSVIS' FileMan Field Number: '608' %Library.EnumString 219 PMSVIS FileMan Field Label: 'PREGNANT' FileMan Field Number: '33' Indicates whether the patient is pregnant. %Library.EnumString 42 PREGNANT FileMan Field Label: 'PRESCRIBED MEDICATIONS' FileMan Field Number: '108' This field identifies the prescribed medications. %Library.String 121 PRESCRIBED_MEDICATIONS FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 226 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.RHEUMATOLOGY_701 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This allows user to enter a summary of the procedure. %Library.String 211 PROCEDURE_SUMMARY FileMan Field Label: 'PSORIASIS' FileMan Field Number: '90' Indicates the degree of psoriasis. %Library.EnumString 103 PSORIASIS FileMan Field Label: 'PSYCHOSIS' FileMan Field Number: '84' Indicates the degree of psychosis. %Library.EnumString 95 PSYCHOSIS FileMan Field Label: 'PULSE' FileMan Field Number: '66' Indicates pulse rate per minute. %Library.Numeric 75 PULSE FileMan Field Label: 'QUESTDATE' FileMan Field Number: '602' This field identifies the date of the HAQ. %Library.FilemanDate 213 QUESTDATE FileMan Field Label: 'QUESTNUM' FileMan Field Number: '607' %Library.Numeric 218 QUESTNUM FileMan Field Label: 'QUESTYPE' FileMan Field Number: '604' %Library.EnumString 215 QUESTYPE FileMan Field Label: 'RALES' FileMan Field Number: '71' Indicate the degree of rales. %Library.EnumString 82 RALES FileMan Field Label: 'RASH' FileMan Field Number: '55' Indicates whether the patient experienced a rash in the last 6 months. %Library.EnumString 64 RASH FileMan Field Label: 'RASH-DISCOID' FileMan Field Number: '91' Indicates the degree of Rash-Discoid. %Library.EnumString 104 RASHDISCOID FileMan Field Label: 'RASH-JRA' FileMan Field Number: '92' Indicates the degree of Rash-JRA. %Library.EnumString 105 RASHJRA FileMan Field Label: 'RASH-MALAR' FileMan Field Number: '89' Indicates the degree of Rash-Malar. %Library.EnumString 100 RASHMALAR FileMan Field Label: 'RASH-OTHER' FileMan Field Number: '89.2' Indicates the degree of rash-other present. %Library.EnumString 102 RASHOTHER FileMan Field Label: 'RASH-SLE,NON-MALAR' FileMan Field Number: '89.1' Indicates the degree of rash-sle, non-maler present. %Library.EnumString 101 RASHSLENONMALAR FileMan Field Label: 'RASH/ULCERS ON PENIS' FileMan Field Number: '61' Indicates whether the patient experienced rash/ ulcers on the penis in the last 6 months. %Library.EnumString 70 RASHULCERS_ON_PENIS FileMan Field Label: 'RASH OVER CHEEKS' FileMan Field Number: '56' Indicates whether the patient experienced rash over cheeks in the last 6 months. %Library.EnumString 65 RASH_OVER_CHEEKS FileMan Field Label: 'REACH' FileMan Field Number: '307' Indicates the level of functionality for reaching. %Library.Numeric 191 REACH FileMan Field Label: 'RED,IRRITATED EYES' FileMan Field Number: '13' Indicates whether the patient experienced red, irritated eyes over the past 6 months. %Library.EnumString 18 REDIRRITATED_EYES FileMan Field Label: 'RINGING IN EARS' FileMan Field Number: '14' Indicates whether the patient experienced ringing in ears during the past 6 months. %Library.EnumString 19 RINGING_IN_EARS FileMan Field Label: 'RISE' FileMan Field Number: '609' Summary score of HAQ questions about arising. %Library.Numeric 220 RISE FileMan Field Label: 'SACROILIAC-LEFT' FileMan Field Number: '162' Indicates the degree of sacroiliac disease(left). %Library.EnumString 176 SACROILIACLEFT FileMan Field Label: 'SACROILIAC-RIGHT' FileMan Field Number: '163' Indicates the degree of sacroiliac disease(right). %Library.EnumString 177 SACROILIACRIGHT FileMan Field Label: 'SCHIRMER TEST' FileMan Field Number: '126' Indicates results of Schirmer test, between 0 and 25 mm. %Library.Numeric 140 SCHIRMER_TEST FileMan Field Label: 'SCHOBER TEST (10 cm BASE)' FileMan Field Number: '120' Indicates the results of the Schober test (with a 10 cm base). %Library.Numeric 134 SCHOBER_TEST_10_CM_BASE FileMan Field Label: 'SCLERODACTYLY' FileMan Field Number: '94' Indicates the degree of sclerodactyly. %Library.EnumString 107 SCLERODACTYLY FileMan Field Label: 'SCLERODERMA-EXTREMITY' FileMan Field Number: '95' Indicates the degree of scleroderma of the extremity. %Library.EnumString 108 SCLERODERMAEXTREMITY FileMan Field Label: 'SCLERODERMA-GENERALIZED' FileMan Field Number: '96' Indicates the degree of scleroderma, generalized. %Library.EnumString 109 SCLERODERMAGENERALIZED FileMan Field Label: 'SEIZURES OR CONVULSION' FileMan Field Number: '48' Indicates whether the patient experienced seizures or convulsions in the last 6 months. %Library.EnumString 57 SEIZURES_OR_CONVULSION FileMan Field Label: 'SENSORY NEUROPATHY' FileMan Field Number: '87' Indicates the degree of sensory neuropathy. %Library.EnumString 98 SENSORY_NEUROPATHY FileMan Field Label: 'SHORTNESS OF BREATH' FileMan Field Number: '17' Indicates whether the patient experienced shortness of breath during the past 6 months. %Library.EnumString 22 SHORTNESS_OF_BREATH FileMan Field Label: 'SHOULDER LEFT' FileMan Field Number: '142' Indicates the degree of impairment of shoulder left. %Library.EnumString 156 SHOULDER_LEFT FileMan Field Label: 'SHOULDER RIGHT' FileMan Field Number: '143' Indicates the degree of impairment of shoulder right. %Library.EnumString 157 SHOULDER_RIGHT FileMan Field Label: 'SKIN COLOR CHANGE IN FINGER' FileMan Field Number: '57' Indicates whether the patient experienced skin color change in finger in the last 6 months. %Library.EnumString 66 SKIN_COLOR_CHANGE_IN_FINGER FileMan Field Label: 'SKIN ULCERS' FileMan Field Number: '105' Indicates the degree skin ulcers. %Library.EnumString 118 SKIN_ULCERS FileMan Field Label: 'SORE THROAT' FileMan Field Number: '15' Indicates whether the patient experienced sore throat during the past 6 months. %Library.EnumString 20 SORE_THROAT FileMan Field Label: 'SPLENOMEGALY' FileMan Field Number: '81' Indicates the degree of splenomegaly. %Library.EnumString 92 SPLENOMEGALY FileMan Field Label: 'SSN' FileMan Field Number: '1.1' This field identifies the SSN, which is computed. %Library.Numeric 1 5 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(701,1.1,9.3) S X=$P(Y(701,1.1,201),U,9) S D0=Y(701,1.1,80) set {SSN}=X 1 SSN FileMan Field Label: 'STERNOCLAVICULAR LEFT' FileMan Field Number: '144' Indicates the degree of impairment of sternoclavicular left. %Library.EnumString 158 STERNOCLAVICULAR_LEFT FileMan Field Label: 'STERNOCLAVICULAR RIGHT' FileMan Field Number: '145' Indicates the degree of impairment of sternoclavicular right. %Library.EnumString 159 STERNOCLAVICULAR_RIGHT FileMan Field Label: 'STIFF IN THE MORNING HOW LONG' FileMan Field Number: '35' Indicates whether the patient experienced stiffness in the morning and how long in the last 6 months. %Library.Numeric 44 STIFF_IN_THE_MORNING_HOW_LONG FileMan Field Label: 'STUDY STATUS' FileMan Field Number: '605' This allows user to choose code of study status. %Library.EnumString 216 STUDY_STATUS FileMan Field Label: 'SUBCUTANEOUS CALCIFICATIONS' FileMan Field Number: '112.5' Indicates the degree of subcutaneous calcifications presently found. %Library.EnumString 126 SUBCUTANEOUS_CALCIFICATIONS FileMan Field Label: 'SUB-CUTANEOUS NODULES' FileMan Field Number: '112' This field identifies No indicates if the patient has sub-cutaneous nodules. %Library.EnumString 125 SUBCUTANEOUS_NODULES Relationship for Sub-File/Multiple to file name DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBDIAGNOSIS7010615 children RHEUMATOLOGY701 1 SUB_DIAGNOSIS_701_0615 Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS70101 children RHEUMATOLOGY701 1 SUB_ICD_DIAGNOSIS_701_01 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE70102005 children RHEUMATOLOGY701 1 SUB_IMAGE_701_02005 Relationship for Sub-File/Multiple to file name MEDICATION child VALIP.prosthetic.fm2cw.SUBMEDICATION7010201 children RHEUMATOLOGY701 1 SUB_MEDICATION_701_0201 FileMan Field Label: 'SUMMARY' FileMan Field Number: '601' This allows user to choose summary code. %Library.EnumString 212 SUMMARY FileMan Field Label: 'SUN SENSITIVITY' FileMan Field Number: '58' Indicates whether the patient experienced sun sensitivity in the last 6 months. %Library.EnumString 67 SUN_SENSITIVITY FileMan Field Label: 'SWELLING OF LEGS' FileMan Field Number: '43' Indicates whether the patient experienced swelling of legs in the last 6 months. %Library.EnumString 52 SWELLING_OF_LEGS FileMan Field Label: 'SYMMETRICAL ARTHRITIS' FileMan Field Number: '109' This field identifies No indicates if the patient has symmetrical arthritis. %Library.EnumString 122 SYMMETRICAL_ARTHRITIS FileMan Field Label: 'SYNOVIAL (BAKER'S) CYST' FileMan Field Number: '113' This field identifies No indicates if the patient has synovial (Baker's) cyst. %Library.EnumString 127 SYNOVIAL_BAKERS_CYST FileMan Field Label: 'SYSTOLIC MURMUR' FileMan Field Number: '75' Indicates the degree of systolic murmur. %Library.EnumString 86 SYSTOLIC_MURMUR FileMan Field Label: 'SYSTOLIC PRESSURE' FileMan Field Number: '64' Indicates systolic blood pressure in millimeters of mercury. %Library.Numeric 73 SYSTOLIC_PRESSURE FileMan Field Label: 'TELANGIECTASIS' FileMan Field Number: '98' Indicates the degree of telangiectasis. %Library.EnumString 111 TELANGIECTASIS FileMan Field Label: 'TEMPORAL ARTERY TENDERNESS' FileMan Field Number: '116' Indicates the degree of impairment of temporal artery tenderness. %Library.EnumString 130 TEMPORAL_ARTERY_TENDERNESS FileMan Field Label: 'TENOSYNOVITIS(TENDON RUBS)' FileMan Field Number: '115' Indicates the degree of impairment of tenosynovitis (tendon rubs) %Library.EnumString 129 TENOSYNOVITISTENDON_RUBS FileMan Field Label: 'THORACIC SPINE' FileMan Field Number: '164' Indicates the degree of Thoracic spine disease. %Library.EnumString 178 THORACIC_SPINE FileMan Field Label: 'TIREDNESS' FileMan Field Number: '49' Indicates whether the patient experienced tiredness in the last 6 months. %Library.EnumString 58 TIREDNESS FileMan Field Label: 'TMJ LEFT' FileMan Field Number: '146' Indicates the degree of impairment of TMJ left. %Library.EnumString 160 TMJ_LEFT FileMan Field Label: 'TMJ RIGHT' FileMan Field Number: '147' Indicates the degree of impairment of TMJ right. %Library.EnumString 161 TMJ_RIGHT FileMan Field Label: 'TOES-PIP LEFT' FileMan Field Number: '156' Indicates the degree of impairment of toes - PIP left. %Library.EnumString 170 TOESPIP_LEFT FileMan Field Label: 'TOES-PIP RIGHT' FileMan Field Number: '157' Indicates the degree of impairment of toes - PIP right. %Library.EnumString 171 TOESPIP_RIGHT FileMan Field Label: 'TOPHI' FileMan Field Number: '111' This field identifies No indicates if the patient has tophi. %Library.EnumString 124 TOPHI FileMan Field Label: 'TROUBLE REMEMBERING/THINKING' FileMan Field Number: '50' Indicates whether the patient experienced trouble remembering or thinking in the last 6 months. %Library.EnumString 59 TROUBLE_REMEMBERINGTHINKING FileMan Field Label: 'URINE PROTEIN' FileMan Field Number: '31.1' Indicates whether the patient has had a history of urine protein. %Library.EnumString 38 URINE_PROTEIN FileMan Field Label: 'UVEITIS' FileMan Field Number: '67' Indicates the presence of uveitis. %Library.EnumString 76 UVEITIS FileMan Field Label: 'UVEITIS/IRITIS' FileMan Field Number: '67.5' Indicates the degree of uveitis/iritis present. %Library.EnumString 77 UVEITISIRITIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 231 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VISIT NUMBER' FileMan Field Number: '317' This field identifies sequentially numbered. %Library.Numeric 199 VISIT_NUMBER FileMan Field Label: 'VISIT TYPE' FileMan Field Number: '315' %Library.EnumString 197 VISIT_TYPE FileMan Field Label: 'VOMITING' FileMan Field Number: '30' Indicates whether the patient experienced vomiting in the last 6 months. %Library.EnumString 36 VOMITING FileMan Field Label: 'WALK' FileMan Field Number: '305' Indicates the level of functionality for walking. %Library.Numeric 189 WALK FileMan Field Label: 'WALK TIME (50 FEET)' FileMan Field Number: '127' This field identifies the walk time of 50 feet between 6 and 50 seconds. %Library.Numeric 141 WALK_TIME_50_FEET FileMan Field Label: 'WEAKNESS OF MUSCLES' FileMan Field Number: '44' Indicates whether the patient experienced weakness of muscles experienced in the last 6 months. %Library.EnumString 53 WEAKNESS_OF_MUSCLES FileMan Field Label: 'WEIGHT' FileMan Field Number: '63' Indicates the patient's weight in kilograms. %Library.Numeric 72 WEIGHT FileMan Field Label: 'WHEEZING(ASTHMA)' FileMan Field Number: '18' Indicates whether the patient experienced wheezing during the past 6 months. %Library.EnumString 23 WHEEZINGASTHMA FileMan Field Label: 'WRIST LEFT' FileMan Field Number: '138' Indicates the degree of impairment of wrist left. %Library.EnumString 152 WRIST_LEFT FileMan Field Label: 'WRIST RIGHT' FileMan Field Number: '139' Indicates the degree of impairment of wrist right. %Library.EnumString 153 WRIST_RIGHT BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(701," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME}'="" FDA(701,"+1,",.01)={"DATETIME"} set:{MEDICAL_PATIENT}'="" FDA(701,"+1,",1)={"MEDICAL_PATIENT"} set:{BLURRED_VISION}'="" FDA(701,"+1,",2)={"BLURRED_VISION"} set:{DIZZINESS}'="" FDA(701,"+1,",3)={"DIZZINESS"} set:{DRY_EYES}'="" FDA(701,"+1,",4)={"DRY_EYES"} set:{DRY_MOUTH}'="" FDA(701,"+1,",5)={"DRY_MOUTH"} set:{FEVER}'="" FDA(701,"+1,",6)={"FEVER"} set:{HEADACHE}'="" FDA(701,"+1,",7)={"HEADACHE"} set:{HEARING_DIFFICULTIES}'="" FDA(701,"+1,",8)={"HEARING_DIFFICULTIES"} set:{INCREASED_SWEATING}'="" FDA(701,"+1,",9)={"INCREASED_SWEATING"} set:{NIGHT_SWEATS}'="" FDA(701,"+1,",9.1)={"NIGHT_SWEATS"} set:{LOSSCHANGE_IN_TASTE}'="" FDA(701,"+1,",10)={"LOSSCHANGE_IN_TASTE"} set:{LOSS_OF_HAIR}'="" FDA(701,"+1,",11)={"LOSS_OF_HAIR"} set:{MOUTH_SORES}'="" FDA(701,"+1,",12)={"MOUTH_SORES"} set:{REDIRRITATED_EYES}'="" FDA(701,"+1,",13)={"REDIRRITATED_EYES"} set:{RINGING_IN_EARS}'="" FDA(701,"+1,",14)={"RINGING_IN_EARS"} set:{SORE_THROAT}'="" FDA(701,"+1,",15)={"SORE_THROAT"} set:{CHEST_PAINTAKING_DEEP_BREATH}'="" FDA(701,"+1,",16)={"CHEST_PAINTAKING_DEEP_BREATH"} set:{SHORTNESS_OF_BREATH}'="" FDA(701,"+1,",17)={"SHORTNESS_OF_BREATH"} set:{WHEEZINGASTHMA}'="" FDA(701,"+1,",18)={"WHEEZINGASTHMA"} set:{BLKTARRY_STOOLNOT_FROM_IRON}'="" FDA(701,"+1,",19)={"BLKTARRY_STOOLNOT_FROM_IRON"} set:{LIVER_PROBLEMS}'="" FDA(701,"+1,",19.1)={"LIVER_PROBLEMS"} set:{CONSTIPATION}'="" FDA(701,"+1,",20)={"CONSTIPATION"} set:{DIARRHEAFREQUENTWATERY}'="" FDA(701,"+1,",21)={"DIARRHEAFREQUENTWATERY"} set:{DIFFICULTY_SWALLOWING}'="" FDA(701,"+1,",22)={"DIFFICULTY_SWALLOWING"} set:{GASFLATULENCE}'="" FDA(701,"+1,",23)={"GASFLATULENCE"} set:{HEARTBURNINDIGESTIONBELCHING}'="" FDA(701,"+1,",24)={"HEARTBURNINDIGESTIONBELCHING"} set:{JAUNDICE}'="" FDA(701,"+1,",25)={"JAUNDICE"} set:{LOOSEFREQUENT_BOWELMILD}'="" FDA(701,"+1,",26)={"LOOSEFREQUENT_BOWELMILD"} set:{LOSS_OF_APPETITE}'="" FDA(701,"+1,",27)={"LOSS_OF_APPETITE"} set:{PAINCRAMPS_LOWER_ABDOMEN}'="" FDA(701,"+1,",28)={"PAINCRAMPS_LOWER_ABDOMEN"} set:{PAINDISCOMFORT_UPPER_ABDOMEN}'="" FDA(701,"+1,",29)={"PAINDISCOMFORT_UPPER_ABDOMEN"} set:{VOMITING}'="" FDA(701,"+1,",30)={"VOMITING"} set:{BLOOD_IN_URINE}'="" FDA(701,"+1,",31)={"BLOOD_IN_URINE"} set:{URINE_PROTEIN}'="" FDA(701,"+1,",31.1)={"URINE_PROTEIN"} set:{KIDNEY_PROBLEMS}'="" FDA(701,"+1,",31.5)={"KIDNEY_PROBLEMS"} set:{OTHER}'="" FDA(701,"+1,",31.8)={"OTHER"} set:{BURNING_ON_URINATION}'="" FDA(701,"+1,",32)={"BURNING_ON_URINATION"} set:{PREGNANT}'="" FDA(701,"+1,",33)={"PREGNANT"} set:{IRREGULAR_PERIODS}'="" FDA(701,"+1,",34)={"IRREGULAR_PERIODS"} set:{STIFF_IN_THE_MORNING_HOW_LONG}'="" FDA(701,"+1,",35)={"STIFF_IN_THE_MORNING_HOW_LONG"} set:{JOINT_PAIN}'="" FDA(701,"+1,",36)={"JOINT_PAIN"} set:{JOINT_SWELLING}'="" FDA(701,"+1,",37)={"JOINT_SWELLING"} set:{LOW_BACK_PAIN}'="" FDA(701,"+1,",38)={"LOW_BACK_PAIN"} set:{MUSCLE_PAIN}'="" FDA(701,"+1,",39)={"MUSCLE_PAIN"} set:{NECK_PAIN}'="" FDA(701,"+1,",40)={"NECK_PAIN"} set:{NIGHT_PAIN}'="" FDA(701,"+1,",41)={"NIGHT_PAIN"} set:{NUMBNESS_OR_TINGLING}'="" FDA(701,"+1,",42)={"NUMBNESS_OR_TINGLING"} set:{SWELLING_OF_LEGS}'="" FDA(701,"+1,",43)={"SWELLING_OF_LEGS"} set:{WEAKNESS_OF_MUSCLES}'="" FDA(701,"+1,",44)={"WEAKNESS_OF_MUSCLES"} set:{DEPRESSION}'="" FDA(701,"+1,",45)={"DEPRESSION"} set:{INSOMNIA}'="" FDA(701,"+1,",46)={"INSOMNIA"} set:{NERVOUSNESS}'="" FDA(701,"+1,",47)={"NERVOUSNESS"} set:{SEIZURES_OR_CONVULSION}'="" FDA(701,"+1,",48)={"SEIZURES_OR_CONVULSION"} set:{TIREDNESS}'="" FDA(701,"+1,",49)={"TIREDNESS"} set:{TROUBLE_REMEMBERINGTHINKING}'="" FDA(701,"+1,",50)={"TROUBLE_REMEMBERINGTHINKING"} set:{EASY_BRUISING}'="" FDA(701,"+1,",51)={"EASY_BRUISING"} set:{FACIAL_SKIN_TIGHTENING}'="" FDA(701,"+1,",52)={"FACIAL_SKIN_TIGHTENING"} set:{HIVES_OR_WELTS}'="" FDA(701,"+1,",53)={"HIVES_OR_WELTS"} set:{ITCHING}'="" FDA(701,"+1,",54)={"ITCHING"} set:{RASH}'="" FDA(701,"+1,",55)={"RASH"} set:{RASH_OVER_CHEEKS}'="" FDA(701,"+1,",56)={"RASH_OVER_CHEEKS"} set:{SKIN_COLOR_CHANGE_IN_FINGER}'="" FDA(701,"+1,",57)={"SKIN_COLOR_CHANGE_IN_FINGER"} set:{SUN_SENSITIVITY}'="" FDA(701,"+1,",58)={"SUN_SENSITIVITY"} set:{DISCHARGE_FROM_PENIS}'="" FDA(701,"+1,",59)={"DISCHARGE_FROM_PENIS"} set:{IMPOTENCE}'="" FDA(701,"+1,",60)={"IMPOTENCE"} set:{RASHULCERS_ON_PENIS}'="" FDA(701,"+1,",61)={"RASHULCERS_ON_PENIS"} set:{HEIGHT}'="" FDA(701,"+1,",62)={"HEIGHT"} set:{WEIGHT}'="" FDA(701,"+1,",63)={"WEIGHT"} set:{SYSTOLIC_PRESSURE}'="" FDA(701,"+1,",64)={"SYSTOLIC_PRESSURE"} set:{DIASTOLIC_PRESSURE}'="" FDA(701,"+1,",65)={"DIASTOLIC_PRESSURE"} set:{PULSE}'="" FDA(701,"+1,",66)={"PULSE"} set:{UVEITIS}'="" FDA(701,"+1,",67)={"UVEITIS"} set:{UVEITISIRITIS}'="" FDA(701,"+1,",67.5)={"UVEITISIRITIS"} set:{CONJUNCTIVITISEPISCLERITIS}'="" FDA(701,"+1,",67.7)={"CONJUNCTIVITISEPISCLERITIS"} set:{CATARACT}'="" FDA(701,"+1,",68)={"CATARACT"} set:{IRITIS}'="" FDA(701,"+1,",69)={"IRITIS"} set:{ORAL_ULCERS}'="" FDA(701,"+1,",70)={"ORAL_ULCERS"} set:{RALES}'="" FDA(701,"+1,",71)={"RALES"} set:{PLEURAL_RUBCLINICAL_PLEURISY}'="" FDA(701,"+1,",72)={"PLEURAL_RUBCLINICAL_PLEURISY"} set:{PLEURAL_EFFUSION}'="" FDA(701,"+1,",73)={"PLEURAL_EFFUSION"} set:{PERICARDIAL_RUBPERICARDITIS}'="" FDA(701,"+1,",74)={"PERICARDIAL_RUBPERICARDITIS"} set:{SYSTOLIC_MURMUR}'="" FDA(701,"+1,",75)={"SYSTOLIC_MURMUR"} set:{DIASTOLIC_MURMUR}'="" FDA(701,"+1,",76)={"DIASTOLIC_MURMUR"} set:{LYMPH_NODE_ENLARGEMENT}'="" FDA(701,"+1,",77)={"LYMPH_NODE_ENLARGEMENT"} set:{MUSCLE_TENDERNESS}'="" FDA(701,"+1,",78)={"MUSCLE_TENDERNESS"} set:{MUSCLE_WEAKNESSDISTAL}'="" FDA(701,"+1,",79)={"MUSCLE_WEAKNESSDISTAL"} set:{HEPATOMEGALY}'="" FDA(701,"+1,",80)={"HEPATOMEGALY"} set:{SPLENOMEGALY}'="" FDA(701,"+1,",81)={"SPLENOMEGALY"} set:{MUSCLE_WEAKNESSPROXIMAL}'="" FDA(701,"+1,",82)={"MUSCLE_WEAKNESSPROXIMAL"} set:{MUSCLE_ATROPHY}'="" FDA(701,"+1,",83)={"MUSCLE_ATROPHY"} set:{PSYCHOSIS}'="" FDA(701,"+1,",84)={"PSYCHOSIS"} set:{ORGANIC_BRAIN_SYNDROME}'="" FDA(701,"+1,",85)={"ORGANIC_BRAIN_SYNDROME"} set:{MOTOR_NEUROPATHY}'="" FDA(701,"+1,",86)={"MOTOR_NEUROPATHY"} set:{SENSORY_NEUROPATHY}'="" FDA(701,"+1,",87)={"SENSORY_NEUROPATHY"} set:{HELIOTROPE_EYELIDS}'="" FDA(701,"+1,",88)={"HELIOTROPE_EYELIDS"} set:{RASHMALAR}'="" FDA(701,"+1,",89)={"RASHMALAR"} set:{RASHSLENONMALAR}'="" FDA(701,"+1,",89.1)={"RASHSLENONMALAR"} set:{RASHOTHER}'="" FDA(701,"+1,",89.2)={"RASHOTHER"} set:{PSORIASIS}'="" FDA(701,"+1,",90)={"PSORIASIS"} set:{RASHDISCOID}'="" FDA(701,"+1,",91)={"RASHDISCOID"} set:{RASHJRA}'="" FDA(701,"+1,",92)={"RASHJRA"} set:{PALPABLE_PURPURA}'="" FDA(701,"+1,",93)={"PALPABLE_PURPURA"} set:{SCLERODACTYLY}'="" FDA(701,"+1,",94)={"SCLERODACTYLY"} set:{SCLERODERMAEXTREMITY}'="" FDA(701,"+1,",95)={"SCLERODERMAEXTREMITY"} set:{SCLERODERMAGENERALIZED}'="" FDA(701,"+1,",96)={"SCLERODERMAGENERALIZED"} set:{MORPHEA}'="" FDA(701,"+1,",97)={"MORPHEA"} set:{TELANGIECTASIS}'="" FDA(701,"+1,",98)={"TELANGIECTASIS"} set:{CUTANEOUS_VASCULTITIS}'="" FDA(701,"+1,",99)={"CUTANEOUS_VASCULTITIS"} set:{PERIUNGAL_ERYTHEMA}'="" FDA(701,"+1,",100)={"PERIUNGAL_ERYTHEMA"} set:{KERATODERMIA_BLENNORRHAGICA}'="" FDA(701,"+1,",101)={"KERATODERMIA_BLENNORRHAGICA"} set:{KNUCKLE_ERYTHEMA}'="" FDA(701,"+1,",102)={"KNUCKLE_ERYTHEMA"} set:{DIGITAL_ULCERS}'="" FDA(701,"+1,",103)={"DIGITAL_ULCERS"} set:{NAIL_PITTING}'="" FDA(701,"+1,",104)={"NAIL_PITTING"} set:{SKIN_ULCERS}'="" FDA(701,"+1,",105)={"SKIN_ULCERS"} set:{ERYTHEMA_NODOSUM}'="" FDA(701,"+1,",106)={"ERYTHEMA_NODOSUM"} set:{CURRENT_MEDICATION}'="" FDA(701,"+1,",107)={"CURRENT_MEDICATION"} set:{SYMMETRICAL_ARTHRITIS}'="" FDA(701,"+1,",109)={"SYMMETRICAL_ARTHRITIS"} set:{DACTYLITIS}'="" FDA(701,"+1,",110)={"DACTYLITIS"} set:{TOPHI}'="" FDA(701,"+1,",111)={"TOPHI"} set:{SUBCUTANEOUS_NODULES}'="" FDA(701,"+1,",112)={"SUBCUTANEOUS_NODULES"} set:{SUBCUTANEOUS_CALCIFICATIONS}'="" FDA(701,"+1,",112.5)={"SUBCUTANEOUS_CALCIFICATIONS"} set:{SYNOVIAL_BAKERS_CYST}'="" FDA(701,"+1,",113)={"SYNOVIAL_BAKERS_CYST"} set:{HEEL_PAIN}'="" FDA(701,"+1,",114)={"HEEL_PAIN"} set:{TENOSYNOVITISTENDON_RUBS}'="" FDA(701,"+1,",115)={"TENOSYNOVITISTENDON_RUBS"} set:{TEMPORAL_ARTERY_TENDERNESS}'="" FDA(701,"+1,",116)={"TEMPORAL_ARTERY_TENDERNESS"} set:{COSTOCHONDRITIS}'="" FDA(701,"+1,",117)={"COSTOCHONDRITIS"} set:{GRIP_STRENGTHLEFT}'="" FDA(701,"+1,",118)={"GRIP_STRENGTHLEFT"} set:{GRIP_STRENGTHRIGHT}'="" FDA(701,"+1,",119)={"GRIP_STRENGTHRIGHT"} set:{SCHOBER_TEST_10_CM_BASE}'="" FDA(701,"+1,",120)={"SCHOBER_TEST_10_CM_BASE"} set:{CHEST_EXPANSION}'="" FDA(701,"+1,",121)={"CHEST_EXPANSION"} set:{OCCIPUTWALL}'="" FDA(701,"+1,",122)={"OCCIPUTWALL"} set:{FINGERTOPALM_CREASELEFT}'="" FDA(701,"+1,",123)={"FINGERTOPALM_CREASELEFT"} set:{FINGERTOPALM_CREASERIGHT}'="" FDA(701,"+1,",124)={"FINGERTOPALM_CREASERIGHT"} set:{INTERINCISOR_DISTANCE}'="" FDA(701,"+1,",125)={"INTERINCISOR_DISTANCE"} set:{SCHIRMER_TEST}'="" FDA(701,"+1,",126)={"SCHIRMER_TEST"} set:{WALK_TIME_50_FEET}'="" FDA(701,"+1,",127)={"WALK_TIME_50_FEET"} set:{FUNCTIONAL_CLASS_ACR}'="" FDA(701,"+1,",128)={"FUNCTIONAL_CLASS_ACR"} set:{DISEASE_SEVERITYPAT__ESTIMATE}'="" FDA(701,"+1,",129)={"DISEASE_SEVERITYPAT__ESTIMATE"} set:{FINGERSDIP_LEFT}'="" FDA(701,"+1,",130)={"FINGERSDIP_LEFT"} set:{FINGERSDIP_RIGHT}'="" FDA(701,"+1,",131)={"FINGERSDIP_RIGHT"} set:{FINGERSPIP_LEFT}'="" FDA(701,"+1,",132)={"FINGERSPIP_LEFT"} set:{FINGERSPIP_RIGHT}'="" FDA(701,"+1,",133)={"FINGERSPIP_RIGHT"} set:{MCPS_LEFT}'="" FDA(701,"+1,",134)={"MCPS_LEFT"} set:{MCPS_RIGHT}'="" FDA(701,"+1,",135)={"MCPS_RIGHT"} set:{f1ST_CARPOMETACARPAL_L}'="" FDA(701,"+1,",136)={"f1ST_CARPOMETACARPAL_L"} set:{f1ST_CARPOMETACARPAL_R}'="" FDA(701,"+1,",137)={"f1ST_CARPOMETACARPAL_R"} set:{WRIST_LEFT}'="" FDA(701,"+1,",138)={"WRIST_LEFT"} set:{WRIST_RIGHT}'="" FDA(701,"+1,",139)={"WRIST_RIGHT"} set:{ELBOW_LEFT}'="" FDA(701,"+1,",140)={"ELBOW_LEFT"} set:{ELBOW_RIGHT}'="" FDA(701,"+1,",141)={"ELBOW_RIGHT"} set:{SHOULDER_LEFT}'="" FDA(701,"+1,",142)={"SHOULDER_LEFT"} set:{SHOULDER_RIGHT}'="" FDA(701,"+1,",143)={"SHOULDER_RIGHT"} set:{STERNOCLAVICULAR_LEFT}'="" FDA(701,"+1,",144)={"STERNOCLAVICULAR_LEFT"} set:{STERNOCLAVICULAR_RIGHT}'="" FDA(701,"+1,",145)={"STERNOCLAVICULAR_RIGHT"} set:{TMJ_LEFT}'="" FDA(701,"+1,",146)={"TMJ_LEFT"} set:{TMJ_RIGHT}'="" FDA(701,"+1,",147)={"TMJ_RIGHT"} set:{HIP_LEFT}'="" FDA(701,"+1,",148)={"HIP_LEFT"} set:{HIP_RIGHT}'="" FDA(701,"+1,",149)={"HIP_RIGHT"} set:{KNEE_LEFT}'="" FDA(701,"+1,",150)={"KNEE_LEFT"} set:{KNEE_RIGHT}'="" FDA(701,"+1,",151)={"KNEE_RIGHT"} set:{ANKLE_LEFT}'="" FDA(701,"+1,",152)={"ANKLE_LEFT"} set:{ANKLE_RIGHT}'="" FDA(701,"+1,",153)={"ANKLE_RIGHT"} set:{MTP_LEFT}'="" FDA(701,"+1,",154)={"MTP_LEFT"} set:{MTP_RIGHT}'="" FDA(701,"+1,",155)={"MTP_RIGHT"} set:{TOESPIP_LEFT}'="" FDA(701,"+1,",156)={"TOESPIP_LEFT"} set:{TOESPIP_RIGHT}'="" FDA(701,"+1,",157)={"TOESPIP_RIGHT"} set:{CERVICAL_SPINE}'="" FDA(701,"+1,",158)={"CERVICAL_SPINE"} set:{LUMBAR_SPINE}'="" FDA(701,"+1,",159)={"LUMBAR_SPINE"} set:{COSTOCHONDRALLEFT}'="" FDA(701,"+1,",160)={"COSTOCHONDRALLEFT"} set:{COSTOCHONDRALRIGHT}'="" FDA(701,"+1,",161)={"COSTOCHONDRALRIGHT"} set:{SACROILIACLEFT}'="" FDA(701,"+1,",162)={"SACROILIACLEFT"} set:{SACROILIACRIGHT}'="" FDA(701,"+1,",163)={"SACROILIACRIGHT"} set:{THORACIC_SPINE}'="" FDA(701,"+1,",164)={"THORACIC_SPINE"} set:{BPSYSTOLIC}'="" FDA(701,"+1,",295)={"BPSYSTOLIC"} set:{BPDIASTOLIC}'="" FDA(701,"+1,",296)={"BPDIASTOLIC"} set:{DISEASE_ACTIVITY_COMPOSITE}'="" FDA(701,"+1,",297)={"DISEASE_ACTIVITY_COMPOSITE"} set:{DISEASE_SEVERITYPT__ESTIMATE}'="" FDA(701,"+1,",298)={"DISEASE_SEVERITYPT__ESTIMATE"} set:{DISEASE_SEVERITYMD_ESTIMATE}'="" FDA(701,"+1,",299)={"DISEASE_SEVERITYMD_ESTIMATE"} set:{PAINSCAL}'="" FDA(701,"+1,",300)={"PAINSCAL"} set:{DISABILITY_INDEX}'="" FDA(701,"+1,",301)={"DISABILITY_INDEX"} set:{DRESSING_AND_GROOMING}'="" FDA(701,"+1,",302)={"DRESSING_AND_GROOMING"} set:{ARISING}'="" FDA(701,"+1,",303)={"ARISING"} set:{EATING}'="" FDA(701,"+1,",304)={"EATING"} set:{WALK}'="" FDA(701,"+1,",305)={"WALK"} set:{HYGIENE}'="" FDA(701,"+1,",306)={"HYGIENE"} set:{REACH}'="" FDA(701,"+1,",307)={"REACH"} set:{GRIPARA}'="" FDA(701,"+1,",308)={"GRIPARA"} set:{ACTIVITIES}'="" FDA(701,"+1,",309)={"ACTIVITIES"} set:{OCCUPATION}'="" FDA(701,"+1,",312)={"OCCUPATION"} set:{CHART_TYPE}'="" FDA(701,"+1,",313)={"CHART_TYPE"} set:{OBSERVER}'="" FDA(701,"+1,",314)={"OBSERVER"} set:{VISIT_TYPE}'="" FDA(701,"+1,",315)={"VISIT_TYPE"} set:{DEC_NUMBER}'="" FDA(701,"+1,",316)={"DEC_NUMBER"} set:{VISIT_NUMBER}'="" FDA(701,"+1,",317)={"VISIT_NUMBER"} set:{LOST_OR_DEATH_STATUS}'="" FDA(701,"+1,",318)={"LOST_OR_DEATH_STATUS"} set:{DEATH_DATE}'="" FDA(701,"+1,",319)={"DEATH_DATE"} set:{AUTOPSY_AVAILABLE}'="" FDA(701,"+1,",321)={"AUTOPSY_AVAILABLE"} set:{CAUSE_OF_DEATH}'="" FDA(701,"+1,",322)={"CAUSE_OF_DEATH"} set:{NOTIFIED_BY}'="" FDA(701,"+1,",326)={"NOTIFIED_BY"} set:{PERSON_PROVIDING_NOTIFICATION}'="" FDA(701,"+1,",327)={"PERSON_PROVIDING_NOTIFICATION"} set:{DEATH_NOTIFIED_DATE}'="" FDA(701,"+1,",328)={"DEATH_NOTIFIED_DATE"} set:{DISEASE_SEVERITYPHY__ESTIMATE}'="" FDA(701,"+1,",329)={"DISEASE_SEVERITYPHY__ESTIMATE"} set:{LOW_WHITE_BLOOD_COUNT}'="" FDA(701,"+1,",350)={"LOW_WHITE_BLOOD_COUNT"} set:{LOW_PLATELETS}'="" FDA(701,"+1,",351)={"LOW_PLATELETS"} set:{LOW_RED_BLOOD_COUNT}'="" FDA(701,"+1,",352)={"LOW_RED_BLOOD_COUNT"} set:{PROCEDURE_SUMMARY}'="" FDA(701,"+1,",600)={"PROCEDURE_SUMMARY"} set:{SUMMARY}'="" FDA(701,"+1,",601)={"SUMMARY"} set:{QUESTDATE}'="" FDA(701,"+1,",602)={"QUESTDATE"} set:{HAQADMIN}'="" FDA(701,"+1,",603)={"HAQADMIN"} set:{QUESTYPE}'="" FDA(701,"+1,",604)={"QUESTYPE"} set:{STUDY_STATUS}'="" FDA(701,"+1,",605)={"STUDY_STATUS"} set:{DRUGSTY}'="" FDA(701,"+1,",606)={"DRUGSTY"} set:{QUESTNUM}'="" FDA(701,"+1,",607)={"QUESTNUM"} set:{PMSVIS}'="" FDA(701,"+1,",608)={"PMSVIS"} set:{RISE}'="" FDA(701,"+1,",609)={"RISE"} set:{NAUSEA}'="" FDA(701,"+1,",610)={"NAUSEA"} set:{END_SESSION}'="" FDA(701,"+1,",612)={"END_SESSION"} set:{LABORATORY_INFO}'="" FDA(701,"+1,",613)={"LABORATORY_INFO"} set:{LAB_CHEM}'="" FDA(701,"+1,",614)={"LAB_CHEM"} set:{PRIMARY_PROVIDER}'="" FDA(701,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(701,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(701,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(701,"+1,",1001)={"GMRCO"} set:{CREATION_DATE}'="" FDA(701,"+1,",1514)={"CREATION_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(701)") set %SkipFiling=1 if $d(%FMERR(701,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(701)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {PRESCRIBED_MEDICATIONS}'="" { set D0={RowId} for i=1:1:$l({PRESCRIBED_MEDICATIONS},$c(13,10)) { set wp(i)=$p({PRESCRIBED_MEDICATIONS},$c(13,10),i) } do WP^DIE(701,{RowId},108,,"wp","%FMERR(701)") if $d(%FMERR(701,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(701)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {HISTORY_NARRATIVE}'="" { set D0={RowId} for i=1:1:$l({HISTORY_NARRATIVE},$c(13,10)) { set wp(i)=$p({HISTORY_NARRATIVE},$c(13,10),i) } do WP^DIE(701,{RowId},611,,"wp","%FMERR(701)") if $d(%FMERR(701,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(701)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME*C} FDA(701,IENS,.01)={DATETIME} set:{MEDICAL_PATIENT*C} FDA(701,IENS,1)={MEDICAL_PATIENT} set:{BLURRED_VISION*C} FDA(701,IENS,2)={BLURRED_VISION} set:{DIZZINESS*C} FDA(701,IENS,3)={DIZZINESS} set:{DRY_EYES*C} FDA(701,IENS,4)={DRY_EYES} set:{DRY_MOUTH*C} FDA(701,IENS,5)={DRY_MOUTH} set:{FEVER*C} FDA(701,IENS,6)={FEVER} set:{HEADACHE*C} FDA(701,IENS,7)={HEADACHE} set:{HEARING_DIFFICULTIES*C} FDA(701,IENS,8)={HEARING_DIFFICULTIES} set:{INCREASED_SWEATING*C} FDA(701,IENS,9)={INCREASED_SWEATING} set:{NIGHT_SWEATS*C} FDA(701,IENS,9.1)={NIGHT_SWEATS} set:{LOSSCHANGE_IN_TASTE*C} FDA(701,IENS,10)={LOSSCHANGE_IN_TASTE} set:{LOSS_OF_HAIR*C} FDA(701,IENS,11)={LOSS_OF_HAIR} set:{MOUTH_SORES*C} FDA(701,IENS,12)={MOUTH_SORES} set:{REDIRRITATED_EYES*C} FDA(701,IENS,13)={REDIRRITATED_EYES} set:{RINGING_IN_EARS*C} FDA(701,IENS,14)={RINGING_IN_EARS} set:{SORE_THROAT*C} FDA(701,IENS,15)={SORE_THROAT} set:{CHEST_PAINTAKING_DEEP_BREATH*C} FDA(701,IENS,16)={CHEST_PAINTAKING_DEEP_BREATH} set:{SHORTNESS_OF_BREATH*C} FDA(701,IENS,17)={SHORTNESS_OF_BREATH} set:{WHEEZINGASTHMA*C} FDA(701,IENS,18)={WHEEZINGASTHMA} set:{BLKTARRY_STOOLNOT_FROM_IRON*C} FDA(701,IENS,19)={BLKTARRY_STOOLNOT_FROM_IRON} set:{LIVER_PROBLEMS*C} FDA(701,IENS,19.1)={LIVER_PROBLEMS} set:{CONSTIPATION*C} FDA(701,IENS,20)={CONSTIPATION} set:{DIARRHEAFREQUENTWATERY*C} FDA(701,IENS,21)={DIARRHEAFREQUENTWATERY} set:{DIFFICULTY_SWALLOWING*C} FDA(701,IENS,22)={DIFFICULTY_SWALLOWING} set:{GASFLATULENCE*C} FDA(701,IENS,23)={GASFLATULENCE} set:{HEARTBURNINDIGESTIONBELCHING*C} FDA(701,IENS,24)={HEARTBURNINDIGESTIONBELCHING} set:{JAUNDICE*C} FDA(701,IENS,25)={JAUNDICE} set:{LOOSEFREQUENT_BOWELMILD*C} FDA(701,IENS,26)={LOOSEFREQUENT_BOWELMILD} set:{LOSS_OF_APPETITE*C} FDA(701,IENS,27)={LOSS_OF_APPETITE} set:{PAINCRAMPS_LOWER_ABDOMEN*C} FDA(701,IENS,28)={PAINCRAMPS_LOWER_ABDOMEN} set:{PAINDISCOMFORT_UPPER_ABDOMEN*C} FDA(701,IENS,29)={PAINDISCOMFORT_UPPER_ABDOMEN} set:{VOMITING*C} FDA(701,IENS,30)={VOMITING} set:{BLOOD_IN_URINE*C} FDA(701,IENS,31)={BLOOD_IN_URINE} set:{URINE_PROTEIN*C} FDA(701,IENS,31.1)={URINE_PROTEIN} set:{KIDNEY_PROBLEMS*C} FDA(701,IENS,31.5)={KIDNEY_PROBLEMS} set:{OTHER*C} FDA(701,IENS,31.8)={OTHER} set:{BURNING_ON_URINATION*C} FDA(701,IENS,32)={BURNING_ON_URINATION} set:{PREGNANT*C} FDA(701,IENS,33)={PREGNANT} set:{IRREGULAR_PERIODS*C} FDA(701,IENS,34)={IRREGULAR_PERIODS} set:{STIFF_IN_THE_MORNING_HOW_LONG*C} FDA(701,IENS,35)={STIFF_IN_THE_MORNING_HOW_LONG} set:{JOINT_PAIN*C} FDA(701,IENS,36)={JOINT_PAIN} set:{JOINT_SWELLING*C} FDA(701,IENS,37)={JOINT_SWELLING} set:{LOW_BACK_PAIN*C} FDA(701,IENS,38)={LOW_BACK_PAIN} set:{MUSCLE_PAIN*C} FDA(701,IENS,39)={MUSCLE_PAIN} set:{NECK_PAIN*C} FDA(701,IENS,40)={NECK_PAIN} set:{NIGHT_PAIN*C} FDA(701,IENS,41)={NIGHT_PAIN} set:{NUMBNESS_OR_TINGLING*C} FDA(701,IENS,42)={NUMBNESS_OR_TINGLING} set:{SWELLING_OF_LEGS*C} FDA(701,IENS,43)={SWELLING_OF_LEGS} set:{WEAKNESS_OF_MUSCLES*C} FDA(701,IENS,44)={WEAKNESS_OF_MUSCLES} set:{DEPRESSION*C} FDA(701,IENS,45)={DEPRESSION} set:{INSOMNIA*C} FDA(701,IENS,46)={INSOMNIA} set:{NERVOUSNESS*C} FDA(701,IENS,47)={NERVOUSNESS} set:{SEIZURES_OR_CONVULSION*C} FDA(701,IENS,48)={SEIZURES_OR_CONVULSION} set:{TIREDNESS*C} FDA(701,IENS,49)={TIREDNESS} set:{TROUBLE_REMEMBERINGTHINKING*C} FDA(701,IENS,50)={TROUBLE_REMEMBERINGTHINKING} set:{EASY_BRUISING*C} FDA(701,IENS,51)={EASY_BRUISING} set:{FACIAL_SKIN_TIGHTENING*C} FDA(701,IENS,52)={FACIAL_SKIN_TIGHTENING} set:{HIVES_OR_WELTS*C} FDA(701,IENS,53)={HIVES_OR_WELTS} set:{ITCHING*C} FDA(701,IENS,54)={ITCHING} set:{RASH*C} FDA(701,IENS,55)={RASH} set:{RASH_OVER_CHEEKS*C} FDA(701,IENS,56)={RASH_OVER_CHEEKS} set:{SKIN_COLOR_CHANGE_IN_FINGER*C} FDA(701,IENS,57)={SKIN_COLOR_CHANGE_IN_FINGER} set:{SUN_SENSITIVITY*C} FDA(701,IENS,58)={SUN_SENSITIVITY} set:{DISCHARGE_FROM_PENIS*C} FDA(701,IENS,59)={DISCHARGE_FROM_PENIS} set:{IMPOTENCE*C} FDA(701,IENS,60)={IMPOTENCE} set:{RASHULCERS_ON_PENIS*C} FDA(701,IENS,61)={RASHULCERS_ON_PENIS} set:{HEIGHT*C} FDA(701,IENS,62)={HEIGHT} set:{WEIGHT*C} FDA(701,IENS,63)={WEIGHT} set:{SYSTOLIC_PRESSURE*C} FDA(701,IENS,64)={SYSTOLIC_PRESSURE} set:{DIASTOLIC_PRESSURE*C} FDA(701,IENS,65)={DIASTOLIC_PRESSURE} set:{PULSE*C} FDA(701,IENS,66)={PULSE} set:{UVEITIS*C} FDA(701,IENS,67)={UVEITIS} set:{UVEITISIRITIS*C} FDA(701,IENS,67.5)={UVEITISIRITIS} set:{CONJUNCTIVITISEPISCLERITIS*C} FDA(701,IENS,67.7)={CONJUNCTIVITISEPISCLERITIS} set:{CATARACT*C} FDA(701,IENS,68)={CATARACT} set:{IRITIS*C} FDA(701,IENS,69)={IRITIS} set:{ORAL_ULCERS*C} FDA(701,IENS,70)={ORAL_ULCERS} set:{RALES*C} FDA(701,IENS,71)={RALES} set:{PLEURAL_RUBCLINICAL_PLEURISY*C} FDA(701,IENS,72)={PLEURAL_RUBCLINICAL_PLEURISY} set:{PLEURAL_EFFUSION*C} FDA(701,IENS,73)={PLEURAL_EFFUSION} set:{PERICARDIAL_RUBPERICARDITIS*C} FDA(701,IENS,74)={PERICARDIAL_RUBPERICARDITIS} set:{SYSTOLIC_MURMUR*C} FDA(701,IENS,75)={SYSTOLIC_MURMUR} set:{DIASTOLIC_MURMUR*C} FDA(701,IENS,76)={DIASTOLIC_MURMUR} set:{LYMPH_NODE_ENLARGEMENT*C} FDA(701,IENS,77)={LYMPH_NODE_ENLARGEMENT} set:{MUSCLE_TENDERNESS*C} FDA(701,IENS,78)={MUSCLE_TENDERNESS} set:{MUSCLE_WEAKNESSDISTAL*C} FDA(701,IENS,79)={MUSCLE_WEAKNESSDISTAL} set:{HEPATOMEGALY*C} FDA(701,IENS,80)={HEPATOMEGALY} set:{SPLENOMEGALY*C} FDA(701,IENS,81)={SPLENOMEGALY} set:{MUSCLE_WEAKNESSPROXIMAL*C} FDA(701,IENS,82)={MUSCLE_WEAKNESSPROXIMAL} set:{MUSCLE_ATROPHY*C} FDA(701,IENS,83)={MUSCLE_ATROPHY} set:{PSYCHOSIS*C} FDA(701,IENS,84)={PSYCHOSIS} set:{ORGANIC_BRAIN_SYNDROME*C} FDA(701,IENS,85)={ORGANIC_BRAIN_SYNDROME} set:{MOTOR_NEUROPATHY*C} FDA(701,IENS,86)={MOTOR_NEUROPATHY} set:{SENSORY_NEUROPATHY*C} FDA(701,IENS,87)={SENSORY_NEUROPATHY} set:{HELIOTROPE_EYELIDS*C} FDA(701,IENS,88)={HELIOTROPE_EYELIDS} set:{RASHMALAR*C} FDA(701,IENS,89)={RASHMALAR} set:{RASHSLENONMALAR*C} FDA(701,IENS,89.1)={RASHSLENONMALAR} set:{RASHOTHER*C} FDA(701,IENS,89.2)={RASHOTHER} set:{PSORIASIS*C} FDA(701,IENS,90)={PSORIASIS} set:{RASHDISCOID*C} FDA(701,IENS,91)={RASHDISCOID} set:{RASHJRA*C} FDA(701,IENS,92)={RASHJRA} set:{PALPABLE_PURPURA*C} FDA(701,IENS,93)={PALPABLE_PURPURA} set:{SCLERODACTYLY*C} FDA(701,IENS,94)={SCLERODACTYLY} set:{SCLERODERMAEXTREMITY*C} FDA(701,IENS,95)={SCLERODERMAEXTREMITY} set:{SCLERODERMAGENERALIZED*C} FDA(701,IENS,96)={SCLERODERMAGENERALIZED} set:{MORPHEA*C} FDA(701,IENS,97)={MORPHEA} set:{TELANGIECTASIS*C} FDA(701,IENS,98)={TELANGIECTASIS} set:{CUTANEOUS_VASCULTITIS*C} FDA(701,IENS,99)={CUTANEOUS_VASCULTITIS} set:{PERIUNGAL_ERYTHEMA*C} FDA(701,IENS,100)={PERIUNGAL_ERYTHEMA} set:{KERATODERMIA_BLENNORRHAGICA*C} FDA(701,IENS,101)={KERATODERMIA_BLENNORRHAGICA} set:{KNUCKLE_ERYTHEMA*C} FDA(701,IENS,102)={KNUCKLE_ERYTHEMA} set:{DIGITAL_ULCERS*C} FDA(701,IENS,103)={DIGITAL_ULCERS} set:{NAIL_PITTING*C} FDA(701,IENS,104)={NAIL_PITTING} set:{SKIN_ULCERS*C} FDA(701,IENS,105)={SKIN_ULCERS} set:{ERYTHEMA_NODOSUM*C} FDA(701,IENS,106)={ERYTHEMA_NODOSUM} set:{CURRENT_MEDICATION*C} FDA(701,IENS,107)={CURRENT_MEDICATION} set:{SYMMETRICAL_ARTHRITIS*C} FDA(701,IENS,109)={SYMMETRICAL_ARTHRITIS} set:{DACTYLITIS*C} FDA(701,IENS,110)={DACTYLITIS} set:{TOPHI*C} FDA(701,IENS,111)={TOPHI} set:{SUBCUTANEOUS_NODULES*C} FDA(701,IENS,112)={SUBCUTANEOUS_NODULES} set:{SUBCUTANEOUS_CALCIFICATIONS*C} FDA(701,IENS,112.5)={SUBCUTANEOUS_CALCIFICATIONS} set:{SYNOVIAL_BAKERS_CYST*C} FDA(701,IENS,113)={SYNOVIAL_BAKERS_CYST} set:{HEEL_PAIN*C} FDA(701,IENS,114)={HEEL_PAIN} set:{TENOSYNOVITISTENDON_RUBS*C} FDA(701,IENS,115)={TENOSYNOVITISTENDON_RUBS} set:{TEMPORAL_ARTERY_TENDERNESS*C} FDA(701,IENS,116)={TEMPORAL_ARTERY_TENDERNESS} set:{COSTOCHONDRITIS*C} FDA(701,IENS,117)={COSTOCHONDRITIS} set:{GRIP_STRENGTHLEFT*C} FDA(701,IENS,118)={GRIP_STRENGTHLEFT} set:{GRIP_STRENGTHRIGHT*C} FDA(701,IENS,119)={GRIP_STRENGTHRIGHT} set:{SCHOBER_TEST_10_CM_BASE*C} FDA(701,IENS,120)={SCHOBER_TEST_10_CM_BASE} set:{CHEST_EXPANSION*C} FDA(701,IENS,121)={CHEST_EXPANSION} set:{OCCIPUTWALL*C} FDA(701,IENS,122)={OCCIPUTWALL} set:{FINGERTOPALM_CREASELEFT*C} FDA(701,IENS,123)={FINGERTOPALM_CREASELEFT} set:{FINGERTOPALM_CREASERIGHT*C} FDA(701,IENS,124)={FINGERTOPALM_CREASERIGHT} set:{INTERINCISOR_DISTANCE*C} FDA(701,IENS,125)={INTERINCISOR_DISTANCE} set:{SCHIRMER_TEST*C} FDA(701,IENS,126)={SCHIRMER_TEST} set:{WALK_TIME_50_FEET*C} FDA(701,IENS,127)={WALK_TIME_50_FEET} set:{FUNCTIONAL_CLASS_ACR*C} FDA(701,IENS,128)={FUNCTIONAL_CLASS_ACR} set:{DISEASE_SEVERITYPAT__ESTIMATE*C} FDA(701,IENS,129)={DISEASE_SEVERITYPAT__ESTIMATE} set:{FINGERSDIP_LEFT*C} FDA(701,IENS,130)={FINGERSDIP_LEFT} set:{FINGERSDIP_RIGHT*C} FDA(701,IENS,131)={FINGERSDIP_RIGHT} set:{FINGERSPIP_LEFT*C} FDA(701,IENS,132)={FINGERSPIP_LEFT} set:{FINGERSPIP_RIGHT*C} FDA(701,IENS,133)={FINGERSPIP_RIGHT} set:{MCPS_LEFT*C} FDA(701,IENS,134)={MCPS_LEFT} set:{MCPS_RIGHT*C} FDA(701,IENS,135)={MCPS_RIGHT} set:{f1ST_CARPOMETACARPAL_L*C} FDA(701,IENS,136)={f1ST_CARPOMETACARPAL_L} set:{f1ST_CARPOMETACARPAL_R*C} FDA(701,IENS,137)={f1ST_CARPOMETACARPAL_R} set:{WRIST_LEFT*C} FDA(701,IENS,138)={WRIST_LEFT} set:{WRIST_RIGHT*C} FDA(701,IENS,139)={WRIST_RIGHT} set:{ELBOW_LEFT*C} FDA(701,IENS,140)={ELBOW_LEFT} set:{ELBOW_RIGHT*C} FDA(701,IENS,141)={ELBOW_RIGHT} set:{SHOULDER_LEFT*C} FDA(701,IENS,142)={SHOULDER_LEFT} set:{SHOULDER_RIGHT*C} FDA(701,IENS,143)={SHOULDER_RIGHT} set:{STERNOCLAVICULAR_LEFT*C} FDA(701,IENS,144)={STERNOCLAVICULAR_LEFT} set:{STERNOCLAVICULAR_RIGHT*C} FDA(701,IENS,145)={STERNOCLAVICULAR_RIGHT} set:{TMJ_LEFT*C} FDA(701,IENS,146)={TMJ_LEFT} set:{TMJ_RIGHT*C} FDA(701,IENS,147)={TMJ_RIGHT} set:{HIP_LEFT*C} FDA(701,IENS,148)={HIP_LEFT} set:{HIP_RIGHT*C} FDA(701,IENS,149)={HIP_RIGHT} set:{KNEE_LEFT*C} FDA(701,IENS,150)={KNEE_LEFT} set:{KNEE_RIGHT*C} FDA(701,IENS,151)={KNEE_RIGHT} set:{ANKLE_LEFT*C} FDA(701,IENS,152)={ANKLE_LEFT} set:{ANKLE_RIGHT*C} FDA(701,IENS,153)={ANKLE_RIGHT} set:{MTP_LEFT*C} FDA(701,IENS,154)={MTP_LEFT} set:{MTP_RIGHT*C} FDA(701,IENS,155)={MTP_RIGHT} set:{TOESPIP_LEFT*C} FDA(701,IENS,156)={TOESPIP_LEFT} set:{TOESPIP_RIGHT*C} FDA(701,IENS,157)={TOESPIP_RIGHT} set:{CERVICAL_SPINE*C} FDA(701,IENS,158)={CERVICAL_SPINE} set:{LUMBAR_SPINE*C} FDA(701,IENS,159)={LUMBAR_SPINE} set:{COSTOCHONDRALLEFT*C} FDA(701,IENS,160)={COSTOCHONDRALLEFT} set:{COSTOCHONDRALRIGHT*C} FDA(701,IENS,161)={COSTOCHONDRALRIGHT} set:{SACROILIACLEFT*C} FDA(701,IENS,162)={SACROILIACLEFT} set:{SACROILIACRIGHT*C} FDA(701,IENS,163)={SACROILIACRIGHT} set:{THORACIC_SPINE*C} FDA(701,IENS,164)={THORACIC_SPINE} set:{BPSYSTOLIC*C} FDA(701,IENS,295)={BPSYSTOLIC} set:{BPDIASTOLIC*C} FDA(701,IENS,296)={BPDIASTOLIC} set:{DISEASE_ACTIVITY_COMPOSITE*C} FDA(701,IENS,297)={DISEASE_ACTIVITY_COMPOSITE} set:{DISEASE_SEVERITYPT__ESTIMATE*C} FDA(701,IENS,298)={DISEASE_SEVERITYPT__ESTIMATE} set:{DISEASE_SEVERITYMD_ESTIMATE*C} FDA(701,IENS,299)={DISEASE_SEVERITYMD_ESTIMATE} set:{PAINSCAL*C} FDA(701,IENS,300)={PAINSCAL} set:{DISABILITY_INDEX*C} FDA(701,IENS,301)={DISABILITY_INDEX} set:{DRESSING_AND_GROOMING*C} FDA(701,IENS,302)={DRESSING_AND_GROOMING} set:{ARISING*C} FDA(701,IENS,303)={ARISING} set:{EATING*C} FDA(701,IENS,304)={EATING} set:{WALK*C} FDA(701,IENS,305)={WALK} set:{HYGIENE*C} FDA(701,IENS,306)={HYGIENE} set:{REACH*C} FDA(701,IENS,307)={REACH} set:{GRIPARA*C} FDA(701,IENS,308)={GRIPARA} set:{ACTIVITIES*C} FDA(701,IENS,309)={ACTIVITIES} set:{OCCUPATION*C} FDA(701,IENS,312)={OCCUPATION} set:{CHART_TYPE*C} FDA(701,IENS,313)={CHART_TYPE} set:{OBSERVER*C} FDA(701,IENS,314)={OBSERVER} set:{VISIT_TYPE*C} FDA(701,IENS,315)={VISIT_TYPE} set:{DEC_NUMBER*C} FDA(701,IENS,316)={DEC_NUMBER} set:{VISIT_NUMBER*C} FDA(701,IENS,317)={VISIT_NUMBER} set:{LOST_OR_DEATH_STATUS*C} FDA(701,IENS,318)={LOST_OR_DEATH_STATUS} set:{DEATH_DATE*C} FDA(701,IENS,319)={DEATH_DATE} set:{AUTOPSY_AVAILABLE*C} FDA(701,IENS,321)={AUTOPSY_AVAILABLE} set:{CAUSE_OF_DEATH*C} FDA(701,IENS,322)={CAUSE_OF_DEATH} set:{NOTIFIED_BY*C} FDA(701,IENS,326)={NOTIFIED_BY} set:{PERSON_PROVIDING_NOTIFICATION*C} FDA(701,IENS,327)={PERSON_PROVIDING_NOTIFICATION} set:{DEATH_NOTIFIED_DATE*C} FDA(701,IENS,328)={DEATH_NOTIFIED_DATE} set:{DISEASE_SEVERITYPHY__ESTIMATE*C} FDA(701,IENS,329)={DISEASE_SEVERITYPHY__ESTIMATE} set:{LOW_WHITE_BLOOD_COUNT*C} FDA(701,IENS,350)={LOW_WHITE_BLOOD_COUNT} set:{LOW_PLATELETS*C} FDA(701,IENS,351)={LOW_PLATELETS} set:{LOW_RED_BLOOD_COUNT*C} FDA(701,IENS,352)={LOW_RED_BLOOD_COUNT} set:{PROCEDURE_SUMMARY*C} FDA(701,IENS,600)={PROCEDURE_SUMMARY} set:{SUMMARY*C} FDA(701,IENS,601)={SUMMARY} set:{QUESTDATE*C} FDA(701,IENS,602)={QUESTDATE} set:{HAQADMIN*C} FDA(701,IENS,603)={HAQADMIN} set:{QUESTYPE*C} FDA(701,IENS,604)={QUESTYPE} set:{STUDY_STATUS*C} FDA(701,IENS,605)={STUDY_STATUS} set:{DRUGSTY*C} FDA(701,IENS,606)={DRUGSTY} set:{QUESTNUM*C} FDA(701,IENS,607)={QUESTNUM} set:{PMSVIS*C} FDA(701,IENS,608)={PMSVIS} set:{RISE*C} FDA(701,IENS,609)={RISE} set:{NAUSEA*C} FDA(701,IENS,610)={NAUSEA} set:{END_SESSION*C} FDA(701,IENS,612)={END_SESSION} set:{LABORATORY_INFO*C} FDA(701,IENS,613)={LABORATORY_INFO} set:{LAB_CHEM*C} FDA(701,IENS,614)={LAB_CHEM} set:{PRIMARY_PROVIDER*C} FDA(701,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(701,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(701,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(701,IENS,1001)={GMRCO} set:{CREATION_DATE*C} FDA(701,IENS,1514)={CREATION_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(701)") set %SkipFiling=1 if $d(%FMERR(701,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(701)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {PRESCRIBED_MEDICATIONS*C} { set D0={RowId} kill wp if {PRESCRIBED_MEDICATIONS}'="" { set wproot="wp" for i=1:1:$l({PRESCRIBED_MEDICATIONS},$c(13,10)) { set wp(i)=$p({PRESCRIBED_MEDICATIONS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(701,{RowId},108,,wproot,"%FMERR(701)") if $d(%FMERR(701,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(701)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {HISTORY_NARRATIVE*C} { set D0={RowId} kill wp if {HISTORY_NARRATIVE}'="" { set wproot="wp" for i=1:1:$l({HISTORY_NARRATIVE},$c(13,10)) { set wp(i)=$p({HISTORY_NARRATIVE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(701,{RowId},611,,wproot,"%FMERR(701)") if $d(%FMERR(701,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(701)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.RHEUMATOLOGC152S index ^MCAR nonnull 701 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 701 "B" {DATETIME} {IEN} 0]]> index ^MCAR nonnull 701 "C" {MEDICAL_PATIENT} {IEN} 0]]> index ^MCAR nonnull 701 "D" {SSN} {IEN} 0]]> data ^MCAR 701 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 8 21 "^" 5 44 "^" 5 45 "^" 8 15 "^" 9 4 "^" 0 20 "^" 0 32 "^" 0 3 "^" 8 8 "^" 8 7 "^" 0 33 "^" 2 7 "^" 9 5 "^" 5 50 "^" 8 25 "^" 5 13 "^" 0 17 "^" 1 6 "^" 0 21 "^" 1 11 "^" 1 12 "^" 5 9 "^" "ES" 1 "^" 3 1 "^" 2 38 "^" 5 2 "^" 0 1 "^" 9 2 "^" 9 8 "^" 8 28 "^" 0 46 "^" 0 22 "^" 2 15 "^" 2 4 "^" 0 23 "^" 2 42 "^" 8 13 "^" 0 60 "^" 8 9 "^" 8 11 "^" 5 21 "^" 5 52 "^" 8 10 "^" 0 4 "^" 8 14 "^" 0 67 "^" 0 5 "^" 0 6 "^" 0 52 "^" 8 16 "^" 5 32 "^" 5 33 "^" 12 1 "^" 2 45 "^" 0 53 "^" 0 7 "^" 5 22 "^" 5 23 "^" 5 24 "^" 5 25 "^" 5 15 "^" 5 16 "^" 5 20 "^" 0 24 "^" "OR" 2 "^" 8 20 "^" 5 10 "^" 5 11 "^" 0 64 "^" 0 8 "^" 0 9 "^" 0 25 "^" 5 6 "^" 2 1 "^" 2 27 "^" 2 19 "^" 5 40 "^" 5 41 11 new data,i,node set {HISTORY_NARRATIVE}="" merge data=^MCAR(701,{S2},11) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {HISTORY_NARRATIVE}={HISTORY_NARRATIVE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 54 "^" 8 18 "^" 0 61 "^" 0 10 "^" 0 47 "^" 5 17 "^" 2 8 "^" 0 35 "^" 0 55 "^" 0 26 "^" 0 37 "^" 0 38 "^" 2 40 "^" 1 4 "^" 5 42 "^" 5 43 "^" 2 41 "^" 12 2 "^" 12 3 "^" 1 2 "^" 0 27 "^" 0 11 "^" 0 28 "^" 0 12 "^" 9 1 "^" 0 39 "^" 10 2 "^" 10 3 "^" 10 1 "^" 5 51 "^" 2 16 "^" 5 26 "^" 5 27 "^" 0 2 "^" 2 36 "^" 2 25 "^" 0 13 "^" 5 46 "^" 5 47 "^" 2 22 "^" 0 40 "^" 2 17 "^" 2 18 "^" 2 21 "^" 2 43 "^" 0 71 "^" 0 41 "^" 0 48 "^" 0 42 "^" 1 1 "^" 9 6 "^" 0 43 "^" 8 26 "^" 5 14 "^" 8 24 "^" 2 9 "^" 2 24 "^" "OR" 1 "^" 1 10 "^" 0 29 "^" 0 30 "^" 8 12 "^" 2 32 "^" "PCC" 1 "^" 2 13 "^" 2 39 "^" 9 7 "^" 2 12 "^" 2 11 "^" 0 69 "^" 0 34 4 new data,i,node set {PRESCRIBED_MEDICATIONS}="" merge data=^MCAR(701,{S2},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PRESCRIBED_MEDICATIONS}={PRESCRIBED_MEDICATIONS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "PROV" 1 "^" .2 2 "^" 2 29 "^" 2 23 "^" 2 5 "^" 0 63 "^" 0 68 "^" 0 65 "^" 2 10 "^" 0 56 "^" 2 30 "^" 2 31 "^" 2 28 "^" 1 8 "^" 1 7 "^" 0 62 "^" 0 57 "^" 8 19 "^" 0 14 "^" 0 15 "^" 0 70 "^" 1 13 "^" 1 14 "^" 5 18 "^" 5 12 "^" 2 33 "^" 2 34 "^" 2 35 "^" 0 49 "^" 2 26 "^" 0 18 "^" 5 34 "^" 5 35 "^" 0 58 "^" 2 44 "^" 0 16 "^" 2 20 "^" 5 36 "^" 5 37 "^" 0 36 "^" 0 66 "^" 1 9 "^" 5 4 "^" .2 1 "^" 0 59 "^" 0 44 "^" 5 1 "^" 5 5 "^" 2 14 "^" 2 3 "^" 2 37 "^" 5 8 "^" 5 7 "^" 1 15 "^" 0 50 "^" 5 38 "^" 5 39 "^" 5 48 "^" 5 49 "^" 5 3 "^" 0 51 "^" 1 3 "^" 2 6 "^" 1 5 "^" 8 29 "^" 8 27 "^" 0 31 "^" 8 17 "^" 5 19 "^" 0 45 "^" 2 2 "^" 0 19 "^" 5 30 "^" 5 31 "^" 5 28 "^" 5 29 Generated class for FileMan File Number: '405.4' File Name: 'ROOM-BED' Class generated by %fm2class version 2.56 This file contains all room-beds found at your site as well as data about our-of-service periods for those beds. This file is maintained by the site. persistent _PUBLIC 0 RowId ROOMBED_405_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.359201331 67178,44716.26208231 right ROOM-BED 405.4 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'CURRENTLY OUT-OF-SERVICE?' FileMan Field Number: '.2' Is this bed currently unavailable? This field is computed based on data in the OUT-OF-SERVICE DATE multiple. %Library.Numeric 1 4 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D RIN^DGPMDDCF set {CURRENTLY_OUTOFSERVICE}=X 1 CURRENTLY_OUTOFSERVICE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(405.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter the name of the room-bed you are adding. Should be in the format ROOM-BED. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(405.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(405.4,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(405.4)") set %SkipFiling=1 if $d(%FMERR(405.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(405.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(405.4,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(405.4)") set %SkipFiling=1 if $d(%FMERR(405.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(405.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.ROOMBED4054S index ^DG nonnull 405.4 "B" {NAME} {IEN} 0]]> data ^DG 405.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '19.1' File Name: 'SECURITY KEY' Class generated by %fm2class version 2.56 This file holds the names of security keys that are used to lock options. To lock an option, the name of the key is entered in the Lock field of the Option File. To permit a user to unlock the option, the user's name is entered in the Holder field of this file. It is cross-referenced by name and holder. persistent _PUBLIC 0 RowId SECURITY_KEY_19_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.387011901 67178,44716.296536568 right SECURITY KEY 19.1 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' This is a short description of the security key, indicating what the key locks out, and what class of users should be assigned the key. %Library.String 8 DESCRIPTION FileMan Field Label: 'DESCRIPTIVE NAME' FileMan Field Number: '.02' This is a more descriptive name for the KEY than allowed in the namespaced name field. %Library.String 4 DESCRIPTIVE_NAME FileMan Field Label: 'GRANTING CONDITION' FileMan Field Number: '4' This is MUMPS code that set $T true if its OK for the person to be granted this key. %Library.String 1 10 s {GRANTING_CONDITION}=$e({NODE_4},1,245) 1 GRANTING_CONDITION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(19.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'KEEP AT TERMINATE' FileMan Field Number: '.04' If this field is set to YES (1) then this key will not be removed from a user in the New Person file when they are terminated. One example is the 'PROVIDER' key. %Library.EnumString 6 KEEP_AT_TERMINATE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the key, beginning with the package prefix Each entry in this File is the name of a key that defines some characteristic or capability for individual specified users. The capability might be access to some OPTION (file 19) which is permited with the authorization. Other functionalities (such as allowing scheduling overbook) might also be allowed only if the key is held. Keys are named with the standard package prefix formats; a 2-4 character package prefix for standard names or Z. %Library.String 1 3 NAME Computed Field For Node 4 %Library.String 1 9 s {NODE_4}=$g(^DIC(19.1,{IEN},4)) 1 NODE_4 so that a package can lookup members of a group. There is a standard SECURITY KEY that will be sent out of 'PROVIDER' with the lookup flag set. Then a package can do a lookup of PROVIDER's with the following code: S DIC="^VA(200,",D="AK.PROVIDER",DIC(0)="AEQ" D IX^DIC]]> %Library.EnumString 5 PERSON_LOOKUP FileMan Field Label: 'SEND TO J2EE' FileMan Field Number: '.05' This field controls if this is a Security Key that should be sent to the J2EE application server for temporary role assignment. If this field is set to 'Yes' then this Security Key can be sent to the application server. %Library.EnumString 7 SEND_TO_J2EE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(19.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(19.1,"+1,",.01)={"NAME"} set:{DESCRIPTIVE_NAME}'="" FDA(19.1,"+1,",.02)={"DESCRIPTIVE_NAME"} set:{PERSON_LOOKUP}'="" FDA(19.1,"+1,",.03)={"PERSON_LOOKUP"} set:{KEEP_AT_TERMINATE}'="" FDA(19.1,"+1,",.04)={"KEEP_AT_TERMINATE"} set:{SEND_TO_J2EE}'="" FDA(19.1,"+1,",.05)={"SEND_TO_J2EE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(19.1)") set %SkipFiling=1 if $d(%FMERR(19.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(19.1,{RowId},1,,"wp","%FMERR(19.1)") if $d(%FMERR(19.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(19.1,IENS,.01)={NAME} set:{DESCRIPTIVE_NAME*C} FDA(19.1,IENS,.02)={DESCRIPTIVE_NAME} set:{PERSON_LOOKUP*C} FDA(19.1,IENS,.03)={PERSON_LOOKUP} set:{KEEP_AT_TERMINATE*C} FDA(19.1,IENS,.04)={KEEP_AT_TERMINATE} set:{SEND_TO_J2EE*C} FDA(19.1,IENS,.05)={SEND_TO_J2EE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.1)") set %SkipFiling=1 if $d(%FMERR(19.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(19.1,{RowId},1,,wproot,"%FMERR(19.1)") if $d(%FMERR(19.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SECURITYKEY191S index ^DIC nonnull 19.1 "B" {NAME} {IEN} 0]]> data ^DIC 19.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 new data,i,node set {DESCRIPTION}="" merge data=^DIC(19.1,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 "^" 0 4 "^" 0 1 "^" 0 3 "^" 0 5 Generated class for FileMan File Number: '696' File Name: 'SEGMENT OF CORONARY ARTERIES' Class generated by %fm2class version 2.56 This file stores the coronary artery segments for use by the CATHETERIZATION file. persistent _PUBLIC 0 RowId SEGMENT_OF_CORONARY_ARTERIES_696 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.420838277 67178,44716.333033639 right SEGMENT OF CORONARY ARTERIES 696 2.56 12/04/2024 12:25:16 1 1 IEN 1 TOPOGRAPHY_FIELD_61]]> TOPOGRAPHY VALIP.prosthetic.fm2cw.TOPOGRAPHYFIELD61 FKey_TOPOGRAPHY FileMan Field Label: 'CODE' FileMan Field Number: '1' This field is used as a screen to separate RCA, LAD, and Circumflex segments. %Library.EnumString 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(696,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module. %Library.String 1 3 NAME FileMan Field Label: 'TOPOGRAPHY' FileMan Field Number: '2' This field is a link to the Laboratory Topography Field file. VALIP.prosthetic.fm2cw.TOPOGRAPHYFIELD61 5 TOPOGRAPHY NAME The name of the specimen or source.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SEGMENT_OF_CORONARY_ARTERIES_696 where %ID=:id) set {TOPOGRAPHY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TOPOGRAPHY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(696," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(696,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(696,"+1,",1)={"CODE"} set:{TOPOGRAPHY}'="" FDA(696,"+1,",2)={"TOPOGRAPHY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(696)") set %SkipFiling=1 if $d(%FMERR(696,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(696,IENS,.01)={NAME} set:{CODE*C} FDA(696,IENS,1)={CODE} set:{TOPOGRAPHY*C} FDA(696,IENS,2)={TOPOGRAPHY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696)") set %SkipFiling=1 if $d(%FMERR(696,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(696)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SEGMENTOFCO87CCS index ^MCAR nonnull 696 "B" {NAME} {IEN} 0]]> data ^MCAR 696 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '49' File Name: 'SERVICE/SECTION' Class generated by %fm2class version 2.56 This file is a list of the services and sections within the services. Some of the entries may be 'MIS COSTING SECTIONS' for use with the cost accounting part of the Management Information System software. A section is an MIS section if there is a code entered in the field called MIS COSTING CODE. In the cost accounting system all medical center costs will be tied to a particular section. When MIS sections change, do not delete the old section. Instead, change the fields under the multiple field called "DATE CLOSED" to identify which sections are no longer in use. persistent _PUBLIC 0 RowId SERVICESECTION_49 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.459727482 67178,44716.368433573 right SERVICE/SECTION 49 2.56 12/04/2024 12:25:16 1 1 IEN 1 NEW_PERSON_200]]> ASSTCHIEF VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ASST_CHIEF NEW_PERSON_200]]> CHIEF VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CHIEF NEW_PERSON_200]]> COORDINATORIRM VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_COORDINATOR_IRM NATIONAL_SERVICE_730]]> NATIONALSERVICE VALIP.prosthetic.fm2cw.NATIONALSERVICE730 FKey_NATIONAL_SERVICE SERVICESECTION_49]]> PARENTSERVICE VALIP.prosthetic.fm2cw.SERVICESECTION49 FKey_PARENT_SERVICE FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains the accepted abbreviation for this service or section. %Library.String 4 ABBREVIATION FileMan Field Label: 'AMBULATORY CARE FLAG' FileMan Field Number: '12' This field contains the ambulatory care flag. Yes or No for this sertice or section. %Library.EnumString 15 AMBULATORY_CARE_FLAG FileMan Field Label: 'ASST CHIEF' FileMan Field Number: '4' This field contains a pointer to the name of the assistant chief of this service or section. VALIP.prosthetic.fm2cw.NEWPERSON200 10 ASST_CHIEF NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SERVICESECTION_49 where %ID=:id) set {ASST_CHIEF_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ASST_CHIEF_NAME 1 FileMan Field Label: 'CHIEF' FileMan Field Number: '2' This field contains a pointer to the name of the chief of this service or section. VALIP.prosthetic.fm2cw.NEWPERSON200 9 CHIEF NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SERVICESECTION_49 where %ID=:id) set {CHIEF_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CHIEF_NAME 1 FileMan Field Label: 'COORDINATOR (IRM)' FileMan Field Number: '16000' This field is used by kernel to link a NEW PERSON entry through the service/section pointer back to a New Person entry for access help. VALIP.prosthetic.fm2cw.NEWPERSON200 17 COORDINATOR_IRM NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SERVICESECTION_49 where %ID=:id) set {COORDINATOR_IRM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COORDINATOR_IRM_NAME 1 FileMan Field Label: 'COST CENTER' FileMan Field Number: '10' This field contains the cost center name for this service section. The cost center must be defined in the IFCAP Cost Center File 420.1. %Library.String 13 COST_CENTER FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1.3' This field contains a brief description or the mission of this service or section. %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(49,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LOCATION' FileMan Field Number: '6' This field contains the physical location of this service or section (i.e., room number). %Library.String 11 LOCATION FileMan Field Label: 'MAIL SYMBOL' FileMan Field Number: '1.5' This field contains the accepted mail routing symbol for the service or section. %Library.String 6 MAIL_SYMBOL FileMan Field Label: 'MIS COSTING CODE' FileMan Field Number: '9' This field contains the Management Information Cost Accounting code for this service or section. %Library.String 12 MIS_COSTING_CODE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter Service or Section name. %Library.String 1 3 NAME FileMan Field Label: 'NATIONAL SERVICE' FileMan Field Number: '730' This field is a pointer to the National Service File #730, and is Used to link the locally built 'Service/Section' file to the standardized list of nationally recognized services. VALIP.prosthetic.fm2cw.NATIONALSERVICE730 16 NATIONAL_SERVICE NAME SERVICE NAME Free-text name of this national service.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SERVICESECTION_49 where %ID=:id) set {NATIONAL_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NATIONAL_SERVICE_NAME 1 FileMan Field Label: 'PARENT SERVICE' FileMan Field Number: '1.6' This field contains a pointer to the name of the service or section which is "parent" to this section. VALIP.prosthetic.fm2cw.SERVICESECTION49 7 PARENT_SERVICE NAME Enter Service or Section name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SERVICESECTION_49 where %ID=:id) set {PARENT_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PARENT_SERVICE_NAME 1 Relationship for Sub-File/Multiple to file name ASST CHIEF PHONE child VALIP.prosthetic.fm2cw.SUBASSTCHIEFPHONE4905 children SERVICESECTION49 1 SUB_ASST_CHIEF_PHONE_49_05 Relationship for Sub-File/Multiple to file name CHIEF PHONE child VALIP.prosthetic.fm2cw.SUBCHIEFPHONE4904 children SERVICESECTION49 1 SUB_CHIEF_PHONE_49_04 Relationship for Sub-File/Multiple to file name DATE CLOSED child VALIP.prosthetic.fm2cw.SUBDATECLOSED4907 children SERVICESECTION49 1 SUB_DATE_CLOSED_49_07 FileMan Field Label: 'TYPE OF COSTING SECTION' FileMan Field Number: '11' This field contains the type of management information cost accounting section for this service or section. %Library.EnumString 14 TYPE_OF_COSTING_SECTION FileMan Field Label: 'TYPE OF SERVICE' FileMan Field Number: '1.7' This flag indicates the type of each entry in this file. Services or sub-services may be marked as Administrative or for Patient Care. %Library.EnumString 8 TYPE_OF_SERVICE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 18 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(49," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(49,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(49,"+1,",1)={"ABBREVIATION"} set:{MAIL_SYMBOL}'="" FDA(49,"+1,",1.5)={"MAIL_SYMBOL"} set:{PARENT_SERVICE}'="" FDA(49,"+1,",1.6)={"PARENT_SERVICE"} set:{TYPE_OF_SERVICE}'="" FDA(49,"+1,",1.7)={"TYPE_OF_SERVICE"} set:{CHIEF}'="" FDA(49,"+1,",2)={"CHIEF"} set:{ASST_CHIEF}'="" FDA(49,"+1,",4)={"ASST_CHIEF"} set:{LOCATION}'="" FDA(49,"+1,",6)={"LOCATION"} set:{MIS_COSTING_CODE}'="" FDA(49,"+1,",9)={"MIS_COSTING_CODE"} set:{COST_CENTER}'="" FDA(49,"+1,",10)={"COST_CENTER"} set:{TYPE_OF_COSTING_SECTION}'="" FDA(49,"+1,",11)={"TYPE_OF_COSTING_SECTION"} set:{AMBULATORY_CARE_FLAG}'="" FDA(49,"+1,",12)={"AMBULATORY_CARE_FLAG"} set:{NATIONAL_SERVICE}'="" FDA(49,"+1,",730)={"NATIONAL_SERVICE"} set:{COORDINATOR_IRM}'="" FDA(49,"+1,",16000)={"COORDINATOR_IRM"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(49)") set %SkipFiling=1 if $d(%FMERR(49,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(49)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(49,{RowId},1.3,,"wp","%FMERR(49)") if $d(%FMERR(49,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(49)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(49,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(49,IENS,1)={ABBREVIATION} set:{MAIL_SYMBOL*C} FDA(49,IENS,1.5)={MAIL_SYMBOL} set:{PARENT_SERVICE*C} FDA(49,IENS,1.6)={PARENT_SERVICE} set:{TYPE_OF_SERVICE*C} FDA(49,IENS,1.7)={TYPE_OF_SERVICE} set:{CHIEF*C} FDA(49,IENS,2)={CHIEF} set:{ASST_CHIEF*C} FDA(49,IENS,4)={ASST_CHIEF} set:{LOCATION*C} FDA(49,IENS,6)={LOCATION} set:{MIS_COSTING_CODE*C} FDA(49,IENS,9)={MIS_COSTING_CODE} set:{COST_CENTER*C} FDA(49,IENS,10)={COST_CENTER} set:{TYPE_OF_COSTING_SECTION*C} FDA(49,IENS,11)={TYPE_OF_COSTING_SECTION} set:{AMBULATORY_CARE_FLAG*C} FDA(49,IENS,12)={AMBULATORY_CARE_FLAG} set:{NATIONAL_SERVICE*C} FDA(49,IENS,730)={NATIONAL_SERVICE} set:{COORDINATOR_IRM*C} FDA(49,IENS,16000)={COORDINATOR_IRM} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(49)") set %SkipFiling=1 if $d(%FMERR(49,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(49)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(49,{RowId},1.3,,wproot,"%FMERR(49)") if $d(%FMERR(49,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(49)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SERVICESECTAB18S index ^DIC nonnull 49 "A1" {NATIONAL_SERVICE} {IEN} 0]]> index {COST_CENTER}'="" 1 ^DIC conditional 49 "AC" $$TRUNCATE({COST_CENTER},30)) {IEN} 0]]> index ^DIC nonnull 49 "ACHLD" {PARENT_SERVICE} {IEN} 0]]> index ^DIC nonnull 49 "AE" {COORDINATOR_IRM} {IEN} 0]]> index ^DIC nonnull 49 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 49 "C" {ABBREVIATION} {IEN} 0]]> index ^DIC nonnull 49 "D" {MAIL_SYMBOL} {IEN} 0]]> index ^DIC nonnull 49 "E" {MIS_COSTING_CODE} {IEN} 0]]> index ^DIC nonnull 49 "F" {TYPE_OF_SERVICE} {IEN} 0]]> data ^DIC 49 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 2 4 "^" 0 5 "^" 0 3 "^" 16000 1 "^" 2 2 1 new data,i,node set {DESCRIPTION}="" merge data=^DIC(49,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 7 "^" 0 8 "^" 2 1 "^" 0 1 "^" 730 1 "^" 0 4 "^" 2 3 "^" 0 9 Generated class for FileMan File Number: '444.2' File Name: 'SIC CODE' Class generated by %fm2class version 2.56 This file contains the Standard Industrial Classification Codes, which are used to classify organizations by economic activity. persistent _PUBLIC 0 RowId SIC_CODE_444_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.421149761 67178,44716.413333326 right SIC CODE 444.2 2.56 12/04/2024 12:25:16 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRC(444.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the Standard Industrial Classification Code and Name, which are used to classify organizations by economic activity. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRC(444.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(444.2,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(444.2)") set %SkipFiling=1 if $d(%FMERR(444.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(444.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(444.2,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(444.2)") set %SkipFiling=1 if $d(%FMERR(444.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(444.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SICCODE4442S index {NAME}'="" 1 ^PRC conditional 444.2 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^PRC 444.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '135.2' File Name: 'SKIN INTEGRITY' Class generated by %fm2class version 2.56 This file contains entries describing the skin integrity of a patient before and after the operative procedure. It is distributed with pre- supplied entries, however sites may wish to make additions to it. persistent _PUBLIC 0 RowId SKIN_INTEGRITY_135_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.510692526 67178,44716.449072185 right SKIN INTEGRITY 135.2 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the assessment of the patient's skin integrity. %Library.String 1 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(135.2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to make this entry inactive and to prevent its selection and use within the Surgery Package. %Library.EnumString 5 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Skin Integrity Name This field is the name used for the assessment of the patient's skin integrity. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(135.2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(135.2,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(135.2,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(135.2,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(135.2)") set %SkipFiling=1 if $d(%FMERR(135.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(135.2,IENS,.01)={NAME} set:{CODE*C} FDA(135.2,IENS,1)={CODE} set:{INACTIVE*C} FDA(135.2,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(135.2)") set %SkipFiling=1 if $d(%FMERR(135.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SKININTEGRI3742S index ^SRO nonnull 135.2 "B" {NAME} {IEN} 0]]> index ^SRO nonnull 135.2 "C" {CODE} {IEN} 0]]> data ^SRO 135.2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '135.1' File Name: 'SKIN PREP AGENTS' Class generated by %fm2class version 2.56 This file contains solutions used as skin prep agents for a surgical procedure. It is pointed to by the field SKIN PREP AGENT in the Surgery file. The file is distributed with pre-supplied entries, however sites may wish to make additions to it. persistent _PUBLIC 0 RowId SKIN_PREP_AGENTS_135_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.519401964 67178,44716.484647313 right SKIN PREP AGENTS 135.1 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the skin preparation agent name. %Library.String 1 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(135.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to make this entry inactive and to prevent its selection and use by users of the Surgery Package. %Library.EnumString 5 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name of the Skin Preparation Agent This is the name of the agent used to prepare the skin prior to the operative procedure. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(135.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(135.1,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(135.1,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(135.1,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(135.1)") set %SkipFiling=1 if $d(%FMERR(135.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(135.1,IENS,.01)={NAME} set:{CODE*C} FDA(135.1,IENS,1)={CODE} set:{INACTIVE*C} FDA(135.1,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(135.1)") set %SkipFiling=1 if $d(%FMERR(135.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SKINPREPAGE178AS index ^SRO nonnull 135.1 "B" {NAME} {IEN} 0]]> index ^SRO nonnull 135.1 "C" {CODE} {IEN} 0]]> data ^SRO 135.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '420.8' File Name: 'SOURCE CODE' Class generated by %fm2class version 2.56 The codes used in this file designate a broad category defining the procurement source for goods. The codes are used to update centralized reporting for procurement and define either specific government sources such as DEPOT and GSA, or ways of procuring goods from outside sources, such as whether or not they are purchased using a government contract. persistent _PUBLIC 0 RowId SOURCE_CODE_420_8 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.537806045 67178,44716.521019326 right SOURCE CODE 420.8 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '3' This is the abbreviation for the code. %Library.String 6 ABBREVIATION FileMan Field Label: 'AGENCY CODE' FileMan Field Number: '4' This field is used for federal receiving reports. %Library.String 7 AGENCY_CODE FileMan Field Label: 'CODE' FileMan Field Number: '.01' This is the code identifying the procurement source for goods. The code is used to update centralized reporting for procurement and define either specific government sources (i.e., Depot, GSA), or methods of procuring goods from external sources (i.e., goods procured via government contract). %Library.String 1 3 CODE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' This is the description of the source code. %Library.String 1 4 DESCRIPTION FileMan Field Label: 'FISCAL EQUIV.' FileMan Field Number: '2' This is the fiscal equivalent for this code. %Library.Numeric 5 FISCAL_EQUIV_ Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCD(420.8,0),""^"",3)") 1 2 IEN SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCD(420.8," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CODE}'="" FDA(420.8,"+1,",.01)={"CODE"} set:{DESCRIPTION}'="" FDA(420.8,"+1,",1)={"DESCRIPTION"} set:{FISCAL_EQUIV_}'="" FDA(420.8,"+1,",2)={"FISCAL_EQUIV_"} set:{ABBREVIATION}'="" FDA(420.8,"+1,",3)={"ABBREVIATION"} set:{AGENCY_CODE}'="" FDA(420.8,"+1,",4)={"AGENCY_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(420.8)") set %SkipFiling=1 if $d(%FMERR(420.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CODE*C} FDA(420.8,IENS,.01)={CODE} set:{DESCRIPTION*C} FDA(420.8,IENS,1)={DESCRIPTION} set:{FISCAL_EQUIV_*C} FDA(420.8,IENS,2)={FISCAL_EQUIV_} set:{ABBREVIATION*C} FDA(420.8,IENS,3)={ABBREVIATION} set:{AGENCY_CODE*C} FDA(420.8,IENS,4)={AGENCY_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(420.8)") set %SkipFiling=1 if $d(%FMERR(420.8,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.8)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SOURCECODE4208S index ^PRCD nonnull 420.8 "B" {CODE} {IEN} 0]]> index ^PRCD nonnull 420.8 "C" {ABBREVIATION} {IEN} 0]]> data ^PRCD 420.8 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 5 "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan File Number: '440.45' File Name: 'SOURCE MFG/STOCK NUMBER' Class generated by %fm2class version 2.56 This file contains a list of possible sources for manufacturer's part numbers and vendor stock numbers. persistent _PUBLIC 0 RowId SOURCE_MFGSTOCK_NUMBER_440_45 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.423315204 67178,44716.557094185 right SOURCE MFG/STOCK NUMBER 440.45 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '.01' This is the identifier for the organization from whom the manufacturer's part number or vendor's stock number was obtained. %Library.String 1 3 ABBREVIATION FileMan Field Label: 'EXPANDED NAME' FileMan Field Number: '1' The is the full name of the source. %Library.String 4 EXPANDED_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRC(440.45,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE' FileMan Field Number: '2' This field will enable screening an entry from selection when the source is no longer available. %Library.EnumString 5 INACTIVE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRC(440.45," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{ABBREVIATION}'="" FDA(440.45,"+1,",.01)={"ABBREVIATION"} set:{EXPANDED_NAME}'="" FDA(440.45,"+1,",1)={"EXPANDED_NAME"} set:{INACTIVE}'="" FDA(440.45,"+1,",2)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(440.45)") set %SkipFiling=1 if $d(%FMERR(440.45,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440.45)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{ABBREVIATION*C} FDA(440.45,IENS,.01)={ABBREVIATION} set:{EXPANDED_NAME*C} FDA(440.45,IENS,1)={EXPANDED_NAME} set:{INACTIVE*C} FDA(440.45,IENS,2)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(440.45)") set %SkipFiling=1 if $d(%FMERR(440.45,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440.45)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SOURCEMFGST192BS index ^PRC nonnull 440.45 "B" {ABBREVIATION} {IEN} 0]]> data ^PRC 440.45 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan File Number: '47.76' File Name: 'SOURCE OF NOTIFICATIONS' Class generated by %fm2class version 2.56 This file contains all of the allowable Source of Notifications that are available for identifying who first notified the VA of a patient's death. NOTE: The first nine (9) entries exported in this file will correlate to the SET OF CODES that this file is replacing. persistent _PUBLIC 0 RowId SOURCE_OF_NOTIFICATIONS_47_76 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.544710832 67178,44716.593165813 right SOURCE OF NOTIFICATIONS 47.76 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'ACTIVE?' FileMan Field Number: '2' The ACTIVE value indicates whether the SOURCE OF NOTIFICATION is active (1) and available for selection or is historical (0) and is NOT available for selection. %Library.EnumString 5 ACTIVE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(47.76,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NOTIFICATION CODE' FileMan Field Number: '1' The code that uniquely identifies the SOURCE OF NOTIFICATION record. %Library.Numeric 4 NOTIFICATION_CODE FileMan Field Label: 'SOURCE OF NOTIFICATION' FileMan Field Number: '.01' The SOURCE OF NOTIFICATION field identifies the entity who first notified the VA of the patient's death. %Library.String 1 3 SOURCE_OF_NOTIFICATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(47.76," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SOURCE_OF_NOTIFICATION}'="" FDA(47.76,"+1,",.01)={"SOURCE_OF_NOTIFICATION"} set:{NOTIFICATION_CODE}'="" FDA(47.76,"+1,",1)={"NOTIFICATION_CODE"} set:{ACTIVE}'="" FDA(47.76,"+1,",2)={"ACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(47.76)") set %SkipFiling=1 if $d(%FMERR(47.76,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(47.76)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SOURCE_OF_NOTIFICATION*C} FDA(47.76,IENS,.01)={SOURCE_OF_NOTIFICATION} set:{NOTIFICATION_CODE*C} FDA(47.76,IENS,1)={NOTIFICATION_CODE} set:{ACTIVE*C} FDA(47.76,IENS,2)={ACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(47.76)") set %SkipFiling=1 if $d(%FMERR(47.76,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(47.76)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SOURCEOFNOT958ES index ^DG nonnull 47.76 "B" {SOURCE_OF_NOTIFICATION} {IEN} 0]]> index ^DG nonnull 47.76 "C" {NOTIFICATION_CODE} {IEN} 0]]> data ^DG 47.76 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '42.4' File Name: 'SPECIALTY' Class generated by %fm2class version 2.56 This file contains recognized PTF treating specialties. This file was previous called 'MED SPECIALTY/BEDSECTION' file. persistent _PUBLIC 0 RowId SPECIALTY_42_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.568362665 67178,44716.629618216 right SPECIALTY 42.4 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'ASK PSYCHIATRIC QUESTIONS?' FileMan Field Number: '4' This field will be checked in PTF to determine if psychiatric axis questions will be asked for this treating specialty. %Library.EnumString 7 ASK_PSYCHIATRIC_QUESTIONS Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(42.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MPCR ACCOUNT' FileMan Field Number: '6' This field contains the Monthly Program Cost Account number that is associated with the treating specialty assigned to any given ward. The MPCR account number is used for workload purposes. | %Library.Numeric 8 MPCR_ACCOUNT FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the specialties allowable for selection through PTF. All FACILITY TREATING SPECIALTIES must relate to one of the entries in this file. This file is maintained by the MAS package and should not be altered in any way. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field contains the IFN of the SPECIALTY record. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'PRINT NAME' FileMan Field Number: '1' This field will contain an abbreviated name of this specialty. This print name will be printed on outputs where the full name of the specialty would not fit. %Library.String 5 PRINT_NAME FileMan Field Label: 'PTF CODE' FileMan Field Number: '7' This field contains the PTF code for this entry. It is created by the MAS module and VA Fileman. Editing of data in this file or additions/deletions to this file will have negative impact on the operations of the PTF software module. %Library.String 9 PTF_CODE FileMan Field Label: 'SERVICE' FileMan Field Number: '3' This field contains the name of the service that this specialty is related to. Choose from the available choices. %Library.EnumString 6 SERVICE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(42.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(42.4,"+1,",.01)={"NAME"} set:{PRINT_NAME}'="" FDA(42.4,"+1,",1)={"PRINT_NAME"} set:{SERVICE}'="" FDA(42.4,"+1,",3)={"SERVICE"} set:{ASK_PSYCHIATRIC_QUESTIONS}'="" FDA(42.4,"+1,",4)={"ASK_PSYCHIATRIC_QUESTIONS"} set:{MPCR_ACCOUNT}'="" FDA(42.4,"+1,",6)={"MPCR_ACCOUNT"} set:{PTF_CODE}'="" FDA(42.4,"+1,",7)={"PTF_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(42.4)") set %SkipFiling=1 if $d(%FMERR(42.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(42.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(42.4,IENS,.01)={NAME} set:{PRINT_NAME*C} FDA(42.4,IENS,1)={PRINT_NAME} set:{SERVICE*C} FDA(42.4,IENS,3)={SERVICE} set:{ASK_PSYCHIATRIC_QUESTIONS*C} FDA(42.4,IENS,4)={ASK_PSYCHIATRIC_QUESTIONS} set:{MPCR_ACCOUNT*C} FDA(42.4,IENS,6)={MPCR_ACCOUNT} set:{PTF_CODE*C} FDA(42.4,IENS,7)={PTF_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(42.4)") set %SkipFiling=1 if $d(%FMERR(42.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(42.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.SPECIALTY424S index ^DIC nonnull 42.4 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 42.4 "C" {PTF_CODE} {IEN} 0]]> data ^DIC 42.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 "^" 0 6 "^" 0 1 "^" 0 2 "^" 0 7 "^" 0 3 Generated class for FileMan File Number: '5' File Name: 'STATE' Class generated by %fm2class version 2.56 This file contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I, Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office. persistent _PUBLIC 0 RowId STATE_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.572190598 67178,44716.666896594 right STATE 5 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'AAC RECOGNIZED' FileMan Field Number: '2.1' This field designates whether or not the Austin Automation Center(AAC) recognizes this State. %Library.EnumString 7 AAC_RECOGNIZED FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains the recognized abbreviation for the state. This abbreviation is transmitted to Austin from various DHCP packages and therefore should not be altered unless you are directed to do so. %Library.String 5 ABBREVIATION FileMan Field Label: 'CAPITAL' FileMan Field Number: '5' This field contains the name of the capital city for this state. %Library.String 9 CAPITAL Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field contains the internal entry number of the state. In most cases, this should also correspond to the VA STATE CODE field. %Library.String 1 3 Set {*}={IEN} 1 NUMBER Relationship for Sub-File/Multiple to file name COUNTY child VALIP.prosthetic.fm2cw.SUBCOUNTY501 children STATE5 1 SUB_COUNTY_5_01 FileMan Field Label: 'US STATE OR POSSESSION' FileMan Field Number: '2.2' This field designates if this entry is a US State or United Sates possession. %Library.EnumString 8 US_STATE_OR_POSSESSION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VA STATE CODE' FileMan Field Number: '2' This is a numeric code (2 characters in length) which many packages transmit as to Austin to represent the state a patient resides or receives treatment in. This value should not be altered OR IT COULD SERVERELY AND ADVERSELY AFFECT OPERATIONS AT YOUR MEDICAL CENTER. %Library.String 6 VA_STATE_CODE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(5,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(5,"+1,",1)={"ABBREVIATION"} set:{VA_STATE_CODE}'="" FDA(5,"+1,",2)={"VA_STATE_CODE"} set:{AAC_RECOGNIZED}'="" FDA(5,"+1,",2.1)={"AAC_RECOGNIZED"} set:{US_STATE_OR_POSSESSION}'="" FDA(5,"+1,",2.2)={"US_STATE_OR_POSSESSION"} set:{CAPITAL}'="" FDA(5,"+1,",5)={"CAPITAL"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(5)") set %SkipFiling=1 if $d(%FMERR(5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(5,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(5,IENS,1)={ABBREVIATION} set:{VA_STATE_CODE*C} FDA(5,IENS,2)={VA_STATE_CODE} set:{AAC_RECOGNIZED*C} FDA(5,IENS,2.1)={AAC_RECOGNIZED} set:{US_STATE_OR_POSSESSION*C} FDA(5,IENS,2.2)={US_STATE_OR_POSSESSION} set:{CAPITAL*C} FDA(5,IENS,5)={CAPITAL} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(5)") set %SkipFiling=1 if $d(%FMERR(5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic.fm2cw.STATE5S index ^DIC nonnull 5 "B" {NAME} {IEN} 0]]> data ^DIC 5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" 0 2 "^" 0 4 "^" 0 1 "^" 0 6 "^" 0 3 Generated class for FileMan File Number: '445.4' File Name: 'STORAGE LOCATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId STORAGE_LOCATION_445_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.44348785 67178,44716.705011743 right STORAGE LOCATION 445.4 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'EXPANDED DESCRIPTION' FileMan Field Number: '2' This is a description of the storage location code. %Library.String 4 EXPANDED_DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCP(445.4,0),""^"",3)") 1 2 IEN FileMan Field Label: 'STORAGE LOCATION' FileMan Field Number: '.01' This file is used by the Generic Inventory Package. Storage locations can be defined by each Inventory Point for their own use. An example of a storage location could be a Room no., Bin location, Shelf, etc. NOTE: Several reports (picking document, issue books, etc.) use the storage location as a sort field. In order to sort correctly, make sure that numeric fields are zero filled to the number of characters in the largest value for the field. Ex. for a storage location with section 1 to 50, bins 1 to 100, shelves 1 to 6, a storage location of section 5, bin 2, shelf 3 would be 05-002-3. %Library.String 1 3 STORAGE_LOCATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCP(445.4," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{STORAGE_LOCATION}'="" FDA(445.4,"+1,",.01)={"STORAGE_LOCATION"} set:{EXPANDED_DESCRIPTION}'="" FDA(445.4,"+1,",2)={"EXPANDED_DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(445.4)") set %SkipFiling=1 if $d(%FMERR(445.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{STORAGE_LOCATION*C} FDA(445.4,IENS,.01)={STORAGE_LOCATION} set:{EXPANDED_DESCRIPTION*C} FDA(445.4,IENS,2)={EXPANDED_DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.4)") set %SkipFiling=1 if $d(%FMERR(445.4,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(445.4)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.STORAGELOCA9111S index ^PRCP nonnull 445.4 "B" {STORAGE_LOCATION} {IEN} 0]]> data ^PRCP 445.4 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.019900003' Sub-File/Multiple Name: '3M CODES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_3M_CODES_130_019900003 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.19445009 67178,44716.807749442 right 3M CODES 130.019900003 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: '3M CODE' FileMan Field Number: '.01' These are the Ambulatory Surgical Codes or the APC codes returned by the 3M Coding and Reimbursement System. %Library.String 1 3 f3M_CODE FileMan Field Label: '3M CODE PERCENT' FileMan Field Number: '5' This is the Discount Percent for this ASC/APC code. %Library.String 7 f3M_CODE_PERCENT FileMan Field Label: '3M CODE TYPE' FileMan Field Number: '.03' This field will identify what type of codes are in use for this record. %Library.EnumString 4 f3M_CODE_TYPE FileMan Field Label: '3M CODE WEIGHT' FileMan Field Number: '3' This is the weight of the ASC/APC that is returned by the 3M Coding and Reimbursement System. %Library.String 6 f3M_CODE_WEIGHT FileMan Field Label: '3M DESCRIPTION' FileMan Field Number: '2' This is the ASC/APC code text that is returned by the 3M Coding and Reimbursement System. %Library.String 5 f3M_DESCRIPTION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUB3MCODES130019900003 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",19900001,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{f3M_CODE*C} FDA(130.019900003,IENS,.01)={f3M_CODE} set:{f3M_CODE_TYPE*C} FDA(130.019900003,IENS,.03)={f3M_CODE_TYPE} set:{f3M_DESCRIPTION*C} FDA(130.019900003,IENS,2)={f3M_DESCRIPTION} set:{f3M_CODE_WEIGHT*C} FDA(130.019900003,IENS,3)={f3M_CODE_WEIGHT} set:{f3M_CODE_PERCENT*C} FDA(130.019900003,IENS,5)={f3M_CODE_PERCENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.019900003)") set %SkipFiling=1 if $d(%FMERR(130.019900003,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.019900003,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUB3MCODES1AAC8S index ^SRF nonnull {SURGERY_130.IEN} 0]]> 19900001 "B" {f3M_CODE} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 19900001 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 5 "^" 0 9 "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.032' Sub-File/Multiple Name: 'ACCESSIBLE FILE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ACCESSIBLE_FILE_200_032 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.193704554 67178,44716.845205594 right ACCESSIBLE FILE 200.032 2.56 12/04/2024 12:25:16 1 1 IEN 1 FILE_1]]> ACCESSIBLEFILE VALIP.prosthetic.fm2cw.FILE1 FKey_ACCESSIBLE_FILE FileMan Field Label: 'ACCESSIBLE FILE' FileMan Field Number: '.01' This is name of file the user may have access. VALIP.prosthetic.fm2cw.FILE1 1 4 ACCESSIBLE_FILE NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ACCESSIBLE_FILE_200_032 where %ID=:id) set {ACCESSIBLE_FILE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ACCESSIBLE_FILE_NAME 1 FileMan Field Label: 'AUDIT ACCESS' FileMan Field Number: '6' This field is a flag that, when set to 1, gives the user audit access to the file (in the .01 field) represented in this record. %Library.EnumString 10 AUDIT_ACCESS FileMan Field Label: 'DATA DICTIONARY ACCESS' FileMan Field Number: '1' This field is a flag that, when set to 1, gives the user data dictionary access to the file (in the .01 field) represented in this record. %Library.EnumString 5 DATA_DICTIONARY_ACCESS FileMan Field Label: 'DELETE ACCESS' FileMan Field Number: '2' This field is a flag that, when set to 1, gives the user delete access to the file (in the .01 field) represented in this record. %Library.EnumString 6 DELETE_ACCESS FileMan Field Label: 'FILE NUMBER' FileMan Field Number: '.001' When defined, this field makes the sub-file's internal entry number accessible for inquiry and edit. %Library.String 1 3 Set {*}={IEN} 1 FILE_NUMBER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LAYGO ACCESS' FileMan Field Number: '3' This field is a flag that, when set to 1, gives the user LAYGO access to the file (in the .01 field) represented in this record. %Library.EnumString 7 LAYGO_ACCESS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBACCESSIBLEFILE200032 1 1 NEW_PERSON_200 FileMan Field Label: 'READ ACCESS' FileMan Field Number: '4' This field is a flag that, when set to 1, gives the user read access to the file (in the .01 field) represented in this record. %Library.EnumString 8 READ_ACCESS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WRITE ACCESS' FileMan Field Number: '5' This field is a flag that, when set to 1, gives the user write access to the file (in the .01 field) represented in this record. %Library.EnumString 9 WRITE_ACCESS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""FOF"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ACCESSIBLE_FILE*C} FDA(200.032,IENS,.01)={ACCESSIBLE_FILE} set:{DATA_DICTIONARY_ACCESS*C} FDA(200.032,IENS,1)={DATA_DICTIONARY_ACCESS} set:{DELETE_ACCESS*C} FDA(200.032,IENS,2)={DELETE_ACCESS} set:{LAYGO_ACCESS*C} FDA(200.032,IENS,3)={LAYGO_ACCESS} set:{READ_ACCESS*C} FDA(200.032,IENS,4)={READ_ACCESS} set:{WRITE_ACCESS*C} FDA(200.032,IENS,5)={WRITE_ACCESS} set:{AUDIT_ACCESS*C} FDA(200.032,IENS,6)={AUDIT_ACCESS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.032)") set %SkipFiling=1 if $d(%FMERR(200.032,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.032,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBACCESSIB6659S index ^VA nonnull 200 "AFOF" {ACCESSIBLE_FILE} {NEW_PERSON_200.IEN} 0]]> {IEN} 0]]> index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "FOF" "B" {ACCESSIBLE_FILE} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "FOF" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 7 "^" 0 2 "^" 0 3 "^" 0 4 "^" 0 5 "^" 0 6 Generated class for FileMan Sub-File/Multiple Number: '668.011' Sub-File/Multiple Name: 'ACTION DATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ACTION_DATE_668_011 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.602341015 67178,44716.88379559 right ACTION DATE 668.011 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'ACTION DATE' FileMan Field Number: '.01' This is the date an Other Action Note was created. %Library.FilemanTimeStamp 1 3 ACTION_DATE FileMan Field Label: 'ACTION NOTE' FileMan Field Number: '1' This is an action note, must be after the Initial Action Note. If this is a CPRS suspense then this will be recorded in the Consult. %Library.String 4 ACTION_NOTE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETIC SUSPENSE) VALIP.prosthetic.fm2cw.PROSTHETICSUSPENSE668 parent SUBACTIONDATE668011 1 1 PROSTHETIC_SUSPENSE_668 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_SUSPENSE_668},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_SUSPENSE_668},"||",i) } set DIK="^RMPR(668,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ACTION_DATE*C} FDA(668.011,IENS,.01)={ACTION_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(668.011)") set %SkipFiling=1 if $d(%FMERR(668.011,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(668.011,""DIERR"") for details" RETURN } if {ACTION_NOTE*C} { set D0={RowId} kill wp if {ACTION_NOTE}'="" { set wproot="wp" for i=1:1:$l({ACTION_NOTE},$c(13,10)) { set wp(i)=$p({ACTION_NOTE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(668.011,{IENS},1,,wproot,"%FMERR(668.011)") if $d(%FMERR(668.011,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(668.011)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBACTIONDATE4ES index ^RMPR nonnull 668 {PROSTHETIC_SUSPENSE_668.IEN} 0]]> 1 "B" {ACTION_DATE} {IEN} 0]]> data ^RMPR 668 {PROSTHETIC_SUSPENSE_668.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 1 new data,i,node set {ACTION_NOTE}="" merge data=^RMPR(668,{S2},1,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {ACTION_NOTE}={ACTION_NOTE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} Generated class for FileMan Sub-File/Multiple Number: '445.02' Sub-File/Multiple Name: 'ADDITIONAL STORAGE LOCATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ADDITIONAL_STORAGE_LOCATION_445_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.63884565 67178,44716.920570134 right ADDITIONAL STORAGE LOCATION 445.02 2.56 12/04/2024 12:25:16 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBADDITIONALSTORAGELOCATION44502 1 1 SUB_INVENTORY_ITEM_445_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.02)") set %SkipFiling=1 if $d(%FMERR(445.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBADDITION10B3S data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 1 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '80.012' Sub-File/Multiple Name: 'AGE HIGH' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AGE_HIGH_80_012 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.187350637 67178,44716.955541123 right AGE HIGH 80.012 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'AGE HIGH' FileMan Field Number: '1' This is the maximun age value for an age range for which the code can be applied. Blank otherwise. %Library.Numeric 4 AGE_HIGH FileMan Field Label: 'AGE HIGH EFFECTIVE DATE' FileMan Field Number: '.01' The date that the AGE HIGH limit was effective. %Library.FilemanDate 1 3 AGE_HIGH_EFFECTIVE_DATE Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBAGEHIGH80012 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",7,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AGE_HIGH_EFFECTIVE_DATE*C} FDA(80.012,IENS,.01)={AGE_HIGH_EFFECTIVE_DATE} set:{AGE_HIGH*C} FDA(80.012,IENS,1)={AGE_HIGH} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.012)") set %SkipFiling=1 if $d(%FMERR(80.012,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.012,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAGEHIGH83D8ES index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 7 "B" {AGE_HIGH_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 7 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.011' Sub-File/Multiple Name: 'AGE LOW' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AGE_LOW_80_011 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.19031749 67178,44716.991544014 right AGE LOW 80.011 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'AGE LOW' FileMan Field Number: '1' This is the minimum age value for an age range for which the code can be applied. Blank otherwise. %Library.Numeric 4 AGE_LOW FileMan Field Label: 'AGE LOW EFFECTIVE DATE' FileMan Field Number: '.01' The date that the AGE LOW limit was effective. %Library.FilemanDate 1 3 AGE_LOW_EFFECTIVE_DATE Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBAGELOW80011 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AGE_LOW_EFFECTIVE_DATE*C} FDA(80.011,IENS,.01)={AGE_LOW_EFFECTIVE_DATE} set:{AGE_LOW*C} FDA(80.011,IENS,1)={AGE_LOW} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.011)") set %SkipFiling=1 if $d(%FMERR(80.011,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.011,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SUBAGELOW80011S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 6 "B" {AGE_LOW_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 6 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.194' Sub-File/Multiple Name: 'ALERT DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ALERT_DATETIME_200_194 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.221580696 67178,44717.027966131 right ALERT DATE/TIME 200.194 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ACTION FLAG' FileMan Field Number: '.05' This flag is optional at the present time, since the need for action processing can be determined by the presence of an option name or a routine name for use during alert processing. %Library.EnumString 7 ACTION_FLAG FileMan Field Label: 'ALERT DATE TIME' FileMan Field Number: '.01' This is the date and time when the alert was generated. %Library.FilemanTimeStamp 1 3 ALERT_DATE_TIME FileMan Field Label: 'AROUTINE NAME' FileMan Field Number: '.08' If this field is not null, it contains the name of a routine which is to be used when the alert is processed. If there is also a value in field #.07, that value is used as an entry point into the routine specified in this field. If this field is null, field #.07 is interpreted as an option name which is to be used when the alert is processed. If both this field and field #.07 are null, the alert is processed as an information only alert. %Library.String 10 AROUTINE_NAME FileMan Field Label: 'DATA STRING' FileMan Field Number: '1' %Library.String 1 14 s {DATA_STRING}=$e({NODE_1},1,245) 1 DATA_STRING FileMan Field Label: 'ENTRY POINT' FileMan Field Number: '.07' While named ENTRY POINT, this is a dual function field. If the next field (#.08, AROUTINE NAME) contains a routine name, this field contains the desired entry point within that routine (this field may also be null, indicating that the entry point should be at the top of the routine). If field #.08 is null, then the contents of this field is interpreted as the name of an option which is to be entered when the alert is processed. %Library.String 9 ENTRY_POINT FileMan Field Label: 'FIRST DATA PIECE' FileMan Field Number: '.1' This field and all following ^-separated fields are processed as a single entity and are returned in the variable XQADATA for use by the application which generated the alert. The package may pass a series of variables using any desired separator in the variable XQADATA at the time the alert is setup. When the alert is processed the value of XQADATA is returned to the application and may be used to establish parameters related to the alert without requiring interaction or provision of information by the user. In this way information related to patient entry number, specific internal numbers for the desired data, etc may be stored and returned. %Library.String 12 FIRST_DATA_PIECE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MESSAGE TEXT' FileMan Field Number: '.03' This field contains the text of the message to be presented to the user at the time when he cycles through the menu system the first time after the alert has been filed for the user, and when the user selects the VIEW ALERTS option. %Library.String 5 MESSAGE_TEXT FileMan Field Label: 'NEW ALERT FLAG' FileMan Field Number: '.04' This flag is used by the alert processing to indicate a new alert which has not previously been presented to the user. After the alert message text has been shown to the user, this flag is cleared and the user must then select the VIEW ALERTS option to process the alert. %Library.EnumString 6 NEW_ALERT_FLAG Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBALERTDATETIME200194 1 1 NEW_PERSON_200 Computed Field For Node 1 %Library.String 1 13 s {NODE_1}=$g(^VA(200,$p({RowId},"||"),"XQA",{IEN},1)) 1 NODE_1 FileMan Field Label: 'PACKAGE ID' FileMan Field Number: '.02' This is a field in which the package id passed during alert filing. This id may simply be a package namespace, or it may be a namespace followed by additional data to more accurately identify the type or purpose of the alert. %Library.String 4 PACKAGE_ID FileMan Field Label: 'RESERVED1' FileMan Field Number: '.06' This field is reserved for future use by the alert system. %Library.String 8 RESERVED1 FileMan Field Label: 'RESERVED FIELD' FileMan Field Number: '.09' This field is reserved for future use in the alert processing system. %Library.String 11 RESERVED_FIELD SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 15 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""XQA"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ALERT_DATE_TIME*C} FDA(200.194,IENS,.01)={ALERT_DATE_TIME} set:{PACKAGE_ID*C} FDA(200.194,IENS,.02)={PACKAGE_ID} set:{MESSAGE_TEXT*C} FDA(200.194,IENS,.03)={MESSAGE_TEXT} set:{NEW_ALERT_FLAG*C} FDA(200.194,IENS,.04)={NEW_ALERT_FLAG} set:{ACTION_FLAG*C} FDA(200.194,IENS,.05)={ACTION_FLAG} set:{RESERVED1*C} FDA(200.194,IENS,.06)={RESERVED1} set:{ENTRY_POINT*C} FDA(200.194,IENS,.07)={ENTRY_POINT} set:{AROUTINE_NAME*C} FDA(200.194,IENS,.08)={AROUTINE_NAME} set:{RESERVED_FIELD*C} FDA(200.194,IENS,.09)={RESERVED_FIELD} set:{FIRST_DATA_PIECE*C} FDA(200.194,IENS,.1)={FIRST_DATA_PIECE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.194)") set %SkipFiling=1 if $d(%FMERR(200.194,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.194,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBALERTDAT6161S data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "XQA" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 5 "^" 0 1 "^" 0 8 "^" 0 7 "^" 0 10 "^" 0 3 "^" 0 4 "^" 0 2 "^" 0 6 "^" 0 9 Generated class for FileMan Sub-File/Multiple Number: '200.04' Sub-File/Multiple Name: 'ALIAS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ALIAS_200_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.219150722 67178,44717.066743374 right ALIAS 200.04 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ALIAS' FileMan Field Number: '.01' %Library.String 1 3 ALIAS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBALIAS20004 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ALIAS*C} FDA(200.04,IENS,.01)={ALIAS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.04)") set %SkipFiling=1 if $d(%FMERR(200.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.SUBALIAS20004S index {ALIAS}'="" 1 ^VA conditional 200 "BB" $$TRUNCATE({ALIAS},30)) {NEW_PERSON_200.IEN} 0]]> {IEN} 0]]> index {ALIAS}'="" 1 ^VA conditional 200 {NEW_PERSON_200.IEN} 0]]> 3 "B" $$TRUNCATE({ALIAS},30)) {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.01' Sub-File/Multiple Name: 'ALIAS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ALIAS_2_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.225184365 67178,44717.102652323 right ALIAS 2.01 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ALIAS' FileMan Field Number: '.01' Enter the alias name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 1 3 ALIAS FileMan Field Label: 'ALIAS SSN' FileMan Field Number: '1' If the patient was also known under a name other than that listed in the NAME field of the PATIENT file, enter the social security number used when the patient used this alias. %Library.String 4 ALIAS_SSN Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBALIAS201 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.01,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ALIAS*C} FDA(2.01,IENS,.01)={ALIAS} set:{ALIAS_SSN*C} FDA(2.01,IENS,1)={ALIAS_SSN} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.01)") set %SkipFiling=1 if $d(%FMERR(2.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBALIAS201S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .01 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.196' Sub-File/Multiple Name: 'ALLOWABLE NEW MENU PREFIX' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ALLOWABLE_NEW_MENU_PREFIX_200_196 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.256024418 67178,44717.138798594 right ALLOWABLE NEW MENU PREFIX 200.196 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ALLOWABLE NEW MENU PREFIX' FileMan Field Number: '.01' This menu prefix, used by the delegate to create local options, can be in one of two forms: An assigned local namespace beginning with the letter "A", such as A6A (preferred), or a package namespace, such as LR to which the user must add the letter "Z", .e.g. LRZ, (discouraged) to avoid conflict with national releases. %Library.String 1 3 ALLOWABLE_NEW_MENU_PREFIX Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBALLOWABLENEWMENUPREFIX200196 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",19.6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ALLOWABLE_NEW_MENU_PREFIX*C} FDA(200.196,IENS,.01)={ALLOWABLE_NEW_MENU_PREFIX} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.196)") set %SkipFiling=1 if $d(%FMERR(200.196,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.196,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBALLOWABL5752S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 19.6 "B" {ALLOWABLE_NEW_MENU_PREFIX} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 19.6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '.8501' Sub-File/Multiple Name: 'ALTERNATE NAME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ALTERNATE_NAME__8501 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.246639938 67178,44717.17496779 right ALTERNATE NAME .8501 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ALTERNATE NAME' FileMan Field Number: '.01' This field contains other synonyms for a language. E.g. for Greek, synonyms include Ellinika and Romaic. %Library.String 1 3 ALTERNATE_NAME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name LANGUAGE) VALIP.prosthetic.fm2cw.LANGUAGE85 parent SUBALTERNATENAME8501 1 1 LANGUAGE__85 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({LANGUAGE__85},"||"):-1:1 { set DA($i(c))=$p({LANGUAGE__85},"||",i) } set DIK="^DI(.85,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ALTERNATE_NAME*C} FDA(.8501,IENS,.01)={ALTERNATE_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(.8501)") set %SkipFiling=1 if $d(%FMERR(.8501,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(.8501,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBALTERNAT1889S index {ALTERNATE_NAME}'="" 1 ^DI conditional .85 {LANGUAGE__85.IEN} 0]]> 1 "B" $$TRUNCATE({ALTERNATE_NAME},30)) {IEN} 0]]> index {ALTERNATE_NAME}'="" 1 ^DI conditional .85 "F" $$TRUNCATE({ALTERNATE_NAME},30)) {LANGUAGE__85.IEN} 0]]> {IEN} 0]]> data ^DI .85 {LANGUAGE__85.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '668.82' Sub-File/Multiple Name: 'AMIS GROUPER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AMIS_GROUPER_668_82 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.602704748 67178,44717.211489777 right AMIS GROUPER 668.82 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'AMIS GROUPER' FileMan Field Number: '.01' This is the amis grouper as it appears in file#660. %Library.String 1 3 AMIS_GROUPER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETIC SUSPENSE) VALIP.prosthetic.fm2cw.PROSTHETICSUSPENSE668 parent SUBAMISGROUPER66882 1 1 PROSTHETIC_SUSPENSE_668 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_SUSPENSE_668},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_SUSPENSE_668},"||",i) } set DIK="^RMPR(668,"_DA(1)_",11,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AMIS_GROUPER*C} FDA(668.82,IENS,.01)={AMIS_GROUPER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(668.82)") set %SkipFiling=1 if $d(%FMERR(668.82,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(668.82,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAMISGROU8B33S index ^RMPR nonnull 668 {PROSTHETIC_SUSPENSE_668.IEN} 0]]> 11 "B" {AMIS_GROUPER} {IEN} 0]]> index ^RMPR nonnull 668 "G" {AMIS_GROUPER} {PROSTHETIC_SUSPENSE_668.IEN} 0]]> {IEN} 0]]> data ^RMPR 668 {PROSTHETIC_SUSPENSE_668.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 11 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.213' Sub-File/Multiple Name: 'ANES CARE TIME BLOCK' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ANES_CARE_TIME_BLOCK_130_213 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.252325922 67178,44717.296615815 right ANES CARE TIME BLOCK 130.213 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ANES CARE MULTIPLE END TIME' FileMan Field Number: '1' Anesthesia Care Multiple End Time This is the date and time that anesthesia care ends or is interrupted. Its definition may vary according to local anesthesia policy. It ends when the anesthesia practitioner is no longer furnishing anesthesia services to the patient, that is, when the patient may be placed safely under postoperative care. %Library.FilemanTimeStamp 4 ANES_CARE_MULTIPLE_END_TIME FileMan Field Label: 'ANES CARE MULTIPLE START TIME' FileMan Field Number: '.01' Anesthesia Care Multiple Start Time This is the date and time that this block of anesthesia care began or if the care is interrupted, the time the care resumed. It is required as part of the anesthesia report. The definition of what constitutes the time anesthesia care begins may vary depending on local anesthesia policy. Anesthesia care starts when the anesthesia practitioner begins to prepare the patient for anesthesia services in the operating room or an equivalent area. %Library.FilemanTimeStamp 1 3 ANES_CARE_MULTIPLE_START_TIME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBANESCARETIMEBLOCK130213 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",50,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ANES_CARE_MULTIPLE_START_TIME*C} FDA(130.213,IENS,.01)={ANES_CARE_MULTIPLE_START_TIME} set:{ANES_CARE_MULTIPLE_END_TIME*C} FDA(130.213,IENS,1)={ANES_CARE_MULTIPLE_END_TIME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.213)") set %SkipFiling=1 if $d(%FMERR(130.213,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.213,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBANESCAREDF2DS index ^SRF nonnull {SURGERY_130.IEN} 0]]> 50 "B" {ANES_CARE_MULTIPLE_START_TIME} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 50 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.3513' Sub-File/Multiple Name: 'ANES CONCURRENT CASES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ANES_CONCURRENT_CASES_130_3513 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.26753105 67178,44717.333517077 right ANES CONCURRENT CASES 130.3513 2.56 12/04/2024 12:25:17 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBANESCONCURRENTCASES1303513 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",55,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.3513)") set %SkipFiling=1 if $d(%FMERR(130.3513,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.3513,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBANESCONC8190S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 55 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '130.06' Sub-File/Multiple Name: 'ANESTHESIA TECHNIQUE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ANESTHESIA_TECHNIQUE_130_06 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.293673581 67178,44717.248262191 right ANESTHESIA TECHNIQUE 130.06 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ADMINISTRATION METHOD' FileMan Field Number: '36' Method of Administration This is the code corresponding to the method of administration of the anesthetic agent. This information is not required. %Library.EnumString 36 ADMINISTRATION_METHOD FileMan Field Label: 'ANESTHESIA COMMENTS' FileMan Field Number: '40' Anesthesia Comments These are comments related to anesthesia care for this case. %Library.String 38 ANESTHESIA_COMMENTS FileMan Field Label: 'ANESTHESIA TECHNIQUE' FileMan Field Number: '.01' Anesthesia Technique This is the anesthesia technique used during this case corresponding to the American Board of Anesthesiologists universal list of anesthesia techniques (except for REGIONAL, LOCAL and NO ANESTHESIA). If entered, this information will appear on various anesthesia reports. Select regional for peripheral nerve blocks or other techniques other than spinal or epidural. %Library.EnumString 1 3 ANESTHESIA_TECHNIQUE FileMan Field Label: 'APPROACH' FileMan Field Number: '3' Approach Technique This is the code corresponding to the approach technique used for endotracheal intubation. This information is not required, but may be useful for documentation. %Library.EnumString 6 APPROACH FileMan Field Label: 'BACT. FILTER IN CIRCUIT' FileMan Field Number: '18' Was a Bacterial Filter Used ? (Y/N) This indicates whether a bacterial filter is used in the breathing circuit. This information is not required, but may be useful for documentation. %Library.EnumString 21 BACT__FILTER_IN_CIRCUIT FileMan Field Label: 'BARICITY' FileMan Field Number: '26' Baricity This is the code corresponding to the baricity of the anesthesia drug fluid vehicle in relationship to the spinal fluid. %Library.EnumString 28 BARICITY FileMan Field Label: 'BITE BLOCK (Y/N)' FileMan Field Number: '13' Was a Bite Block Used ? (Y/N) This indicates if a bite block is used to protect the endotracheal tube. This information is not required, but may be useful for documentation. %Library.EnumString 16 BITE_BLOCK_YN FileMan Field Label: 'BREATH SOUNDS OK BILAT' FileMan Field Number: '16' Are Breath Sounds Audible and Equal Bilaterally ? (Y/N) This indicates whether breath sounds are audible and equal bilaterally. This information is not required, but may be useful for documentation. %Library.EnumString 19 BREATH_SOUNDS_OK_BILAT FileMan Field Label: 'CONTINUOUS' FileMan Field Number: '25' Was the Catheter placed for Continuous Administration ? (Y/N) This indicates whether a catheter is placed for continuous or intermittent administration of a drug for spinal or epidural anesthesia. %Library.EnumString 27 CONTINUOUS FileMan Field Label: 'DATE/TIME CATHETER REMOVED' FileMan Field Number: '44' Date/Time that the Catheter was Removed This is the date/time that the continuous regional block catheter was removed. Times entered without a date will be converted to the date of the operation at that time. %Library.FilemanTimeStamp 42 DATETIME_CATHETER_REMOVED FileMan Field Label: 'DURAL PUNCTURE' FileMan Field Number: '34' Dural Puncture ? (Y/N) This indicates whether dural puncture is recognized during the epidural needle or catheter placement. This information is not required. %Library.EnumString 35 DURAL_PUNCTURE FileMan Field Label: 'END VENT. RATE' FileMan Field Number: '20' Anesthesia Ventilator Rate This is the anesthesia ventilator rate setting at the end of the operative procedure. %Library.Numeric 23 END_VENT__RATE FileMan Field Label: 'END VENT. T.V.' FileMan Field Number: '19' Anesthesia Ventilator Tidal Volume This is the anesthesia ventilator tidal volume setting at the end of the case. %Library.Numeric 22 END_VENT__T_V_ FileMan Field Label: 'EPIDURAL METHOD' FileMan Field Number: '30' What Epidural Method was Used ? This is the code corresponding to the method used to determine the placement of the epidural needle. This information is not required, but may be useful for documentation and review. %Library.EnumString 32 EPIDURAL_METHOD FileMan Field Label: 'EXTUBATED IN' FileMan Field Number: '21' Location where the Endotracheal Tube was Removed This is the code corresponding to the location wherein the endotracheal tube is removed. This information is not required, but may be useful for documentation, review or concurrent monitoring. %Library.EnumString 24 EXTUBATED_IN FileMan Field Label: 'HEAT, MOISTURE EXCHANGER' FileMan Field Number: '17' Was a Heat and Moisture Exchanger Used ? (Y/N) This indicates whether a passive heat and moisture exchanger is used in the breathing circuit. This information is not required, but may be useful for documentation and review. %Library.EnumString 20 HEAT_MOISTURE_EXCHANGER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTUBATED ? (Y/N)' FileMan Field Number: '42' Was the Patient Intubated ? (Y/N) This indicates whether an endotracheal tube is placed. %Library.EnumString 40 INTUBATED___YN FileMan Field Label: 'LARYNGOSCOPE SIZE' FileMan Field Number: '6' Laryngoscope Size This is the size of the laryngoscope used to facilitate endotracheal intubation. This information is not required, but may be useful for documentation. %Library.Numeric 9 LARYNGOSCOPE_SIZE FileMan Field Label: 'LARYNGOSCOPE TYPE' FileMan Field Number: '5' Type of Laryngoscope This is the code corresponding to the type of scope or laryngoscope blade used to facilitate endotracheal intubation. Although not required, it may be useful for documentation. %Library.EnumString 8 LARYNGOSCOPE_TYPE FileMan Field Label: 'LEVEL' FileMan Field Number: '43' Neurodermatone Anesthesia Sensory Level This is the code corresponding to the neurodermatome anesthesia sensory level. %Library.EnumString 41 LEVEL43 FileMan Field Label: 'LIDOCAINE IV' FileMan Field Number: '9' Was Intravenous Lidocaine Administered ? (Y/N) This indicates whether intravenous lidocaine is administered prior to the endotracheal intubation. This information is not required, but may be useful for documentation. %Library.EnumString 12 LIDOCAINE_IV FileMan Field Label: 'LIDOCAINE TOPICAL' FileMan Field Number: '8' Was Topical Lidocaine Used ? (Y/N) This indicates whether topical lidocaine is utilized to facilitate endotracheal intubation. This information is not required, but may be useful for documentation. %Library.EnumString 11 LIDOCAINE_TOPICAL FileMan Field Label: 'MONITORED ANES CARE ?(Y/N)' FileMan Field Number: '41' Monitored Anesthesia Care ? (Y/N) This indicates whether the anesthesia personnel monitored this patient without anesthesia. This information is not required, but may be useful for documentation and review. %Library.EnumString 39 MONITORED_ANES_CARE_YN FileMan Field Label: 'MULTIPLE ATTEMPTS' FileMan Field Number: '31' Were Multiple Attempts Required ? (Y/N) This indicates whether more than one skin puncture was required to achieve proper placement of the needle. %Library.EnumString 33 MULTIPLE_ATTEMPTS FileMan Field Label: 'NEEDLE SIZE' FileMan Field Number: '29' Needle Size This is the code corresponding to the needle size used for the spinal or epidural technique. This information is not required, but may be useful for documentation and review. %Library.EnumString 31 NEEDLE_SIZE FileMan Field Label: 'PATIENT STATUS' FileMan Field Number: '2' Patient Status This indicates the status of the patient while anesthetized. %Library.EnumString 5 PATIENT_STATUS FileMan Field Label: 'PREOXYGENATION' FileMan Field Number: '23' Preoxygenation ? (Y/N) This is used to document the process of preoxygenation prior to induction of anesthesia. %Library.EnumString 26 PREOXYGENATION FileMan Field Label: 'PRINCIPAL TECH' FileMan Field Number: '.05' Is this the Principal Technique (Y/N) This indicates whether this technique is the principal technique for this procedure. If this is the only technique used, 'YES' must be entered at this prompt. General anesthesia should take precedence over all other forms of anesthesia. %Library.EnumString 4 PRINCIPAL_TECH FileMan Field Label: 'PUNCTURE SITE' FileMan Field Number: '27' Puncture Site This is the code corresponding to the spinal or epidural needle puncture site. This information is not required, but may be useful for documentation and review. %Library.EnumString 29 PUNCTURE_SITE FileMan Field Label: 'PURPOSE' FileMan Field Number: '37' Reason for using a Regional Technique This is the code corresponding to the reason for using a regional technique. This information is not required, but may be useful for documentation and review. %Library.EnumString 37 PURPOSE FileMan Field Label: 'REINTUBATED W/I 8 HRS.' FileMan Field Number: '22' Was Reintubation Required within 8 Hours ? (Y/N) This indicates whether the patient required reintubation within 8 hours for ventilatory insufficiency or airway obstruction. Do not include intubation for a following surgical procedure. %Library.EnumString 25 REINTUBATED_WI_8_HRS_ FileMan Field Label: 'ROUTE' FileMan Field Number: '4' Endotracheal Tube Route This is the code corresponding to the route of the endotracheal tube to the trachea. This information is not required, but may be useful for documentation. %Library.EnumString 7 ROUTE FileMan Field Label: 'SPINAL APPROACH' FileMan Field Number: '28' Spinal Approach This is the code corresponding to the approach of the placement of the spinal or epidural needle. This information is not required, but may be useful for documentation and review. %Library.EnumString 30 SPINAL_APPROACH FileMan Field Label: 'STYLET USED (Y/N)' FileMan Field Number: '7' Was a Stylet Used ? (Y/N) This indicates whether a stylet was used to shape the endotracheal tube during intubation. This information is optional, but may be useful in documentation of this case. %Library.EnumString 10 STYLET_USED_YN Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBANESTHESIATECHNIQUE13006 1 1 SURGERY_130 FileMan Field Label: 'TAPED AT LENGTH' FileMan Field Number: '15' Taped at what Length This is the length of the endotracheal tube at the external reference point. This information is not required, but may be useful for documentation of this case. %Library.Numeric 18 TAPED_AT_LENGTH FileMan Field Label: 'TEST DOSE VOL (ml)' FileMan Field Number: '33' Test Dose Volume (ml) This is the volume (mls.) of the test dose fluid vehicle. %Library.Numeric 34 TEST_DOSE_VOL_ML FileMan Field Label: 'TRAUMA' FileMan Field Number: '12' Trauma Resulting from Intubation Process Definition Revised (2004): The code corresponding to trauma resulting from the endotracheal intubation process. This should be documented on the anesthesia record. Choose from: 1. None 2. Lip laceration or hematoma 3. Tooth chipped, loosened or lost 4. Tongue hematoma or laceration 5. Pharyngeal laceration 6, Other laryngeal injury 7. Failure to intubate as intended This information is entered by Anesthesia personnel and is not the responsibility of the Nurse Reviewer. %Library.EnumString 15 TRAUMA FileMan Field Label: 'TUBE LUBRICATION' FileMan Field Number: '14' Was Tube Lubrication Used ? (Y/N) This indicates whether lubrication was used with the endotracheal tube. Although not required, this information may be useful for documentation. %Library.EnumString 17 TUBE_LUBRICATION FileMan Field Label: 'TUBE SIZE' FileMan Field Number: '11' Endotracheal Tube Size This is the size of the endotracheal tube. This information is not required, but may be useful for documentation. %Library.Numeric 14 TUBE_SIZE FileMan Field Label: 'TUBE TYPE' FileMan Field Number: '10' Type of Endotracheal Tube This is the code corresponding to the type of endotracheal tube used during the major portion of the procedure. This information is not required, but may be useful for documentation. %Library.EnumString 13 TUBE_TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 43 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ANESTHESIA_TECHNIQUE*C} FDA(130.06,IENS,.01)={ANESTHESIA_TECHNIQUE} set:{PRINCIPAL_TECH*C} FDA(130.06,IENS,.05)={PRINCIPAL_TECH} set:{PATIENT_STATUS*C} FDA(130.06,IENS,2)={PATIENT_STATUS} set:{APPROACH*C} FDA(130.06,IENS,3)={APPROACH} set:{ROUTE*C} FDA(130.06,IENS,4)={ROUTE} set:{LARYNGOSCOPE_TYPE*C} FDA(130.06,IENS,5)={LARYNGOSCOPE_TYPE} set:{LARYNGOSCOPE_SIZE*C} FDA(130.06,IENS,6)={LARYNGOSCOPE_SIZE} set:{STYLET_USED_YN*C} FDA(130.06,IENS,7)={STYLET_USED_YN} set:{LIDOCAINE_TOPICAL*C} FDA(130.06,IENS,8)={LIDOCAINE_TOPICAL} set:{LIDOCAINE_IV*C} FDA(130.06,IENS,9)={LIDOCAINE_IV} set:{TUBE_TYPE*C} FDA(130.06,IENS,10)={TUBE_TYPE} set:{TUBE_SIZE*C} FDA(130.06,IENS,11)={TUBE_SIZE} set:{TRAUMA*C} FDA(130.06,IENS,12)={TRAUMA} set:{BITE_BLOCK_YN*C} FDA(130.06,IENS,13)={BITE_BLOCK_YN} set:{TUBE_LUBRICATION*C} FDA(130.06,IENS,14)={TUBE_LUBRICATION} set:{TAPED_AT_LENGTH*C} FDA(130.06,IENS,15)={TAPED_AT_LENGTH} set:{BREATH_SOUNDS_OK_BILAT*C} FDA(130.06,IENS,16)={BREATH_SOUNDS_OK_BILAT} set:{HEAT_MOISTURE_EXCHANGER*C} FDA(130.06,IENS,17)={HEAT_MOISTURE_EXCHANGER} set:{BACT__FILTER_IN_CIRCUIT*C} FDA(130.06,IENS,18)={BACT__FILTER_IN_CIRCUIT} set:{END_VENT__T_V_*C} FDA(130.06,IENS,19)={END_VENT__T_V_} set:{END_VENT__RATE*C} FDA(130.06,IENS,20)={END_VENT__RATE} set:{EXTUBATED_IN*C} FDA(130.06,IENS,21)={EXTUBATED_IN} set:{REINTUBATED_WI_8_HRS_*C} FDA(130.06,IENS,22)={REINTUBATED_WI_8_HRS_} set:{PREOXYGENATION*C} FDA(130.06,IENS,23)={PREOXYGENATION} set:{CONTINUOUS*C} FDA(130.06,IENS,25)={CONTINUOUS} set:{BARICITY*C} FDA(130.06,IENS,26)={BARICITY} set:{PUNCTURE_SITE*C} FDA(130.06,IENS,27)={PUNCTURE_SITE} set:{SPINAL_APPROACH*C} FDA(130.06,IENS,28)={SPINAL_APPROACH} set:{NEEDLE_SIZE*C} FDA(130.06,IENS,29)={NEEDLE_SIZE} set:{EPIDURAL_METHOD*C} FDA(130.06,IENS,30)={EPIDURAL_METHOD} set:{MULTIPLE_ATTEMPTS*C} FDA(130.06,IENS,31)={MULTIPLE_ATTEMPTS} set:{TEST_DOSE_VOL_ML*C} FDA(130.06,IENS,33)={TEST_DOSE_VOL_ML} set:{DURAL_PUNCTURE*C} FDA(130.06,IENS,34)={DURAL_PUNCTURE} set:{ADMINISTRATION_METHOD*C} FDA(130.06,IENS,36)={ADMINISTRATION_METHOD} set:{PURPOSE*C} FDA(130.06,IENS,37)={PURPOSE} set:{MONITORED_ANES_CARE_YN*C} FDA(130.06,IENS,41)={MONITORED_ANES_CARE_YN} set:{INTUBATED___YN*C} FDA(130.06,IENS,42)={INTUBATED___YN} set:{LEVEL43*C} FDA(130.06,IENS,43)={LEVEL43} set:{DATETIME_CATHETER_REMOVED*C} FDA(130.06,IENS,44)={DATETIME_CATHETER_REMOVED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.06)") set %SkipFiling=1 if $d(%FMERR(130.06,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.06,""DIERR"") for details" RETURN } if {ANESTHESIA_COMMENTS*C} { set D0={RowId} kill wp if {ANESTHESIA_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({ANESTHESIA_COMMENTS},$c(13,10)) { set wp(i)=$p({ANESTHESIA_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.06,{IENS},40,,wproot,"%FMERR(130.06)") if $d(%FMERR(130.06,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.06)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBANESTHES99B0S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 6 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 3 6 7 new data,i,node set {ANESTHESIA_COMMENTS}="" merge data=^SRF({S1},6,{S3},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {ANESTHESIA_COMMENTS}={ANESTHESIA_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 5 "^" 0 20 "^" 2 2 "^" 0 15 "^" 0 18 "^" 2 1 "^" 8 4 "^" 3 4 "^" 0 22 "^" 0 21 "^" 3 1 "^" 0 23 "^" 0 19 "^" 8 2 "^" 0 8 "^" 0 7 "^" 8 3 "^" 0 11 "^" 0 10 "^" 8 1 "^" 3 2 "^" 2 5 "^" 0 4 "^" 0 25 "^" 0 3 "^" 2 3 "^" 3 7 "^" 0 24 "^" 0 6 "^" 2 4 "^" 0 9 "^" 0 17 "^" 3 3 "^" 0 14 "^" 0 16 "^" 0 13 "^" 0 12 Generated class for FileMan Sub-File/Multiple Number: '691.36' Sub-File/Multiple Name: 'ANGIOPLASTY SEGMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ANGIOPLASTY_SEGMENT_691_36 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.287147794 67178,44717.3692403 right ANGIOPLASTY SEGMENT 691.36 2.56 12/04/2024 12:25:17 1 1 IEN 1 PERCENTAGE_LESION_696_1]]> RESULTINGOBSTRUCTION VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 FKey_RESULTING__OBSTRUCTION SEGMENT_OF_CORONARY_ARTERIES_696]]> SEGMENTIFANGIOPLASTYDONE VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_SEGMENT_IF_ANGIOPLASTY_DONE PERCENTAGE_LESION_696_1]]> STARTINGOBSTRUCTION VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 FKey_STARTING__OBSTRUCTION Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBANGIOPLASTYSEGMENT69136 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RESULTING GRADIENT' FileMan Field Number: '4' This allows the user to enter the resulting gradient. %Library.Numeric 9 RESULTING_GRADIENT FileMan Field Label: 'RESULTING % OBSTRUCTION' FileMan Field Number: '2' This allows the user to enter the resulting percent obstruction. VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 6 RESULTING__OBSTRUCTION FileMan Field Label: 'RESULTING % OBSTRUCTION #' FileMan Field Number: '2.5' This allows the user to enter the resulting percent obstruction. %Library.Numeric 7 RESULTING__OBSTRUCTION_ NAME This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ANGIOPLASTY_SEGMENT_691_36 where %ID=:id) set {RESULTING__OBSTRUCTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULTING__OBSTRUCTION_NAME 1 FileMan Field Label: 'SEGMENT IF ANGIOPLASTY DONE' FileMan Field Number: '.01' This allows the user to enter multiple angioplasty segments. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 SEGMENT_IF_ANGIOPLASTY_DONE NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ANGIOPLASTY_SEGMENT_691_36 where %ID=:id) set {SEGMENT_IF_ANGIOPLASTY_DONE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SEGMENT_IF_ANGIOPLASTY_DONE_NAME 1 FileMan Field Label: 'STARTING GRADIENT' FileMan Field Number: '3' This allows the user to enter the starting gradient. %Library.Numeric 8 STARTING_GRADIENT FileMan Field Label: 'STARTING % OBSTRUCTION' FileMan Field Number: '1' This allows the user to enter the starting percent obstruction. VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 4 STARTING__OBSTRUCTION FileMan Field Label: 'STARTING % OBSTRUCTION #' FileMan Field Number: '1.5' This allow the user to enter the starting percent obstruction. %Library.Numeric 5 STARTING__OBSTRUCTION_ NAME This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ANGIOPLASTY_SEGMENT_691_36 where %ID=:id) set {STARTING__OBSTRUCTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STARTING__OBSTRUCTION_NAME 1 Relationship for Sub-File/Multiple to file name INFLATION PRESSURE IN ATM child VALIP.prosthetic.fm2cw.SUBINFLATIONPRESSUREINATM69137 children SUBANGIOPLASTYSEGMENT69136 1 SUB_INFLATION_PRESSURE_IN_ATM_691_37 FileMan Field Label: 'TOTAL INFLATION TIME (SEC)' FileMan Field Number: '6' This allows the user to enter the total inflation time in seconds. %Library.Numeric 10 TOTAL_INFLATION_TIME_SEC SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",37,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SEGMENT_IF_ANGIOPLASTY_DONE*C} FDA(691.36,IENS,.01)={SEGMENT_IF_ANGIOPLASTY_DONE} set:{STARTING__OBSTRUCTION*C} FDA(691.36,IENS,1)={STARTING__OBSTRUCTION} set:{STARTING__OBSTRUCTION_*C} FDA(691.36,IENS,1.5)={STARTING__OBSTRUCTION_} set:{RESULTING__OBSTRUCTION*C} FDA(691.36,IENS,2)={RESULTING__OBSTRUCTION} set:{RESULTING__OBSTRUCTION_*C} FDA(691.36,IENS,2.5)={RESULTING__OBSTRUCTION_} set:{STARTING_GRADIENT*C} FDA(691.36,IENS,3)={STARTING_GRADIENT} set:{RESULTING_GRADIENT*C} FDA(691.36,IENS,4)={RESULTING_GRADIENT} set:{TOTAL_INFLATION_TIME_SEC*C} FDA(691.36,IENS,6)={TOTAL_INFLATION_TIME_SEC} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.36)") set %SkipFiling=1 if $d(%FMERR(691.36,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.36,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBANGIOPLA258AS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 37 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 5 "^" 0 3 "^" 3 2 "^" 0 1 "^" 0 4 "^" 0 2 "^" 3 1 "^" 2 1 Generated class for FileMan Sub-File/Multiple Number: '2.98' Sub-File/Multiple Name: 'APPOINTMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_APPOINTMENT_2_98 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.302751867 67178,44717.408422853 right APPOINTMENT 2.98 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'APPOINTMENT DATE/TIME' FileMan Field Number: '.001' This displays date/time function as defined in file manager. The date/time of the appointment. | %Library.String 1 3 Set {*}={IEN} 1 APPOINTMENT_DATETIME FileMan Field Label: 'AUTO-REBOOKED APPT. DATE/TIME' FileMan Field Number: '12' If this appointment was cancelled and automatically rebooked for a future date, this field will contain the date/time for which this appointment was rescheduled. This field is created automatically by the scheduling module and should not be edited. %Library.FilemanTimeStamp 15 AUTOREBOOKED_APPT__DATETIME FileMan Field Label: 'CANCELLATION REMARKS' FileMan Field Number: '17' If this appointment was cancelled, additional remarks as to the reason the appointment was cancelled can be entered. This is optional. %Library.String 18 CANCELLATION_REMARKS FileMan Field Label: 'COLLATERAL VISIT' FileMan Field Number: '13' If this patient was seen as a collateral for another patient, enter YES in this field. Otherwise, enter NO. %Library.EnumString 16 COLLATERAL_VISIT FileMan Field Label: 'CURRENT STATUS' FileMan Field Number: '100' This computed field determines the current status for the appointment. The difference between this field and the STATUS field is that appointments with a blank STATUS are further defined in this CURRENT STATUS field. Appointments with a blank STATUS may have a CURRENT STATUS of any one of the following: o FUTURE o NO ACTION TAKEN o CHECKED IN o CHECKED OUT o NON-COUNT %Library.String 1 29 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D CURRENT^SDAMU set {CURRENT_STATUS}=X 1 CURRENT_STATUS FileMan Field Label: 'DATE APPT. MADE' FileMan Field Number: '20' This field contains the date the appointment was entered into sheduling system. This field is creatd automatically by the scheduling module and should not be edited. %Library.FilemanDate 19 DATE_APPT__MADE FileMan Field Label: 'DESIRED DATE OF APPOINTMENT' FileMan Field Number: '27' CID/PREFERRED DATE This is the desired date for the appointment. The field title contains 'CID/PREFERRED DATE', where 'CID' stands for Clinically Indicated Date. This is an alternate name for the field name used for reports and to present to users when adding and displaying appointment information in the Scheduling package. %Library.FilemanDate 25 DESIRED_DATE_OF_APPOINTMENT FileMan Field Label: 'EKG DATE/TIME' FileMan Field Number: '7' If this patient is scheduled for EKG tests in conjuction with this clinic appointment, enter the date/time the patient should report for these tests. %Library.FilemanTimeStamp 9 EKG_DATETIME FileMan Field Label: 'ENCOUNTER CONVERSION STATUS' FileMan Field Number: '23.1' This field indicates whether or not this appointment was converted during the ACRP Database Conversion (SD*5.3*211). The field is set to '1' after the appointment has been converted by the conversion software. %Library.EnumString 22 ENCOUNTER_CONVERSION_STATUS FileMan Field Label: 'ENCOUNTER FORMS AS ADD-ONS' FileMan Field Number: '23' Used by the Print Manager to indicate that it has printed the encounter forms and other reports required by the division and clinic for the appointment and they were printed as an add-on. %Library.EnumString 21 ENCOUNTER_FORMS_AS_ADDONS FileMan Field Label: 'ENCOUNTER FORMS PRINTED' FileMan Field Number: '22' Used by the Print Manager to indicate that it has printed the encounter forms and other reports required by the division and clinic for the appointment. %Library.EnumString 20 ENCOUNTER_FORMS_PRINTED FileMan Field Label: 'FOLLOW-UP VISIT' FileMan Field Number: '28' %Library.EnumString 26 FOLLOWUP_VISIT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LAB DATE/TIME' FileMan Field Number: '5' If this patient is scheduled for laboratory tests in conjunction with this appointment, enter the date/time the patient should report to the lab for these tests. %Library.FilemanTimeStamp 7 LAB_DATETIME FileMan Field Label: 'NEXT AVA. APPT. INDICATOR' FileMan Field Number: '26' %Library.EnumString 24 NEXT_AVA__APPT__INDICATOR FileMan Field Label: 'NO-SHOW/CANCEL DATE/TIME' FileMan Field Number: '15' If this appointment was listed as a no-show and that no-show was subsequently cancelled, this field will contain the date/time the no-show was cancelled. This field is set automatically by the scheduling module and should not be edited. %Library.FilemanTimeStamp 17 NOSHOWCANCEL_DATETIME FileMan Field Label: 'NUMBER OF COLLATERAL SEEN' FileMan Field Number: '11' If this patient is a collateral, enter the number assigned to that collateral. %Library.Numeric 14 NUMBER_OF_COLLATERAL_SEEN Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBAPPOINTMENT298 1 1 PATIENT_2 %Library.EnumString 12 PURPOSE_OF_VISIT FileMan Field Label: 'REAL APPOINTMENT' FileMan Field Number: '4' This is a computed field which determines whether the appointment is considered real (kept). This field checks to see that the status is null (this means the appointment is not no-showed or cancelled and the patient was not an inpatient at the time of the appointment). %Library.String 1 6 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(4,1)=$S($D(^DPT(D0,"S",D1,0)):^(0),1:"") S X=$P(Y(4,1),U,2)="" set {REAL_APPOINTMENT}=X 1 REAL_APPOINTMENT FileMan Field Label: 'ROUTING SLIP PRINTED' FileMan Field Number: '8' If a routing sheet was printed for this appointment, this field will contain a yes. Otherwise this field will contain a no. This is created automatically by the scheduling module. %Library.EnumString 10 ROUTING_SLIP_PRINTED FileMan Field Label: 'ROUTING SLIP PRINT DATE' FileMan Field Number: '8.5' If a routing sheet was printed for this visit, the date it was printed will be stored here. This is stored automatically by the MAS module. %Library.FilemanDate 11 ROUTING_SLIP_PRINT_DATE FileMan Field Label: 'SCHEDULER NAME' FileMan Field Number: '30' The name of the person who scheduled this appointment. This is mainly for CCRA integration, as the CCRA user may not be an active user on the local VistA system. %Library.String 28 SCHEDULER_NAME FileMan Field Label: 'SCHEDULING APPLICATION' FileMan Field Number: '29' Name of the application that was used to schedule this appointment. %Library.String 27 SCHEDULING_APPLICATION FileMan Field Label: 'SCHEDULING REQUEST TYPE' FileMan Field Number: '25' %Library.EnumString 23 SCHEDULING_REQUEST_TYPE FileMan Field Label: 'SPECIAL SURVEY DISPOSITION' FileMan Field Number: '10' If this patinet is claiming exposure to agent orange or ionizing radiation, enter the special survey disposition, indicating whether his treatment was related to that exposure, here. %Library.Numeric 13 SPECIAL_SURVEY_DISPOSITION FileMan Field Label: 'STATUS' FileMan Field Number: '3' This field contains the current status of the patient's appointment. If the field is blank, it means the appointment has not been no-showed or cancelled and the patient was not an inpatient at the time of the appointment. This field is set automatically by the scheduling module and must NOT be edited. %Library.EnumString 5 STATUS FileMan Field Label: 'TELEPHONE OF CLINIC' FileMan Field Number: '.02' This is a computed field which returns the telephone number for the clinic at which this patient has an appointment. This information is stored in the HOSPITAL LOCATION file. %Library.String 1 4 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(2.98,.02,9.2) S X=$P(Y(.02,101),U,1) S D0=Y(.02,2) set {TELEPHONE_OF_CLINIC}=X 1 TELEPHONE_OF_CLINIC SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 30 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'X-RAY DATE/TIME' FileMan Field Number: '6' If this patient is scheduled for x-rays in conjunction with this appointment, enter the date/time the patient should report to radiology for these x-rays. %Library.FilemanTimeStamp 8 XRAY_DATETIME BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""S"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STATUS*C} FDA(2.98,IENS,3)={STATUS} set:{LAB_DATETIME*C} FDA(2.98,IENS,5)={LAB_DATETIME} set:{XRAY_DATETIME*C} FDA(2.98,IENS,6)={XRAY_DATETIME} set:{EKG_DATETIME*C} FDA(2.98,IENS,7)={EKG_DATETIME} set:{ROUTING_SLIP_PRINTED*C} FDA(2.98,IENS,8)={ROUTING_SLIP_PRINTED} set:{ROUTING_SLIP_PRINT_DATE*C} FDA(2.98,IENS,8.5)={ROUTING_SLIP_PRINT_DATE} set:{PURPOSE_OF_VISIT*C} FDA(2.98,IENS,9)={PURPOSE_OF_VISIT} set:{SPECIAL_SURVEY_DISPOSITION*C} FDA(2.98,IENS,10)={SPECIAL_SURVEY_DISPOSITION} set:{NUMBER_OF_COLLATERAL_SEEN*C} FDA(2.98,IENS,11)={NUMBER_OF_COLLATERAL_SEEN} set:{AUTOREBOOKED_APPT__DATETIME*C} FDA(2.98,IENS,12)={AUTOREBOOKED_APPT__DATETIME} set:{COLLATERAL_VISIT*C} FDA(2.98,IENS,13)={COLLATERAL_VISIT} set:{NOSHOWCANCEL_DATETIME*C} FDA(2.98,IENS,15)={NOSHOWCANCEL_DATETIME} set:{CANCELLATION_REMARKS*C} FDA(2.98,IENS,17)={CANCELLATION_REMARKS} set:{DATE_APPT__MADE*C} FDA(2.98,IENS,20)={DATE_APPT__MADE} set:{ENCOUNTER_FORMS_PRINTED*C} FDA(2.98,IENS,22)={ENCOUNTER_FORMS_PRINTED} set:{ENCOUNTER_FORMS_AS_ADDONS*C} FDA(2.98,IENS,23)={ENCOUNTER_FORMS_AS_ADDONS} set:{ENCOUNTER_CONVERSION_STATUS*C} FDA(2.98,IENS,23.1)={ENCOUNTER_CONVERSION_STATUS} set:{SCHEDULING_REQUEST_TYPE*C} FDA(2.98,IENS,25)={SCHEDULING_REQUEST_TYPE} set:{NEXT_AVA__APPT__INDICATOR*C} FDA(2.98,IENS,26)={NEXT_AVA__APPT__INDICATOR} set:{DESIRED_DATE_OF_APPOINTMENT*C} FDA(2.98,IENS,27)={DESIRED_DATE_OF_APPOINTMENT} set:{FOLLOWUP_VISIT*C} FDA(2.98,IENS,28)={FOLLOWUP_VISIT} set:{SCHEDULING_APPLICATION*C} FDA(2.98,IENS,29)={SCHEDULING_APPLICATION} set:{SCHEDULER_NAME*C} FDA(2.98,IENS,30)={SCHEDULER_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.98)") set %SkipFiling=1 if $d(%FMERR(2.98,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.98,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAPPOINTMCE27S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "S" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 10 "^" "R" 1 "^" 0 11 "^" 0 19 "^" 1 1 "^" 0 5 "^" 0 23 "^" 0 22 "^" 0 21 "^" 1 2 "^" 0 3 "^" 0 26 "^" 0 14 "^" 0 9 "^" 0 7 "^" 0 6 "^" 0 13 "^" 1 4 "^" 1 3 "^" 0 25 "^" 0 8 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '44.001' Sub-File/Multiple Name: 'APPOINTMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_APPOINTMENT_44_001 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.293621474 67178,44717.452264683 right APPOINTMENT 44.001 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'APPOINTMENT DATE/TIME' FileMan Field Number: '.01' Date/time of a veteran's appointment to an outpatient clinic. %Library.FilemanTimeStamp 1 3 APPOINTMENT_DATETIME FileMan Field Label: 'CHECKED-IN' FileMan Field Number: '309' %Library.FilemanTimeStamp 4 CHECKEDIN Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBAPPOINTMENT44001 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MESSAGE' FileMan Field Number: '1400' Message generated when clerk attempting to make appointment and patient has appointment same day in another or same clinic to alert them of same. %Library.String 5 MESSAGE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""S"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{APPOINTMENT_DATETIME*C} FDA(44.001,IENS,.01)={APPOINTMENT_DATETIME} set:{CHECKEDIN*C} FDA(44.001,IENS,309)={CHECKEDIN} set:{MESSAGE*C} FDA(44.001,IENS,1400)={MESSAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.001)") set %SkipFiling=1 if $d(%FMERR(44.001,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.001,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAPPOINTMDE44S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "S" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" "C" 1 "^" "MES" 1 Generated class for FileMan Sub-File/Multiple Number: '2.12' Sub-File/Multiple Name: 'ARCHIVED DATA' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ARCHIVED_DATA_2_12 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.322757015 67178,44717.488578556 right ARCHIVED DATA 2.12 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'DATA TYPE' FileMan Field Number: '.01' This field identifies the type of data that was archived %Library.EnumString 1 3 DATA_TYPE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBARCHIVEDDATA212 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""ARCH"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATA_TYPE*C} FDA(2.12,IENS,.01)={DATA_TYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.12)") set %SkipFiling=1 if $d(%FMERR(2.12,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.12,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBARCHIVEDF93FS index ^DPT nonnull {PATIENT_2.IEN} 0]]> "ARCH" "AB" {DATA_TYPE} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "ARCH" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.805' Sub-File/Multiple Name: 'ARRHYTHMIA DX' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ARRHYTHMIA_DX_691_805 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.328682014 67178,44717.525620663 right ARRHYTHMIA DX 691.805 2.56 12/04/2024 12:25:17 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> ARRHYTHMIADX VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_ARRHYTHMIA_DX FileMan Field Label: 'ARRHYTHMIA DX' FileMan Field Number: '.01' This field identifies an arrhythmia diagnosis field. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 ARRHYTHMIA_DX DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_ARRHYTHMIA_DX_691_805 where %ID=:id) set {ARRHYTHMIA_DX_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 ARRHYTHMIA_DX_DIAGNOSIS 1 Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBARRHYTHMIADX691805 1 1 ELECTROPHYSIOLOGY_EP_691_8 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ARRHYTHMIA_DX*C} FDA(691.805,IENS,.01)={ARRHYTHMIA_DX} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.805)") set %SkipFiling=1 if $d(%FMERR(691.805,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.805,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBARRHYTHM31C6S index ^MCAR nonnull 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} 0]]> 5 "B" {ARRHYTHMIA_DX} {IEN} 0]]> data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '44.101' Sub-File/Multiple Name: 'ASSOCIATED LOCATION TYPES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ASSOCIATED_LOCATION_TYPES_44_101 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.34746428 67178,44717.563980841 right ASSOCIATED LOCATION TYPES 44.101 2.56 12/04/2024 12:25:17 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBASSOCIATEDLOCATIONTYPES44101 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""LOC"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.101)") set %SkipFiling=1 if $d(%FMERR(44.101,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.101,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBASSOCIATF88BS data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "LOC" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '123.03' Sub-File/Multiple Name: 'ASSOCIATED RESULTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ASSOCIATED_RESULTS_123_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.376775857 67178,44717.599711968 right ASSOCIATED RESULTS 123.03 2.56 12/04/2024 12:25:17 1 1 IEN 1 Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_NOTE ASSOCIATEDRESULTSNOTE VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_ASSOCIATED_RESULTS_NOTE Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT ASSOCIATEDRESULTSSELECTALEADIMPLANTREPORT VALIP.prosthetic.fm2cw.ALEADIMPLANT6982 FKey_ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_CATH_REPORT ASSOCIATEDRESULTSSELECTCATHREPORT VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 FKey_ASSOCIATED_RESULTS_SELECT_CATH_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_ECHO_REPORT ASSOCIATEDRESULTSSELECTECHOREPORT VALIP.prosthetic.fm2cw.ECHO691 FKey_ASSOCIATED_RESULTS_SELECT_ECHO_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_EKG_REPORT ASSOCIATEDRESULTSSELECTEKGREPORT VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 FKey_ASSOCIATED_RESULTS_SELECT_EKG_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_ENDO_REPORT ASSOCIATEDRESULTSSELECTENDOREPORT VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 FKey_ASSOCIATED_RESULTS_SELECT_ENDO_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_EP_REPORT ASSOCIATEDRESULTSSELECTEPREPORT VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 FKey_ASSOCIATED_RESULTS_SELECT_EP_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_ETT_REPORT ASSOCIATEDRESULTSSELECTETTREPORT VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 FKey_ASSOCIATED_RESULTS_SELECT_ETT_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT ASSOCIATEDRESULTSSELECTGENIMPREPORT VALIP.prosthetic.fm2cw.GENERATORIMPLANT698 FKey_ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT ASSOCIATEDRESULTSSELECTGENPROCEDUREREPORT VALIP.prosthetic.fm2cw.GENERALIZEDPROCEDURECONSULT6995 FKey_ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_HEM_REPORT ASSOCIATEDRESULTSSELECTHEMREPORT VALIP.prosthetic.fm2cw.HEMATOLOGY694 FKey_ASSOCIATED_RESULTS_SELECT_HEM_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT ASSOCIATEDRESULTSSELECTHOLTERREPORT VALIP.prosthetic.fm2cw.HOLTER6916 FKey_ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT ASSOCIATEDRESULTSSELECTPACEMAKERREPORT VALIP.prosthetic.fm2cw.PACEMAKERSURVEILLANCE6983 FKey_ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_PFT_REPORT ASSOCIATEDRESULTSSELECTPFTREPORT VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 FKey_ASSOCIATED_RESULTS_SELECT_PFT_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT ASSOCIATEDRESULTSSELECTRHEUMATOLOGYREPORT VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 FKey_ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT Foreign Key constraint for Variable Pointer reference field ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT ASSOCIATEDRESULTSSELECTVLEADIMPLANTREPORT VALIP.prosthetic.fm2cw.VLEADIMPLANT6981 FKey_ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT FileMan Field Label: 'ASSOCIATED RESULTS' FileMan Field Number: '.01' This multiple allows one or more results to be associated with a consult. This field invokes IA #147 %Library.String 1 3 1 ASSOCIATEDRESULTSSELECTECHOREPORT,ASSOCIATEDRESULTSSELECTCATHREPORT,ASSOCIATEDRESULTSSELECTEKGREPORT,ASSOCIATEDRESULTSSELECTHOLTERREPORT,ASSOCIATEDRESULTSSELECTETTREPORT,ASSOCIATEDRESULTSSELECTEPREPORT,ASSOCIATEDRESULTSSELECTHEMREPORT,ASSOCIATEDRESULTSSELECTGENIMPREPORT,ASSOCIATEDRESULTSSELECTVLEADIMPLANTREPORT,ASSOCIATEDRESULTSSELECTALEADIMPLANTREPORT,ASSOCIATEDRESULTSSELECTPACEMAKERREPORT,ASSOCIATEDRESULTSSELECTENDOREPORT,ASSOCIATEDRESULTSSELECTGENPROCEDUREREPORT,ASSOCIATEDRESULTSSELECTPFTREPORT,ASSOCIATEDRESULTSSELECTRHEUMATOLOGYREPORT,ASSOCIATEDRESULTSNOTE ASSOCIATED_RESULTS Variable Pointer Reference Field for Pointer field Note 'TIU DOCUMENT' VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 19 1 ASSOCIATED_RESULTS_NOTE DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_NOTE_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_NOTE_DOCUMENT_TYPE 1 Variable Pointer Reference Field for Pointer field Select_A_LEAD_IMPLANT_report 'A LEAD IMPLANT' VALIP.prosthetic.fm2cw.ALEADIMPLANT6982 13 1 ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT DATE/TIME OF IMPLANT This allows analysis based on time.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_IMPLANT into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT 1 Variable Pointer Reference Field for Pointer field Select_CATH_report 'CARDIAC CATHETERIZATION' VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 5 1 ASSOCIATED_RESULTS_SELECT_CATH_REPORT DATE/TIME This date/time field identifies the catheterization procedure.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_CATH_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_CATH_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_ECHO_report 'ECHO' VALIP.prosthetic.fm2cw.ECHO691 4 1 ASSOCIATED_RESULTS_SELECT_ECHO_REPORT DATE/TIME This field identifies the date and time when the echo was taken.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_ECHO_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_ECHO_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_EKG_report 'ELECTROCARDIOGRAM (EKG)' VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 6 1 ASSOCIATED_RESULTS_SELECT_EKG_REPORT DATE/TIME This field identifies the specific EKG procedure.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_EKG_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_EKG_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_ENDO_report 'ENDOSCOPY/CONSULT' VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 15 1 ASSOCIATED_RESULTS_SELECT_ENDO_REPORT APPOINTMENT DATE/TIME This field contains the date/time of the Endoscopy procedure.]]> %Library.FilemanTimeStamp 1 APPOINTMENT_DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_ENDO_REPORT_APPOINTMENT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_ENDO_REPORT_APPOINTMENT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_EP_report 'ELECTROPHYSIOLOGY (EP)' VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 9 1 ASSOCIATED_RESULTS_SELECT_EP_REPORT DATE/TIME This field identifies the date and time that the procedure was entered into the database.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_EP_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_EP_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_ETT_report 'EXERCISE TOLERANCE TEST' VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 8 1 ASSOCIATED_RESULTS_SELECT_ETT_REPORT DATE/TIME OF TEST This field identifies the precise Exercise Tolerance procedure.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_TEST into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_ETT_REPORT_DATETIME_OF_TEST}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_ETT_REPORT_DATETIME_OF_TEST 1 Variable Pointer Reference Field for Pointer field Select_GEN_IMP_report 'GENERATOR IMPLANT' VALIP.prosthetic.fm2cw.GENERATORIMPLANT698 11 1 ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT DATE/TIME OF IMPLANT This allows analysis based on time.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_IMPLANT into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT 1 Variable Pointer Reference Field for Pointer field Select_GEN_PROCEDURE_report 'GENERALIZED PROCEDURE/CONSULT' VALIP.prosthetic.fm2cw.GENERALIZEDPROCEDURECONSULT6995 16 1 ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT DATE/TIME]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_HEM_report 'HEMATOLOGY' VALIP.prosthetic.fm2cw.HEMATOLOGY694 10 1 ASSOCIATED_RESULTS_SELECT_HEM_REPORT DATE/TIME This field identifies the time and date of entry.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_HEM_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_HEM_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_HOLTER_report 'HOLTER' VALIP.prosthetic.fm2cw.HOLTER6916 7 1 ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT HOOK-UP DATE/TIME This field identifies the specific Holter procedure.]]> %Library.FilemanTimeStamp 1 HOOKUP_DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT_HOOKUP_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT_HOOKUP_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_PACEMAKER_report 'PACEMAKER SURVEILLANCE' VALIP.prosthetic.fm2cw.PACEMAKERSURVEILLANCE6983 14 1 ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT DATE/TIME This allows analysis based on time.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_PFT_report 'PULMONARY FUNCTION TESTS' VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 17 1 ASSOCIATED_RESULTS_SELECT_PFT_REPORT DATE/TIME This field identifies the date/time of the Pulmonary Function tests.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_PFT_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_PFT_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_RHEUMATOLOGY_report 'RHEUMATOLOGY' VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 18 1 ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT DATE/TIME This field identifies the date and time that the data is first entered into the database or when the data was collected.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT_DATETIME 1 Variable Pointer Reference Field for Pointer field Select_V_LEAD_IMPLANT_report 'V LEAD IMPLANT' VALIP.prosthetic.fm2cw.VLEADIMPLANT6981 12 1 ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT DATE/TIME OF IMPLANT This field is the date/time that the procedure was entered into the database.]]> %Library.FilemanTimeStamp 1 DATETIME_OF_IMPLANT into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATED_RESULTS_123_03 where %ID=:id) set {ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT 1 Variable Pointer Value Field for Pointer field ASSOCIATED_RESULTS %Library.String 1 20 if {ASSOCIATED_RESULTS_SELECT_ECHO_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_ECHO_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_CATH_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_CATH_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_EKG_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_EKG_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT_HOOKUP_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT_HOOKUP_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_ETT_REPORT_DATETIME_OF_TEST}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_ETT_REPORT_DATETIME_OF_TEST} quit } if {ASSOCIATED_RESULTS_SELECT_EP_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_EP_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_HEM_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_HEM_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT_DATETIME_OF_IMPLANT} quit } if {ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT} quit } if {ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT_DATETIME_OF_IMPLANT} quit } if {ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_ENDO_REPORT_APPOINTMENT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_ENDO_REPORT_APPOINTMENT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_PFT_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_PFT_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT_DATETIME}'="" { set {*}={ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT_DATETIME} quit } if {ASSOCIATED_RESULTS_NOTE_DOCUMENT_TYPE}'="" { set {*}={ASSOCIATED_RESULTS_NOTE_DOCUMENT_TYPE} quit } set {*}="" 1 ASSOCIATED_RESULTS_VALUE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name REQUEST/CONSULTATION) VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 parent SUBASSOCIATEDRESULTS12303 1 1 REQUESTCONSULTATION_123 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 21 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({REQUESTCONSULTATION_123},"||"):-1:1 { set DA($i(c))=$p({REQUESTCONSULTATION_123},"||",i) } set DIK="^GMR(123,"_DA(1)_",50,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ASSOCIATED_RESULTS*C} FDA(123.03,IENS,.01)={ASSOCIATED_RESULTS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.03)") set %SkipFiling=1 if $d(%FMERR(123.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(123.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBASSOCIAT5224S index {ASSOCIATED_RESULTS}'="" 1 ^GMR conditional 123 {REQUESTCONSULTATION_123.IEN} 0]]> 50 "B" $$TRUNCATE({ASSOCIATED_RESULTS},30)) {IEN} 0]]> index {ASSOCIATED_RESULTS}'="" 1 ^GMR conditional 123 "R" $$TRUNCATE({ASSOCIATED_RESULTS},30)) {REQUESTCONSULTATION_123.IEN} 0]]> {IEN} 0]]> data ^GMR 123 {REQUESTCONSULTATION_123.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 50 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="TIU(8925," s {ASSOCIATED_RESULTS_NOTE}="" Quit s {ASSOCIATED_RESULTS_NOTE}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(698.2," s {ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_A_LEAD_IMPLANT_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(691.1," s {ASSOCIATED_RESULTS_SELECT_CATH_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_CATH_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(691," s {ASSOCIATED_RESULTS_SELECT_ECHO_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_ECHO_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(691.5," s {ASSOCIATED_RESULTS_SELECT_EKG_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_EKG_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(699," s {ASSOCIATED_RESULTS_SELECT_ENDO_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_ENDO_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(691.8," s {ASSOCIATED_RESULTS_SELECT_EP_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_EP_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(691.7," s {ASSOCIATED_RESULTS_SELECT_ETT_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_ETT_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(698," s {ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_GEN_IMP_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(699.5," s {ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_GEN_PROCEDURE_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(694," s {ASSOCIATED_RESULTS_SELECT_HEM_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_HEM_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(691.6," s {ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_HOLTER_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(698.3," s {ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_PACEMAKER_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(700," s {ASSOCIATED_RESULTS_SELECT_PFT_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_PFT_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(701," s {ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_RHEUMATOLOGY_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="MCAR(698.1," s {ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT}="" Quit s {ASSOCIATED_RESULTS_SELECT_V_LEAD_IMPLANT_REPORT}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",1),";") Generated class for FileMan Sub-File/Multiple Number: '4.014' Sub-File/Multiple Name: 'ASSOCIATIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ASSOCIATIONS_4_014 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.368313108 67178,44717.648454871 right ASSOCIATIONS 4.014 2.56 12/04/2024 12:25:17 1 1 IEN 1 INSTITUTION_ASSOCIATION_TYPES_4_05]]> ASSOCIATIONS VALIP.prosthetic.fm2cw.INSTITUTIONASSOCIATIONTYPES405 FKey_ASSOCIATIONS INSTITUTION_4]]> PARENTOFASSOCIATION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_PARENT_OF_ASSOCIATION FileMan Field Label: 'ASSOCIATIONS' FileMan Field Number: '.01' This multiple field is used to link groups if Institutions into associations. VALIP.prosthetic.fm2cw.INSTITUTIONASSOCIATIONTYPES405 1 3 ASSOCIATIONS NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATIONS_4_014 where %ID=:id) set {ASSOCIATIONS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATIONS_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INSTITUTION) VALIP.prosthetic.fm2cw.INSTITUTION4 parent SUBASSOCIATIONS4014 1 1 INSTITUTION_4 FileMan Field Label: 'PARENT OF ASSOCIATION' FileMan Field Number: '1' This field points back to the Institution file to indicate the parent of the association. VALIP.prosthetic.fm2cw.INSTITUTION4 4 PARENT_OF_ASSOCIATION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ASSOCIATIONS_4_014 where %ID=:id) set {PARENT_OF_ASSOCIATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PARENT_OF_ASSOCIATION_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({INSTITUTION_4},"||"):-1:1 { set DA($i(c))=$p({INSTITUTION_4},"||",i) } set DIK="^DIC(4,"_DA(1)_",7,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ASSOCIATIONS*C} FDA(4.014,IENS,.01)={ASSOCIATIONS} set:{PARENT_OF_ASSOCIATION*C} FDA(4.014,IENS,1)={PARENT_OF_ASSOCIATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.014)") set %SkipFiling=1 if $d(%FMERR(4.014,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.014,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBASSOCIAT5156S index ^DIC nonnull 4 {INSTITUTION_4.IEN} 0]]> 7 "B" {ASSOCIATIONS} {IEN} 0]]> data ^DIC 4 {INSTITUTION_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 7 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '49.05' Sub-File/Multiple Name: 'ASST CHIEF PHONE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ASST_CHIEF_PHONE_49_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.371232254 67178,44717.685975402 right ASST CHIEF PHONE 49.05 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'ASST CHIEF PHONE' FileMan Field Number: '.01' This field contains a telephone number for the assistant chie of this service or section. %Library.String 1 3 ASST_CHIEF_PHONE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SERVICE/SECTION) VALIP.prosthetic.fm2cw.SERVICESECTION49 parent SUBASSTCHIEFPHONE4905 1 1 SERVICESECTION_49 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SERVICESECTION_49},"||"):-1:1 { set DA($i(c))=$p({SERVICESECTION_49},"||",i) } set DIK="^DIC(49,"_DA(1)_",""APH"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ASST_CHIEF_PHONE*C} FDA(49.05,IENS,.01)={ASST_CHIEF_PHONE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(49.05)") set %SkipFiling=1 if $d(%FMERR(49.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(49.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBASSTCHIE9734S data ^DIC 49 {SERVICESECTION_49.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "APH" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2005.099' Sub-File/Multiple Name: 'AUDIT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AUDIT_2005_099 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.37572673 67178,44717.723147474 right AUDIT 2005.099 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'DATE/TIME RECORDED' FileMan Field Number: '.01' When a value of an audited field changes, date and time of the change are stored in this field. %Library.FilemanTimeStamp 1 3 DATETIME_RECORDED FileMan Field Label: 'FIELD NUMBER' FileMan Field Number: '.02' Value of this field identifies the audited field that was updated. %Library.Numeric 4 FIELD_NUMBER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name IMAGE) VALIP.prosthetic.fm2cw.IMAGE2005 parent SUBAUDIT2005099 1 1 IMAGE_2005 Computed Field For Node 1 %Library.String 1 5 s {NODE_1}=$g(^MAG(2005,$p({RowId},"||"),99,{IEN},1)) 1 NODE_1 Computed Field For Node 2 %Library.String 1 7 s {NODE_2}=$g(^MAG(2005,$p({RowId},"||"),99,{IEN},2)) 1 NODE_2 FileMan Field Label: 'OLD EXTERNAL VALUE' FileMan Field Number: '2' If the previous external value of the audited field is different from the internal value stored in the OLD INTERNAL VALUE field (1), then the external value is stored in this field. %Library.String 1 8 s {OLD_EXTERNAL_VALUE}=$e({NODE_2},1,250) 1 OLD_EXTERNAL_VALUE FileMan Field Label: 'OLD INTERNAL VALUE' FileMan Field Number: '1' This field stores the previous value of the audited field in internal format. %Library.String 1 6 s {OLD_INTERNAL_VALUE}=$e({NODE_1},1,250) 1 OLD_INTERNAL_VALUE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({IMAGE_2005},"||"):-1:1 { set DA($i(c))=$p({IMAGE_2005},"||",i) } set DIK="^MAG(2005,"_DA(1)_",99,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATETIME_RECORDED*C} FDA(2005.099,IENS,.01)={DATETIME_RECORDED} set:{FIELD_NUMBER*C} FDA(2005.099,IENS,.02)={FIELD_NUMBER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.099)") set %SkipFiling=1 if $d(%FMERR(2005.099,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2005.099,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAUDIT20030C4S index ^MAG nonnull 2005 {IMAGE_2005.IEN} 0]]> 99 "B" {DATETIME_RECORDED} {IEN} 0]]> index ^MAG nonnull 2005 {IMAGE_2005.IEN} 0]]> 99 "FD" {FIELD_NUMBER} {DATETIME_RECORDED} {IEN} 0]]> data ^MAG 2005 {IMAGE_2005.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 99 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '664.129' Sub-File/Multiple Name: 'AUDIT DATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AUDIT_DATE_664_129 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.606665916 67178,44717.762831937 right AUDIT DATE 664.129 2.56 12/04/2024 12:25:17 1 1 IEN 1 NEW_PERSON_200]]> REOPENEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REOPENED_BY NEW_PERSON_200]]> USER3 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_USER3 FileMan Field Label: 'AUDIT DATE' FileMan Field Number: '.01' Contains the date/time that the item on Page one of this VAF 10-2529-3 was changed or deleted. %Library.FilemanTimeStamp 1 3 AUDIT_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NEW ITEM/JOB' FileMan Field Number: '2' Name of item after the change occured. May contain a value of 'Item not found' if the Old Item/Job was deleted. %Library.String 5 NEW_ITEMJOB FileMan Field Label: 'OLD ITEM/JOB' FileMan Field Number: '1' Name of item before it was changed or deleted. %Library.String 4 OLD_ITEMJOB Relationship to parent (file name PROSTHETIC 2529-3) VALIP.prosthetic.fm2cw.PROSTHETIC252936641 parent SUBAUDITDATE664129 1 1 PROSTHETIC_25293_664_1 FileMan Field Label: 'REMARKS' FileMan Field Number: '4' %Library.String 7 REMARKS FileMan Field Label: 'RE-OPENED BY' FileMan Field Number: '5' Hold Name of individual that has re-opened this file. VALIP.prosthetic.fm2cw.NEWPERSON200 8 REOPENED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_AUDIT_DATE_664_129 where %ID=:id) set {REOPENED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REOPENED_BY_NAME 1 FileMan Field Label: 'USER' FileMan Field Number: '3' Indiviual who made the change. VALIP.prosthetic.fm2cw.NEWPERSON200 6 USER3 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_AUDIT_DATE_664_129 where %ID=:id) set {USER3_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USER3_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_25293_664_1},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_25293_664_1},"||",i) } set DIK="^RMPR(664.1,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AUDIT_DATE*C} FDA(664.129,IENS,.01)={AUDIT_DATE} set:{OLD_ITEMJOB*C} FDA(664.129,IENS,1)={OLD_ITEMJOB} set:{NEW_ITEMJOB*C} FDA(664.129,IENS,2)={NEW_ITEMJOB} set:{USER3*C} FDA(664.129,IENS,3)={USER3} set:{REOPENED_BY*C} FDA(664.129,IENS,5)={REOPENED_BY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(664.129)") set %SkipFiling=1 if $d(%FMERR(664.129,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(664.129,""DIERR"") for details" RETURN } if {REMARKS*C} { set D0={RowId} kill wp if {REMARKS}'="" { set wproot="wp" for i=1:1:$l({REMARKS},$c(13,10)) { set wp(i)=$p({REMARKS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(664.129,{IENS},4,,wproot,"%FMERR(664.129)") if $d(%FMERR(664.129,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.129)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAUDITDATF17BS index ^RMPR nonnull 664.1 {PROSTHETIC_25293_664_1.IEN} 0]]> 8 "B" {AUDIT_DATE} {IEN} 0]]> data ^RMPR 664.1 {PROSTHETIC_25293_664_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 1 new data,i,node set {REMARKS}="" merge data=^RMPR(664.1,{S2},8,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REMARKS}={REMARKS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 5 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '100.213' Sub-File/Multiple Name: 'AUTOLINK' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AUTOLINK_100_213 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.405889547 67178,44717.803095569 right AUTOLINK 100.213 2.56 12/04/2024 12:25:17 1 1 IEN 1 Foreign Key constraint for Variable Pointer reference field AUTOLINK_CLINIC AUTOLINKCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_AUTOLINK_CLINIC Foreign Key constraint for Variable Pointer reference field AUTOLINK_PROVIDER AUTOLINKPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_AUTOLINK_PROVIDER Foreign Key constraint for Variable Pointer reference field AUTOLINK_ROOMBED AUTOLINKROOMBED VALIP.prosthetic.fm2cw.ROOMBED4054 FKey_AUTOLINK_ROOMBED Foreign Key constraint for Variable Pointer reference field AUTOLINK_SPECIALTY AUTOLINKSPECIALTY VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 FKey_AUTOLINK_SPECIALTY Foreign Key constraint for Variable Pointer reference field AUTOLINK_WARD AUTOLINKWARD VALIP.prosthetic.fm2cw.WARDLOCATION42 FKey_AUTOLINK_WARD FileMan Field Label: 'AUTOLINK' FileMan Field Number: '.01' Links for automatic patient addition/removal based on ADT movements and CLINIC enrollments. %Library.String 1 3 1 AUTOLINKWARD,AUTOLINKCLINIC,AUTOLINKSPECIALTY,AUTOLINKPROVIDER,AUTOLINKROOMBED AUTOLINK Variable Pointer Reference Field for Pointer field CLINIC 'HOSPITAL LOCATION' VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 5 1 AUTOLINK_CLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_AUTOLINK_100_213 where %ID=:id) set {AUTOLINK_CLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTOLINK_CLINIC_NAME 1 Variable Pointer Reference Field for Pointer field PROVIDER 'NEW PERSON' VALIP.prosthetic.fm2cw.NEWPERSON200 7 1 AUTOLINK_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_AUTOLINK_100_213 where %ID=:id) set {AUTOLINK_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTOLINK_PROVIDER_NAME 1 Variable Pointer Reference Field for Pointer field ROOM-BED 'ROOM-BED' VALIP.prosthetic.fm2cw.ROOMBED4054 8 1 AUTOLINK_ROOMBED NAME Enter the name of the room-bed you are adding. Should be in the format ROOM-BED.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_AUTOLINK_100_213 where %ID=:id) set {AUTOLINK_ROOMBED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTOLINK_ROOMBED_NAME 1 Variable Pointer Reference Field for Pointer field SPECIALTY 'FACILITY TREATING SPECIALTY' VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 6 1 AUTOLINK_SPECIALTY NAME Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_AUTOLINK_100_213 where %ID=:id) set {AUTOLINK_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTOLINK_SPECIALTY_NAME 1 Variable Pointer Value Field for Pointer field AUTOLINK %Library.String 1 9 if {AUTOLINK_WARD_NAME}'="" { set {*}={AUTOLINK_WARD_NAME} quit } if {AUTOLINK_CLINIC_NAME}'="" { set {*}={AUTOLINK_CLINIC_NAME} quit } if {AUTOLINK_SPECIALTY_NAME}'="" { set {*}={AUTOLINK_SPECIALTY_NAME} quit } if {AUTOLINK_PROVIDER_NAME}'="" { set {*}={AUTOLINK_PROVIDER_NAME} quit } if {AUTOLINK_ROOMBED_NAME}'="" { set {*}={AUTOLINK_ROOMBED_NAME} quit } set {*}="" 1 AUTOLINK_VALUE Variable Pointer Reference Field for Pointer field WARD 'WARD LOCATION' VALIP.prosthetic.fm2cw.WARDLOCATION42 4 1 AUTOLINK_WARD NAME Enter in this field the name of the ward location as selectable using bed control options in MAS. Mixing ward names that are pure numbers (4,5,6...) with ward names that are alphabetic (A,B,C...) or with ward names that combine numbers with alphas (4A, 4B, 5C...) may yield unexpected results when printing output sorted by ward.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_AUTOLINK_100_213 where %ID=:id) set {AUTOLINK_WARD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTOLINK_WARD_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OE/RR LIST) VALIP.prosthetic.fm2cw.OERRLIST10021 parent SUBAUTOLINK100213 1 1 OERR_LIST_100_21 FileMan Field Label: 'PRIMARY OR ATTENDING' FileMan Field Number: '1' This field will determine how the Autolinks for Providers will work. If the field is set to; "P" - Primary: The autolink will add patients to the list that have the pointed to provider assigned to them thru the MAS options as PROVIDER. "A" - Attending: The autolink will add patients to the list that have the pointed to provider assigned to them thru the MAS options as ATTENDING PHYSICIAN. "B" - Both: The autolink will add patients to the list that have the pointed to provider assigned to them thru the MAS options as 'PROVIDER' and those patients that have the pointed to provider assigned to them as ATTENDING PHYSICIAN. %Library.EnumString 10 PRIMARY_OR_ATTENDING SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OERR_LIST_100_21},"||"):-1:1 { set DA($i(c))=$p({OERR_LIST_100_21},"||",i) } set DIK="^OR(100.21,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AUTOLINK*C} FDA(100.213,IENS,.01)={AUTOLINK} set:{PRIMARY_OR_ATTENDING*C} FDA(100.213,IENS,1)={PRIMARY_OR_ATTENDING} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(100.213)") set %SkipFiling=1 if $d(%FMERR(100.213,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(100.213,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAUTOLINKDE70S index {AUTOLINK}'="" 1 ^OR conditional 100.21 "AC" $$TRUNCATE({AUTOLINK},30)) {OERR_LIST_100_21.IEN} 0]]> {IEN} 0]]> index {AUTOLINK}'="" 1 ^OR conditional 100.21 {OERR_LIST_100_21.IEN} 0]]> 2 "B" $$TRUNCATE({AUTOLINK},30)) {IEN} 0]]> data ^OR 100.21 {OERR_LIST_100_21.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 If $p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="SC(" s {AUTOLINK_CLINIC}="" Quit s {AUTOLINK_CLINIC}=$p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="VA(200," s {AUTOLINK_PROVIDER}="" Quit s {AUTOLINK_PROVIDER}=$p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="DG(405.4," s {AUTOLINK_ROOMBED}="" Quit s {AUTOLINK_ROOMBED}=$p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="DIC(45.7," s {AUTOLINK_SPECIALTY}="" Quit s {AUTOLINK_SPECIALTY}=$p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";") If $p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="DIC(42," s {AUTOLINK_WARD}="" Quit s {AUTOLINK_WARD}=$p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";") "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '665.013' Sub-File/Multiple Name: '*AUTOMOBILE ACQUISITION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AUTOMOBILE_ACQUISITION_665_013 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.603953063 67178,44717.844713495 right *AUTOMOBILE ACQUISITION 665.013 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'AMIS LINE ITEM' FileMan Field Number: '4' %Library.EnumString 8 AMIS_LINE_ITEM FileMan Field Label: 'AUTOMOBILE ACQUISITION DATE' FileMan Field Number: '.01' %Library.FilemanTimeStamp 1 3 AUTOMOBILE_ACQUISITION_DATE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '3' %Library.String 7 DESCRIPTION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MAKE AND MODEL' FileMan Field Number: '1.1' %Library.String 5 MAKE_AND_MODEL Relationship to parent (file name PROSTHETICS PATIENT) VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 parent SUBAUTOMOBILEACQUISITION665013 1 1 PROSTHETICS_PATIENT_665 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VIN' FileMan Field Number: '1' VEHICLE IDENTIFICATION NUMBER %Library.String 4 VIN FileMan Field Label: 'YEAR' FileMan Field Number: '2' %Library.Numeric 6 YEAR BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_PATIENT_665},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_PATIENT_665},"||",i) } set DIK="^RMPR(665,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AUTOMOBILE_ACQUISITION_DATE*C} FDA(665.013,IENS,.01)={AUTOMOBILE_ACQUISITION_DATE} set:{VIN*C} FDA(665.013,IENS,1)={VIN} set:{MAKE_AND_MODEL*C} FDA(665.013,IENS,1.1)={MAKE_AND_MODEL} set:{YEAR*C} FDA(665.013,IENS,2)={YEAR} set:{DESCRIPTION*C} FDA(665.013,IENS,3)={DESCRIPTION} set:{AMIS_LINE_ITEM*C} FDA(665.013,IENS,4)={AMIS_LINE_ITEM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665.013)") set %SkipFiling=1 if $d(%FMERR(665.013,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(665.013,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAUTOMOBIF7DAS data ^RMPR 665 {PROSTHETICS_PATIENT_665.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 5 "^" 0 1 "^" 0 4 "^" 0 6 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '44.002' Sub-File/Multiple Name: 'AVAILABILITY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_AVAILABILITY_44_002 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.398756222 67178,44717.882725414 right AVAILABILITY 44.002 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'AVAILABILITY' FileMan Field Number: '.01' Clinic availability information. %Library.FilemanDate 1 3 AVAILABILITY FileMan Field Label: 'DAY OF WEEK' FileMan Field Number: '3' Day(s) of week clinic is scheduled to meet. %Library.String 1 4 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(44.002,3,1)=$S($D(^SC(D0,"T",D1,0)):^(0),1:"") S X=$P(Y(44.002,3,1),U,1) D DW^%DTC S X=X set {DAY_OF_WEEK}=X 1 DAY_OF_WEEK Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBAVAILABILITY44002 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NUMBEROFDAY' FileMan Field Number: '4' Number of days per week clinic is scheduled to meet. %Library.String 1 5 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(44.002,4,1)=$S($D(^SC(D0,"T",D1,0)):^(0),1:"") S X=$P(Y(44.002,4,1),U,1) D H^%DTC S X=%Y S X=X set {NUMBEROFDAY}=X 1 NUMBEROFDAY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AVAILABILITY*C} FDA(44.002,IENS,.01)={AVAILABILITY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.002)") set %SkipFiling=1 if $d(%FMERR(44.002,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.002,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBAVAILABI693BS data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.02' Sub-File/Multiple Name: 'BLOOD GAS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_BLOOD_GAS_700_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.412497141 67178,44717.919445421 right BLOOD GAS 700.02 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'BLOOD GAS' FileMan Field Number: '.01' This field identifies the type of Arterial Blood Gas Study done. %Library.EnumString 1 3 BLOOD_GAS FileMan Field Label: 'COHB' FileMan Field Number: '6' This field identifies the measured Carboxyhemoglobin Saturation %Library.Numeric 9 COHB FileMan Field Label: 'FiO2' FileMan Field Number: '7' This field identifies the fraction of Inspired Oxygen %Library.Numeric 10 FIO2 FileMan Field Label: 'HB' FileMan Field Number: '1' This field identifies the measured Hemoglobin value. %Library.Numeric 4 HB Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MHB' FileMan Field Number: '8' This field identifies the Methemoglobin Saturation %Library.Numeric 11 MHB FileMan Field Label: 'NOTES' FileMan Field Number: '9' This field identifies allows a 60 character note to be entered on the Arterial Blood Gas study %Library.String 12 NOTES FileMan Field Label: 'O2HB' FileMan Field Number: '5' This field identifies the measured Hemoglobin Oxygen %Library.Numeric 8 O2HB FileMan Field Label: 'PATIENT TEMPERATURE' FileMan Field Number: '10' This allows the user to enter the patient temperature in degrees Centigrade. %Library.Numeric 13 PATIENT_TEMPERATURE FileMan Field Label: 'pCO2' FileMan Field Number: '3' This field identifies the measured Arterial Carbon Dioxide Pressure in mm Mercury. %Library.Numeric 6 PCO2 FileMan Field Label: 'pH' FileMan Field Number: '2' This field identifies the measured pH level. %Library.Numeric 5 PH FileMan Field Label: 'pO2' FileMan Field Number: '4' This field identifies the measured Arterial Oxygen Pressure in mm Mercury. %Library.Numeric 7 PO2 Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBBLOODGAS70002 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{BLOOD_GAS*C} FDA(700.02,IENS,.01)={BLOOD_GAS} set:{HB*C} FDA(700.02,IENS,1)={HB} set:{PH*C} FDA(700.02,IENS,2)={PH} set:{PCO2*C} FDA(700.02,IENS,3)={PCO2} set:{PO2*C} FDA(700.02,IENS,4)={PO2} set:{O2HB*C} FDA(700.02,IENS,5)={O2HB} set:{COHB*C} FDA(700.02,IENS,6)={COHB} set:{FIO2*C} FDA(700.02,IENS,7)={FIO2} set:{MHB*C} FDA(700.02,IENS,8)={MHB} set:{NOTES*C} FDA(700.02,IENS,9)={NOTES} set:{PATIENT_TEMPERATURE*C} FDA(700.02,IENS,10)={PATIENT_TEMPERATURE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.02)") set %SkipFiling=1 if $d(%FMERR(700.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBBLOODGAS8060S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 6 "B" {BLOOD_GAS} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 7 "^" 0 8 "^" 0 2 "^" 0 9 "^" 0 10 "^" 0 6 "^" 0 11 "^" 0 4 "^" 0 3 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '420.11' Sub-File/Multiple Name: 'BOC' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_BOC_420_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44768.889879957 67178,44717.959503116 right BOC 420.11 2.56 12/04/2024 12:25:17 1 1 IEN 1 Relationship to parent (file name COST CENTER) VALIP.prosthetic.fm2cw.COSTCENTER4201 parent SUBBOC42011 1 1 COST_CENTER_420_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({COST_CENTER_420_1},"||"):-1:1 { set DA($i(c))=$p({COST_CENTER_420_1},"||",i) } set DIK="^PRCD(420.1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(420.11)") set %SkipFiling=1 if $d(%FMERR(420.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(420.11,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBBOC42011S data ^PRCD 420.1 {COST_CENTER_420_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '699.4' Sub-File/Multiple Name: 'BOWEL PREPARATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_BOWEL_PREPARATION_699_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.425986847 67178,44717.995616487 right BOWEL PREPARATION 699.4 2.56 12/04/2024 12:25:17 1 1 IEN 1 FileMan Field Label: 'BOWEL PREPARATION' FileMan Field Number: '.01' This field indicates the type of laxative preparation given for a colonoscopy. %Library.EnumString 1 3 BOWEL_PREPARATION Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBBOWELPREPARATION6994 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ROUTE' FileMan Field Number: '1' This field indicates the method (Oral or Rectal) by which the preparation was administered. %Library.EnumString 4 ROUTE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",14,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{BOWEL_PREPARATION*C} FDA(699.4,IENS,.01)={BOWEL_PREPARATION} set:{ROUTE*C} FDA(699.4,IENS,1)={ROUTE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.4)") set %SkipFiling=1 if $d(%FMERR(699.4,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.4,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBBOWELPRE6F0BS data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 14 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '8994.51' Sub-File/Multiple Name: 'CALLBACKTYPE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CALLBACKTYPE_8994_51 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.448777279 67178,44718.033223932 right CALLBACKTYPE 8994.51 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'CALLBACKPORT' FileMan Field Number: '.02' This is the port to be used for the callback to the authenticating server for the CALLBACKTYPE specified. %Library.String 4 CALLBACKPORT FileMan Field Label: 'CALLBACKSERVER' FileMan Field Number: '.03' This is the server designation to be used for the callback to the authenticating server for the CALLBACKTYPE specified. %Library.String 5 CALLBACKSERVER FileMan Field Label: 'CALLBACKTYPE' FileMan Field Number: '.01' This field indicates the mechanism(s) by which the server should contact the authenticating server to obtain information necessary to sign the current user on to the current server. %Library.EnumString 1 3 CALLBACKTYPE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name REMOTE APPLICATION) VALIP.prosthetic.fm2cw.REMOTEAPPLICATION89945 parent SUBCALLBACKTYPE899451 1 1 REMOTE_APPLICATION_8994_5 FileMan Field Label: 'URLSTRING' FileMan Field Number: '.04' This field holds the text that should follow the server address (field #.03) for HTTP connections to obtain the information for the user token passed in for a REMOTE APPLICATION connection. If the complete URL to be used for the callback is http://myserver.med.domain/some/kind/of/location/somePage.aspx The CALLBACKSERVER (#.03) field could be myserver.med.domain and the URLSTRING would be some/kind/of/location/somePage.aspx This field is only used if the CALLBACKTYPE (#.01) value is H for HTTP %Library.String 6 URLSTRING SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({REMOTE_APPLICATION_8994_5},"||"):-1:1 { set DA($i(c))=$p({REMOTE_APPLICATION_8994_5},"||",i) } set DIK="^XWB(8994.5,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CALLBACKTYPE*C} FDA(8994.51,IENS,.01)={CALLBACKTYPE} set:{CALLBACKPORT*C} FDA(8994.51,IENS,.02)={CALLBACKPORT} set:{CALLBACKSERVER*C} FDA(8994.51,IENS,.03)={CALLBACKSERVER} set:{URLSTRING*C} FDA(8994.51,IENS,.04)={URLSTRING} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8994.51)") set %SkipFiling=1 if $d(%FMERR(8994.51,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8994.51,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCALLBACK85F3S index ^XWB nonnull 8994.5 {REMOTE_APPLICATION_8994_5.IEN} 0]]> 1 "B" {CALLBACKTYPE} {IEN} 0]]> data ^XWB 8994.5 {REMOTE_APPLICATION_8994_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '44.05' Sub-File/Multiple Name: 'CANCEL DATE/TIME BEGIN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CANCEL_DATETIME_BEGIN_44_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.452373916 67178,44718.073162803 right CANCEL DATE/TIME BEGIN 44.05 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'CANCEL DATE/TIME BEGIN' FileMan Field Number: '.01' Date/time a clinic started cancellation period. %Library.FilemanTimeStamp 1 3 CANCEL_DATETIME_BEGIN FileMan Field Label: 'CANCEL ENDING TIME' FileMan Field Number: '1' Date/time a clinic ended cancellation period. %Library.String 4 CANCEL_ENDING_TIME Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBCANCELDATETIMEBEGIN4405 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""SDCAN"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CANCEL_DATETIME_BEGIN*C} FDA(44.05,IENS,.01)={CANCEL_DATETIME_BEGIN} set:{CANCEL_ENDING_TIME*C} FDA(44.05,IENS,1)={CANCEL_ENDING_TIME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.05)") set %SkipFiling=1 if $d(%FMERR(44.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCANCELDA9B48S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "SDCAN" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.811' Sub-File/Multiple Name: 'CAROTID STIMULATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CAROTID_STIMULATION_691_811 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.453335152 67178,44718.111197238 right CAROTID STIMULATION 691.811 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'CAROTID STIMULATION' FileMan Field Number: '.01' This field documents the episodes of carotid stimulation. %Library.EnumString 1 3 CAROTID_STIMULATION Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBCAROTIDSTIMULATION691811 1 1 ELECTROPHYSIOLOGY_EP_691_8 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LONGEST PAUSE' FileMan Field Number: '1' This field describes the longest pause. %Library.Numeric 4 LONGEST_PAUSE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CAROTID_STIMULATION*C} FDA(691.811,IENS,.01)={CAROTID_STIMULATION} set:{LONGEST_PAUSE*C} FDA(691.811,IENS,1)={LONGEST_PAUSE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.811)") set %SkipFiling=1 if $d(%FMERR(691.811,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.811,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCAROTIDSB560S data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '445.121' Sub-File/Multiple Name: 'CASE CART/INSTRUMENT KIT ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CASE_CARTINSTRUMENT_KIT_ITEM_445_121 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.639421491 67178,44718.148679206 right CASE CART/INSTRUMENT KIT ITEM 445.121 2.56 12/04/2024 12:25:18 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'QTY NEEDED FOR ONE CC/IK' FileMan Field Number: '1' This is the quantity of the disposable item used to assemble the case cart or instrument kit. %Library.Numeric 3 QTY_NEEDED_FOR_ONE_CCIK Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBCASECARTINSTRUMENTKITITEM445121 1 1 SUB_INVENTORY_ITEM_445_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{QTY_NEEDED_FOR_ONE_CCIK*C} FDA(445.121,IENS,1)={QTY_NEEDED_FOR_ONE_CCIK} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.121)") set %SkipFiling=1 if $d(%FMERR(445.121,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.121,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCASECARTAA71S data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 8 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '125.01' Sub-File/Multiple Name: 'CATEGORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CATEGORY_125_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.454585143 67178,44718.185267982 right CATEGORY 125.01 2.56 12/04/2024 12:25:18 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROBLEM SELECTION LIST) VALIP.prosthetic.fm2cw.PROBLEMSELECTIONLIST125 parent SUBCATEGORY12501 1 1 PROBLEM_SELECTION_LIST_125 FileMan Field Label: 'SEQUENCE' FileMan Field Number: '.02' This is a number which will determine the order this group will appear in the current list; up to two decimal places may be used. %Library.Numeric 3 SEQUENCE FileMan Field Label: 'SHOW PROBLEMS' FileMan Field Number: '.04' This field controls the initial display of this category in this selection list. If set to YES, the problems will automatically be displayed as part of the list when it is initially built and displayed; if null or NO, the category must be selected in order to expand the list and show the problems. %Library.EnumString 5 SHOW_PROBLEMS FileMan Field Label: 'SUBHEADER' FileMan Field Number: '.03' This is text which will appear in the list as a subheader or title to this group of problems. It will have a single blank row between it and the previous problem group, and it will be underlined. %Library.String 4 SUBHEADER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROBLEM_SELECTION_LIST_125},"||"):-1:1 { set DA($i(c))=$p({PROBLEM_SELECTION_LIST_125},"||",i) } set DIK="^GMPL(125,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SEQUENCE*C} FDA(125.01,IENS,.02)={SEQUENCE} set:{SUBHEADER*C} FDA(125.01,IENS,.03)={SUBHEADER} set:{SHOW_PROBLEMS*C} FDA(125.01,IENS,.04)={SHOW_PROBLEMS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(125.01)") set %SkipFiling=1 if $d(%FMERR(125.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(125.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCATEGORY9330S data ^GMPL 125 {PROBLEM_SELECTION_LIST_125.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '691.11' Sub-File/Multiple Name: 'CCL LOG PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CCL_LOG_PROCEDURE_691_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.478191048 67178,44718.223131557 right CCL LOG PROCEDURE 691.11 2.56 12/04/2024 12:25:18 1 1 IEN 1 CATH_PROCEDURE_695_3]]> CCLLOGPROCEDURE VALIP.prosthetic.fm2cw.CATHPROCEDURE6953 FKey_CCL_LOG_PROCEDURE Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBCCLLOGPROCEDURE69111 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'CCL LOG PROCEDURE' FileMan Field Number: '.01' This allows the user to enter the cardiac catheterization procedure. VALIP.prosthetic.fm2cw.CATHPROCEDURE6953 1 3 CCL_LOG_PROCEDURE NAME This field contains a list of various Cardiac Catheterization procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_CCL_LOG_PROCEDURE_691_11 where %ID=:id) set {CCL_LOG_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CCL_LOG_PROCEDURE_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CCL_LOG_PROCEDURE*C} FDA(691.11,IENS,.01)={CCL_LOG_PROCEDURE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.11)") set %SkipFiling=1 if $d(%FMERR(691.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.11,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCCLLOGPR807AS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.401' Sub-File/Multiple Name: 'CD DESCRIPTORS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CD_DESCRIPTORS_2_401 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.479411115 67178,44718.262152602 right CD DESCRIPTORS 2.401 2.56 12/04/2024 12:25:18 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCDDESCRIPTORS2401 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.401,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.401)") set %SkipFiling=1 if $d(%FMERR(2.401,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.401,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCDDESCRI9C9ES data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .401 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '2.399' Sub-File/Multiple Name: 'CD HISTORY DATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CD_HISTORY_DATE_2_399 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.48583539 67178,44718.299608475 right CD HISTORY DATE 2.399 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'CD HISTORY DATE' FileMan Field Number: '.01' This sub-file stores the history of the PATIENT's Catastrophic Disability Eligibility information. %Library.FilemanTimeStamp 1 3 CD_HISTORY_DATE FileMan Field Label: 'DATE FACILITY INITIATED REVIEW' FileMan Field Number: '.3952' Documents the date the facility initiated the Catastrophically Disabled review for CD History. %Library.FilemanDate 10 DATE_FACILITY_INITIATED_REVIEW FileMan Field Label: 'DATE OF DECISION' FileMan Field Number: '.392' Captures historical value of PATIENT field #.392 DATE OF DECISION. %Library.FilemanDate 6 DATE_OF_DECISION FileMan Field Label: 'DATE VETERAN REQUESTED CD EVAL' FileMan Field Number: '.3951' Documents the Date the Veteran Requested CD Evaluation for CD History. %Library.FilemanDate 9 DATE_VETERAN_REQUESTED_CD_EVAL FileMan Field Label: 'DATE VETERAN WAS NOTIFIED' FileMan Field Number: '.3953' Documents the date the Veteran was notified of the Catastrophically Disabled status for CD History. %Library.FilemanDate 11 DATE_VETERAN_WAS_NOTIFIED FileMan Field Label: 'DECIDED BY' FileMan Field Number: '.391' Captures a historical value of DECIDED BY (#.391) field in PATIENT file. %Library.String 5 DECIDED_BY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'METHOD OF DETERMINATION' FileMan Field Number: '.395' This sub-field stores the historical value of the PATIENT file's METHOD OF DETERMINATION field (#.395). %Library.EnumString 8 METHOD_OF_DETERMINATION Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCDHISTORYDATE2399 1 1 PATIENT_2 FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '.394' Captures a historical value of the PATIENT file's REVIEW DATE field (#.394). %Library.FilemanDate 7 REVIEW_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 12 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VETERAN CATASTROPHICALLY DISABLED?' FileMan Field Number: '.39' Documents the Catastrophically Disabled status in the CD History. %Library.EnumString 4 VETERAN_CATASTROPHICALLY_DISABLED BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.399,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CD_HISTORY_DATE*C} FDA(2.399,IENS,.01)={CD_HISTORY_DATE} set:{VETERAN_CATASTROPHICALLY_DISABLED*C} FDA(2.399,IENS,.39)={VETERAN_CATASTROPHICALLY_DISABLED} set:{DECIDED_BY*C} FDA(2.399,IENS,.391)={DECIDED_BY} set:{DATE_OF_DECISION*C} FDA(2.399,IENS,.392)={DATE_OF_DECISION} set:{REVIEW_DATE*C} FDA(2.399,IENS,.394)={REVIEW_DATE} set:{METHOD_OF_DETERMINATION*C} FDA(2.399,IENS,.395)={METHOD_OF_DETERMINATION} set:{DATE_VETERAN_REQUESTED_CD_EVAL*C} FDA(2.399,IENS,.3951)={DATE_VETERAN_REQUESTED_CD_EVAL} set:{DATE_FACILITY_INITIATED_REVIEW*C} FDA(2.399,IENS,.3952)={DATE_FACILITY_INITIATED_REVIEW} set:{DATE_VETERAN_WAS_NOTIFIED*C} FDA(2.399,IENS,.3953)={DATE_VETERAN_WAS_NOTIFIED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.399)") set %SkipFiling=1 if $d(%FMERR(2.399,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.399,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCDHISTORD3CES index ^DPT nonnull {PATIENT_2.IEN} 0]]> .399 "B" {CD_HISTORY_DATE} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .399 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 9 "^" 0 3 "^" 0 8 "^" 0 10 "^" 0 2 "^" 0 6 "^" 0 5 "^" 0 7 Generated class for FileMan Sub-File/Multiple Number: '2.398' Sub-File/Multiple Name: 'CD STATUS CONDITIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CD_STATUS_CONDITIONS_2_398 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.487276269 67178,44718.339861515 right CD STATUS CONDITIONS 2.398 2.56 12/04/2024 12:25:18 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCDSTATUSCONDITIONS2398 1 1 PATIENT_2 FileMan Field Label: 'PERMANENT INDICATOR' FileMan Field Number: '2' This field contains the Permanent Indicator, which documents the Catastrophic Disability Conditions. %Library.EnumString 4 PERMANENT_INDICATOR FileMan Field Label: 'SCORE' FileMan Field Number: '1' NOTE: This field does not always contain the veteran's raw test score. Sometimes you must enter specific information about the score that may apply to the determination of Catastrophic Disability. See the help text above for more details. %Library.Numeric 3 SCORE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.398,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SCORE*C} FDA(2.398,IENS,1)={SCORE} set:{PERMANENT_INDICATOR*C} FDA(2.398,IENS,2)={PERMANENT_INDICATOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.398)") set %SkipFiling=1 if $d(%FMERR(2.398,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.398,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCDSTATUSFFC2S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .398 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '2.396' Sub-File/Multiple Name: 'CD STATUS DIAGNOSES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CD_STATUS_DIAGNOSES_2_396 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.502211197 67178,44718.37787605 right CD STATUS DIAGNOSES 2.396 2.56 12/04/2024 12:25:18 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCDSTATUSDIAGNOSES2396 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.396,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.396)") set %SkipFiling=1 if $d(%FMERR(2.396,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.396,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCDSTATUSE996S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .396 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '2.397' Sub-File/Multiple Name: 'CD STATUS PROCEDURES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CD_STATUS_PROCEDURES_2_397 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.503967673 67178,44718.4152321 right CD STATUS PROCEDURES 2.397 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'AFFECTED EXTREMITY' FileMan Field Number: '1' This is the affected extremity for this procedure. %Library.EnumString 3 AFFECTED_EXTREMITY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCDSTATUSPROCEDURES2397 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.397,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{AFFECTED_EXTREMITY*C} FDA(2.397,IENS,1)={AFFECTED_EXTREMITY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.397)") set %SkipFiling=1 if $d(%FMERR(2.397,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.397,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCDSTATUS9E9AS data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .397 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '130.013' Sub-File/Multiple Name: 'CELL SAVER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CELL_SAVER_130_013 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.515821885 67178,44718.456351656 right CELL SAVER 130.013 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'AMT REINFUSED (ML)' FileMan Field Number: '3' Amount Reinfused (ml) This is the amount of fluid in milliliters that was reinfused into the patient during this procedure. %Library.Numeric 5 AMT_REINFUSED_ML FileMan Field Label: 'AMT SALVAGED (ML)' FileMan Field Number: '2' Amount Salvaged (ml) This is the amount of fluid in milliliters collected during the procedure. %Library.Numeric 4 AMT_SALVAGED_ML FileMan Field Label: 'CELL SAVER COMMENTS' FileMan Field Number: '5' Cell Saver Comments These comments contain additional information related to the use of this cell saver during this procedure. %Library.String 6 CELL_SAVER_COMMENTS FileMan Field Label: 'CELL SAVER ID' FileMan Field Number: '.01' Cell Saver ID This field identifies the cell saver that was used during this procedure. %Library.String 1 3 CELL_SAVER_ID Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBCELLSAVER130013 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",45,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CELL_SAVER_ID*C} FDA(130.013,IENS,.01)={CELL_SAVER_ID} set:{AMT_SALVAGED_ML*C} FDA(130.013,IENS,2)={AMT_SALVAGED_ML} set:{AMT_REINFUSED_ML*C} FDA(130.013,IENS,3)={AMT_REINFUSED_ML} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.013)") set %SkipFiling=1 if $d(%FMERR(130.013,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.013,""DIERR"") for details" RETURN } if {CELL_SAVER_COMMENTS*C} { set D0={RowId} kill wp if {CELL_SAVER_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({CELL_SAVER_COMMENTS},$c(13,10)) { set wp(i)=$p({CELL_SAVER_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.013,{IENS},5,,wproot,"%FMERR(130.013)") if $d(%FMERR(130.013,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.013)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCELLSAVE81A0S index ^SRF nonnull {SURGERY_130.IEN} 0]]> 45 "B" {CELL_SAVER_ID} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 45 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 4 "^" 0 3 2 new data,i,node set {CELL_SAVER_COMMENTS}="" merge data=^SRF({S1},45,{S3},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CELL_SAVER_COMMENTS}={CELL_SAVER_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '40.802' Sub-File/Multiple Name: 'CENSUS DATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CENSUS_DATE_40_802 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.533981612 67178,44718.496622656 right CENSUS DATE 40.802 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'AVG CENSUS FY TO DATE' FileMan Field Number: '6' This sub-field of the Census Date contains the Average Census Fiscal Year to date. %Library.Numeric 13 AVG_CENSUS_FY_TO_DATE FileMan Field Label: 'AVG DOM CENSUS FY TO DATE' FileMan Field Number: '1.5' This sub-field of the Census Date contains the Average Domicillary Census for the current fiscal year to date. %Library.Numeric 6 AVG_DOM_CENSUS_FY_TO_DATE FileMan Field Label: 'AVG NH CENSUS FY TO DATE' FileMan Field Number: '8' This sub-field of the Census Date contains the Average Nursing Home Census Fiscal Year to date. %Library.Numeric 14 AVG_NH_CENSUS_FY_TO_DATE FileMan Field Label: '*BED OCCUPANTS - 65 AND OVER' FileMan Field Number: '12' %Library.Numeric 18 BED_OCCUPANTS__65_AND_OVER FileMan Field Label: '*BED OCCUPANTS - VIET NAM ERA' FileMan Field Number: '13' %Library.Numeric 19 BED_OCCUPANTS__VIET_NAM_ERA FileMan Field Label: 'CENSUS' FileMan Field Number: '5' This sub-field of the Census Date contains the Census figures for the medical center. %Library.Numeric 12 CENSUS FileMan Field Label: 'CENSUS DATE' FileMan Field Number: '.01' %Library.FilemanDate 1 3 CENSUS_DATE %Library.String 20 CORRECTIONS_TO_PREVIOUS_GLS FileMan Field Label: '*CUMULATIVE DIALYSIS PATIENTS' FileMan Field Number: '9' This sub-field of the Census Date contains the Cumulative Dialysis Patients fiscal year to date. %Library.Numeric 15 CUMULATIVE_DIALYSIS_PATIENTS FileMan Field Label: 'CUM PLANNED ADC' FileMan Field Number: '3' This sub-field of the Census Date contains the Cumulative Planned Average Daily Census (ADC) for this medical center. %Library.Numeric 10 CUM_PLANNED_ADC FileMan Field Label: 'CUM PLANNED DOM ADC' FileMan Field Number: '1.25' This sub-field of the Census Date contains the Cumulative Planned Domicillary Average Daily Census (ADC). %Library.Numeric 5 CUM_PLANNED_DOM_ADC FileMan Field Label: 'CUM PLANNED NH ADC' FileMan Field Number: '1' This sub-field of the Census Date contains the Cumulative Planned Nursing Home Average Daily Census (ADC). %Library.Numeric 4 CUM_PLANNED_NH_ADC FileMan Field Label: '*DIALYSIS PATIENTS' FileMan Field Number: '4' This sub-field of the Census Date contains the number of Dialysis Patients for this census date. %Library.Numeric 11 DIALYSIS_PATIENTS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL CENTER DIVISION) VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 parent SUBCENSUSDATE40802 1 1 MEDICAL_CENTER_DIVISION_40_8 FileMan Field Label: 'MONTHLY PLANNED ADC' FileMan Field Number: '2' This sub-field of the Census Date contains the Monthly Planned Average Daily Census (ADC). %Library.Numeric 7 MONTHLY_PLANNED_ADC FileMan Field Label: 'MONTHLY PLANNED DOM ADC' FileMan Field Number: '2.5' This sub-field of the Census Date contains the Monthly Planned Domicillary Average Daily Census (ADC). %Library.Numeric 9 MONTHLY_PLANNED_DOM_ADC FileMan Field Label: 'MONTHLY PLANNED NH ADC' FileMan Field Number: '2.25' This sub-field of the Census Date contains the Monthly Planned Nursing Home Average Daily Census (ADC). %Library.Numeric 8 MONTHLY_PLANNED_NH_ADC SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 21 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WAIT LIST - 65 AND OVER' FileMan Field Number: '10' This sub-field of the Census Date contains the number of patients on the Waiting List that are 65 years old and over. %Library.Numeric 16 WAIT_LIST__65_AND_OVER FileMan Field Label: 'WAIT LIST - VIET NAM ERA' FileMan Field Number: '11' This sub-field of the Census Date contains the number of patients on the Waiting List that are Vietnam Era. %Library.Numeric 17 WAIT_LIST__VIET_NAM_ERA BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_CENTER_DIVISION_40_8},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_CENTER_DIVISION_40_8},"||",i) } set DIK="^DG(40.8,"_DA(1)_",""CEN"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CENSUS_DATE*C} FDA(40.802,IENS,.01)={CENSUS_DATE} set:{CUM_PLANNED_NH_ADC*C} FDA(40.802,IENS,1)={CUM_PLANNED_NH_ADC} set:{CUM_PLANNED_DOM_ADC*C} FDA(40.802,IENS,1.25)={CUM_PLANNED_DOM_ADC} set:{AVG_DOM_CENSUS_FY_TO_DATE*C} FDA(40.802,IENS,1.5)={AVG_DOM_CENSUS_FY_TO_DATE} set:{MONTHLY_PLANNED_ADC*C} FDA(40.802,IENS,2)={MONTHLY_PLANNED_ADC} set:{MONTHLY_PLANNED_NH_ADC*C} FDA(40.802,IENS,2.25)={MONTHLY_PLANNED_NH_ADC} set:{MONTHLY_PLANNED_DOM_ADC*C} FDA(40.802,IENS,2.5)={MONTHLY_PLANNED_DOM_ADC} set:{CUM_PLANNED_ADC*C} FDA(40.802,IENS,3)={CUM_PLANNED_ADC} set:{DIALYSIS_PATIENTS*C} FDA(40.802,IENS,4)={DIALYSIS_PATIENTS} set:{CENSUS*C} FDA(40.802,IENS,5)={CENSUS} set:{AVG_CENSUS_FY_TO_DATE*C} FDA(40.802,IENS,6)={AVG_CENSUS_FY_TO_DATE} set:{AVG_NH_CENSUS_FY_TO_DATE*C} FDA(40.802,IENS,8)={AVG_NH_CENSUS_FY_TO_DATE} set:{CUMULATIVE_DIALYSIS_PATIENTS*C} FDA(40.802,IENS,9)={CUMULATIVE_DIALYSIS_PATIENTS} set:{WAIT_LIST__65_AND_OVER*C} FDA(40.802,IENS,10)={WAIT_LIST__65_AND_OVER} set:{WAIT_LIST__VIET_NAM_ERA*C} FDA(40.802,IENS,11)={WAIT_LIST__VIET_NAM_ERA} set:{BED_OCCUPANTS__65_AND_OVER*C} FDA(40.802,IENS,12)={BED_OCCUPANTS__65_AND_OVER} set:{BED_OCCUPANTS__VIET_NAM_ERA*C} FDA(40.802,IENS,13)={BED_OCCUPANTS__VIET_NAM_ERA} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(40.802)") set %SkipFiling=1 if $d(%FMERR(40.802,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(40.802,""DIERR"") for details" RETURN } if {CORRECTIONS_TO_PREVIOUS_GLS*C} { set D0={RowId} kill wp if {CORRECTIONS_TO_PREVIOUS_GLS}'="" { set wproot="wp" for i=1:1:$l({CORRECTIONS_TO_PREVIOUS_GLS},$c(13,10)) { set wp(i)=$p({CORRECTIONS_TO_PREVIOUS_GLS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(40.802,{IENS},20,,wproot,"%FMERR(40.802)") if $d(%FMERR(40.802,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(40.802)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCENSUSDA4A81S data ^DG 40.8 {MEDICAL_CENTER_DIVISION_40_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "CEN" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 7 "^" 0 9 "^" 0 8 "^" 1 3 "^" 1 4 "^" 0 6 "^" 0 1 "A" new data,i,node set {CORRECTIONS_TO_PREVIOUS_GLS}="" merge data=^DG(40.8,{S2},"CEN",{S4},"A") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CORRECTIONS_TO_PREVIOUS_GLS}={CORRECTIONS_TO_PREVIOUS_GLS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 13 "^" 0 4 "^" 0 10 "^" 0 2 "^" 0 5 "^" 0 3 "^" 0 12 "^" 0 11 "^" 1 1 "^" 1 2 Generated class for FileMan Sub-File/Multiple Number: '44.006' Sub-File/Multiple Name: 'CHART CHECK' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CHART_CHECK_44_006 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.526445983 67178,44718.540583889 right CHART CHECK 44.006 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'DATE' FileMan Field Number: '.01' Date chart was checked for availability for this appointment. %Library.FilemanDate 1 3 DATE_01 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBCHARTCHECK44006 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""C"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_01*C} FDA(44.006,IENS,.01)={DATE_01} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.006)") set %SkipFiling=1 if $d(%FMERR(44.006,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.006,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCHARTCHECFD2S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "C" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '49.04' Sub-File/Multiple Name: 'CHIEF PHONE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CHIEF_PHONE_49_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.52867927 67178,44718.579187734 right CHIEF PHONE 49.04 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'CHIEF PHONE' FileMan Field Number: '.01' This field contains a telephone number for the chief of this service or section. %Library.String 1 3 CHIEF_PHONE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SERVICE/SECTION) VALIP.prosthetic.fm2cw.SERVICESECTION49 parent SUBCHIEFPHONE4904 1 1 SERVICESECTION_49 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SERVICESECTION_49},"||"):-1:1 { set DA($i(c))=$p({SERVICESECTION_49},"||",i) } set DIK="^DIC(49,"_DA(1)_",""PH"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CHIEF_PHONE*C} FDA(49.04,IENS,.01)={CHIEF_PHONE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(49.04)") set %SkipFiling=1 if $d(%FMERR(49.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(49.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCHIEFPHOCBA7S data ^DIC 49 {SERVICESECTION_49.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "PH" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.32' Sub-File/Multiple Name: 'CIRCUMFLEX SEGMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CIRCUMFLEX_SEGMENT_691_32 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.550736781 67178,44718.617309918 right CIRCUMFLEX SEGMENT 691.32 2.56 12/04/2024 12:25:18 1 1 IEN 1 SEGMENT_OF_CORONARY_ARTERIES_696]]> CIRCUMFLEXSEGMENT VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_CIRCUMFLEX_SEGMENT LESION_MORPHOLOGY_696_2]]> MORPHOLOGY VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 FKey_MORPHOLOGY PERCENTAGE_LESION_696_1]]> PERCENTNARROWING VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 FKey_PERCENT_NARROWING Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBCIRCUMFLEXSEGMENT69132 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'CIRCUMFLEX SEGMENT' FileMan Field Number: '.01' This allows the user to enter multiple circumflex artery segments. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 CIRCUMFLEX_SEGMENT NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_CIRCUMFLEX_SEGMENT_691_32 where %ID=:id) set {CIRCUMFLEX_SEGMENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CIRCUMFLEX_SEGMENT_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MORPHOLOGY' FileMan Field Number: '2' This allows the user to enter the lesion morphology. VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 6 MORPHOLOGY NAME This file holds the various morphologies for the segment fields and percent narrowing field in Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_CIRCUMFLEX_SEGMENT_691_32 where %ID=:id) set {MORPHOLOGY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MORPHOLOGY_NAME 1 FileMan Field Label: 'PERCENT NARROWING' FileMan Field Number: '1' This allows the user to enter the percent narrowing of the circumflex artery segment. VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 4 PERCENT_NARROWING FileMan Field Label: 'PERCENT NARROWING #' FileMan Field Number: '1.5' This allows the user to enter the percent narrowing of the circumflex artery segment. %Library.Numeric 5 PERCENT_NARROWING_ NAME This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_CIRCUMFLEX_SEGMENT_691_32 where %ID=:id) set {PERCENT_NARROWING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERCENT_NARROWING_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",31,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CIRCUMFLEX_SEGMENT*C} FDA(691.32,IENS,.01)={CIRCUMFLEX_SEGMENT} set:{PERCENT_NARROWING*C} FDA(691.32,IENS,1)={PERCENT_NARROWING} set:{PERCENT_NARROWING_*C} FDA(691.32,IENS,1.5)={PERCENT_NARROWING_} set:{MORPHOLOGY*C} FDA(691.32,IENS,2)={MORPHOLOGY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.32)") set %SkipFiling=1 if $d(%FMERR(691.32,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.32,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCIRCUMFL5278S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 31 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '691.33' Sub-File/Multiple Name: 'CIR. ORIGIN OF COLLATERALS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CIR__ORIGIN_OF_COLLATERALS_691_33 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.555395858 67178,44718.659128026 right CIR. ORIGIN OF COLLATERALS 691.33 2.56 12/04/2024 12:25:18 1 1 IEN 1 SEGMENT_OF_CORONARY_ARTERIES_696]]> ORIGINOFCOLLATERALS VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_ORIGIN_OF_COLLATERALS SEGMENT_OF_CORONARY_ARTERIES_696]]> RECEIVINGVESSEL VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_RECEIVING_VESSEL Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBCIRORIGINOFCOLLATERALS69133 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ORIGIN OF COLLATERALS' FileMan Field Number: '.01' This allows the user to enter the origin of circumflex collaterals. (multiple) VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 ORIGIN_OF_COLLATERALS NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_CIR__ORIGIN_OF_COLLATERALS_691_33 where %ID=:id) set {ORIGIN_OF_COLLATERALS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ORIGIN_OF_COLLATERALS_NAME 1 FileMan Field Label: 'RECEIVING VESSEL' FileMan Field Number: '1' This allows the user to enter the receiving vessel. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 4 RECEIVING_VESSEL NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_CIR__ORIGIN_OF_COLLATERALS_691_33 where %ID=:id) set {RECEIVING_VESSEL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RECEIVING_VESSEL_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",33,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ORIGIN_OF_COLLATERALS*C} FDA(691.33,IENS,.01)={ORIGIN_OF_COLLATERALS} set:{RECEIVING_VESSEL*C} FDA(691.33,IENS,1)={RECEIVING_VESSEL} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.33)") set %SkipFiling=1 if $d(%FMERR(691.33,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.33,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCIRORIGI633CS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 33 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '2.0993' Sub-File/Multiple Name: 'CMOR HISTORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CMOR_HISTORY_2_0993 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.555246902 67178,44718.699098267 right CMOR HISTORY 2.0993 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'CMOR ACTIVITY SCORE' FileMan Field Number: '1' CMOR score at time of change. %Library.Numeric 4 CMOR_ACTIVITY_SCORE FileMan Field Label: 'CMOR CHANGE DATE' FileMan Field Number: '3' Date CMOR was changed. %Library.FilemanDate 6 CMOR_CHANGE_DATE FileMan Field Label: 'CMOR HISTORY' FileMan Field Number: '.01' Primary Care site for patient at time of change. %Library.Numeric 1 3 CMOR_HISTORY FileMan Field Label: 'CMOR SCORE CALCULATION DATE' FileMan Field Number: '2' Date CMOR score was last calculated at time of change. %Library.FilemanTimeStamp 5 CMOR_SCORE_CALCULATION_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCMORHISTORY20993 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""MPICMOR"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CMOR_HISTORY*C} FDA(2.0993,IENS,.01)={CMOR_HISTORY} set:{CMOR_ACTIVITY_SCORE*C} FDA(2.0993,IENS,1)={CMOR_ACTIVITY_SCORE} set:{CMOR_SCORE_CALCULATION_DATE*C} FDA(2.0993,IENS,2)={CMOR_SCORE_CALCULATION_DATE} set:{CMOR_CHANGE_DATE*C} FDA(2.0993,IENS,3)={CMOR_CHANGE_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0993)") set %SkipFiling=1 if $d(%FMERR(2.0993,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0993,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCMORHIST4958S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "MPICMOR" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 1 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '2.191' Sub-File/Multiple Name: 'COMMUNITY CARE PROGRAM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMMUNITY_CARE_PROGRAM_2_191 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.589229905 67178,44718.740071488 right COMMUNITY CARE PROGRAM 2.191 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'ARCHIVE' FileMan Field Number: '4' This is a flag that indicates the CCP entry has been closed out and should not be sent to ES on the ORU/ORF-Z07 message. This flag is set when the eligibility code COLLATERAL OF VET has been removed from the patient record. %Library.EnumString 7 ARCHIVE FileMan Field Label: 'CCP LAST UPDATED DATE' FileMan Field Number: '.01' CCP LAST UPDATED DATE is a standard Fileman Date/Time indicating the last change in the Community Care Program for a person in the Patient file. %Library.FilemanTimeStamp 1 3 CCP_LAST_UPDATED_DATE FileMan Field Label: 'COMMUNITY CARE PROGRAM CODE' FileMan Field Number: '1' This is the program under which a person is registered in the Community Care Program. A - ART/IVF: Assisted Reproductive Technologies (ART) are all treatments or procedures that include the in vitro handling of both human oocytes and sperm, or of embryos, for the purpose of establishing a pregnancy. This includes, but is not limited to, in vitro fertilization; embryo transfer; gamete intrafallopian transfer; zygote intrafallopian transfer; tubal embryo transfer; gamete and embryo cryopreservation for the eligible Veteran and his/her legal spouse. C - MARRIAGE/FAMILY COUNSELING: Some members of the Veteran's immediate family or the Veteran's legal guardian may be eligible to receive family therapy and/or marriage counseling services. I - NEWBORN: Beneficiary Newborn includes newborn care and post-delivery care for a newborn child for the date of birth plus seven calendar days after the birth of the child when the birth mother is a woman Veteran enrolled in VA health care and receiving maternity care furnished under authorization from VA and the child is delivered at VA expense. T - VHA TRANSPLANT PROGRAM: Organ transplant services as a treatment for a medical condition for eligible Veterans. %Library.EnumString 4 COMMUNITY_CARE_PROGRAM_CODE FileMan Field Label: 'EFFECTIVE DATE' FileMan Field Number: '2' This is the date this CCP becomes effective. The date cannot be in the future. %Library.FilemanDate 5 EFFECTIVE_DATE FileMan Field Label: 'END DATE' FileMan Field Number: '3' This is the date that the applicant is removed from the Community Care Program. %Library.FilemanDate 6 END_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCOMMUNITYCAREPROGRAM2191 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CCP_LAST_UPDATED_DATE*C} FDA(2.191,IENS,.01)={CCP_LAST_UPDATED_DATE} set:{COMMUNITY_CARE_PROGRAM_CODE*C} FDA(2.191,IENS,1)={COMMUNITY_CARE_PROGRAM_CODE} set:{EFFECTIVE_DATE*C} FDA(2.191,IENS,2)={EFFECTIVE_DATE} set:{END_DATE*C} FDA(2.191,IENS,3)={END_DATE} set:{ARCHIVE*C} FDA(2.191,IENS,4)={ARCHIVE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.191)") set %SkipFiling=1 if $d(%FMERR(2.191,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.191,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMMUNIT26F6S index ^DPT nonnull {PATIENT_2.IEN} 0]]> 5 "AC" {EFFECTIVE_DATE} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 5 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 5 "^" 0 1 "^" 0 2 "^" 0 3 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '700.024' Sub-File/Multiple Name: 'COMP. FLOW VOL. LOOP INTERP.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMP__FLOW_VOL__LOOP_INTERP__700_024 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.589197427 67178,44719.018565379 right COMP. FLOW VOL. LOOP INTERP. 700.024 2.56 12/04/2024 12:25:19 1 1 IEN 1 INTERPRETATION_693_2]]> COMPFLOWVOLLOOPINTERP VALIP.prosthetic.fm2cw.INTERPRETATION6932 FKey_COMP__FLOW_VOL__LOOP_INTERP_ FileMan Field Label: 'COMP. FLOW VOL. LOOP INTERP.' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.INTERPRETATION6932 1 3 COMP__FLOW_VOL__LOOP_INTERP_ INTERPRETATION This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_COMP__FLOW_VOL__LOOP_INTERP__700_024 where %ID=:id) set {COMP__FLOW_VOL__LOOP_INTERP__INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 COMP__FLOW_VOL__LOOP_INTERP__INTERPRETATION 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBCOMPFLOWVOLLOOPINTERP700024 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMP__FLOW_VOL__LOOP_INTERP_*C} FDA(700.024,IENS,.01)={COMP__FLOW_VOL__LOOP_INTERP_} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.024)") set %SkipFiling=1 if $d(%FMERR(700.024,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.024,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPFLOWVDC2S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 10 "B" {COMP__FLOW_VOL__LOOP_INTERP_} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.027' Sub-File/Multiple Name: 'COMP. GEN. ABG INTERP.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMP__GEN__ABG_INTERP__700_027 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.589039389 67178,44719.097666394 right COMP. GEN. ABG INTERP. 700.027 2.56 12/04/2024 12:25:19 1 1 IEN 1 INTERPRETATION_693_2]]> COMPGENABGINTERP VALIP.prosthetic.fm2cw.INTERPRETATION6932 FKey_COMP__GEN__ABG_INTERP_ FileMan Field Label: 'COMP. GEN. ABG INTERP.' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.INTERPRETATION6932 1 3 COMP__GEN__ABG_INTERP_ INTERPRETATION This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_COMP__GEN__ABG_INTERP__700_027 where %ID=:id) set {COMP__GEN__ABG_INTERP__INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 COMP__GEN__ABG_INTERP__INTERPRETATION 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBCOMPGENABGINTERP700027 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",13,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMP__GEN__ABG_INTERP_*C} FDA(700.027,IENS,.01)={COMP__GEN__ABG_INTERP_} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.027)") set %SkipFiling=1 if $d(%FMERR(700.027,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.027,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPGENAD40AS index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 13 "B" {COMP__GEN__ABG_INTERP_} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 13 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.026' Sub-File/Multiple Name: 'COMP. GEN. DIFFUSION INTERP.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMP__GEN__DIFFUSION_INTERP__700_026 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.588816019 67178,44719.136269115 right COMP. GEN. DIFFUSION INTERP. 700.026 2.56 12/04/2024 12:25:19 1 1 IEN 1 INTERPRETATION_693_2]]> COMPGENDIFFUSIONINTERP VALIP.prosthetic.fm2cw.INTERPRETATION6932 FKey_COMP__GEN__DIFFUSION_INTERP_ FileMan Field Label: 'COMP. GEN. DIFFUSION INTERP.' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.INTERPRETATION6932 1 3 COMP__GEN__DIFFUSION_INTERP_ INTERPRETATION This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_COMP__GEN__DIFFUSION_INTERP__700_026 where %ID=:id) set {COMP__GEN__DIFFUSION_INTERP__INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 COMP__GEN__DIFFUSION_INTERP__INTERPRETATION 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBCOMPGENDIFFUSIONINTERP700026 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",12,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMP__GEN__DIFFUSION_INTERP_*C} FDA(700.026,IENS,.01)={COMP__GEN__DIFFUSION_INTERP_} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.026)") set %SkipFiling=1 if $d(%FMERR(700.026,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.026,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPGEND132FS index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 12 "B" {COMP__GEN__DIFFUSION_INTERP_} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 12 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.033' Sub-File/Multiple Name: 'COMP. GENERATED INTERPRETATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMP__GENERATED_INTERPRETATION_700_033 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.617619199 67178,44719.057936145 right COMP. GENERATED INTERPRETATION 700.033 2.56 12/04/2024 12:25:19 1 1 IEN 1 INTERPRETATION_693_2]]> COMPGENERATEDINTERPRETATION VALIP.prosthetic.fm2cw.INTERPRETATION6932 FKey_COMP__GENERATED_INTERPRETATION FileMan Field Label: 'ACCEPTED?' FileMan Field Number: '1' This field tell whether or not the Interpreter accepted the Computer Generated Interpretation. The Interpretation will appear on the report ONLY IF the Interpreter accepted the Interpretation. %Library.EnumString 4 ACCEPTED FileMan Field Label: 'COMP. GENERATED INTERPRETATION' FileMan Field Number: '.01' This field identifies a computer generated interpretation for the PFT. VALIP.prosthetic.fm2cw.INTERPRETATION6932 1 3 COMP__GENERATED_INTERPRETATION INTERPRETATION This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_COMP__GENERATED_INTERPRETATION_700_033 where %ID=:id) set {COMP__GENERATED_INTERPRETATION_INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 COMP__GENERATED_INTERPRETATION_INTERPRETATION 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBCOMPGENERATEDINTERPRETATION700033 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",24,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMP__GENERATED_INTERPRETATION*C} FDA(700.033,IENS,.01)={COMP__GENERATED_INTERPRETATION} set:{ACCEPTED*C} FDA(700.033,IENS,1)={ACCEPTED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.033)") set %SkipFiling=1 if $d(%FMERR(700.033,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.033,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPGENE5486S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 24 "B" {COMP__GENERATED_INTERPRETATION} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 24 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.023' Sub-File/Multiple Name: 'COMP. GEN. FLOWS INTERP.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMP__GEN__FLOWS_INTERP__700_023 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.618907962 67178,44719.174724943 right COMP. GEN. FLOWS INTERP. 700.023 2.56 12/04/2024 12:25:19 1 1 IEN 1 INTERPRETATION_693_2]]> COMPGENFLOWSINTERP VALIP.prosthetic.fm2cw.INTERPRETATION6932 FKey_COMP__GEN__FLOWS_INTERP_ FileMan Field Label: 'COMP. GEN. FLOWS INTERP.' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.INTERPRETATION6932 1 3 COMP__GEN__FLOWS_INTERP_ INTERPRETATION This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_COMP__GEN__FLOWS_INTERP__700_023 where %ID=:id) set {COMP__GEN__FLOWS_INTERP__INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 COMP__GEN__FLOWS_INTERP__INTERPRETATION 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBCOMPGENFLOWSINTERP700023 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",9,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMP__GEN__FLOWS_INTERP_*C} FDA(700.023,IENS,.01)={COMP__GEN__FLOWS_INTERP_} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.023)") set %SkipFiling=1 if $d(%FMERR(700.023,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.023,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPGENF4252S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 9 "B" {COMP__GEN__FLOWS_INTERP_} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 9 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.022' Sub-File/Multiple Name: 'COMP. GEN. VOLUME INTERP.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMP__GEN__VOLUME_INTERP__700_022 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.620878715 67178,44719.213602956 right COMP. GEN. VOLUME INTERP. 700.022 2.56 12/04/2024 12:25:19 1 1 IEN 1 INTERPRETATION_693_2]]> COMPGENVOLUMEINTERP VALIP.prosthetic.fm2cw.INTERPRETATION6932 FKey_COMP__GEN__VOLUME_INTERP_ FileMan Field Label: 'COMP. GEN. VOLUME INTERP.' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.INTERPRETATION6932 1 3 COMP__GEN__VOLUME_INTERP_ INTERPRETATION This field contains interpretations for Cardiac Catheterization and Pulmonary Function tests.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_COMP__GEN__VOLUME_INTERP__700_022 where %ID=:id) set {COMP__GEN__VOLUME_INTERP__INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 COMP__GEN__VOLUME_INTERP__INTERPRETATION 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBCOMPGENVOLUMEINTERP700022 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMP__GEN__VOLUME_INTERP_*C} FDA(700.022,IENS,.01)={COMP__GEN__VOLUME_INTERP_} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.022)") set %SkipFiling=1 if $d(%FMERR(700.022,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.022,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPGENVB476S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 8 "B" {COMP__GEN__VOLUME_INTERP_} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.4' Sub-File/Multiple Name: 'COMPLICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMPLICATION_691_4 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.62123517 67178,44718.979747496 right COMPLICATION 691.4 2.56 12/04/2024 12:25:18 1 1 IEN 1 COMPLICATION_696_9]]> COMPLICATION VALIP.prosthetic.fm2cw.COMPLICATION6969 FKey_COMPLICATION Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBCOMPLICATION6914 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'COMPLICATION' FileMan Field Number: '.01' This allows the user to enter multiple cardiac cath complication. VALIP.prosthetic.fm2cw.COMPLICATION6969 1 3 COMPLICATION NAME This field contains a list of complications associated with various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_COMPLICATION_691_4 where %ID=:id) set {COMPLICATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLICATION_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",41,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMPLICATION*C} FDA(691.4,IENS,.01)={COMPLICATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.4)") set %SkipFiling=1 if $d(%FMERR(691.4,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.4,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPLICATA22S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 41 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.0103' Sub-File/Multiple Name: 'COMPLICATION/COMORBIDITY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMPLICATIONCOMORBIDITY_80_0103 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.648511374 67178,44718.782271823 right COMPLICATION/COMORBIDITY 80.0103 2.56 12/04/2024 12:25:18 1 1 IEN 1 FileMan Field Label: 'CC EFFECTIVE DATE' FileMan Field Number: '.01' This is the date that a Complication/Comorbidity (CC) designation became effective. %Library.FilemanDate 1 3 CC_EFFECTIVE_DATE FileMan Field Label: 'COMPLICATION/COMORBIDITY' FileMan Field Number: '1' This is the Complication/Comorbidity (CC) designation for the diagnosis. It includes Complication/Comorbidity (CC), Major Complication/Comorbidity (MCC), Major Complication/Comorbidity when patient is discharged alive and non-Complication/Comorbidity (no complications/cormorbidities) %Library.EnumString 4 COMPLICATIONCOMORBIDITY Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBCOMPLICATIONCOMORBIDITY800103 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRIMARY' FileMan Field Number: '2' The value in this field is used to determine whether CC/MCC value is taken from primary diagnosis instead of the secondary diagnosis. %Library.EnumString 5 PRIMARY2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",69,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CC_EFFECTIVE_DATE*C} FDA(80.0103,IENS,.01)={CC_EFFECTIVE_DATE} set:{COMPLICATIONCOMORBIDITY*C} FDA(80.0103,IENS,1)={COMPLICATIONCOMORBIDITY} set:{PRIMARY2*C} FDA(80.0103,IENS,2)={PRIMARY2} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.0103)") set %SkipFiling=1 if $d(%FMERR(80.0103,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.0103,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPLICA2528S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 69 "B" {CC_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 69 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '691.703' Sub-File/Multiple Name: 'COMPLICATIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMPLICATIONS_691_703 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.649101819 67178,44718.822306949 right COMPLICATIONS 691.703 2.56 12/04/2024 12:25:18 1 1 IEN 1 COMPLICATION_696_9]]> COMPLICATIONS VALIP.prosthetic.fm2cw.COMPLICATION6969 FKey_COMPLICATIONS FileMan Field Label: 'COMPLICATIONS' FileMan Field Number: '.01' This field identifies the complications field. VALIP.prosthetic.fm2cw.COMPLICATION6969 1 3 COMPLICATIONS NAME This field contains a list of complications associated with various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_COMPLICATIONS_691_703 where %ID=:id) set {COMPLICATIONS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLICATIONS_NAME 1 Relationship to parent (file name EXERCISE TOLERANCE TEST) VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 parent SUBCOMPLICATIONS691703 1 1 EXERCISE_TOLERANCE_TEST_691_7 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({EXERCISE_TOLERANCE_TEST_691_7},"||"):-1:1 { set DA($i(c))=$p({EXERCISE_TOLERANCE_TEST_691_7},"||",i) } set DIK="^MCAR(691.7,"_DA(1)_",11,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMPLICATIONS*C} FDA(691.703,IENS,.01)={COMPLICATIONS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.703)") set %SkipFiling=1 if $d(%FMERR(691.703,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.703,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPLICA8597S index ^MCAR nonnull 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} 0]]> 11 "B" {COMPLICATIONS} {IEN} 0]]> data ^MCAR 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 11 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '694.055' Sub-File/Multiple Name: 'COMPLICATIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMPLICATIONS_694_055 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.650036759 67178,44718.861674477 right COMPLICATIONS 694.055 2.56 12/04/2024 12:25:18 1 1 IEN 1 COMPLICATION_696_9]]> COMPLICATIONS VALIP.prosthetic.fm2cw.COMPLICATION6969 FKey_COMPLICATIONS FileMan Field Label: 'COMPLICATIONS' FileMan Field Number: '.01' Free text field whose purpose is to document procedural difficulties. VALIP.prosthetic.fm2cw.COMPLICATION6969 1 3 COMPLICATIONS NAME This field contains a list of complications associated with various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_COMPLICATIONS_694_055 where %ID=:id) set {COMPLICATIONS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLICATIONS_NAME 1 Relationship to parent (file name HEMATOLOGY) VALIP.prosthetic.fm2cw.HEMATOLOGY694 parent SUBCOMPLICATIONS694055 1 1 HEMATOLOGY_694 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HEMATOLOGY_694},"||"):-1:1 { set DA($i(c))=$p({HEMATOLOGY_694},"||",i) } set DIK="^MCAR(694,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMPLICATIONS*C} FDA(694.055,IENS,.01)={COMPLICATIONS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.055)") set %SkipFiling=1 if $d(%FMERR(694.055,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.055,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPLICADAA5S index ^MCAR nonnull 694 {HEMATOLOGY_694.IEN} 0]]> 2 "B" {COMPLICATIONS} {IEN} 0]]> data ^MCAR 694 {HEMATOLOGY_694.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.51' Sub-File/Multiple Name: 'COMPLICATIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMPLICATIONS_699_51 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.650230035 67178,44718.901596448 right COMPLICATIONS 699.51 2.56 12/04/2024 12:25:18 1 1 IEN 1 COMPLICATION_696_9]]> COMPLICATIONS VALIP.prosthetic.fm2cw.COMPLICATION6969 FKey_COMPLICATIONS FileMan Field Label: 'COMPLICATIONS' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.COMPLICATION6969 1 3 COMPLICATIONS NAME This field contains a list of complications associated with various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_COMPLICATIONS_699_51 where %ID=:id) set {COMPLICATIONS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLICATIONS_NAME 1 Relationship to parent (file name GENERALIZED PROCEDURE/CONSULT) VALIP.prosthetic.fm2cw.GENERALIZEDPROCEDURECONSULT6995 parent SUBCOMPLICATIONS69951 1 1 GENERALIZED_PROCEDURECONSULT_699_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERALIZED_PROCEDURECONSULT_699_5},"||"):-1:1 { set DA($i(c))=$p({GENERALIZED_PROCEDURECONSULT_699_5},"||",i) } set DIK="^MCAR(699.5,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMPLICATIONS*C} FDA(699.51,IENS,.01)={COMPLICATIONS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.51)") set %SkipFiling=1 if $d(%FMERR(699.51,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.51,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPLICA7480S index ^MCAR nonnull 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} 0]]> 3 "B" {COMPLICATIONS} {IEN} 0]]> data ^MCAR 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.58' Sub-File/Multiple Name: 'COMPLICATIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COMPLICATIONS_699_58 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.677382895 67178,44718.94132395 right COMPLICATIONS 699.58 2.56 12/04/2024 12:25:18 1 1 IEN 1 COMPLICATION_696_9]]> COMPLICATIONS VALIP.prosthetic.fm2cw.COMPLICATION6969 FKey_COMPLICATIONS FileMan Field Label: 'COMPLICATIONS' FileMan Field Number: '.01' This field identifies any complications encountered during the procedure or as a result of the procedure. VALIP.prosthetic.fm2cw.COMPLICATION6969 1 3 COMPLICATIONS NAME This field contains a list of complications associated with various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_COMPLICATIONS_699_58 where %ID=:id) set {COMPLICATIONS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COMPLICATIONS_NAME 1 FileMan Field Label: 'COMP. RESULTS' FileMan Field Number: '1' This field identifies the result of the complication, ranging from REQUIRED NO THERAPY to RESULTING IN DEATH. %Library.EnumString 4 COMP__RESULTS Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBCOMPLICATIONS69958 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",17,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COMPLICATIONS*C} FDA(699.58,IENS,.01)={COMPLICATIONS} set:{COMP__RESULTS*C} FDA(699.58,IENS,1)={COMP__RESULTS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.58)") set %SkipFiling=1 if $d(%FMERR(699.58,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.58,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOMPLICA7240S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 17 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '2.141' Sub-File/Multiple Name: 'CONFIDENTIAL ADDRESS CATEGORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CONFIDENTIAL_ADDRESS_CATEGORY_2_141 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.678982542 67178,44719.252367897 right CONFIDENTIAL ADDRESS CATEGORY 2.141 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'CONFIDENTIAL ADDRESS CATEGORY' FileMan Field Number: '.01' If the 'Confidential Address Active' prompt is answered YES, select the confidential address category for this applicant's confidential communications. %Library.EnumString 1 3 CONFIDENTIAL_ADDRESS_CATEGORY FileMan Field Label: 'CONFIDENTIAL CATEGORY ACTIVE' FileMan Field Number: '1' If the applicant's confidential communications for this category should be sent to the confidential address, Confidential Category Active field should be set to yes. If not, select N or No. %Library.EnumString 4 CONFIDENTIAL_CATEGORY_ACTIVE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCONFIDENTIALADDRESSCATEGORY2141 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.14,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CONFIDENTIAL_ADDRESS_CATEGORY*C} FDA(2.141,IENS,.01)={CONFIDENTIAL_ADDRESS_CATEGORY} set:{CONFIDENTIAL_CATEGORY_ACTIVE*C} FDA(2.141,IENS,1)={CONFIDENTIAL_CATEGORY_ACTIVE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.141)") set %SkipFiling=1 if $d(%FMERR(2.141,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.141,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCONFIDEN8B94S index ^DPT nonnull {PATIENT_2.IEN} 0]]> .14 "B" {CONFIDENTIAL_ADDRESS_CATEGORY} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .14 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '700.01' Sub-File/Multiple Name: 'CONSULT DX' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CONSULT_DX_700_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.68041959 67178,44719.290445015 right CONSULT DX 700.01 2.56 12/04/2024 12:25:19 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> CONSULTDX VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_CONSULT_DX FileMan Field Label: 'CONSULT DX' FileMan Field Number: '.01' This field identifies the diagnosis sent to the PFT lab by the referring physician VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 CONSULT_DX DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_CONSULT_DX_700_01 where %ID=:id) set {CONSULT_DX_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 CONSULT_DX_DIAGNOSIS 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBCONSULTDX70001 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CONSULT_DX*C} FDA(700.01,IENS,.01)={CONSULT_DX} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.01)") set %SkipFiling=1 if $d(%FMERR(700.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCONSULTDX7EAS index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 1 "B" {CONSULT_DX} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '4.03' Sub-File/Multiple Name: 'CONTACT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CONTACT_4_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.68123379 67178,44719.328614564 right CONTACT 4.03 2.56 12/04/2024 12:25:19 1 1 IEN 1 HOSPITAL_LOCATION_44]]> AREA VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_AREA FileMan Field Label: 'AREA' FileMan Field Number: '.02' Pointer to the part of the site the contact works in. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 4 AREA NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_CONTACT_4_03 where %ID=:id) set {AREA_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AREA_NAME 1 FileMan Field Label: 'CONTACT' FileMan Field Number: '.01' The name of a contact at the site. %Library.String 1 3 CONTACT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INSTITUTION) VALIP.prosthetic.fm2cw.INSTITUTION4 parent SUBCONTACT403 1 1 INSTITUTION_4 FileMan Field Label: 'PHONE #' FileMan Field Number: '.03' Telephone number. %Library.String 5 PHONE_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({INSTITUTION_4},"||"):-1:1 { set DA($i(c))=$p({INSTITUTION_4},"||",i) } set DIK="^DIC(4,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CONTACT*C} FDA(4.03,IENS,.01)={CONTACT} set:{AREA*C} FDA(4.03,IENS,.02)={AREA} set:{PHONE_*C} FDA(4.03,IENS,.03)={PHONE_} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.03)") set %SkipFiling=1 if $d(%FMERR(4.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.SUBCONTACT403S data ^DIC 4 {INSTITUTION_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '440.03' Sub-File/Multiple Name: 'CONTRACT/BOA NUMBER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CONTRACTBOA_NUMBER_440_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.709513661 67178,44719.368160908 right CONTRACT/BOA NUMBER 440.03 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'BEGINING DATE' FileMan Field Number: '.5' This is the starting date for this contract. %Library.FilemanDate 4 BEGINING_DATE FileMan Field Label: 'CONTRACT/BOA NUMBER' FileMan Field Number: '.01' This is the Contract/BOA number. This field will have values for Contract # or BOA # as appropriate. %Library.String 1 3 CONTRACTBOA_NUMBER FileMan Field Label: 'CONTRACT FLAG' FileMan Field Number: '5' This field will indicate whether the CONTRACT NUMBER field contains a Contract # or a Basic Ordering Agreement(BOA) #. %Library.EnumString 1 9 CONTRACT_FLAG FileMan Field Label: 'CONTRACT TERMS' FileMan Field Number: '2' These are the contract terms. %Library.String 6 CONTRACT_TERMS FileMan Field Label: 'EXPIRATION DATE' FileMan Field Number: '1' This is the expiration date of this vendor contract. %Library.FilemanDate 1 5 EXPIRATION_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROMPT PAYMENT TERMS %' FileMan Field Number: '3' These are the prompt payment terms. %Library.String 7 PROMPT_PAYMENT_TERMS_ FileMan Field Label: 'PROMPT PAYMENT TERMS DAYS' FileMan Field Number: '4' These are the prompt payment terms number of days. %Library.Numeric 8 PROMPT_PAYMENT_TERMS_DAYS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 Relationship to parent (file name VENDOR) VALIP.prosthetic.fm2cw.VENDOR440 parent SUBCONTRACTBOANUMBER44003 1 1 VENDOR_440 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({VENDOR_440},"||"):-1:1 { set DA($i(c))=$p({VENDOR_440},"||",i) } set DIK="^PRC(440,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CONTRACTBOA_NUMBER*C} FDA(440.03,IENS,.01)={CONTRACTBOA_NUMBER} set:{BEGINING_DATE*C} FDA(440.03,IENS,.5)={BEGINING_DATE} set:{EXPIRATION_DATE*C} FDA(440.03,IENS,1)={EXPIRATION_DATE} set:{CONTRACT_TERMS*C} FDA(440.03,IENS,2)={CONTRACT_TERMS} set:{PROMPT_PAYMENT_TERMS_*C} FDA(440.03,IENS,3)={PROMPT_PAYMENT_TERMS_} set:{PROMPT_PAYMENT_TERMS_DAYS*C} FDA(440.03,IENS,4)={PROMPT_PAYMENT_TERMS_DAYS} set:{CONTRACT_FLAG*C} FDA(440.03,IENS,5)={CONTRACT_FLAG} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(440.03)") set %SkipFiling=1 if $d(%FMERR(440.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(440.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCONTRACT7D8CS index ^PRC nonnull 440 {VENDOR_440.IEN} 0]]> 4 "B" {CONTRACTBOA_NUMBER} {IEN} 0]]> data ^PRC 440 {VENDOR_440.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 1 "^" 0 6 "^" 1 1 "^" 0 2 "^" 0 4 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '3.2055' Sub-File/Multiple Name: 'CONTROL CODES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CONTROL_CODES_3_2055 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.710698962 67178,44719.408936022 right CONTROL CODES 3.2055 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'CONTROL CODE' FileMan Field Number: '2' This field holds the device Control Code for the function. The value in this field is the argument of a XECUTE statement. If the value of this field is in V it will be used like XECUTE V. %Library.String 1 7 s {CONTROL_CODE}=$e({NODE_1},1,245) 1 CONTROL_CODE FileMan Field Label: 'CTRL CODE ABBREVIATION' FileMan Field Number: '.01' This multiple holds device control codes. It is up to each application to advise the sites on what data needs to be placed in these fields. This field holds a short abbreviation for the code. The sub-file is cross referenced by this field. The abbreviation and full name for any control codes are controlled by Integration Agrement #3435. Before any new abbreviations are added to this file see that they have been added to Integration Agrement #3435 first. %Library.String 1 4 CTRL_CODE_ABBREVIATION FileMan Field Label: 'FULL NAME' FileMan Field Number: '1' This is a long name for the control code. The abbreviation and full name for any control codes are controlled by Integration Agrement #3435. Before any new abbreviations are added to this file see that they have been added to Integration Agrement #3435 first. %Library.String 5 FULL_NAME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Computed Field For Node 1 %Library.String 1 6 s {NODE_1}=$g(^%ZIS(2,$p({RowId},"||"),55,{IEN},1)) 1 NODE_1 FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field controls the internal sequence that the data is stored in the file. %Library.String 1 3 Set {*}={IEN} 1 NUMBER Relationship to parent (file name TERMINAL TYPE) VALIP.prosthetic.fm2cw.TERMINALTYPE32 parent SUBCONTROLCODES32055 1 1 TERMINAL_TYPE_3_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TERMINAL_TYPE_3_2},"||"):-1:1 { set DA($i(c))=$p({TERMINAL_TYPE_3_2},"||",i) } set DIK="^%ZIS(2,"_DA(1)_",55,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CTRL_CODE_ABBREVIATION*C} FDA(3.2055,IENS,.01)={CTRL_CODE_ABBREVIATION} set:{FULL_NAME*C} FDA(3.2055,IENS,1)={FULL_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(3.2055)") set %SkipFiling=1 if $d(%FMERR(3.2055,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(3.2055,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCONTROLC93F5S index ^%ZIS nonnull 2 {TERMINAL_TYPE_3_2.IEN} 0]]> 55 "B" {CTRL_CODE_ABBREVIATION} {IEN} 0]]> data ^%ZIS 2 {TERMINAL_TYPE_3_2.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 55 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.0206' Sub-File/Multiple Name: 'COUGH' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COUGH_699_0206 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.712600791 67178,44719.448322811 right COUGH 699.0206 2.56 12/04/2024 12:25:19 1 1 IEN 1 SYMPTOM_695_5]]> TYPEOFCOUGH VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_TYPE_OF_COUGH FileMan Field Label: 'DURATION' FileMan Field Number: '1' This free text subfield indicates the duration of the cough. %Library.String 4 DURATION Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBCOUGH6990206 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'TYPE OF COUGH' FileMan Field Number: '.01' This field identifies the type of cough the patient has. Used in Pulmonary Endoscopy. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 TYPE_OF_COUGH NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_COUGH_699_0206 where %ID=:id) set {TYPE_OF_COUGH_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_OF_COUGH_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TYPE_OF_COUGH*C} FDA(699.0206,IENS,.01)={TYPE_OF_COUGH} set:{DURATION*C} FDA(699.0206,IENS,1)={DURATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.0206)") set %SkipFiling=1 if $d(%FMERR(699.0206,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.0206,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCOUGH699862BS index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 10 "B" {TYPE_OF_COUGH} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '5.01' Sub-File/Multiple Name: 'COUNTY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_COUNTY_5_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.719836661 67178,44719.486850039 right COUNTY 5.01 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains the abbreviation of this county. This field can be 1-5 characters. %Library.String 4 ABBREVIATION FileMan Field Label: 'CATCHMENT CODE' FileMan Field Number: '3' This field contains the catchment code (the service area) for this county. Data in this field must not be edited unless it is under the direction of VA Central Office. %Library.String 6 CATCHMENT_CODE FileMan Field Label: 'COUNTY' FileMan Field Number: '.01' This field contains the name of the county as distributed by VA Central Office. This information should not be altered unless you are directed to do so. Addition, deletion, or modification of this data could have severe, adverse affects on many DHCP packages and cause rejects of data transmitted to Austin. %Library.String 1 3 COUNTY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '5' This date represents the date when the VA determined that the county was no longer valid. %Library.FilemanDate 7 INACTIVE_DATE Relationship to parent (file name STATE) VALIP.prosthetic.fm2cw.STATE5 parent SUBCOUNTY501 1 1 STATE_5 FileMan Field Label: 'VA COUNTY CODE' FileMan Field Number: '2' This field contains the numeric county code assigned to this conty. This assignment is made by VA Central Office and changes should not be made to these codes unless done through a national software upgrade or with the direction of VACO. This information is transmitted in many packages to the Austin DPC and editing of this data could cause rejects to occur as well as other negative ramifications. %Library.String 5 VA_COUNTY_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({STATE_5},"||"):-1:1 { set DA($i(c))=$p({STATE_5},"||",i) } set DIK="^DIC(5,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COUNTY*C} FDA(5.01,IENS,.01)={COUNTY} set:{ABBREVIATION*C} FDA(5.01,IENS,1)={ABBREVIATION} set:{VA_COUNTY_CODE*C} FDA(5.01,IENS,2)={VA_COUNTY_CODE} set:{CATCHMENT_CODE*C} FDA(5.01,IENS,3)={CATCHMENT_CODE} set:{INACTIVE_DATE*C} FDA(5.01,IENS,5)={INACTIVE_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(5.01)") set %SkipFiling=1 if $d(%FMERR(5.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(5.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.SUBCOUNTY501S index ^DIC nonnull 5 {STATE_5.IEN} 0]]> 1 "B" {COUNTY} {IEN} 0]]> index ^DIC nonnull 5 {STATE_5.IEN} 0]]> 1 "C" {VA_COUNTY_CODE} {IEN} 0]]> data ^DIC 5 {STATE_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 1 "^" 0 5 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '200.010113' Sub-File/Multiple Name: 'CPRS TAB' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CPRS_TAB_200_010113 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.744658615 67178,44719.527502419 right CPRS TAB 200.010113 2.56 12/04/2024 12:25:19 1 1 IEN 1 OR_CPRS_TABS_101_13]]> CPRSTAB VALIP.prosthetic.fm2cw.ORCPRSTABS10113 FKey_CPRS_TAB FileMan Field Label: 'CPRS TAB' FileMan Field Number: '.01' This is a pointer to the OR CPRS TABS (#101.13) file. Enter the name of the CPRS tab for which you want to set effective and expiration dates for access for this user. VALIP.prosthetic.fm2cw.ORCPRSTABS10113 1 3 CPRS_TAB TAB NAME This field stores CPRS GUI Cover Sheet tab acronyms.]]> %Library.String 1 TAB_NAME into :val from VALIP_prosthetic_fm2cw.SUB_CPRS_TAB_200_010113 where %ID=:id) set {CPRS_TAB_TAB_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CPRS_TAB_TAB_NAME 1 FileMan Field Label: 'EFFECTIVE DATE' FileMan Field Number: '.02' This is the effective date of access to the CPRS tab. %Library.FilemanDate 4 EFFECTIVE_DATE FileMan Field Label: 'EXPIRATION DATE' FileMan Field Number: '.03' This is the expiration date of access to the CPRS tab. %Library.FilemanDate 5 EXPIRATION_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBCPRSTAB200010113 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""ORD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CPRS_TAB*C} FDA(200.010113,IENS,.01)={CPRS_TAB} set:{EFFECTIVE_DATE*C} FDA(200.010113,IENS,.02)={EFFECTIVE_DATE} set:{EXPIRATION_DATE*C} FDA(200.010113,IENS,.03)={EXPIRATION_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.010113)") set %SkipFiling=1 if $d(%FMERR(200.010113,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.010113,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCPRSTAB2387DS index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "ORD" "B" {CPRS_TAB} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ORD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '697.21' Sub-File/Multiple Name: 'CPT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CPT_697_21 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.744558716 67178,44719.566173575 right CPT 697.21 2.56 12/04/2024 12:25:19 1 1 IEN 1 CPT_81]]> CPT VALIP.prosthetic.fm2cw.CPT81 FKey_CPT FileMan Field Label: 'CPT' FileMan Field Number: '.01' This field allows the user to associate CPT codes with a procedure. VALIP.prosthetic.fm2cw.CPT81 1 3 CPT CPT CODE This file contains both CPT from the AMA and HCFA. The AMA entries will have an internal number less than 99999. The AMA CPT are '5' numbers that coorespond to the internal number. The HCFA codes will have an internal number of 100000 or greater. These codes are '1' alpha followed by '4' numbers, which will NOT correspond to the internal number.]]> %Library.String 1 CPT_CODE into :val from VALIP_prosthetic_fm2cw.SUB_CPT_697_21 where %ID=:id) set {CPT_CPT_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 CPT_CPT_CODE 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROCEDURE/SUBSPECIALTY) VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 parent SUBCPT69721 1 1 PROCEDURESUBSPECIALTY_697_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROCEDURESUBSPECIALTY_697_2},"||"):-1:1 { set DA($i(c))=$p({PROCEDURESUBSPECIALTY_697_2},"||",i) } set DIK="^MCAR(697.2,"_DA(1)_",""CPT"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CPT*C} FDA(697.21,IENS,.01)={CPT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.21)") set %SkipFiling=1 if $d(%FMERR(697.21,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(697.21,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBCPT69721S index ^MCAR nonnull 697.2 {PROCEDURESUBSPECIALTY_697_2.IEN} 0]]> "CPT" "B" {CPT} {IEN} 0]]> data ^MCAR 697.2 {PROCEDURESUBSPECIALTY_697_2.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "CPT" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.2511' Sub-File/Multiple Name: 'CURRENT HEALTH BENEFIT PLAN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_CURRENT_HEALTH_BENEFIT_PLAN_2_2511 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.745171492 67178,44719.605300118 right CURRENT HEALTH BENEFIT PLAN 2.2511 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'ASSIGNED DATE AND TIME' FileMan Field Number: '1' This field contains the date and time the Health Benefit Plan was assigned for the patient. It is automatically set by the system. %Library.FilemanTimeStamp 3 ASSIGNED_DATE_AND_TIME FileMan Field Label: 'CURRENT SOURCE' FileMan Field Number: '4' This field contains the source of the Health Benefit plan assignment. Current Source is automatically set by the system. The VistA system can only assign a health benefit plan code if the existing Current Source is VistA or blank, which is not assigned yet. %Library.EnumString 4 CURRENT_SOURCE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBCURRENTHEALTHBENEFITPLAN22511 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""HBP"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ASSIGNED_DATE_AND_TIME*C} FDA(2.2511,IENS,1)={ASSIGNED_DATE_AND_TIME} set:{CURRENT_SOURCE*C} FDA(2.2511,IENS,4)={CURRENT_SOURCE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.2511)") set %SkipFiling=1 if $d(%FMERR(2.2511,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.2511,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBCURRENTH7DF0S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "HBP" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '49.07' Sub-File/Multiple Name: 'DATE CLOSED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DATE_CLOSED_49_07 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.753217108 67178,44719.643345644 right DATE CLOSED 49.07 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'DATE CLOSED' FileMan Field Number: '.01' This field contains a date/time when this service or section closed for hospital use. %Library.FilemanDate 1 3 DATE_CLOSED FileMan Field Label: 'DATE RE-OPENED' FileMan Field Number: '1' This field contains a date/time when this closed service or section was reopened for hospital use. %Library.FilemanDate 4 DATE_REOPENED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SERVICE/SECTION) VALIP.prosthetic.fm2cw.SERVICESECTION49 parent SUBDATECLOSED4907 1 1 SERVICESECTION_49 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SERVICESECTION_49},"||"):-1:1 { set DA($i(c))=$p({SERVICESECTION_49},"||",i) } set DIK="^DIC(49,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_CLOSED*C} FDA(49.07,IENS,.01)={DATE_CLOSED} set:{DATE_REOPENED*C} FDA(49.07,IENS,1)={DATE_REOPENED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(49.07)") set %SkipFiling=1 if $d(%FMERR(49.07,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(49.07,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDATECLOSA4F8S data ^DIC 49 {SERVICESECTION_49.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '2.03' Sub-File/Multiple Name: 'DATE FOR STOP CODE(S)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DATE_FOR_STOP_CODES_2_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.772827618 67178,44719.701624034 right DATE FOR STOP CODE(S) 2.03 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'DATE FOR STOP CODE(S)' FileMan Field Number: '.01' %Library.FilemanDate 1 3 DATE_FOR_STOP_CODES Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBDATEFORSTOPCODES203 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""SDVD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_FOR_STOP_CODES*C} FDA(2.03,IENS,.01)={DATE_FOR_STOP_CODES} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.03)") set %SkipFiling=1 if $d(%FMERR(2.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDATEFORSECF9S index ^DPT nonnull "ASDVD" {DATE_FOR_STOP_CODES} {PATIENT_2.IEN} 0]]> {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "SDVD" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '665.02' Sub-File/Multiple Name: 'DATE OF CLOTHING ALLOWANCE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DATE_OF_CLOTHING_ALLOWANCE_665_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.632950417 67178,44719.741149817 right DATE OF CLOTHING ALLOWANCE 665.02 2.56 12/04/2024 12:25:19 1 1 IEN 1 NEW_PERSON_200]]> EXAMINER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_EXAMINER FileMan Field Label: 'CLOTHING ALLOWANCE DESCRIPTION' FileMan Field Number: '3' Description of reason for clothing allowance. %Library.String 6 CLOTHING_ALLOWANCE_DESCRIPTION FileMan Field Label: 'CLOTHING ALLOWANCE EXAM' FileMan Field Number: '4' Indicates if veteran has had a clothing allowance exam. %Library.EnumString 7 CLOTHING_ALLOWANCE_EXAM FileMan Field Label: 'DATE OF CLOTHING ALLOWANCE' FileMan Field Number: '.01' Date of Clothing Allowance eligibility determination. %Library.FilemanDate 1 3 DATE_OF_CLOTHING_ALLOWANCE FileMan Field Label: 'DATE OF EXAM' FileMan Field Number: '5' Date of clothing allowance exam. %Library.FilemanDate 8 DATE_OF_EXAM FileMan Field Label: 'ELIGIBLE/NOT ELIGIBLE' FileMan Field Number: '1' Field that contains code which designates patients as eligible for clothing allowance. %Library.EnumString 4 ELIGIBLENOT_ELIGIBLE FileMan Field Label: 'EXAMINER' FileMan Field Number: '6' Pointer to the New Person file. Contains the name of the Examiner who determined the Clothing Allowance eligibility. VALIP.prosthetic.fm2cw.NEWPERSON200 9 EXAMINER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DATE_OF_CLOTHING_ALLOWANCE_665_02 where %ID=:id) set {EXAMINER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EXAMINER_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS PATIENT) VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 parent SUBDATEOFCLOTHINGALLOWANCE66502 1 1 PROSTHETICS_PATIENT_665 FileMan Field Label: 'STATIC/NON-STATIC' FileMan Field Number: '2' Field that contains code that determines if patients is Static or Non-Static. %Library.EnumString 5 STATICNONSTATIC SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_PATIENT_665},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_PATIENT_665},"||",i) } set DIK="^RMPR(665,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_OF_CLOTHING_ALLOWANCE*C} FDA(665.02,IENS,.01)={DATE_OF_CLOTHING_ALLOWANCE} set:{ELIGIBLENOT_ELIGIBLE*C} FDA(665.02,IENS,1)={ELIGIBLENOT_ELIGIBLE} set:{STATICNONSTATIC*C} FDA(665.02,IENS,2)={STATICNONSTATIC} set:{CLOTHING_ALLOWANCE_DESCRIPTION*C} FDA(665.02,IENS,3)={CLOTHING_ALLOWANCE_DESCRIPTION} set:{CLOTHING_ALLOWANCE_EXAM*C} FDA(665.02,IENS,4)={CLOTHING_ALLOWANCE_EXAM} set:{DATE_OF_EXAM*C} FDA(665.02,IENS,5)={DATE_OF_EXAM} set:{EXAMINER*C} FDA(665.02,IENS,6)={EXAMINER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665.02)") set %SkipFiling=1 if $d(%FMERR(665.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(665.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDATEOFCL9CA3S index ^RMPR nonnull 665 {PROSTHETICS_PATIENT_665.IEN} 0]]> 6 "B" {DATE_OF_CLOTHING_ALLOWANCE} {IEN} 0]]> data ^RMPR 665 {PROSTHETICS_PATIENT_665.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 1 1 "^" 0 4 "^" 0 1 "^" 0 5 "^" 0 2 "^" 0 6 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '2.11' Sub-File/Multiple Name: 'DATE OF DENTAL TREATMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DATE_OF_DENTAL_TREATMENT_2_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.774227773 67178,44719.783304925 right DATE OF DENTAL TREATMENT 2.11 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'CONDITION' FileMan Field Number: '2' Enter the patient's condition on the date in which they received dental treatment. Also enter the place of treatment and from whom the treatment was received. This field allows entry of 3-100 characters. %Library.String 4 CONDITION FileMan Field Label: 'DATE CONDITION FIRST NOTICED' FileMan Field Number: '3' Enter the date the patient states s/he first noticed this dental condition. %Library.FilemanDate 5 DATE_CONDITION_FIRST_NOTICED FileMan Field Label: 'DATE OF DENTAL TREATMENT' FileMan Field Number: '.01' %Library.FilemanDate 1 3 DATE_OF_DENTAL_TREATMENT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBDATEOFDENTALTREATMENT211 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.37,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_OF_DENTAL_TREATMENT*C} FDA(2.11,IENS,.01)={DATE_OF_DENTAL_TREATMENT} set:{CONDITION*C} FDA(2.11,IENS,2)={CONDITION} set:{DATE_CONDITION_FIRST_NOTICED*C} FDA(2.11,IENS,3)={DATE_CONDITION_FIRST_NOTICED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.11)") set %SkipFiling=1 if $d(%FMERR(2.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.11,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDATEOFDEFDE3S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .37 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.0089832' Sub-File/Multiple Name: 'DEFINED FORMATS FOR LM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DEFINED_FORMATS_FOR_LM_200_0089832 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.778253023 67178,44719.822811865 right DEFINED FORMATS FOR LM 200.0089832 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'DEFAULT' FileMan Field Number: '1' If set to yes, this format line will be used as the default format line when using the screen editor. If a document already has a format line defined, then the document format will be used. %Library.EnumString 4 DEFAULT1 FileMan Field Label: 'FORMAT LINE' FileMan Field Number: '2' This field stores the predefined format lines of the user. %Library.String 5 FORMAT_LINE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBDEFINEDFORMATSFORLM2000089832 1 1 NEW_PERSON_200 FileMan Field Label: 'NUMBER' FileMan Field Number: '.01' This is the reference number to the predefined format line. %Library.Numeric 1 3 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""LM2"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{NUMBER*C} FDA(200.0089832,IENS,.01)={NUMBER} set:{DEFAULT1*C} FDA(200.0089832,IENS,1)={DEFAULT1} set:{FORMAT_LINE*C} FDA(200.0089832,IENS,2)={FORMAT_LINE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.0089832)") set %SkipFiling=1 if $d(%FMERR(200.0089832,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.0089832,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDEFINEDF9F28S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "LM2" "AC" {DEFAULT1} {IEN} 0]]> index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "LM2" "B" {NUMBER} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "LM2" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.0089833' Sub-File/Multiple Name: 'DEFINED PHRASES FOR LM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DEFINED_PHRASES_FOR_LM_200_0089833 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.78301834 67178,44719.864796029 right DEFINED PHRASES FOR LM 200.0089833 2.56 12/04/2024 12:25:19 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'KEYWORD' FileMan Field Number: '.01' The predefined phrase 'keyword' used to select the phrase. %Library.String 1 3 KEYWORD Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBDEFINEDPHRASESFORLM2000089833 1 1 NEW_PERSON_200 FileMan Field Label: 'PHRASE' FileMan Field Number: '1' The phrase to be inserted into the document. %Library.String 4 PHRASE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""LM3"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{KEYWORD*C} FDA(200.0089833,IENS,.01)={KEYWORD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.0089833)") set %SkipFiling=1 if $d(%FMERR(200.0089833,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.0089833,""DIERR"") for details" RETURN } if {PHRASE*C} { set D0={RowId} kill wp if {PHRASE}'="" { set wproot="wp" for i=1:1:$l({PHRASE},$c(13,10)) { set wp(i)=$p({PHRASE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(200.0089833,{IENS},1,,wproot,"%FMERR(200.0089833)") if $d(%FMERR(200.0089833,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(200.0089833)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDEFINEDPB682S index {KEYWORD}'="" 1 ^VA conditional 200 {NEW_PERSON_200.IEN} 0]]> "LM3" "B" $$TRUNCATE({KEYWORD},30)) {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "LM3" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 1 new data,i,node set {PHRASE}="" merge data=^VA(200,{S2},"LM3",{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PHRASE}={PHRASE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} Generated class for FileMan Sub-File/Multiple Number: '130.042' Sub-File/Multiple Name: 'DELAY CAUSE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DELAY_CAUSE_130_042 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.810633991 67178,44719.904951653 right DELAY CAUSE 130.042 2.56 12/04/2024 12:25:19 1 1 IEN 1 FileMan Field Label: 'DELAY COMMENTS' FileMan Field Number: '2' This contains comments related to the delay cause. %Library.String 4 DELAY_COMMENTS FileMan Field Label: 'DELAY TIME' FileMan Field Number: '1' Delay Time This is the number of minutes (1-600) that this case was delayed due to this cause. Although optional, this information will appear on the Report of Delayed Operations. %Library.Numeric 3 DELAY_TIME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBDELAYCAUSE130042 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",17,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DELAY_TIME*C} FDA(130.042,IENS,1)={DELAY_TIME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.042)") set %SkipFiling=1 if $d(%FMERR(130.042,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.042,""DIERR"") for details" RETURN } if {DELAY_COMMENTS*C} { set D0={RowId} kill wp if {DELAY_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({DELAY_COMMENTS},$c(13,10)) { set wp(i)=$p({DELAY_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.042,{IENS},2,,wproot,"%FMERR(130.042)") if $d(%FMERR(130.042,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.042)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDELAYCAU24DCS data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 17 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 1 new data,i,node set {DELAY_COMMENTS}="" merge data=^SRF({S1},17,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DELAY_COMMENTS}={DELAY_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.052' Sub-File/Multiple Name: 'DELEGATED KEYS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DELEGATED_KEYS_200_052 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.807005914 67178,44719.944635392 right DELEGATED KEYS 200.052 2.56 12/04/2024 12:25:19 1 1 IEN 1 NEW_PERSON_200]]> DELEGATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELEGATED_BY SECURITY_KEY_19_1]]> DELEGATEDKEY VALIP.prosthetic.fm2cw.SECURITYKEY191 FKey_DELEGATED_KEY FileMan Field Label: 'DATE DELEGATED' FileMan Field Number: '2' This is the date that the security key was given to be delegated. %Library.FilemanDate 5 DATE_DELEGATED FileMan Field Label: 'DELEGATED BY' FileMan Field Number: '1' This is the person that gave the security key that may be delegated. VALIP.prosthetic.fm2cw.NEWPERSON200 4 DELEGATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DELEGATED_KEYS_200_052 where %ID=:id) set {DELEGATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELEGATED_BY_NAME 1 FileMan Field Label: 'DELEGATED KEY' FileMan Field Number: '.01' This is a security key that this person my allocate to another person. VALIP.prosthetic.fm2cw.SECURITYKEY191 1 3 DELEGATED_KEY NAME This is the name of the key, beginning with the package prefix Each entry in this File is the name of a key that defines some characteristic or capability for individual specified users. The capability might be access to some OPTION (file 19) which is permited with the authorization. Other functionalities (such as allowing scheduling overbook) might also be allowed only if the key is held. Keys are named with the standard package prefix formats; a 2-4 character package prefix for standard names or Z.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DELEGATED_KEYS_200_052 where %ID=:id) set {DELEGATED_KEY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELEGATED_KEY_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MAY RE-DELEGATE' FileMan Field Number: '3' Re-delegation means that the person has total control over the key, the person may not only delegate the key to others but may also give others the authorization to delegate it. %Library.EnumString 6 MAY_REDELEGATE Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBDELEGATEDKEYS200052 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",52,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DELEGATED_KEY*C} FDA(200.052,IENS,.01)={DELEGATED_KEY} set:{DELEGATED_BY*C} FDA(200.052,IENS,1)={DELEGATED_BY} set:{DATE_DELEGATED*C} FDA(200.052,IENS,2)={DATE_DELEGATED} set:{MAY_REDELEGATE*C} FDA(200.052,IENS,3)={MAY_REDELEGATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.052)") set %SkipFiling=1 if $d(%FMERR(200.052,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.052,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDELEGATE9B7CS index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 52 "B" {DELEGATED_KEY} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 52 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '200.19' Sub-File/Multiple Name: 'DELEGATED OPTIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DELEGATED_OPTIONS_200_19 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.814642803 67178,44719.985064138 right DELEGATED OPTIONS 200.19 2.56 12/04/2024 12:25:19 1 1 IEN 1 NEW_PERSON_200]]> DELEGATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELEGATED_BY OPTION_19]]> DELEGATEDOPTIONS VALIP.prosthetic.fm2cw.OPTION19 FKey_DELEGATED_OPTIONS FileMan Field Label: 'DATE DELEGATED' FileMan Field Number: '2' This field records the date when this option was added to the list of options this user may delegate to others. %Library.FilemanDate 5 DATE_DELEGATED FileMan Field Label: 'DELEGATED BY' FileMan Field Number: '1' This field indicates who granted authority for this user to delegate this option to others. VALIP.prosthetic.fm2cw.NEWPERSON200 4 DELEGATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DELEGATED_OPTIONS_200_19 where %ID=:id) set {DELEGATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELEGATED_BY_NAME 1 FileMan Field Label: 'DELEGATED OPTIONS' FileMan Field Number: '.01' This field identifies which options this user may delegate to others. VALIP.prosthetic.fm2cw.OPTION19 1 3 DELEGATED_OPTIONS NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DELEGATED_OPTIONS_200_19 where %ID=:id) set {DELEGATED_OPTIONS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELEGATED_OPTIONS_NAME 1 FileMan Field Label: 'EDITABLE' FileMan Field Number: '3' This field indicates whether this use is allowed to edit this option. %Library.EnumString 6 EDITABLE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBDELEGATEDOPTIONS20019 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",19.5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DELEGATED_OPTIONS*C} FDA(200.19,IENS,.01)={DELEGATED_OPTIONS} set:{DELEGATED_BY*C} FDA(200.19,IENS,1)={DELEGATED_BY} set:{DATE_DELEGATED*C} FDA(200.19,IENS,2)={DATE_DELEGATED} set:{EDITABLE*C} FDA(200.19,IENS,3)={EDITABLE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.19)") set %SkipFiling=1 if $d(%FMERR(200.19,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.19,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDELEGATE55ABS index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 19.5 "B" {DELEGATED_OPTIONS} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 19.5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '661.18' Sub-File/Multiple Name: 'DESCRIPTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DESCRIPTION_661_18 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.632286336 67178,44720.026699114 right DESCRIPTION 661.18 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '.01' %Library.String 1 3 DESCRIPTION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETIC HCPCS) VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 parent SUBDESCRIPTION66118 1 1 PROSTHETIC_HCPCS_661_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_HCPCS_661_1},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_HCPCS_661_1},"||",i) } set DIK="^RMPR(661.1,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DESCRIPTION*C} FDA(661.18,IENS,.01)={DESCRIPTION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661.18)") set %SkipFiling=1 if $d(%FMERR(661.18,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(661.18,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDESCRIPTD962S index {DESCRIPTION}'="" 1 ^RMPR conditional 661.1 {PROSTHETIC_HCPCS_661_1.IEN} 0]]> 2 "B" $$TRUNCATE({DESCRIPTION},30)) {IEN} 0]]> data ^RMPR 661.1 {PROSTHETIC_HCPCS_661_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.068' Sub-File/Multiple Name: 'DESCRIPTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DESCRIPTION_80_068 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.830963337 67178,44720.066735622 right DESCRIPTION 80.068 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' This is the description (long text) that was in use on the effective date. %Library.String 4 DESCRIPTION FileMan Field Label: 'DESCRIPTION EFFECTIVE DATE' FileMan Field Number: '.01' This is the date the description was first used. %Library.FilemanDate 1 3 DESCRIPTION_EFFECTIVE_DATE Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBDESCRIPTION80068 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship for Sub-File/Multiple to file name SUPPLEMENTAL child VALIP.prosthetic.fm2cw.SUBSUPPLEMENTAL80682 children SUBDESCRIPTION80068 1 SUB_SUPPLEMENTAL_80_682 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",68,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DESCRIPTION_EFFECTIVE_DATE*C} FDA(80.068,IENS,.01)={DESCRIPTION_EFFECTIVE_DATE} set:{DESCRIPTION*C} FDA(80.068,IENS,1)={DESCRIPTION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.068)") set %SkipFiling=1 if $d(%FMERR(80.068,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.068,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDESCRIPT6058S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 68 "B" {DESCRIPTION_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 68 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 1 1 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '81.01' Sub-File/Multiple Name: 'DESCRIPTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DESCRIPTION_81_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.838856025 67178,44720.106648029 right DESCRIPTION 81.01 2.56 12/04/2024 12:25:20 1 1 IEN 1 Relationship to parent (file name CPT) VALIP.prosthetic.fm2cw.CPT81 parent SUBDESCRIPTION8101 1 1 CPT_81 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '.01' This field contains the full description of the CPT code. %Library.String 1 3 DESCRIPTION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CPT_81},"||"):-1:1 { set DA($i(c))=$p({CPT_81},"||",i) } set DIK="^ICPT("_DA(1)_",""D"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DESCRIPTION*C} FDA(81.01,IENS,.01)={DESCRIPTION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(81.01)") set %SkipFiling=1 if $d(%FMERR(81.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(81.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDESCRIPT9AA9S index {DESCRIPTION}'="" 1 ^ICPT conditional {CPT_81.IEN} 0]]> "D" "B" $$TRUNCATE({DESCRIPTION},30)) {IEN} 0]]> data ^ICPT {CPT_81.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "D" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '81.062' Sub-File/Multiple Name: 'DESCRIPTION (VERSIONED)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DESCRIPTION_VERSIONED_81_062 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.840261861 67178,44720.147557211 right DESCRIPTION (VERSIONED) 81.062 2.56 12/04/2024 12:25:20 1 1 IEN 1 Relationship to parent (file name CPT) VALIP.prosthetic.fm2cw.CPT81 parent SUBDESCRIPTIONVERSIONED81062 1 1 CPT_81 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship for Sub-File/Multiple to file name DESCRIPTION (VERSIONED) child VALIP.prosthetic.fm2cw.SUBDESCRIPTIONVERSIONED81621 children SUBDESCRIPTIONVERSIONED81062 1 SUB_DESCRIPTION_VERSIONED_81_621 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERSION DATE' FileMan Field Number: '.01' This is the date the description was first used. %Library.FilemanDate 1 3 VERSION_DATE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CPT_81},"||"):-1:1 { set DA($i(c))=$p({CPT_81},"||",i) } set DIK="^ICPT("_DA(1)_",62,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VERSION_DATE*C} FDA(81.062,IENS,.01)={VERSION_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(81.062)") set %SkipFiling=1 if $d(%FMERR(81.062,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(81.062,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDESCRIPT5853S index ^ICPT nonnull {CPT_81.IEN} 0]]> 62 "B" {VERSION_DATE} {IEN} 0]]> data ^ICPT {CPT_81.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 62 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '81.621' Sub-File/Multiple Name: 'DESCRIPTION (VERSIONED)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DESCRIPTION_VERSIONED_81_621 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.190789403 67178,44720.200061316 right DESCRIPTION (VERSIONED) 81.621 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION (VERSIONED)' FileMan Field Number: '.01' This is a single line of a multiple line description. %Library.String 1 3 DESCRIPTION_VERSIONED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name DESCRIPTION (VERSIONED)) VALIP.prosthetic.fm2cw.SUBDESCRIPTIONVERSIONED81062 parent SUBDESCRIPTIONVERSIONED81621 1 1 SUB_DESCRIPTION_VERSIONED_81_062 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_DESCRIPTION_VERSIONED_81_062},"||"):-1:1 { set DA($i(c))=$p({SUB_DESCRIPTION_VERSIONED_81_062},"||",i) } set DIK="^ICPT("_DA(2)_",62,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DESCRIPTION_VERSIONED*C} FDA(81.621,IENS,.01)={DESCRIPTION_VERSIONED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(81.621)") set %SkipFiling=1 if $d(%FMERR(81.621,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(81.621,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDESCRIPT98F1S index {DESCRIPTION_VERSIONED}'="" 1 ^ICPT conditional {CPT_81.IEN} 0]]> 62 {SUB_DESCRIPTION_VERSIONED_81_062.IEN} 0]]> 1 "B" $$TRUNCATE({DESCRIPTION_VERSIONED},30)) {IEN} 0]]> data ^ICPT {CPT_81.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 62 {SUB_DESCRIPTION_VERSIONED_81_062.IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 1 {IEN} set:{L5}="" {L5}=0 set {L5}=$o(^({L5})) set:'{L5} {L5}="" ;PREV set:{L5}="" {L5}=$c(0) set {L5}=$o(^({L5}),-1) set:'{L5} {L5}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '375.04' Sub-File/Multiple Name: 'DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DIAGNOSIS_375_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.848975448 67178,44720.246115669 right DIAGNOSIS 375.04 2.56 12/04/2024 12:25:20 1 1 IEN 1 ICD_DIAGNOSIS_80]]> DIAGNOSISCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_DIAGNOSIS_CODE FileMan Field Label: 'DIAGNOSIS CODE' FileMan Field Number: '.03' The applications sending account data to IBB may provide one or more related diagnoses. Each diagnosis is provided as a pointer to the ICD DIAGNOSIS file (#80). VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 4 DIAGNOSIS_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_DIAGNOSIS_375_04 where %ID=:id) set {DIAGNOSIS_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 DIAGNOSIS_CODE_CODE_NUMBER 1 FileMan Field Label: 'DIAGNOSIS TYPE' FileMan Field Number: '.06' The applications passing account data to IBB must define each diagnosis code included in the charge data as being one of the following: A(dmitting), W(orking), D(ischarging), or F(inal). %Library.EnumString 5 DIAGNOSIS_TYPE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PFSS ACCOUNT) VALIP.prosthetic.fm2cw.PFSSACCOUNT375 parent SUBDIAGNOSIS37504 1 1 PFSS_ACCOUNT_375 FileMan Field Label: 'SET ID' FileMan Field Number: '.01' Unique, sequential integer. The Diagnosis with SET ID=1 should be interpreted as the Primary Diagnosis. Each application sending account data to IBB may provide one or more related diagnoses. If more than one, then these diagnoses are passed to IBB in priority order; i.e., the first diagnosis is the primary diagnosis related to the charge, the second diagnosis is the secondary diagnosis related to the charge, etc. IBB files the data into subfile #375.04 in that same order. This field indicates the exact order in which the diagnoses were received and filed. %Library.Numeric 1 3 SET_ID SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PFSS_ACCOUNT_375},"||"):-1:1 { set DA($i(c))=$p({PFSS_ACCOUNT_375},"||",i) } set DIK="^IBBAA(375,"_DA(1)_",""DG1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SET_ID*C} FDA(375.04,IENS,.01)={SET_ID} set:{DIAGNOSIS_CODE*C} FDA(375.04,IENS,.03)={DIAGNOSIS_CODE} set:{DIAGNOSIS_TYPE*C} FDA(375.04,IENS,.06)={DIAGNOSIS_TYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(375.04)") set %SkipFiling=1 if $d(%FMERR(375.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(375.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDIAGNOSI8E68S index ^IBBAA nonnull 375 {PFSS_ACCOUNT_375.IEN} 0]]> "DG1" "B" {SET_ID} {IEN} 0]]> data ^IBBAA 375 {PFSS_ACCOUNT_375.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "DG1" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 6 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '44.11' Sub-File/Multiple Name: 'DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DIAGNOSIS_44_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.859239972 67178,44720.285364261 right DIAGNOSIS 44.11 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DEFAULT DIAGNOSIS' FileMan Field Number: '.02' This field indicates whether or not this ICD code is this clinic's default diagnosis for an ICD version. Only one ICD code for an ICD version may be the default code for a clinic. %Library.EnumString 3 DEFAULT_DIAGNOSIS Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBDIAGNOSIS4411 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""DX"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DEFAULT_DIAGNOSIS*C} FDA(44.11,IENS,.02)={DEFAULT_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.11)") set %SkipFiling=1 if $d(%FMERR(44.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.11,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDIAGNOSIDDEFS data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "DX" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.15' Sub-File/Multiple Name: 'DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DIAGNOSIS_691_15 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.864813146 67178,44720.32325243 right DIAGNOSIS 691.15 2.56 12/04/2024 12:25:20 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> DIAGNOSIS VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_DIAGNOSIS FileMan Field Label: 'DIAGNOSIS' FileMan Field Number: '.01' This allows the user to enter multiple interpreted echo diagnosis. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 DIAGNOSIS DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_DIAGNOSIS_691_15 where %ID=:id) set {DIAGNOSIS_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 DIAGNOSIS_DIAGNOSIS 1 Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBDIAGNOSIS69115 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",14,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DIAGNOSIS*C} FDA(691.15,IENS,.01)={DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.15)") set %SkipFiling=1 if $d(%FMERR(691.15,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.15,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDIAGNOSIF727S index ^MCAR nonnull 691 {ECHO_691.IEN} 0]]> 14 "B" {DIAGNOSIS} {IEN} 0]]> data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 14 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '701.0615' Sub-File/Multiple Name: 'DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DIAGNOSIS_701_0615 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.879179901 67178,44720.362354526 right DIAGNOSIS 701.0615 2.56 12/04/2024 12:25:20 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> DIAGNOSIS VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_DIAGNOSIS FileMan Field Label: 'DATE OF SYMPTOM' FileMan Field Number: '1' This allows the user to enter the date this diagnosis was made. %Library.FilemanDate 4 DATE_OF_SYMPTOM FileMan Field Label: 'DIAGNOSIS' FileMan Field Number: '.01' This allows user to enter Diagnosis. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 DIAGNOSIS DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_DIAGNOSIS_701_0615 where %ID=:id) set {DIAGNOSIS_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 DIAGNOSIS_DIAGNOSIS 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name RHEUMATOLOGY) VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 parent SUBDIAGNOSIS7010615 1 1 RHEUMATOLOGY_701 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RHEUMATOLOGY_701},"||"):-1:1 { set DA($i(c))=$p({RHEUMATOLOGY_701},"||",i) } set DIK="^MCAR(701,"_DA(1)_",13,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DIAGNOSIS*C} FDA(701.0615,IENS,.01)={DIAGNOSIS} set:{DATE_OF_SYMPTOM*C} FDA(701.0615,IENS,1)={DATE_OF_SYMPTOM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(701.0615)") set %SkipFiling=1 if $d(%FMERR(701.0615,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(701.0615,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDIAGNOSI546ES index ^MCAR nonnull 701 {RHEUMATOLOGY_701.IEN} 0]]> 13 "B" {DIAGNOSIS} {IEN} 0]]> data ^MCAR 701 {RHEUMATOLOGY_701.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 13 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.067' Sub-File/Multiple Name: 'DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DIAGNOSIS_80_067 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.885208781 67178,44720.40370598 right DIAGNOSIS 80.067 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DIAGNOSIS' FileMan Field Number: '1' This is the Diagnosis (short text). %Library.String 4 DIAGNOSIS FileMan Field Label: 'DIAGNOSIS EFFECTIVE DATE' FileMan Field Number: '.01' This is the date the diagnosis text was first used. %Library.FilemanDate 1 3 DIAGNOSIS_EFFECTIVE_DATE Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBDIAGNOSIS80067 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",67,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DIAGNOSIS_EFFECTIVE_DATE*C} FDA(80.067,IENS,.01)={DIAGNOSIS_EFFECTIVE_DATE} set:{DIAGNOSIS*C} FDA(80.067,IENS,1)={DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.067)") set %SkipFiling=1 if $d(%FMERR(80.067,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.067,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDIAGNOSI9B9FS index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 67 "B" {DIAGNOSIS_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 67 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '8925.114' Sub-File/Multiple Name: 'DIALOG' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DIALOG_8925_114 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.899509856 67178,44720.44497245 right DIALOG 8925.114 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'API NAME' FileMan Field Number: '102' This is the API that should be called by the broker when the control is used. How the API is used varies with the control. Examples are: filling list boxes, getting boilerplate text, etc. %Library.String 12 API_NAME FileMan Field Label: 'API PARAMETER #1' FileMan Field Number: '103' A parameter that is used by the API may be stored here. %Library.String 13 API_PARAMETER_1 FileMan Field Label: 'FIELD' FileMan Field Number: '.04' This is the field in the target file in which the user's response will be stored. %Library.String 6 FIELD Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ITEM NAME' FileMan Field Number: '.02' This is a descriptive name for the datum which will help descibe the prompt for the user. %Library.String 4 ITEM_NAME Computed Field For Node 1 %Library.String 1 9 s {NODE_1}=$g(^TIU(8925.1,$p({RowId},"||"),"DIALOG",{IEN},1)) 1 NODE_1 Computed Field For Node W3 %Library.String 1 14 s {NODE_W3}=$g(^TIU(8925.1,$p({RowId},"||"),"DIALOG",{IEN},"W3")) 1 NODE_W3 Computed Field For Node W7 %Library.String 1 16 s {NODE_W7}=$g(^TIU(8925.1,$p({RowId},"||"),"DIALOG",{IEN},"W7")) 1 NODE_W7 FileMan Field Label: 'PROMPT' FileMan Field Number: '.01' This is the prompt with which the user will be presented during interactive entry of the document. %Library.String 1 3 PROMPT FileMan Field Label: 'REQUIRED' FileMan Field Number: '.05' Please indicate whether a response to this prompt is required, in order to complete the dialog. %Library.EnumString 7 REQUIRED FileMan Field Label: 'SEQUENCE' FileMan Field Number: '.03' This is the sequence of the prompt within the dialog. On the Windows Client this will correspond with the Tab Order Property of the prompt. %Library.Numeric 5 SEQUENCE FileMan Field Label: 'SET METHOD' FileMan Field Number: '1' This is the mumps code for determining the default value of an interactive ("visible") prompt, and for setting the value to be non-interactively "stuffed" on invokation of an "invisible" prompt. Regardless of the syntactic approach (e.g., subroutine or extrinsic function, the return value of the method should be placed in the local varible X. %Library.String 1 10 s {SET_METHOD}=$e({NODE_1},1,245) 1 SET_METHOD Relationship to parent (file name TIU DOCUMENT DEFINITION) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 parent SUBDIALOG8925114 1 1 TIU_DOCUMENT_DEFINITION_8925_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 18 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VISIBLE' FileMan Field Number: '.06' This field specifies whether a given datum will be prompted for, or "stuffed," based on execution of the SET METHOD for a given prompt. %Library.EnumString 8 VISIBLE FileMan Field Label: 'WINDOWS CONDITION' FileMan Field Number: '113' This is silent code which is executed when building the dialog for Windows. It identifies which prompts should be included in the dialog. The condition should leave $T failse if the prompt should not be asked. %Library.String 1 15 s {WINDOWS_CONDITION}=$e({NODE_W3},1,245) 1 WINDOWS_CONDITION FileMan Field Label: 'WINDOWS CONTROL' FileMan Field Number: '101' Stores the type of Windows control necessary to get the data for this prompt. %Library.EnumString 11 WINDOWS_CONTROL FileMan Field Label: 'WINDOWS DEFAULT' FileMan Field Number: '117' This code should silently set the default value of a prompt when it is selected. %Library.String 1 17 s {WINDOWS_DEFAULT}=$e({NODE_W7},1,245) 1 WINDOWS_DEFAULT BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_DOCUMENT_DEFINITION_8925_1},"||"):-1:1 { set DA($i(c))=$p({TIU_DOCUMENT_DEFINITION_8925_1},"||",i) } set DIK="^TIU(8925.1,"_DA(1)_",""DIALOG"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROMPT*C} FDA(8925.114,IENS,.01)={PROMPT} set:{ITEM_NAME*C} FDA(8925.114,IENS,.02)={ITEM_NAME} set:{SEQUENCE*C} FDA(8925.114,IENS,.03)={SEQUENCE} set:{FIELD*C} FDA(8925.114,IENS,.04)={FIELD} set:{REQUIRED*C} FDA(8925.114,IENS,.05)={REQUIRED} set:{VISIBLE*C} FDA(8925.114,IENS,.06)={VISIBLE} set:{WINDOWS_CONTROL*C} FDA(8925.114,IENS,101)={WINDOWS_CONTROL} set:{API_NAME*C} FDA(8925.114,IENS,102)={API_NAME} set:{API_PARAMETER_1*C} FDA(8925.114,IENS,103)={API_PARAMETER_1} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.114)") set %SkipFiling=1 if $d(%FMERR(8925.114,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.114,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDIALOG89CE2FS index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "DIALOG" "AS" {SEQUENCE} {IEN} 0]]> index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "DIALOG" "B" {PROMPT} {IEN} 0]]> data ^TIU 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "DIALOG" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" "W" 2 "^" "W" 3 "^" 0 4 "^" 0 2 "^" 0 1 "^" 0 5 "^" 0 3 "^" 0 6 "^" "W" 1 Generated class for FileMan Sub-File/Multiple Number: '664.15' Sub-File/Multiple Name: 'DISABILITY CODE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISABILITY_CODE_664_15 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.640736896 67178,44720.496641123 right DISABILITY CODE 664.15 2.56 12/04/2024 12:25:20 1 1 IEN 1 PROS_DISABILITY_CODE_662]]> DISABILITYCODE VALIP.prosthetic.fm2cw.PROSDISABILITYCODE662 FKey_DISABILITY_CODE FileMan Field Label: 'DISABILITY CODE' FileMan Field Number: '.01' This field points to the Disability code file. It holds information on the patient's disability code that qualifies the Veteran for this service or item. VALIP.prosthetic.fm2cw.PROSDISABILITYCODE662 1 3 DISABILITY_CODE ARABIC DISABILITY NAME This is the Arabic initials for a disability code, such as AMP/LAE for Amputee/Arm, Left, Above Elbow.]]> %Library.String 1 ARABIC_DISABILITY_NAME into :val from VALIP_prosthetic_fm2cw.SUB_DISABILITY_CODE_664_15 where %ID=:id) set {DISABILITY_CODE_ARABIC_DISABILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DISABILITY_CODE_ARABIC_DISABILITY_NAME 1 FileMan Field Label: 'ELIGIBILITY CATEGORY' FileMan Field Number: '2' This is the Eligibility Category under which the Patient is eligible for items and services. %Library.EnumString 5 ELIGIBILITY_CATEGORY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETIC 2529-3) VALIP.prosthetic.fm2cw.PROSTHETIC252936641 parent SUBDISABILITYCODE66415 1 1 PROSTHETIC_25293_664_1 FileMan Field Label: 'SERVICE/NON-SERVICE' FileMan Field Number: '1' This field indicates wheter the Patient is Sevice connected or not for the associated Disability. %Library.EnumString 4 SERVICENONSERVICE FileMan Field Label: 'SPECIAL LEGISLATION' FileMan Field Number: '3' This is the Special Legislation under which the Patient qualifies for the item(s)/service(s). %Library.EnumString 6 SPECIAL_LEGISLATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_25293_664_1},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_25293_664_1},"||",i) } set DIK="^RMPR(664.1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DISABILITY_CODE*C} FDA(664.15,IENS,.01)={DISABILITY_CODE} set:{SERVICENONSERVICE*C} FDA(664.15,IENS,1)={SERVICENONSERVICE} set:{ELIGIBILITY_CATEGORY*C} FDA(664.15,IENS,2)={ELIGIBILITY_CATEGORY} set:{SPECIAL_LEGISLATION*C} FDA(664.15,IENS,3)={SPECIAL_LEGISLATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(664.15)") set %SkipFiling=1 if $d(%FMERR(664.15,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(664.15,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISABILIEAC1S index ^RMPR nonnull 664.1 {PROSTHETIC_25293_664_1.IEN} 0]]> 1 "B" {DISABILITY_CODE} {IEN} 0]]> data ^RMPR 664.1 {PROSTHETIC_25293_664_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '691.96' Sub-File/Multiple Name: 'DISCHARGE DATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISCHARGE_DATE_691_96 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.90953574 67178,44720.542641789 right DISCHARGE DATE 691.96 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DISCHARGE DATE' FileMan Field Number: '.01' %Library.FilemanDate 1 3 DISCHARGE_DATE Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBDISCHARGEDATE69196 1 1 ELECTROPHYSIOLOGY_EP_691_8 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICATION ON DISCHARGE' FileMan Field Number: '1' %Library.String 4 MEDICATION_ON_DISCHARGE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",16,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DISCHARGE_DATE*C} FDA(691.96,IENS,.01)={DISCHARGE_DATE} set:{MEDICATION_ON_DISCHARGE*C} FDA(691.96,IENS,1)={MEDICATION_ON_DISCHARGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.96)") set %SkipFiling=1 if $d(%FMERR(691.96,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.96,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISCHARG46C5S data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 16 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.35' Sub-File/Multiple Name: 'DISEASE FOLLOWUP' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISEASE_FOLLOWUP_699_35 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.907606098 67178,44720.581802315 right DISEASE FOLLOWUP 699.35 2.56 12/04/2024 12:25:20 1 1 IEN 1 DISEASE_EVALUATION_699_84]]> DISEASEFOLLOWUP VALIP.prosthetic.fm2cw.DISEASEEVALUATION69984 FKey_DISEASE_FOLLOWUP FileMan Field Label: 'DISEASE FOLLOWUP' FileMan Field Number: '.01' This field identifies the specific disease or evaluation used as an indication. VALIP.prosthetic.fm2cw.DISEASEEVALUATION69984 1 3 DISEASE_FOLLOWUP NAME This field is used to store a list of possible disease follow-ups for GI and Pulmonary Endoscopies.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DISEASE_FOLLOWUP_699_35 where %ID=:id) set {DISEASE_FOLLOWUP_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DISEASE_FOLLOWUP_NAME 1 Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBDISEASEFOLLOWUP69935 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DISEASE_FOLLOWUP*C} FDA(699.35,IENS,.01)={DISEASE_FOLLOWUP} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.35)") set %SkipFiling=1 if $d(%FMERR(699.35,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.35,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISEASEF72E6S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '19.04' Sub-File/Multiple Name: 'DISPAR(0,N)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISPAR0N_19_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.915615306 67178,44720.623715954 right DISPAR(0,N) 19.04 2.56 12/04/2024 12:25:20 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Computed Field For Node 1 %Library.String 1 6 s {NODE_1}=$g(^DIC(19,$p({RowId},"||"),"SUB",{IEN},1)) 1 NODE_1 Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBDISPAR0N1904 1 1 OPTION_19 FileMan Field Label: 'STATISTICAL CONTROL CHARACTERS' FileMan Field Number: '1' Statistical control characters for printing the "Nth" subscript from the BY(0) global/cross-reference. Used to set first piece of DISPAR(0,N) input variable to the FileMan print, EN1^DIP. If defined, it should contain any of the three statistical control characters !, #, or + that are normally entered BEFORE a sort field in the FileMan interactive mode for printing data. See the FileMan User's manual section on How to Display and Print File Data for more information. %Library.String 4 STATISTICAL_CONTROL_CHARACTERS FileMan Field Label: 'SUBHEADER FORMAT CHARACTERS' FileMan Field Number: '2' Subheader formatting characters for printing the "Nth" subscript from the BY(0) global/cross-reference. Used to set second piece of DISPAR(0,N) input variable to the FileMan print, EN1^DIP. If defined, it should contain any subheader formatting characters that are normally entered AFTER a sort field in the FileMan interactive mode for printing data. See the FileMan User's manual section on How to Display and Print File Data for more information. (ex. ;C3;"SUBHEADER TITLE:" to begin printing subheader in column 3, with a literal caption.) %Library.String 5 SUBHEADER_FORMAT_CHARACTERS FileMan Field Label: 'SUBHEADER OUTPUT TRANSFORM' FileMan Field Number: '3' Output transform code for printing the "Nth" subscript subheader from the BY(0) global/cross-reference. Used to set DISPAR(0,N,"OUT") input variable to the FileMan print, EN1^DIP. For instance, it could transform an inverse date into a printable date. If defined, it should contain MUMPS code that transforms the internal value of the subscript "Y", into it's external form, also in variable "Y". %Library.String 1 7 s {SUBHEADER_OUTPUT_TRANSFORM}=$e({NODE_1},1,245) 1 SUBHEADER_OUTPUT_TRANSFORM FileMan Field Label: 'SUBSCRIPT LEVEL NUMBER' FileMan Field Number: '.01' Number equal to one of the "N" subscripts that FileMan must sort through on the global or cross-reference defined by the BY(0) input variable to the FileMan print routine, EN1^DIP. Used to set entries into the DIAPAR(0,N) and DIAPAR(0,N,"OUT") input arrays (subheader control for the Nth subscript). %Library.Numeric 1 3 SUBSCRIPT_LEVEL_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",""SUB"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SUBSCRIPT_LEVEL_NUMBER*C} FDA(19.04,IENS,.01)={SUBSCRIPT_LEVEL_NUMBER} set:{STATISTICAL_CONTROL_CHARACTERS*C} FDA(19.04,IENS,1)={STATISTICAL_CONTROL_CHARACTERS} set:{SUBHEADER_FORMAT_CHARACTERS*C} FDA(19.04,IENS,2)={SUBHEADER_FORMAT_CHARACTERS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.04)") set %SkipFiling=1 if $d(%FMERR(19.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISPAR0NEB2BS index ^DIC nonnull 19 {OPTION_19.IEN} 0]]> "SUB" "B" {SUBSCRIPT_LEVEL_NUMBER} {IEN} 0]]> data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "SUB" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.73' Sub-File/Multiple Name: 'DISPOSITION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISPOSITION_699_73 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.935526924 67178,44720.665888569 right DISPOSITION 699.73 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DISPOSITION' FileMan Field Number: '.01' This field identifies the post-encounter disposition entered. %Library.EnumString 1 3 DISPOSITION Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBDISPOSITION69973 1 1 ENDOSCOPYCONSULT_699 FileMan Field Label: 'FINAL DISPOSITION DATE' FileMan Field Number: '1' This field identifies the date of the disposition. This date may be in the future as in the case of Endoscopy Follow Up entered as the disposition. %Library.FilemanTimeStamp 4 FINAL_DISPOSITION_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'REASON' FileMan Field Number: '2' This field identifies the reason for the disposition given. %Library.String 5 REASON SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",25,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DISPOSITION*C} FDA(699.73,IENS,.01)={DISPOSITION} set:{FINAL_DISPOSITION_DATE*C} FDA(699.73,IENS,1)={FINAL_DISPOSITION_DATE} set:{REASON*C} FDA(699.73,IENS,2)={REASON} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.73)") set %SkipFiling=1 if $d(%FMERR(699.73,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.73,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISPOSITB01DS index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 25 "B" {DISPOSITION} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 25 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '2.101' Sub-File/Multiple Name: 'DISPOSITION LOG-IN DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISPOSITION_LOGIN_DATETIME_2_101 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.95315633 67178,44720.706709134 right DISPOSITION LOG-IN DATE/TIME 2.101 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'A-ADDRESS 1' FileMan Field Number: '31' If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the first line the street address for the attorney. %Library.String 23 AADDRESS_1 FileMan Field Label: 'A-ADDRESS 2' FileMan Field Number: '32' If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the second line of the street address for the attorney. %Library.String 24 AADDRESS_2 FileMan Field Label: 'A-ADDRESS 3' FileMan Field Number: '33' If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the third line of the street address for the attorney. %Library.String 25 AADDRESS_3 FileMan Field Label: 'A-CITY' FileMan Field Number: '34' If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the city where the attorney practices. %Library.String 26 ACITY FileMan Field Label: 'ACTIVE' FileMan Field Number: '50' If this registration is currently active (not dispostioned) a 1 will be stored in this field. Otherwise, the field should be left blank. %Library.EnumString 30 ACTIVE FileMan Field Label: 'A-PHONE' FileMan Field Number: '37' If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the the attorney's business phone number. %Library.String 28 APHONE FileMan Field Label: 'ATTORNEY'S NAME' FileMan Field Number: '30' Enter the attorney's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 22 ATTORNEYS_NAME FileMan Field Label: 'A-ZIP+4' FileMan Field Number: '38' If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the zip code of the attorney's address. Answer with either the 5 digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 123456789). %Library.String 29 AZIP4 FileMan Field Label: 'A-ZIP CODE' FileMan Field Number: '36' If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the zip code of the attorney's address. %Library.String 27 AZIP_CODE FileMan Field Label: 'DESCRIPTION OF INCIDENT' FileMan Field Number: '10' If the patient was injured in an accident, a brief description (from 3-250 characters) should be entered detailing what caused the injury. %Library.String 10 DESCRIPTION_OF_INCIDENT FileMan Field Label: '*ELIGIBLE FOR MEDICAID' FileMan Field Number: '12' If this patient is eligible for medicaid, enter yes in this field. Otherwise, entere no. This field is used for billing purposes. %Library.EnumString 11 ELIGIBLE_FOR_MEDICAID FileMan Field Label: 'ELIG VERIFIED AT REGISTRATION' FileMan Field Number: '14' If the eligibility was verified at the time of registration, this field will be YES. Otherwise, it will be NO. %Library.EnumString 12 ELIG_VERIFIED_AT_REGISTRATION FileMan Field Label: 'ENCOUNTER CONVERSION STATUS' FileMan Field Number: '19' This field indicates whether or not this disposition was converted during the ACRP Database Conversion (SD*5.3*211). The field is set to '1' after the disposition has been converted by the conversion software. %Library.EnumString 15 ENCOUNTER_CONVERSION_STATUS FileMan Field Label: 'EXAMINED IN MEDICAL CENTER' FileMan Field Number: '7' If the patient wants to be examined in Medical Center today, this field will be YES. Otherwise, it will be NO. %Library.EnumString 9 EXAMINED_IN_MEDICAL_CENTER FileMan Field Label: '10-10T REGISTRATION' FileMan Field Number: '.2' Was the patient registered using the 10-10T %Library.EnumString 4 f1010T_REGISTRATION FileMan Field Label: 'FILED AGAINST INJURING PARTY' FileMan Field Number: '26' If this patient is being seen is due to an injury resulting from another person's negligence, enter yes here if a claim has been filed against the other party's insurance company. Otherwise, answer no. %Library.EnumString 21 FILED_AGAINST_INJURING_PARTY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INJURY CAUSED BY' FileMan Field Number: '24' If the reason this patient is being seen at the medical center is due to an injury sustained, enter what caused the injury. Otherwise, leave this field blank. %Library.String 20 INJURY_CAUSED_BY FileMan Field Label: 'LOG IN DATE/TIME' FileMan Field Number: '.01' The date/time the patient was registered using the 'Register a Patient' option in ADT should be entered into this field. Registrations must be entered using the ADT module and should not be entered or edited using VA FileMan options. %Library.FilemanTimeStamp 1 3 LOG_IN_DATETIME FileMan Field Label: 'LOG OUT DATE TIME' FileMan Field Number: '5' Enter in this field the date/time the patient was dispositioned. %Library.FilemanTimeStamp 8 LOG_OUT_DATE_TIME FileMan Field Label: 'NEED RELATED TO AN ACCIDENT' FileMan Field Number: '23' If the injury or condition for which this patient is being treated was the result of an accident, enter yes here. Otherwise, answer no. %Library.EnumString 19 NEED_RELATED_TO_AN_ACCIDENT FileMan Field Label: 'NEED RELATED TO OCCUPATION' FileMan Field Number: '20' If the need for care is related to an injury or condition acquired while the patient was performing work-related duties, yes should be entered here. Otherwise, no should be entered. %Library.EnumString 16 NEED_RELATED_TO_OCCUPATION FileMan Field Label: 'ODS AT REGISTRATION?' FileMan Field Number: '11500.01' Enter yes if this patient was an ODS patient at the time of this registration. Otherwise, respond no. this registration. Otherwise, respond no. %Library.EnumString 32 ODS_AT_REGISTRATION Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBDISPOSITIONLOGINDATETIME2101 1 1 PATIENT_2 FileMan Field Label: 'PROGRAMMERS USE' FileMan Field Number: '99' Used to speed reporting in Multidivisional Facilities. Fileman can not sort by same field twice %Library.FilemanDate 1 31 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(2.101,99,1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P(Y(2.101,99,1),U,1) set {PROGRAMMERS_USE}=X 1 PROGRAMMERS_USE FileMan Field Label: 'SC AT REGISTRATION' FileMan Field Number: '15' If the patient being registered was SC (as determined by the SERVICE CONNECTED? field on screen 7 of registration) at the time this application was entered, YES will be stuffed into this field. Otherwise NO will be filled in here. %Library.EnumString 13 SC_AT_REGISTRATION FileMan Field Label: 'SC% AT REGISTRATION' FileMan Field Number: '16' If the patient was service connected at the time of this registration (as determined by the SERVICE CONNECTED? field on registration screen 7), the service connected percentage should be entered here. The default value will be the percentage entered on registration screen 7. %Library.Numeric 14 SC_AT_REGISTRATION0 FileMan Field Label: 'STATUS' FileMan Field Number: '1' ter the appropriate code indicating the status of the patient's visit. Enter 0 if this patient had a 1010 visit (application for care). Enter 1 if the patient's visit was not scheduled. Enter 2 if no exam was needed. This data is used by the AMIS 400 series reports. %Library.EnumString 5 STATUS FileMan Field Label: 'TYPE OF BENEFIT APPLIED FOR' FileMan Field Number: '2' Enter the type of care this patient has applied for whether it be inpatient (dom, hospital, or nursing home) or outpatient (dental, or non-dental). %Library.EnumString 6 TYPE_OF_BENEFIT_APPLIED_FOR FileMan Field Label: 'TYPE OF CARE APPLIED FOR' FileMan Field Number: '2.1' Enter the type of care that the patient is requesting service for. If the patient will be receiving treatment for plastic surgery, dental care, sterilization, or pregnancy, enter that choice. Otherwise, enter all other. %Library.EnumString 7 TYPE_OF_CARE_APPLIED_FOR SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 33 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WORKMEN'S COMP CLAIM FILED' FileMan Field Number: '21' If the injury or condition for which this patient is being treated occurred while performing duties necessary for his/her job and the patient entered a workmen's compensation claim for this injury or condition, enter yes here. Otherwise, enter no. %Library.EnumString 17 WORKMENS_COMP_CLAIM_FILED FileMan Field Label: 'WORKMEN'S COMP CLAIM NUMBER' FileMan Field Number: '22' If this patient is being seen for an injury or condition s/he received while performing work related duties and s/he filed a claim with workmen's compensation, enter the claim number here. Otherwise, leave this field blank. %Library.String 18 WORKMENS_COMP_CLAIM_NUMBER BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""DIS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LOG_IN_DATETIME*C} FDA(2.101,IENS,.01)={LOG_IN_DATETIME} set:{f1010T_REGISTRATION*C} FDA(2.101,IENS,.2)={f1010T_REGISTRATION} set:{STATUS*C} FDA(2.101,IENS,1)={STATUS} set:{TYPE_OF_BENEFIT_APPLIED_FOR*C} FDA(2.101,IENS,2)={TYPE_OF_BENEFIT_APPLIED_FOR} set:{TYPE_OF_CARE_APPLIED_FOR*C} FDA(2.101,IENS,2.1)={TYPE_OF_CARE_APPLIED_FOR} set:{LOG_OUT_DATE_TIME*C} FDA(2.101,IENS,5)={LOG_OUT_DATE_TIME} set:{EXAMINED_IN_MEDICAL_CENTER*C} FDA(2.101,IENS,7)={EXAMINED_IN_MEDICAL_CENTER} set:{DESCRIPTION_OF_INCIDENT*C} FDA(2.101,IENS,10)={DESCRIPTION_OF_INCIDENT} set:{ELIGIBLE_FOR_MEDICAID*C} FDA(2.101,IENS,12)={ELIGIBLE_FOR_MEDICAID} set:{ELIG_VERIFIED_AT_REGISTRATION*C} FDA(2.101,IENS,14)={ELIG_VERIFIED_AT_REGISTRATION} set:{SC_AT_REGISTRATION*C} FDA(2.101,IENS,15)={SC_AT_REGISTRATION} set:{SC_AT_REGISTRATION0*C} FDA(2.101,IENS,16)={SC_AT_REGISTRATION0} set:{ENCOUNTER_CONVERSION_STATUS*C} FDA(2.101,IENS,19)={ENCOUNTER_CONVERSION_STATUS} set:{NEED_RELATED_TO_OCCUPATION*C} FDA(2.101,IENS,20)={NEED_RELATED_TO_OCCUPATION} set:{WORKMENS_COMP_CLAIM_FILED*C} FDA(2.101,IENS,21)={WORKMENS_COMP_CLAIM_FILED} set:{WORKMENS_COMP_CLAIM_NUMBER*C} FDA(2.101,IENS,22)={WORKMENS_COMP_CLAIM_NUMBER} set:{NEED_RELATED_TO_AN_ACCIDENT*C} FDA(2.101,IENS,23)={NEED_RELATED_TO_AN_ACCIDENT} set:{INJURY_CAUSED_BY*C} FDA(2.101,IENS,24)={INJURY_CAUSED_BY} set:{FILED_AGAINST_INJURING_PARTY*C} FDA(2.101,IENS,26)={FILED_AGAINST_INJURING_PARTY} set:{ATTORNEYS_NAME*C} FDA(2.101,IENS,30)={ATTORNEYS_NAME} set:{AADDRESS_1*C} FDA(2.101,IENS,31)={AADDRESS_1} set:{AADDRESS_2*C} FDA(2.101,IENS,32)={AADDRESS_2} set:{AADDRESS_3*C} FDA(2.101,IENS,33)={AADDRESS_3} set:{ACITY*C} FDA(2.101,IENS,34)={ACITY} set:{AZIP_CODE*C} FDA(2.101,IENS,36)={AZIP_CODE} set:{APHONE*C} FDA(2.101,IENS,37)={APHONE} set:{AZIP4*C} FDA(2.101,IENS,38)={AZIP4} set:{ACTIVE*C} FDA(2.101,IENS,50)={ACTIVE} set:{ODS_AT_REGISTRATION*C} FDA(2.101,IENS,11500.01)={ODS_AT_REGISTRATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.101)") set %SkipFiling=1 if $d(%FMERR(2.101,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.101,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISPOSIT828AS index ^DPT nonnull "ADA" {ACTIVE} {PATIENT_2.IEN} 0]]> {IEN} 0]]> index ^DPT nonnull "ADIS" {LOG_IN_DATETIME} {PATIENT_2.IEN} 0]]> {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "DIS" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 3 2 "^" 3 3 "^" 3 4 "^" 3 5 "^" 0 10 "^" 3 8 "^" 3 1 "^" 3 9 "^" 3 7 "^" 1 1 "^" 0 12 "^" 0 14 "^" 0 19 "^" 0 22 "^" 2 7 "^" 2 5 "^" 0 1 "^" 0 6 "^" 2 4 "^" 2 1 "^" "ODS" 1 "^" 0 15 "^" 0 16 "^" 0 2 "^" 0 3 "^" 0 11 "^" 2 2 "^" 2 3 "^" 0 20 Generated class for FileMan Sub-File/Multiple Number: '691.35' Sub-File/Multiple Name: 'DISTAL ANASTOMOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISTAL_ANASTOMOSIS_691_35 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.947341515 67178,44720.756297922 right DISTAL ANASTOMOSIS 691.35 2.56 12/04/2024 12:25:20 1 1 IEN 1 SEGMENT_OF_CORONARY_ARTERIES_696]]> DISTALANASTOMOSIS VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_DISTAL_ANASTOMOSIS BYPASS_GRAFT_SEGMENT_696_4]]> LOCATIONOFLESION VALIP.prosthetic.fm2cw.BYPASSGRAFTSEGMENT6964 FKey_LOCATION_OF_LESION PERCENTAGE_LESION_696_1]]> PERCENTAGELESION VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 FKey_PERCENTAGE_LESION Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBDISTALANASTOMOSIS69135 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'DISTAL ANASTOMOSIS' FileMan Field Number: '.01' This allows the user to enter multiple distal anastamosis. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 DISTAL_ANASTOMOSIS NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DISTAL_ANASTOMOSIS_691_35 where %ID=:id) set {DISTAL_ANASTOMOSIS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DISTAL_ANASTOMOSIS_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LOCATION OF LESION' FileMan Field Number: '2' This allows the user to enter the location of the lesion of the distal anastamosis. VALIP.prosthetic.fm2cw.BYPASSGRAFTSEGMENT6964 6 LOCATION_OF_LESION NAME This field stores a list of the various locations for Bypass Graft Segments for use by the Catheterization sub-module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DISTAL_ANASTOMOSIS_691_35 where %ID=:id) set {LOCATION_OF_LESION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOCATION_OF_LESION_NAME 1 FileMan Field Label: 'PERCENTAGE LESION' FileMan Field Number: '1' This allows the user to enter the percentage lesion of the distal anastamosis. VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 4 PERCENTAGE_LESION FileMan Field Label: 'PERCENTAGE LESION #' FileMan Field Number: '1.5' This allows the user to enter the percentage lesion of the distal anastamosis. %Library.Numeric 5 PERCENTAGE_LESION_ NAME This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DISTAL_ANASTOMOSIS_691_35 where %ID=:id) set {PERCENTAGE_LESION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERCENTAGE_LESION_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",36,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DISTAL_ANASTOMOSIS*C} FDA(691.35,IENS,.01)={DISTAL_ANASTOMOSIS} set:{PERCENTAGE_LESION*C} FDA(691.35,IENS,1)={PERCENTAGE_LESION} set:{PERCENTAGE_LESION_*C} FDA(691.35,IENS,1.5)={PERCENTAGE_LESION_} set:{LOCATION_OF_LESION*C} FDA(691.35,IENS,2)={LOCATION_OF_LESION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.35)") set %SkipFiling=1 if $d(%FMERR(691.35,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.35,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISTALANAA93S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 36 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '445.03' Sub-File/Multiple Name: 'DISTRIBUTION POINT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DISTRIBUTION_POINT_445_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.510396413 67178,44720.79765069 right DISTRIBUTION POINT 445.03 2.56 12/04/2024 12:25:20 1 1 IEN 1 GENERIC_INVENTORY_445]]> DISTRIBUTIONPOINT VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_DISTRIBUTION_POINT FileMan Field Label: 'DISTRIBUTION POINT' FileMan Field Number: '.01' This is the name of a distribution point receiving supplies. VALIP.prosthetic.fm2cw.GENERICINVENTORY445 1 3 DISTRIBUTION_POINT INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.SUB_DISTRIBUTION_POINT_445_03 where %ID=:id) set {DISTRIBUTION_POINT_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 DISTRIBUTION_POINT_INVENTORY_POINT 1 Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBDISTRIBUTIONPOINT44503 1 1 GENERIC_INVENTORY_445 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DISTRIBUTION_POINT*C} FDA(445.03,IENS,.01)={DISTRIBUTION_POINT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.03)") set %SkipFiling=1 if $d(%FMERR(445.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDISTRIBU83A1S index ^PRCP nonnull 445 "AB" {DISTRIBUTION_POINT} {GENERIC_INVENTORY_445.IEN} 0]]> {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.02' Sub-File/Multiple Name: 'DIVISION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DIVISION_200_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.949524269 67178,44720.836893612 right DIVISION 200.02 2.56 12/04/2024 12:25:20 1 1 IEN 1 INSTITUTION_4]]> DIVISION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_DIVISION FileMan Field Label: 'DEFAULT' FileMan Field Number: '1' This field is used to indicate that a particular division should be presented to the user as a default when selecting a division. This will only affect users that have more than one division. A cross reference will only allow one entry to have this flag set. %Library.EnumString 4 DEFAULT1 FileMan Field Label: 'DIVISION' FileMan Field Number: '.01' The name of a Division that this user may sign on to. VALIP.prosthetic.fm2cw.INSTITUTION4 1 3 DIVISION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DIVISION_200_02 where %ID=:id) set {DIVISION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIVISION_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBDIVISION20002 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DIVISION*C} FDA(200.02,IENS,.01)={DIVISION} set:{DEFAULT1*C} FDA(200.02,IENS,1)={DEFAULT1} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.02)") set %SkipFiling=1 if $d(%FMERR(200.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDIVISION38B5S index ^VA nonnull 200 "AH" {DIVISION} {NEW_PERSON_200.IEN} 0]]> {IEN} 0]]> index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 2 "B" {DIVISION} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.72' Sub-File/Multiple Name: 'DMMS UNITS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DMMS_UNITS_200_72 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.964598903 67178,44720.877573895 right DMMS UNITS 200.72 2.56 12/04/2024 12:25:20 1 1 IEN 1 DSS_UNIT_724]]> DMMSUNITS VALIP.prosthetic.fm2cw.DSSUNIT724 FKey_DMMS_UNITS FileMan Field Label: 'DMMS UNITS' FileMan Field Number: '.01' The DMMS unit to which this person has access for entering data and generating reports. VALIP.prosthetic.fm2cw.DSSUNIT724 1 3 DMMS_UNITS NAME Name This field contains the name of this DSS unit.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_DMMS_UNITS_200_72 where %ID=:id) set {DMMS_UNITS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DMMS_UNITS_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBDMMSUNITS20072 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""EC"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DMMS_UNITS*C} FDA(200.72,IENS,.01)={DMMS_UNITS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.72)") set %SkipFiling=1 if $d(%FMERR(200.72,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.72,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDMMSUNITFFA8S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "EC" "B" {DMMS_UNITS} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "EC" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.0664' Sub-File/Multiple Name: 'DONOR VESSEL UNOS ID' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DONOR_VESSEL_UNOS_ID_130_0664 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.979521222 67178,44720.916686603 right DONOR VESSEL UNOS ID 130.0664 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DONOR VESSEL UNOS ID' FileMan Field Number: '.01' Donor Vessel UNOS ID This field documents the UNOS identification number of the vessel(s) donor(s). If there is more than one donor enter the UNOS number for each donor. %Library.String 1 3 DONOR_VESSEL_UNOS_ID Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBDONORVESSELUNOSID1300664 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",57,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DONOR_VESSEL_UNOS_ID*C} FDA(130.0664,IENS,.01)={DONOR_VESSEL_UNOS_ID} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0664)") set %SkipFiling=1 if $d(%FMERR(130.0664,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0664,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDONORVES882ES index ^SRF nonnull {SURGERY_130.IEN} 0]]> 57 "B" {DONOR_VESSEL_UNOS_ID} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 57 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.05' Sub-File/Multiple Name: 'DOPPLER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DOPPLER_691_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.983333967 67178,44720.955760148 right DOPPLER 691.05 2.56 12/04/2024 12:25:20 1 1 IEN 1 FileMan Field Label: 'DOPPLER' FileMan Field Number: '.01' This allows the user to enter multiple doppler findings. %Library.EnumString 1 3 DOPPLER Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBDOPPLER69105 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SEVERITY' FileMan Field Number: '1' This allows the user to choose a descriptive code for type of doppler finding. %Library.EnumString 4 SEVERITY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",7,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DOPPLER*C} FDA(691.05,IENS,.01)={DOPPLER} set:{SEVERITY*C} FDA(691.05,IENS,1)={SEVERITY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.05)") set %SkipFiling=1 if $d(%FMERR(691.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDOPPLER6DE89S data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 7 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '80.711' Sub-File/Multiple Name: 'DRG' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DRG_80_711 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.189110472 67178,44720.994559926 right DRG 80.711 2.56 12/04/2024 12:25:20 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name DRG GROUPER) VALIP.prosthetic.fm2cw.SUBDRGGROUPER80071 parent SUBDRG80711 1 1 SUB_DRG_GROUPER_80_071 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_DRG_GROUPER_80_071},"||"):-1:1 { set DA($i(c))=$p({SUB_DRG_GROUPER_80_071},"||",i) } set DIK="^ICD9("_DA(2)_",3,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.711)") set %SkipFiling=1 if $d(%FMERR(80.711,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.711,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBDRG80711S data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 3 {SUB_DRG_GROUPER_80_071.IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 1 {IEN} set:{L5}="" {L5}=0 set {L5}=$o(^({L5})) set:'{L5} {L5}="" ;PREV set:{L5}="" {L5}=$c(0) set {L5}=$o(^({L5}),-1) set:'{L5} {L5}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '80.073' Sub-File/Multiple Name: 'DRG DIAGNOSIS IDENTIFIER CODES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DRG_DIAGNOSIS_IDENTIFIER_CODES_80_073 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44743.99206573 67178,44721.033414012 right DRG DIAGNOSIS IDENTIFIER CODES 80.073 2.56 12/04/2024 12:25:21 1 1 IEN 1 DRG_DIAGNOSIS_IDENTIFIER_CODES_82]]> DRGDIAGNOSISIDENTIFIERCODE VALIP.prosthetic.fm2cw.DRGDIAGNOSISIDENTIFIERCODES82 FKey_DRG_DIAGNOSIS_IDENTIFIER_CODE FileMan Field Label: 'DRG DIAGNOSIS IDENTIFIER CODE' FileMan Field Number: '.01' This is an identifier code used in the DRG rules processing to determine DRG. VALIP.prosthetic.fm2cw.DRGDIAGNOSISIDENTIFIERCODES82 1 3 DRG_DIAGNOSIS_IDENTIFIER_CODE IDENTIFIER CODE ICD-9 and ICD-10 Diagnosis Identifier Code]]> %Library.String 1 IDENTIFIER_CODE into :val from VALIP_prosthetic_fm2cw.SUB_DRG_DIAGNOSIS_IDENTIFIER_CODES_80_073 where %ID=:id) set {DRG_DIAGNOSIS_IDENTIFIER_CODE_IDENTIFIER_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 DRG_DIAGNOSIS_IDENTIFIER_CODE_IDENTIFIER_CODE 1 Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBDRGDIAGNOSISIDENTIFIERCODES80073 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",73,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DRG_DIAGNOSIS_IDENTIFIER_CODE*C} FDA(80.073,IENS,.01)={DRG_DIAGNOSIS_IDENTIFIER_CODE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.073)") set %SkipFiling=1 if $d(%FMERR(80.073,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.073,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDRGDIAGNA8CAS index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 73 "B" {DRG_DIAGNOSIS_IDENTIFIER_CODE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 73 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.071' Sub-File/Multiple Name: 'DRG GROUPER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_DRG_GROUPER_80_071 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.007911926 67178,44721.074153545 right DRG GROUPER 80.071 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'DRG GROUPER EFFECTIVE DATE' FileMan Field Number: '.01' This field contains the effective date for the DRGs for a fiscal year. It should normally be the first day of October of the fiscal year. Each year a new entry will be created and the DRG's hierarchy will reside within this field. %Library.FilemanDate 1 3 DRG_GROUPER_EFFECTIVE_DATE Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBDRGGROUPER80071 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship for Sub-File/Multiple to file name DRG child VALIP.prosthetic.fm2cw.SUBDRG80711 children SUBDRGGROUPER80071 1 SUB_DRG_80_711 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DRG_GROUPER_EFFECTIVE_DATE*C} FDA(80.071,IENS,.01)={DRG_GROUPER_EFFECTIVE_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.071)") set %SkipFiling=1 if $d(%FMERR(80.071,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.071,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBDRGGROUP3CF6S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 3 "B" {DRG_GROUPER_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 3 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '810.42' Sub-File/Multiple Name: 'EDIT HISTORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EDIT_HISTORY_810_42 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.013581207 67178,44721.11393216 right EDIT HISTORY 810.42 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'EDIT COMMENTS' FileMan Field Number: '2' %Library.String 4 EDIT_COMMENTS FileMan Field Label: 'EDIT DATE' FileMan Field Number: '.01' This is the date and time when the editing was done. This field is set automatically and should not be changed by the user. %Library.FilemanTimeStamp 1 3 EDIT_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name REMINDER LIST RULE) VALIP.prosthetic.fm2cw.REMINDERLISTRULE8104 parent SUBEDITHISTORY81042 1 1 REMINDER_LIST_RULE_810_4 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({REMINDER_LIST_RULE_810_4},"||"):-1:1 { set DA($i(c))=$p({REMINDER_LIST_RULE_810_4},"||",i) } set DIK="^PXRM(810.4,"_DA(1)_",110,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EDIT_DATE*C} FDA(810.42,IENS,.01)={EDIT_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(810.42)") set %SkipFiling=1 if $d(%FMERR(810.42,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(810.42,""DIERR"") for details" RETURN } if {EDIT_COMMENTS*C} { set D0={RowId} kill wp if {EDIT_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({EDIT_COMMENTS},$c(13,10)) { set wp(i)=$p({EDIT_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(810.42,{IENS},2,,wproot,"%FMERR(810.42)") if $d(%FMERR(810.42,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(810.42)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEDITHIST8291S index ^PXRM nonnull 810.4 {REMINDER_LIST_RULE_810_4.IEN} 0]]> 110 "B" {EDIT_DATE} {IEN} 0]]> data ^PXRM 810.4 {REMINDER_LIST_RULE_810_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 110 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 1 new data,i,node set {EDIT_COMMENTS}="" merge data=^PXRM(810.4,{S2},110,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {EDIT_COMMENTS}={EDIT_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '81.02' Sub-File/Multiple Name: 'EFFECTIVE DATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EFFECTIVE_DATE_81_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.018378968 67178,44721.360624544 right EFFECTIVE DATE 81.02 2.56 12/04/2024 12:25:21 1 1 IEN 1 Relationship to parent (file name CPT) VALIP.prosthetic.fm2cw.CPT81 parent SUBEFFECTIVEDATE8102 1 1 CPT_81 FileMan Field Label: 'EFFECTIVE DATE' FileMan Field Number: '.01' Date from which current status is effective. %Library.FilemanDate 1 3 EFFECTIVE_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STATUS' FileMan Field Number: '.02' %Library.EnumString 4 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CPT_81},"||"):-1:1 { set DA($i(c))=$p({CPT_81},"||",i) } set DIK="^ICPT("_DA(1)_",60,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EFFECTIVE_DATE*C} FDA(81.02,IENS,.01)={EFFECTIVE_DATE} set:{STATUS*C} FDA(81.02,IENS,.02)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(81.02)") set %SkipFiling=1 if $d(%FMERR(81.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(81.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEFFECTIV9932S index ^ICPT nonnull {CPT_81.IEN} 0]]> 60 "B" {EFFECTIVE_DATE} {IEN} 0]]> data ^ICPT {CPT_81.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 60 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '100.0199' Sub-File/Multiple Name: 'EFFECTIVE DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EFFECTIVE_DATETIME_100_0199 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.020560255 67178,44721.154156096 right EFFECTIVE DATE/TIME 100.0199 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'EFFECTIVE DATE/TIME' FileMan Field Number: '.01' This is the date/time when the Status of the reference term was established. %Library.FilemanTimeStamp 1 3 EFFECTIVE_DATETIME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name ORDER STATUS) VALIP.prosthetic.fm2cw.ORDERSTATUS10001 parent SUBEFFECTIVEDATETIME1000199 1 1 ORDER_STATUS_100_01 FileMan Field Label: 'STATUS' FileMan Field Number: '.02' The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 'ACTIVE', then the term will be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term will only be accessible by the application to display legacy data. %Library.EnumString 4 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ORDER_STATUS_100_01},"||"):-1:1 { set DA($i(c))=$p({ORDER_STATUS_100_01},"||",i) } set DIK="^ORD(100.01,"_DA(1)_",""TERMSTATUS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EFFECTIVE_DATETIME*C} FDA(100.0199,IENS,.01)={EFFECTIVE_DATETIME} set:{STATUS*C} FDA(100.0199,IENS,.02)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(100.0199)") set %SkipFiling=1 if $d(%FMERR(100.0199,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(100.0199,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEFFECTIVB0DES index ^ORD nonnull 100.01 {ORDER_STATUS_100_01.IEN} 0]]> "TERMSTATUS" "B" {EFFECTIVE_DATETIME} {IEN} 0]]> data ^ORD 100.01 {ORDER_STATUS_100_01.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "TERMSTATUS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.042' Sub-File/Multiple Name: 'EFFECTIVE DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EFFECTIVE_DATETIME_200_042 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.038702987 67178,44721.194410614 right EFFECTIVE DATE/TIME 200.042 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'EFFECTIVE DATE/TIME' FileMan Field Number: '.01' This field contains the date and time of the last change to the NPI field. %Library.FilemanTimeStamp 1 3 EFFECTIVE_DATETIME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBEFFECTIVEDATETIME200042 1 1 NEW_PERSON_200 FileMan Field Label: 'NPI' FileMan Field Number: '.03' Each VHA Billable Practitioner should have applied for the NPI through CMS' National Plan and Provider Enumeration System (NPPES). NPI Confirmation Letters are sent by CMS and indicate the NPI assigned. Practitioners may present their NPI Confirmation Letter as a source document to verify the accuracy of the NPI or you may contact your Local NPI Maintenance Team Leader for assistance. %Library.String 5 NPI FileMan Field Label: 'STATUS' FileMan Field Number: '.02' The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then the NPI will be accessible by end-users to document a particular provider. If 'INACTIVE', then the NPI will only be accessible by the application to display legacy data. %Library.EnumString 4 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""NPISTATUS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EFFECTIVE_DATETIME*C} FDA(200.042,IENS,.01)={EFFECTIVE_DATETIME} set:{STATUS*C} FDA(200.042,IENS,.02)={STATUS} set:{NPI*C} FDA(200.042,IENS,.03)={NPI} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.042)") set %SkipFiling=1 if $d(%FMERR(200.042,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.042,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEFFECTIV3BC4S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "NPISTATUS" "B" {EFFECTIVE_DATETIME} {IEN} 0]]> index {NPI}'="" 1 ^VA conditional 200 {NEW_PERSON_200.IEN} 0]]> "NPISTATUS" "C" $$TRUNCATE({NPI},30)) {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "NPISTATUS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '4.042' Sub-File/Multiple Name: 'EFFECTIVE DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EFFECTIVE_DATETIME_4_042 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.044422767 67178,44721.236248274 right EFFECTIVE DATE/TIME 4.042 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'EFFECTIVE DATE/TIME' FileMan Field Number: '.01' This field contains the date and time of the last change to the NPI field. %Library.FilemanTimeStamp 1 3 EFFECTIVE_DATETIME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INSTITUTION) VALIP.prosthetic.fm2cw.INSTITUTION4 parent SUBEFFECTIVEDATETIME4042 1 1 INSTITUTION_4 FileMan Field Label: 'NPI' FileMan Field Number: '.03' %Library.String 5 NPI FileMan Field Label: 'STATUS' FileMan Field Number: '.02' The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then the NPI will be accessible by end-users to document a particular provider. If 'INACTIVE', then the NPI will only be accessible by the application to display legacy data. %Library.EnumString 4 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({INSTITUTION_4},"||"):-1:1 { set DA($i(c))=$p({INSTITUTION_4},"||",i) } set DIK="^DIC(4,"_DA(1)_",""NPISTATUS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EFFECTIVE_DATETIME*C} FDA(4.042,IENS,.01)={EFFECTIVE_DATETIME} set:{STATUS*C} FDA(4.042,IENS,.02)={STATUS} set:{NPI*C} FDA(4.042,IENS,.03)={NPI} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.042)") set %SkipFiling=1 if $d(%FMERR(4.042,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.042,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEFFECTIVE147S index ^DIC nonnull 4 {INSTITUTION_4.IEN} 0]]> "NPISTATUS" "B" {EFFECTIVE_DATETIME} {IEN} 0]]> index {NPI}'="" 1 ^DIC conditional 4 {INSTITUTION_4.IEN} 0]]> "NPISTATUS" "C" $$TRUNCATE({NPI},30)) {IEN} 0]]> data ^DIC 4 {INSTITUTION_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "NPISTATUS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '779.00409' Sub-File/Multiple Name: 'EFFECTIVE DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EFFECTIVE_DATETIME_779_00409 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.04610753 67178,44721.278383297 right EFFECTIVE DATE/TIME 779.00409 2.56 12/04/2024 12:25:21 1 1 IEN 1 Relationship to parent (file name COUNTRY CODE) VALIP.prosthetic.fm2cw.COUNTRYCODE779004 parent SUBEFFECTIVEDATETIME77900409 1 1 COUNTRY_CODE_779_004 FileMan Field Label: 'EFFECTIVE DATE/TIME' FileMan Field Number: '.01' This is the date/time when the Status of the reference term was established. %Library.FilemanTimeStamp 1 3 EFFECTIVE_DATETIME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STATUS' FileMan Field Number: '.02' The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 'ACTIVE', then the term will be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term will only be accessible by the application to display legacy data. %Library.EnumString 4 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({COUNTRY_CODE_779_004},"||"):-1:1 { set DA($i(c))=$p({COUNTRY_CODE_779_004},"||",i) } set DIK="^HL(779.004,"_DA(1)_",""TERMSTATUS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EFFECTIVE_DATETIME*C} FDA(779.00409,IENS,.01)={EFFECTIVE_DATETIME} set:{STATUS*C} FDA(779.00409,IENS,.02)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(779.00409)") set %SkipFiling=1 if $d(%FMERR(779.00409,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(779.00409,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEFFECTIV5690S index ^HL nonnull 779.004 {COUNTRY_CODE_779_004.IEN} 0]]> "TERMSTATUS" "B" {EFFECTIVE_DATETIME} {IEN} 0]]> data ^HL 779.004 {COUNTRY_CODE_779_004.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "TERMSTATUS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '8925.699' Sub-File/Multiple Name: 'EFFECTIVE DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EFFECTIVE_DATETIME_8925_699 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.048354794 67178,44721.319739016 right EFFECTIVE DATE/TIME 8925.699 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'EFFECTIVE DATE/TIME' FileMan Field Number: '.01' This is the date/time when the Status of the reference term was established. %Library.FilemanTimeStamp 1 3 EFFECTIVE_DATETIME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STATUS' FileMan Field Number: '.02' The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If 'ACTIVE', then the term will be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term will only be accessible by the application to display legacy data. %Library.EnumString 4 STATUS Relationship to parent (file name TIU STATUS) VALIP.prosthetic.fm2cw.TIUSTATUS89256 parent SUBEFFECTIVEDATETIME8925699 1 1 TIU_STATUS_8925_6 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_STATUS_8925_6},"||"):-1:1 { set DA($i(c))=$p({TIU_STATUS_8925_6},"||",i) } set DIK="^TIU(8925.6,"_DA(1)_",""TERMSTATUS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EFFECTIVE_DATETIME*C} FDA(8925.699,IENS,.01)={EFFECTIVE_DATETIME} set:{STATUS*C} FDA(8925.699,IENS,.02)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.699)") set %SkipFiling=1 if $d(%FMERR(8925.699,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.699,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEFFECTIVE48FS index ^TIU nonnull 8925.6 {TIU_STATUS_8925_6.IEN} 0]]> "TERMSTATUS" "B" {EFFECTIVE_DATETIME} {IEN} 0]]> data ^TIU 8925.6 {TIU_STATUS_8925_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "TERMSTATUS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '40.801' Sub-File/Multiple Name: 'EMPLOYEE HEALTH COUNTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EMPLOYEE_HEALTH_COUNTS_40_801 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.070981875 67178,44721.402530543 right EMPLOYEE HEALTH COUNTS 40.801 2.56 12/04/2024 12:25:21 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL CENTER DIVISION) VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 parent SUBEMPLOYEEHEALTHCOUNTS40801 1 1 MEDICAL_CENTER_DIVISION_40_8 FileMan Field Label: 'MONTH/YEAR' FileMan Field Number: '.01' Enter the year for which employee health visits are to be tracked. %Library.FilemanDate 1 3 MONTHYEAR FileMan Field Label: 'TOTAL' FileMan Field Number: '1' Enter the total number of employee health visits to this division during this month. %Library.Numeric 4 TOTAL SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_CENTER_DIVISION_40_8},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_CENTER_DIVISION_40_8},"||",i) } set DIK="^DG(40.8,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MONTHYEAR*C} FDA(40.801,IENS,.01)={MONTHYEAR} set:{TOTAL*C} FDA(40.801,IENS,1)={TOTAL} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(40.801)") set %SkipFiling=1 if $d(%FMERR(40.801,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(40.801,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEMPLOYEEDFEAS data ^DG 40.8 {MEDICAL_CENTER_DIVISION_40_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '2.001' Sub-File/Multiple Name: 'ENROLLMENT CLINIC' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ENROLLMENT_CLINIC_2_001 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.073745584 67178,44721.441654762 right ENROLLMENT CLINIC 2.001 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'CURRENT STATUS' FileMan Field Number: '2' This field will contain 'I' for inactive if this patient is no longer enrolled in this clinic (patient has been discharged from the clinic). %Library.EnumString 3 CURRENT_STATUS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBENROLLMENTCLINIC2001 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""DE"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CURRENT_STATUS*C} FDA(2.001,IENS,2)={CURRENT_STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.001)") set %SkipFiling=1 if $d(%FMERR(2.001,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.001,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBENROLLMEEA5ES data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "DE" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '2.06' Sub-File/Multiple Name: 'ETHNICITY INFORMATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ETHNICITY_INFORMATION_2_06 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.074115441 67178,44721.481784003 right ETHNICITY INFORMATION 2.06 2.56 12/04/2024 12:25:21 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBETHNICITYINFORMATION206 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.06,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.06)") set %SkipFiling=1 if $d(%FMERR(2.06,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.06,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBETHNICIT79F8S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .06 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '375.099' Sub-File/Multiple Name: 'EVENT HISTORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EVENT_HISTORY_375_099 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.078623875 67178,44721.5211569 right EVENT HISTORY 375.099 2.56 12/04/2024 12:25:21 1 1 IEN 1 HL7_MESSAGE_TEXT_772]]> HL7MESSAGE VALIP.prosthetic.fm2cw.HL7MESSAGETEXT772 FKey_HL7_MESSAGE FileMan Field Label: 'CREATE DATE/TIME' FileMan Field Number: '.01' Date/time at which the subrecord was created. %Library.FilemanTimeStamp 1 3 CREATE_DATETIME FileMan Field Label: 'HL7 EVENT' FileMan Field Number: '.02' The HL7 ADT event code, which may be one of the following: A01, A03, A04, A05, A08, A11, A13, A38. %Library.String 4 HL7_EVENT FileMan Field Label: 'HL7 MESSAGE' FileMan Field Number: '.04' The pointer to the HL7 MESSAGE TEXT file (#772) where the outbound ADT message resides. VALIP.prosthetic.fm2cw.HL7MESSAGETEXT772 6 HL7_MESSAGE DATE/TIME ENTERED The Date/Time the message was created.]]> %Library.FilemanTimeStamp 1 DATETIME_ENTERED into :val from VALIP_prosthetic_fm2cw.SUB_EVENT_HISTORY_375_099 where %ID=:id) set {HL7_MESSAGE_DATETIME_ENTERED}=$select(SQLCODE=0:val,1:"")]]> 1 HL7_MESSAGE_DATETIME_ENTERED 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PFSS ACCOUNT) VALIP.prosthetic.fm2cw.PFSSACCOUNT375 parent SUBEVENTHISTORY375099 1 1 PFSS_ACCOUNT_375 FileMan Field Label: 'REASON' FileMan Field Number: '.03' Indicates the reason for the entry into the EVENT HISTORY subfile. There are only three points in the history of the ADT message event that are tracked by IBB: (1) Date/time of original request by application; Reason = "R" (Request) (2) Date/time at which VDEF sent the message to VistA HL7; Reason = "O" (Outbound) (3) Date/time at which a incoming message from the external medical billing system was received; Reason = "I" (Inbound) Note: The incoming message could be either a response to an outbound ADT message that originated in VistA, or it may be an ADT message related to inpatient bed control that originated in the external medical billing system. %Library.EnumString 5 REASON SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PFSS_ACCOUNT_375},"||"):-1:1 { set DA($i(c))=$p({PFSS_ACCOUNT_375},"||",i) } set DIK="^IBBAA(375,"_DA(1)_",99,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CREATE_DATETIME*C} FDA(375.099,IENS,.01)={CREATE_DATETIME} set:{HL7_EVENT*C} FDA(375.099,IENS,.02)={HL7_EVENT} set:{REASON*C} FDA(375.099,IENS,.03)={REASON} set:{HL7_MESSAGE*C} FDA(375.099,IENS,.04)={HL7_MESSAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(375.099)") set %SkipFiling=1 if $d(%FMERR(375.099,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(375.099,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEVENTHIS9D10S index ^IBBAA nonnull 375 {PFSS_ACCOUNT_375.IEN} 0]]> 99 "B" {CREATE_DATETIME} {IEN} 0]]> data ^IBBAA 375 {PFSS_ACCOUNT_375.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 99 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 4 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '2005.01' Sub-File/Multiple Name: 'EXPORT LOCATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_EXPORT_LOCATION_2005_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.099677168 67178,44721.562852344 right EXPORT LOCATION 2005.01 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'EXTENSION' FileMan Field Number: '2' This is the file extension that was successfully copied to the network location. %Library.String 4 EXTENSION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name IMAGE) VALIP.prosthetic.fm2cw.IMAGE2005 parent SUBEXPORTLOCATION200501 1 1 IMAGE_2005 FileMan Field Label: 'TIMESTAMP' FileMan Field Number: '1' This is the date and time that the file was copied to the network location. %Library.FilemanTimeStamp 3 TIMESTAMP SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({IMAGE_2005},"||"):-1:1 { set DA($i(c))=$p({IMAGE_2005},"||",i) } set DIK="^MAG(2005,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TIMESTAMP*C} FDA(2005.01,IENS,1)={TIMESTAMP} set:{EXTENSION*C} FDA(2005.01,IENS,2)={EXTENSION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.01)") set %SkipFiling=1 if $d(%FMERR(2005.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2005.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBEXPORTLOA383S data ^MAG 2005 {IMAGE_2005.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '441.03' Sub-File/Multiple Name: 'FCP' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FCP_441_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.510461868 67178,44721.601580513 right FCP 441.03 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'FCP' FileMan Field Number: '.01' This is the fund control point number. %Library.String 1 3 FCP Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name ITEM MASTER) VALIP.prosthetic.fm2cw.ITEMMASTER441 parent SUBFCP44103 1 1 ITEM_MASTER_441 FileMan Field Label: 'LONG NAME' FileMan Field Number: '.5' This is the long name of the fund control point. %Library.String 1 4 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) I $D(D1) S X="SITE: "_$E(D1,1,3)_" FCP: " I $D(^PRC(420,+$E(D1,1,3),1,+$E(D1,4,999),0)) S X=X_$P(^(0),U,1) set {LONG_NAME}=X 1 LONG_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ITEM_MASTER_441},"||"):-1:1 { set DA($i(c))=$p({ITEM_MASTER_441},"||",i) } set DIK="^PRC(441,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FCP*C} FDA(441.03,IENS,.01)={FCP} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(441.03)") set %SkipFiling=1 if $d(%FMERR(441.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(441.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBFCP44103S index ^PRC nonnull 441 {ITEM_MASTER_441.IEN} 0]]> 4 "B" {FCP} {IEN} 0]]> data ^PRC 441 {ITEM_MASTER_441.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '694.035' Sub-File/Multiple Name: 'FINAL DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FINAL_DIAGNOSIS_694_035 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.101822414 67178,44721.642818822 right FINAL DIAGNOSIS 694.035 2.56 12/04/2024 12:25:21 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> FINALDIAGNOSIS VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_FINAL_DIAGNOSIS FileMan Field Label: 'FINAL DIAGNOSIS' FileMan Field Number: '.01' Enter Medical diagnosis from the medical diagnosis/ICD codes file. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 FINAL_DIAGNOSIS DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_FINAL_DIAGNOSIS_694_035 where %ID=:id) set {FINAL_DIAGNOSIS_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 FINAL_DIAGNOSIS_DIAGNOSIS 1 Relationship to parent (file name HEMATOLOGY) VALIP.prosthetic.fm2cw.HEMATOLOGY694 parent SUBFINALDIAGNOSIS694035 1 1 HEMATOLOGY_694 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HEMATOLOGY_694},"||"):-1:1 { set DA($i(c))=$p({HEMATOLOGY_694},"||",i) } set DIK="^MCAR(694,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FINAL_DIAGNOSIS*C} FDA(694.035,IENS,.01)={FINAL_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.035)") set %SkipFiling=1 if $d(%FMERR(694.035,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.035,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFINALDIAAA34S index ^MCAR nonnull 694 {HEMATOLOGY_694.IEN} 0]]> 8 "B" {FINAL_DIAGNOSIS} {IEN} 0]]> data ^MCAR 694 {HEMATOLOGY_694.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.06' Sub-File/Multiple Name: 'FINDINGS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FINDINGS_691_06 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.100750855 67178,44721.683929799 right FINDINGS 691.06 2.56 12/04/2024 12:25:21 1 1 IEN 1 MEDICAL_DESCRIPTION_693]]> FINDINGS VALIP.prosthetic.fm2cw.MEDICALDESCRIPTION693 FKey_FINDINGS Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBFINDINGS69106 1 1 ECHO_691 FileMan Field Label: 'FINDINGS' FileMan Field Number: '.01' This allows the user to enter multiple interpreted echo findings. VALIP.prosthetic.fm2cw.MEDICALDESCRIPTION693 1 3 FINDINGS NAME This field serves as a list of Echo conclusions for the Echo file and a list of Bone Marrow Descriptions for the Hematology file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_FINDINGS_691_06 where %ID=:id) set {FINDINGS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FINDINGS_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",9,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FINDINGS*C} FDA(691.06,IENS,.01)={FINDINGS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.06)") set %SkipFiling=1 if $d(%FMERR(691.06,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.06,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFINDINGSB487S data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 9 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.018' Sub-File/Multiple Name: 'FLOWS STUDY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FLOWS_STUDY_700_018 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.114738016 67178,44721.726083086 right FLOWS STUDY 700.018 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'FEF25-75' FileMan Field Number: '4' This field identifies the measured Forced Expired Flow from 25 to 75 percent. %Library.Numeric 7 FEF2575 FileMan Field Label: 'FEV1' FileMan Field Number: '2' This field identifies the measured Forced Expired Volume in 1 second %Library.Numeric 5 FEV1 FileMan Field Label: 'FEV1/FVC' FileMan Field Number: '5' This computed field is the Forced Expired Volume divided by the Forced Vital capacity. %Library.Numeric 1 8 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(700.018,5,1)=$S($D(^MCAR(700,D0,4,D1,0)):^(0),1:"") S X=$P(Y(700.018,5,1),U,3),X=$S($P(Y(700.018,5,1),U,2):X/$P(Y(700.018,5,1),U,2),1:"*******")*100 S X=$J(X,0,0) set {FEV1FVC}=X 1 FEV1FVC FileMan Field Label: 'FLOWS STUDY' FileMan Field Number: '.01' This field identifies the type of Flow Study performed. %Library.EnumString 1 3 FLOWS_STUDY FileMan Field Label: 'FVC' FileMan Field Number: '1' This field identifies the measured Forced Vital Capacity. %Library.Numeric 4 FVC Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MVV' FileMan Field Number: '5.5' This field identifies the Maximum Voluntary Ventilation in Liters/Minute %Library.Numeric 9 MVV FileMan Field Label: 'NOTES' FileMan Field Number: '6' This field identifies allows the entering of a note (up to 60 characters) on this Flow Study. %Library.String 10 NOTES FileMan Field Label: 'PF' FileMan Field Number: '3' This field identifies the measured Peak Flow. %Library.Numeric 6 PF Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBFLOWSSTUDY700018 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FLOWS_STUDY*C} FDA(700.018,IENS,.01)={FLOWS_STUDY} set:{FVC*C} FDA(700.018,IENS,1)={FVC} set:{FEV1*C} FDA(700.018,IENS,2)={FEV1} set:{PF*C} FDA(700.018,IENS,3)={PF} set:{FEF2575*C} FDA(700.018,IENS,4)={FEF2575} set:{MVV*C} FDA(700.018,IENS,5.5)={MVV} set:{NOTES*C} FDA(700.018,IENS,6)={NOTES} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.018)") set %SkipFiling=1 if $d(%FMERR(700.018,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.018,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFLOWSSTU51A7S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 4 "B" {FLOWS_STUDY} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 5 "^" 0 3 "^" 0 1 "^" 0 2 "^" 0 7 "^" 0 6 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '691.34' Sub-File/Multiple Name: 'FLUOROSCOPY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FLUOROSCOPY_691_34 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.127791615 67178,44721.770417306 right FLUOROSCOPY 691.34 2.56 12/04/2024 12:25:21 1 1 IEN 1 Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBFLUOROSCOPY69134 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'FLUOROSCOPY' FileMan Field Number: '.01' This allows the user to enter multiple visualization of calcium noted during the cardiac cath. %Library.EnumString 1 3 FLUOROSCOPY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",34,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FLUOROSCOPY*C} FDA(691.34,IENS,.01)={FLUOROSCOPY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.34)") set %SkipFiling=1 if $d(%FMERR(691.34,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.34,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFLUOROSCBE57S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 34 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.815' Sub-File/Multiple Name: 'FOLLOW UP' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FOLLOW_UP_691_815 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.127831802 67178,44721.850757019 right FOLLOW UP 691.815 2.56 12/04/2024 12:25:21 1 1 IEN 1 Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBFOLLOWUP691815 1 1 ELECTROPHYSIOLOGY_EP_691_8 FileMan Field Label: 'FOLLOW UP' FileMan Field Number: '.01' This field documents follow up care/diagnostics. %Library.EnumString 1 3 FOLLOW_UP Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",14,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FOLLOW_UP*C} FDA(691.815,IENS,.01)={FOLLOW_UP} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.815)") set %SkipFiling=1 if $d(%FMERR(691.815,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.815,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFOLLOWUPBC99S data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 14 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.97' Sub-File/Multiple Name: 'FOLLOW UP' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FOLLOW_UP_691_97 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.129064547 67178,44721.889996427 right FOLLOW UP 691.97 2.56 12/04/2024 12:25:21 1 1 IEN 1 Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBFOLLOWUP69197 1 1 ELECTROPHYSIOLOGY_EP_691_8 FileMan Field Label: 'FOLLOW UP' FileMan Field Number: '.01' %Library.EnumString 1 3 FOLLOW_UP Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",17,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FOLLOW_UP*C} FDA(691.97,IENS,.01)={FOLLOW_UP} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.97)") set %SkipFiling=1 if $d(%FMERR(691.97,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.97,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFOLLOWUP8A1AS data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 17 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.36' Sub-File/Multiple Name: 'FOLLOWUP DEVICE OR THERAPY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FOLLOWUP_DEVICE_OR_THERAPY_699_36 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.152436764 67178,44721.810960495 right FOLLOWUP DEVICE OR THERAPY 699.36 2.56 12/04/2024 12:25:21 1 1 IEN 1 FOLLOWUP_DEVICETHERAPY_699_85]]> FOLLOWUPDEVICEORTHERAPY VALIP.prosthetic.fm2cw.FOLLOWUPDEVICETHERAPY69985 FKey_FOLLOWUP_DEVICE_OR_THERAPY Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBFOLLOWUPDEVICEORTHERAPY69936 1 1 ENDOSCOPYCONSULT_699 FileMan Field Label: 'FOLLOWUP DEVICE OR THERAPY' FileMan Field Number: '.01' This field identifies the specific type of device or therapy, previously performed, which needs follow-up. VALIP.prosthetic.fm2cw.FOLLOWUPDEVICETHERAPY69985 1 3 FOLLOWUP_DEVICE_OR_THERAPY NAME This field is used to store a list of follow-up devices and therapies applicable to Endoscopies.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_FOLLOWUP_DEVICE_OR_THERAPY_699_36 where %ID=:id) set {FOLLOWUP_DEVICE_OR_THERAPY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FOLLOWUP_DEVICE_OR_THERAPY_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FOLLOWUP_DEVICE_OR_THERAPY*C} FDA(699.36,IENS,.01)={FOLLOWUP_DEVICE_OR_THERAPY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.36)") set %SkipFiling=1 if $d(%FMERR(699.36,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.36,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFOLLOWUP716BS data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '19.02' Sub-File/Multiple Name: 'FR(0,N)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FR0N_19_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.154903687 67178,44721.929005209 right FR(0,N) 19.02 2.56 12/04/2024 12:25:21 1 1 IEN 1 FileMan Field Label: 'FROM VALUE' FileMan Field Number: '1' This optional field can be filled out for any of the "N" subscripts that FileMan must sort through on the global defined in BY(0). This field only has meaning when something has been defined in BY(0), and it indicates the "START WITH" value for subscript "N". For example, when FileMan builds the code for sorting through a cross-reference defined in BY(0), if an entry exists in the first multiple for this field, the value of this field will be used as the starting point for sorting on the first variable subscript in the cross-reference. %Library.String 4 FROM_VALUE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBFR0N1902 1 1 OPTION_19 FileMan Field Label: 'SUBSCRIPT LEVEL NUMBER' FileMan Field Number: '.01' Number equal to one of the "N" subscripts that FileMan must sort through on the global or cross-reference defined by the BY(0) input variable to the FileMan print routine, EN1^DIP. Used to set an entry into the FR(0,N) input array (sort FROM value for the Nth subscript). %Library.Numeric 1 3 SUBSCRIPT_LEVEL_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",""FROM"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SUBSCRIPT_LEVEL_NUMBER*C} FDA(19.02,IENS,.01)={SUBSCRIPT_LEVEL_NUMBER} set:{FROM_VALUE*C} FDA(19.02,IENS,1)={FROM_VALUE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.02)") set %SkipFiling=1 if $d(%FMERR(19.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBFR0N1902S index ^DIC nonnull 19 {OPTION_19.IEN} 0]]> "FROM" "B" {SUBSCRIPT_LEVEL_NUMBER} {IEN} 0]]> data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "FROM" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '44.009' Sub-File/Multiple Name: 'FRIDAY TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FRIDAY_TEMPLATE_44_009 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.155609635 67178,44721.976682407 right FRIDAY TEMPLATE 44.009 2.56 12/04/2024 12:25:21 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBFRIDAYTEMPLATE44009 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIMIT DATE' FileMan Field Number: '.01' The pattern stored at this date is applicable for Fridays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Friday when appointments may be made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Fridays from the previous entry date. %Library.Numeric 1 3 LIMIT_DATE FileMan Field Label: 'MASTER PATTERN' FileMan Field Number: '1' Master pattern set up for clinic for fridays. %Library.String 1 5 s {MASTER_PATTERN}=$e({NODE_1},1,80) 1 MASTER_PATTERN Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"T5",{IEN},1)) 1 NODE_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T5"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LIMIT_DATE*C} FDA(44.009,IENS,.01)={LIMIT_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.009)") set %SkipFiling=1 if $d(%FMERR(44.009,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.009,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFRIDAYTE7E06S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T5" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.0991' Sub-File/Multiple Name: 'FULL ICN HISTORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_FULL_ICN_HISTORY_2_0991 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.155065727 67178,44722.016857603 right FULL ICN HISTORY 2.0991 2.56 12/04/2024 12:25:22 1 1 IEN 1 FileMan Field Label: 'FULL ICN HISTORY' FileMan Field Number: '.01' This field can only be edited by CIRN! The FULL ICN (Integration Control Number) HISTORY value, allows for tracking of changes in the ICN for each patient. These entries will be used by mumps code to perform lookups when an ICN for a patient can't be found, to see if it was previously used. %Library.String 1 3 FULL_ICN_HISTORY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBFULLICNHISTORY20991 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""MPIFICNHIS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FULL_ICN_HISTORY*C} FDA(2.0991,IENS,.01)={FULL_ICN_HISTORY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0991)") set %SkipFiling=1 if $d(%FMERR(2.0991,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0991,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBFULLICNH428FS data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "MPIFICNHIS" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '9000001.41' Sub-File/Multiple Name: 'HEALTH RECORD NO.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HEALTH_RECORD_NO__9000001_41 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.181630178 67178,44722.056671425 right HEALTH RECORD NO. 9000001.41 2.56 12/04/2024 12:25:22 1 1 IEN 1 FileMan Field Label: 'DATE INACTIVATED/DELETED' FileMan Field Number: '.03' This is date that the patients entry was inactivated. %Library.FilemanDate 4 DATE_INACTIVATEDDELETED FileMan Field Label: 'HEALTH RECORD NO.' FileMan Field Number: '.02' This field is used to represent the health record number related to a facility. IHS uses a 6 character whole number. VA uses the patient SSN from the Patient File (2). %Library.String 1 3 HEALTH_RECORD_NO_ Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT/IHS) VALIP.prosthetic.fm2cw.PATIENTIHS9000001 parent SUBHEALTHRECORDNO900000141 1 1 PATIENTIHS_9000001 FileMan Field Label: 'RECORD STATUS' FileMan Field Number: '.05' This field is used by the IHS Multi-Facility Integration (MFI) package to determine whether to stop integrating data at a facility for a particular patient and location facility. %Library.EnumString 5 RECORD_STATUS FileMan Field Label: 'STOP INTEGRATION' FileMan Field Number: '.06' This field is used by the Mult-Facility Integration (MFI) package, created by IHS, to indicate this patients data should no longer be integrated by MFI. %Library.EnumString 6 STOP_INTEGRATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENTIHS_9000001},"||"):-1:1 { set DA($i(c))=$p({PATIENTIHS_9000001},"||",i) } set DIK="^AUPNPAT("_DA(1)_",41,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEALTH_RECORD_NO_*C} FDA(9000001.41,IENS,.02)={HEALTH_RECORD_NO_} set:{DATE_INACTIVATEDDELETED*C} FDA(9000001.41,IENS,.03)={DATE_INACTIVATEDDELETED} set:{RECORD_STATUS*C} FDA(9000001.41,IENS,.05)={RECORD_STATUS} set:{STOP_INTEGRATION*C} FDA(9000001.41,IENS,.06)={STOP_INTEGRATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(9000001.41)") set %SkipFiling=1 if $d(%FMERR(9000001.41,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(9000001.41,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHEALTHRE89B0S index {HEALTH_RECORD_NO_}'="" 1 ^AUPNPAT conditional "D" $$TRUNCATE({HEALTH_RECORD_NO_},30)) {PATIENTIHS_9000001.IEN} 0]]> {IEN} 0]]> data ^AUPNPAT {PATIENTIHS_9000001.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 41 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 5 "^" 0 6 Generated class for FileMan Sub-File/Multiple Number: '691.804' Sub-File/Multiple Name: 'HEART BLOCK' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HEART_BLOCK_691_804 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.185783787 67178,44722.097896192 right HEART BLOCK 691.804 2.56 12/04/2024 12:25:22 1 1 IEN 1 Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBHEARTBLOCK691804 1 1 ELECTROPHYSIOLOGY_EP_691_8 FileMan Field Label: 'HEART BLOCK' FileMan Field Number: '.01' This field defines the state of heart block. %Library.EnumString 1 3 HEART_BLOCK Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RESPONSE TO ATROPINE' FileMan Field Number: '2' This field quantifies the response to atropine. %Library.String 5 RESPONSE_TO_ATROPINE FileMan Field Label: 'RESPONSE TO CAROTID MASSAGE' FileMan Field Number: '4' This field documents the response to carotid massage. %Library.String 7 RESPONSE_TO_CAROTID_MASSAGE FileMan Field Label: 'RESPONSE TO EXERCISE' FileMan Field Number: '3' This field documents the response to exercise. %Library.String 6 RESPONSE_TO_EXERCISE FileMan Field Label: 'UNDERLYING RHYTHM' FileMan Field Number: '1' This field identifies describes the rhythm associated with a particular block. %Library.String 4 UNDERLYING_RHYTHM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",9,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEART_BLOCK*C} FDA(691.804,IENS,.01)={HEART_BLOCK} set:{UNDERLYING_RHYTHM*C} FDA(691.804,IENS,1)={UNDERLYING_RHYTHM} set:{RESPONSE_TO_ATROPINE*C} FDA(691.804,IENS,2)={RESPONSE_TO_ATROPINE} set:{RESPONSE_TO_EXERCISE*C} FDA(691.804,IENS,3)={RESPONSE_TO_EXERCISE} set:{RESPONSE_TO_CAROTID_MASSAGE*C} FDA(691.804,IENS,4)={RESPONSE_TO_CAROTID_MASSAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.804)") set %SkipFiling=1 if $d(%FMERR(691.804,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.804,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHEARTBLO8C50S data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 9 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 2 1 "^" 1 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.53' Sub-File/Multiple Name: 'HEART MED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HEART_MED_691_53 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.185473712 67178,44722.222722908 right HEART MED 691.53 2.56 12/04/2024 12:25:22 1 1 IEN 1 MEDICATION_695]]> HEARTMED VALIP.prosthetic.fm2cw.MEDICATION695 FKey_HEART_MED FileMan Field Label: 'DOSE' FileMan Field Number: '1' This allows the user to enter in the dosage for the cardiac medicine that the patient is taking at the time of this procedure. %Library.String 4 DOSE Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBHEARTMED69153 1 1 ELECTROCARDIOGRAM_EKG_691_5 FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This allows the user to enter the time/number of times the patient is to take the cardiac medicine. %Library.String 5 FREQUENCY FileMan Field Label: 'HEART MED' FileMan Field Number: '.01' This field documents the cardiac medicines that the patient is taking at the time of this procedure (multiple). VALIP.prosthetic.fm2cw.MEDICATION695 1 3 HEART_MED GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_HEART_MED_691_53 where %ID=:id) set {HEART_MED_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HEART_MED_GENERIC_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEART_MED*C} FDA(691.53,IENS,.01)={HEART_MED} set:{DOSE*C} FDA(691.53,IENS,1)={DOSE} set:{FREQUENCY*C} FDA(691.53,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.53)") set %SkipFiling=1 if $d(%FMERR(691.53,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.53,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHEARTMED4566S index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> 2 "B" {HEART_MED} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.61' Sub-File/Multiple Name: 'HEART MED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HEART_MED_691_61 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.185762706 67178,44722.264472197 right HEART MED 691.61 2.56 12/04/2024 12:25:22 1 1 IEN 1 MEDICATION_695]]> HEARTMED VALIP.prosthetic.fm2cw.MEDICATION695 FKey_HEART_MED FileMan Field Label: 'DOSE' FileMan Field Number: '1' This field contains the amount of drug taken at any given time. %Library.String 4 DOSE FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This field contains the rate at which the prescribed dose is given. %Library.String 5 FREQUENCY FileMan Field Label: 'HEART MED' FileMan Field Number: '.01' This field identifies the name of the cardiac medication. VALIP.prosthetic.fm2cw.MEDICATION695 1 3 HEART_MED GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_HEART_MED_691_61 where %ID=:id) set {HEART_MED_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HEART_MED_GENERIC_NAME 1 Relationship to parent (file name HOLTER) VALIP.prosthetic.fm2cw.HOLTER6916 parent SUBHEARTMED69161 1 1 HOLTER_691_6 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOLTER_691_6},"||"):-1:1 { set DA($i(c))=$p({HOLTER_691_6},"||",i) } set DIK="^MCAR(691.6,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEART_MED*C} FDA(691.61,IENS,.01)={HEART_MED} set:{DOSE*C} FDA(691.61,IENS,1)={DOSE} set:{FREQUENCY*C} FDA(691.61,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.61)") set %SkipFiling=1 if $d(%FMERR(691.61,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.61,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHEARTMED74E7S index ^MCAR nonnull 691.6 {HOLTER_691_6.IEN} 0]]> 1 "B" {HEART_MED} {IEN} 0]]> data ^MCAR 691.6 {HOLTER_691_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.71' Sub-File/Multiple Name: 'HEART MED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HEART_MED_691_71 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.216466644 67178,44722.306122113 right HEART MED 691.71 2.56 12/04/2024 12:25:22 1 1 IEN 1 MEDICATION_695]]> HEARTMED VALIP.prosthetic.fm2cw.MEDICATION695 FKey_HEART_MED FileMan Field Label: 'DOSE' FileMan Field Number: '1' This allows the user to enter the dosage of the cardiac medicines that the patient is taking at the time of this procedure. %Library.String 4 DOSE Relationship to parent (file name EXERCISE TOLERANCE TEST) VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 parent SUBHEARTMED69171 1 1 EXERCISE_TOLERANCE_TEST_691_7 FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This allows the user to enter the time/number of times (frequency) the patient takes the cardiac medicine. %Library.String 5 FREQUENCY FileMan Field Label: 'HEART MED' FileMan Field Number: '.01' This field (multiple) contains the cardiac medicines that the patient is taking at the time of this procedure. VALIP.prosthetic.fm2cw.MEDICATION695 1 3 HEART_MED GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_HEART_MED_691_71 where %ID=:id) set {HEART_MED_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HEART_MED_GENERIC_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({EXERCISE_TOLERANCE_TEST_691_7},"||"):-1:1 { set DA($i(c))=$p({EXERCISE_TOLERANCE_TEST_691_7},"||",i) } set DIK="^MCAR(691.7,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEART_MED*C} FDA(691.71,IENS,.01)={HEART_MED} set:{DOSE*C} FDA(691.71,IENS,1)={DOSE} set:{FREQUENCY*C} FDA(691.71,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.71)") set %SkipFiling=1 if $d(%FMERR(691.71,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.71,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHEARTMEDE4E6S index ^MCAR nonnull 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} 0]]> 1 "B" {HEART_MED} {IEN} 0]]> data ^MCAR 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.16' Sub-File/Multiple Name: 'HEART MEDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HEART_MEDICATION_691_16 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.217938762 67178,44722.138805235 right HEART MEDICATION 691.16 2.56 12/04/2024 12:25:22 1 1 IEN 1 MEDICATION_695]]> HEARTMEDICATION VALIP.prosthetic.fm2cw.MEDICATION695 FKey_HEART_MEDICATION Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBHEARTMEDICATION69116 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'DOSE' FileMan Field Number: '1' This allows the user to enter dosage of cardiac medicine given. %Library.String 4 DOSE FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This allows the user to enter when/number of times (frequency) patient should be given cardiac medicine. %Library.String 5 FREQUENCY FileMan Field Label: 'HEART MEDICATION' FileMan Field Number: '.01' This field documents the cardiac medicines that the patient is taking at the time of this procedure. (multiple) VALIP.prosthetic.fm2cw.MEDICATION695 1 3 HEART_MEDICATION GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_HEART_MEDICATION_691_16 where %ID=:id) set {HEART_MEDICATION_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HEART_MEDICATION_GENERIC_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEART_MEDICATION*C} FDA(691.16,IENS,.01)={HEART_MEDICATION} set:{DOSE*C} FDA(691.16,IENS,1)={DOSE} set:{FREQUENCY*C} FDA(691.16,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.16)") set %SkipFiling=1 if $d(%FMERR(691.16,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.16,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHEARTMEDF847S index ^MCAR nonnull 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} 0]]> 6 "B" {HEART_MEDICATION} {IEN} 0]]> data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.803' Sub-File/Multiple Name: 'HEART MEDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HEART_MEDICATION_691_803 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.222531988 67178,44722.180631 right HEART MEDICATION 691.803 2.56 12/04/2024 12:25:22 1 1 IEN 1 MEDICATION_695]]> HEARTMEDICATION VALIP.prosthetic.fm2cw.MEDICATION695 FKey_HEART_MEDICATION FileMan Field Label: 'DOSE' FileMan Field Number: '1' This allows the patient to enter dosage of medicine the patient is taking. %Library.String 4 DOSE Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBHEARTMEDICATION691803 1 1 ELECTROPHYSIOLOGY_EP_691_8 FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This allows the user to enter time/number of times (frequency) patient should take medicine. %Library.String 5 FREQUENCY FileMan Field Label: 'HEART MEDICATION' FileMan Field Number: '.01' This field identifies the medication which the patient has been prescribed VALIP.prosthetic.fm2cw.MEDICATION695 1 3 HEART_MEDICATION GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_HEART_MEDICATION_691_803 where %ID=:id) set {HEART_MEDICATION_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HEART_MEDICATION_GENERIC_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEART_MEDICATION*C} FDA(691.803,IENS,.01)={HEART_MEDICATION} set:{DOSE*C} FDA(691.803,IENS,1)={DOSE} set:{FREQUENCY*C} FDA(691.803,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.803)") set %SkipFiling=1 if $d(%FMERR(691.803,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.803,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHEARTMED852BS index ^MCAR nonnull 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} 0]]> 3 "B" {HEART_MEDICATION} {IEN} 0]]> data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '4.999' Sub-File/Multiple Name: 'HISTORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HISTORY_4_999 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.232060991 67178,44722.34930843 right HISTORY 4.999 2.56 12/04/2024 12:25:22 1 1 IEN 1 INSTITUTION_4]]> REALIGNEDFROM VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_REALIGNED_FROM INSTITUTION_4]]> REALIGNEDTO VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_REALIGNED_TO STATE_5]]> STATECHANGEDFROM VALIP.prosthetic.fm2cw.STATE5 FKey_STATE_CHANGED_FROM FileMan Field Label: 'ACTIVATED FACILITY' FileMan Field Number: '.08' %Library.EnumString 9 ACTIVATED_FACILITY FileMan Field Label: 'CITY (CHANGED FROM)' FileMan Field Number: '1.2' If CITY changed, this field holds old value. %Library.String 12 CITY_CHANGED_FROM FileMan Field Label: 'DEACTIVATED FACILITY / STA #' FileMan Field Number: '.07' %Library.EnumString 8 DEACTIVATED_FACILITY__STA_ FileMan Field Label: 'EFFECTIVE DATE' FileMan Field Number: '.01' %Library.FilemanDate 1 3 EFFECTIVE_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INSTITUTION) VALIP.prosthetic.fm2cw.INSTITUTION4 parent SUBHISTORY4999 1 1 INSTITUTION_4 FileMan Field Label: 'NAME (CHANGED FROM)' FileMan Field Number: '.02' %Library.String 4 NAME_CHANGED_FROM FileMan Field Label: 'OFFICAL VA NAME (CHANGED FROM)' FileMan Field Number: '.03' %Library.String 5 OFFICAL_VA_NAME_CHANGED_FROM FileMan Field Label: 'REALIGNED FROM' FileMan Field Number: '.06' VALIP.prosthetic.fm2cw.INSTITUTION4 7 REALIGNED_FROM NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_HISTORY_4_999 where %ID=:id) set {REALIGNED_FROM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REALIGNED_FROM_NAME 1 FileMan Field Label: 'REALIGNED TO' FileMan Field Number: '.05' VALIP.prosthetic.fm2cw.INSTITUTION4 6 REALIGNED_TO NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_HISTORY_4_999 where %ID=:id) set {REALIGNED_TO_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REALIGNED_TO_NAME 1 FileMan Field Label: 'STATE (CHANGED FROM)' FileMan Field Number: '1.3' If STATE changed, this field holds old value. VALIP.prosthetic.fm2cw.STATE5 13 STATE_CHANGED_FROM NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_HISTORY_4_999 where %ID=:id) set {STATE_CHANGED_FROM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_CHANGED_FROM_NAME 1 FileMan Field Label: 'STREET ADDR. 1 (CHANGED FROM)' FileMan Field Number: '1' If STREET ADDR. 1 changed, this field holds old value. %Library.String 10 STREET_ADDR__1_CHANGED_FROM FileMan Field Label: 'STREET ADDR. 2 (CHANGED FROM)' FileMan Field Number: '1.1' If STREET ADDR. 2 changed, this field holds old value. %Library.String 11 STREET_ADDR__2_CHANGED_FROM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 15 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'ZIP (CHANGED FROM)' FileMan Field Number: '1.4' If ZIP changed, this field holds old value. %Library.String 14 ZIP_CHANGED_FROM BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({INSTITUTION_4},"||"):-1:1 { set DA($i(c))=$p({INSTITUTION_4},"||",i) } set DIK="^DIC(4,"_DA(1)_",999,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{EFFECTIVE_DATE*C} FDA(4.999,IENS,.01)={EFFECTIVE_DATE} set:{NAME_CHANGED_FROM*C} FDA(4.999,IENS,.02)={NAME_CHANGED_FROM} set:{OFFICAL_VA_NAME_CHANGED_FROM*C} FDA(4.999,IENS,.03)={OFFICAL_VA_NAME_CHANGED_FROM} set:{REALIGNED_TO*C} FDA(4.999,IENS,.05)={REALIGNED_TO} set:{REALIGNED_FROM*C} FDA(4.999,IENS,.06)={REALIGNED_FROM} set:{DEACTIVATED_FACILITY__STA_*C} FDA(4.999,IENS,.07)={DEACTIVATED_FACILITY__STA_} set:{ACTIVATED_FACILITY*C} FDA(4.999,IENS,.08)={ACTIVATED_FACILITY} set:{STREET_ADDR__1_CHANGED_FROM*C} FDA(4.999,IENS,1)={STREET_ADDR__1_CHANGED_FROM} set:{STREET_ADDR__2_CHANGED_FROM*C} FDA(4.999,IENS,1.1)={STREET_ADDR__2_CHANGED_FROM} set:{CITY_CHANGED_FROM*C} FDA(4.999,IENS,1.2)={CITY_CHANGED_FROM} set:{STATE_CHANGED_FROM*C} FDA(4.999,IENS,1.3)={STATE_CHANGED_FROM} set:{ZIP_CHANGED_FROM*C} FDA(4.999,IENS,1.4)={ZIP_CHANGED_FROM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.999)") set %SkipFiling=1 if $d(%FMERR(4.999,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.999,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SUBHISTORY4999S index ^DIC nonnull 4 "ARF" {REALIGNED_FROM} {INSTITUTION_4.IEN} 0]]> {IEN} 0]]> index ^DIC nonnull 4 "ART" {REALIGNED_TO} {INSTITUTION_4.IEN} 0]]> {IEN} 0]]> index ^DIC nonnull 4 {INSTITUTION_4.IEN} 0]]> 999 "B" {EFFECTIVE_DATE} {IEN} 0]]> index ^DIC nonnull 4 "OLDNAM" {NAME_CHANGED_FROM} {INSTITUTION_4.IEN} 0]]> {IEN} 0]]> data ^DIC 4 {INSTITUTION_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 999 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 8 "^" 1 3 "^" 0 7 "^" 0 1 "^" 0 2 "^" 0 3 "^" 0 6 "^" 0 5 "^" 1 4 "^" 1 1 "^" 1 2 "^" 1 5 Generated class for FileMan Sub-File/Multiple Number: '2.2512' Sub-File/Multiple Name: 'HISTORY HEALTH BENEFIT PLAN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HISTORY_HEALTH_BENEFIT_PLAN_2_2512 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.247715274 67178,44722.396512753 right HISTORY HEALTH BENEFIT PLAN 2.2512 2.56 12/04/2024 12:25:22 1 1 IEN 1 FileMan Field Label: 'HISTORY ASSIGNMENT' FileMan Field Number: '4' This field indicates whether the user Assigned or Unassigned the Health Benefit Plan to the patient. This is automatically set by the system. %Library.EnumString 4 HISTORY_ASSIGNMENT FileMan Field Label: 'HISTORY HBP DATE/TIME' FileMan Field Number: '.01' This field contains the date and time the Health Benefit Plan was assigned or unassigned for the patient. It is automatically set by the system. %Library.FilemanTimeStamp 1 3 HISTORY_HBP_DATETIME FileMan Field Label: 'HISTORY SOURCE' FileMan Field Number: '5' This field contains the source of the Health Benefit plan assignment. This is automatically set by the system. %Library.EnumString 5 HISTORY_SOURCE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBHISTORYHEALTHBENEFITPLAN22512 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""HBP1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HISTORY_HBP_DATETIME*C} FDA(2.2512,IENS,.01)={HISTORY_HBP_DATETIME} set:{HISTORY_ASSIGNMENT*C} FDA(2.2512,IENS,4)={HISTORY_ASSIGNMENT} set:{HISTORY_SOURCE*C} FDA(2.2512,IENS,5)={HISTORY_SOURCE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.2512)") set %SkipFiling=1 if $d(%FMERR(2.2512,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.2512,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHISTORYHA9EAS index ^DPT nonnull {PATIENT_2.IEN} 0]]> "HBP1" "B" {HISTORY_HBP_DATETIME} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "HBP1" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 5 "^" 0 1 "^" 0 6 Generated class for FileMan Sub-File/Multiple Number: '669.9002' Sub-File/Multiple Name: 'HO LETTER 1 LIST' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HO_LETTER_1_LIST_669_9002 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.641486406 67178,44722.70721272 right HO LETTER 1 LIST 669.9002 2.56 12/04/2024 12:25:22 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBHOLETTER1LIST6699002 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",""RMPOXBAT1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.9002)") set %SkipFiling=1 if $d(%FMERR(669.9002,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.9002,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOLETTERF00FS data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOXBAT1" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '669.972' Sub-File/Multiple Name: 'HO LETTER 2 LIST' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HO_LETTER_2_LIST_669_972 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.656201899 67178,44722.747187686 right HO LETTER 2 LIST 669.972 2.56 12/04/2024 12:25:22 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBHOLETTER2LIST669972 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",""RMPOXBAT2"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.972)") set %SkipFiling=1 if $d(%FMERR(669.972,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.972,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOLETTERBBFES data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOXBAT2" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '669.974' Sub-File/Multiple Name: 'HO LETTER 3 LIST' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HO_LETTER_3_LIST_669_974 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.667351855 67178,44722.786934252 right HO LETTER 3 LIST 669.974 2.56 12/04/2024 12:25:22 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBHOLETTER3LIST669974 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",""RMPOXBAT3"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.974)") set %SkipFiling=1 if $d(%FMERR(669.974,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.974,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOLETTER457AS data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOXBAT3" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '669.961' Sub-File/Multiple Name: 'HOME OXYGEN FUND CONTROL POINT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HOME_OXYGEN_FUND_CONTROL_POINT_669_961 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.671110868 67178,44722.438167968 right HOME OXYGEN FUND CONTROL POINT 669.961 2.56 12/04/2024 12:25:22 1 1 IEN 1 FileMan Field Label: 'FUND CONTROL POINT' FileMan Field Number: '.01' This is a Fund Control Point used for home oxygen. %Library.String 1 3 FUND_CONTROL_POINT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBHOMEOXYGENFUNDCONTROLPOINT669961 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 FileMan Field Label: 'PSAS?' FileMan Field Number: '1' If this is a PSAS Fund Control Point, then enter 'Y'. If this isn't a PSAS Fund Control Point, then enter 'N'. %Library.EnumString 4 PSAS FileMan Field Label: 'PURCHASE CARD NUMBER' FileMan Field Number: '2' %Library.String 5 PURCHASE_CARD_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",""RMPOFCP"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{FUND_CONTROL_POINT*C} FDA(669.961,IENS,.01)={FUND_CONTROL_POINT} set:{PSAS*C} FDA(669.961,IENS,1)={PSAS} set:{PURCHASE_CARD_NUMBER*C} FDA(669.961,IENS,2)={PURCHASE_CARD_NUMBER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.961)") set %SkipFiling=1 if $d(%FMERR(669.961,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.961,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOMEOXYG9CC5S index {FUND_CONTROL_POINT}'="" 1 ^RMPR conditional 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} 0]]> "RMPOFCP" "B" $$TRUNCATE({FUND_CONTROL_POINT},30)) {IEN} 0]]> data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOFCP" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '665.194' Sub-File/Multiple Name: 'HOME OXYGEN ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HOME_OXYGEN_ITEM_665_194 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.686683688 67178,44722.479936642 right HOME OXYGEN ITEM 665.194 2.56 12/04/2024 12:25:22 1 1 IEN 1 PROSTHETIC_HCPCS_661_1]]> HCPCSCODE VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 FKey_HCPCS_CODE ICD_DIAGNOSIS_80]]> ICDCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_CODE PROS_ITEM_MASTER_661]]> ITEM VALIP.prosthetic.fm2cw.PROSITEMMASTER661 FKey_ITEM PFSS_ACCOUNT_375]]> PFSSACCOUNTREFERENCE VALIP.prosthetic.fm2cw.PFSSACCOUNT375 FKey_PFSS_ACCOUNT_REFERENCE UNIT_OF_ISSUE_420_5]]> UNITOFISSUE VALIP.prosthetic.fm2cw.UNITOFISSUE4205 FKey_UNIT_OF_ISSUE VENDOR_440]]> VENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_VENDOR FileMan Field Label: 'FUND CONTROL POINT' FileMan Field Number: '5' This is the Fund Control Point for this item. %Library.String 8 FUND_CONTROL_POINT FileMan Field Label: 'HCPCS CODE' FileMan Field Number: '6' Enter the HCPCS code for this item. This number is taken from the CPT file (81) and consists of 1 letter and 4 numbers. The HCPCS shares the CPT file 81. VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 1 9 HCPCS_CODE HCPCS This is a unique Prosthetics HCPCS code that corresponds to the CPT code.]]> %Library.String 1 HCPCS into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_ITEM_665_194 where %ID=:id) set {HCPCS_CODE_HCPCS}=$select(SQLCODE=0:val,1:"")]]> 1 HCPCS_CODE_HCPCS 1 FileMan Field Label: 'HOME OXYGEN CONSERVING FLAG' FileMan Field Number: '12' This flag an item as that Oxygen conserving device is used. IF this flag is set to YES, a 'QH' cpt modifier will be appended to the CPT modifier string during posting to Patient 2319 record. %Library.EnumString 15 HOME_OXYGEN_CONSERVING_FLAG FileMan Field Label: 'HOME OXYGEN RENTAL FLAG' FileMan Field Number: '11' A flag that designates an item as rental. %Library.EnumString 14 HOME_OXYGEN_RENTAL_FLAG FileMan Field Label: 'ICD CODE' FileMan Field Number: '7' This is the ICD diagnosis code. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 10 ICD_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_ITEM_665_194 where %ID=:id) set {ICD_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_CODE_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ITEM' FileMan Field Number: '.01' This is a multiple field and will contain all the items dispensed to the patient. NOTE: The first entry must be the primary equipment item. VALIP.prosthetic.fm2cw.PROSITEMMASTER661 1 3 ITEM NAME This is the IFCAP Item Master Number.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_ITEM_665_194 where %ID=:id) set {ITEM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_NAME 1 FileMan Field Label: 'ITEM TYPE' FileMan Field Number: '9' This is the type of issue (initial, replacement, or repair) which is useful in determining workload. %Library.EnumString 12 ITEM_TYPE FileMan Field Label: 'PFSS ACCOUNT FLAG' FileMan Field Number: '100' Flag field that indicates this record is ready for PFSS Processing. %Library.EnumString 16 PFSS_ACCOUNT_FLAG FileMan Field Label: 'PFSS ACCOUNT REFERENCE' FileMan Field Number: '101' The account reference number passed back to Prosthetics from the get account ID process. It is associated with the item. VALIP.prosthetic.fm2cw.PFSSACCOUNT375 17 PFSS_ACCOUNT_REFERENCE ACCOUNT REFERENCE The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing.]]> %Library.Numeric 1 ACCOUNT_REFERENCE into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_ITEM_665_194 where %ID=:id) set {PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE}=$select(SQLCODE=0:val,1:"")]]> 1 PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE 1 FileMan Field Label: 'PRIMARY ITEM' FileMan Field Number: '10' The primary item is the item that is the most important to or descriptive of a patient's care. It is displayed on many reports in lieu of all the items so that the user can easily and quickly tell what kind of treatment the patient is getting. There are multiple sets of items for each patient, one for each vendor. There can only be one primary item for each set. %Library.EnumString 13 PRIMARY_ITEM Relationship to parent (file name PROSTHETICS PATIENT) VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 parent SUBHOMEOXYGENITEM665194 1 1 PROSTHETICS_PATIENT_665 FileMan Field Label: 'QUANTITY' FileMan Field Number: '2' This is the number of units (tank, case, etc.) issued for this prescription. %Library.Numeric 5 QUANTITY FileMan Field Label: 'REMARKS' FileMan Field Number: '8' Enter any information (3 - 30 characters) specific to this patient, such as: Patient hard of hearing. %Library.String 11 REMARKS FileMan Field Label: 'UNIT COST' FileMan Field Number: '3' This is the cost per unit of this issue. %Library.Numeric 6 UNIT_COST FileMan Field Label: 'UNIT OF ISSUE' FileMan Field Number: '4' This is the unit of issue (e.g., ea, lbs, case, feet, etc.). VALIP.prosthetic.fm2cw.UNITOFISSUE4205 7 UNIT_OF_ISSUE NAME This is the name of the unit of the item.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_ITEM_665_194 where %ID=:id) set {UNIT_OF_ISSUE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 UNIT_OF_ISSUE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 18 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR' FileMan Field Number: '1' Enter the name of the vendor or vendor code. VALIP.prosthetic.fm2cw.VENDOR440 4 VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_ITEM_665_194 where %ID=:id) set {VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VENDOR_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_PATIENT_665},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_PATIENT_665},"||",i) } set DIK="^RMPR(665,"_DA(1)_",""RMPOC"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ITEM*C} FDA(665.194,IENS,.01)={ITEM} set:{VENDOR*C} FDA(665.194,IENS,1)={VENDOR} set:{QUANTITY*C} FDA(665.194,IENS,2)={QUANTITY} set:{UNIT_COST*C} FDA(665.194,IENS,3)={UNIT_COST} set:{UNIT_OF_ISSUE*C} FDA(665.194,IENS,4)={UNIT_OF_ISSUE} set:{FUND_CONTROL_POINT*C} FDA(665.194,IENS,5)={FUND_CONTROL_POINT} set:{HCPCS_CODE*C} FDA(665.194,IENS,6)={HCPCS_CODE} set:{ICD_CODE*C} FDA(665.194,IENS,7)={ICD_CODE} set:{REMARKS*C} FDA(665.194,IENS,8)={REMARKS} set:{ITEM_TYPE*C} FDA(665.194,IENS,9)={ITEM_TYPE} set:{PRIMARY_ITEM*C} FDA(665.194,IENS,10)={PRIMARY_ITEM} set:{HOME_OXYGEN_RENTAL_FLAG*C} FDA(665.194,IENS,11)={HOME_OXYGEN_RENTAL_FLAG} set:{HOME_OXYGEN_CONSERVING_FLAG*C} FDA(665.194,IENS,12)={HOME_OXYGEN_CONSERVING_FLAG} set:{PFSS_ACCOUNT_FLAG*C} FDA(665.194,IENS,100)={PFSS_ACCOUNT_FLAG} set:{PFSS_ACCOUNT_REFERENCE*C} FDA(665.194,IENS,101)={PFSS_ACCOUNT_REFERENCE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665.194)") set %SkipFiling=1 if $d(%FMERR(665.194,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(665.194,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOMEOXYG8721S index ^RMPR nonnull 665 "AC" {PRIMARY_ITEM} {PROSTHETICS_PATIENT_665.IEN} 0]]> {IEN} 0]]> index ^RMPR nonnull 665 "APO" {PFSS_ACCOUNT_FLAG} {PROSTHETICS_PATIENT_665.IEN} 0]]> {IEN} 0]]> index ^RMPR nonnull 665 {PROSTHETICS_PATIENT_665.IEN} 0]]> "RMPOC" "B" {ITEM} {IEN} 0]]> data ^RMPR 665 {PROSTHETICS_PATIENT_665.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOC" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 6 "^" 0 7 "^" 0 13 "^" 0 12 "^" 0 8 "^" 0 1 "^" 0 10 "^" "PFSS" 1 "^" "PFSS" 2 "^" 0 11 "^" 0 3 "^" 0 9 "^" 0 4 "^" 0 5 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '669.965' Sub-File/Multiple Name: 'HOME OXYGEN LETTER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HOME_OXYGEN_LETTER_669_965 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.681942673 67178,44722.528955164 right HOME OXYGEN LETTER 669.965 2.56 12/04/2024 12:25:22 1 1 IEN 1 FileMan Field Label: 'AUTOGENERATE LETTER' FileMan Field Number: '3' If you want the patient to appear on a list of patients who are due to receive letters, enter 1 for YES at this prompt. If not, enter 0 for NO. If YES, the letter is autogenerated and ready fo be printed. %Library.EnumString 5 AUTOGENERATE_LETTER FileMan Field Label: 'DAYS TO PRESCRIPTION EXPIRY' FileMan Field Number: '2' The letter for pending prescription expiry is produced when there are at most this number of days until the prescription expires. If this is a welcome letter, enter '0' so the letter will be generated the day the patient is activated. %Library.Numeric 4 DAYS_TO_PRESCRIPTION_EXPIRY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LETTER CODE' FileMan Field Number: '1' Each letter has a letter code for quick reference, instead of its potentially very long name. This is the code that summarizes what the letter will be used for. %Library.EnumString 3 LETTER_CODE FileMan Field Label: 'PRINT LETTER HEADER' FileMan Field Number: '4' If you print your letters to paper that contains a letterhead, then enter 0 for NO at this prompt. If you want the program to print the header information, enter 1 for YES at this prompt. %Library.EnumString 6 PRINT_LETTER_HEADER Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBHOMEOXYGENLETTER669965 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",""RMPOLET"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LETTER_CODE*C} FDA(669.965,IENS,1)={LETTER_CODE} set:{DAYS_TO_PRESCRIPTION_EXPIRY*C} FDA(669.965,IENS,2)={DAYS_TO_PRESCRIPTION_EXPIRY} set:{AUTOGENERATE_LETTER*C} FDA(669.965,IENS,3)={AUTOGENERATE_LETTER} set:{PRINT_LETTER_HEADER*C} FDA(669.965,IENS,4)={PRINT_LETTER_HEADER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.965)") set %SkipFiling=1 if $d(%FMERR(669.965,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.965,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOMEOXYGB262S index ^RMPR nonnull 669.9 "ALTDY" {DAYS_TO_PRESCRIPTION_EXPIRY} {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} 0]]> {IEN} 0]]> data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOLET" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 4 "^" 0 3 "^" 0 2 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '665.193' Sub-File/Multiple Name: 'HOME OXYGEN PRESCRIPTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HOME_OXYGEN_PRESCRIPTION_665_193 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.719791375 67178,44722.571569816 right HOME OXYGEN PRESCRIPTION 665.193 2.56 12/04/2024 12:25:22 1 1 IEN 1 ICD_DIAGNOSIS_80]]> PRIMARYICDDIAGNOSISCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_PRIMARY_ICD_DIAGNOSIS_CODE NEW_PERSON_200]]> REQUESTOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REQUESTOR ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSISCODE1 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_CODE_1 ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSISCODE2 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_CODE_2 ICD_DIAGNOSIS_80]]> SECONDARYICDDIAGNOSISCODE3 VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_SECONDARY_ICD_DIAGNOSIS_CODE_3 %Library.String 6 AB_LETTERS_SENT FileMan Field Label: 'DATE' FileMan Field Number: '.01' Enter the date the prescription was written. %Library.FilemanDate 1 3 DATE_01 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '3' Enter prescription information. %Library.String 5 DESCRIPTION FileMan Field Label: 'EXPIRATION DATE' FileMan Field Number: '2' Enter the date that this prescription expires. %Library.FilemanDate 4 EXPIRATION_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PFSS NEW PRESCRIPTION FLAG' FileMan Field Number: '100' This flag indicates that a new Home Oxygen prescription has been entered and that pre-certification processing for this patient should begin. %Library.EnumString 39 PFSS_NEW_PRESCRIPTION_FLAG FileMan Field Label: 'PRIMARY AGENT ORANGE' FileMan Field Number: '30.1' Primary diagnosis is related to Agent Orange exposure. %Library.EnumString 8 PRIMARY_AGENT_ORANGE FileMan Field Label: 'PRIMARY COMBAT VET' FileMan Field Number: '30.7' Primary diagnosis is related to Combat. %Library.EnumString 14 PRIMARY_COMBAT_VET FileMan Field Label: 'PRIMARY ENVIRONMENTAL CONT.' FileMan Field Number: '30.4' Primary diagnosis is related to Environmental Contaminants exposure. %Library.EnumString 11 PRIMARY_ENVIRONMENTAL_CONT_ FileMan Field Label: 'PRIMARY HEAD/NECK CANCER' FileMan Field Number: '30.6' Primary diagnosis is related to Head/Neck Cancer. %Library.EnumString 13 PRIMARY_HEADNECK_CANCER FileMan Field Label: 'PRIMARY ICD DIAGNOSIS CODE' FileMan Field Number: '30' Primary ICD from the consult. Associated with the prescription. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 7 PRIMARY_ICD_DIAGNOSIS_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_PRESCRIPTION_665_193 where %ID=:id) set {PRIMARY_ICD_DIAGNOSIS_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_ICD_DIAGNOSIS_CODE_CODE_NUMBER 1 FileMan Field Label: 'PRIMARY IONIZED RADIATION' FileMan Field Number: '30.2' Primary diagnosis is related to Ionized Radiation exposure. %Library.EnumString 9 PRIMARY_IONIZED_RADIATION FileMan Field Label: 'PRIMARY MST' FileMan Field Number: '30.5' Primary diagnosis is related to Military Sexual Trauma. %Library.EnumString 12 PRIMARY_MST FileMan Field Label: 'PRIMARY SERVICE CONNECTED' FileMan Field Number: '30.3' Primary diagnosis is related to a Service Connected condition. %Library.EnumString 10 PRIMARY_SERVICE_CONNECTED Relationship to parent (file name PROSTHETICS PATIENT) VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 parent SUBHOMEOXYGENPRESCRIPTION665193 1 1 PROSTHETICS_PATIENT_665 FileMan Field Label: 'REQUESTOR' FileMan Field Number: '101' Person that performed the initial consult request. Pointer to file #200. Associated with the prescription. VALIP.prosthetic.fm2cw.NEWPERSON200 40 REQUESTOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_PRESCRIPTION_665_193 where %ID=:id) set {REQUESTOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTOR_NAME 1 FileMan Field Label: 'SECONDARY AGENT ORANGE 1' FileMan Field Number: '31.1' A secondary agent orange from the consult. %Library.EnumString 16 SECONDARY_AGENT_ORANGE_1 FileMan Field Label: 'SECONDARY AGENT ORANGE 2' FileMan Field Number: '32.1' Secondary diagnosis 2 is related to Agent Orange exposure. %Library.EnumString 24 SECONDARY_AGENT_ORANGE_2 FileMan Field Label: 'SECONDARY AGENT ORANGE 3' FileMan Field Number: '33.1' Secondary diagnosis 3 is related to Agent Orange exposure. %Library.EnumString 32 SECONDARY_AGENT_ORANGE_3 FileMan Field Label: 'SECONDARY COMBAT VET 1' FileMan Field Number: '31.7' Secondary diagnosis 1 is related to Combat. %Library.EnumString 22 SECONDARY_COMBAT_VET_1 FileMan Field Label: 'SECONDARY COMBAT VET 2' FileMan Field Number: '32.7' Secondary diagnosis 2 is related to Combat. %Library.EnumString 30 SECONDARY_COMBAT_VET_2 FileMan Field Label: 'SECONDARY COMBAT VET 3' FileMan Field Number: '33.7' Secondary diagnosis 3 is related to Combat. %Library.EnumString 38 SECONDARY_COMBAT_VET_3 FileMan Field Label: 'SECONDARY ENVIRONMENTAL CONT 1' FileMan Field Number: '31.4' Secondary diagnosis 1 is related to Environmental Contaminants exposure. %Library.EnumString 19 SECONDARY_ENVIRONMENTAL_CONT_1 FileMan Field Label: 'SECONDARY ENVIRONMENTAL CONT 2' FileMan Field Number: '32.4' Secondary diagnosis 2 is related to Environmental Contaminants exposure. %Library.EnumString 27 SECONDARY_ENVIRONMENTAL_CONT_2 FileMan Field Label: 'SECONDARY ENVIRONMENTAL CONT 3' FileMan Field Number: '33.4' Secondary diagnosis 3 is related to Environmental Contaminants exposure. %Library.EnumString 35 SECONDARY_ENVIRONMENTAL_CONT_3 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 1' FileMan Field Number: '31.6' Secondary diagnosis 1 is related to Head/Neck Cancer. %Library.EnumString 21 SECONDARY_HEADNECK_CANCER_1 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 2' FileMan Field Number: '32.6' Secondary diagnosis 2 is related to Head/Neck Cancer. %Library.EnumString 29 SECONDARY_HEADNECK_CANCER_2 FileMan Field Label: 'SECONDARY HEAD/NECK CANCER 3' FileMan Field Number: '33.6' Secondary diagnosis 3 is related to Head/Neck Cancer. %Library.EnumString 37 SECONDARY_HEADNECK_CANCER_3 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS CODE 1' FileMan Field Number: '31' A Secondary ICD from the consult. Associated with the prescription. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 15 SECONDARY_ICD_DIAGNOSIS_CODE_1 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_PRESCRIPTION_665_193 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_CODE_1_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_CODE_1_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS CODE 2' FileMan Field Number: '32' A Secondary ICD from the consult. Associated with the prescription. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 23 SECONDARY_ICD_DIAGNOSIS_CODE_2 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_PRESCRIPTION_665_193 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_CODE_2_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_CODE_2_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY ICD DIAGNOSIS CODE 3' FileMan Field Number: '33' A Secondary ICD from the consult. Associated with the prescription. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 31 SECONDARY_ICD_DIAGNOSIS_CODE_3 CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_HOME_OXYGEN_PRESCRIPTION_665_193 where %ID=:id) set {SECONDARY_ICD_DIAGNOSIS_CODE_3_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_ICD_DIAGNOSIS_CODE_3_CODE_NUMBER 1 FileMan Field Label: 'SECONDARY IONIZED RADIATION 1' FileMan Field Number: '31.2' Secondary diagnosis 1 is related to Ionized Radiation exposure. %Library.EnumString 17 SECONDARY_IONIZED_RADIATION_1 FileMan Field Label: 'SECONDARY IONIZED RADIATION 2' FileMan Field Number: '32.2' Secondary diagnosis 2 is related to Ionized Radiation exposure. %Library.EnumString 25 SECONDARY_IONIZED_RADIATION_2 FileMan Field Label: 'SECONDARY IONIZED RADIATION 3' FileMan Field Number: '33.2' Secondary diagnosis 3 is related to Ionized Radiation exposure. %Library.EnumString 33 SECONDARY_IONIZED_RADIATION_3 FileMan Field Label: 'SECONDARY MST 1' FileMan Field Number: '31.5' Secondary diagnosis 1 is related to Military Sexual Trauma. %Library.EnumString 20 SECONDARY_MST_1 FileMan Field Label: 'SECONDARY MST 2' FileMan Field Number: '32.5' Secondary diagnosis 2 is related to Military Sexual Trauma. %Library.EnumString 28 SECONDARY_MST_2 FileMan Field Label: 'SECONDARY MST 3' FileMan Field Number: '33.5' Secondary diagnosis 3 is related to Military Sexual Trauma. %Library.EnumString 36 SECONDARY_MST_3 FileMan Field Label: 'SECONDARY SERVICE CONNECTED 1' FileMan Field Number: '31.3' Secondary diagnosis 1 is related to a Service Connected condition. %Library.EnumString 18 SECONDARY_SERVICE_CONNECTED_1 FileMan Field Label: 'SECONDARY SERVICE CONNECTED 2' FileMan Field Number: '32.3' Secondary diagnosis 2 is related to a Service Connected condition. %Library.EnumString 26 SECONDARY_SERVICE_CONNECTED_2 FileMan Field Label: 'SECONDARY SERVICE CONNECTED 3' FileMan Field Number: '33.3' Secondary diagnosis 3 is related to a Service Connected condition. %Library.EnumString 34 SECONDARY_SERVICE_CONNECTED_3 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 41 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_PATIENT_665},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_PATIENT_665},"||",i) } set DIK="^RMPR(665,"_DA(1)_",""RMPOB"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_01*C} FDA(665.193,IENS,.01)={DATE_01} set:{EXPIRATION_DATE*C} FDA(665.193,IENS,2)={EXPIRATION_DATE} set:{AB_LETTERS_SENT*C} FDA(665.193,IENS,4)={AB_LETTERS_SENT} set:{PRIMARY_ICD_DIAGNOSIS_CODE*C} FDA(665.193,IENS,30)={PRIMARY_ICD_DIAGNOSIS_CODE} set:{PRIMARY_AGENT_ORANGE*C} FDA(665.193,IENS,30.1)={PRIMARY_AGENT_ORANGE} set:{PRIMARY_IONIZED_RADIATION*C} FDA(665.193,IENS,30.2)={PRIMARY_IONIZED_RADIATION} set:{PRIMARY_SERVICE_CONNECTED*C} FDA(665.193,IENS,30.3)={PRIMARY_SERVICE_CONNECTED} set:{PRIMARY_ENVIRONMENTAL_CONT_*C} FDA(665.193,IENS,30.4)={PRIMARY_ENVIRONMENTAL_CONT_} set:{PRIMARY_MST*C} FDA(665.193,IENS,30.5)={PRIMARY_MST} set:{PRIMARY_HEADNECK_CANCER*C} FDA(665.193,IENS,30.6)={PRIMARY_HEADNECK_CANCER} set:{PRIMARY_COMBAT_VET*C} FDA(665.193,IENS,30.7)={PRIMARY_COMBAT_VET} set:{SECONDARY_ICD_DIAGNOSIS_CODE_1*C} FDA(665.193,IENS,31)={SECONDARY_ICD_DIAGNOSIS_CODE_1} set:{SECONDARY_AGENT_ORANGE_1*C} FDA(665.193,IENS,31.1)={SECONDARY_AGENT_ORANGE_1} set:{SECONDARY_IONIZED_RADIATION_1*C} FDA(665.193,IENS,31.2)={SECONDARY_IONIZED_RADIATION_1} set:{SECONDARY_SERVICE_CONNECTED_1*C} FDA(665.193,IENS,31.3)={SECONDARY_SERVICE_CONNECTED_1} set:{SECONDARY_ENVIRONMENTAL_CONT_1*C} FDA(665.193,IENS,31.4)={SECONDARY_ENVIRONMENTAL_CONT_1} set:{SECONDARY_MST_1*C} FDA(665.193,IENS,31.5)={SECONDARY_MST_1} set:{SECONDARY_HEADNECK_CANCER_1*C} FDA(665.193,IENS,31.6)={SECONDARY_HEADNECK_CANCER_1} set:{SECONDARY_COMBAT_VET_1*C} FDA(665.193,IENS,31.7)={SECONDARY_COMBAT_VET_1} set:{SECONDARY_ICD_DIAGNOSIS_CODE_2*C} FDA(665.193,IENS,32)={SECONDARY_ICD_DIAGNOSIS_CODE_2} set:{SECONDARY_AGENT_ORANGE_2*C} FDA(665.193,IENS,32.1)={SECONDARY_AGENT_ORANGE_2} set:{SECONDARY_IONIZED_RADIATION_2*C} FDA(665.193,IENS,32.2)={SECONDARY_IONIZED_RADIATION_2} set:{SECONDARY_SERVICE_CONNECTED_2*C} FDA(665.193,IENS,32.3)={SECONDARY_SERVICE_CONNECTED_2} set:{SECONDARY_ENVIRONMENTAL_CONT_2*C} FDA(665.193,IENS,32.4)={SECONDARY_ENVIRONMENTAL_CONT_2} set:{SECONDARY_MST_2*C} FDA(665.193,IENS,32.5)={SECONDARY_MST_2} set:{SECONDARY_HEADNECK_CANCER_2*C} FDA(665.193,IENS,32.6)={SECONDARY_HEADNECK_CANCER_2} set:{SECONDARY_COMBAT_VET_2*C} FDA(665.193,IENS,32.7)={SECONDARY_COMBAT_VET_2} set:{SECONDARY_ICD_DIAGNOSIS_CODE_3*C} FDA(665.193,IENS,33)={SECONDARY_ICD_DIAGNOSIS_CODE_3} set:{SECONDARY_AGENT_ORANGE_3*C} FDA(665.193,IENS,33.1)={SECONDARY_AGENT_ORANGE_3} set:{SECONDARY_IONIZED_RADIATION_3*C} FDA(665.193,IENS,33.2)={SECONDARY_IONIZED_RADIATION_3} set:{SECONDARY_SERVICE_CONNECTED_3*C} FDA(665.193,IENS,33.3)={SECONDARY_SERVICE_CONNECTED_3} set:{SECONDARY_ENVIRONMENTAL_CONT_3*C} FDA(665.193,IENS,33.4)={SECONDARY_ENVIRONMENTAL_CONT_3} set:{SECONDARY_MST_3*C} FDA(665.193,IENS,33.5)={SECONDARY_MST_3} set:{SECONDARY_HEADNECK_CANCER_3*C} FDA(665.193,IENS,33.6)={SECONDARY_HEADNECK_CANCER_3} set:{SECONDARY_COMBAT_VET_3*C} FDA(665.193,IENS,33.7)={SECONDARY_COMBAT_VET_3} set:{PFSS_NEW_PRESCRIPTION_FLAG*C} FDA(665.193,IENS,100)={PFSS_NEW_PRESCRIPTION_FLAG} set:{REQUESTOR*C} FDA(665.193,IENS,101)={REQUESTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665.193)") set %SkipFiling=1 if $d(%FMERR(665.193,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(665.193,""DIERR"") for details" RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(665.193,{IENS},3,,wproot,"%FMERR(665.193)") if $d(%FMERR(665.193,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(665.193)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOMEOXYG9B4AS index ^RMPR nonnull 665 "AE" {EXPIRATION_DATE} {PROSTHETICS_PATIENT_665.IEN} 0]]> {IEN} 0]]> index ^RMPR nonnull 665 "APNEW" {PFSS_NEW_PRESCRIPTION_FLAG} {PROSTHETICS_PATIENT_665.IEN} 0]]> {IEN} 0]]> index ^RMPR nonnull 665 {PROSTHETICS_PATIENT_665.IEN} 0]]> "RMPOB" "B" {DATE_01} {IEN} 0]]> data ^RMPR 665 {PROSTHETICS_PATIENT_665.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOB" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 5 "^" 0 1 1 new data,i,node set {DESCRIPTION}="" merge data=^RMPR(665,{S2},"RMPOB",{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 3 "^" "PFSS" 1 "^" "BA1" 2 "^" "BA1" 8 "^" "BA1" 5 "^" "BA1" 7 "^" "BA1" 1 "^" "BA1" 3 "^" "BA1" 6 "^" "BA1" 4 "^" "PFSS" 2 "^" "BA2" 2 "^" "BA3" 2 "^" "BA4" 2 "^" "BA2" 8 "^" "BA3" 8 "^" "BA4" 8 "^" "BA2" 5 "^" "BA3" 5 "^" "BA4" 5 "^" "BA2" 7 "^" "BA3" 7 "^" "BA4" 7 "^" "BA2" 1 "^" "BA3" 1 "^" "BA4" 1 "^" "BA2" 3 "^" "BA3" 3 "^" "BA4" 3 "^" "BA2" 6 "^" "BA3" 6 "^" "BA4" 6 "^" "BA2" 4 "^" "BA3" 4 "^" "BA4" 4 Generated class for FileMan Sub-File/Multiple Number: '669.9001' Sub-File/Multiple Name: 'HOME OXYGEN PRESCRIPTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HOME_OXYGEN_PRESCRIPTION_669_9001 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.700591157 67178,44722.627092501 right HOME OXYGEN PRESCRIPTION 669.9001 2.56 12/04/2024 12:25:22 1 1 IEN 1 FileMan Field Label: 'DEFAULT DAYS TO EXPIRATION' FileMan Field Number: '1' Each prescription expires on a certain date (legally and by policy). Usually, the first prescription expires 6 months after it is written, the second prescription expires 6 months after it is written, and the third precription and all subsequent prescriptions expires one year after they are written. The value of this field is used to determine a default answer for the expiration date of a prescription when a new prescription record is created. %Library.Numeric 4 DEFAULT_DAYS_TO_EXPIRATION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRESCRIPTION SEQUENCE NUMBER' FileMan Field Number: '.01' Prescriptions arrive for each patient, either in regular intervals or as amendments to the current prescription. The PRESCRIPTION SEQUENCE NUMBER denotes the order in which they arrive. Therefore, the prescription number that is the highest usually is the one that expires last. %Library.Numeric 1 3 PRESCRIPTION_SEQUENCE_NUMBER Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBHOMEOXYGENPRESCRIPTION6699001 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",""RMPORXN"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PRESCRIPTION_SEQUENCE_NUMBER*C} FDA(669.9001,IENS,.01)={PRESCRIPTION_SEQUENCE_NUMBER} set:{DEFAULT_DAYS_TO_EXPIRATION*C} FDA(669.9001,IENS,1)={DEFAULT_DAYS_TO_EXPIRATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.9001)") set %SkipFiling=1 if $d(%FMERR(669.9001,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.9001,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOMEOXYGB019S index ^RMPR nonnull 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} 0]]> "RMPORXN" "B" {PRESCRIPTION_SEQUENCE_NUMBER} {IEN} 0]]> data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPORXN" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '669.962' Sub-File/Multiple Name: 'HOME OXYGEN VENDOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_HOME_OXYGEN_VENDOR_669_962 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.721354269 67178,44722.667544272 right HOME OXYGEN VENDOR 669.962 2.56 12/04/2024 12:25:22 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBHOMEOXYGENVENDOR669962 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",""RMPOVDR"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.962)") set %SkipFiling=1 if $d(%FMERR(669.962,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.962,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBHOMEOXYG9D96S data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RMPOVDR" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '697.51' Sub-File/Multiple Name: 'ICD CODE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_CODE_697_51 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.248940712 67178,44722.948863017 right ICD CODE 697.51 2.56 12/04/2024 12:25:22 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_CODE FileMan Field Label: 'ICD CODE' FileMan Field Number: '.01' This field identifies the specific ICD code for this diagnosis VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_CODE_697_51 where %ID=:id) set {ICD_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_CODE_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL DIAGNOSIS/ICD CODES) VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 parent SUBICDCODE69751 1 1 MEDICAL_DIAGNOSISICD_CODES_697_5 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_DIAGNOSISICD_CODES_697_5},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_DIAGNOSISICD_CODES_697_5},"||",i) } set DIK="^MCAR(697.5,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_CODE*C} FDA(697.51,IENS,.01)={ICD_CODE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.51)") set %SkipFiling=1 if $d(%FMERR(697.51,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(697.51,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDCODE64D73S index ^MCAR nonnull 697.5 {MEDICAL_DIAGNOSISICD_CODES_697_5.IEN} 0]]> 2 "B" {ICD_CODE} {IEN} 0]]> data ^MCAR 697.5 {MEDICAL_DIAGNOSISICD_CODES_697_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.03' Sub-File/Multiple Name: 'ICD CODES NOT CC WITH' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_CODES_NOT_CC_WITH_80_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.251963456 67178,44722.827037098 right ICD CODES NOT CC WITH 80.03 2.56 12/04/2024 12:25:22 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDCODENOTCCWITH VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_CODE_NOT_CC_WITH FileMan Field Label: 'ICD CODE NOT CC WITH' FileMan Field Number: '.01' This is an ICD code not considered as Complication/comorbidity with this code. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_CODE_NOT_CC_WITH CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_CODES_NOT_CC_WITH_80_03 where %ID=:id) set {ICD_CODE_NOT_CC_WITH_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_CODE_NOT_CC_WITH_CODE_NUMBER 1 Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBICDCODESNOTCCWITH8003 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_CODE_NOT_CC_WITH*C} FDA(80.03,IENS,.01)={ICD_CODE_NOT_CC_WITH} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.03)") set %SkipFiling=1 if $d(%FMERR(80.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDCODESB891S data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 2 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.01' Sub-File/Multiple Name: 'ICD CODES NOT TO USE WITH' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_CODES_NOT_TO_USE_WITH_80_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.277095427 67178,44722.86728452 right ICD CODES NOT TO USE WITH 80.01 2.56 12/04/2024 12:25:22 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDCODENOTTOUSEWITH VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_CODE_NOT_TO_USE_WITH FileMan Field Label: 'ICD CODE NOT TO USE WITH' FileMan Field Number: '.01' This is an ICD code that cannot be used in conjunction with this code. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_CODE_NOT_TO_USE_WITH CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_CODES_NOT_TO_USE_WITH_80_01 where %ID=:id) set {ICD_CODE_NOT_TO_USE_WITH_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_CODE_NOT_TO_USE_WITH_CODE_NUMBER 1 Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBICDCODESNOTTOUSEWITH8001 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",""N"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_CODE_NOT_TO_USE_WITH*C} FDA(80.01,IENS,.01)={ICD_CODE_NOT_TO_USE_WITH} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.01)") set %SkipFiling=1 if $d(%FMERR(80.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDCODESEDB3S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> "N" "B" {ICD_CODE_NOT_TO_USE_WITH} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "N" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.02' Sub-File/Multiple Name: 'ICD CODES REQUIRED WITH' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_CODES_REQUIRED_WITH_80_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.278514037 67178,44722.907708376 right ICD CODES REQUIRED WITH 80.02 2.56 12/04/2024 12:25:22 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDCODEREQUIREDWITH VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_CODE_REQUIRED_WITH FileMan Field Label: 'ICD CODE REQUIRED WITH' FileMan Field Number: '.01' This is an ICD code that is required when this code is used. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_CODE_REQUIRED_WITH CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_CODES_REQUIRED_WITH_80_02 where %ID=:id) set {ICD_CODE_REQUIRED_WITH_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_CODE_REQUIRED_WITH_CODE_NUMBER 1 Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBICDCODESREQUIREDWITH8002 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",""R"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_CODE_REQUIRED_WITH*C} FDA(80.02,IENS,.01)={ICD_CODE_REQUIRED_WITH} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.02)") set %SkipFiling=1 if $d(%FMERR(80.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDCODESC088S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> "R" "B" {ICD_CODE_REQUIRED_WITH} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "R" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.19' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_691_19 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.28007489 67178,44722.989531537 right ICD DIAGNOSIS 691.19 2.56 12/04/2024 12:25:22 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBICDDIAGNOSIS69119 1 1 ECHO_691 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_691_19 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(691.19,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(691.19,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.19)") set %SkipFiling=1 if $d(%FMERR(691.19,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.19,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN3A25S index ^MCAR nonnull 691 {ECHO_691.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.46' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_691_46 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.280712385 67178,44723.029859636 right ICD DIAGNOSIS 691.46 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBICDDIAGNOSIS69146 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_691_46 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' This field allows the provider to add comments to the diagnostic findings. %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(691.46,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(691.46,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.46)") set %SkipFiling=1 if $d(%FMERR(691.46,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.46,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN6E66S index ^MCAR nonnull 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.58' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_691_58 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.307976993 67178,44723.070891813 right ICD DIAGNOSIS 691.58 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBICDDIAGNOSIS69158 1 1 ELECTROCARDIOGRAM_EKG_691_5 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field identifies an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_691_58 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(691.58,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(691.58,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.58)") set %SkipFiling=1 if $d(%FMERR(691.58,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.58,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN3AE6S index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.69' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_691_69 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.308365974 67178,44723.113824979 right ICD DIAGNOSIS 691.69 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name HOLTER) VALIP.prosthetic.fm2cw.HOLTER6916 parent SUBICDDIAGNOSIS69169 1 1 HOLTER_691_6 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field identifies an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_691_69 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOLTER_691_6},"||"):-1:1 { set DA($i(c))=$p({HOLTER_691_6},"||",i) } set DIK="^MCAR(691.6,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(691.69,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(691.69,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.69)") set %SkipFiling=1 if $d(%FMERR(691.69,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.69,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGNOA27S index ^MCAR nonnull 691.6 {HOLTER_691_6.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 691.6 {HOLTER_691_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.704' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_691_704 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.310285135 67178,44723.155096985 right ICD DIAGNOSIS 691.704 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name EXERCISE TOLERANCE TEST) VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 parent SUBICDDIAGNOSIS691704 1 1 EXERCISE_TOLERANCE_TEST_691_7 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_691_704 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({EXERCISE_TOLERANCE_TEST_691_7},"||"):-1:1 { set DA($i(c))=$p({EXERCISE_TOLERANCE_TEST_691_7},"||",i) } set DIK="^MCAR(691.7,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(691.704,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(691.704,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.704)") set %SkipFiling=1 if $d(%FMERR(691.704,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.704,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN5D1CS index ^MCAR nonnull 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.806' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_691_806 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.310289889 67178,44723.197154525 right ICD DIAGNOSIS 691.806 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBICDDIAGNOSIS691806 1 1 ELECTROPHYSIOLOGY_EP_691_8 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_691_806 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(691.806,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(691.806,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.806)") set %SkipFiling=1 if $d(%FMERR(691.806,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.806,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN9FADS index ^MCAR nonnull 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '694.02' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_694_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.338240761 67178,44723.239221378 right ICD DIAGNOSIS 694.02 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name HEMATOLOGY) VALIP.prosthetic.fm2cw.HEMATOLOGY694 parent SUBICDDIAGNOSIS69402 1 1 HEMATOLOGY_694 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_694_02 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HEMATOLOGY_694},"||"):-1:1 { set DA($i(c))=$p({HEMATOLOGY_694},"||",i) } set DIK="^MCAR(694,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(694.02,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(694.02,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.02)") set %SkipFiling=1 if $d(%FMERR(694.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN6C75S index ^MCAR nonnull 694 {HEMATOLOGY_694.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 694 {HEMATOLOGY_694.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '698.02' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_698_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.339453041 67178,44723.281481999 right ICD DIAGNOSIS 698.02 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name GENERATOR IMPLANT) VALIP.prosthetic.fm2cw.GENERATORIMPLANT698 parent SUBICDDIAGNOSIS69802 1 1 GENERATOR_IMPLANT_698 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_698_02 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERATOR_IMPLANT_698},"||"):-1:1 { set DA($i(c))=$p({GENERATOR_IMPLANT_698},"||",i) } set DIK="^MCAR(698,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(698.02,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(698.02,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.02)") set %SkipFiling=1 if $d(%FMERR(698.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(698.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN6FB5S index ^MCAR nonnull 698 {GENERATOR_IMPLANT_698.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 698 {GENERATOR_IMPLANT_698.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '698.12' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_698_12 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.341177568 67178,44723.322574544 right ICD DIAGNOSIS 698.12 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_698_12 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 Relationship to parent (file name V LEAD IMPLANT) VALIP.prosthetic.fm2cw.VLEADIMPLANT6981 parent SUBICDDIAGNOSIS69812 1 1 V_LEAD_IMPLANT_698_1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({V_LEAD_IMPLANT_698_1},"||"):-1:1 { set DA($i(c))=$p({V_LEAD_IMPLANT_698_1},"||",i) } set DIK="^MCAR(698.1,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(698.12,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(698.12,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.12)") set %SkipFiling=1 if $d(%FMERR(698.12,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(698.12,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGNFFB4S index ^MCAR nonnull 698.1 {V_LEAD_IMPLANT_698_1.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 698.1 {V_LEAD_IMPLANT_698_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '698.22' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_698_22 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.343001947 67178,44723.364301318 right ICD DIAGNOSIS 698.22 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name A LEAD IMPLANT) VALIP.prosthetic.fm2cw.ALEADIMPLANT6982 parent SUBICDDIAGNOSIS69822 1 1 A_LEAD_IMPLANT_698_2 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field identifies an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_698_22 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({A_LEAD_IMPLANT_698_2},"||"):-1:1 { set DA($i(c))=$p({A_LEAD_IMPLANT_698_2},"||",i) } set DIK="^MCAR(698.2,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(698.22,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(698.22,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.22)") set %SkipFiling=1 if $d(%FMERR(698.22,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(698.22,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGNOFB4S index ^MCAR nonnull 698.2 {A_LEAD_IMPLANT_698_2.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 698.2 {A_LEAD_IMPLANT_698_2.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '698.32' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_698_32 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.368505549 67178,44723.406089056 right ICD DIAGNOSIS 698.32 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_698_32 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS Relationship to parent (file name PACEMAKER SURVEILLANCE) VALIP.prosthetic.fm2cw.PACEMAKERSURVEILLANCE6983 parent SUBICDDIAGNOSIS69832 1 1 PACEMAKER_SURVEILLANCE_698_3 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PACEMAKER_SURVEILLANCE_698_3},"||"):-1:1 { set DA($i(c))=$p({PACEMAKER_SURVEILLANCE_698_3},"||",i) } set DIK="^MCAR(698.3,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(698.32,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(698.32,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.32)") set %SkipFiling=1 if $d(%FMERR(698.32,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(698.32,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN9FB5S index ^MCAR nonnull 698.3 {PACEMAKER_SURVEILLANCE_698_3.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 698.3 {PACEMAKER_SURVEILLANCE_698_3.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.03' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_699_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.370905632 67178,44723.448315289 right ICD DIAGNOSIS 699.03 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBICDDIAGNOSIS69903 1 1 ENDOSCOPYCONSULT_699 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_699_03 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(699.03,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(699.03,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.03)") set %SkipFiling=1 if $d(%FMERR(699.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN6F25S index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.54' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_699_54 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.371184627 67178,44723.491579482 right ICD DIAGNOSIS 699.54 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS Relationship to parent (file name GENERALIZED PROCEDURE/CONSULT) VALIP.prosthetic.fm2cw.GENERALIZEDPROCEDURECONSULT6995 parent SUBICDDIAGNOSIS69954 1 1 GENERALIZED_PROCEDURECONSULT_699_5 FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_699_54 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERALIZED_PROCEDURECONSULT_699_5},"||"):-1:1 { set DA($i(c))=$p({GENERALIZED_PROCEDURECONSULT_699_5},"||",i) } set DIK="^MCAR(699.5,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(699.54,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(699.54,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.54)") set %SkipFiling=1 if $d(%FMERR(699.54,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.54,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGNFD67S index ^MCAR nonnull 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '700.05' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_700_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.373606824 67178,44723.53315698 right ICD DIAGNOSIS 700.05 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_700_05 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBICDDIAGNOSIS70005 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(700.05,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(700.05,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.05)") set %SkipFiling=1 if $d(%FMERR(700.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN334BS index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '701.01' Sub-File/Multiple Name: 'ICD DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICD_DIAGNOSIS_701_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.398225929 67178,44723.574236693 right ICD DIAGNOSIS 701.01 2.56 12/04/2024 12:25:23 1 1 IEN 1 ICD_DIAGNOSIS_80]]> ICDDIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_ICD_DIAGNOSIS FileMan Field Label: 'ICD DIAGNOSIS' FileMan Field Number: '.01' This field contains an ICD Diagnosis for the procedure. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 ICD_DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ICD_DIAGNOSIS_701_01 where %ID=:id) set {ICD_DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ICD_DIAGNOSIS_CODE_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NARRATIVE DIAGNOSIS' FileMan Field Number: '.02' %Library.String 4 NARRATIVE_DIAGNOSIS Relationship to parent (file name RHEUMATOLOGY) VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 parent SUBICDDIAGNOSIS70101 1 1 RHEUMATOLOGY_701 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RHEUMATOLOGY_701},"||"):-1:1 { set DA($i(c))=$p({RHEUMATOLOGY_701},"||",i) } set DIK="^MCAR(701,"_DA(1)_",""ICD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICD_DIAGNOSIS*C} FDA(701.01,IENS,.01)={ICD_DIAGNOSIS} set:{NARRATIVE_DIAGNOSIS*C} FDA(701.01,IENS,.02)={NARRATIVE_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(701.01)") set %SkipFiling=1 if $d(%FMERR(701.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(701.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICDDIAGN301BS index ^MCAR nonnull 701 {RHEUMATOLOGY_701.IEN} 0]]> "ICD" "B" {ICD_DIAGNOSIS} {IEN} 0]]> data ^MCAR 701 {RHEUMATOLOGY_701.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ICD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '2.0992' Sub-File/Multiple Name: 'ICN HISTORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ICN_HISTORY_2_0992 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.402111632 67178,44723.615220267 right ICN HISTORY 2.0992 2.56 12/04/2024 12:25:23 1 1 IEN 1 FileMan Field Label: 'DATE/TIME OF CHANGE' FileMan Field Number: '3' Date/Time of change to the ICN. %Library.FilemanTimeStamp 5 DATETIME_OF_CHANGE FileMan Field Label: 'ICN CHECKSUM' FileMan Field Number: '1' ICN Checksum for ICN entered in multiple. %Library.Numeric 4 ICN_CHECKSUM FileMan Field Label: 'ICN HISTORY' FileMan Field Number: '.01' ICN History, to track changes in Integration Control Number for each patient. This will be used by mumps code to perform lookups when ICN can't be found to see if it was used previously. %Library.Numeric 1 3 ICN_HISTORY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBICNHISTORY20992 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""MPIFHIS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ICN_HISTORY*C} FDA(2.0992,IENS,.01)={ICN_HISTORY} set:{ICN_CHECKSUM*C} FDA(2.0992,IENS,1)={ICN_CHECKSUM} set:{DATETIME_OF_CHANGE*C} FDA(2.0992,IENS,3)={DATETIME_OF_CHANGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0992)") set %SkipFiling=1 if $d(%FMERR(2.0992,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0992,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBICNHISTO7FB5S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "MPIFHIS" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 4 "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '4.9999' Sub-File/Multiple Name: 'IDENTIFIER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IDENTIFIER_4_9999 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.404449311 67178,44723.655683031 right IDENTIFIER 4.9999 2.56 12/04/2024 12:25:23 1 1 IEN 1 FileMan Field Label: 'CODING SYSTEM' FileMan Field Number: '.01' %Library.String 1 3 CODING_SYSTEM FileMan Field Label: 'EFFECTIVE DATE/TIME' FileMan Field Number: '.03' Describes the pair Status and Effective Date/Time for each reference term. %Library.FilemanDate 5 EFFECTIVE_DATETIME FileMan Field Label: 'ID' FileMan Field Number: '.02' %Library.String 4 ID Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INSTITUTION) VALIP.prosthetic.fm2cw.INSTITUTION4 parent SUBIDENTIFIER49999 1 1 INSTITUTION_4 FileMan Field Label: 'STATUS' FileMan Field Number: '.04' The Status of a reference term is either 'ACTIVE' or 'INACTIVE', then the term will be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term will only be accessible by the application to display legacy data. %Library.EnumString 6 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({INSTITUTION_4},"||"):-1:1 { set DA($i(c))=$p({INSTITUTION_4},"||",i) } set DIK="^DIC(4,"_DA(1)_",9999,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CODING_SYSTEM*C} FDA(4.9999,IENS,.01)={CODING_SYSTEM} set:{ID*C} FDA(4.9999,IENS,.02)={ID} set:{EFFECTIVE_DATETIME*C} FDA(4.9999,IENS,.03)={EFFECTIVE_DATETIME} set:{STATUS*C} FDA(4.9999,IENS,.04)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.9999)") set %SkipFiling=1 if $d(%FMERR(4.9999,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.9999,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIDENTIFI4917S index ^DIC nonnull 4 {INSTITUTION_4.IEN} 0]]> 9999 "B" {CODING_SYSTEM} {IEN} 0]]> data ^DIC 4 {INSTITUTION_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 9999 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '445.14' Sub-File/Multiple Name: 'IFAMS OUTSTANDING PO' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IFAMS_OUTSTANDING_PO_445_14 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.645533238 67178,44723.716873555 right IFAMS OUTSTANDING PO 445.14 2.56 12/04/2024 12:25:23 1 1 IEN 1 FileMan Field Label: 'APPROVER NAME' FileMan Field Number: '10' Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLESUFFIX' format. This value must be 1-60 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed. %Library.String 8 APPROVER_NAME FileMan Field Label: 'APPROVER VA EMAIL ADDRESS' FileMan Field Number: '11' This field contains the e-mail address to which an outside person or vendor can send correspondence. (i.e. firstname.lastname@med.domain or lastname.firstname@aadomain.ext or lastname.firstname_i+@aadomain.ext as in smith.robert_b+@aadomain.ext for Robert B. Smith on Forum). (* Note: period replaces comma in lastname.firstname syntax, underscore replaces space, and plus sign replaces period following middle initial for VISTA MailMan addresses.) This address may appear on documents going to vendors. %Library.String 9 APPROVER_VA_EMAIL_ADDRESS FileMan Field Label: 'ESTIMATED DELIVERY DATE' FileMan Field Number: '6' This field indicates when this item is expected to be delivered. %Library.FilemanDate 7 ESTIMATED_DELIVERY_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IFAMS ACCT TEMPLATE NM' FileMan Field Number: '14' %Library.String 11 IFAMS_ACCT_TEMPLATE_NM FileMan Field Label: 'IFAMS DOCUMENT NUMBER' FileMan Field Number: '.01' This field contains the identifier of the outstanding iFAMS Purchase Order creating a due-in for this inventory item, %Library.String 1 3 IFAMS_DOCUMENT_NUMBER FileMan Field Label: 'ORDER STATUS' FileMan Field Number: '15' This field indicates to IFCAP how to process the Order message received from iFAMS. There are four possible values: 1 - Promise Order 2 Final Order 3 - Withdrawn Order 4 - Amendment to Order after receipt %Library.Numeric 12 ORDER_STATUS FileMan Field Label: 'QTY.ORDERED UNIT OF ISSUE' FileMan Field Number: '1' This is the quantity of an item ordered, in unit of issue. It is updated automatically when the item is ordered, the quantity adjusted in iFAMS, or the item is received. %Library.Numeric 4 QTY_ORDERED_UNIT_OF_ISSUE FileMan Field Label: 'REQUEST NUMBER' FileMan Field Number: '13' Purchase Request number or the Purchase Order number depending on order type. %Library.String 10 REQUEST_NUMBER Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBIFAMSOUTSTANDINGPO44514 1 1 SUB_INVENTORY_ITEM_445_01 FileMan Field Label: 'UNIT CONVERSION FACTOR' FileMan Field Number: '4' This is the value used to convert a unit of receipt into the units of issue. %Library.Numeric 6 UNIT_CONVERSION_FACTOR FileMan Field Label: 'UNIT OF RECEIPT PACKAGE MULT.' FileMan Field Number: '3' This is the number of units of issue per unit of receipt. %Library.Numeric 5 UNIT_OF_RECEIPT_PACKAGE_MULT_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 13 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",14,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IFAMS_DOCUMENT_NUMBER*C} FDA(445.14,IENS,.01)={IFAMS_DOCUMENT_NUMBER} set:{QTY_ORDERED_UNIT_OF_ISSUE*C} FDA(445.14,IENS,1)={QTY_ORDERED_UNIT_OF_ISSUE} set:{UNIT_OF_RECEIPT_PACKAGE_MULT_*C} FDA(445.14,IENS,3)={UNIT_OF_RECEIPT_PACKAGE_MULT_} set:{UNIT_CONVERSION_FACTOR*C} FDA(445.14,IENS,4)={UNIT_CONVERSION_FACTOR} set:{ESTIMATED_DELIVERY_DATE*C} FDA(445.14,IENS,6)={ESTIMATED_DELIVERY_DATE} set:{APPROVER_NAME*C} FDA(445.14,IENS,10)={APPROVER_NAME} set:{APPROVER_VA_EMAIL_ADDRESS*C} FDA(445.14,IENS,11)={APPROVER_VA_EMAIL_ADDRESS} set:{REQUEST_NUMBER*C} FDA(445.14,IENS,13)={REQUEST_NUMBER} set:{IFAMS_ACCT_TEMPLATE_NM*C} FDA(445.14,IENS,14)={IFAMS_ACCT_TEMPLATE_NM} set:{ORDER_STATUS*C} FDA(445.14,IENS,15)={ORDER_STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.14)") set %SkipFiling=1 if $d(%FMERR(445.14,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.14,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIFAMSOUTBDBCS index ^PRCP nonnull 445 {GENERIC_INVENTORY_445.IEN} 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} 0]]> 14 "B" {IFAMS_DOCUMENT_NUMBER} {IEN} 0]]> index ^PRCP nonnull 445 {GENERIC_INVENTORY_445.IEN} 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} 0]]> 14 "C" {REQUEST_NUMBER} {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 14 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 1 1 "^" 1 2 "^" 0 7 "^" 1 5 "^" 0 1 "^" 1 6 "^" 0 2 "^" 1 4 "^" 0 5 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '123.3128' Sub-File/Multiple Name: 'IFC SENDING FACILITY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IFC_SENDING_FACILITY_123_3128 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.404010155 67178,44723.763438421 right IFC SENDING FACILITY 123.3128 2.56 12/04/2024 12:25:23 1 1 IEN 1 INSTITUTION_4]]> IFCSENDINGFACILITY VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_IFC_SENDING_FACILITY Relationship to parent (file name GMRC PROCEDURE) VALIP.prosthetic.fm2cw.GMRCPROCEDURE1233 parent SUBIFCSENDINGFACILITY1233128 1 1 GMRC_PROCEDURE_123_3 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IFC SENDING FACILITY' FileMan Field Number: '.01' This field contains the VA facilities that may send inter-facility requests for this procedure. Only active, primary VA facilities should be entered in this field. VALIP.prosthetic.fm2cw.INSTITUTION4 1 3 IFC_SENDING_FACILITY NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_IFC_SENDING_FACILITY_123_3128 where %ID=:id) set {IFC_SENDING_FACILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IFC_SENDING_FACILITY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GMRC_PROCEDURE_123_3},"||"):-1:1 { set DA($i(c))=$p({GMRC_PROCEDURE_123_3},"||",i) } set DIK="^GMR(123.3,"_DA(1)_",""IFCS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IFC_SENDING_FACILITY*C} FDA(123.3128,IENS,.01)={IFC_SENDING_FACILITY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.3128)") set %SkipFiling=1 if $d(%FMERR(123.3128,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(123.3128,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIFCSENDIDDE7S index ^GMR nonnull 123.3 {GMRC_PROCEDURE_123_3.IEN} 0]]> "IFCS" "B" {IFC_SENDING_FACILITY} {IEN} 0]]> data ^GMR 123.3 {GMRC_PROCEDURE_123_3.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "IFCS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.02005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_130_02005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.424816069 67178,44723.805113331 right IMAGE 130.02005 2.56 12/04/2024 12:25:23 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBIMAGE13002005 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.02005)") set %SkipFiling=1 if $d(%FMERR(130.02005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.02005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE1307A16S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 2005 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '691.02005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_691_02005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.433794901 67178,44723.845250307 right IMAGE 691.02005 2.56 12/04/2024 12:25:23 1 1 IEN 1 IMAGE_2005]]> IMAGE VALIP.prosthetic.fm2cw.IMAGE2005 FKey_IMAGE Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBIMAGE69102005 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMAGE' FileMan Field Number: '.01' This fields points to an object in the Image File. VALIP.prosthetic.fm2cw.IMAGE2005 1 3 IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMAGE_691_02005 where %ID=:id) set {IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_OBJECT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMAGE*C} FDA(691.02005,IENS,.01)={IMAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.02005)") set %SkipFiling=1 if $d(%FMERR(691.02005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.02005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE6914DFCS index ^MCAR nonnull 691 {ECHO_691.IEN} 0]]> 2005 "B" {IMAGE} {IEN} 0]]> data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2005 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.12005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_691_12005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.434286619 67178,44723.886372326 right IMAGE 691.12005 2.56 12/04/2024 12:25:23 1 1 IEN 1 IMAGE_2005]]> IMAGE VALIP.prosthetic.fm2cw.IMAGE2005 FKey_IMAGE Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBIMAGE69112005 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMAGE' FileMan Field Number: '.01' This field points to an entry in the image file. VALIP.prosthetic.fm2cw.IMAGE2005 1 3 IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMAGE_691_12005 where %ID=:id) set {IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_OBJECT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMAGE*C} FDA(691.12005,IENS,.01)={IMAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.12005)") set %SkipFiling=1 if $d(%FMERR(691.12005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.12005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE6918DC1S index ^MCAR nonnull 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} 0]]> 2005 "B" {IMAGE} {IEN} 0]]> data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2005 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.52005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_691_52005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.435875681 67178,44723.926424276 right IMAGE 691.52005 2.56 12/04/2024 12:25:23 1 1 IEN 1 IMAGE_2005]]> IMAGE VALIP.prosthetic.fm2cw.IMAGE2005 FKey_IMAGE Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBIMAGE69152005 1 1 ELECTROCARDIOGRAM_EKG_691_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMAGE' FileMan Field Number: '.01' This field points to an entry in the Image File. VALIP.prosthetic.fm2cw.IMAGE2005 1 3 IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMAGE_691_52005 where %ID=:id) set {IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_OBJECT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMAGE*C} FDA(691.52005,IENS,.01)={IMAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.52005)") set %SkipFiling=1 if $d(%FMERR(691.52005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.52005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE6914D30S index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> 2005 "B" {IMAGE} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2005 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '694.02005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_694_02005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.449484667 67178,44723.967798113 right IMAGE 694.02005 2.56 12/04/2024 12:25:23 1 1 IEN 1 IMAGE_2005]]> IMAGE VALIP.prosthetic.fm2cw.IMAGE2005 FKey_IMAGE Relationship to parent (file name HEMATOLOGY) VALIP.prosthetic.fm2cw.HEMATOLOGY694 parent SUBIMAGE69402005 1 1 HEMATOLOGY_694 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMAGE' FileMan Field Number: '.01' This field points to an object in the Image File. VALIP.prosthetic.fm2cw.IMAGE2005 1 3 IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMAGE_694_02005 where %ID=:id) set {IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_OBJECT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HEMATOLOGY_694},"||"):-1:1 { set DA($i(c))=$p({HEMATOLOGY_694},"||",i) } set DIK="^MCAR(694,"_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMAGE*C} FDA(694.02005,IENS,.01)={IMAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.02005)") set %SkipFiling=1 if $d(%FMERR(694.02005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.02005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE69418FCS index ^MCAR nonnull 694 {HEMATOLOGY_694.IEN} 0]]> 2005 "B" {IMAGE} {IEN} 0]]> data ^MCAR 694 {HEMATOLOGY_694.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2005 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.02005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_699_02005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.462184588 67178,44724.009602946 right IMAGE 699.02005 2.56 12/04/2024 12:25:24 1 1 IEN 1 IMAGE_2005]]> IMAGE VALIP.prosthetic.fm2cw.IMAGE2005 FKey_IMAGE Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBIMAGE69902005 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMAGE' FileMan Field Number: '.01' This field points to an object in the Image File. VALIP.prosthetic.fm2cw.IMAGE2005 1 3 IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMAGE_699_02005 where %ID=:id) set {IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_OBJECT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMAGE*C} FDA(699.02005,IENS,.01)={IMAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.02005)") set %SkipFiling=1 if $d(%FMERR(699.02005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.02005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE69905FDS index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 2005 "B" {IMAGE} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2005 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.52005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_699_52005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.463467658 67178,44724.050884064 right IMAGE 699.52005 2.56 12/04/2024 12:25:24 1 1 IEN 1 IMAGE_2005]]> IMAGE VALIP.prosthetic.fm2cw.IMAGE2005 FKey_IMAGE Relationship to parent (file name GENERALIZED PROCEDURE/CONSULT) VALIP.prosthetic.fm2cw.GENERALIZEDPROCEDURECONSULT6995 parent SUBIMAGE69952005 1 1 GENERALIZED_PROCEDURECONSULT_699_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMAGE' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.IMAGE2005 1 3 IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMAGE_699_52005 where %ID=:id) set {IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_OBJECT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERALIZED_PROCEDURECONSULT_699_5},"||"):-1:1 { set DA($i(c))=$p({GENERALIZED_PROCEDURECONSULT_699_5},"||",i) } set DIK="^MCAR(699.5,"_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMAGE*C} FDA(699.52005,IENS,.01)={IMAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.52005)") set %SkipFiling=1 if $d(%FMERR(699.52005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.52005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE6995531S index ^MCAR nonnull 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} 0]]> 2005 "B" {IMAGE} {IEN} 0]]> data ^MCAR 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2005 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '701.02005' Sub-File/Multiple Name: 'IMAGE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMAGE_701_02005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.465090681 67178,44724.091927537 right IMAGE 701.02005 2.56 12/04/2024 12:25:24 1 1 IEN 1 IMAGE_2005]]> IMAGE VALIP.prosthetic.fm2cw.IMAGE2005 FKey_IMAGE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMAGE' FileMan Field Number: '.01' This field points to an object in the image file. VALIP.prosthetic.fm2cw.IMAGE2005 1 3 IMAGE OBJECT NAME Each object has a natural language name; this usually consists of the patient name, social security number, and object description. This field is automatically defined by the Imaging software.]]> %Library.String 1 OBJECT_NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMAGE_701_02005 where %ID=:id) set {IMAGE_OBJECT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMAGE_OBJECT_NAME 1 Relationship to parent (file name RHEUMATOLOGY) VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 parent SUBIMAGE70102005 1 1 RHEUMATOLOGY_701 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RHEUMATOLOGY_701},"||"):-1:1 { set DA($i(c))=$p({RHEUMATOLOGY_701},"||",i) } set DIK="^MCAR(701,"_DA(1)_",2005,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMAGE*C} FDA(701.02005,IENS,.01)={IMAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(701.02005)") set %SkipFiling=1 if $d(%FMERR(701.02005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(701.02005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMAGE70181A4S index ^MCAR nonnull 701 {RHEUMATOLOGY_701.IEN} 0]]> 2005 "B" {IMAGE} {IEN} 0]]> data ^MCAR 701 {RHEUMATOLOGY_701.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2005 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.029' Sub-File/Multiple Name: 'IMPRESSION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IMPRESSION_700_029 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.476943871 67178,44724.134116512 right IMPRESSION 700.029 2.56 12/04/2024 12:25:24 1 1 IEN 1 MEDICAL_DESCRIPTION_693]]> IMPRESSION VALIP.prosthetic.fm2cw.MEDICALDESCRIPTION693 FKey_IMPRESSION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMPRESSION' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.MEDICALDESCRIPTION693 1 3 IMPRESSION NAME This field serves as a list of Echo conclusions for the Echo file and a list of Bone Marrow Descriptions for the Hematology file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_IMPRESSION_700_029 where %ID=:id) set {IMPRESSION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IMPRESSION_NAME 1 Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBIMPRESSION700029 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",15,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{IMPRESSION*C} FDA(700.029,IENS,.01)={IMPRESSION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.029)") set %SkipFiling=1 if $d(%FMERR(700.029,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.029,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIMPRESSI1036S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 15 "B" {IMPRESSION} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 15 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.17' Sub-File/Multiple Name: 'INDICATED THERAPY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INDICATED_THERAPY_699_17 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.490225787 67178,44724.176415351 right INDICATED THERAPY 699.17 2.56 12/04/2024 12:25:24 1 1 IEN 1 DIAGTHERAP_INTERVENT_699_6]]> INDICATEDTHERAPY VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 FKey_INDICATED_THERAPY Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBINDICATEDTHERAPY69917 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INDICATED THERAPY' FileMan Field Number: '.01' This field identifies the specific therapeutic manipulation which you believe you may perform at the time of the examination. VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 1 3 INDICATED_THERAPY NAME This field stores a list of techniques used in various Medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_INDICATED_THERAPY_699_17 where %ID=:id) set {INDICATED_THERAPY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INDICATED_THERAPY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INDICATED_THERAPY*C} FDA(699.17,IENS,.01)={INDICATED_THERAPY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.17)") set %SkipFiling=1 if $d(%FMERR(699.17,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.17,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINDICATE58D9S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.18' Sub-File/Multiple Name: 'INDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INDICATION_691_18 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.491489425 67178,44724.217337232 right INDICATION 691.18 2.56 12/04/2024 12:25:24 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> INDICATION VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_INDICATION Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBINDICATION69118 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INDICATION' FileMan Field Number: '.01' This allows the user to enter multiple pre-cardiac catheterization diagnosis. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 INDICATION DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_INDICATION_691_18 where %ID=:id) set {INDICATION_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 INDICATION_DIAGNOSIS 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INDICATION*C} FDA(691.18,IENS,.01)={INDICATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.18)") set %SkipFiling=1 if $d(%FMERR(691.18,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.18,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINDICATIA967S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '694.057' Sub-File/Multiple Name: 'INDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INDICATION_694_057 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.493381117 67178,44724.257596554 right INDICATION 694.057 2.56 12/04/2024 12:25:24 1 1 IEN 1 INDICATION_694_1]]> INDICATION VALIP.prosthetic.fm2cw.INDICATION6941 FKey_INDICATION Relationship to parent (file name HEMATOLOGY) VALIP.prosthetic.fm2cw.HEMATOLOGY694 parent SUBINDICATION694057 1 1 HEMATOLOGY_694 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INDICATION' FileMan Field Number: '.01' Entry from the indication file. VALIP.prosthetic.fm2cw.INDICATION6941 1 3 INDICATION INDICATION This field contains a list of indications for procedures used by various modules and sub-modules of the medicine package.]]> %Library.String 1 INDICATION into :val from VALIP_prosthetic_fm2cw.SUB_INDICATION_694_057 where %ID=:id) set {INDICATION_INDICATION}=$select(SQLCODE=0:val,1:"")]]> 1 INDICATION_INDICATION 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HEMATOLOGY_694},"||"):-1:1 { set DA($i(c))=$p({HEMATOLOGY_694},"||",i) } set DIK="^MCAR(694,"_DA(1)_",12,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INDICATION*C} FDA(694.057,IENS,.01)={INDICATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.057)") set %SkipFiling=1 if $d(%FMERR(694.057,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.057,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINDICATIA0FCS index ^MCAR nonnull 694 {HEMATOLOGY_694.IEN} 0]]> 12 "B" {INDICATION} {IEN} 0]]> data ^MCAR 694 {HEMATOLOGY_694.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 12 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.16' Sub-File/Multiple Name: 'INDICATION FOR PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INDICATION_FOR_PROCEDURE_699_16 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.504675156 67178,44724.298736703 right INDICATION FOR PROCEDURE 699.16 2.56 12/04/2024 12:25:24 1 1 IEN 1 INDICATION_694_1]]> INDICATIONFORPROCEDURE VALIP.prosthetic.fm2cw.INDICATION6941 FKey_INDICATION_FOR_PROCEDURE Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBINDICATIONFORPROCEDURE69916 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INDICATION FOR PROCEDURE' FileMan Field Number: '.01' This contains a specific reason why the procedure was performed. VALIP.prosthetic.fm2cw.INDICATION6941 1 3 INDICATION_FOR_PROCEDURE INDICATION This field contains a list of indications for procedures used by various modules and sub-modules of the medicine package.]]> %Library.String 1 INDICATION into :val from VALIP_prosthetic_fm2cw.SUB_INDICATION_FOR_PROCEDURE_699_16 where %ID=:id) set {INDICATION_FOR_PROCEDURE_INDICATION}=$select(SQLCODE=0:val,1:"")]]> 1 INDICATION_FOR_PROCEDURE_INDICATION 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INDICATION_FOR_PROCEDURE*C} FDA(699.16,IENS,.01)={INDICATION_FOR_PROCEDURE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.16)") set %SkipFiling=1 if $d(%FMERR(699.16,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.16,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINDICATI4367S index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 1 "B" {INDICATION_FOR_PROCEDURE} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.37' Sub-File/Multiple Name: 'INFLATION PRESSURE IN ATM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INFLATION_PRESSURE_IN_ATM_691_37 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.190465963 67178,44724.34023315 right INFLATION PRESSURE IN ATM 691.37 2.56 12/04/2024 12:25:24 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INFLATION PRESSURE' FileMan Field Number: '.01' This field identifies between 0 and 99 %Library.Numeric 1 3 INFLATION_PRESSURE Relationship to parent (file name ANGIOPLASTY SEGMENT) VALIP.prosthetic.fm2cw.SUBANGIOPLASTYSEGMENT69136 parent SUBINFLATIONPRESSUREINATM69137 1 1 SUB_ANGIOPLASTY_SEGMENT_691_36 Relationship for Sub-File/Multiple to file name INFLATION TIME IN SEC. child VALIP.prosthetic.fm2cw.SUBINFLATIONTIMEINSEC69138 children SUBINFLATIONPRESSUREINATM69137 1 SUB_INFLATION_TIME_IN_SEC__691_38 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_ANGIOPLASTY_SEGMENT_691_36},"||"):-1:1 { set DA($i(c))=$p({SUB_ANGIOPLASTY_SEGMENT_691_36},"||",i) } set DIK="^MCAR(691.1,"_DA(2)_",37,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INFLATION_PRESSURE*C} FDA(691.37,IENS,.01)={INFLATION_PRESSURE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.37)") set %SkipFiling=1 if $d(%FMERR(691.37,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.37,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINFLATIOCB49S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 37 {SUB_ANGIOPLASTY_SEGMENT_691_36.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 1 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.38' Sub-File/Multiple Name: 'INFLATION TIME IN SEC.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INFLATION_TIME_IN_SEC__691_38 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.24643369 67178,44724.381008448 right INFLATION TIME IN SEC. 691.38 2.56 12/04/2024 12:25:24 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INFLATION TIME IN SEC.' FileMan Field Number: '.01' This allows the user to enter the inflation time in seconds %Library.Numeric 1 3 INFLATION_TIME_IN_SEC_ Relationship to parent (file name INFLATION PRESSURE IN ATM) VALIP.prosthetic.fm2cw.SUBINFLATIONPRESSUREINATM69137 parent SUBINFLATIONTIMEINSEC69138 1 1 SUB_INFLATION_PRESSURE_IN_ATM_691_37 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INFLATION_PRESSURE_IN_ATM_691_37},"||"):-1:1 { set DA($i(c))=$p({SUB_INFLATION_PRESSURE_IN_ATM_691_37},"||",i) } set DIK="^MCAR(691.1,"_DA(3)_",37,"_DA(2)_",1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INFLATION_TIME_IN_SEC_*C} FDA(691.38,IENS,.01)={INFLATION_TIME_IN_SEC_} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.38)") set %SkipFiling=1 if $d(%FMERR(691.38,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.38,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINFLATIO5B8AS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 37 {SUB_ANGIOPLASTY_SEGMENT_691_36.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 1 {SUB_INFLATION_PRESSURE_IN_ATM_691_37.IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> 1 {IEN} set:{L8}="" {L8}=0 set {L8}=$o(^({L8})) set:'{L8} {L8}="" ;PREV set:{L8}="" {L8}=$c(0) set {L8}=$o(^({L8}),-1) set:'{L8} {L8}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.05' Sub-File/Multiple Name: 'INSTRUMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INSTRUMENT_699_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.517422698 67178,44724.421125582 right INSTRUMENT 699.05 2.56 12/04/2024 12:25:24 1 1 IEN 1 INSTRUMENT_699_48]]> INSTRUMENT VALIP.prosthetic.fm2cw.INSTRUMENT69948 FKey_INSTRUMENT Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBINSTRUMENT69905 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INSTRUMENT' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.INSTRUMENT69948 1 3 INSTRUMENT NAME This field contains instruments used in GI and Pulmonary procedures. This list is built locally through options on the management menus.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_INSTRUMENT_699_05 where %ID=:id) set {INSTRUMENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INSTRUMENT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",34,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INSTRUMENT*C} FDA(699.05,IENS,.01)={INSTRUMENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.05)") set %SkipFiling=1 if $d(%FMERR(699.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINSTRUME869AS index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 34 "B" {INSTRUMENT} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 34 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '702.011' Sub-File/Multiple Name: 'INSTRUMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INSTRUMENT_702_011 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.520156931 67178,44724.461713299 right INSTRUMENT 702.011 2.56 12/04/2024 12:25:24 1 1 IEN 1 CP_INSTRUMENT_702_09]]> INSTRUMENT VALIP.prosthetic.fm2cw.CPINSTRUMENT70209 FKey_INSTRUMENT Relationship to parent (file name CP DEFINITION) VALIP.prosthetic.fm2cw.CPDEFINITION70201 parent SUBINSTRUMENT702011 1 1 CP_DEFINITION_702_01 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INSTRUMENT' FileMan Field Number: '.01' Instrument This field contains a pointer to an instrument in the CP Instrument file (#702.09) that generates results for this procedure. VALIP.prosthetic.fm2cw.CPINSTRUMENT70209 1 3 INSTRUMENT NAME Instrument Name Name or mnemonic of instrument - used by vendor in HL7 message header.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_INSTRUMENT_702_011 where %ID=:id) set {INSTRUMENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INSTRUMENT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CP_DEFINITION_702_01},"||"):-1:1 { set DA($i(c))=$p({CP_DEFINITION_702_01},"||",i) } set DIK="^MDS(702.01,"_DA(1)_",.1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INSTRUMENT*C} FDA(702.011,IENS,.01)={INSTRUMENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(702.011)") set %SkipFiling=1 if $d(%FMERR(702.011,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(702.011,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINSTRUME8B1AS index ^MDS nonnull 702.01 "AINST" {INSTRUMENT} {CP_DEFINITION_702_01.IEN} 0]]> {IEN} 0]]> index ^MDS nonnull 702.01 {CP_DEFINITION_702_01.IEN} 0]]> .1 "B" {INSTRUMENT} {IEN} 0]]> data ^MDS 702.01 {CP_DEFINITION_702_01.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.312' Sub-File/Multiple Name: 'INSURANCE TYPE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INSURANCE_TYPE_2_312 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.551695024 67178,44724.502777165 right INSURANCE TYPE 2.312 2.56 12/04/2024 12:25:24 1 1 IEN 1 FileMan Field Label: '*COMMENT - PATIENT POLICY' FileMan Field Number: '1.08' This is a place to record a short comment about this patients policy. It is specific to this patient and to this policy. The answer must be 3 to 80 characters. %Library.String 8 COMMENT__PATIENT_POLICY FileMan Field Label: 'COORDINATION OF BENEFITS' FileMan Field Number: '.2' %Library.EnumString 3 COORDINATION_OF_BENEFITS FileMan Field Label: 'DATE ENTERED' FileMan Field Number: '1.01' This is the date this entry was added. It will be created by the system whenever a new policy is added. Entries created prior the installation of IB v2.0 will not have an entry in this field. %Library.FilemanTimeStamp 5 DATE_ENTERED FileMan Field Label: 'DATE LAST EDITED' FileMan Field Number: '1.05' This is the date this policy was last edited. This field is updated by the computer whenever anyone edits this patient's policy information. %Library.FilemanTimeStamp 7 DATE_LAST_EDITED FileMan Field Label: 'DATE LAST VERIFIED' FileMan Field Number: '1.03' Insurance coverage is generally verified by calling the insurer and requesting an explanation of benefits. When coverage has been verified the person verifying the coverage should use the options to verify the coverage in VISTA. This is the date that this policy for this patient was last verified with the insurance company. It is important to update the verification date regularly so that other users will know how current the information in VISTA is. %Library.FilemanTimeStamp 6 DATE_LAST_VERIFIED FileMan Field Label: 'DATE OF SOURCE OF INFORMATION' FileMan Field Number: '1.1' %Library.FilemanTimeStamp 9 DATE_OF_SOURCE_OF_INFORMATION FileMan Field Label: 'DATE TIME PERIOD' FileMan Field Number: '12.07' Expression of a date or range of dates that indicates the date span of military service. %Library.String 61 DATE_TIME_PERIOD FileMan Field Label: 'EFFECTIVE DATE OF POLICY' FileMan Field Number: '8' This is the date the policy went into effect for the applicant. %Library.FilemanDate 58 EFFECTIVE_DATE_OF_POLICY FileMan Field Label: 'EIV AUTO-UPDATE' FileMan Field Number: '4.04' Flag that determines how the last update to INSURANCE TYPE sub-file was done. Value of "YES" means that data was last updated via eIV auto-update, value of "NO" means that data was last updated via other means. %Library.EnumString 38 EIV_AUTOUPDATE FileMan Field Label: 'EMPLOYER CLAIMS CITY' FileMan Field Number: '2.05' If the employer of the person who holds this policy pre-processes insurance claims prior to forwarding to the insurance carrier enter the city that claim should be sent to. This will be printed on the claim form. Answer must be 3 to 20 characters. %Library.String 16 EMPLOYER_CLAIMS_CITY FileMan Field Label: 'EMPLOYER CLAIMS PHONE' FileMan Field Number: '2.08' Enter the phone number of the employer. This should be the phone number of the person to contact regarding insurance claims. %Library.String 18 EMPLOYER_CLAIMS_PHONE FileMan Field Label: 'EMPLOYER CLAIMS STREET ADDRESS' FileMan Field Number: '2.02' This is the street address of the employer who should receive claims to be pre-processed before the are forwarded to the insurance carrier. The answer should be 3 to 30 characters. %Library.String 13 EMPLOYER_CLAIMS_STREET_ADDRESS FileMan Field Label: 'EMPLOYER CLAIMS ZIP CODE' FileMan Field Number: '2.07' Enter the zip code of the mailing address for this employer. Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789). %Library.String 17 EMPLOYER_CLAIMS_ZIP_CODE FileMan Field Label: 'EMPLOYMENT STATUS' FileMan Field Number: '2.11' If this is an Employer Sponsored Group Health Plan then this should be the employment status of the insured with the employer that sponsors the plan. %Library.EnumString 20 EMPLOYMENT_STATUS FileMan Field Label: 'EMPLOY CLAIM ST ADDRESS LINE 2' FileMan Field Number: '2.03' This is line 2 of the street address for employers who pre-process insurance claims before they are forwarded to the insurance carrier for processing. Answer must be 3-30 characters. %Library.String 14 EMPLOY_CLAIM_ST_ADDRESS_LINE_2 FileMan Field Label: 'EMPLOY CLAIM ST ADDRESS LINE 3' FileMan Field Number: '2.04' This is line 3 of the street address for employers who pre-process insurance claims before they are forwarded to the insurance carrier for processing. Answer must be 3-30 characters. %Library.String 15 EMPLOY_CLAIM_ST_ADDRESS_LINE_3 FileMan Field Label: 'ESGHP' FileMan Field Number: '2.1' Enter 'Yes' if this policy is part of a plan that is sponsored or provided by the insured's current or past employer. %Library.EnumString 19 ESGHP FileMan Field Label: '*GROUP NAME' FileMan Field Number: '15' If this insurance policy is a group policy, enter the name of the group. This field is moved to the HEALTH INSURANCE POLICY file (355.3) beginning with IB v2.0. It will be deleted with the first release 18 months after the release of IB V2. %Library.String 62 GROUP_NAME FileMan Field Label: '*GROUP NUMBER' FileMan Field Number: '2' Enter any other appropriate number which identifies this policy, i.e., group number/code, under which this applicant is covered. Answer must be between 1 and 17 characters. This field is moved to the HEALTH INSURANCE POLICY file (355.3) beginning with IB v2.0. It will be deleted with the first release 18 months after the release of IB V2. %Library.String 10 GROUP_NUMBER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INSURANCE EXPIRATION DATE' FileMan Field Number: '3' This is the date the policy expires for the applicant. %Library.FilemanDate 22 INSURANCE_EXPIRATION_DATE FileMan Field Label: 'INSURED'S CITY' FileMan Field Number: '3.08' This field contains the city of the policyholder. %Library.String 29 INSUREDS_CITY FileMan Field Label: 'INSURED'S COUNTRY' FileMan Field Number: '3.13' This field contains the country code of the policyholder. %Library.String 33 INSUREDS_COUNTRY FileMan Field Label: 'INSURED'S COUNTRY SUBDIVISION' FileMan Field Number: '3.14' This field contains the country subdivision code of the policyholder. %Library.String 34 INSUREDS_COUNTRY_SUBDIVISION FileMan Field Label: 'INSURED'S DOB' FileMan Field Number: '3.01' The field is used to store the date of birth of the insured person. The field value may be printed in block 11a of the CMS-1500 claim form. This is a required field for billing ChampUS patients. %Library.FilemanDate 23 INSUREDS_DOB FileMan Field Label: 'INSURED'S PHONE' FileMan Field Number: '3.11' This field contains the phone number of the policyholder. %Library.String 31 INSUREDS_PHONE FileMan Field Label: 'INSURED'S RANK' FileMan Field Number: '3.03' This field contains the insured person's military rank. The field will be used primarily for CHAMPUS policies, where the subscriber, or sponsor, may be an active duty member of the military. The field value may be printed in block 11c of the CMS-1500 claim form. %Library.String 24 INSUREDS_RANK FileMan Field Label: 'INSURED'S SEX' FileMan Field Number: '3.12' This field is used in insurance billing to help verify the policy coverage when the bill is submitted to the carrier. If the patient is the policy holder, this value should match the patient's sex. If the patient's spouse or other relative is the policy holder, the appropriate value should be determined and entered. %Library.EnumString 32 INSUREDS_SEX FileMan Field Label: 'INSURED'S SSN' FileMan Field Number: '3.05' This field contains the policyholder's social security number, if it is different than the Subscriber ID. For CHAMPUS policies, this value may be automatically inserted into this field from the PATIENT (#2) or SPONSOR PERSON (#355.82) files. %Library.String 26 INSUREDS_SSN FileMan Field Label: 'INSURED'S STREET 1' FileMan Field Number: '3.06' This field contains the first street address of the policyholder. %Library.String 27 INSUREDS_STREET_1 FileMan Field Label: 'INSURED'S STREET 2' FileMan Field Number: '3.07' This field contains the second line of the street address of the policyholder. %Library.String 28 INSUREDS_STREET_2 FileMan Field Label: 'INSURED'S ZIP' FileMan Field Number: '3.1' This field contains the zip code of the policyholder. %Library.String 30 INSUREDS_ZIP FileMan Field Label: 'MILITARY PERSONNEL DESCRIPTION' FileMan Field Number: '12.04' This field further identifies the exact military unit. %Library.String 60 MILITARY_PERSONNEL_DESCRIPTION FileMan Field Label: 'NAME OF INSURED' FileMan Field Number: '7.01' Enter the name of the individual for which this insurance policy was issued. If the patient and the insurance subscriber are the same, then this field will be defaulted from the patient name field. The name must contain a comma and be entered in Last,First format. %Library.String 54 NAME_OF_INSURED FileMan Field Label: '*NAME OF INSURED' FileMan Field Number: '17' Enter the name of the individual for which this insurance policy was issued. If the patient and the insurance subscriber are the same, then this field will be defaulted from the patient name field. The name must contain a comma and be entered in Last,First format. This field is scheduled for deletion in May 2015. %Library.String 64 NAME_OF_INSURED0 FileMan Field Label: 'NEW GROUP NAME' FileMan Field Number: '20' This computed field will yield the Group Name from file# 355.3 based on the current Group Plan in field# .18. %Library.String 1 65 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(2.312,20,9.2) S D0=$P(Y(2.312,20,1),U,18) S:'$D(^IBA(355.3,+D0,0)) D0=-1 S Y(2.312,20,101)=$S($D(^IBA(355.3,D0,2)):^(2),1:"") S X=$P(Y(2.312,20,101),U,1) S D0=Y(2.312,20,80) S D1=Y(2.312,20,81) set {NEW_GROUP_NAME}=X 1 NEW_GROUP_NAME FileMan Field Label: 'NEW GROUP NUMBER' FileMan Field Number: '21' This computed field will yield the Group Number from file# 355.3 based on the current Group Plan in field# .18. %Library.String 1 66 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(2.312,21,9.2) S D0=$P(Y(2.312,21,1),U,18) S:'$D(^IBA(355.3,+D0,0)) D0=-1 S Y(2.312,21,101)=$S($D(^IBA(355.3,D0,2)):^(2),1:"") S X=$P(Y(2.312,21,101),U,2) S D0=Y(2.312,21,80) S D1=Y(2.312,21,81) set {NEW_GROUP_NUMBER}=X 1 NEW_GROUP_NUMBER FileMan Field Label: 'PATIENT'S SECONDARY ID(1)' FileMan Field Number: '5.09' Enter the patient secondary ID #1. You may enter up to 3 secondary ID's and qualifiers. This should only be used when the patient and the subscriber are different. %Library.String 48 PATIENTS_SECONDARY_ID1 FileMan Field Label: 'PATIENT'S SECONDARY ID(2)' FileMan Field Number: '5.11' Enter the patient secondary ID #2. You may enter up to 3 secondary ID's and qualifiers. This should only be used when the patient and the subscriber are different. %Library.String 50 PATIENTS_SECONDARY_ID2 FileMan Field Label: 'PATIENT'S SECONDARY ID(3)' FileMan Field Number: '5.13' Enter the patient secondary ID #3. You may enter up to 3 secondary ID's and qualifiers. This should only be used when the patient and the subscriber are different. %Library.String 52 PATIENTS_SECONDARY_ID3 FileMan Field Label: 'PATIENT'S SEC QUALIFIER(1)' FileMan Field Number: '5.08' Enter the patient secondary ID qualifier# 1. The qualifier describes the type of ID number. This should only be used when the patient and the subscriber are different. Up to 3 secondary ID's and qualifiers may be entered, but you cannot use the same qualifier more than once. SY is not a valid qualifier when the payer is Medicare. %Library.EnumString 47 PATIENTS_SEC_QUALIFIER1 FileMan Field Label: 'PATIENT'S SEC QUALIFIER(2)' FileMan Field Number: '5.1' Enter the patient secondary ID qualifier# 2. The qualifier describes the type of ID number. This should only be used when the patient and the subscriber are different. Up to 3 secondary ID's and qualifiers may be entered, but you cannot use the same qualifier more than once. SY is not a valid qualifier when the payer is Medicare. %Library.EnumString 49 PATIENTS_SEC_QUALIFIER2 FileMan Field Label: 'PATIENT'S SEC QUALIFIER(3)' FileMan Field Number: '5.12' Enter the patient secondary ID qualifier# 3. The qualifier describes the type of ID number. This should only be used when the patient and the subscriber are different. Up to 3 secondary ID's and qualifiers may be entered, but you cannot use the same qualifier more than once. SY is not a valid qualifier when the payer is Medicare. %Library.EnumString 51 PATIENTS_SEC_QUALIFIER3 Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBINSURANCETYPE2312 1 1 PATIENT_2 FileMan Field Label: 'PATIENT ID' FileMan Field Number: '5.01' This is the patient's primary ID number for this insurance company. Enter this field when the patient and the subscriber are different and the patient has been given a unique ID number. If issued by this payer, the number should be present on the patient's insurance card. This data will print in box 8a on the UB-04 for institutional claims when the patient and the subscriber are different. %Library.String 40 PATIENT_ID FileMan Field Label: 'PATIENT ID ROLLBACK' FileMan Field Number: '7.04' This field contains the original data from the PATIENT ID (#5.01) field. %Library.String 57 PATIENT_ID_ROLLBACK FileMan Field Label: 'PHARMACY PERSON CODE' FileMan Field Number: '4.06' This is the code that is assigned by the payer to identify the patient. The payer may use a unique person code to identify each specific person on the pharmacy insurance policy. This code may also describe the patient's relationship to the cardholder. Enrollment Standard Examples: 001 = Cardholder 002 = Spouse 003 - 999 = Dependents and Others (including second spouses, etc.) %Library.String 39 PHARMACY_PERSON_CODE FileMan Field Label: 'PRIMARY CARE PROVIDER' FileMan Field Number: '4.01' This is the patient's Primary Care Provider within their managed care network that may refer the patient to the VA. %Library.String 35 PRIMARY_CARE_PROVIDER FileMan Field Label: 'PRIMARY PROVIDER PHONE' FileMan Field Number: '4.02' This is the phone number of the Primary Care Provider that may refer the patient to the VA. %Library.String 36 PRIMARY_PROVIDER_PHONE FileMan Field Label: 'PT. RELATIONSHIP TO INSURED' FileMan Field Number: '16' Select the relationship code that describes the relationship this patient has to the holder of this insurance policy. If the policy belongs to the patient enter '01' for patient. If the policy belongs to the spouse enter '02' for spouse, etc. %Library.EnumString 63 PT__RELATIONSHIP_TO_INSURED FileMan Field Label: 'PT. RELATIONSHIP - HIPAA' FileMan Field Number: '4.03' Enter the code which best describes the patient's relationship to the person who holds this policy (or insured). %Library.EnumString 37 PT__RELATIONSHIP__HIPAA FileMan Field Label: 'REQUESTED SERVICE DATE' FileMan Field Number: '8.01' SERVICE DATE This is the Eligibility/Service Date that is received on the eIV Response message. If it is not present on the Response message then this is the Eligibility Date that was sent on the Inquiry message. %Library.FilemanDate 59 REQUESTED_SERVICE_DATE FileMan Field Label: 'RETIREMENT DATE' FileMan Field Number: '2.12' If this is an Employer Sponsored Group Health Plan then this should be the date the insured retired from the employer that sponsors the plan. %Library.FilemanDate 21 RETIREMENT_DATE FileMan Field Label: 'SEND BILL TO EMPLOYER' FileMan Field Number: '2.01' If the employer of the person who holds this policy requires that they pre-processed for the insurance policy then enter 'YES'. You will then be allowed to enter the company name and address that these bills should be sent to. The bills will then automatically use this address. If the employer does not require this, or unknown, enter 'NO'. The bills will then be sent to the insurance company. If the policy is held by other than the patient then this will not be the patient's employer but the employer of the person who is insured. %Library.EnumString 11 SEND_BILL_TO_EMPLOYER FileMan Field Label: 'STOP POLICY FROM BILLING' FileMan Field Number: '3.04' Determines whether or not claims may be created for the insurance policy. This field is used primarily for CHAMPUS policies. If the patient is covered under CHAMPUS, but it is known that claims should never be submitted to the CHAMPUS Fiscal Intermediary, then entering YES in this field will cause Pharmacy claims to the FI not to be created. %Library.EnumString 25 STOP_POLICY_FROM_BILLING FileMan Field Label: 'SUBSCRIBER'S EMPLOYER NAME' FileMan Field Number: '2.015' This is the name of the employer that will appear on the UB-04 if the bills should be sent to the employer for pre-processing. %Library.String 12 SUBSCRIBERS_EMPLOYER_NAME FileMan Field Label: 'SUBSCRIBER'S SEC ID(1)' FileMan Field Number: '5.03' Enter the subscriber's secondary ID #1. You may enter up to 3 secondary ID's and qualifiers. %Library.String 42 SUBSCRIBERS_SEC_ID1 FileMan Field Label: 'SUBSCRIBER'S SEC ID(2)' FileMan Field Number: '5.05' Enter the subscriber's secondary ID #2. You may enter up to 3 secondary ID's and qualifiers. %Library.String 44 SUBSCRIBERS_SEC_ID2 FileMan Field Label: 'SUBSCRIBER'S SEC ID(3)' FileMan Field Number: '5.07' Enter the subscriber's secondary ID #3. You may enter up to 3 secondary ID's and qualifiers. %Library.String 46 SUBSCRIBERS_SEC_ID3 FileMan Field Label: 'SUBSCRIBER'S SEC QUALIFIER(1)' FileMan Field Number: '5.02' Enter the subscriber secondary ID qualifier# 1. The qualifier describes the type of ID number. Up to 3 secondary ID's and qualifiers may be entered, but you cannot use the same qualifier more than once. SY is not a valid qualifier when the payer is Medicare. %Library.EnumString 41 SUBSCRIBERS_SEC_QUALIFIER1 FileMan Field Label: 'SUBSCRIBER'S SEC QUALIFIER(2)' FileMan Field Number: '5.04' Enter the subscriber secondary ID qualifier# 2. The qualifier describes the type of ID number. Up to 3 secondary ID's and qualifiers may be entered, but you cannot use the same qualifier more than once. SY is not a valid qualifier when the payer is Medicare. %Library.EnumString 43 SUBSCRIBERS_SEC_QUALIFIER2 FileMan Field Label: 'SUBSCRIBER'S SEC QUALIFIER(3)' FileMan Field Number: '5.06' Enter the subscriber secondary ID qualifier# 3. The qualifier describes the type of ID number. Up to 3 secondary ID's and qualifiers may be entered, but you cannot use the same qualifier more than once. SY is not a valid qualifier when the payer is Medicare. %Library.EnumString 45 SUBSCRIBERS_SEC_QUALIFIER3 FileMan Field Label: '*SUBSCRIBER ID' FileMan Field Number: '1' INSURANCE NUMBER Enter the Subscriber's Primary ID number. This number is assigned by the payer and can be found on the subscriber's insurance card. This field is scheduled for deletion in May 2015. %Library.String 4 SUBSCRIBER_ID FileMan Field Label: 'SUBSCRIBER ID' FileMan Field Number: '7.02' Enter the Subscriber's Primary ID number. This number is assigned by the payer and can be found on the subscriber's insurance card. %Library.String 55 SUBSCRIBER_ID0 FileMan Field Label: 'SUBSCRIBER ID ROLLBACK' FileMan Field Number: '7.03' This field is used to store the original data from the SUBSCRIBER ID (#7.02) field. %Library.String 56 SUBSCRIBER_ID_ROLLBACK SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 67 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WHOSE INSURANCE' FileMan Field Number: '6' Enter 'v' if this insurance policy is held by the veteran (applicant), 's' if the veteran is married and the spouse holds the policy, or 'o' if someone other than the veteran or his/her spouse hold the policy, i.e., employer. %Library.EnumString 53 WHOSE_INSURANCE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.312,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{COORDINATION_OF_BENEFITS*C} FDA(2.312,IENS,.2)={COORDINATION_OF_BENEFITS} set:{SUBSCRIBER_ID*C} FDA(2.312,IENS,1)={SUBSCRIBER_ID} set:{DATE_ENTERED*C} FDA(2.312,IENS,1.01)={DATE_ENTERED} set:{DATE_LAST_VERIFIED*C} FDA(2.312,IENS,1.03)={DATE_LAST_VERIFIED} set:{DATE_LAST_EDITED*C} FDA(2.312,IENS,1.05)={DATE_LAST_EDITED} set:{COMMENT__PATIENT_POLICY*C} FDA(2.312,IENS,1.08)={COMMENT__PATIENT_POLICY} set:{DATE_OF_SOURCE_OF_INFORMATION*C} FDA(2.312,IENS,1.1)={DATE_OF_SOURCE_OF_INFORMATION} set:{GROUP_NUMBER*C} FDA(2.312,IENS,2)={GROUP_NUMBER} set:{SEND_BILL_TO_EMPLOYER*C} FDA(2.312,IENS,2.01)={SEND_BILL_TO_EMPLOYER} set:{SUBSCRIBERS_EMPLOYER_NAME*C} FDA(2.312,IENS,2.015)={SUBSCRIBERS_EMPLOYER_NAME} set:{EMPLOYER_CLAIMS_STREET_ADDRESS*C} FDA(2.312,IENS,2.02)={EMPLOYER_CLAIMS_STREET_ADDRESS} set:{EMPLOY_CLAIM_ST_ADDRESS_LINE_2*C} FDA(2.312,IENS,2.03)={EMPLOY_CLAIM_ST_ADDRESS_LINE_2} set:{EMPLOY_CLAIM_ST_ADDRESS_LINE_3*C} FDA(2.312,IENS,2.04)={EMPLOY_CLAIM_ST_ADDRESS_LINE_3} set:{EMPLOYER_CLAIMS_CITY*C} FDA(2.312,IENS,2.05)={EMPLOYER_CLAIMS_CITY} set:{EMPLOYER_CLAIMS_ZIP_CODE*C} FDA(2.312,IENS,2.07)={EMPLOYER_CLAIMS_ZIP_CODE} set:{EMPLOYER_CLAIMS_PHONE*C} FDA(2.312,IENS,2.08)={EMPLOYER_CLAIMS_PHONE} set:{ESGHP*C} FDA(2.312,IENS,2.1)={ESGHP} set:{EMPLOYMENT_STATUS*C} FDA(2.312,IENS,2.11)={EMPLOYMENT_STATUS} set:{RETIREMENT_DATE*C} FDA(2.312,IENS,2.12)={RETIREMENT_DATE} set:{INSURANCE_EXPIRATION_DATE*C} FDA(2.312,IENS,3)={INSURANCE_EXPIRATION_DATE} set:{INSUREDS_DOB*C} FDA(2.312,IENS,3.01)={INSUREDS_DOB} set:{INSUREDS_RANK*C} FDA(2.312,IENS,3.03)={INSUREDS_RANK} set:{STOP_POLICY_FROM_BILLING*C} FDA(2.312,IENS,3.04)={STOP_POLICY_FROM_BILLING} set:{INSUREDS_SSN*C} FDA(2.312,IENS,3.05)={INSUREDS_SSN} set:{INSUREDS_STREET_1*C} FDA(2.312,IENS,3.06)={INSUREDS_STREET_1} set:{INSUREDS_STREET_2*C} FDA(2.312,IENS,3.07)={INSUREDS_STREET_2} set:{INSUREDS_CITY*C} FDA(2.312,IENS,3.08)={INSUREDS_CITY} set:{INSUREDS_ZIP*C} FDA(2.312,IENS,3.1)={INSUREDS_ZIP} set:{INSUREDS_PHONE*C} FDA(2.312,IENS,3.11)={INSUREDS_PHONE} set:{INSUREDS_SEX*C} FDA(2.312,IENS,3.12)={INSUREDS_SEX} set:{INSUREDS_COUNTRY*C} FDA(2.312,IENS,3.13)={INSUREDS_COUNTRY} set:{INSUREDS_COUNTRY_SUBDIVISION*C} FDA(2.312,IENS,3.14)={INSUREDS_COUNTRY_SUBDIVISION} set:{PRIMARY_CARE_PROVIDER*C} FDA(2.312,IENS,4.01)={PRIMARY_CARE_PROVIDER} set:{PRIMARY_PROVIDER_PHONE*C} FDA(2.312,IENS,4.02)={PRIMARY_PROVIDER_PHONE} set:{PT__RELATIONSHIP__HIPAA*C} FDA(2.312,IENS,4.03)={PT__RELATIONSHIP__HIPAA} set:{EIV_AUTOUPDATE*C} FDA(2.312,IENS,4.04)={EIV_AUTOUPDATE} set:{PHARMACY_PERSON_CODE*C} FDA(2.312,IENS,4.06)={PHARMACY_PERSON_CODE} set:{PATIENT_ID*C} FDA(2.312,IENS,5.01)={PATIENT_ID} set:{SUBSCRIBERS_SEC_QUALIFIER1*C} FDA(2.312,IENS,5.02)={SUBSCRIBERS_SEC_QUALIFIER1} set:{SUBSCRIBERS_SEC_ID1*C} FDA(2.312,IENS,5.03)={SUBSCRIBERS_SEC_ID1} set:{SUBSCRIBERS_SEC_QUALIFIER2*C} FDA(2.312,IENS,5.04)={SUBSCRIBERS_SEC_QUALIFIER2} set:{SUBSCRIBERS_SEC_ID2*C} FDA(2.312,IENS,5.05)={SUBSCRIBERS_SEC_ID2} set:{SUBSCRIBERS_SEC_QUALIFIER3*C} FDA(2.312,IENS,5.06)={SUBSCRIBERS_SEC_QUALIFIER3} set:{SUBSCRIBERS_SEC_ID3*C} FDA(2.312,IENS,5.07)={SUBSCRIBERS_SEC_ID3} set:{PATIENTS_SEC_QUALIFIER1*C} FDA(2.312,IENS,5.08)={PATIENTS_SEC_QUALIFIER1} set:{PATIENTS_SECONDARY_ID1*C} FDA(2.312,IENS,5.09)={PATIENTS_SECONDARY_ID1} set:{PATIENTS_SEC_QUALIFIER2*C} FDA(2.312,IENS,5.1)={PATIENTS_SEC_QUALIFIER2} set:{PATIENTS_SECONDARY_ID2*C} FDA(2.312,IENS,5.11)={PATIENTS_SECONDARY_ID2} set:{PATIENTS_SEC_QUALIFIER3*C} FDA(2.312,IENS,5.12)={PATIENTS_SEC_QUALIFIER3} set:{PATIENTS_SECONDARY_ID3*C} FDA(2.312,IENS,5.13)={PATIENTS_SECONDARY_ID3} set:{WHOSE_INSURANCE*C} FDA(2.312,IENS,6)={WHOSE_INSURANCE} set:{NAME_OF_INSURED*C} FDA(2.312,IENS,7.01)={NAME_OF_INSURED} set:{SUBSCRIBER_ID0*C} FDA(2.312,IENS,7.02)={SUBSCRIBER_ID0} set:{SUBSCRIBER_ID_ROLLBACK*C} FDA(2.312,IENS,7.03)={SUBSCRIBER_ID_ROLLBACK} set:{PATIENT_ID_ROLLBACK*C} FDA(2.312,IENS,7.04)={PATIENT_ID_ROLLBACK} set:{EFFECTIVE_DATE_OF_POLICY*C} FDA(2.312,IENS,8)={EFFECTIVE_DATE_OF_POLICY} set:{REQUESTED_SERVICE_DATE*C} FDA(2.312,IENS,8.01)={REQUESTED_SERVICE_DATE} set:{MILITARY_PERSONNEL_DESCRIPTION*C} FDA(2.312,IENS,12.04)={MILITARY_PERSONNEL_DESCRIPTION} set:{DATE_TIME_PERIOD*C} FDA(2.312,IENS,12.07)={DATE_TIME_PERIOD} set:{GROUP_NAME*C} FDA(2.312,IENS,15)={GROUP_NAME} set:{PT__RELATIONSHIP_TO_INSURED*C} FDA(2.312,IENS,16)={PT__RELATIONSHIP_TO_INSURED} set:{NAME_OF_INSURED0*C} FDA(2.312,IENS,17)={NAME_OF_INSURED0} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.312)") set %SkipFiling=1 if $d(%FMERR(2.312,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.312,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINSURANC91F5S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .312 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 1 8 "^" 0 20 "^" 1 1 "^" 1 5 "^" 1 3 "^" 1 10 "^" 12 7 "^" 0 8 "^" 4 4 "^" 2 5 "^" 2 8 "^" 2 2 "^" 2 7 "^" 2 11 "^" 2 3 "^" 2 4 "^" 2 10 "^" 0 15 "^" 0 3 "^" 0 4 "^" 3 8 "^" 3 13 "^" 3 14 "^" 3 1 "^" 3 11 "^" 3 3 "^" 3 12 "^" 3 5 "^" 3 6 "^" 3 7 "^" 3 10 "^" 12 4 "^" 7 1 "^" 0 17 "^" 5 9 "^" 5 11 "^" 5 13 "^" 5 8 "^" 5 10 "^" 5 12 "^" 5 1 "^" 7 4 "^" 4 6 "^" 4 1 "^" 4 2 "^" 0 16 "^" 4 3 "^" 8 1 "^" 2 12 "^" 2 1 "^" 3 4 "^" 2 9 "^" 5 3 "^" 5 5 "^" 5 7 "^" 5 2 "^" 5 4 "^" 5 6 "^" 0 2 "^" 7 2 "^" 7 3 "^" 0 6 Generated class for FileMan Sub-File/Multiple Number: '700.021' Sub-File/Multiple Name: 'INTERPRETATION BY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INTERPRETATION_BY_700_021 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.531972749 67178,44724.563215956 right INTERPRETATION BY 700.021 2.56 12/04/2024 12:25:24 1 1 IEN 1 NEW_PERSON_200]]> INTERPRETATIONBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INTERPRETATION_BY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTERPRETATION BY' FileMan Field Number: '.01' This field identifies the provider who interpreted the PFT VALIP.prosthetic.fm2cw.NEWPERSON200 1 3 INTERPRETATION_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_INTERPRETATION_BY_700_021 where %ID=:id) set {INTERPRETATION_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INTERPRETATION_BY_NAME 1 Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBINTERPRETATIONBY700021 1 1 PULMONARY_FUNCTION_TESTS_700 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",7,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INTERPRETATION_BY*C} FDA(700.021,IENS,.01)={INTERPRETATION_BY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.021)") set %SkipFiling=1 if $d(%FMERR(700.021,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.021,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINTERPRE2E13S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 7 "B" {INTERPRETATION_BY} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 7 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.55' Sub-File/Multiple Name: 'INTERPRETATION CODE (CONFIG)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INTERPRETATION_CODE_CONFIG_691_55 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.55430094 67178,44724.605666145 right INTERPRETATION CODE (CONFIG) 691.55 2.56 12/04/2024 12:25:24 1 1 IEN 1 ECG_INTERPRETATION_693_3]]> INTERPRETATIONCODECONFIG VALIP.prosthetic.fm2cw.ECGINTERPRETATION6933 FKey_INTERPRETATION_CODE_CONFIG FileMan Field Label: 'CODE MODIFIER' FileMan Field Number: '1' This allows the user to describe the type of interpretation code (config). %Library.EnumString 4 CODE_MODIFIER Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBINTERPRETATIONCODECONFIG69155 1 1 ELECTROCARDIOGRAM_EKG_691_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTERPRETATION CODE (CONFIG)' FileMan Field Number: '.01' This allows the user to enter multiple config interpretation codes. VALIP.prosthetic.fm2cw.ECGINTERPRETATION6933 1 3 INTERPRETATION_CODE_CONFIG INTERPRETATION This field contains the various types of interpretations for EKG's and rhythms for Atrial and Ventricular Studies. of interpretation.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_INTERPRETATION_CODE_CONFIG_691_55 where %ID=:id) set {INTERPRETATION_CODE_CONFIG_INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 INTERPRETATION_CODE_CONFIG_INTERPRETATION 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INTERPRETATION_CODE_CONFIG*C} FDA(691.55,IENS,.01)={INTERPRETATION_CODE_CONFIG} set:{CODE_MODIFIER*C} FDA(691.55,IENS,1)={CODE_MODIFIER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.55)") set %SkipFiling=1 if $d(%FMERR(691.55,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.55,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINTERPREE471S index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> 5 "B" {INTERPRETATION_CODE_CONFIG} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.56' Sub-File/Multiple Name: 'INTERPRETATION CODE (PACING)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INTERPRETATION_CODE_PACING_691_56 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.548547259 67178,44724.64906411 right INTERPRETATION CODE (PACING) 691.56 2.56 12/04/2024 12:25:24 1 1 IEN 1 ECG_INTERPRETATION_693_3]]> INTERPRETATIONCODEPACING VALIP.prosthetic.fm2cw.ECGINTERPRETATION6933 FKey_INTERPRETATION_CODE_PACING FileMan Field Label: 'CODE MODIFIER' FileMan Field Number: '1' This allows the user to describe the type of interpretation code (pacing). %Library.EnumString 4 CODE_MODIFIER Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBINTERPRETATIONCODEPACING69156 1 1 ELECTROCARDIOGRAM_EKG_691_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTERPRETATION CODE (PACING)' FileMan Field Number: '.01' This allows the user to enter multiple pacing interpretation codes. VALIP.prosthetic.fm2cw.ECGINTERPRETATION6933 1 3 INTERPRETATION_CODE_PACING INTERPRETATION This field contains the various types of interpretations for EKG's and rhythms for Atrial and Ventricular Studies. of interpretation.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_INTERPRETATION_CODE_PACING_691_56 where %ID=:id) set {INTERPRETATION_CODE_PACING_INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 INTERPRETATION_CODE_PACING_INTERPRETATION 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INTERPRETATION_CODE_PACING*C} FDA(691.56,IENS,.01)={INTERPRETATION_CODE_PACING} set:{CODE_MODIFIER*C} FDA(691.56,IENS,1)={CODE_MODIFIER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.56)") set %SkipFiling=1 if $d(%FMERR(691.56,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.56,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINTERPRE8465S index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> 6 "B" {INTERPRETATION_CODE_PACING} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.54' Sub-File/Multiple Name: 'INTERPRETATION CODE (RHYTHM)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INTERPRETATION_CODE_RHYTHM_691_54 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.560552871 67178,44724.691565222 right INTERPRETATION CODE (RHYTHM) 691.54 2.56 12/04/2024 12:25:24 1 1 IEN 1 ECG_INTERPRETATION_693_3]]> INTERPRETATIONCODERHYTHM VALIP.prosthetic.fm2cw.ECGINTERPRETATION6933 FKey_INTERPRETATION_CODE_RHYTHM FileMan Field Label: 'CODE MODIFIER' FileMan Field Number: '1' This allows the user to describe the interpretation code (rhythm). %Library.EnumString 4 CODE_MODIFIER Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBINTERPRETATIONCODERHYTHM69154 1 1 ELECTROCARDIOGRAM_EKG_691_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTERPRETATION CODE (RHYTHM)' FileMan Field Number: '.01' This allows the user to enter multiple rhythm interpretation codes. VALIP.prosthetic.fm2cw.ECGINTERPRETATION6933 1 3 INTERPRETATION_CODE_RHYTHM INTERPRETATION This field contains the various types of interpretations for EKG's and rhythms for Atrial and Ventricular Studies. of interpretation.]]> %Library.String 1 INTERPRETATION into :val from VALIP_prosthetic_fm2cw.SUB_INTERPRETATION_CODE_RHYTHM_691_54 where %ID=:id) set {INTERPRETATION_CODE_RHYTHM_INTERPRETATION}=$select(SQLCODE=0:val,1:"")]]> 1 INTERPRETATION_CODE_RHYTHM_INTERPRETATION 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INTERPRETATION_CODE_RHYTHM*C} FDA(691.54,IENS,.01)={INTERPRETATION_CODE_RHYTHM} set:{CODE_MODIFIER*C} FDA(691.54,IENS,1)={CODE_MODIFIER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.54)") set %SkipFiling=1 if $d(%FMERR(691.54,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.54,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINTERPRE8D2AS index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> 3 "B" {INTERPRETATION_CODE_RHYTHM} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.26' Sub-File/Multiple Name: 'INTERVENTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INTERVENTION_691_26 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.608704663 67178,44724.734069916 right INTERVENTION 691.26 2.56 12/04/2024 12:25:24 1 1 IEN 1 FileMan Field Label: 'AORTIC DIASTOLIC' FileMan Field Number: '28' This allows the user to enter the aortic diastolic pressure. %Library.Numeric 32 AORTIC_DIASTOLIC FileMan Field Label: 'AORTIC MEAN PRESSURE' FileMan Field Number: '29' This allows the user to enter the aortic mean pressure measured in millimeters or mercury. %Library.Numeric 33 AORTIC_MEAN_PRESSURE FileMan Field Label: 'AORTIC SATURATION' FileMan Field Number: '30' This allows the user to enter the amount of oxygen found in the aortic blood sample. %Library.Numeric 34 AORTIC_SATURATION FileMan Field Label: 'AORTIC SYSTOLIC' FileMan Field Number: '27' This allows the user to enter the aortic systolic pressure. %Library.Numeric 31 AORTIC_SYSTOLIC FileMan Field Label: 'A V AREA, CM2' FileMan Field Number: '45' This allows the user to enter the aortic valve area, entered in centimeters squared. %Library.Numeric 48 A_V_AREA_CM2 FileMan Field Label: 'A V INDEX, CM2/M2' FileMan Field Number: '46' The aortic valve index is calculated from the aortic valve area and the body surface area. %Library.Numeric 1 49 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691.26,46,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,46,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"") S X=$P(Y(691.26,46,1),U,19),X=$S($P(Y(691.26,46,2),U,9):X/$P(Y(691.26,46,2),U,9),1:"*******") S X=$J(X,0,2) set {A_V_INDEX_CM2M2}=X 1 A_V_INDEX_CM2M2 FileMan Field Label: 'A V MEAN GRADIENT' FileMan Field Number: '48' This allows the user to enter the aortic valve mean gradient. %Library.Numeric 51 A_V_MEAN_GRADIENT FileMan Field Label: 'A V PEAK GRADIENT' FileMan Field Number: '47' This allows the user to enter the aortic valve peak gradient. %Library.Numeric 50 A_V_PEAK_GRADIENT Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBINTERVENTION69126 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'C I, ASS FICK L/MIN/M2' FileMan Field Number: '36' This cardiac index is computed from the cardiac output, assuming fick is a method of performing cardiac output. %Library.Numeric 1 40 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691.26,36,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,36,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"") S X=$P(Y(691.26,36,1),U,9),X=$S($P(Y(691.26,36,2),U,9):X/$P(Y(691.26,36,2),U,9),1:"*******") S X=$J(X,0,2) set {C_I_ASS_FICK_LMINM2}=X 1 C_I_ASS_FICK_LMINM2 FileMan Field Label: 'C I, INDO GREEN, L/MIN/M2' FileMan Field Number: '39' This field identifies computed from the cardiac output, assuming indo green is a method of measuring cardiac output. %Library.Numeric 1 42 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691.26,39,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,39,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"") S X=$P(Y(691.26,39,1),U,12),X=$S($P(Y(691.26,39,2),U,9):X/$P(Y(691.26,39,2),U,9),1:"*******") S X=$J(X,0,2) set {C_I_INDO_GREEN_LMINM2}=X 1 C_I_INDO_GREEN_LMINM2 FileMan Field Label: 'C I, THERMO, L/MIN/M2' FileMan Field Number: '41' This field identifies computed from the cardiac output, assuming thermo is a method of measuring cardiac output. %Library.Numeric 1 44 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(691.26,41,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,41,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"") S X=$P(Y(691.26,41,1),U,14),X=$S($P(Y(691.26,41,2),U,9):X/$P(Y(691.26,41,2),U,9),1:"*******") S X=$J(X,0,2) set {C_I_THERMO_LMINM2}=X 1 C_I_THERMO_LMINM2 FileMan Field Label: 'C O, ASSUMED FICK, L/MIN' FileMan Field Number: '35' This allows the user to enter cardiac output, assuming fick is a method of performing cardiac output. %Library.Numeric 39 C_O_ASSUMED_FICK_LMIN FileMan Field Label: 'C O, INDO GREEN, L/MIN' FileMan Field Number: '38' This allows the user to enter cardiac output, assuming indo green is a method of measuring cardiac output. %Library.Numeric 41 C_O_INDO_GREEN_LMIN FileMan Field Label: 'C O, THERMO, L/MIN' FileMan Field Number: '40' This allows the user to enter cardiac output, assuming thermo is a method of measuring cardiac output. %Library.Numeric 43 C_O_THERMO_LMIN Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTERVENTION' FileMan Field Number: '.01' This allows the user to enter multiple cardiac catheterization interventions. %Library.EnumString 1 3 INTERVENTION FileMan Field Label: 'IVC MEAN PRESSURE' FileMan Field Number: '33' This allows the user to enter the inferior vena cava mean pressure. %Library.Numeric 37 IVC_MEAN_PRESSURE FileMan Field Label: 'IVC SATURATION' FileMan Field Number: '34' This allows the user to enter the amount of oxygen found in the inferior vena cava blood sample. %Library.Numeric 38 IVC_SATURATION FileMan Field Label: 'LA A WAVE' FileMan Field Number: '15' This allows the user to enter the left atrial A wave pressure. %Library.Numeric 19 LA_A_WAVE FileMan Field Label: 'LA MEAN PRESSURE' FileMan Field Number: '17' This allows the user to enter the left atrial mean pressure. %Library.Numeric 21 LA_MEAN_PRESSURE FileMan Field Label: 'LA SATURATION' FileMan Field Number: '18' This allows the user to enter the amount of oxygen found in the left atrial blood sample. %Library.Numeric 22 LA_SATURATION FileMan Field Label: 'LA V WAVE' FileMan Field Number: '16' This allows the user to enter the left atrial V wave pressure. %Library.Numeric 20 LA_V_WAVE FileMan Field Label: 'L-R SHUNT' FileMan Field Number: '52' This allows the user to enter the L-R shunt, which refers to the abnormal flow where the interventricular septum or atrial septum is involved. These entries are in millimeters of mercury. %Library.Numeric 55 LR_SHUNT FileMan Field Label: 'LV END DIASTOLIC (Z)' FileMan Field Number: '20' This allows the user to enter the left ventricular end diastolic post contrast. %Library.Numeric 24 LV_END_DIASTOLIC_Z FileMan Field Label: 'LV END DIAST (Z) POST CONTRAST' FileMan Field Number: '25' This allows the user to enter the left ventricular end diastolic post contrast. %Library.Numeric 29 LV_END_DIAST_Z_POST_CONTRAST FileMan Field Label: 'LV PRE A' FileMan Field Number: '19' This allows the user to enter the left ventricular pre-wave A pressure. %Library.Numeric 23 LV_PRE_A FileMan Field Label: 'LV PRE A POST CONTRAST' FileMan Field Number: '24' This allows the user to enter the left ventricular pre-A wave post contrast. %Library.Numeric 28 LV_PRE_A_POST_CONTRAST FileMan Field Label: 'LV SATURATION' FileMan Field Number: '22' This allows the user to enter the amount of oxygen found in the left ventricular blood sample. %Library.Numeric 26 LV_SATURATION FileMan Field Label: 'LV SATURATION POST CONTRAST' FileMan Field Number: '26' This allows the user to enter the amount of oxygen found in the left ventricular post contrast blood sample. %Library.Numeric 30 LV_SATURATION_POST_CONTRAST FileMan Field Label: 'LV SYSTOLIC' FileMan Field Number: '21' This allows the user to enter the left ventricular systolic post contrast pressure. %Library.Numeric 25 LV_SYSTOLIC FileMan Field Label: 'LV SYSTOLIC POST CONTRAST' FileMan Field Number: '23' This allows the user to enter the left ventricular systolic post contrast pressure. %Library.Numeric 27 LV_SYSTOLIC_POST_CONTRAST FileMan Field Label: 'M V AREA, CM2' FileMan Field Number: '42' This allows the user to enter the mitral valve area, entered in centimeters squared. %Library.Numeric 45 M_V_AREA_CM2 FileMan Field Label: 'M V MEAN GRADIENT' FileMan Field Number: '44' This allows the user to enter the mitral valve mean gradient. %Library.Numeric 47 M_V_MEAN_GRADIENT FileMan Field Label: 'M V PEAK GRADIENT' FileMan Field Number: '43' This allows the user to enter the mitral valve peak gradient. %Library.Numeric 46 M_V_PEAK_GRADIENT FileMan Field Label: 'OTHER INTERVENTION COMMENT' FileMan Field Number: '.5' This allows the user to enter comments about cardiac catheteriztion interventions used. %Library.String 4 OTHER_INTERVENTION_COMMENT FileMan Field Label: 'PA DIASTOLIC' FileMan Field Number: '9' This allows the user to enter the pulmonary artery diastolic pressure. %Library.Numeric 13 PA_DIASTOLIC FileMan Field Label: 'PA MEAN' FileMan Field Number: '10' This allows the user to enter the pulmonary artery mean pressure in millimeters of mercury. %Library.Numeric 14 PA_MEAN FileMan Field Label: 'PA SATURATION' FileMan Field Number: '11' This allows the user to enter the amount of oxygen found in the pulmonary artery blood sample. %Library.Numeric 15 PA_SATURATION FileMan Field Label: 'PA SYSTOLIC' FileMan Field Number: '8' This allows the user to enter the pulmonary artery systolic pressure. %Library.Numeric 12 PA_SYSTOLIC FileMan Field Label: 'PCW A WAVE' FileMan Field Number: '12' This allows the user to enter the pulmonary capillary A wave pressure. %Library.Numeric 16 PCW_A_WAVE FileMan Field Label: 'PCW MEAN' FileMan Field Number: '14' This allows the user to enter the pulmonary capillary mean pressure. %Library.Numeric 18 PCW_MEAN FileMan Field Label: 'PCW V WAVE' FileMan Field Number: '13' This allows the user to enter the pulmonary capillary V wave pressure. %Library.Numeric 17 PCW_V_WAVE FileMan Field Label: 'P/S RATIO' FileMan Field Number: '51' This field identifies to the pulmonary flow/systemic flow ratio. %Library.Numeric 54 PS_RATIO FileMan Field Label: 'PULMONARY FLOW' FileMan Field Number: '50' This allows the user to enter the pulmonary flow, the blood flow on the right side of the cardiac system. %Library.Numeric 53 PULMONARY_FLOW FileMan Field Label: 'PULM RESIST' FileMan Field Number: '54' This field shows the Pulmonary Resistance. %Library.Numeric 57 PULM_RESIST FileMan Field Label: 'RA A WAVE' FileMan Field Number: '1' This allows the user to enter the right atrial A wave pressure. %Library.Numeric 5 RA_A_WAVE FileMan Field Label: 'RA MEAN PRESSURE' FileMan Field Number: '3' This field identifies the right atrial mean pressure measured in millimeters of mercury. %Library.Numeric 7 RA_MEAN_PRESSURE FileMan Field Label: 'RA SATURATION' FileMan Field Number: '4' This allows the user to enter the amount of oxygen in the right atrial blood sample. %Library.Numeric 8 RA_SATURATION FileMan Field Label: 'RA V WAVE' FileMan Field Number: '2' This allows the user to enter the right atrial V wave pressure. %Library.Numeric 6 RA_V_WAVE FileMan Field Label: 'R-L SHUNT' FileMan Field Number: '53' This allows the user to enter the R-L shunt, which refers to the abnormal flow where the interventricular septum or atrial septum is involved. These entries are in millimeters of mercury. %Library.Numeric 56 RL_SHUNT FileMan Field Label: 'RV DIASTOLIC' FileMan Field Number: '6' This allows the user to enter the right ventrical diastolic pressure. %Library.Numeric 10 RV_DIASTOLIC FileMan Field Label: 'RV SATURATION' FileMan Field Number: '7' This allows the user to enter the amount of oxygen in the right ventricular blood sample. %Library.Numeric 11 RV_SATURATION FileMan Field Label: 'RV SYSTOLIC' FileMan Field Number: '5' This allows the user to enter the right ventrical systolic pressure. %Library.Numeric 9 RV_SYSTOLIC FileMan Field Label: 'SVC PRESSURE' FileMan Field Number: '31' This allows the user to enter the superior vena cava pressure. %Library.Numeric 35 SVC_PRESSURE FileMan Field Label: 'SVC SATURATION' FileMan Field Number: '32' This allows the user to enter the amount of oxygen found in the superior vena cava blood sample. %Library.Numeric 36 SVC_SATURATION FileMan Field Label: 'SYSTEMIC FLOW' FileMan Field Number: '49' This allows the user to enter the systemic flow, the blood flow on the left side of the cardiac system. %Library.Numeric 52 SYSTEMIC_FLOW FileMan Field Label: 'SYSTEMIC RESIST' FileMan Field Number: '55' This field shows the Systemic Resistance. %Library.Numeric 58 SYSTEMIC_RESIST SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 59 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",19,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INTERVENTION*C} FDA(691.26,IENS,.01)={INTERVENTION} set:{RA_A_WAVE*C} FDA(691.26,IENS,1)={RA_A_WAVE} set:{RA_V_WAVE*C} FDA(691.26,IENS,2)={RA_V_WAVE} set:{RA_MEAN_PRESSURE*C} FDA(691.26,IENS,3)={RA_MEAN_PRESSURE} set:{RA_SATURATION*C} FDA(691.26,IENS,4)={RA_SATURATION} set:{RV_SYSTOLIC*C} FDA(691.26,IENS,5)={RV_SYSTOLIC} set:{RV_DIASTOLIC*C} FDA(691.26,IENS,6)={RV_DIASTOLIC} set:{RV_SATURATION*C} FDA(691.26,IENS,7)={RV_SATURATION} set:{PA_SYSTOLIC*C} FDA(691.26,IENS,8)={PA_SYSTOLIC} set:{PA_DIASTOLIC*C} FDA(691.26,IENS,9)={PA_DIASTOLIC} set:{PA_MEAN*C} FDA(691.26,IENS,10)={PA_MEAN} set:{PA_SATURATION*C} FDA(691.26,IENS,11)={PA_SATURATION} set:{PCW_A_WAVE*C} FDA(691.26,IENS,12)={PCW_A_WAVE} set:{PCW_V_WAVE*C} FDA(691.26,IENS,13)={PCW_V_WAVE} set:{PCW_MEAN*C} FDA(691.26,IENS,14)={PCW_MEAN} set:{LA_A_WAVE*C} FDA(691.26,IENS,15)={LA_A_WAVE} set:{LA_V_WAVE*C} FDA(691.26,IENS,16)={LA_V_WAVE} set:{LA_MEAN_PRESSURE*C} FDA(691.26,IENS,17)={LA_MEAN_PRESSURE} set:{LA_SATURATION*C} FDA(691.26,IENS,18)={LA_SATURATION} set:{LV_PRE_A*C} FDA(691.26,IENS,19)={LV_PRE_A} set:{LV_END_DIASTOLIC_Z*C} FDA(691.26,IENS,20)={LV_END_DIASTOLIC_Z} set:{LV_SYSTOLIC*C} FDA(691.26,IENS,21)={LV_SYSTOLIC} set:{LV_SATURATION*C} FDA(691.26,IENS,22)={LV_SATURATION} set:{LV_SYSTOLIC_POST_CONTRAST*C} FDA(691.26,IENS,23)={LV_SYSTOLIC_POST_CONTRAST} set:{LV_PRE_A_POST_CONTRAST*C} FDA(691.26,IENS,24)={LV_PRE_A_POST_CONTRAST} set:{LV_END_DIAST_Z_POST_CONTRAST*C} FDA(691.26,IENS,25)={LV_END_DIAST_Z_POST_CONTRAST} set:{LV_SATURATION_POST_CONTRAST*C} FDA(691.26,IENS,26)={LV_SATURATION_POST_CONTRAST} set:{AORTIC_SYSTOLIC*C} FDA(691.26,IENS,27)={AORTIC_SYSTOLIC} set:{AORTIC_DIASTOLIC*C} FDA(691.26,IENS,28)={AORTIC_DIASTOLIC} set:{AORTIC_MEAN_PRESSURE*C} FDA(691.26,IENS,29)={AORTIC_MEAN_PRESSURE} set:{AORTIC_SATURATION*C} FDA(691.26,IENS,30)={AORTIC_SATURATION} set:{SVC_PRESSURE*C} FDA(691.26,IENS,31)={SVC_PRESSURE} set:{SVC_SATURATION*C} FDA(691.26,IENS,32)={SVC_SATURATION} set:{IVC_MEAN_PRESSURE*C} FDA(691.26,IENS,33)={IVC_MEAN_PRESSURE} set:{IVC_SATURATION*C} FDA(691.26,IENS,34)={IVC_SATURATION} set:{C_O_ASSUMED_FICK_LMIN*C} FDA(691.26,IENS,35)={C_O_ASSUMED_FICK_LMIN} set:{C_O_INDO_GREEN_LMIN*C} FDA(691.26,IENS,38)={C_O_INDO_GREEN_LMIN} set:{C_O_THERMO_LMIN*C} FDA(691.26,IENS,40)={C_O_THERMO_LMIN} set:{M_V_AREA_CM2*C} FDA(691.26,IENS,42)={M_V_AREA_CM2} set:{M_V_PEAK_GRADIENT*C} FDA(691.26,IENS,43)={M_V_PEAK_GRADIENT} set:{M_V_MEAN_GRADIENT*C} FDA(691.26,IENS,44)={M_V_MEAN_GRADIENT} set:{A_V_AREA_CM2*C} FDA(691.26,IENS,45)={A_V_AREA_CM2} set:{A_V_PEAK_GRADIENT*C} FDA(691.26,IENS,47)={A_V_PEAK_GRADIENT} set:{A_V_MEAN_GRADIENT*C} FDA(691.26,IENS,48)={A_V_MEAN_GRADIENT} set:{SYSTEMIC_FLOW*C} FDA(691.26,IENS,49)={SYSTEMIC_FLOW} set:{PULMONARY_FLOW*C} FDA(691.26,IENS,50)={PULMONARY_FLOW} set:{PS_RATIO*C} FDA(691.26,IENS,51)={PS_RATIO} set:{LR_SHUNT*C} FDA(691.26,IENS,52)={LR_SHUNT} set:{RL_SHUNT*C} FDA(691.26,IENS,53)={RL_SHUNT} set:{PULM_RESIST*C} FDA(691.26,IENS,54)={PULM_RESIST} set:{SYSTEMIC_RESIST*C} FDA(691.26,IENS,55)={SYSTEMIC_RESIST} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.26)") set %SkipFiling=1 if $d(%FMERR(691.26,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.26,""DIERR"") for details" RETURN } if {OTHER_INTERVENTION_COMMENT*C} { set D0={RowId} kill wp if {OTHER_INTERVENTION_COMMENT}'="" { set wproot="wp" for i=1:1:$l({OTHER_INTERVENTION_COMMENT},$c(13,10)) { set wp(i)=$p({OTHER_INTERVENTION_COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(691.26,{IENS},.5,,wproot,"%FMERR(691.26)") if $d(%FMERR(691.26,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(691.26)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINTERVENTFF0S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 19 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 1 2 "^" 1 3 "^" 1 4 "^" 1 1 "^" 1 19 "^" 1 22 "^" 1 21 "^" 1 9 "^" 1 12 "^" 1 14 "^" 0 1 "^" 1 7 "^" 1 8 "^" 0 16 "^" 0 18 "^" 0 19 "^" 0 17 "^" 1 26 "^" 0 21 "^" 0 26 "^" 0 20 "^" 0 25 "^" 0 23 "^" 0 27 "^" 0 22 "^" 0 24 "^" 1 16 "^" 1 18 "^" 1 17 2 new data,i,node set {OTHER_INTERVENTION_COMMENT}="" merge data=^MCAR(691.1,{S2},19,{S4},2) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_INTERVENTION_COMMENT}={OTHER_INTERVENTION_COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 10 "^" 0 11 "^" 0 12 "^" 0 9 "^" 0 13 "^" 0 15 "^" 0 14 "^" 1 25 "^" 1 24 "^" 1 28 "^" 0 2 "^" 0 4 "^" 0 5 "^" 0 3 "^" 1 27 "^" 0 7 "^" 0 8 "^" 0 6 "^" 1 5 "^" 1 6 "^" 1 23 "^" 1 29 Generated class for FileMan Sub-File/Multiple Number: '130.13' Sub-File/Multiple Name: 'INTRAOPERATIVE OCCURRENCES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INTRAOPERATIVE_OCCURRENCES_130_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.584924045 67178,44724.792204589 right INTRAOPERATIVE OCCURRENCES 130.13 2.56 12/04/2024 12:25:24 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTRAOPERATIVE OCCURRENCES' FileMan Field Number: '.01' Intraoperative Occurrences This is the name of the intraoperative occurrence. If no occurrences exist, this field should be left blank. Do not enter 'NONE'. It will not be accepted. %Library.String 1 3 INTRAOPERATIVE_OCCURRENCES FileMan Field Label: 'INTRAOP DEVICE TYPE' FileMan Field Number: '5' Intraop Device Type VASQIP Definition (2015): Indicate the patient left the operating room suite with a new IABP, VAD, TAH, ECMO, or MULTIPLE DEVICES for circulatory support that were placed during this operation. 1. IABP 2. VAD 3. TAH 4. ECMO 5. MULTIPLE DEVICES %Library.EnumString 7 INTRAOP_DEVICE_TYPE FileMan Field Label: 'OCCURRENCE COMMENTS' FileMan Field Number: '1' Occurrence Comments These are comments related to this intraoperative occurrence. %Library.String 5 OCCURRENCE_COMMENTS FileMan Field Label: 'OUTCOME TO DATE' FileMan Field Number: '.05' Outcome to Date This is the code corresponding to the outcome of this intraoperative occurrence. %Library.EnumString 4 OUTCOME_TO_DATE Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBINTRAOPERATIVEOCCURRENCES13013 1 1 SURGERY_130 FileMan Field Label: 'TREATMENT INSTITUTED' FileMan Field Number: '2' Type of Treatment Instituted This is descriptive information related to the type of treatment instituted as a result of this occurrence. %Library.String 6 TREATMENT_INSTITUTED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INTRAOPERATIVE_OCCURRENCES*C} FDA(130.13,IENS,.01)={INTRAOPERATIVE_OCCURRENCES} set:{OUTCOME_TO_DATE*C} FDA(130.13,IENS,.05)={OUTCOME_TO_DATE} set:{TREATMENT_INSTITUTED*C} FDA(130.13,IENS,2)={TREATMENT_INSTITUTED} set:{INTRAOP_DEVICE_TYPE*C} FDA(130.13,IENS,5)={INTRAOP_DEVICE_TYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.13)") set %SkipFiling=1 if $d(%FMERR(130.13,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.13,""DIERR"") for details" RETURN } if {OCCURRENCE_COMMENTS*C} { set D0={RowId} kill wp if {OCCURRENCE_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({OCCURRENCE_COMMENTS},$c(13,10)) { set wp(i)=$p({OCCURRENCE_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.13,{IENS},1,,wproot,"%FMERR(130.13)") if $d(%FMERR(130.13,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.13)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINTRAOPE257DS data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 10 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 7 1 new data,i,node set {OCCURRENCE_COMMENTS}="" merge data=^SRF({S1},10,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OCCURRENCE_COMMENTS}={OCCURRENCE_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" 2 1 Generated class for FileMan Sub-File/Multiple Number: '445.01' Sub-File/Multiple Name: 'INVENTORY ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INVENTORY_ITEM_445_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.53454064 67178,44724.834178249 right INVENTORY ITEM 445.01 2.56 12/04/2024 12:25:24 1 1 IEN 1 GROUP_CATEGORY_445_6]]> GROUPCATEGORYCODE VALIP.prosthetic.fm2cw.GROUPCATEGORY4456 FKey_GROUP_CATEGORY_CODE ITEM_MASTER_441]]> ITEMNO VALIP.prosthetic.fm2cw.ITEMMASTER441 FKey_ITEM_NO_ STORAGE_LOCATION_445_4]]> MAINSTORAGELOCATION VALIP.prosthetic.fm2cw.STORAGELOCATION4454 FKey_MAIN_STORAGE_LOCATION Foreign Key constraint for Variable Pointer reference field MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE MANDATORYORREQUESTEDSOURCEINHOUSESOURCE VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE Foreign Key constraint for Variable Pointer reference field MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR MANDATORYORREQUESTEDSOURCESUPPLYWHSEOROUTSIDEVENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR UNIT_OF_ISSUE_420_5]]> UNITOFISSUE VALIP.prosthetic.fm2cw.UNITOFISSUE4205 FKey_UNIT_OF_ISSUE FileMan Field Label: 'AVERAGE COST (UNIT OF ISSUE)' FileMan Field Number: '4.8' This is the average unit cost, in unit of issue, which was paid for the item. It is automatically updated by the software each time a receipt or adjustment is made to the inventory point. It is calculated by dividing the total inventory value by the current quantity on hand. %Library.Numeric 17 AVERAGE_COST_UNIT_OF_ISSUE FileMan Field Label: 'CANCEL/BACKORDER' FileMan Field Number: '14' This field will be used for the Warehouse Inventory items only. It will indicate the action to be taken when an item normally stocked by the warehouse is ordered by a service, and the item is out of stock. The item can either be cancelled from the request, or it can be back-ordered, in which case the warehouse will fill the order after they have replenished their own stock. %Library.EnumString 32 CANCELBACKORDER FileMan Field Label: 'DATE LAST RECEIVED' FileMan Field Number: '4.6' This is the date the item was last received into your station's inventory. %Library.FilemanDate 15 DATE_LAST_RECEIVED FileMan Field Label: 'DATE TO DELETE TEMPORARY LEVEL' FileMan Field Number: '9.6' This is the date to delete the temporary stock level. %Library.FilemanDate 28 DATE_TO_DELETE_TEMPORARY_LEVEL FileMan Field Label: 'DELETE ITEM WHEN INVENTORY 0' FileMan Field Number: '17' This field will mark items for deletion when the quantity on-hand for an item falls to zero. To mark an item for deleteion set this field to yes. When autogeneration runs, it will check each item for this field set to yes. If it is set to yes, the current quantity on-hand (including non-issuable), and the total inventory value is checked and must equal zero. Lastly, it will check the MOS INACTIVE BEORE ITEM DEL. field for receipts and usage. If there are no receipts or usage after the date, the item will be removed from the inventory point. It will show up on the autogeneration report as being deleted. %Library.EnumString 38 DELETE_ITEM_WHEN_INVENTORY_0 FileMan Field Label: 'DISPENSING UNIT' FileMan Field Number: '50' This field is used to indicate the pharmacy dispensing units when converting the unit per issue to the drug accountability pharmacy dispensing units. This field is for informational purposes only. %Library.String 39 DISPENSING_UNIT FileMan Field Label: 'DISPENSING UNIT CONV FACTOR' FileMan Field Number: '51' This field is multiplied by the quantity on hand in unit per issue to generate the drug accountability quantity in pharmacy dispensing units. %Library.Numeric 40 DISPENSING_UNIT_CONV_FACTOR FileMan Field Label: 'DO NOT BACK-ORDER INDICATOR' FileMan Field Number: '14.3' This field will be used on Primary Inventory point items only, and only for those items that are ordered from the Supply Warehouse (posted stock). If the flag is set to '1', and the Primary orders this item, this flag will prevent the warehouse from putting the item on back-order status, regardless of the normal cancel/backorder status for the item that has been established by the warehouse. %Library.EnumString 33 DO_NOT_BACKORDER_INDICATOR FileMan Field Label: 'DO NOT SUBSTITUTE INDICATOR' FileMan Field Number: '14.4' This field will be used on Primary Inventory point items only, and only for those items that are ordered from the Supply Warehouse (posted stock). If the flag is set to '1', and the Primary orders this item, this flag will prevent the warehouse from substituting another item for this one, regardless of whether the item can normally be substituted. %Library.EnumString 34 DO_NOT_SUBSTITUTE_INDICATOR FileMan Field Label: 'DUE-IN (IN U/I)' FileMan Field Number: '8.1' This field stores the quantity in unit of issue for outstanding orders which have not been received into the inventory point. %Library.Numeric 23 DUEIN_IN_UI FileMan Field Label: '*DUE-IN (UNIT OF ISSUE)' FileMan Field Number: '8' This field is no longer used. It has been moved to field number 8.1. %Library.Numeric 22 DUEIN_UNIT_OF_ISSUE FileMan Field Label: 'DUE-OUT (IN U/I)' FileMan Field Number: '8.6' This field stores the quantity in unit of issue for outstanding orders which have been placed by a distribution point but have not been posted to the distribution point. %Library.Numeric 25 DUEOUT_IN_UI FileMan Field Label: '*DUE-OUT (UNIT OF ISSUE)' FileMan Field Number: '8.5' This field is no longer used. It has been moved to field 8.6. %Library.Numeric 24 DUEOUT_UNIT_OF_ISSUE FileMan Field Label: 'EMERGENCY STOCK LEVEL' FileMan Field Number: '11' This is the emergency stock level for the item. The item will be flagged for emergency handling if its level falls below the emergency stock level. %Library.Numeric 31 EMERGENCY_STOCK_LEVEL Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBINVENTORYITEM44501 1 1 GENERIC_INVENTORY_445 FileMan Field Label: 'GROUP CATEGORY CODE' FileMan Field Number: '.5' This is the group category code for the item, if applicable. VALIP.prosthetic.fm2cw.GROUPCATEGORY4456 8 GROUP_CATEGORY_CODE GROUP CATEGORY CODE This is a code indicating the group category defined by each Inventory Point (i.e., grouping like items for printing of catalogs and other reports).]]> %Library.String 1 GROUP_CATEGORY_CODE into :val from VALIP_prosthetic_fm2cw.SUB_INVENTORY_ITEM_445_01 where %ID=:id) set {GROUP_CATEGORY_CODE_GROUP_CATEGORY_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 GROUP_CATEGORY_CODE_GROUP_CATEGORY_CODE 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: '*ISSUE BOOK SEQUENCE NUMBER' FileMan Field Number: '14.5' This field is no longer used. %Library.Numeric 35 ISSUE_BOOK_SEQUENCE_NUMBER FileMan Field Label: 'ISSUE MULTIPLE (UNIT OF ISSUE)' FileMan Field Number: '16' This field is used to indicate the multiple for the item to order. For example, if the order multiple was 5, this item would have to be ordered in quantities of 5 such as 5, 10, 15, etc. If a number is entered in this field, and another inventory/distribution point orders this item, their automatic ordering function will adjust the suggested order quantity up to the next highest whole multiple. For example, if the computer calculated that they needed 8 cases, and the issue multiple was 5, the quantity to order would be bumped up to 10 cases. Also, whenever another inventory point orders this item manually, the issue multiple will be displayed to them. %Library.Numeric 36 ISSUE_MULTIPLE_UNIT_OF_ISSUE FileMan Field Label: 'ITEM DESCRIPTION' FileMan Field Number: '.7' This is the description of the item. If the description is entered in this field, it will override the description in the item master file. %Library.String 11 ITEM_DESCRIPTION FileMan Field Label: 'ITEM NO.' FileMan Field Number: '.01' This field stores the item master number of the item stored in the inventory point. VALIP.prosthetic.fm2cw.ITEMMASTER441 1 3 ITEM_NO_ NUMBER This is the item number. Values 20000000 and higher are reserved for the National Formulary and created by the NIF/IFCAP interface.]]> %Library.Numeric 1 NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_INVENTORY_ITEM_445_01 where %ID=:id) set {ITEM_NO__NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_NO__NUMBER 1 FileMan Field Label: 'LAST COST (UNIT OF ISSUE)' FileMan Field Number: '4.7' This is the actual unit cost, in unit of issue, which was paid the last time the item was received. %Library.Numeric 16 LAST_COST_UNIT_OF_ISSUE FileMan Field Label: 'MAIN STORAGE LOCATION' FileMan Field Number: '5' In order to sort the items correctly on picking tickets or reports by storage location, the storage location must be formatted as follows: Enter first, the largest division within your storage area, followed with a dash, then the next smallest division, another dash and so on to the smallest division. Fill each entry with leading zeros to make it as long as the longest entry. Example: For a storage location with sections 1 to 50, bins 1 to 100, and shelves 1 to 6, an example storage location for section 5, bin 2, shelf 3 would be 05-002-3. VALIP.prosthetic.fm2cw.STORAGELOCATION4454 19 MAIN_STORAGE_LOCATION STORAGE LOCATION This file is used by the Generic Inventory Package. Storage locations can be defined by each Inventory Point for their own use. An example of a storage location could be a Room no., Bin location, Shelf, etc. NOTE: Several reports (picking document, issue books, etc.) use the storage location as a sort field. In order to sort correctly, make sure that numeric fields are zero filled to the number of characters in the largest value for the field. Ex. for a storage location with section 1 to 50, bins 1 to 100, shelves 1 to 6, a storage location of section 5, bin 2, shelf 3 would be 05-002-3.]]> %Library.String 1 STORAGE_LOCATION into :val from VALIP_prosthetic_fm2cw.SUB_INVENTORY_ITEM_445_01 where %ID=:id) set {MAIN_STORAGE_LOCATION_STORAGE_LOCATION}=$select(SQLCODE=0:val,1:"")]]> 1 MAIN_STORAGE_LOCATION_STORAGE_LOCATION 1 FileMan Field Label: 'MANDATORY OR REQUESTED SOURCE' FileMan Field Number: '.4' This is the mandatory or requested source for ordering the item. This source must be used, if entered. If the source is not entered, the inventory point is free to select all available procurement sources. %Library.String 4 1 MANDATORYORREQUESTEDSOURCESUPPLYWHSEOROUTSIDEVENDOR,MANDATORYORREQUESTEDSOURCEINHOUSESOURCE MANDATORY_OR_REQUESTED_SOURCE Variable Pointer Reference Field for Pointer field IN-HOUSE_SOURCE 'GENERIC INVENTORY' VALIP.prosthetic.fm2cw.GENERICINVENTORY445 6 1 MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.SUB_INVENTORY_ITEM_445_01 where %ID=:id) set {MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT 1 Variable Pointer Reference Field for Pointer field SUPPLY_WHSE.OR_OUTSIDE_VENDOR 'VENDOR' VALIP.prosthetic.fm2cw.VENDOR440 5 1 MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_INVENTORY_ITEM_445_01 where %ID=:id) set {MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME 1 Variable Pointer Value Field for Pointer field MANDATORY_OR_REQUESTED_SOURCE %Library.String 1 7 if {MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME}'="" { set {*}={MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME} quit } if {MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT}'="" { set {*}={MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT} quit } set {*}="" 1 MANDATORY_OR_REQUESTED_SOURCE_VALUE FileMan Field Label: 'MINIMUM ISSUE QTY.' FileMan Field Number: '16.5' If a number is entered in this field, and another inventory/distribution point orders this item, their automatic ordering function will adjust the suggested order quantity up to at least this level. For example, if the computer calculated that they needed 8 cases and the minimum issue quantity was 10 cases, it would bump up their quantity to order to 10. Also, whenever another inventory point orders this item manually, the minimum issue quantity will be displayed to them. %Library.Numeric 37 MINIMUM_ISSUE_QTY_ FileMan Field Label: 'NORMAL STOCK LEVEL (U OF I)' FileMan Field Number: '9' This is the normal stock level, in unit of issue, for an item. %Library.Numeric 26 NORMAL_STOCK_LEVEL_U_OF_I FileMan Field Label: 'ON-DEMAND' FileMan Field Number: '.8' This setting is applicable to items in the Primary and Secondary Inventory Points. Items in the Warehouse can never be considered to be On-Demand. An item is flagged as On-Demand if it must be stocked but is rarely used. These items must be tracked differently by GIP in order to accurately reflect the turnover of the standard items, i.e. those that are not On-Demand. %Library.EnumString 12 ONDEMAND FileMan Field Label: 'OPTIONAL REORDER POINT' FileMan Field Number: '10.3' This is the interval order point for the item. %Library.Numeric 30 OPTIONAL_REORDER_POINT FileMan Field Label: 'QTY FROM SS LAST UPDATED' FileMan Field Number: '.62' This field store the time that the supply station last reported its quantity on hand for this item. %Library.FilemanTimeStamp 10 QTY_FROM_SS_LAST_UPDATED FileMan Field Label: 'QTY NON-ISSUABLE (U/I)' FileMan Field Number: '7.5' This field is used to store the quantity (in unit of issue) of an item which is non-issuable. When an item is non-issuable, the quantity is subtracted from the quantity on hand and added to the quantity non-issuable. When an item is return from non-issuable, the quantity is added to the quantity on hand and subtracted from the quantity non-issuable. %Library.Numeric 21 QTY_NONISSUABLE_UI FileMan Field Label: 'QTY.ON HAND (UNIT OF ISSUE)' FileMan Field Number: '7' This field stores the current on-hand quantity (in unit of issue) of this item in the inventory point. %Library.Numeric 20 QTY_ON_HAND_UNIT_OF_ISSUE FileMan Field Label: 'STANDARD REORDER POINT' FileMan Field Number: '10' This is the reorder point, in unit of issue, for the item. %Library.Numeric 29 STANDARD_REORDER_POINT Relationship for Sub-File/Multiple to file name ADDITIONAL STORAGE LOCATION child VALIP.prosthetic.fm2cw.SUBADDITIONALSTORAGELOCATION44502 children SUBINVENTORYITEM44501 1 SUB_ADDITIONAL_STORAGE_LOCATION_445_02 Relationship for Sub-File/Multiple to file name CASE CART/INSTRUMENT KIT ITEM child VALIP.prosthetic.fm2cw.SUBCASECARTINSTRUMENTKITITEM445121 children SUBINVENTORYITEM44501 1 SUB_CASE_CARTINSTRUMENT_KIT_ITEM_445_121 Relationship for Sub-File/Multiple to file name IFAMS OUTSTANDING PO child VALIP.prosthetic.fm2cw.SUBIFAMSOUTSTANDINGPO44514 children SUBINVENTORYITEM44501 1 SUB_IFAMS_OUTSTANDING_PO_445_14 Relationship for Sub-File/Multiple to file name ON-DEMAND AUDIT child VALIP.prosthetic.fm2cw.SUBONDEMANDAUDIT44513 children SUBINVENTORYITEM44501 1 SUB_ONDEMAND_AUDIT_445_13 Relationship for Sub-File/Multiple to file name OUTSTANDING REQUEST child VALIP.prosthetic.fm2cw.SUBOUTSTANDINGREQUEST44509 children SUBINVENTORYITEM44501 1 SUB_OUTSTANDING_REQUEST_445_09 Relationship for Sub-File/Multiple to file name PROCUREMENT SOURCE child VALIP.prosthetic.fm2cw.SUBPROCUREMENTSOURCE44507 children SUBINVENTORYITEM44501 1 SUB_PROCUREMENT_SOURCE_445_07 Relationship for Sub-File/Multiple to file name RECEIPTS HISTORY BY ITEM child VALIP.prosthetic.fm2cw.SUBRECEIPTSHISTORYBYITEM44506 children SUBINVENTORYITEM44501 1 SUB_RECEIPTS_HISTORY_BY_ITEM_445_06 Relationship for Sub-File/Multiple to file name SUBSTITUTE ITEM(S) child VALIP.prosthetic.fm2cw.SUBSUBSTITUTEITEMS445122 children SUBINVENTORYITEM44501 1 SUB_SUBSTITUTE_ITEMS_445_122 Relationship for Sub-File/Multiple to file name USAGE/ISSUES HISTORY BY ITEM child VALIP.prosthetic.fm2cw.SUBUSAGEISSUESHISTORYBYITEM44505 children SUBINVENTORYITEM44501 1 SUB_USAGEISSUES_HISTORY_BY_ITEM_445_05 FileMan Field Label: 'SUPPLY STATION QUANTITY' FileMan Field Number: '.61' The quantity last report as on hand by the supply station is stored here. %Library.Numeric 9 SUPPLY_STATION_QUANTITY FileMan Field Label: 'TEMPORARY STOCK LEVEL' FileMan Field Number: '9.5' This is the temporary stock level, in unit of issue, for an item. %Library.Numeric 27 TEMPORARY_STOCK_LEVEL FileMan Field Label: 'TOTAL INVENTORY VALUE' FileMan Field Number: '4.81' This field contains the total dollar item value for the inventory point. %Library.Numeric 18 TOTAL_INVENTORY_VALUE FileMan Field Label: 'UNIT OF ISSUE' FileMan Field Number: '4' This is the packaging unit used at the inventory point to distribute the item. VALIP.prosthetic.fm2cw.UNITOFISSUE4205 13 UNIT_OF_ISSUE NAME This is the name of the unit of the item.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_INVENTORY_ITEM_445_01 where %ID=:id) set {UNIT_OF_ISSUE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 UNIT_OF_ISSUE_NAME 1 FileMan Field Label: 'UNIT OF ISSUE PACKAGE MULT.' FileMan Field Number: '4.5' The unit of issue packaging multiple is the number for converting the unit of issue into individual items. %Library.Numeric 14 UNIT_OF_ISSUE_PACKAGE_MULT_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 41 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ITEM_NO_*C} FDA(445.01,IENS,.01)={ITEM_NO_} set:{MANDATORY_OR_REQUESTED_SOURCE*C} FDA(445.01,IENS,.4)={MANDATORY_OR_REQUESTED_SOURCE} set:{GROUP_CATEGORY_CODE*C} FDA(445.01,IENS,.5)={GROUP_CATEGORY_CODE} set:{SUPPLY_STATION_QUANTITY*C} FDA(445.01,IENS,.61)={SUPPLY_STATION_QUANTITY} set:{QTY_FROM_SS_LAST_UPDATED*C} FDA(445.01,IENS,.62)={QTY_FROM_SS_LAST_UPDATED} set:{ITEM_DESCRIPTION*C} FDA(445.01,IENS,.7)={ITEM_DESCRIPTION} set:{ONDEMAND*C} FDA(445.01,IENS,.8)={ONDEMAND} set:{UNIT_OF_ISSUE*C} FDA(445.01,IENS,4)={UNIT_OF_ISSUE} set:{UNIT_OF_ISSUE_PACKAGE_MULT_*C} FDA(445.01,IENS,4.5)={UNIT_OF_ISSUE_PACKAGE_MULT_} set:{DATE_LAST_RECEIVED*C} FDA(445.01,IENS,4.6)={DATE_LAST_RECEIVED} set:{LAST_COST_UNIT_OF_ISSUE*C} FDA(445.01,IENS,4.7)={LAST_COST_UNIT_OF_ISSUE} set:{AVERAGE_COST_UNIT_OF_ISSUE*C} FDA(445.01,IENS,4.8)={AVERAGE_COST_UNIT_OF_ISSUE} set:{TOTAL_INVENTORY_VALUE*C} FDA(445.01,IENS,4.81)={TOTAL_INVENTORY_VALUE} set:{MAIN_STORAGE_LOCATION*C} FDA(445.01,IENS,5)={MAIN_STORAGE_LOCATION} set:{QTY_ON_HAND_UNIT_OF_ISSUE*C} FDA(445.01,IENS,7)={QTY_ON_HAND_UNIT_OF_ISSUE} set:{QTY_NONISSUABLE_UI*C} FDA(445.01,IENS,7.5)={QTY_NONISSUABLE_UI} set:{DUEIN_UNIT_OF_ISSUE*C} FDA(445.01,IENS,8)={DUEIN_UNIT_OF_ISSUE} set:{DUEIN_IN_UI*C} FDA(445.01,IENS,8.1)={DUEIN_IN_UI} set:{DUEOUT_UNIT_OF_ISSUE*C} FDA(445.01,IENS,8.5)={DUEOUT_UNIT_OF_ISSUE} set:{DUEOUT_IN_UI*C} FDA(445.01,IENS,8.6)={DUEOUT_IN_UI} set:{NORMAL_STOCK_LEVEL_U_OF_I*C} FDA(445.01,IENS,9)={NORMAL_STOCK_LEVEL_U_OF_I} set:{TEMPORARY_STOCK_LEVEL*C} FDA(445.01,IENS,9.5)={TEMPORARY_STOCK_LEVEL} set:{DATE_TO_DELETE_TEMPORARY_LEVEL*C} FDA(445.01,IENS,9.6)={DATE_TO_DELETE_TEMPORARY_LEVEL} set:{STANDARD_REORDER_POINT*C} FDA(445.01,IENS,10)={STANDARD_REORDER_POINT} set:{OPTIONAL_REORDER_POINT*C} FDA(445.01,IENS,10.3)={OPTIONAL_REORDER_POINT} set:{EMERGENCY_STOCK_LEVEL*C} FDA(445.01,IENS,11)={EMERGENCY_STOCK_LEVEL} set:{CANCELBACKORDER*C} FDA(445.01,IENS,14)={CANCELBACKORDER} set:{DO_NOT_BACKORDER_INDICATOR*C} FDA(445.01,IENS,14.3)={DO_NOT_BACKORDER_INDICATOR} set:{DO_NOT_SUBSTITUTE_INDICATOR*C} FDA(445.01,IENS,14.4)={DO_NOT_SUBSTITUTE_INDICATOR} set:{ISSUE_BOOK_SEQUENCE_NUMBER*C} FDA(445.01,IENS,14.5)={ISSUE_BOOK_SEQUENCE_NUMBER} set:{ISSUE_MULTIPLE_UNIT_OF_ISSUE*C} FDA(445.01,IENS,16)={ISSUE_MULTIPLE_UNIT_OF_ISSUE} set:{MINIMUM_ISSUE_QTY_*C} FDA(445.01,IENS,16.5)={MINIMUM_ISSUE_QTY_} set:{DELETE_ITEM_WHEN_INVENTORY_0*C} FDA(445.01,IENS,17)={DELETE_ITEM_WHEN_INVENTORY_0} set:{DISPENSING_UNIT*C} FDA(445.01,IENS,50)={DISPENSING_UNIT} set:{DISPENSING_UNIT_CONV_FACTOR*C} FDA(445.01,IENS,51)={DISPENSING_UNIT_CONV_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.01)") set %SkipFiling=1 if $d(%FMERR(445.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINVENTOR45D8S index {MANDATORY_OR_REQUESTED_SOURCE}'="" 1 ^PRCP conditional 445 {GENERIC_INVENTORY_445.IEN} 0]]> 1 "AC" $$TRUNCATE({MANDATORY_OR_REQUESTED_SOURCE},30)) {IEN} 0]]> index ^PRCP nonnull 445 "AE" {ITEM_NO_} {GENERIC_INVENTORY_445.IEN} 0]]> {IEN} 0]]> index ^PRCP nonnull 445 {GENERIC_INVENTORY_445.IEN} 0]]> 1 "B" {ITEM_NO_} {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 22 "^" 0 2 "^" 0 3 "^" 0 24 "^" 0 26 "^" 0 28 "^" 0 29 "^" 0 13 "^" 0 18 "^" "DUE" 1 "^" 0 8 "^" "DUE" 2 "^" 0 20 "^" 0 11 "^" 0 21 "^" 0 16 "^" 0 25 "^" 6 1 "^" 0 1 "^" 0 15 "^" 0 6 "^" 0 12 If $p($p($g(^PRCP({S1},{S2},{S3},{S4},0)),"^",12),";",2,999)'="PRCP(445," s {MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE}="" Quit s {MANDATORY_OR_REQUESTED_SOURCE_INHOUSE_SOURCE}=$p($p($g(^PRCP({S1},{S2},{S3},{S4},0)),"^",12),";") If $p($p($g(^PRCP({S1},{S2},{S3},{S4},0)),"^",12),";",2,999)'="PRC(440," s {MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR}="" Quit s {MANDATORY_OR_REQUESTED_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR}=$p($p($g(^PRCP({S1},{S2},{S3},{S4},0)),"^",12),";") "^" 0 17 "^" 0 9 "^" 0 30 "^" 0 4 "^" 9 2 "^" 0 19 "^" 0 7 "^" 0 10 "^" 9 1 "^" 0 23 "^" 0 27 "^" 0 5 "^" 0 14 Generated class for FileMan Sub-File/Multiple Number: '445.04' Sub-File/Multiple Name: 'INVENTORY USER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_INVENTORY_USER_445_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.510416919 67178,44724.893871946 right INVENTORY USER 445.04 2.56 12/04/2024 12:25:24 1 1 IEN 1 NEW_PERSON_200]]> INVENTORYUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INVENTORY_USER Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBINVENTORYUSER44504 1 1 GENERIC_INVENTORY_445 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INVENTORY USER' FileMan Field Number: '.01' This is the name of an inventory/distribution point user. VALIP.prosthetic.fm2cw.NEWPERSON200 1 3 INVENTORY_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_INVENTORY_USER_445_04 where %ID=:id) set {INVENTORY_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INVENTORY_USER_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{INVENTORY_USER*C} FDA(445.04,IENS,.01)={INVENTORY_USER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.04)") set %SkipFiling=1 if $d(%FMERR(445.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBINVENTORYFC3S index ^PRCP nonnull 445 "AD" {INVENTORY_USER} {GENERIC_INVENTORY_445.IEN} 0]]> {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.08' Sub-File/Multiple Name: 'IRRIGATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_IRRIGATION_130_08 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.588832711 67178,44724.93517702 right IRRIGATION 130.08 2.56 12/04/2024 12:25:24 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBIRRIGATION13008 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",26,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.08)") set %SkipFiling=1 if $d(%FMERR(130.08,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.08,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBIRRIGATI5BBES data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 26 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '661.12' Sub-File/Multiple Name: 'ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ITEM_661_12 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.728504438 67178,44724.974309553 right ITEM 661.12 2.56 12/04/2024 12:25:24 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ITEM' FileMan Field Number: '.01' This is an Item or Appliance under PSAS HCPCS kept by local site in Prosthetics Inventory module. %Library.String 1 3 ITEM Relationship to parent (file name PROSTHETIC HCPCS) VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 parent SUBITEM66112 1 1 PROSTHETIC_HCPCS_661_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_HCPCS_661_1},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_HCPCS_661_1},"||",i) } set DIK="^RMPR(661.1,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ITEM*C} FDA(661.12,IENS,.01)={ITEM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661.12)") set %SkipFiling=1 if $d(%FMERR(661.12,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(661.12,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.SUBITEM66112S index {ITEM}'="" 1 ^RMPR conditional 661.1 {PROSTHETIC_HCPCS_661_1.IEN} 0]]> 3 "B" $$TRUNCATE({ITEM},30)) {IEN} 0]]> data ^RMPR 661.1 {PROSTHETIC_HCPCS_661_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '664.16' Sub-File/Multiple Name: 'ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ITEM_664_16 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.757448402 67178,44725.014782602 right ITEM 664.16 2.56 12/04/2024 12:25:25 1 1 IEN 1 RECORD_OF_PROS_APPLIANCEREPAIR_660]]> APPLIANCEREPAIR VALIP.prosthetic.fm2cw.RECORDOFPROSAPPLIANCEREPAIR660 FKey_APPLIANCEREPAIR GENERIC_INVENTORY_445]]> INVENTORYPOINT VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_INVENTORY_POINT PROS_ITEM_MASTER_661]]> ITEM VALIP.prosthetic.fm2cw.PROSITEMMASTER661 FKey_ITEM PROS_ITEM_LOCATION_661_3]]> ITEMLOCATION VALIP.prosthetic.fm2cw.PROSITEMLOCATION6613 FKey_ITEM_LOCATION PROSTHETIC_HCPCS_661_1]]> PSASHCPCS VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 FKey_PSAS_HCPCS UNIT_OF_ISSUE_420_5]]> UNITOFISSUE VALIP.prosthetic.fm2cw.UNITOFISSUE4205 FKey_UNIT_OF_ISSUE VENDOR_440]]> VENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_VENDOR PROSTHETIC_WORK_ORDER_664_2]]> WORKORDERNUMBER VALIP.prosthetic.fm2cw.PROSTHETICWORKORDER6642 FKey_WORK_ORDER_NUMBER FileMan Field Label: 'APPLIANCE/REPAIR' FileMan Field Number: '5' Pointer to associated RECORD OF PROS APPLIANCE/REPAIR entry in file 660. VALIP.prosthetic.fm2cw.RECORDOFPROSAPPLIANCEREPAIR660 7 APPLIANCEREPAIR ENTRY DATE This is the date that the transaction was entered into the system. It may or may not be the same as the request date.]]> %Library.FilemanTimeStamp 1 ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {APPLIANCEREPAIR_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 APPLIANCEREPAIR_ENTRY_DATE 1 FileMan Field Label: 'BRIEF DESCRIPTION' FileMan Field Number: '6.5' This is a brief description ( 3 - 70 characters long) of the item/service requested. %Library.String 9 BRIEF_DESCRIPTION FileMan Field Label: 'CPT MODIFIER' FileMan Field Number: '13.1' CPT MODIFIERS in a comma delimited format, consistent with the HCFA published manuals. %Library.String 17 CPT_MODIFIER FileMan Field Label: 'EXTENDED DESCRIPTION' FileMan Field Number: '7' This is a more detailed description of the item being ordered. %Library.String 10 EXTENDED_DESCRIPTION FileMan Field Label: 'HIGH TECH ITEM' FileMan Field Number: '13.2' This is a determination by the Prosthetics Laboratory Technician. 1=YES this is a High Tech Item. %Library.EnumString 18 HIGH_TECH_ITEM Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INVENTORY POINT' FileMan Field Number: '18' This is a pointer to Generic Inventory file. This field is only populated if the site is running GIP and the item is not in Prosthetic Inventory. VALIP.prosthetic.fm2cw.GENERICINVENTORY445 23 INVENTORY_POINT INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {INVENTORY_POINT_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 INVENTORY_POINT_INVENTORY_POINT 1 FileMan Field Label: 'ITEM' FileMan Field Number: '.01' This field is a pointer to the master item list of possible appliances. The master list is set up so that appliances fall into groups which are types of appliances. VALIP.prosthetic.fm2cw.PROSITEMMASTER661 1 3 ITEM FileMan Field Label: 'ITEM LOCATION' FileMan Field Number: '17' VALIP.prosthetic.fm2cw.PROSITEMLOCATION6613 22 ITEM_LOCATION LOCATION This is a location of an item or stock being tracked for inventory.]]> %Library.String 1 LOCATION into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {ITEM_LOCATION_LOCATION}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_LOCATION_LOCATION 1 NAME This is the IFCAP Item Master Number.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {ITEM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_NAME 1 FileMan Field Label: 'PATIENT CATEGORY' FileMan Field Number: '9' Enter the Patient category at the time of this request. %Library.EnumString 12 PATIENT_CATEGORY Relationship to parent (file name PROSTHETIC 2529-3) VALIP.prosthetic.fm2cw.PROSTHETIC252936641 parent SUBITEM66416 1 1 PROSTHETIC_25293_664_1 FileMan Field Label: 'PSAS HCPCS' FileMan Field Number: '13' Health Care Financing Administration Common Procedure Coding System (HCPCS). This field should have the HCPCS code for the Item you are selecting. HCPCS is a uniform method for healthcare providers and medical suppliers to report professional services, procedures and supplies. VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 16 PSAS_HCPCS HCPCS This is a unique Prosthetics HCPCS code that corresponds to the CPT code.]]> %Library.String 1 HCPCS into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {PSAS_HCPCS_HCPCS}=$select(SQLCODE=0:val,1:"")]]> 1 PSAS_HCPCS_HCPCS 1 FileMan Field Label: 'PSAS ITEM' FileMan Field Number: '16' This is the PSAS ITEM. This field is mainly for Prosthetics Inventory. %Library.String 21 PSAS_ITEM FileMan Field Label: 'QTY' FileMan Field Number: '2' The number of units ordered for this item. Keep in mind that this will be governed by the UNIT OF ISSUE. %Library.Numeric 4 QTY FileMan Field Label: 'SERIAL NUMBER' FileMan Field Number: '12' This is the serial number of the item, if there is one. %Library.String 15 SERIAL_NUMBER FileMan Field Label: 'SOURCE' FileMan Field Number: '14' This is the SOURCE of an item. %Library.EnumString 19 SOURCE FileMan Field Label: 'SPECIAL CATEGORY' FileMan Field Number: '10' If the patient is NSC/OP, then this field must also be set. Special category is also used in counting AMIS. %Library.EnumString 13 SPECIAL_CATEGORY FileMan Field Label: 'TOTAL COST' FileMan Field Number: '11' This is the total cost for the item including materials and labor. %Library.Numeric 14 TOTAL_COST FileMan Field Label: 'TYPE OF TRANSACTION' FileMan Field Number: '8' This field indicates if this request is for an initial issue of an item, to replace an item, to provide a spare item, or to repair an item. %Library.EnumString 11 TYPE_OF_TRANSACTION FileMan Field Label: 'UNIT COST' FileMan Field Number: '4' The cost per unit associated with the requested item/service. %Library.Numeric 6 UNIT_COST FileMan Field Label: 'UNIT OF ISSUE' FileMan Field Number: '3' This is the unit by which items/services are issued (e.g. each, pair, box, case, etc.). VALIP.prosthetic.fm2cw.UNITOFISSUE4205 5 UNIT_OF_ISSUE NAME This is the name of the unit of the item.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {UNIT_OF_ISSUE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 UNIT_OF_ISSUE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 24 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR' FileMan Field Number: '15' This is a pointer to the Vendor file. VALIP.prosthetic.fm2cw.VENDOR440 20 VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VENDOR_NAME 1 FileMan Field Label: 'WORK ORDER NUMBER' FileMan Field Number: '6' This is a permanent number used to identify and track the Lab request. It is built from both information the user enters and a sequence number assigned by the computer (e.g., 644-95-2-O-0016). 644 = Station Number 95 = Fiscal Year 2 = Quarter O = Type of Laboratory (Orthotics, Restoration, Shoe Last Clinic, Wheelchair Repair Shop, National Foot Center, and Denver Distribution Center) 0016 = Sequence number assigned by the computer VALIP.prosthetic.fm2cw.PROSTHETICWORKORDER6642 8 WORK_ORDER_NUMBER WORK ORDER NUMBER This is the permanent number used to identify and track the Lab request. It is built from both information the user enters and a sequence number assigned by the computer (e.g., 644-95-2-O-0016). 644 = Station Number 95 = Fiscal Year 2 = Quarter O = Type of Laboratory (Orthotic, Restoration, Shoe Last, Wheelchair Repair, National Foot Center, or Denver Distribution Center)]]> %Library.String 1 WORK_ORDER_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_ITEM_664_16 where %ID=:id) set {WORK_ORDER_NUMBER_WORK_ORDER_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 WORK_ORDER_NUMBER_WORK_ORDER_NUMBER 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_25293_664_1},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_25293_664_1},"||",i) } set DIK="^RMPR(664.1,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ITEM*C} FDA(664.16,IENS,.01)={ITEM} set:{QTY*C} FDA(664.16,IENS,2)={QTY} set:{UNIT_OF_ISSUE*C} FDA(664.16,IENS,3)={UNIT_OF_ISSUE} set:{UNIT_COST*C} FDA(664.16,IENS,4)={UNIT_COST} set:{APPLIANCEREPAIR*C} FDA(664.16,IENS,5)={APPLIANCEREPAIR} set:{WORK_ORDER_NUMBER*C} FDA(664.16,IENS,6)={WORK_ORDER_NUMBER} set:{BRIEF_DESCRIPTION*C} FDA(664.16,IENS,6.5)={BRIEF_DESCRIPTION} set:{TYPE_OF_TRANSACTION*C} FDA(664.16,IENS,8)={TYPE_OF_TRANSACTION} set:{PATIENT_CATEGORY*C} FDA(664.16,IENS,9)={PATIENT_CATEGORY} set:{SPECIAL_CATEGORY*C} FDA(664.16,IENS,10)={SPECIAL_CATEGORY} set:{TOTAL_COST*C} FDA(664.16,IENS,11)={TOTAL_COST} set:{SERIAL_NUMBER*C} FDA(664.16,IENS,12)={SERIAL_NUMBER} set:{PSAS_HCPCS*C} FDA(664.16,IENS,13)={PSAS_HCPCS} set:{CPT_MODIFIER*C} FDA(664.16,IENS,13.1)={CPT_MODIFIER} set:{HIGH_TECH_ITEM*C} FDA(664.16,IENS,13.2)={HIGH_TECH_ITEM} set:{SOURCE*C} FDA(664.16,IENS,14)={SOURCE} set:{VENDOR*C} FDA(664.16,IENS,15)={VENDOR} set:{PSAS_ITEM*C} FDA(664.16,IENS,16)={PSAS_ITEM} set:{ITEM_LOCATION*C} FDA(664.16,IENS,17)={ITEM_LOCATION} set:{INVENTORY_POINT*C} FDA(664.16,IENS,18)={INVENTORY_POINT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(664.16)") set %SkipFiling=1 if $d(%FMERR(664.16,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(664.16,""DIERR"") for details" RETURN } if {EXTENDED_DESCRIPTION*C} { set D0={RowId} kill wp if {EXTENDED_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({EXTENDED_DESCRIPTION},$c(13,10)) { set wp(i)=$p({EXTENDED_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(664.16,{IENS},7,,wproot,"%FMERR(664.16)") if $d(%FMERR(664.16,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.16)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.SUBITEM66416S index ^RMPR nonnull 664.1 {PROSTHETIC_25293_664_1.IEN} 0]]> 2 "B" {ITEM} {IEN} 0]]> data ^RMPR 664.1 {PROSTHETIC_25293_664_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 5 "^" 0 10 "^" 2 2 1 new data,i,node set {EXTENDED_DESCRIPTION}="" merge data=^RMPR(664.1,{S2},2,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {EXTENDED_DESCRIPTION}={EXTENDED_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 2 3 "^" 0 13 "^" 0 1 "^" 3 4 "^" 0 8 "^" 2 1 "^" 3 3 "^" 0 2 "^" 0 12 "^" 3 1 "^" 0 9 "^" 0 11 "^" 0 7 "^" 0 4 "^" 0 3 "^" 3 2 "^" 0 6 Generated class for FileMan Sub-File/Multiple Number: '8925.14' Sub-File/Multiple Name: 'ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ITEM_8925_14 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.621460346 67178,44725.067164522 right ITEM 8925.14 2.56 12/04/2024 12:25:25 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MENU TEXT' FileMan Field Number: '4' Item Menu Text is the short name users will see for Classes and Document Classes when selecting them from 3-COLUMN MENUS. Document Definitions are selected from 3-column menus when viewing documents across many patients and when viewing many kinds of documents at the same time (e.g. Progress Notes and Discharge Summaries). To edit the Menu Text of a Document Definition, you must be viewing the Document Definition as an ITEM of its PARENT. Select 'Detailed Display' for the PARENT and then 'Items'. Menu Text has 1 - 20 characters. Menu Text must not begin with a space or with 'All'. The Document Definition Utility TIUF automatically sets the Item Menu Text to the first 20 characters of the Item's Name when an entry is first added as an item. (If an entry's Name begins with 'All' its Menu Text is given 'AlX' as its first 3 characters.) The utility does NOT update Menu Text if the entry Name is later changed, since this would overwrite what a site may have carefully set up. Menu Text is required. Menu Text can affect item order under a parent since order is alphabetic by menu text if items do not have sequence numbers. %Library.String 5 MENU_TEXT FileMan Field Label: 'MNEMONIC' FileMan Field Number: '2' Item Mnemonic is a handle by which to select Classes/Document Classes from a menu. 1-4 characters long. Mnemonic is usually numeric with the same value as the Sequence. Alpha mnemonics are permitted if preferred. %Library.String 3 MNEMONIC FileMan Field Label: 'SEQUENCE' FileMan Field Number: '3' Item Sequence, if entered, determines item's order under its parent. If items have no sequence, item order is alphabetic by item Menu Text. Sequence must be between .01 and 999. %Library.Numeric 4 SEQUENCE Relationship to parent (file name TIU DOCUMENT DEFINITION) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 parent SUBITEM892514 1 1 TIU_DOCUMENT_DEFINITION_8925_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_DOCUMENT_DEFINITION_8925_1},"||"):-1:1 { set DA($i(c))=$p({TIU_DOCUMENT_DEFINITION_8925_1},"||",i) } set DIK="^TIU(8925.1,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MNEMONIC*C} FDA(8925.14,IENS,2)={MNEMONIC} set:{SEQUENCE*C} FDA(8925.14,IENS,3)={SEQUENCE} set:{MENU_TEXT*C} FDA(8925.14,IENS,4)={MENU_TEXT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.14)") set %SkipFiling=1 if $d(%FMERR(8925.14,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.14,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.SUBITEM892514S index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> 10 "AC" {SEQUENCE} {IEN} 0]]> data ^TIU 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 4 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '61.12' Sub-File/Multiple Name: 'JOURNAL REFERENCE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_JOURNAL_REFERENCE_61_12 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.61916168 67178,44725.108784578 right JOURNAL REFERENCE 61.12 2.56 12/04/2024 12:25:25 1 1 IEN 1 FileMan Field Label: 'AUTHOR(S)' FileMan Field Number: '1' Author(s) of the named article. %Library.String 4 AUTHORS FileMan Field Label: 'DATE' FileMan Field Number: '5' Date of article. %Library.FilemanDate 7 DATE5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIST ON PATIENT RECORD' FileMan Field Number: '6' If this reference is to be listed on a patient record whenever this morphology is involved, this field requires a YES entry. %Library.EnumString 8 LIST_ON_PATIENT_RECORD Relationship to parent (file name MORPHOLOGY FIELD) VALIP.prosthetic.fm2cw.MORPHOLOGYFIELD611 parent SUBJOURNALREFERENCE6112 1 1 MORPHOLOGY_FIELD_61_1 FileMan Field Label: 'STARTING PAGE' FileMan Field Number: '4' The first page of the article. %Library.String 6 STARTING_PAGE FileMan Field Label: 'TITLE OF ARTICLE' FileMan Field Number: '.01' Title of an article that discusses the named morphology. %Library.String 1 3 TITLE_OF_ARTICLE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VOLUME' FileMan Field Number: '3' The volume number/name that contains the article. %Library.String 5 VOLUME BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MORPHOLOGY_FIELD_61_1},"||"):-1:1 { set DA($i(c))=$p({MORPHOLOGY_FIELD_61_1},"||",i) } set DIK="^LAB(61.1,"_DA(1)_",""JR"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TITLE_OF_ARTICLE*C} FDA(61.12,IENS,.01)={TITLE_OF_ARTICLE} set:{AUTHORS*C} FDA(61.12,IENS,1)={AUTHORS} set:{VOLUME*C} FDA(61.12,IENS,3)={VOLUME} set:{STARTING_PAGE*C} FDA(61.12,IENS,4)={STARTING_PAGE} set:{DATE5*C} FDA(61.12,IENS,5)={DATE5} set:{LIST_ON_PATIENT_RECORD*C} FDA(61.12,IENS,6)={LIST_ON_PATIENT_RECORD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(61.12)") set %SkipFiling=1 if $d(%FMERR(61.12,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(61.12,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBJOURNALR3B24S data ^LAB 61.1 {MORPHOLOGY_FIELD_61_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "JR" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 6 "^" 0 7 "^" 0 5 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '200.051' Sub-File/Multiple Name: 'KEYS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_KEYS_200_051 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.655026319 67178,44725.150300172 right KEYS 200.051 2.56 12/04/2024 12:25:25 1 1 IEN 1 NEW_PERSON_200]]> GIVENBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_GIVEN_BY SECURITY_KEY_19_1]]> KEY VALIP.prosthetic.fm2cw.SECURITYKEY191 FKey_KEY FileMan Field Label: 'DATE GIVEN' FileMan Field Number: '2' This is the date that the security key was given to the person. There is know history. %Library.FilemanDate 5 DATE_GIVEN FileMan Field Label: 'GIVEN BY' FileMan Field Number: '1' This is a pointer to the person that entered this security key into this persons file. VALIP.prosthetic.fm2cw.NEWPERSON200 4 GIVEN_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_KEYS_200_051 where %ID=:id) set {GIVEN_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 GIVEN_BY_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'KEY' FileMan Field Number: '.01' This is a security key that this person holds. VALIP.prosthetic.fm2cw.SECURITYKEY191 1 3 KEY NAME This is the name of the key, beginning with the package prefix Each entry in this File is the name of a key that defines some characteristic or capability for individual specified users. The capability might be access to some OPTION (file 19) which is permited with the authorization. Other functionalities (such as allowing scheduling overbook) might also be allowed only if the key is held. Keys are named with the standard package prefix formats; a 2-4 character package prefix for standard names or Z.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_KEYS_200_051 where %ID=:id) set {KEY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 KEY_NAME 1 Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBKEYS200051 1 1 NEW_PERSON_200 FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '3' This is the date after which the persons need for this security key should be reviewed. %Library.FilemanDate 6 REVIEW_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",51,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{KEY*C} FDA(200.051,IENS,.01)={KEY} set:{GIVEN_BY*C} FDA(200.051,IENS,1)={GIVEN_BY} set:{DATE_GIVEN*C} FDA(200.051,IENS,2)={DATE_GIVEN} set:{REVIEW_DATE*C} FDA(200.051,IENS,3)={REVIEW_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.051)") set %SkipFiling=1 if $d(%FMERR(200.051,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.051,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.SUBKEYS200051S index ^VA nonnull 200 "AB" {KEY} {NEW_PERSON_200.IEN} 0]]> {IEN} 0]]> index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 51 "B" {KEY} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 51 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '450.0757' Sub-File/Multiple Name: 'LABOR DISTRIBUTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LABOR_DISTRIBUTION_450_0757 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.654370567 67178,44725.193586905 right LABOR DISTRIBUTION 450.0757 2.56 12/04/2024 12:25:25 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' One of four possible Labor Distribution codes assigned to the employee. %Library.String 4 CODE FileMan Field Label: 'COST CENTER' FileMan Field Number: '3' The Cost Center assigned to the Labor Distribution code. %Library.String 6 COST_CENTER FileMan Field Label: 'FUND CTRL PT' FileMan Field Number: '4' The Fund Control Point assigned to the Labor Distribution code. %Library.String 7 FUND_CTRL_PT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LABOR DISTRIBUTION' FileMan Field Number: '.01' The number representing Labor Distributions 1 through 4. %Library.Numeric 1 3 LABOR_DISTRIBUTION Relationship to parent (file name PAID EMPLOYEE) VALIP.prosthetic.fm2cw.PAIDEMPLOYEE450 parent SUBLABORDISTRIBUTION4500757 1 1 PAID_EMPLOYEE_450 FileMan Field Label: 'PERCENT' FileMan Field Number: '2' The percentage assigned to the Labor Distribution code. %Library.Numeric 5 PERCENT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PAID_EMPLOYEE_450},"||"):-1:1 { set DA($i(c))=$p({PAID_EMPLOYEE_450},"||",i) } set DIK="^PRSPC("_DA(1)_",""LD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LABOR_DISTRIBUTION*C} FDA(450.0757,IENS,.01)={LABOR_DISTRIBUTION} set:{CODE*C} FDA(450.0757,IENS,1)={CODE} set:{PERCENT*C} FDA(450.0757,IENS,2)={PERCENT} set:{COST_CENTER*C} FDA(450.0757,IENS,3)={COST_CENTER} set:{FUND_CTRL_PT*C} FDA(450.0757,IENS,4)={FUND_CTRL_PT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(450.0757)") set %SkipFiling=1 if $d(%FMERR(450.0757,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(450.0757,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLABORDIS2009S index ^PRSPC nonnull {PAID_EMPLOYEE_450.IEN} 0]]> "LD" "B" {LABOR_DISTRIBUTION} {IEN} 0]]> data ^PRSPC {PAID_EMPLOYEE_450.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "LD" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 5 "^" 0 1 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '691.31' Sub-File/Multiple Name: 'LAD ORIGIN OF COLLATERALS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LAD_ORIGIN_OF_COLLATERALS_691_31 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.664193746 67178,44725.237381651 right LAD ORIGIN OF COLLATERALS 691.31 2.56 12/04/2024 12:25:25 1 1 IEN 1 SEGMENT_OF_CORONARY_ARTERIES_696]]> LADORIGINOFCOLLATERALS VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_LAD_ORIGIN_OF_COLLATERALS SEGMENT_OF_CORONARY_ARTERIES_696]]> RECEIVINGVESSEL VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_RECEIVING_VESSEL Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBLADORIGINOFCOLLATERALS69131 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LAD ORIGIN OF COLLATERALS' FileMan Field Number: '.01' This allows the user to enter the left anterior descending arterior origin of collaterals (multple). VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 LAD_ORIGIN_OF_COLLATERALS NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LAD_ORIGIN_OF_COLLATERALS_691_31 where %ID=:id) set {LAD_ORIGIN_OF_COLLATERALS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAD_ORIGIN_OF_COLLATERALS_NAME 1 FileMan Field Label: 'RECEIVING VESSEL' FileMan Field Number: '1' This allows the user to enter the receiving vessel. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 4 RECEIVING_VESSEL NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LAD_ORIGIN_OF_COLLATERALS_691_31 where %ID=:id) set {RECEIVING_VESSEL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RECEIVING_VESSEL_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",29,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LAD_ORIGIN_OF_COLLATERALS*C} FDA(691.31,IENS,.01)={LAD_ORIGIN_OF_COLLATERALS} set:{RECEIVING_VESSEL*C} FDA(691.31,IENS,1)={RECEIVING_VESSEL} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.31)") set %SkipFiling=1 if $d(%FMERR(691.31,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.31,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLADORIGIC4DDS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 29 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.3' Sub-File/Multiple Name: 'LAD SEGMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LAD_SEGMENT_691_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.687780471 67178,44725.27955467 right LAD SEGMENT 691.3 2.56 12/04/2024 12:25:25 1 1 IEN 1 SEGMENT_OF_CORONARY_ARTERIES_696]]> LADSEGMENT VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_LAD_SEGMENT LESION_MORPHOLOGY_696_2]]> MORPHOLOGY VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 FKey_MORPHOLOGY PERCENTAGE_LESION_696_1]]> PERCENTNARROWING VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 FKey_PERCENT_NARROWING Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBLADSEGMENT6913 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LAD SEGMENT' FileMan Field Number: '.01' This allows the user to enter multiple left anterior decending coronary artery segments. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 LAD_SEGMENT NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LAD_SEGMENT_691_3 where %ID=:id) set {LAD_SEGMENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LAD_SEGMENT_NAME 1 FileMan Field Label: 'MORPHOLOGY' FileMan Field Number: '2' This allows the user to enter the lesion morphology. VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 6 MORPHOLOGY NAME This file holds the various morphologies for the segment fields and percent narrowing field in Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LAD_SEGMENT_691_3 where %ID=:id) set {MORPHOLOGY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MORPHOLOGY_NAME 1 FileMan Field Label: 'PERCENT NARROWING' FileMan Field Number: '1' This allows the user to enter the percent narrowing of the left anterior descending coronary artery segment. VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 4 PERCENT_NARROWING FileMan Field Label: 'PERCENT NARROWING #' FileMan Field Number: '1.5' This field represents the fraction of the vessels lumenal space which has been occluded by disease. %Library.Numeric 5 PERCENT_NARROWING_ NAME This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LAD_SEGMENT_691_3 where %ID=:id) set {PERCENT_NARROWING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERCENT_NARROWING_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",27,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LAD_SEGMENT*C} FDA(691.3,IENS,.01)={LAD_SEGMENT} set:{PERCENT_NARROWING*C} FDA(691.3,IENS,1)={PERCENT_NARROWING} set:{PERCENT_NARROWING_*C} FDA(691.3,IENS,1.5)={PERCENT_NARROWING_} set:{MORPHOLOGY*C} FDA(691.3,IENS,2)={MORPHOLOGY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.3)") set %SkipFiling=1 if $d(%FMERR(691.3,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.3,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLADSEGMEBFDES data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 27 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '2.07' Sub-File/Multiple Name: 'LANGUAGE DATE/TIME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LANGUAGE_DATETIME_2_07 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.699767481 67178,44725.322616624 right LANGUAGE DATE/TIME 2.07 2.56 12/04/2024 12:25:25 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LANGUAGE DATE/TIME' FileMan Field Number: '.01' The date/time the preferred language information was given by the patient and recorded in the Patient File. %Library.FilemanTimeStamp 1 3 LANGUAGE_DATETIME Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBLANGUAGEDATETIME207 1 1 PATIENT_2 FileMan Field Label: 'PREFERRED LANGUAGE' FileMan Field Number: '.02' This is the preferred language of the patient. A patient may speak, read and write several languages but this is the one that he/she prefers. You may also answer with the 2- or 3-letter code assigned to the language or type in the language name. %Library.String 4 PREFERRED_LANGUAGE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.207,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LANGUAGE_DATETIME*C} FDA(2.07,IENS,.01)={LANGUAGE_DATETIME} set:{PREFERRED_LANGUAGE*C} FDA(2.07,IENS,.02)={PREFERRED_LANGUAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.07)") set %SkipFiling=1 if $d(%FMERR(2.07,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.07,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLANGUAGEA3DFS index ^DPT nonnull {PATIENT_2.IEN} 0]]> .207 "B" {LANGUAGE_DATETIME} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .207 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '130.11' Sub-File/Multiple Name: 'LASER PERFORMED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LASER_PERFORMED_130_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.708117492 67178,44725.365840768 right LASER PERFORMED 130.11 2.56 12/04/2024 12:25:25 1 1 IEN 1 FileMan Field Label: 'ENERGY JOULES' FileMan Field Number: '13' Energy Joules This is the laser energy joules used for this case. This a number between 0 and 1000, 1 decimal digit (xxxx.x). %Library.Numeric 16 ENERGY_JOULES Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INTERVAL/REPETITION RATE' FileMan Field Number: '8' Interval/Repetition Rate This is the laser Interval between pulses or the repetition rate for this case. This a number between 0 and 1000, 1 decimal digit (xxxx.x). %Library.Numeric 11 INTERVALREPETITION_RATE FileMan Field Label: 'LASER COMMENTS' FileMan Field Number: '19' This word-processing field contains comments about the use of this laser unit during this procedure. %Library.String 20 LASER_COMMENTS FileMan Field Label: 'LASER DELIVERY SYSTEM' FileMan Field Number: '5' Laser Delivery System This field is used to enter the type(s) of delivery system used for laser for this case. 1- ENDOSCOPE 2- HAND PIECE 3- HEAD PIECE 4- LAPAROSCOPE 5- LASER FIBER 6- MICROSCOPE 7- OTHER %Library.EnumString 8 LASER_DELIVERY_SYSTEM FileMan Field Label: 'LASER DURATION' FileMan Field Number: '14' Laser Duration (seconds) This is the duration of laser use in seconds for this case. This is a number between 0 and 10,000. %Library.Numeric 17 LASER_DURATION FileMan Field Label: 'LASER END TIME' FileMan Field Number: '3' Laser End Date This is the date and time of last use of the laser for this case using the format xx/xx/xx@xx:xx. %Library.FilemanTimeStamp 6 LASER_END_TIME FileMan Field Label: 'LASER NAME' FileMan Field Number: '.01' Laser Name Indicate type of Laser used in the procedure, if more than one laser enter data for each laser used. %Library.String 1 3 LASER_NAME FileMan Field Label: 'LASER OFF AND KEY SECURED' FileMan Field Number: '17' Laser Off and Key Secured At End Of Use This field is used to determine if the laser was turned off and the key secured after use for this case. Answer Yes if laser was turned off and the key secured after use for this case. %Library.EnumString 19 LASER_OFF_AND_KEY_SECURED FileMan Field Label: 'LASER ON STANDBY' FileMan Field Number: '16' Laser On Standby When Not In Use This field is used to determine if the laser was placed in standby mode when inactive during the case. Answer YES if laser was placed in standby mode %Library.EnumString 18 LASER_ON_STANDBY FileMan Field Label: 'LASER START TIME' FileMan Field Number: '2' Laser Start Time This is the date and time of first use of the laser for this case using the format xx/xx/xx@xx:xx. %Library.FilemanTimeStamp 5 LASER_START_TIME FileMan Field Label: 'LASER TEST FIRE' FileMan Field Number: '4' Laser Test Fire This field is used to determine if laser was test fired prior to use for this case. %Library.EnumString 7 LASER_TEST_FIRE FileMan Field Label: 'LASER TYPE' FileMan Field Number: '1' Laser Type Indicate type of Laser used in the procedure; if more than one laser enter data for each laser used. 1- HOLMIUM-YAG 2- NEODYMIUM-(NG-YAG) 3- CO2 4- KTP 5- EYE DIODE GREEN (532 NM) 6- EYE DIODE (810 NM) 7- OTHER %Library.EnumString 4 LASER_TYPE FileMan Field Label: 'POWER/AVERAGE POWER' FileMan Field Number: '7' Power/Average Power This is the laser power or average power used for this case. This a number between 0 and 1000,1 decimal digit (xxxx.x). %Library.Numeric 10 POWERAVERAGE_POWER FileMan Field Label: 'PULSE MODE' FileMan Field Number: '6' Pulse Mode This field is used to enter the type(s) of laser pulse mode(s) used for this case. 1- CONTINUOUS 2- REPEAT PULSE 3- SINGLE PULSE %Library.EnumString 9 PULSE_MODE FileMan Field Label: 'PULSE WIDTH' FileMan Field Number: '12' Pulse Width This is the laser pulse width used for this case. This a number between 0 and 1000, 1 decimal digit (xxxx.x). %Library.Numeric 15 PULSE_WIDTH Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBLASERPERFORMED13011 1 1 SURGERY_130 FileMan Field Label: 'TOTAL JOULES DELIVERED' FileMan Field Number: '9' Total Joules Delivered This is the laser total Joules delivered for this case. This a number between 0 and 99999.9, 1 decimal digit (xxxxx.x). %Library.Numeric 12 TOTAL_JOULES_DELIVERED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 21 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WATTS DELIVERED' FileMan Field Number: '10' Watts Delivered This is the total watts delivered for this case. This a number between 0 and 1000, 1 decimal digit (xxxx.x). %Library.Numeric 13 WATTS_DELIVERED FileMan Field Label: 'WAVE FORM' FileMan Field Number: '11' Wave Form This is the laser wave form use for this case. %Library.String 14 WAVE_FORM BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",56,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LASER_NAME*C} FDA(130.11,IENS,.01)={LASER_NAME} set:{LASER_TYPE*C} FDA(130.11,IENS,1)={LASER_TYPE} set:{LASER_START_TIME*C} FDA(130.11,IENS,2)={LASER_START_TIME} set:{LASER_END_TIME*C} FDA(130.11,IENS,3)={LASER_END_TIME} set:{LASER_TEST_FIRE*C} FDA(130.11,IENS,4)={LASER_TEST_FIRE} set:{LASER_DELIVERY_SYSTEM*C} FDA(130.11,IENS,5)={LASER_DELIVERY_SYSTEM} set:{PULSE_MODE*C} FDA(130.11,IENS,6)={PULSE_MODE} set:{POWERAVERAGE_POWER*C} FDA(130.11,IENS,7)={POWERAVERAGE_POWER} set:{INTERVALREPETITION_RATE*C} FDA(130.11,IENS,8)={INTERVALREPETITION_RATE} set:{TOTAL_JOULES_DELIVERED*C} FDA(130.11,IENS,9)={TOTAL_JOULES_DELIVERED} set:{WATTS_DELIVERED*C} FDA(130.11,IENS,10)={WATTS_DELIVERED} set:{WAVE_FORM*C} FDA(130.11,IENS,11)={WAVE_FORM} set:{PULSE_WIDTH*C} FDA(130.11,IENS,12)={PULSE_WIDTH} set:{ENERGY_JOULES*C} FDA(130.11,IENS,13)={ENERGY_JOULES} set:{LASER_DURATION*C} FDA(130.11,IENS,14)={LASER_DURATION} set:{LASER_ON_STANDBY*C} FDA(130.11,IENS,16)={LASER_ON_STANDBY} set:{LASER_OFF_AND_KEY_SECURED*C} FDA(130.11,IENS,17)={LASER_OFF_AND_KEY_SECURED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.11)") set %SkipFiling=1 if $d(%FMERR(130.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.11,""DIERR"") for details" RETURN } if {LASER_COMMENTS*C} { set D0={RowId} kill wp if {LASER_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({LASER_COMMENTS},$c(13,10)) { set wp(i)=$p({LASER_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.11,{IENS},19,,wproot,"%FMERR(130.11)") if $d(%FMERR(130.11,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.11)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLASERPER7689S index ^SRF nonnull {SURGERY_130.IEN} 0]]> 56 "B" {LASER_NAME} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 56 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 14 "^" 0 9 3 new data,i,node set {LASER_COMMENTS}="" merge data=^SRF({S1},56,{S3},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {LASER_COMMENTS}={LASER_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" 0 15 "^" 0 4 "^" 0 1 "^" 0 18 "^" 0 17 "^" 0 3 "^" 0 5 "^" 0 2 "^" 0 8 "^" 0 7 "^" 0 13 "^" 0 10 "^" 0 11 "^" 0 12 Generated class for FileMan Sub-File/Multiple Number: '130.0129' Sub-File/Multiple Name: 'LASER UNIT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LASER_UNIT_130_0129 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.714789513 67178,44725.413342869 right LASER UNIT 130.0129 2.56 12/04/2024 12:25:25 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LASER COMMENTS' FileMan Field Number: '5' Laser Comments This word-processing field contains comments about the use of this laser unit during this procedure. %Library.String 7 LASER_COMMENTS FileMan Field Label: 'LASER DURATION' FileMan Field Number: '1' Laser Duration This is the duration in minutes that the laser unit was applied. %Library.Numeric 4 LASER_DURATION FileMan Field Label: 'LASER UNIT/ID' FileMan Field Number: '.01' Laser Unit/ID This is the name or ID of the laser unit used during this procedure, %Library.String 1 3 LASER_UNITID FileMan Field Label: 'PLUME EVACUATOR' FileMan Field Number: '4' Plume Evacuator This field determines if a plume evacuator was used with this laser unit. %Library.EnumString 6 PLUME_EVACUATOR Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBLASERUNIT1300129 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WATTAGE' FileMan Field Number: '2' Wattage This is the number of watts (joules/sec) used by the laser during the procedure. %Library.Numeric 5 WATTAGE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",44,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LASER_UNITID*C} FDA(130.0129,IENS,.01)={LASER_UNITID} set:{LASER_DURATION*C} FDA(130.0129,IENS,1)={LASER_DURATION} set:{WATTAGE*C} FDA(130.0129,IENS,2)={WATTAGE} set:{PLUME_EVACUATOR*C} FDA(130.0129,IENS,4)={PLUME_EVACUATOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0129)") set %SkipFiling=1 if $d(%FMERR(130.0129,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0129,""DIERR"") for details" RETURN } if {LASER_COMMENTS*C} { set D0={RowId} kill wp if {LASER_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({LASER_COMMENTS},$c(13,10)) { set wp(i)=$p({LASER_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.0129,{IENS},5,,wproot,"%FMERR(130.0129)") if $d(%FMERR(130.0129,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.0129)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLASERUNI7DEBS index ^SRF nonnull {SURGERY_130.IEN} 0]]> 44 "B" {LASER_UNITID} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 44 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 1 new data,i,node set {LASER_COMMENTS}="" merge data=^SRF({S1},44,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {LASER_COMMENTS}={LASER_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 "^" 0 1 "^" 0 5 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '691.24' Sub-File/Multiple Name: 'LEFT CORONARY CATHETER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LEFT_CORONARY_CATHETER_691_24 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.72099994 67178,44725.456316176 right LEFT CORONARY CATHETER 691.24 2.56 12/04/2024 12:25:25 1 1 IEN 1 HEART_CATHETER_695_6]]> LEFTCORONARYCATHETER VALIP.prosthetic.fm2cw.HEARTCATHETER6956 FKey_LEFT_CORONARY_CATHETER FileMan Field Label: 'ADEQUACY OF ENGAGEMENT' FileMan Field Number: '1' This allows the user to enter the adequacy of the left coronary catheter used. %Library.EnumString 4 ADEQUACY_OF_ENGAGEMENT Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBLEFTCORONARYCATHETER69124 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LEFT CORONARY CATHETER' FileMan Field Number: '.01' This allows the user to enter multiple left coronary catheters used. VALIP.prosthetic.fm2cw.HEARTCATHETER6956 1 3 LEFT_CORONARY_CATHETER NAME This field contains a list of the various types of Heart catheters used for a heart Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LEFT_CORONARY_CATHETER_691_24 where %ID=:id) set {LEFT_CORONARY_CATHETER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LEFT_CORONARY_CATHETER_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",15,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LEFT_CORONARY_CATHETER*C} FDA(691.24,IENS,.01)={LEFT_CORONARY_CATHETER} set:{ADEQUACY_OF_ENGAGEMENT*C} FDA(691.24,IENS,1)={ADEQUACY_OF_ENGAGEMENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.24)") set %SkipFiling=1 if $d(%FMERR(691.24,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.24,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLEFTCOROBE8ES data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 15 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.22' Sub-File/Multiple Name: 'LEFT VENTRICULAR CATHETER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LEFT_VENTRICULAR_CATHETER_691_22 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.728338668 67178,44725.498270083 right LEFT VENTRICULAR CATHETER 691.22 2.56 12/04/2024 12:25:25 1 1 IEN 1 HEART_CATHETER_695_6]]> LEFTVENTRICULARCATHETER VALIP.prosthetic.fm2cw.HEARTCATHETER6956 FKey_LEFT_VENTRICULAR_CATHETER FileMan Field Label: 'ADEQUATE' FileMan Field Number: '1' This allows the user to enter the adequacy of the left ventricular catheter used. %Library.EnumString 4 ADEQUATE Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBLEFTVENTRICULARCATHETER69122 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LEFT VENTRICULAR CATHETER' FileMan Field Number: '.01' This allows the user to enter multiple left ventricular catheters used. VALIP.prosthetic.fm2cw.HEARTCATHETER6956 1 3 LEFT_VENTRICULAR_CATHETER NAME This field contains a list of the various types of Heart catheters used for a heart Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LEFT_VENTRICULAR_CATHETER_691_22 where %ID=:id) set {LEFT_VENTRICULAR_CATHETER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LEFT_VENTRICULAR_CATHETER_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",13,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LEFT_VENTRICULAR_CATHETER*C} FDA(691.22,IENS,.01)={LEFT_VENTRICULAR_CATHETER} set:{ADEQUATE*C} FDA(691.22,IENS,1)={ADEQUATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.22)") set %SkipFiling=1 if $d(%FMERR(691.22,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.22,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLEFTVENT390FS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 13 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.39' Sub-File/Multiple Name: 'LEFT VENTRICULAR WALL MOTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LEFT_VENTRICULAR_WALL_MOTION_691_39 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.746388278 67178,44725.54149082 right LEFT VENTRICULAR WALL MOTION 691.39 2.56 12/04/2024 12:25:25 1 1 IEN 1 LEFT_VENTRICULOGRAPHY_696_5]]> LEFTVENTRICULARWALLMOTION VALIP.prosthetic.fm2cw.LEFTVENTRICULOGRAPHY6965 FKey_LEFT_VENTRICULAR_WALL_MOTION Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBLEFTVENTRICULARWALLMOTION69139 1 1 CARDIAC_CATHETERIZATION_691_1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' This allows the user to describe by codes the left ventricular wall motion. %Library.EnumString 4 DESCRIPTION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LEFT VENTRICULAR WALL MOTION' FileMan Field Number: '.01' This allows the user to enter multiple LV wall motion normality. VALIP.prosthetic.fm2cw.LEFTVENTRICULOGRAPHY6965 1 3 LEFT_VENTRICULAR_WALL_MOTION NAME This file stores a list of Left Ventricular Segments for use by the Cardiac Catheterization sub-module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LEFT_VENTRICULAR_WALL_MOTION_691_39 where %ID=:id) set {LEFT_VENTRICULAR_WALL_MOTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LEFT_VENTRICULAR_WALL_MOTION_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",39,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LEFT_VENTRICULAR_WALL_MOTION*C} FDA(691.39,IENS,.01)={LEFT_VENTRICULAR_WALL_MOTION} set:{DESCRIPTION*C} FDA(691.39,IENS,1)={DESCRIPTION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.39)") set %SkipFiling=1 if $d(%FMERR(691.39,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.39,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLEFTVENT43AAS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 39 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.541' Sub-File/Multiple Name: 'LICENSING STATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LICENSING_STATE_200_541 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.75066224 67178,44725.58419069 right LICENSING STATE 200.541 2.56 12/04/2024 12:25:25 1 1 IEN 1 STATE_5]]> LICENSINGSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_LICENSING_STATE FileMan Field Label: 'EXPIRATION DATE' FileMan Field Number: '2' This is the expiration date of the provider's licence issued by the state. by the state. %Library.FilemanDate 5 EXPIRATION_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LICENSE NUMBER' FileMan Field Number: '1' This is the licence number that was issued to a provider by the sate he is licenced in. %Library.String 4 LICENSE_NUMBER FileMan Field Label: 'LICENSING STATE' FileMan Field Number: '.01' This is the state issuing a license to practice medicine for a provider. VALIP.prosthetic.fm2cw.STATE5 1 3 LICENSING_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LICENSING_STATE_200_541 where %ID=:id) set {LICENSING_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LICENSING_STATE_NAME 1 Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBLICENSINGSTATE200541 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""PS1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LICENSING_STATE*C} FDA(200.541,IENS,.01)={LICENSING_STATE} set:{LICENSE_NUMBER*C} FDA(200.541,IENS,1)={LICENSE_NUMBER} set:{EXPIRATION_DATE*C} FDA(200.541,IENS,2)={EXPIRATION_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.541)") set %SkipFiling=1 if $d(%FMERR(200.541,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.541,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLICENSINA00DS index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "PS1" "B" {LICENSING_STATE} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "PS1" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.29' Sub-File/Multiple Name: 'LMCA NARROWING' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LMCA_NARROWING_691_29 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.757338242 67178,44725.627512805 right LMCA NARROWING 691.29 2.56 12/04/2024 12:25:25 1 1 IEN 1 PERCENTAGE_LESION_696_1]]> LMCANARROWING VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 FKey_LMCA_NARROWING LESION_MORPHOLOGY_696_2]]> MORPHOLOGY VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 FKey_MORPHOLOGY Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBLMCANARROWING69129 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LMCA NARROWING' FileMan Field Number: '.01' This allows the user to enter multiple left main coronary artery narrowing. VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 1 3 LMCA_NARROWING NAME This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LMCA_NARROWING_691_29 where %ID=:id) set {LMCA_NARROWING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LMCA_NARROWING_NAME 1 FileMan Field Label: 'MORPHOLOGY' FileMan Field Number: '1' This allows the user to enter lesion morphology. VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 4 MORPHOLOGY NAME This file holds the various morphologies for the segment fields and percent narrowing field in Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LMCA_NARROWING_691_29 where %ID=:id) set {MORPHOLOGY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MORPHOLOGY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",25,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LMCA_NARROWING*C} FDA(691.29,IENS,.01)={LMCA_NARROWING} set:{MORPHOLOGY*C} FDA(691.29,IENS,1)={MORPHOLOGY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.29)") set %SkipFiling=1 if $d(%FMERR(691.29,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.29,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLMCANARR83CCS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 25 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.47' Sub-File/Multiple Name: 'LMCA NARROWING #' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LMCA_NARROWING__691_47 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.760810536 67178,44725.670236949 right LMCA NARROWING # 691.47 2.56 12/04/2024 12:25:25 1 1 IEN 1 LESION_MORPHOLOGY_696_2]]> MORPHOLOGY VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 FKey_MORPHOLOGY Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBLMCANARROWING69147 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LMCA NARROWING #' FileMan Field Number: '.01' This allows the user to enter a left main coronary artery narrowing. %Library.Numeric 1 3 LMCA_NARROWING_ FileMan Field Label: 'MORPHOLOGY' FileMan Field Number: '1' This field describes the the disease process which caused the lumenal occlusion. VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 4 MORPHOLOGY NAME This file holds the various morphologies for the segment fields and percent narrowing field in Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LMCA_NARROWING__691_47 where %ID=:id) set {MORPHOLOGY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MORPHOLOGY_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",25.5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LMCA_NARROWING_*C} FDA(691.47,IENS,.01)={LMCA_NARROWING_} set:{MORPHOLOGY*C} FDA(691.47,IENS,1)={MORPHOLOGY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.47)") set %SkipFiling=1 if $d(%FMERR(691.47,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.47,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLMCANARRE74ES index ^MCAR nonnull 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} 0]]> 25.5 "B" {LMCA_NARROWING_} {IEN} 0]]> data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 25.5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.0089834' Sub-File/Multiple Name: 'LM LIMIT WP FIELDS TO EDIT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LM_LIMIT_WP_FIELDS_TO_EDIT_200_0089834 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.775318341 67178,44725.714760299 right LM LIMIT WP FIELDS TO EDIT 200.0089834 2.56 12/04/2024 12:25:25 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LM LIMIT WP FIELDS TO EDIT' FileMan Field Number: '.01' Limited Word-Processing Fields to Edit %Library.String 1 3 LM_LIMIT_WP_FIELDS_TO_EDIT Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBLMLIMITWPFIELDSTOEDIT2000089834 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""LM4"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LM_LIMIT_WP_FIELDS_TO_EDIT*C} FDA(200.0089834,IENS,.01)={LM_LIMIT_WP_FIELDS_TO_EDIT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.0089834)") set %SkipFiling=1 if $d(%FMERR(200.0089834,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.0089834,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLMLIMITWBEC8S index {LM_LIMIT_WP_FIELDS_TO_EDIT}'="" 1 ^VA conditional 200 {NEW_PERSON_200.IEN} 0]]> "LM4" "B" $$TRUNCATE({LM_LIMIT_WP_FIELDS_TO_EDIT},30)) {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "LM4" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.01' Sub-File/Multiple Name: 'LOCATION EVALUATED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LOCATION_EVALUATED_699_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.791953169 67178,44725.757543376 right LOCATION EVALUATED 699.01 2.56 12/04/2024 12:25:25 1 1 IEN 1 ENDOSCOPIC_DEVICE_699_7]]> GASTROSTOMYTUBEUSED VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 FKey_GASTROSTOMY_TUBE_USED GROSS_699_55]]> GROSS VALIP.prosthetic.fm2cw.GROSS69955 FKey_GROSS MEDICAL_DIAGNOSISICD_CODES_697_5]]> IMPRESSION VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_IMPRESSION ENDOSCOPIC_DEVICE_699_7]]> JEJUNOSTOMYTUBEINSERTED VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 FKey_JEJUNOSTOMY_TUBE_INSERTED ANATOMY_697]]> LOCATIONEVALUATED VALIP.prosthetic.fm2cw.ANATOMY697 FKey_LOCATION_EVALUATED ENDOSCOPIC_DEVICE_699_7]]> SPHINCTEROTOMEUSED VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 FKey_SPHINCTEROTOME_USED ENDOSCOPIC_DEVICE_699_7]]> STENTTYPE VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 FKey_STENT_TYPE Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBLOCATIONEVALUATED69901 1 1 ENDOSCOPYCONSULT_699 FileMan Field Label: 'GASTROSTOMY TUBE USED' FileMan Field Number: '19' This field identifies the specific tube used if GASTROSTOMY TUBE INSERTED is entered as a technique. Used for GI procedures. VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 15 GASTROSTOMY_TUBE_USED NAME This field is used to store the various devices used during an Endoscopy.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_EVALUATED_699_01 where %ID=:id) set {GASTROSTOMY_TUBE_USED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 GASTROSTOMY_TUBE_USED_NAME 1 FileMan Field Label: 'GROSS' FileMan Field Number: '2' This field identifies a descriptor of the findings on the anatomical location. VALIP.prosthetic.fm2cw.GROSS69955 4 GROSS NAME This field holds the allowable gross list for the various GI and Pulmonary procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_EVALUATED_699_01 where %ID=:id) set {GROSS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 GROSS_NAME 1 FileMan Field Label: 'HEATER PROBE: DURATION' FileMan Field Number: '17' This field identifies the length of time a heater probe is used if HEATER PROBE COAGULA- TION is entered as a technique. Used for GI procedures. %Library.String 13 HEATER_PROBE_DURATION FileMan Field Label: 'HEATER PROBE: POWER' FileMan Field Number: '18' This field identifies the power of the heater probe used if HEATER PROBE COAGULATION is entered as a technique. Used for GI procedures. %Library.String 14 HEATER_PROBE_POWER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMPRESSION' FileMan Field Number: '6' This field identifies findings for the location evaluated. It then is placed on the list of possible diagnoses. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 6 IMPRESSION DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_EVALUATED_699_01 where %ID=:id) set {IMPRESSION_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 IMPRESSION_DIAGNOSIS 1 FileMan Field Label: 'INCISION SIZE' FileMan Field Number: '15' This field identifies the length of the incision made if SPHINCTEROTOMY is entered as a technique. Used for GI Endoscopies. %Library.Numeric 11 INCISION_SIZE FileMan Field Label: 'JEJUNOSTOMY TUBE INSERTED' FileMan Field Number: '20' This field identifies the specific tube used if JEJUNOSTOMY TUBE INSERTED is entered as a technique. Used for GI procedures. VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 16 JEJUNOSTOMY_TUBE_INSERTED NAME This field is used to store the various devices used during an Endoscopy.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_EVALUATED_699_01 where %ID=:id) set {JEJUNOSTOMY_TUBE_INSERTED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 JEJUNOSTOMY_TUBE_INSERTED_NAME 1 FileMan Field Label: 'LOCATION EVALUATED' FileMan Field Number: '.01' This field identifies field records the anatomical location evaluated and records findings for the location evaluated. VALIP.prosthetic.fm2cw.ANATOMY697 1 3 LOCATION_EVALUATED NAME This field contains a list of body locations for use by the various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_EVALUATED_699_01 where %ID=:id) set {LOCATION_EVALUATED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOCATION_EVALUATED_NAME 1 FileMan Field Label: 'MEASUREMENT' FileMan Field Number: '4' This field identifies the size of the Gross finding (Ex: 4 cm; 4x3 cm; 4 cm high,etc.) %Library.String 5 MEASUREMENT FileMan Field Label: 'SAVARY BOUGIE DIAMETER' FileMan Field Number: '16' This field identifies the diameter of the savary bougie used if DILATION BY SAVARY BOUGIE is entered as a technique. Used for GI procedures. %Library.String 12 SAVARY_BOUGIE_DIAMETER FileMan Field Label: 'SPHINCTEROTOME USED' FileMan Field Number: '14' This field identifies the type of sphincterotome used if SPHINCTEROTOMY is entered as a technique. Used for GI Endoscopies. VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 10 SPHINCTEROTOME_USED NAME This field is used to store the various devices used during an Endoscopy.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_EVALUATED_699_01 where %ID=:id) set {SPHINCTEROTOME_USED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SPHINCTEROTOME_USED_NAME 1 FileMan Field Label: 'STENT LENGTH (mm)' FileMan Field Number: '13' This field identifies the length of the stent used in millimeters if INSERTION OF STENT is entered as a technique. Used for GI Endoscopies. %Library.Numeric 9 STENT_LENGTH_MM FileMan Field Label: 'STENT SIZE (FR)' FileMan Field Number: '12' This field identifies the size of stent used if INSERTION OF STENT is entered as a technique. Used for GI Endoscopies. %Library.Numeric 8 STENT_SIZE_FR FileMan Field Label: 'STENT TYPE' FileMan Field Number: '11' This field identifies the type of stent used if INSERTION OF STENT is entered as a technique. Used for GI Endoscopies. VALIP.prosthetic.fm2cw.ENDOSCOPICDEVICE6997 7 STENT_TYPE NAME This field is used to store the various devices used during an Endoscopy.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_EVALUATED_699_01 where %ID=:id) set {STENT_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STENT_TYPE_NAME 1 Relationship for Sub-File/Multiple to file name MODIFIER child VALIP.prosthetic.fm2cw.SUBMODIFIER69913 children SUBLOCATIONEVALUATED69901 1 SUB_MODIFIER_699_13 Relationship for Sub-File/Multiple to file name TECHNIQUE child VALIP.prosthetic.fm2cw.SUBTECHNIQUE69915 children SUBLOCATIONEVALUATED69901 1 SUB_TECHNIQUE_699_15 Relationship for Sub-File/Multiple to file name VIDEO FRAME NUMBER child VALIP.prosthetic.fm2cw.SUBVIDEOFRAMENUMBER69902 children SUBLOCATIONEVALUATED69901 1 SUB_VIDEO_FRAME_NUMBER_699_02 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 17 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",30,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LOCATION_EVALUATED*C} FDA(699.01,IENS,.01)={LOCATION_EVALUATED} set:{GROSS*C} FDA(699.01,IENS,2)={GROSS} set:{MEASUREMENT*C} FDA(699.01,IENS,4)={MEASUREMENT} set:{IMPRESSION*C} FDA(699.01,IENS,6)={IMPRESSION} set:{STENT_TYPE*C} FDA(699.01,IENS,11)={STENT_TYPE} set:{STENT_SIZE_FR*C} FDA(699.01,IENS,12)={STENT_SIZE_FR} set:{STENT_LENGTH_MM*C} FDA(699.01,IENS,13)={STENT_LENGTH_MM} set:{SPHINCTEROTOME_USED*C} FDA(699.01,IENS,14)={SPHINCTEROTOME_USED} set:{INCISION_SIZE*C} FDA(699.01,IENS,15)={INCISION_SIZE} set:{SAVARY_BOUGIE_DIAMETER*C} FDA(699.01,IENS,16)={SAVARY_BOUGIE_DIAMETER} set:{HEATER_PROBE_DURATION*C} FDA(699.01,IENS,17)={HEATER_PROBE_DURATION} set:{HEATER_PROBE_POWER*C} FDA(699.01,IENS,18)={HEATER_PROBE_POWER} set:{GASTROSTOMY_TUBE_USED*C} FDA(699.01,IENS,19)={GASTROSTOMY_TUBE_USED} set:{JEJUNOSTOMY_TUBE_INSERTED*C} FDA(699.01,IENS,20)={JEJUNOSTOMY_TUBE_INSERTED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.01)") set %SkipFiling=1 if $d(%FMERR(699.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLOCATION323CS index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 30 "B" {LOCATION_EVALUATED} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 30 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 4 9 "^" 0 3 "^" 4 7 "^" 4 8 "^" 0 6 "^" 4 5 "^" 4 10 "^" 0 1 "^" 0 4 "^" 4 6 "^" 4 4 "^" 4 3 "^" 4 2 "^" 4 1 Generated class for FileMan Sub-File/Multiple Number: '699.19' Sub-File/Multiple Name: 'LOCATION OF PAIN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_LOCATION_OF_PAIN_699_19 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.788959377 67178,44725.806518819 right LOCATION OF PAIN 699.19 2.56 12/04/2024 12:25:25 1 1 IEN 1 LOCATION_OF_PAINPNEUMONIAS_699_83]]> LOCATIONOFPAIN VALIP.prosthetic.fm2cw.LOCATIONOFPAINPNEUMONIAS69983 FKey_LOCATION_OF_PAIN FileMan Field Label: 'DURATION' FileMan Field Number: '1' This field indicates the length of time the pain persists. %Library.String 4 DURATION Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBLOCATIONOFPAIN69919 1 1 ENDOSCOPYCONSULT_699 FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This field identifies the frequency of the pain. %Library.String 5 FREQUENCY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LOCATION OF PAIN' FileMan Field Number: '.01' This field identifies the specific location of pain. VALIP.prosthetic.fm2cw.LOCATIONOFPAINPNEUMONIAS69983 1 3 LOCATION_OF_PAIN NAME This field is pointed to by the Location of Pain field for GI Endoscopies and the Location of Pneumonia for Pulmonary Endoscopies. The data is a specified list of sub-anatomies that are commonly used by these two fields. NOTE: The Location of Pain field has been removed from the GI Endoscopy templates in version 2.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_LOCATION_OF_PAIN_699_19 where %ID=:id) set {LOCATION_OF_PAIN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOCATION_OF_PAIN_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LOCATION_OF_PAIN*C} FDA(699.19,IENS,.01)={LOCATION_OF_PAIN} set:{DURATION*C} FDA(699.19,IENS,1)={DURATION} set:{FREQUENCY*C} FDA(699.19,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.19)") set %SkipFiling=1 if $d(%FMERR(699.19,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.19,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBLOCATION55FFS data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.072' Sub-File/Multiple Name: 'MAJOR DIAGNOSTIC CATEGORY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MAJOR_DIAGNOSTIC_CATEGORY_80_072 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.790319172 67178,44725.848896767 right MAJOR DIAGNOSTIC CATEGORY 80.072 2.56 12/04/2024 12:25:25 1 1 IEN 1 MAJOR_DIAGNOSTIC_CATEGORY_80_3]]> MDC VALIP.prosthetic.fm2cw.MAJORDIAGNOSTICCATEGORY803 FKey_MDC Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBMAJORDIAGNOSTICCATEGORY80072 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MDC' FileMan Field Number: '1' This is a single Major Diagnostic Category code associated with the corresponding ICD Diagnosis for the fiscal year indicated by the MCD effective date. VALIP.prosthetic.fm2cw.MAJORDIAGNOSTICCATEGORY803 4 MDC FileMan Field Label: 'MDC EFFECTIVE DATE' FileMan Field Number: '.01' This is the date that the Major Diagnostic Categories became effective for this diagnosis. This is normally the beginning of a fiscal year. %Library.FilemanDate 1 3 MDC_EFFECTIVE_DATE NAME MAJOR DIAGNOSTIC CATEGORY Name of the MDC.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MAJOR_DIAGNOSTIC_CATEGORY_80_072 where %ID=:id) set {MDC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MDC_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MDC_EFFECTIVE_DATE*C} FDA(80.072,IENS,.01)={MDC_EFFECTIVE_DATE} set:{MDC*C} FDA(80.072,IENS,1)={MDC} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.072)") set %SkipFiling=1 if $d(%FMERR(80.072,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.072,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMAJORDIA420CS index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 4 "B" {MDC_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 4 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '450.0633' Sub-File/Multiple Name: 'MANDATORY CLASS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MANDATORY_CLASS_450_0633 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.800837622 67178,44725.891308627 right MANDATORY CLASS 450.0633 2.56 12/04/2024 12:25:25 1 1 IEN 1 FileMan Field Label: 'CLASS COUNT' FileMan Field Number: '.02' This field contains the number of times this class appears in an individual's MI REVIEW GROUPS or zero (0) if it is an individual class. %Library.Numeric 3 CLASS_COUNT FileMan Field Label: 'DATE ASSIGNED' FileMan Field Number: '.03' This field contains the date a mandatory training class was assigned to an employee. %Library.FilemanDate 4 DATE_ASSIGNED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PAID EMPLOYEE) VALIP.prosthetic.fm2cw.PAIDEMPLOYEE450 parent SUBMANDATORYCLASS4500633 1 1 PAID_EMPLOYEE_450 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PAID_EMPLOYEE_450},"||"):-1:1 { set DA($i(c))=$p({PAID_EMPLOYEE_450},"||",i) } set DIK="^PRSPC("_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CLASS_COUNT*C} FDA(450.0633,IENS,.02)={CLASS_COUNT} set:{DATE_ASSIGNED*C} FDA(450.0633,IENS,.03)={DATE_ASSIGNED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(450.0633)") set %SkipFiling=1 if $d(%FMERR(450.0633,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(450.0633,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMANDATOR68B5S data ^PRSPC {PAID_EMPLOYEE_450.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 6 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '664.22' Sub-File/Multiple Name: 'MATERIALS USED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MATERIALS_USED_664_22 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.756361615 67178,44725.932210488 right MATERIALS USED 664.22 2.56 12/04/2024 12:25:25 1 1 IEN 1 RECORD_OF_PROS_APPLIANCEREPAIR_660]]> APPLIANCEREPAIR VALIP.prosthetic.fm2cw.RECORDOFPROSAPPLIANCEREPAIR660 FKey_APPLIANCEREPAIR GENERIC_INVENTORY_445]]> INVENTORYPOINT VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_INVENTORY_POINT PROS_ITEM_MASTER_661]]> MATERIALSUSED VALIP.prosthetic.fm2cw.PROSITEMMASTER661 FKey_MATERIALS_USED PROSTHETICS_1358_664]]> PURCHASEFORM VALIP.prosthetic.fm2cw.PROSTHETICS1358664 FKey_PURCHASE_FORM UNIT_OF_ISSUE_420_5]]> UNITOFISSUE VALIP.prosthetic.fm2cw.UNITOFISSUE4205 FKey_UNIT_OF_ISSUE VENDOR_440]]> VENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_VENDOR PROSTHETIC_25293_664_1]]> f25293 VALIP.prosthetic.fm2cw.PROSTHETIC252936641 FKey_f25293 FileMan Field Label: 'APPLIANCE/REPAIR' FileMan Field Number: '12' Pointer to associated RECORD OF PROS APPLIANCE/REPAIR file (#660). VALIP.prosthetic.fm2cw.RECORDOFPROSAPPLIANCEREPAIR660 14 APPLIANCEREPAIR ENTRY DATE This is the date that the transaction was entered into the system. It may or may not be the same as the request date.]]> %Library.FilemanTimeStamp 1 ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.SUB_MATERIALS_USED_664_22 where %ID=:id) set {APPLIANCEREPAIR_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 APPLIANCEREPAIR_ENTRY_DATE 1 FileMan Field Label: '2529-3' FileMan Field Number: '14' Contains VAF 10-2529-3 request used to obtain materials for current Work Order. VALIP.prosthetic.fm2cw.PROSTHETIC252936641 16 f25293 DATE Patient Name or Date Date that the VAF 10-2529-3 was created.]]> %Library.FilemanTimeStamp 1 DATE_01 into :val from VALIP_prosthetic_fm2cw.SUB_MATERIALS_USED_664_22 where %ID=:id) set {f25293_DATE_01}=$select(SQLCODE=0:val,1:"")]]> 1 f25293_DATE_01 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INVENTORY POINT' FileMan Field Number: '4' This is the pointer to the GENERIC INVENTORY file (#445) that tells which inventory point is charged for the item(s). VALIP.prosthetic.fm2cw.GENERICINVENTORY445 7 INVENTORY_POINT INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.SUB_MATERIALS_USED_664_22 where %ID=:id) set {INVENTORY_POINT_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 INVENTORY_POINT_INVENTORY_POINT 1 FileMan Field Label: 'MATERIALS COST' FileMan Field Number: '2' The charge associated with the item(s)/service(s) used on the Lab Work Order. %Library.Numeric 5 MATERIALS_COST FileMan Field Label: 'MATERIALS USED' FileMan Field Number: '.01' Component or stock issue item(s) used to complete the item(s)/service(s) requested on the Lab Work Order. VALIP.prosthetic.fm2cw.PROSITEMMASTER661 1 3 MATERIALS_USED NAME This is the IFCAP Item Master Number.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MATERIALS_USED_664_22 where %ID=:id) set {MATERIALS_USED_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MATERIALS_USED_NAME 1 Relationship to parent (file name PROSTHETIC WORK ORDER) VALIP.prosthetic.fm2cw.PROSTHETICWORKORDER6642 parent SUBMATERIALSUSED66422 1 1 PROSTHETIC_WORK_ORDER_664_2 FileMan Field Label: 'PURCHASE FORM' FileMan Field Number: '11' Points to the Prosthetics 1358 file if the materials had to be purchased on a VAF 10-2421 and could not be taken from stock. VALIP.prosthetic.fm2cw.PROSTHETICS1358664 13 PURCHASE_FORM DATE This is the date that the 1358 transaction took place.]]> %Library.FilemanTimeStamp 1 DATE_01 into :val from VALIP_prosthetic_fm2cw.SUB_MATERIALS_USED_664_22 where %ID=:id) set {PURCHASE_FORM_DATE_01}=$select(SQLCODE=0:val,1:"")]]> 1 PURCHASE_FORM_DATE_01 1 FileMan Field Label: 'PURCHASE STATUS' FileMan Field Number: '13' This field indicates if a purchase on a VAF 10-2421 is Pending Delivery (PD) or Delivered (D). %Library.EnumString 15 PURCHASE_STATUS FileMan Field Label: 'QTY' FileMan Field Number: '1' This is the number of units ordered for this item. Keep in mind that this will be governed by the unit of issue (e.g., pair, each). %Library.Numeric 4 QTY FileMan Field Label: 'REFERENCE' FileMan Field Number: '10' This is the VAF 10-2421 C Number from the VAF 4-1358 Daily Record entry. %Library.String 12 REFERENCE FileMan Field Label: 'REMARKS' FileMan Field Number: '9' These are the remarks entered by the Lab Technician concerning the materials used on the Lab Work Order. %Library.String 11 REMARKS FileMan Field Label: 'SERIAL NBR' FileMan Field Number: '7' This is number assigned by the manufacturer of the item. %Library.String 10 SERIAL_NBR FileMan Field Label: 'UNIT OF ISSUE' FileMan Field Number: '6' This the is unit by which item(s)/service(s) are issued (e.g., each, pair, box, case, etc.). VALIP.prosthetic.fm2cw.UNITOFISSUE4205 9 UNIT_OF_ISSUE NAME This is the name of the unit of the item.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MATERIALS_USED_664_22 where %ID=:id) set {UNIT_OF_ISSUE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 UNIT_OF_ISSUE_NAME 1 FileMan Field Label: 'VA or COMMERCIAL SOURCE (V/C)' FileMan Field Number: '3' This is the source for the items ordered on VAF 10-2421 (V for VA or C for Commercial). %Library.EnumString 6 VA_OR_COMMERCIAL_SOURCE_VC SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 17 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR' FileMan Field Number: '5' This is the name of the Vendor for the items(s) ordered on the request. VALIP.prosthetic.fm2cw.VENDOR440 8 VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MATERIALS_USED_664_22 where %ID=:id) set {VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VENDOR_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_WORK_ORDER_664_2},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_WORK_ORDER_664_2},"||",i) } set DIK="^RMPR(664.2,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MATERIALS_USED*C} FDA(664.22,IENS,.01)={MATERIALS_USED} set:{QTY*C} FDA(664.22,IENS,1)={QTY} set:{MATERIALS_COST*C} FDA(664.22,IENS,2)={MATERIALS_COST} set:{VA_OR_COMMERCIAL_SOURCE_VC*C} FDA(664.22,IENS,3)={VA_OR_COMMERCIAL_SOURCE_VC} set:{INVENTORY_POINT*C} FDA(664.22,IENS,4)={INVENTORY_POINT} set:{VENDOR*C} FDA(664.22,IENS,5)={VENDOR} set:{UNIT_OF_ISSUE*C} FDA(664.22,IENS,6)={UNIT_OF_ISSUE} set:{SERIAL_NBR*C} FDA(664.22,IENS,7)={SERIAL_NBR} set:{REFERENCE*C} FDA(664.22,IENS,10)={REFERENCE} set:{PURCHASE_FORM*C} FDA(664.22,IENS,11)={PURCHASE_FORM} set:{APPLIANCEREPAIR*C} FDA(664.22,IENS,12)={APPLIANCEREPAIR} set:{PURCHASE_STATUS*C} FDA(664.22,IENS,13)={PURCHASE_STATUS} set:{f25293*C} FDA(664.22,IENS,14)={f25293} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(664.22)") set %SkipFiling=1 if $d(%FMERR(664.22,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(664.22,""DIERR"") for details" RETURN } if {REMARKS*C} { set D0={RowId} kill wp if {REMARKS}'="" { set wproot="wp" for i=1:1:$l({REMARKS},$c(13,10)) { set wp(i)=$p({REMARKS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(664.22,{IENS},9,,wproot,"%FMERR(664.22)") if $d(%FMERR(664.22,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(664.22)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMATERIAL5E05S index ^RMPR nonnull 664.2 {PROSTHETIC_WORK_ORDER_664_2.IEN} 0]]> 1 "AC" {PURCHASE_FORM} {IEN} 0]]> index ^RMPR nonnull 664.2 {PROSTHETIC_WORK_ORDER_664_2.IEN} 0]]> 1 "B" {MATERIALS_USED} {IEN} 0]]> data ^RMPR 664.2 {PROSTHETIC_WORK_ORDER_664_2.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 12 "^" 0 5 "^" 0 3 "^" 0 1 "^" 0 11 "^" 0 9 "^" 0 2 "^" 0 10 3 new data,i,node set {REMARKS}="" merge data=^RMPR(664.2,{S2},1,{S4},3) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REMARKS}={REMARKS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 8 "^" 0 7 "^" 0 4 "^" 0 6 "^" 0 13 Generated class for FileMan Sub-File/Multiple Number: '691.01' Sub-File/Multiple Name: 'MED(CARDIOLOGY MEDICATION)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDCARDIOLOGY_MEDICATION_691_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.821962786 67178,44725.981302593 right MED(CARDIOLOGY MEDICATION) 691.01 2.56 12/04/2024 12:25:25 1 1 IEN 1 MEDICATION_695]]> MEDCARDIOLOGYMEDICATION VALIP.prosthetic.fm2cw.MEDICATION695 FKey_MEDCARDIOLOGY_MEDICATION FileMan Field Label: 'DOSE' FileMan Field Number: '1' This allows the user to enter dosage of medication listed on the medical patient's request form. %Library.String 4 DOSE Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBMEDCARDIOLOGYMEDICATION69101 1 1 ECHO_691 FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This allows the user to enter when/how often (frequency) medication is to be taken. %Library.String 5 FREQUENCY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MED(CARDIOLOGY MEDICATION)' FileMan Field Number: '.01' This field identifies the medications listed on the medical patients request form. VALIP.prosthetic.fm2cw.MEDICATION695 1 3 MEDCARDIOLOGY_MEDICATION GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_MEDCARDIOLOGY_MEDICATION_691_01 where %ID=:id) set {MEDCARDIOLOGY_MEDICATION_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDCARDIOLOGY_MEDICATION_GENERIC_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDCARDIOLOGY_MEDICATION*C} FDA(691.01,IENS,.01)={MEDCARDIOLOGY_MEDICATION} set:{DOSE*C} FDA(691.01,IENS,1)={DOSE} set:{FREQUENCY*C} FDA(691.01,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.01)") set %SkipFiling=1 if $d(%FMERR(691.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDCARDI6811S index ^MCAR nonnull 691 {ECHO_691.IEN} 0]]> 1 "B" {MEDCARDIOLOGY_MEDICATION} {IEN} 0]]> data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '695.01' Sub-File/Multiple Name: 'MEDICAL PACKAGE USE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICAL_PACKAGE_USE_695_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.82076784 67178,44726.024391554 right MEDICAL PACKAGE USE 695.01 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '.01' This field identifies the specific area of Medicine that uses this drug. %Library.EnumString 1 3 MEDICAL_PACKAGE_USE Relationship to parent (file name MEDICATION) VALIP.prosthetic.fm2cw.MEDICATION695 parent SUBMEDICALPACKAGEUSE69501 1 1 MEDICATION_695 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICATION_695},"||"):-1:1 { set DA($i(c))=$p({MEDICATION_695},"||",i) } set DIK="^MCAR(695,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICAL_PACKAGE_USE*C} FDA(695.01,IENS,.01)={MEDICAL_PACKAGE_USE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.01)") set %SkipFiling=1 if $d(%FMERR(695.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(695.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICALPAC0CS index ^MCAR nonnull 695 "C" {MEDICAL_PACKAGE_USE} {MEDICATION_695.IEN} 0]]> {IEN} 0]]> data ^MCAR 695 {MEDICATION_695.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '696.91' Sub-File/Multiple Name: 'MEDICAL PACKAGE USE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICAL_PACKAGE_USE_696_91 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.828127997 67178,44726.066059856 right MEDICAL PACKAGE USE 696.91 2.56 12/04/2024 12:25:26 1 1 IEN 1 Relationship to parent (file name COMPLICATION) VALIP.prosthetic.fm2cw.COMPLICATION6969 parent SUBMEDICALPACKAGEUSE69691 1 1 COMPLICATION_696_9 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '.01' This field identifies the specific Medical specialty that the complication is associated with. %Library.EnumString 1 3 MEDICAL_PACKAGE_USE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({COMPLICATION_696_9},"||"):-1:1 { set DA($i(c))=$p({COMPLICATION_696_9},"||",i) } set DIK="^MCAR(696.9,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICAL_PACKAGE_USE*C} FDA(696.91,IENS,.01)={MEDICAL_PACKAGE_USE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(696.91)") set %SkipFiling=1 if $d(%FMERR(696.91,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(696.91,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICALPFCFAS data ^MCAR 696.9 {COMPLICATION_696_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.811' Sub-File/Multiple Name: 'MEDICAL PACKAGE USE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICAL_PACKAGE_USE_699_811 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.846005021 67178,44726.107855422 right MEDICAL PACKAGE USE 699.811 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '.01' This field identifies the specific Medical procedure that the result is applicable to. %Library.EnumString 1 3 MEDICAL_PACKAGE_USE Relationship to parent (file name RESULTS) VALIP.prosthetic.fm2cw.RESULTS69981 parent SUBMEDICALPACKAGEUSE699811 1 1 RESULTS_699_81 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RESULTS_699_81},"||"):-1:1 { set DA($i(c))=$p({RESULTS_699_81},"||",i) } set DIK="^MCAR(699.81,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICAL_PACKAGE_USE*C} FDA(699.811,IENS,.01)={MEDICAL_PACKAGE_USE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.811)") set %SkipFiling=1 if $d(%FMERR(699.811,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.811,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICALP43EFS data ^MCAR 699.81 {RESULTS_699_81.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.851' Sub-File/Multiple Name: 'MEDICAL PACKAGE USE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICAL_PACKAGE_USE_699_851 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.847942703 67178,44726.149687991 right MEDICAL PACKAGE USE 699.851 2.56 12/04/2024 12:25:26 1 1 IEN 1 Relationship to parent (file name FOLLOWUP DEVICE/THERAPY) VALIP.prosthetic.fm2cw.FOLLOWUPDEVICETHERAPY69985 parent SUBMEDICALPACKAGEUSE699851 1 1 FOLLOWUP_DEVICETHERAPY_699_85 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICAL PACKAGE USE' FileMan Field Number: '.01' This field identifies the specific area of Medicine (GI/Pulmonary) to which this follow-up device/therapy is applicable to. %Library.EnumString 1 3 MEDICAL_PACKAGE_USE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({FOLLOWUP_DEVICETHERAPY_699_85},"||"):-1:1 { set DA($i(c))=$p({FOLLOWUP_DEVICETHERAPY_699_85},"||",i) } set DIK="^MCAR(699.85,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICAL_PACKAGE_USE*C} FDA(699.851,IENS,.01)={MEDICAL_PACKAGE_USE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.851)") set %SkipFiling=1 if $d(%FMERR(699.851,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.851,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICALP83EDS data ^MCAR 699.85 {FOLLOWUP_DEVICETHERAPY_699_85.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '694.11' Sub-File/Multiple Name: 'MEDICAL TYPE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICAL_TYPE_694_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.8512748 67178,44726.191391402 right MEDICAL TYPE 694.11 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INDICATION) VALIP.prosthetic.fm2cw.INDICATION6941 parent SUBMEDICALTYPE69411 1 1 INDICATION_694_1 FileMan Field Label: 'MEDICAL TYPE' FileMan Field Number: '.01' This field identifies the specific specialty or sub-specialty by which this indication is used. %Library.EnumString 1 3 MEDICAL_TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({INDICATION_694_1},"||"):-1:1 { set DA($i(c))=$p({INDICATION_694_1},"||",i) } set DIK="^MCAR(694.1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICAL_TYPE*C} FDA(694.11,IENS,.01)={MEDICAL_TYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.11)") set %SkipFiling=1 if $d(%FMERR(694.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.11,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICALTC141S data ^MCAR 694.1 {INDICATION_694_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '695.52' Sub-File/Multiple Name: 'MEDICAL USE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICAL_USE_695_52 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.854454727 67178,44726.232825941 right MEDICAL USE 695.52 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICAL USE' FileMan Field Number: '.01' This field identifies the specific area of medicine for which this symptom is appropriate. %Library.EnumString 1 3 MEDICAL_USE Relationship to parent (file name SYMPTOM) VALIP.prosthetic.fm2cw.SYMPTOM6955 parent SUBMEDICALUSE69552 1 1 SYMPTOM_695_5 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SYMPTOM_695_5},"||"):-1:1 { set DA($i(c))=$p({SYMPTOM_695_5},"||",i) } set DIK="^MCAR(695.5,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICAL_USE*C} FDA(695.52,IENS,.01)={MEDICAL_USE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.52)") set %SkipFiling=1 if $d(%FMERR(695.52,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(695.52,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICALU84DDS index {MEDICAL_USE}'="" 1 ^MCAR conditional 695.5 "C" $$TRUNCATE({MEDICAL_USE},30)) {SYMPTOM_695_5.IEN} 0]]> {IEN} 0]]> data ^MCAR 695.5 {SYMPTOM_695_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.831' Sub-File/Multiple Name: 'MEDICAL USE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICAL_USE_699_831 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.871815141 67178,44726.27610685 right MEDICAL USE 699.831 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name LOCATION OF PAIN/PNEUMONIAS) VALIP.prosthetic.fm2cw.LOCATIONOFPAINPNEUMONIAS69983 parent SUBMEDICALUSE699831 1 1 LOCATION_OF_PAINPNEUMONIAS_699_83 FileMan Field Label: 'MEDICAL USE' FileMan Field Number: '.01' This field identifies the specific area of Medicine (Pulmonary or GI) for which this Location can be selected. %Library.EnumString 1 3 MEDICAL_USE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({LOCATION_OF_PAINPNEUMONIAS_699_83},"||"):-1:1 { set DA($i(c))=$p({LOCATION_OF_PAINPNEUMONIAS_699_83},"||",i) } set DIK="^MCAR(699.83,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICAL_USE*C} FDA(699.831,IENS,.01)={MEDICAL_USE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.831)") set %SkipFiling=1 if $d(%FMERR(699.831,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.831,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICALU8E16S data ^MCAR 699.83 {LOCATION_OF_PAINPNEUMONIAS_699_83.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '701.0201' Sub-File/Multiple Name: 'MEDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICATION_701_0201 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.875405855 67178,44726.405053294 right MEDICATION 701.0201 2.56 12/04/2024 12:25:26 1 1 IEN 1 MEDICATION_695]]> MEDICATION VALIP.prosthetic.fm2cw.MEDICATION695 FKey_MEDICATION FileMan Field Label: 'DOSAGE' FileMan Field Number: '1' This allows the user to enter the dosage of the patient's current medications. %Library.String 4 DOSAGE FileMan Field Label: 'FREQUENCY' FileMan Field Number: '2' This allows the user to enter the time/number of times (frequency) of the patient's current medications. %Library.String 5 FREQUENCY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICATION' FileMan Field Number: '.01' These are the patients current medications. VALIP.prosthetic.fm2cw.MEDICATION695 1 3 MEDICATION GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_MEDICATION_701_0201 where %ID=:id) set {MEDICATION_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICATION_GENERIC_NAME 1 Relationship to parent (file name RHEUMATOLOGY) VALIP.prosthetic.fm2cw.RHEUMATOLOGY701 parent SUBMEDICATION7010201 1 1 RHEUMATOLOGY_701 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RHEUMATOLOGY_701},"||"):-1:1 { set DA($i(c))=$p({RHEUMATOLOGY_701},"||",i) } set DIK="^MCAR(701,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICATION*C} FDA(701.0201,IENS,.01)={MEDICATION} set:{DOSAGE*C} FDA(701.0201,IENS,1)={DOSAGE} set:{FREQUENCY*C} FDA(701.0201,IENS,2)={FREQUENCY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(701.0201)") set %SkipFiling=1 if $d(%FMERR(701.0201,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(701.0201,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICATICB0BS index ^MCAR nonnull 701 {RHEUMATOLOGY_701.IEN} 0]]> 6 "B" {MEDICATION} {IEN} 0]]> data ^MCAR 701 {RHEUMATOLOGY_701.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.33' Sub-File/Multiple Name: 'MEDICATIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICATIONS_130_33 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.876008937 67178,44726.318634104 right MEDICATIONS 130.33 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBMEDICATIONS13033 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",22,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.33)") set %SkipFiling=1 if $d(%FMERR(130.33,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.33,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICATI475ES data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 22 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '699.53' Sub-File/Multiple Name: 'MEDICATIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICATIONS_699_53 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.881308863 67178,44726.361189812 right MEDICATIONS 699.53 2.56 12/04/2024 12:25:26 1 1 IEN 1 DRUG_50]]> MEDICATIONS VALIP.prosthetic.fm2cw.DRUG50 FKey_MEDICATIONS Relationship to parent (file name GENERALIZED PROCEDURE/CONSULT) VALIP.prosthetic.fm2cw.GENERALIZEDPROCEDURECONSULT6995 parent SUBMEDICATIONS69953 1 1 GENERALIZED_PROCEDURECONSULT_699_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICATIONS' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.DRUG50 1 3 MEDICATIONS GENERIC NAME This is the generic name of the drug. In addition, if this entry is marked for CMOP transmission, the generic name cannot be edited unless it is UNmarked for CMOP transmission first.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_MEDICATIONS_699_53 where %ID=:id) set {MEDICATIONS_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICATIONS_GENERIC_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERALIZED_PROCEDURECONSULT_699_5},"||"):-1:1 { set DA($i(c))=$p({GENERALIZED_PROCEDURECONSULT_699_5},"||",i) } set DIK="^MCAR(699.5,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICATIONS*C} FDA(699.53,IENS,.01)={MEDICATIONS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.53)") set %SkipFiling=1 if $d(%FMERR(699.53,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.53,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICATIFD3BS index ^MCAR nonnull 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} 0]]> 4 "B" {MEDICATIONS} {IEN} 0]]> data ^MCAR 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.38' Sub-File/Multiple Name: 'MEDICATION USED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEDICATION_USED_699_38 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.900690579 67178,44726.449657987 right MEDICATION USED 699.38 2.56 12/04/2024 12:25:26 1 1 IEN 1 MEDICATION_695]]> MEDICATIONUSED VALIP.prosthetic.fm2cw.MEDICATION695 FKey_MEDICATION_USED FileMan Field Label: 'DRUG DOSE ROUTE' FileMan Field Number: '1' This field identifies a set of codes to record the route of administration for GI Endoscopies. %Library.EnumString 4 DRUG_DOSE_ROUTE FileMan Field Label: 'DRUG DOSE ROUTE-P' FileMan Field Number: '3' This field identifies a set of codes to record the route of administration for Pulmonary Endoscopies. %Library.EnumString 6 DRUG_DOSE_ROUTEP Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBMEDICATIONUSED69938 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEDICATION USED' FileMan Field Number: '.01' This field identifies the specific medication administered. VALIP.prosthetic.fm2cw.MEDICATION695 1 3 MEDICATION_USED GENERIC NAME This field contains a list of drugs used by the various medical specialties. This list is built through management options on various Medicine package modules. It is currently used by Cardiology,GI,Pulmonary, and Rheumatology.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_MEDICATION_USED_699_38 where %ID=:id) set {MEDICATION_USED_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICATION_USED_GENERIC_NAME 1 FileMan Field Label: 'TOTAL DOSE (in mg.)' FileMan Field Number: '2' This field identifies the total dosage in milligrams of the medication administered. %Library.Numeric 5 TOTAL_DOSE_IN_MG_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEDICATION_USED*C} FDA(699.38,IENS,.01)={MEDICATION_USED} set:{DRUG_DOSE_ROUTE*C} FDA(699.38,IENS,1)={DRUG_DOSE_ROUTE} set:{TOTAL_DOSE_IN_MG_*C} FDA(699.38,IENS,2)={TOTAL_DOSE_IN_MG_} set:{DRUG_DOSE_ROUTEP*C} FDA(699.38,IENS,3)={DRUG_DOSE_ROUTEP} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.38)") set %SkipFiling=1 if $d(%FMERR(699.38,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.38,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEDICATIF7E9S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 4 "^" 0 1 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '100.2101' Sub-File/Multiple Name: 'MEMBER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MEMBER_100_2101 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.903872074 67178,44726.49528411 right MEMBER 100.2101 2.56 12/04/2024 12:25:26 1 1 IEN 1 Foreign Key constraint for Variable Pointer reference field MEMBER_PATIENT MEMBERPATIENT VALIP.prosthetic.fm2cw.PATIENT2 FKey_MEMBER_PATIENT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MEMBER' FileMan Field Number: '.01' An item on the list, member is a patient if the list type is P or T. %Library.String 1 3 1 MEMBERPATIENT MEMBER Variable Pointer Reference Field for Pointer field PATIENT 'PATIENT' VALIP.prosthetic.fm2cw.PATIENT2 4 1 MEMBER_PATIENT NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MEMBER_100_2101 where %ID=:id) set {MEMBER_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEMBER_PATIENT_NAME 1 Variable Pointer Value Field for Pointer field MEMBER %Library.String 1 5 if {MEMBER_PATIENT_NAME}'="" { set {*}={MEMBER_PATIENT_NAME} quit } set {*}="" 1 MEMBER_VALUE Relationship to parent (file name OE/RR LIST) VALIP.prosthetic.fm2cw.OERRLIST10021 parent SUBMEMBER1002101 1 1 OERR_LIST_100_21 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VIEW DATE/TIME' FileMan Field Number: '1' This is the date/time this item was last viewed. %Library.FilemanTimeStamp 6 VIEW_DATETIME BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OERR_LIST_100_21},"||"):-1:1 { set DA($i(c))=$p({OERR_LIST_100_21},"||",i) } set DIK="^OR(100.21,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MEMBER*C} FDA(100.2101,IENS,.01)={MEMBER} set:{VIEW_DATETIME*C} FDA(100.2101,IENS,1)={VIEW_DATETIME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(100.2101)") set %SkipFiling=1 if $d(%FMERR(100.2101,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(100.2101,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMEMBER109FE3S index {MEMBER}'="" 1 ^OR conditional 100.21 "AB" $$TRUNCATE({MEMBER},30)) {OERR_LIST_100_21.IEN} 0]]> {IEN} 0]]> index {MEMBER}'="" 1 ^OR conditional 100.21 {OERR_LIST_100_21.IEN} 0]]> 10 "B" $$TRUNCATE({MEMBER},30)) {IEN} 0]]> data ^OR 100.21 {OERR_LIST_100_21.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 If $p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";",2,999)'="DPT(" s {MEMBER_PATIENT}="" Quit s {MEMBER_PATIENT}=$p($p($g(^OR({S1},{S2},{S3},{S4},0)),"^",1),";") "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '19.01' Sub-File/Multiple Name: 'MENU' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MENU_19_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.907163441 67178,44726.546115315 right MENU 19.01 2.56 12/04/2024 12:25:26 1 1 IEN 1 FileMan Field Label: 'DISPLAY ORDER' FileMan Field Number: '3' The field determines the order in which the items of a menu appear when displayed. If this field is entered, it takes precedence over the order determined by the synonyms. %Library.Numeric 4 DISPLAY_ORDER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBMENU1901 1 1 OPTION_19 FileMan Field Label: 'SYNONYM' FileMan Field Number: '2' An abbreviation which will appear to the left of the menu text on the display of a menu. Options are selectable by synonyms as well as menu text. %Library.String 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(19.01,IENS,2)={SYNONYM} set:{DISPLAY_ORDER*C} FDA(19.01,IENS,3)={DISPLAY_ORDER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.01)") set %SkipFiling=1 if $d(%FMERR(19.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBMENU1901S index ^DIC nonnull 19 {OPTION_19.IEN} 0]]> 10 "C" {SYNONYM} {IEN} 0]]> data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.198' Sub-File/Multiple Name: 'MENU TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MENU_TEMPLATE_200_198 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.908603894 67178,44726.5924481 right MENU TEMPLATE 200.198 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MENU TEMPLATE' FileMan Field Number: '.01' %Library.String 1 3 MENU_TEMPLATE Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBMENUTEMPLATE200198 1 1 NEW_PERSON_200 FileMan Field Label: 'PATHWAY' FileMan Field Number: '1' This multiple contains the information on the option sequence specified for a given MENU TEMPLATE. %Library.String 4 PATHWAY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",19.8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MENU_TEMPLATE*C} FDA(200.198,IENS,.01)={MENU_TEMPLATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.198)") set %SkipFiling=1 if $d(%FMERR(200.198,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.198,""DIERR"") for details" RETURN } if {PATHWAY*C} { set D0={RowId} kill wp if {PATHWAY}'="" { set wproot="wp" for i=1:1:$l({PATHWAY},$c(13,10)) { set wp(i)=$p({PATHWAY},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(200.198,{IENS},1,,wproot,"%FMERR(200.198)") if $d(%FMERR(200.198,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(200.198)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMENUTEMP192BS index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 19.8 "B" {MENU_TEMPLATE} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 19.8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 1 new data,i,node set {PATHWAY}="" merge data=^VA(200,{S2},19.8,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PATHWAY}={PATHWAY}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} Generated class for FileMan Sub-File/Multiple Number: '2.0537042' Sub-File/Multiple Name: 'MHV AUTH ACTIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MHV_AUTH_ACTIONS_2_0537042 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.932067333 67178,44726.636503964 right MHV AUTH ACTIONS 2.0537042 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBMHVAUTHACTIONS20537042 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0537042)") set %SkipFiling=1 if $d(%FMERR(2.0537042,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0537042,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMHVAUTHA13EES data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 4 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '2.0537041' Sub-File/Multiple Name: 'MHV MSG ACTIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MHV_MSG_ACTIONS_2_0537041 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.934999744 67178,44726.679347232 right MHV MSG ACTIONS 2.0537041 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBMHVMSGACTIONS20537041 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0537041)") set %SkipFiling=1 if $d(%FMERR(2.0537041,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0537041,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMHVMSGACC072S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 3 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '2.0537026' Sub-File/Multiple Name: 'MHV SOCIALIZATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MHV_SOCIALIZATION_2_0537026 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.937088095 67178,44726.724271277 right MHV SOCIALIZATION 2.0537026 2.56 12/04/2024 12:25:26 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBMHVSOCIALIZATION20537026 1 1 PATIENT_2 FileMan Field Label: 'SOCIALIZATION DATE' FileMan Field Number: '.01' This is the date and time the patient responded to the My HealtheVet socialization questions. %Library.FilemanTimeStamp 1 3 SOCIALIZATION_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SOCIALIZATION_DATE*C} FDA(2.0537026,IENS,.01)={SOCIALIZATION_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0537026)") set %SkipFiling=1 if $d(%FMERR(2.0537026,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0537026,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMHVSOCIAB7CES index ^DPT nonnull {PATIENT_2.IEN} 0]]> 1 "B" {SOCIALIZATION_DATE} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 1 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '694.01' Sub-File/Multiple Name: 'MICROSCOPIC DESCRIPTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MICROSCOPIC_DESCRIPTION_694_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.938188788 67178,44726.767644889 right MICROSCOPIC DESCRIPTION 694.01 2.56 12/04/2024 12:25:26 1 1 IEN 1 MEDICAL_DESCRIPTION_693]]> MICROSCOPICDESCRIPTION VALIP.prosthetic.fm2cw.MEDICALDESCRIPTION693 FKey_MICROSCOPIC_DESCRIPTION Relationship to parent (file name HEMATOLOGY) VALIP.prosthetic.fm2cw.HEMATOLOGY694 parent SUBMICROSCOPICDESCRIPTION69401 1 1 HEMATOLOGY_694 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MICROSCOPIC DESCRIPTION' FileMan Field Number: '.01' This field identifies the microscopic description field. VALIP.prosthetic.fm2cw.MEDICALDESCRIPTION693 1 3 MICROSCOPIC_DESCRIPTION NAME This field serves as a list of Echo conclusions for the Echo file and a list of Bone Marrow Descriptions for the Hematology file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MICROSCOPIC_DESCRIPTION_694_01 where %ID=:id) set {MICROSCOPIC_DESCRIPTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MICROSCOPIC_DESCRIPTION_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HEMATOLOGY_694},"||"):-1:1 { set DA($i(c))=$p({HEMATOLOGY_694},"||",i) } set DIK="^MCAR(694,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MICROSCOPIC_DESCRIPTION*C} FDA(694.01,IENS,.01)={MICROSCOPIC_DESCRIPTION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.01)") set %SkipFiling=1 if $d(%FMERR(694.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMICROSCO42CBS index ^MCAR nonnull 694 {HEMATOLOGY_694.IEN} 0]]> 5 "B" {MICROSCOPIC_DESCRIPTION} {IEN} 0]]> data ^MCAR 694 {HEMATOLOGY_694.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.3216' Sub-File/Multiple Name: 'MILITARY SERVICE EPISODE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MILITARY_SERVICE_EPISODE_2_3216 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.961105978 67178,44726.811633607 right MILITARY SERVICE EPISODE 2.3216 2.56 12/04/2024 12:25:26 1 1 IEN 1 FileMan Field Label: 'DATA LOCKED' FileMan Field Number: '.07' When a military service episode is sent from HEC, the Data Locked field will be set to '1' (YES). The data in the military service episode can no longer be changed or deleted. %Library.EnumString 7 DATA_LOCKED FileMan Field Label: 'FUTURE DISCHARGE DATE' FileMan Field Number: '.08' The Future Discharge Date (FDD) is the date that an active duty service member is expected to be discharged. This date is controlled in VistA by the Enrollment Service (ES) and cannot be edited within VistA. %Library.FilemanDate 8 FUTURE_DISCHARGE_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBMILITARYSERVICEEPISODE23216 1 1 PATIENT_2 FileMan Field Label: 'REASON FOR EARLY SEPARATION' FileMan Field Number: '.09' The Reason For Early Separation explains why a service member was discharged early, and displays if it was due to disability, hardship or early out reason. Reason for Early Separation for the patient is updated from the Health Eligibility Center (HEC) Enrollment System; the data will be locked and cannot be edited or deleted. Only Military Service Episodes that are sent from the HEC can have a Reason for Early Separation. %Library.String 9 REASON_FOR_EARLY_SEPARATION FileMan Field Label: 'SERVICE COMPONENT' FileMan Field Number: '.04' For this veteran applicant, enter the military service component for this episode of military service. If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted. NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE. %Library.EnumString 5 SERVICE_COMPONENT FileMan Field Label: 'SERVICE ENTRY DATE' FileMan Field Number: '.01' For this veteran applicant, enter the date s/he commenced this episode of military service. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their first day of active duty for the episode. If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted. %Library.FilemanDate 1 3 SERVICE_ENTRY_DATE FileMan Field Label: 'SERVICE NUMBER' FileMan Field Number: '.05' Enter the service number for this episode of military service. %Library.String 6 SERVICE_NUMBER FileMan Field Label: 'SERVICE SEPARATION DATE' FileMan Field Number: '.02' For this veteran applicant, enter the date s/he ended this episode of military service. If the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the period entered should be the period of activation, so this date is their last day of active duty for this episode. If the military service episode has been sent from the Health Eligibility Center (HEC), the data will be locked and cannot be edited or deleted. %Library.FilemanDate 4 SERVICE_SEPARATION_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.3216,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SERVICE_ENTRY_DATE*C} FDA(2.3216,IENS,.01)={SERVICE_ENTRY_DATE} set:{SERVICE_SEPARATION_DATE*C} FDA(2.3216,IENS,.02)={SERVICE_SEPARATION_DATE} set:{SERVICE_COMPONENT*C} FDA(2.3216,IENS,.04)={SERVICE_COMPONENT} set:{SERVICE_NUMBER*C} FDA(2.3216,IENS,.05)={SERVICE_NUMBER} set:{DATA_LOCKED*C} FDA(2.3216,IENS,.07)={DATA_LOCKED} set:{FUTURE_DISCHARGE_DATE*C} FDA(2.3216,IENS,.08)={FUTURE_DISCHARGE_DATE} set:{REASON_FOR_EARLY_SEPARATION*C} FDA(2.3216,IENS,.09)={REASON_FOR_EARLY_SEPARATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.3216)") set %SkipFiling=1 if $d(%FMERR(2.3216,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.3216,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMILITARYSC92S index ^DPT nonnull {PATIENT_2.IEN} 0]]> .3216 "B" {SERVICE_ENTRY_DATE} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .3216 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 7 "^" 0 8 "^" 0 9 "^" 0 4 "^" 0 1 "^" 0 5 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '450.0632' Sub-File/Multiple Name: 'MI REVIEW GROUP' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MI_REVIEW_GROUP_450_0632 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.958796413 67178,44726.90126898 right MI REVIEW GROUP 450.0632 2.56 12/04/2024 12:25:26 1 1 IEN 1 FileMan Field Label: 'DATE ASSIGNED' FileMan Field Number: '.02' This field contains the date a review group was assigned to an employee. %Library.FilemanDate 3 DATE_ASSIGNED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PAID EMPLOYEE) VALIP.prosthetic.fm2cw.PAIDEMPLOYEE450 parent SUBMIREVIEWGROUP4500632 1 1 PAID_EMPLOYEE_450 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PAID_EMPLOYEE_450},"||"):-1:1 { set DA($i(c))=$p({PAID_EMPLOYEE_450},"||",i) } set DIK="^PRSPC("_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_ASSIGNED*C} FDA(450.0632,IENS,.02)={DATE_ASSIGNED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(450.0632)") set %SkipFiling=1 if $d(%FMERR(450.0632,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(450.0632,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMIREVIEWE282S data ^PRSPC {PAID_EMPLOYEE_450.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 5 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '445.011' Sub-File/Multiple Name: 'MIS COSTING SECTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MIS_COSTING_SECTION_445_011 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.538288693 67178,44726.857027176 right MIS COSTING SECTION 445.011 2.56 12/04/2024 12:25:26 1 1 IEN 1 SERVICESECTION_49]]> MISCOSTINGSECTION VALIP.prosthetic.fm2cw.SERVICESECTION49 FKey_MIS_COSTING_SECTION Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBMISCOSTINGSECTION445011 1 1 GENERIC_INVENTORY_445 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MIS COSTING SECTION' FileMan Field Number: '.01' This field is used to generate a cost accounting report for expendable supplies distribution. The Usage/Distribution History file (446) keeps total dollars by Cost Center, whenever items are distributed from a Cost Center, to a location that will in turn distribute the supplies to an MIS Service/Section. The Cost Accounting Report allocates the total dollar amount by MIS costing section within cost center. The user enters MIS costing sections to each such location, along with the % of the dollar total to be apportioned to each section. The percentages should not total more than 100%. The MIS costing sections must be set up in the service/section file by your site manager (file 49). VALIP.prosthetic.fm2cw.SERVICESECTION49 1 3 MIS_COSTING_SECTION NAME Enter Service or Section name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MIS_COSTING_SECTION_445_011 where %ID=:id) set {MIS_COSTING_SECTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MIS_COSTING_SECTION_NAME 1 FileMan Field Label: '% OF COSTS TO BE APPLIED' FileMan Field Number: '1' This is the percentage of costs allocated to a MIS costing section. %Library.Numeric 4 OF_COSTS_TO_BE_APPLIED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MIS_COSTING_SECTION*C} FDA(445.011,IENS,.01)={MIS_COSTING_SECTION} set:{OF_COSTS_TO_BE_APPLIED*C} FDA(445.011,IENS,1)={OF_COSTS_TO_BE_APPLIED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.011)") set %SkipFiling=1 if $d(%FMERR(445.011,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.011,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMISCOSTI757AS index ^PRCP nonnull 445 {GENERIC_INVENTORY_445.IEN} 0]]> 3 "B" {MIS_COSTING_SECTION} {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.13' Sub-File/Multiple Name: 'MODIFIER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MODIFIER_699_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.191499203 67178,44726.943354585 right MODIFIER 699.13 2.56 12/04/2024 12:25:26 1 1 IEN 1 MODIFIER_699_57]]> MODIFIER VALIP.prosthetic.fm2cw.MODIFIER69957 FKey_MODIFIER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MODIFIER' FileMan Field Number: '.01' This field identifies a specific adjective used to modify the Gross descriptor. VALIP.prosthetic.fm2cw.MODIFIER69957 1 3 MODIFIER NAME This field identifies an adjective list which modifies or enhances the gross for GI and Pulmonary Endoscopic procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_MODIFIER_699_13 where %ID=:id) set {MODIFIER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MODIFIER_NAME 1 Relationship to parent (file name LOCATION EVALUATED) VALIP.prosthetic.fm2cw.SUBLOCATIONEVALUATED69901 parent SUBMODIFIER69913 1 1 SUB_LOCATION_EVALUATED_699_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_LOCATION_EVALUATED_699_01},"||"):-1:1 { set DA($i(c))=$p({SUB_LOCATION_EVALUATED_699_01},"||",i) } set DIK="^MCAR(699,"_DA(2)_",30,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MODIFIER*C} FDA(699.13,IENS,.01)={MODIFIER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.13)") set %SkipFiling=1 if $d(%FMERR(699.13,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.13,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMODIFIER4347S index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 30 {SUB_LOCATION_EVALUATED_699_01.IEN} 0]]> 1 "B" {MODIFIER} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 30 {SUB_LOCATION_EVALUATED_699_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 1 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '44.07' Sub-File/Multiple Name: 'MONDAY TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MONDAY_TEMPLATE_44_07 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.963221549 67178,44726.987625366 right MONDAY TEMPLATE 44.07 2.56 12/04/2024 12:25:26 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBMONDAYTEMPLATE4407 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIMIT DATE' FileMan Field Number: '.01' The pattern stored at this date is applicable for Mondays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Monday when appointments may be made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Mondays from the previous entry date. %Library.Numeric 1 3 LIMIT_DATE FileMan Field Label: 'MASTER PATTERN' FileMan Field Number: '1' Master pattern set up by user for clinic for Mondays. %Library.String 1 5 s {MASTER_PATTERN}=$e({NODE_1},1,80) 1 MASTER_PATTERN Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"T1",{IEN},1)) 1 NODE_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LIMIT_DATE*C} FDA(44.07,IENS,.01)={LIMIT_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.07)") set %SkipFiling=1 if $d(%FMERR(44.07,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.07,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMONDAYTE4678S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T1" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.41' Sub-File/Multiple Name: 'MONITORS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_MONITORS_130_41 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.968023385 67178,44727.030374283 right MONITORS 130.41 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBMONITORS13041 1 1 SURGERY_130 FileMan Field Label: 'TIME INSTALLED' FileMan Field Number: '1' Time Applied This is the time that the monitor was applied to the patient. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanDate 3 TIME_INSTALLED FileMan Field Label: 'TIME REMOVED' FileMan Field Number: '2' Time Removed This is the date and time that the monitor was removed from the patient. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanTimeStamp 4 TIME_REMOVED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",27,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TIME_INSTALLED*C} FDA(130.41,IENS,1)={TIME_INSTALLED} set:{TIME_REMOVED*C} FDA(130.41,IENS,2)={TIME_REMOVED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.41)") set %SkipFiling=1 if $d(%FMERR(130.41,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.41,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBMONITORS4AB0S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 27 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '200.005' Sub-File/Multiple Name: 'NETWORK ADDRESS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_NETWORK_ADDRESS_200_005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.991113666 67178,44727.073283732 right NETWORK ADDRESS 200.005 2.56 12/04/2024 12:25:27 1 1 IEN 1 %Library.String 16 ADMINISTRATIVE_DOMAIN FileMan Field Label: 'APPLICATION ENTITY' FileMan Field Number: '7' The 'Application Entity' field is the name of a piece of software that will receive and process any messages it receives. %Library.String 14 APPLICATION_ENTITY FileMan Field Label: 'COUNTRY' FileMan Field Number: '4' All X.400 addresses require a 'country'. If no country is known this system will not deliver the mail. As of 11/90 'US' was the only valid country. SMTP addresses such as 'name@domain' where domain ends with such strings as '.EDU' need no country. %Library.EnumString 7 COUNTRY FileMan Field Label: 'GENERATION' FileMan Field Number: '3' The generation of the recipient is a suffix that further identifies him. Common strings used as such suffixes are: 'junior', 'senior', 'III'. %Library.String 6 GENERATION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LOCALITY' FileMan Field Number: '6' %Library.String 13 LOCALITY FileMan Field Label: 'NETWORK ADDRESS FIRST NAME' FileMan Field Number: '1' The recipient's first name should be entered into this field. %Library.String 4 NETWORK_ADDRESS_FIRST_NAME FileMan Field Label: 'NETWORK ADDRESS LASTNAME' FileMan Field Number: '.01' This is the last name of the user. %Library.String 1 3 NETWORK_ADDRESS_LASTNAME Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBNETWORKADDRESS200005 1 1 NEW_PERSON_200 FileMan Field Label: 'ORGANIZATION' FileMan Field Number: '5' If you are filling in this field for an X.400 address, it is a standard field. If, however, you are filling in this field for an SMTP address, you must fill in the third level of the domain. For example, the third level of the domain 'SILVER.AADOMAIN.EXT' is the string after the second "." starting from the right. 'GOV' is the first. 'VA' is the second. 'SILVER' is the fourth level. %Library.String 8 ORGANIZATION FileMan Field Label: 'ORGANIZATIONAL UNIT sub0' FileMan Field Number: '5.1' This field contains the 'Orgainzational Unit' of the address if it is the address of an X.400 recipient. IF it is the address of an SMTP recipient, this is the FOURTH LEVEL NAME of the DOMAIN. See the ORGANIZATION field for a description of domain levels of SMTP domains. %Library.String 9 ORGANIZATIONAL_UNIT_SUB0 FileMan Field Label: 'ORGANIZATIONAL UNIT sub1' FileMan Field Number: '5.2' The Organizational Unit field of X.400 recipients is infinitely repeating. This system will only be able to handle 4 levels of Organizational Units. SMTP domains also have levels. Each Organizational Unit 'subn' field is a deeper definition (and level) of the SMTP domain. 'Sub1' is the fift level of the domain field. 'Sub2' is the sixth level. 'Sub3' is the seventh. See the description of the ORGANIZATION field for further information on levels of SMTP domains. %Library.String 10 ORGANIZATIONAL_UNIT_SUB1 FileMan Field Label: 'ORGANIZATIONAL UNIT sub2' FileMan Field Number: '5.3' See the description of the 'ORGANIZATIONAL UNIT sub1' field for further information. %Library.String 11 ORGANIZATIONAL_UNIT_SUB2 FileMan Field Label: 'ORGANIZATIONAL UNIT sub3' FileMan Field Number: '5.4' See the description of the 'ORGANIZATIONAL UNIT SUB1' field for further information. %Library.String 12 ORGANIZATIONAL_UNIT_SUB3 FileMan Field Label: 'PRIVATE ADMINISTRATIVE DOMAIN' FileMan Field Number: '98' For X.400 addresses this field is standard. For mapping into the SMTP mail system (MailMan is an SMTP mail system.), this field is filled in with a special string. 'DHCP' will be interpreted as ".DOMAIN" for all Department of Veterans' Affairs SMTP systems. If the address does have "DHCP' in this field, MailMan will try to deliver it to a VA site. If the address has anything else, MailMan will try to deliver to an X.400 system as of 11/90. Later there may be additional special PRMDs. %Library.String 15 PRIVATE_ADMINISTRATIVE_DOMAIN SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 17 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'X.400 USER ID' FileMan Field Number: '2' Enter a string that uniquely identifies the user at the remote system. %Library.String 5 X_400_USER_ID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",500,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{NETWORK_ADDRESS_LASTNAME*C} FDA(200.005,IENS,.01)={NETWORK_ADDRESS_LASTNAME} set:{NETWORK_ADDRESS_FIRST_NAME*C} FDA(200.005,IENS,1)={NETWORK_ADDRESS_FIRST_NAME} set:{X_400_USER_ID*C} FDA(200.005,IENS,2)={X_400_USER_ID} set:{GENERATION*C} FDA(200.005,IENS,3)={GENERATION} set:{COUNTRY*C} FDA(200.005,IENS,4)={COUNTRY} set:{ORGANIZATION*C} FDA(200.005,IENS,5)={ORGANIZATION} set:{ORGANIZATIONAL_UNIT_SUB0*C} FDA(200.005,IENS,5.1)={ORGANIZATIONAL_UNIT_SUB0} set:{ORGANIZATIONAL_UNIT_SUB1*C} FDA(200.005,IENS,5.2)={ORGANIZATIONAL_UNIT_SUB1} set:{ORGANIZATIONAL_UNIT_SUB2*C} FDA(200.005,IENS,5.3)={ORGANIZATIONAL_UNIT_SUB2} set:{ORGANIZATIONAL_UNIT_SUB3*C} FDA(200.005,IENS,5.4)={ORGANIZATIONAL_UNIT_SUB3} set:{LOCALITY*C} FDA(200.005,IENS,6)={LOCALITY} set:{APPLICATION_ENTITY*C} FDA(200.005,IENS,7)={APPLICATION_ENTITY} set:{PRIVATE_ADMINISTRATIVE_DOMAIN*C} FDA(200.005,IENS,98)={PRIVATE_ADMINISTRATIVE_DOMAIN} set:{ADMINISTRATIVE_DOMAIN*C} FDA(200.005,IENS,99)={ADMINISTRATIVE_DOMAIN} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.005)") set %SkipFiling=1 if $d(%FMERR(200.005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBNETWORKA11D4S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 500 "B" {NETWORK_ADDRESS_LASTNAME} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 500 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 8 "^" 0 7 "^" 0 5 "^" 0 4 "^" 0 6 "^" 0 2 "^" 0 1 "^" 1 1 "^" 1 2 "^" 1 3 "^" 1 4 "^" 1 5 "^" 0 9 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '200.5321' Sub-File/Multiple Name: 'NEW DEA #'S' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_NEW_DEA_S_200_5321 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.993884841 67178,44727.121168301 right NEW DEA #'S 200.5321 2.56 12/04/2024 12:25:27 1 1 IEN 1 DEA_NUMBERS_8991_9]]> DEAPOINTER VALIP.prosthetic.fm2cw.DEANUMBERS89919 FKey_DEA_POINTER FileMan Field Label: 'DEA NUMBER' FileMan Field Number: '.01' This field is used to enter the provider's Drug Enforcement Administration (DEA) number(s). Enter the DEA number as two upper case letters followed by 7 digits. e.g., AA1234567. %Library.String 1 3 DEA_NUMBER FileMan Field Label: 'DEA POINTER' FileMan Field Number: '.03' This pointer field points to the DEA NUMBERS FILE #8991.9 that contains the provider demographics and controlled substance schedule permissions. Enter the DEA number as two upper case letters followed by 7 digits, e.g., AA1234567. VALIP.prosthetic.fm2cw.DEANUMBERS89919 5 DEA_POINTER DEA NUMBER This field is used to enter the providers' Drug Enforcement Administration (DEA) number. Enter the DEA number as two upper case letters followed by 7 digits. e.g., AA1234567.]]> %Library.String 1 DEA_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_NEW_DEA_S_200_5321 where %ID=:id) set {DEA_POINTER_DEA_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 DEA_POINTER_DEA_NUMBER 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'INDIVIDUAL DEA SUFFIX' FileMan Field Number: '.02' This is the individual DEA suffix related to an institutional DEA number. This field is required if the DEA is an institutional DEA number. %Library.String 4 INDIVIDUAL_DEA_SUFFIX Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBNEWDEAS2005321 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""PS4"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DEA_NUMBER*C} FDA(200.5321,IENS,.01)={DEA_NUMBER} set:{INDIVIDUAL_DEA_SUFFIX*C} FDA(200.5321,IENS,.02)={INDIVIDUAL_DEA_SUFFIX} set:{DEA_POINTER*C} FDA(200.5321,IENS,.03)={DEA_POINTER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.5321)") set %SkipFiling=1 if $d(%FMERR(200.5321,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.5321,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBNEWDEAS2302ES index {DEA_NUMBER}'="" 1 ^VA conditional 200 {NEW_PERSON_200.IEN} 0]]> "PS4" "B" $$TRUNCATE({DEA_NUMBER},30)) {IEN} 0]]> index {DEA_NUMBER}'="" 1 ^VA conditional 200 "PS4" $$TRUNCATE({DEA_NUMBER},30)) {NEW_PERSON_200.IEN} 0]]> {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "PS4" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.59' Sub-File/Multiple Name: 'NON-ENDOSCOPIC PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_NONENDOSCOPIC_PROCEDURE_699_59 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44744.996076618 67178,44727.166106379 right NON-ENDOSCOPIC PROCEDURE 699.59 2.56 12/04/2024 12:25:27 1 1 IEN 1 NONENDOSCOPIC_PROCEDURE_699_88]]> NONENDOSCOPICPROCEDURE VALIP.prosthetic.fm2cw.NONENDOSCOPICPROCEDURE69988 FKey_NONENDOSCOPIC_PROCEDURE Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBNONENDOSCOPICPROCEDURE69959 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NON-ENDOSCOPIC PROCEDURE' FileMan Field Number: '.01' This field stores the procedure type for a non-endoscopic GI procedure. It is accessed by entering 'NON-ENDO' at the procedure prompt in the GI Endoscopy Enter/Edit. VALIP.prosthetic.fm2cw.NONENDOSCOPICPROCEDURE69988 1 3 NONENDOSCOPIC_PROCEDURE NAME This contains a list of GI non-Endoscopic procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_NONENDOSCOPIC_PROCEDURE_699_59 where %ID=:id) set {NONENDOSCOPIC_PROCEDURE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NONENDOSCOPIC_PROCEDURE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",18,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{NONENDOSCOPIC_PROCEDURE*C} FDA(699.59,IENS,.01)={NONENDOSCOPIC_PROCEDURE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.59)") set %SkipFiling=1 if $d(%FMERR(699.59,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.59,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBNONENDOSB0B7S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 18 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.053' Sub-File/Multiple Name: 'NON-OPERATIVE OCCURRENCES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_NONOPERATIVE_OCCURRENCES_130_053 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.000149233 67178,44727.209817302 right NON-OPERATIVE OCCURRENCES 130.053 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'DATE OCCURRENCE NOTED' FileMan Field Number: '2' Date Occurrence was Noted This is the date that this occurrence was noted. The time of day can be entered, but is not required. %Library.FilemanTimeStamp 5 DATE_OCCURRENCE_NOTED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NON-OPERATIVE OCCURRENCES' FileMan Field Number: '.01' Non-Operative Occurrences This is a occurrence that is not related to a surgical procedure. If there are not any non-operative occurrences, this field should be left blank. Do not enter 'NO' or 'NONE'. %Library.String 1 3 NONOPERATIVE_OCCURRENCES FileMan Field Label: 'OCCURRENCE COMMENTS' FileMan Field Number: '4' Occurrence Comments This is information that may be helpful in documentation of the non-operative occurrence. %Library.String 7 OCCURRENCE_COMMENTS FileMan Field Label: 'OUTCOME TO DATE' FileMan Field Number: '1' Outcome to Date This is the outcome to date of this non-operative occurrence. %Library.EnumString 4 OUTCOME_TO_DATE Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBNONOPERATIVEOCCURRENCES130053 1 1 SURGERY_130 FileMan Field Label: 'TREATMENT INSTITUTED' FileMan Field Number: '3' Treatment Instituted This is the type of treatment instituted as a result of this non-operative occurrence. %Library.String 6 TREATMENT_INSTITUTED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",36,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{NONOPERATIVE_OCCURRENCES*C} FDA(130.053,IENS,.01)={NONOPERATIVE_OCCURRENCES} set:{OUTCOME_TO_DATE*C} FDA(130.053,IENS,1)={OUTCOME_TO_DATE} set:{DATE_OCCURRENCE_NOTED*C} FDA(130.053,IENS,2)={DATE_OCCURRENCE_NOTED} set:{TREATMENT_INSTITUTED*C} FDA(130.053,IENS,3)={TREATMENT_INSTITUTED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.053)") set %SkipFiling=1 if $d(%FMERR(130.053,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.053,""DIERR"") for details" RETURN } if {OCCURRENCE_COMMENTS*C} { set D0={RowId} kill wp if {OCCURRENCE_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({OCCURRENCE_COMMENTS},$c(13,10)) { set wp(i)=$p({OCCURRENCE_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.053,{IENS},4,,wproot,"%FMERR(130.053)") if $d(%FMERR(130.053,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.053)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBNONOPERAT687S index {NONOPERATIVE_OCCURRENCES}'="" 1 ^SRF conditional {SURGERY_130.IEN} 0]]> 36 "B" $$TRUNCATE({NONOPERATIVE_OCCURRENCES},30)) {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 36 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 1 1 new data,i,node set {OCCURRENCE_COMMENTS}="" merge data=^SRF({S1},36,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OCCURRENCE_COMMENTS}={OCCURRENCE_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '2005.04' Sub-File/Multiple Name: 'OBJECT GROUP' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OBJECT_GROUP_2005_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.023816248 67178,44727.254440318 right OBJECT GROUP 2005.04 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'DICOM IMAGE NUM' FileMan Field Number: '2' %Library.Numeric 4 DICOM_IMAGE_NUM FileMan Field Label: 'DICOM SERIES NUM' FileMan Field Number: '1' %Library.Numeric 3 DICOM_SERIES_NUM Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name IMAGE) VALIP.prosthetic.fm2cw.IMAGE2005 parent SUBOBJECTGROUP200504 1 1 IMAGE_2005 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({IMAGE_2005},"||"):-1:1 { set DA($i(c))=$p({IMAGE_2005},"||",i) } set DIK="^MAG(2005,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DICOM_SERIES_NUM*C} FDA(2005.04,IENS,1)={DICOM_SERIES_NUM} set:{DICOM_IMAGE_NUM*C} FDA(2005.04,IENS,2)={DICOM_IMAGE_NUM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.04)") set %SkipFiling=1 if $d(%FMERR(2005.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2005.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOBJECTGROF97S data ^MAG 2005 {IMAGE_2005.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '445.13' Sub-File/Multiple Name: 'ON-DEMAND AUDIT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ONDEMAND_AUDIT_445_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.64345336 67178,44727.297397153 right ON-DEMAND AUDIT 445.13 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'DATE/TIME OF CHANGE' FileMan Field Number: '.01' This field stores the date/time that a user changed the On-Demand Setting of an item in the inventory. Only settings from or to 'Yes' will be captured as changes from null to NO or No to null do not move an item into or out of an On-Demand status. %Library.FilemanTimeStamp 1 3 DATETIME_OF_CHANGE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NEW ON-DEMAND SETTING' FileMan Field Number: '3' This field will show what the user changed the On-Demand Setting for that item to be. %Library.EnumString 5 NEW_ONDEMAND_SETTING FileMan Field Label: 'REASON FOR CHANGE' FileMan Field Number: '2' Anytime the On-Demand status of an item is changed, the user must specify why the change was made. This field will store that reason. %Library.String 4 REASON_FOR_CHANGE Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBONDEMANDAUDIT44513 1 1 SUB_INVENTORY_ITEM_445_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATETIME_OF_CHANGE*C} FDA(445.13,IENS,.01)={DATETIME_OF_CHANGE} set:{REASON_FOR_CHANGE*C} FDA(445.13,IENS,2)={REASON_FOR_CHANGE} set:{NEW_ONDEMAND_SETTING*C} FDA(445.13,IENS,3)={NEW_ONDEMAND_SETTING} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.13)") set %SkipFiling=1 if $d(%FMERR(445.13,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.13,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBONDEMAND9765S index ^PRCP nonnull 445 {GENERIC_INVENTORY_445.IEN} 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} 0]]> 10 "B" {DATETIME_OF_CHANGE} {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 10 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 "^" 0 4 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '445.027' Sub-File/Multiple Name: 'ON-DEMAND USERS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ONDEMAND_USERS_445_027 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.538818601 67178,44727.341631244 right ON-DEMAND USERS 445.027 2.56 12/04/2024 12:25:27 1 1 IEN 1 NEW_PERSON_200]]> ONDEMANDUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ONDEMAND_USER Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBONDEMANDUSERS445027 1 1 GENERIC_INVENTORY_445 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ON-DEMAND USER' FileMan Field Number: '.01' This field will store the users who are able to change the On-Demand Setting for items in this inventory point. VALIP.prosthetic.fm2cw.NEWPERSON200 1 3 ONDEMAND_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_ONDEMAND_USERS_445_027 where %ID=:id) set {ONDEMAND_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ONDEMAND_USER_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",9,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ONDEMAND_USER*C} FDA(445.027,IENS,.01)={ONDEMAND_USER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.027)") set %SkipFiling=1 if $d(%FMERR(445.027,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.027,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBONDEMANDADDCS index ^PRCP nonnull 445 {GENERIC_INVENTORY_445.IEN} 0]]> 9 "B" {ONDEMAND_USER} {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 9 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '40.808' Sub-File/Multiple Name: 'OP VISIT DATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OP_VISIT_DATE_40_808 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.026393913 67178,44727.386309914 right OP VISIT DATE 40.808 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'ACTUAL OP VISITS [CUM]' FileMan Field Number: '.03' This field contains the actual number of cumulative outpatient visits for a medical center in a given fiscal year. %Library.Numeric 5 ACTUAL_OP_VISITS_CUM Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL CENTER DIVISION) VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 parent SUBOPVISITDATE40808 1 1 MEDICAL_CENTER_DIVISION_40_8 FileMan Field Label: 'OP VISIT DATE' FileMan Field Number: '.01' This is a date/time field (FM function) and represents the date/time of a specifie outpatient visit date/time associated with the medical center. | %Library.FilemanDate 1 3 OP_VISIT_DATE FileMan Field Label: 'PLANNED OP VISITS [CUM]' FileMan Field Number: '.02' This field contains the number of planned cumulative outpatient visits for a given medical center as defined by top management. %Library.Numeric 4 PLANNED_OP_VISITS_CUM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_CENTER_DIVISION_40_8},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_CENTER_DIVISION_40_8},"||",i) } set DIK="^DG(40.8,"_DA(1)_",""OP"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{OP_VISIT_DATE*C} FDA(40.808,IENS,.01)={OP_VISIT_DATE} set:{PLANNED_OP_VISITS_CUM*C} FDA(40.808,IENS,.02)={PLANNED_OP_VISITS_CUM} set:{ACTUAL_OP_VISITS_CUM*C} FDA(40.808,IENS,.03)={ACTUAL_OP_VISITS_CUM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(40.808)") set %SkipFiling=1 if $d(%FMERR(40.808,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(40.808,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOPVISITD3E9FS index ^DG nonnull 40.8 {MEDICAL_CENTER_DIVISION_40_8.IEN} 0]]> "OP" "B" {OP_VISIT_DATE} {IEN} 0]]> data ^DG 40.8 {MEDICAL_CENTER_DIVISION_40_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "OP" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '130.28' Sub-File/Multiple Name: 'OR CIRC SUPPORT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OR_CIRC_SUPPORT_130_28 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.032082825 67178,44727.473651164 right OR CIRC SUPPORT 130.28 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STATUS' FileMan Field Number: '3' Educational Status Enter the code corresponding to the educational preparation of the registered nurse assuming circulating role responsibilities. %Library.EnumString 3 STATUS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBORCIRCSUPPORT13028 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",19,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STATUS*C} FDA(130.28,IENS,3)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.28)") set %SkipFiling=1 if $d(%FMERR(130.28,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.28,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBORCIRCSU1B9FS data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 19 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '130.0647' Sub-File/Multiple Name: 'ORGANS TO BE TRANSPLANTED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ORGANS_TO_BE_TRANSPLANTED_130_0647 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.034682934 67178,44727.430366367 right ORGANS TO BE TRANSPLANTED 130.0647 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ORGANS TO BE TRANSPLANTED' FileMan Field Number: '.01' Organs to be Transplanted %Library.EnumString 1 3 ORGANS_TO_BE_TRANSPLANTED Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBORGANSTOBETRANSPLANTED1300647 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",63,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ORGANS_TO_BE_TRANSPLANTED*C} FDA(130.0647,IENS,.01)={ORGANS_TO_BE_TRANSPLANTED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0647)") set %SkipFiling=1 if $d(%FMERR(130.0647,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0647,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBORGANSTO2A90S index ^SRF nonnull {SURGERY_130.IEN} 0]]> 63 "B" {ORGANS_TO_BE_TRANSPLANTED} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 63 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.36' Sub-File/Multiple Name: 'OR SCRUB SUPPORT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OR_SCRUB_SUPPORT_130_36 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.051218493 67178,44727.516543287 right OR SCRUB SUPPORT 130.36 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STATUS' FileMan Field Number: '3' Educational Status This is the code corresponding to the educational preparation of the person assuming scrub role responsibilities. %Library.EnumString 3 STATUS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBORSCRUBSUPPORT13036 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",23,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STATUS*C} FDA(130.36,IENS,3)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.36)") set %SkipFiling=1 if $d(%FMERR(130.36,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.36,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBORSCRUBS3B9ES data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 23 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '691.74' Sub-File/Multiple Name: 'OTHER MEDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OTHER_MEDICATION_691_74 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.056856833 67178,44727.559448967 right OTHER MEDICATION 691.74 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'DOSE' FileMan Field Number: '1' This allows the user to enter the dosage of non-cardiac medicines that the patient was taking at the time of this procedure. %Library.String 4 DOSE Relationship to parent (file name EXERCISE TOLERANCE TEST) VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 parent SUBOTHERMEDICATION69174 1 1 EXERCISE_TOLERANCE_TEST_691_7 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'OTHER MEDICATION' FileMan Field Number: '.01' This field (multiple) contains the non-cardiac medicines that the patient was taking at the time of this procedure. %Library.String 1 3 OTHER_MEDICATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({EXERCISE_TOLERANCE_TEST_691_7},"||"):-1:1 { set DA($i(c))=$p({EXERCISE_TOLERANCE_TEST_691_7},"||",i) } set DIK="^MCAR(691.7,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{OTHER_MEDICATION*C} FDA(691.74,IENS,.01)={OTHER_MEDICATION} set:{DOSE*C} FDA(691.74,IENS,1)={DOSE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.74)") set %SkipFiling=1 if $d(%FMERR(691.74,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.74,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOTHERMEDD966S data ^MCAR 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.24' Sub-File/Multiple Name: 'OTHER PERSONS IN OR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OTHER_PERSONS_IN_OR_130_24 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.059402219 67178,44727.602831353 right OTHER PERSONS IN OR 130.24 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'OTHER PERSONS IN OR' FileMan Field Number: '.01' Other Persons in O.R. These are the names of other persons not scrubbed, or otherwise identified, present in the operating room. %Library.String 1 3 OTHER_PERSONS_IN_OR Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBOTHERPERSONSINOR13024 1 1 SURGERY_130 FileMan Field Label: 'TITLE/ORGANIZATION' FileMan Field Number: '1' Title and Organization This is the title and/or organization of this person. Since your answer may be up to 60 characters, you may prefer to enter a reason for this person being in the operating room. %Library.String 4 TITLEORGANIZATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",32,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{OTHER_PERSONS_IN_OR*C} FDA(130.24,IENS,.01)={OTHER_PERSONS_IN_OR} set:{TITLEORGANIZATION*C} FDA(130.24,IENS,1)={TITLEORGANIZATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.24)") set %SkipFiling=1 if $d(%FMERR(130.24,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.24,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOTHERPERS6BAS index {OTHER_PERSONS_IN_OR}'="" 1 ^SRF conditional {SURGERY_130.IEN} 0]]> 32 "B" $$TRUNCATE({OTHER_PERSONS_IN_OR},30)) {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 32 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '130.18' Sub-File/Multiple Name: 'OTHER POSTOP DIAGS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OTHER_POSTOP_DIAGS_130_18 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.065063362 67178,44727.646122632 right OTHER POSTOP DIAGS 130.18 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'AGENT ORANGE EXPOSURE' FileMan Field Number: '5' Treatment related to Agent Orange Exposure (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Agent Orange Exposure. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 7 AGENT_ORANGE_EXPOSURE FileMan Field Label: 'COMBAT VET' FileMan Field Number: '10' Treatment related to Combat (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Combat. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 12 COMBAT_VET FileMan Field Label: 'DIAGNOSIS COMMENTS' FileMan Field Number: '2' Diagnosis Comments These are comments related to the additional postoperative diagnosis. %Library.String 5 DIAGNOSIS_COMMENTS FileMan Field Label: 'HEAD AND/OR NECK CANCER' FileMan Field Number: '8' Treatment related to Head and/or Neck Cancer (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Head and/or Neck Cancer. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 10 HEAD_ANDOR_NECK_CANCER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IONIZING RADIATION EXPOSURE' FileMan Field Number: '6' Treatment related to Ionizing Radiation Exposure (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Ionizing Radiation Exposure. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 8 IONIZING_RADIATION_EXPOSURE FileMan Field Label: 'MILITARY SEXUAL TRAUMA' FileMan Field Number: '7' Treatment related to Military Sexual Trauma (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Military Sexual Trauma. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 9 MILITARY_SEXUAL_TRAUMA FileMan Field Label: 'OTHER POSTOP DIAGS' FileMan Field Number: '.01' Other Postoperative Diagnosis This is the name of a postoperative diagnosis other than the principal postoperative diagnosis. %Library.String 1 3 OTHER_POSTOP_DIAGS FileMan Field Label: '*PAIRED ORGANS' FileMan Field Number: '1' This is the code corresponding to the side of the body related to this preoperative diagnosis, if applicable. This field is marked for deletion. %Library.EnumString 4 PAIRED_ORGANS FileMan Field Label: 'PROJ 112/SHAD' FileMan Field Number: '11' Treatment related to PROJ 112/SHAD (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to PROJ 112/SHAD. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 13 PROJ_112SHAD FileMan Field Label: 'SERVICE CONNECTED' FileMan Field Number: '4' Treatment related to Service Connected condition (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a service connected problem. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 6 SERVICE_CONNECTED FileMan Field Label: 'SOUTHWEST ASIA CONDITIONS' FileMan Field Number: '9' Treatment related to service in SW Asia (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to service in SW Asia. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 11 SOUTHWEST_ASIA_CONDITIONS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBOTHERPOSTOPDIAGS13018 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",15,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{OTHER_POSTOP_DIAGS*C} FDA(130.18,IENS,.01)={OTHER_POSTOP_DIAGS} set:{PAIRED_ORGANS*C} FDA(130.18,IENS,1)={PAIRED_ORGANS} set:{SERVICE_CONNECTED*C} FDA(130.18,IENS,4)={SERVICE_CONNECTED} set:{AGENT_ORANGE_EXPOSURE*C} FDA(130.18,IENS,5)={AGENT_ORANGE_EXPOSURE} set:{IONIZING_RADIATION_EXPOSURE*C} FDA(130.18,IENS,6)={IONIZING_RADIATION_EXPOSURE} set:{MILITARY_SEXUAL_TRAUMA*C} FDA(130.18,IENS,7)={MILITARY_SEXUAL_TRAUMA} set:{HEAD_ANDOR_NECK_CANCER*C} FDA(130.18,IENS,8)={HEAD_ANDOR_NECK_CANCER} set:{SOUTHWEST_ASIA_CONDITIONS*C} FDA(130.18,IENS,9)={SOUTHWEST_ASIA_CONDITIONS} set:{COMBAT_VET*C} FDA(130.18,IENS,10)={COMBAT_VET} set:{PROJ_112SHAD*C} FDA(130.18,IENS,11)={PROJ_112SHAD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.18)") set %SkipFiling=1 if $d(%FMERR(130.18,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.18,""DIERR"") for details" RETURN } if {DIAGNOSIS_COMMENTS*C} { set D0={RowId} kill wp if {DIAGNOSIS_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({DIAGNOSIS_COMMENTS},$c(13,10)) { set wp(i)=$p({DIAGNOSIS_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.18,{IENS},2,,wproot,"%FMERR(130.18)") if $d(%FMERR(130.18,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.18)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOTHERPOS4423S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 15 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 2 2 "^" 2 7 1 new data,i,node set {DIAGNOSIS_COMMENTS}="" merge data=^SRF({S1},15,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DIAGNOSIS_COMMENTS}={DIAGNOSIS_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 2 5 "^" 2 3 "^" 2 4 "^" 0 1 "^" 0 2 "^" 2 8 "^" 2 1 "^" 2 6 Generated class for FileMan Sub-File/Multiple Number: '130.17' Sub-File/Multiple Name: 'OTHER PREOP DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OTHER_PREOP_DIAGNOSIS_130_17 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.076899682 67178,44727.692658477 right OTHER PREOP DIAGNOSIS 130.17 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'DIAGNOSIS COMMENTS' FileMan Field Number: '2' Diagnosis Comments These are comments related to the additional preoperative diagnosis. %Library.String 5 DIAGNOSIS_COMMENTS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'OTHER PREOP DIAGNOSIS' FileMan Field Number: '.01' Additional Preoperative Diagnosis This is the name of an additional preoperative diagnosis, not provided in the principal preoperative diagnosis. %Library.String 1 3 OTHER_PREOP_DIAGNOSIS FileMan Field Label: '*PAIRED ORGAN' FileMan Field Number: '1' This is the code corresponding to the side of the body related to this preoperative diagnosis, if applicable. %Library.EnumString 4 PAIRED_ORGAN Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBOTHERPREOPDIAGNOSIS13017 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",14,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{OTHER_PREOP_DIAGNOSIS*C} FDA(130.17,IENS,.01)={OTHER_PREOP_DIAGNOSIS} set:{PAIRED_ORGAN*C} FDA(130.17,IENS,1)={PAIRED_ORGAN} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.17)") set %SkipFiling=1 if $d(%FMERR(130.17,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.17,""DIERR"") for details" RETURN } if {DIAGNOSIS_COMMENTS*C} { set D0={RowId} kill wp if {DIAGNOSIS_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({DIAGNOSIS_COMMENTS},$c(13,10)) { set wp(i)=$p({DIAGNOSIS_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.17,{IENS},2,,wproot,"%FMERR(130.17)") if $d(%FMERR(130.17,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.17)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOTHERPRE1E1CS data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 14 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 1 new data,i,node set {DIAGNOSIS_COMMENTS}="" merge data=^SRF({S1},14,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DIAGNOSIS_COMMENTS}={DIAGNOSIS_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '130.16' Sub-File/Multiple Name: 'OTHER PROCEDURES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OTHER_PROCEDURES_130_16 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.085132792 67178,44727.736327012 right OTHER PROCEDURES 130.16 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'COMPLETED' FileMan Field Number: '2' Procedure Complete (Y/N) This indicates whether this procedure was completed. %Library.EnumString 5 COMPLETED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'OTHER PROCEDURE' FileMan Field Number: '.01' Other Procedure (Same Specialty) VASQIP Definition (2010): An additional operative procedure performed by the same surgical team (i.e., the same specialty/service) under the same anesthetic which has a CPT code different from that of the Principal Operative Procedure (e.g., a splenectomy performed in the course of a cholecystectomy). This field should be verified. If need be, report discrepancies to the official CPT coder for surgery. %Library.String 1 3 OTHER_PROCEDURE FileMan Field Label: 'PROCEDURE CODE COMMENTS' FileMan Field Number: '1.5' Operation Code Comments These are comments related to this procedure. %Library.String 4 PROCEDURE_CODE_COMMENTS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBOTHERPROCEDURES13016 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",13,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{OTHER_PROCEDURE*C} FDA(130.16,IENS,.01)={OTHER_PROCEDURE} set:{COMPLETED*C} FDA(130.16,IENS,2)={COMPLETED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.16)") set %SkipFiling=1 if $d(%FMERR(130.16,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.16,""DIERR"") for details" RETURN } if {PROCEDURE_CODE_COMMENTS*C} { set D0={RowId} kill wp if {PROCEDURE_CODE_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({PROCEDURE_CODE_COMMENTS},$c(13,10)) { set wp(i)=$p({PROCEDURE_CODE_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.16,{IENS},1.5,,wproot,"%FMERR(130.16)") if $d(%FMERR(130.16,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.16)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOTHERPROD721S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 13 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 1 1 new data,i,node set {PROCEDURE_CODE_COMMENTS}="" merge data=^SRF({S1},13,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PROCEDURE_CODE_COMMENTS}={PROCEDURE_CODE_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} Generated class for FileMan Sub-File/Multiple Number: '130.23' Sub-File/Multiple Name: 'OTHER SCRUBBED ASSISTANTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OTHER_SCRUBBED_ASSISTANTS_130_23 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.08573524 67178,44727.780420203 right OTHER SCRUBBED ASSISTANTS 130.23 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'COMMENTS' FileMan Field Number: '1' Comments These are comments related to this person that may be useful in documentation of this case. %Library.String 3 COMMENTS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBOTHERSCRUBBEDASSISTANTS13023 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",28,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.23)") set %SkipFiling=1 if $d(%FMERR(130.23,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.23,""DIERR"") for details" RETURN } if {COMMENTS*C} { set D0={RowId} kill wp if {COMMENTS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.23,{IENS},1,,wproot,"%FMERR(130.23)") if $d(%FMERR(130.23,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.23)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOTHERSCRAD62S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 28 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 1 new data,i,node set {COMMENTS}="" merge data=^SRF({S1},28,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS}={COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} Generated class for FileMan Sub-File/Multiple Number: '445.09' Sub-File/Multiple Name: 'OUTSTANDING REQUEST' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_OUTSTANDING_REQUEST_445_09 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.663957146 67178,44727.82401466 right OUTSTANDING REQUEST 445.09 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'QTY.ORDERED UNIT OF ISSUE' FileMan Field Number: '1' This is the quantity of an item ordered, in unit of issue. %Library.Numeric 3 QTY_ORDERED_UNIT_OF_ISSUE Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBOUTSTANDINGREQUEST44509 1 1 SUB_INVENTORY_ITEM_445_01 FileMan Field Label: 'UNIT CONVERSION FACTOR' FileMan Field Number: '4' This is the value used to convert a unit of receipt into unit of issue. This number is automatically entered when a request is approved. %Library.Numeric 5 UNIT_CONVERSION_FACTOR FileMan Field Label: 'UNIT OF RECEIPT PACKAGE MULT.' FileMan Field Number: '3' This is the number of units of issue per unit of receipt. This number is automatically entered when a request is approved. %Library.Numeric 4 UNIT_OF_RECEIPT_PACKAGE_MULT_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",7,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{QTY_ORDERED_UNIT_OF_ISSUE*C} FDA(445.09,IENS,1)={QTY_ORDERED_UNIT_OF_ISSUE} set:{UNIT_OF_RECEIPT_PACKAGE_MULT_*C} FDA(445.09,IENS,3)={UNIT_OF_RECEIPT_PACKAGE_MULT_} set:{UNIT_CONVERSION_FACTOR*C} FDA(445.09,IENS,4)={UNIT_CONVERSION_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.09)") set %SkipFiling=1 if $d(%FMERR(445.09,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.09,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBOUTSTAND1F2BS data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 7 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 2 "^" 0 5 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '698.093' Sub-File/Multiple Name: 'PACING FAILURE (EKG)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PACING_FAILURE_EKG_698_093 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.102625947 67178,44727.867808646 right PACING FAILURE (EKG) 698.093 2.56 12/04/2024 12:25:27 1 1 IEN 1 FileMan Field Label: 'DATE OF FAILURE' FileMan Field Number: '1' This allows the user to enter the date of failure. %Library.FilemanTimeStamp 4 DATE_OF_FAILURE Relationship to parent (file name GENERATOR IMPLANT) VALIP.prosthetic.fm2cw.GENERATORIMPLANT698 parent SUBPACINGFAILUREEKG698093 1 1 GENERATOR_IMPLANT_698 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PACING FAILURE (EKG)' FileMan Field Number: '.01' This allows documentation of failures. %Library.EnumString 1 3 PACING_FAILURE_EKG SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERATOR_IMPLANT_698},"||"):-1:1 { set DA($i(c))=$p({GENERATOR_IMPLANT_698},"||",i) } set DIK="^MCAR(698,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PACING_FAILURE_EKG*C} FDA(698.093,IENS,.01)={PACING_FAILURE_EKG} set:{DATE_OF_FAILURE*C} FDA(698.093,IENS,1)={DATE_OF_FAILURE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.093)") set %SkipFiling=1 if $d(%FMERR(698.093,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(698.093,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPACINGFAE005S data ^MCAR 698 {GENERATOR_IMPLANT_698.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '690.07' Sub-File/Multiple Name: 'PACING INDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PACING_INDICATION_690_07 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.106280298 67178,44727.910951178 right PACING INDICATION 690.07 2.56 12/04/2024 12:25:27 1 1 IEN 1 INDICATION_694_1]]> PACINGINDICATION VALIP.prosthetic.fm2cw.INDICATION6941 FKey_PACING_INDICATION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL PATIENT) VALIP.prosthetic.fm2cw.MEDICALPATIENT690 parent SUBPACINGINDICATION69007 1 1 MEDICAL_PATIENT_690 FileMan Field Label: 'PACING INDICATION' FileMan Field Number: '.01' This field defines the medical rationale for electronic cardiac regulation. VALIP.prosthetic.fm2cw.INDICATION6941 1 3 PACING_INDICATION INDICATION This field contains a list of indications for procedures used by various modules and sub-modules of the medicine package.]]> %Library.String 1 INDICATION into :val from VALIP_prosthetic_fm2cw.SUB_PACING_INDICATION_690_07 where %ID=:id) set {PACING_INDICATION_INDICATION}=$select(SQLCODE=0:val,1:"")]]> 1 PACING_INDICATION_INDICATION 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_PATIENT_690},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_PATIENT_690},"||",i) } set DIK="^MCAR(690,"_DA(1)_",""P"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PACING_INDICATION*C} FDA(690.07,IENS,.01)={PACING_INDICATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(690.07)") set %SkipFiling=1 if $d(%FMERR(690.07,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(690.07,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPACINGIN862DS index ^MCAR nonnull 690 {MEDICAL_PATIENT_690.IEN} 0]]> "P" "B" {PACING_INDICATION} {IEN} 0]]> data ^MCAR 690 {MEDICAL_PATIENT_690.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "P" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '668.81' Sub-File/Multiple Name: 'PATIENT 2319' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PATIENT_2319_668_81 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.75469993 67178,44727.954205432 right PATIENT 2319 668.81 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETIC SUSPENSE) VALIP.prosthetic.fm2cw.PROSTHETICSUSPENSE668 parent SUBPATIENT231966881 1 1 PROSTHETIC_SUSPENSE_668 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_SUSPENSE_668},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_SUSPENSE_668},"||",i) } set DIK="^RMPR(668,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(668.81)") set %SkipFiling=1 if $d(%FMERR(668.81,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(668.81,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPATIENT2A09ES data ^RMPR 668 {PROSTHETIC_SUSPENSE_668.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '2.0361' Sub-File/Multiple Name: 'PATIENT ELIGIBILITIES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PATIENT_ELIGIBILITIES_2_0361 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.111174787 67178,44727.997325482 right PATIENT ELIGIBILITIES 2.0361 2.56 12/04/2024 12:25:27 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LONG ID' FileMan Field Number: '.03' This field contains the patient's long ID associated with the patient's ELIGIBILITY. For most eligibilities this is the Social Security Number. This field is triggered by the 'ELIGILBILTY(#.01)' field. It is user defined only if this eligibility's id format allows this user interaction as indicated by the 'PROMPT USER FOR ID?(#.02)' field of the 'IDENTIFICATION FORMAT(#8.1)' file. %Library.String 3 LONG_ID Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBPATIENTELIGIBILITIES20361 1 1 PATIENT_2 FileMan Field Label: 'SHORT ID' FileMan Field Number: '.04' This field contains the patient's short ID associated with the patient's ELIGIBILITY. For most eligibilities, this is the last four digits of the Social Security Number. This field is uneditable and triggered by the 'LONG ID(#.03)' field. %Library.String 4 SHORT_ID SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""E"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LONG_ID*C} FDA(2.0361,IENS,.03)={LONG_ID} set:{SHORT_ID*C} FDA(2.0361,IENS,.04)={SHORT_ID} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0361)") set %SkipFiling=1 if $d(%FMERR(2.0361,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0361,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPATIENTE9CC0S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "E" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '44.005' Sub-File/Multiple Name: 'PATTERN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PATTERN_44_005 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.115302259 67178,44728.040364477 right PATTERN 44.005 2.56 12/04/2024 12:25:28 1 1 IEN 1 FileMan Field Label: 'CURRENT AVAILABILITY' FileMan Field Number: '1' Current clinic availability. What slots are and are not available for specified clinic days. %Library.String 1 5 s {CURRENT_AVAILABILITY}=$e({NODE_1},1,90) 1 CURRENT_AVAILABILITY Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBPATTERN44005 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MAINTENANCE' FileMan Field Number: '2' Computed to update when slots are taken/restored when reviewing clinic pattern availability. %Library.String 1 6 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Y(2,1)=$S($D(^SC(D0,"ST",D1,1)):^(1),1:"") S X=$E(Y(2,1),1,70),X=$S(X["*":1,X["$":1,X["A":1,X["B":1,1:"") set {MAINTENANCE}=X 1 MAINTENANCE Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"ST",{IEN},1)) 1 NODE_1 FileMan Field Label: 'PATTERN DATE' FileMan Field Number: '.01' Date/time this particular clinic pattern was set up by user. %Library.FilemanDate 1 3 PATTERN_DATE FileMan Field Label: 'SPECIAL AVAILABILITY FLAG' FileMan Field Number: '3' This node's existence indicates there is a 'special' availability set up for this date and the master pattern for this date should be taken from the "OST" node with the same date, not the "T0"-"T6" master pattern nodes. %Library.String 7 SPECIAL_AVAILABILITY_FLAG SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""ST"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PATTERN_DATE*C} FDA(44.005,IENS,.01)={PATTERN_DATE} set:{SPECIAL_AVAILABILITY_FLAG*C} FDA(44.005,IENS,3)={SPECIAL_AVAILABILITY_FLAG} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.005)") set %SkipFiling=1 if $d(%FMERR(44.005,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.005,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPATTERN48871S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "ST" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 9 1 Generated class for FileMan Sub-File/Multiple Number: '82.131' Sub-File/Multiple Name: 'PDX' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PDX_82_131 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.128337742 67178,44728.084162567 right PDX 82.131 2.56 12/04/2024 12:25:28 1 1 IEN 1 Relationship to parent (file name DRG CC EXCLUSIONS) VALIP.prosthetic.fm2cw.DRGCCEXCLUSIONS8213 parent SUBPDX82131 1 1 DRG_CC_EXCLUSIONS_82_13 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({DRG_CC_EXCLUSIONS_82_13},"||"):-1:1 { set DA($i(c))=$p({DRG_CC_EXCLUSIONS_82_13},"||",i) } set DIK="^ICDCCEX("_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(82.131)") set %SkipFiling=1 if $d(%FMERR(82.131,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(82.131,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBPDX82131S data ^ICDCCEX {DRG_CC_EXCLUSIONS_82_13.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 1 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '19.396' Sub-File/Multiple Name: 'PERMITTED DEVICE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PERMITTED_DEVICE_19_396 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.13213723 67178,44728.126699993 right PERMITTED DEVICE 19.396 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBPERMITTEDDEVICE19396 1 1 OPTION_19 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",3.96,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.396)") set %SkipFiling=1 if $d(%FMERR(19.396,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.396,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPERMITTEFFDAS data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3.96 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '200.0351' Sub-File/Multiple Name: 'PERSONAL DIAGNOSES LIST' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PERSONAL_DIAGNOSES_LIST_200_0351 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.139087823 67178,44728.169822035 right PERSONAL DIAGNOSES LIST 200.0351 2.56 12/04/2024 12:25:28 1 1 IEN 1 ICD_DIAGNOSIS_80]]> DIAGNOSIS VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_DIAGNOSIS EXPRESSIONS_757_01]]> EXPRESSION VALIP.prosthetic.fm2cw.EXPRESSIONS75701 FKey_EXPRESSION FileMan Field Label: 'DIAGNOSIS' FileMan Field Number: '.01' A diagnosis in the provider's preferred list. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 1 3 DIAGNOSIS CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SUB_PERSONAL_DIAGNOSES_LIST_200_0351 where %ID=:id) set {DIAGNOSIS_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 DIAGNOSIS_CODE_NUMBER 1 FileMan Field Label: 'EXPRESSION' FileMan Field Number: '1' This is the diagnosis code's Lexicon expression as stored in the EXPRESSION file, file # 757.01. VALIP.prosthetic.fm2cw.EXPRESSIONS75701 4 EXPRESSION DISPLAYABLE TEXT This is the text which will be used to represent the expression (Major Concept, Synonym or Lexical Variant).]]> %Library.String 1 DISPLAYABLE_TEXT into :val from VALIP_prosthetic_fm2cw.SUB_PERSONAL_DIAGNOSES_LIST_200_0351 where %ID=:id) set {EXPRESSION_DISPLAYABLE_TEXT}=$select(SQLCODE=0:val,1:"")]]> 1 EXPRESSION_DISPLAYABLE_TEXT 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBPERSONALDIAGNOSESLIST2000351 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",351,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DIAGNOSIS*C} FDA(200.0351,IENS,.01)={DIAGNOSIS} set:{EXPRESSION*C} FDA(200.0351,IENS,1)={EXPRESSION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.0351)") set %SkipFiling=1 if $d(%FMERR(200.0351,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.0351,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPERSONAL7850S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 351 "B" {DIAGNOSIS} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 351 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.05' Sub-File/Multiple Name: 'PERSON CLASS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PERSON_CLASS_200_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.147205194 67178,44728.214371651 right PERSON CLASS 200.05 2.56 12/04/2024 12:25:28 1 1 IEN 1 PERSON_CLASS_8932_1]]> PERSONCLASS VALIP.prosthetic.fm2cw.PERSONCLASS89321 FKey_PERSON_CLASS FileMan Field Label: 'Effective Date' FileMan Field Number: '2' This field is trigger by adding a new person class. %Library.FilemanDate 4 EFFECTIVE_DATE FileMan Field Label: 'Expiration Date' FileMan Field Number: '3' This field is the date after which this class becomes inactive. This field must be not less than the EFFECTIVE DATE and not greater than the DATE INACTIVATED field(#4) of the Person Class entry in the PERSON CLASS file(#8932.1). It will get triggered if a new Person Class is entered or someone edits the field to inactivate the class. %Library.FilemanDate 5 EXPIRATION_DATE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBPERSONCLASS20005 1 1 NEW_PERSON_200 FileMan Field Label: 'Person Class' FileMan Field Number: '.01' This is a pointer to the Person class file. VALIP.prosthetic.fm2cw.PERSONCLASS89321 1 3 PERSON_CLASS PROVIDER TYPE This is Level I of NUCC's structure of the Provider Taxonomy.]]> %Library.String 1 PROVIDER_TYPE into :val from VALIP_prosthetic_fm2cw.SUB_PERSON_CLASS_200_05 where %ID=:id) set {PERSON_CLASS_PROVIDER_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 PERSON_CLASS_PROVIDER_TYPE 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""USC1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PERSON_CLASS*C} FDA(200.05,IENS,.01)={PERSON_CLASS} set:{EFFECTIVE_DATE*C} FDA(200.05,IENS,2)={EFFECTIVE_DATE} set:{EXPIRATION_DATE*C} FDA(200.05,IENS,3)={EXPIRATION_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.05)") set %SkipFiling=1 if $d(%FMERR(200.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPERSONCL7281S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "USC1" "AD" {EFFECTIVE_DATE} {IEN} 0]]> index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "USC1" "B" {PERSON_CLASS} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "USC1" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.0684' Sub-File/Multiple Name: 'PHARMACY ITEMS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PHARMACY_ITEMS_130_0684 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.151744819 67178,44728.259765199 right PHARMACY ITEMS 130.0684 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBPHARMACYITEMS1300684 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",62,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0684)") set %SkipFiling=1 if $d(%FMERR(130.0684,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0684,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPHARMACYAFA6S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 62 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '2.0534' Sub-File/Multiple Name: 'PH DATE/TIME UPDATED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PH_DATETIME_UPDATED_2_0534 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.158329264 67178,44728.30222915 right PH DATE/TIME UPDATED 2.0534 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBPHDATETIMEUPDATED20534 1 1 PATIENT_2 FileMan Field Label: 'PH?' FileMan Field Number: '1' Field will be stuffed with the CURRENT PURPLE HEART INDICATOR at the date/time of the update. %Library.EnumString 4 PH FileMan Field Label: 'PH DATE/TIME UPDATED' FileMan Field Number: '.01' This field is automatically stuffed with the current date and time whenever the Purple Heart data is updated. This may be done initially by the local site, then subsequently by HEC. %Library.FilemanTimeStamp 1 3 PH_DATETIME_UPDATED FileMan Field Label: 'PH REMARKS' FileMan Field Number: '3' Field will be stuffed with CURRENT PURPLE HEART REMARKS field, if any, at time of update. %Library.EnumString 6 PH_REMARKS FileMan Field Label: 'PH STATUS' FileMan Field Number: '2' Field will be stuffed with CURRENT PURPLE HEART STATUS (if any) at date/time of the update. %Library.EnumString 5 PH_STATUS FileMan Field Label: 'PH USER' FileMan Field Number: '4' Field will be stuffed with the user who updated PH information. If local user, then the value will be the free text user name from the NEW PERSON file. If updated by the HEC, then the value will be "HEC User". %Library.String 7 PH_USER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""PH"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PH_DATETIME_UPDATED*C} FDA(2.0534,IENS,.01)={PH_DATETIME_UPDATED} set:{PH*C} FDA(2.0534,IENS,1)={PH} set:{PH_STATUS*C} FDA(2.0534,IENS,2)={PH_STATUS} set:{PH_REMARKS*C} FDA(2.0534,IENS,3)={PH_REMARKS} set:{PH_USER*C} FDA(2.0534,IENS,4)={PH_USER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0534)") set %SkipFiling=1 if $d(%FMERR(2.0534,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0534,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPHDATETI5721S index ^DPT nonnull {PATIENT_2.IEN} 0]]> "PH" "B" {PH_DATETIME_UPDATED} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "PH" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 4 "^" 0 3 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '130.0681' Sub-File/Multiple Name: 'PLANNED IMPLANTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PLANNED_IMPLANTS_130_0681 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.1667164 67178,44728.346551296 right PLANNED IMPLANTS 130.0681 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBPLANNEDIMPLANTS1300681 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",59,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0681)") set %SkipFiling=1 if $d(%FMERR(130.0681,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0681,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPLANNEDI2F89S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 59 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '699.0207' Sub-File/Multiple Name: 'PNEUMONIA' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PNEUMONIA_699_0207 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.178586027 67178,44728.388736133 right PNEUMONIA 699.0207 2.56 12/04/2024 12:25:28 1 1 IEN 1 LOCATION_OF_PAINPNEUMONIAS_699_83]]> LOCATIONOFPNEUMONIA VALIP.prosthetic.fm2cw.LOCATIONOFPAINPNEUMONIAS69983 FKey_LOCATION_OF_PNEUMONIA FileMan Field Label: 'DATES' FileMan Field Number: '1' This field identifies a range of dates during which the pneumonia occurred and is free text. %Library.String 4 DATES Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBPNEUMONIA6990207 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LOCATION OF PNEUMONIA' FileMan Field Number: '.01' This field identifies the anatomical location of the pneumonia. VALIP.prosthetic.fm2cw.LOCATIONOFPAINPNEUMONIAS69983 1 3 LOCATION_OF_PNEUMONIA NAME This field is pointed to by the Location of Pain field for GI Endoscopies and the Location of Pneumonia for Pulmonary Endoscopies. The data is a specified list of sub-anatomies that are commonly used by these two fields. NOTE: The Location of Pain field has been removed from the GI Endoscopy templates in version 2.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_PNEUMONIA_699_0207 where %ID=:id) set {LOCATION_OF_PNEUMONIA_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOCATION_OF_PNEUMONIA_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",11,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LOCATION_OF_PNEUMONIA*C} FDA(699.0207,IENS,.01)={LOCATION_OF_PNEUMONIA} set:{DATES*C} FDA(699.0207,IENS,1)={DATES} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.0207)") set %SkipFiling=1 if $d(%FMERR(699.0207,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.0207,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPNEUMONIF93ES index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 11 "B" {LOCATION_OF_PNEUMONIA} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 11 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.39' Sub-File/Multiple Name: 'PNEUMOPERITONEUM GAS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PNEUMOPERITONEUM_GAS_699_39 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.178249278 67178,44728.43352141 right PNEUMOPERITONEUM GAS 699.39 2.56 12/04/2024 12:25:28 1 1 IEN 1 Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBPNEUMOPERITONEUMGAS69939 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PNEUMOPERITONEUM GAS' FileMan Field Number: '.01' This field identifies the type of Pneumoperitoneum Gas (Air,CO2,NO2, Other) used. %Library.EnumString 1 3 PNEUMOPERITONEUM_GAS FileMan Field Label: 'PRESSURE CONTROL' FileMan Field Number: '1' This field identifies whether the pressure was controlled manually or automatically. %Library.EnumString 4 PRESSURE_CONTROL SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",13,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PNEUMOPERITONEUM_GAS*C} FDA(699.39,IENS,.01)={PNEUMOPERITONEUM_GAS} set:{PRESSURE_CONTROL*C} FDA(699.39,IENS,1)={PRESSURE_CONTROL} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.39)") set %SkipFiling=1 if $d(%FMERR(699.39,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.39,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPNEUMOPEEB28S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 13 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '4.24' Sub-File/Multiple Name: 'POLL LIST' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_POLL_LIST_4_24 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.189807578 67178,44728.477193886 right POLL LIST 4.24 2.56 12/04/2024 12:25:28 1 1 IEN 1 Relationship to parent (file name DOMAIN) VALIP.prosthetic.fm2cw.DOMAIN42 parent SUBPOLLLIST424 1 1 DOMAIN_4_2 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'POLL LIST' FileMan Field Number: '.01' If this domain belongs to a poll list, then it will be activated when a background poller is activated to send mail to this list. %Library.Numeric 1 3 POLL_LIST SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({DOMAIN_4_2},"||"):-1:1 { set DA($i(c))=$p({DOMAIN_4_2},"||",i) } set DIK="^DIC(4.2,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{POLL_LIST*C} FDA(4.24,IENS,.01)={POLL_LIST} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.24)") set %SkipFiling=1 if $d(%FMERR(4.24,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.24,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SUBPOLLLIST424S index ^DIC nonnull 4.2 "AB" {POLL_LIST} {DOMAIN_4_2.IEN} 0]]> {IEN} 0]]> data ^DIC 4.2 {DOMAIN_4_2.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.22' Sub-File/Multiple Name: 'POSTOP OCCURRENCE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_POSTOP_OCCURRENCE_130_22 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.20744724 67178,44728.520770316 right POSTOP OCCURRENCE 130.22 2.56 12/04/2024 12:25:28 1 1 IEN 1 FileMan Field Label: 'CPB STATUS' FileMan Field Number: '8' Cardiopulmonary Bypass Status Definition Revised (2014): Indicate the CPB status if the patient underwent a repeat operation on the heart after the patient had left the operating room from the initial operation and within current hospitalization or within 30 days of the initial operation. Indicate the one appropriate response: None - no repeat cardiac surgical procedure post-operatively within 30 days of initial operation. On-bypass - patient underwent a repeat cardiac surgical procedure utilizing CPB. Off-bypass - patient underwent a repeat cardiac surgical procedure not utilizing CPB. %Library.EnumString 9 CPB_STATUS FileMan Field Label: 'DATE COMP NOTED' FileMan Field Number: '2' Date/Time the Occurrence was Noted This is the date that this postoperative occurrence was noted in the patient's record. %Library.FilemanTimeStamp 5 DATE_COMP_NOTED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS 2 calendar days on the day of UTI Signs/Symptoms and UTI Culture sample R- RECENTLY REMOVED, had been in place >2 calendar days but removed the day of or the day before UTI Signs/Symptoms and UTI Culture sample S- SHORT DURATION, present at the time of UTI Signs/Symptoms and UTI Culture sample but had not been present <2 calendar days D- DISTANT REMOVAL, placed in the perioperative period and present >2 calendar days, but removed>2 calendar days prior to UTI Signs/Symptoms and UTI Culture sample N- NO CATHETER, did not have an indwelling uretheral catheter >2 calendar days]]> %Library.EnumString 11 INDWELLING_URETHRAL_CATHETER FileMan Field Label: 'OCCURRENCE COMMENTS' FileMan Field Number: '4' Occurrence Comments These are comments about this postoperative occurrence. %Library.String 7 OCCURRENCE_COMMENTS FileMan Field Label: 'OUTCOME TO DATE' FileMan Field Number: '.05' Outcome to Date This is the code corresponding to the outcome of this postoperative occurrence. %Library.EnumString 4 OUTCOME_TO_DATE FileMan Field Label: 'POSTOP DEVICE TYPE' FileMan Field Number: '15' Postop Device Type VASQIP Definition (2015): Indicate the patient required post-op placement of a new IABP, VAD, TAH, ECMO, or MULTIPLE DEVICES for circulatory support within 30 days post-operatively. 1. IABP 2. VAD 3. TAH 4. ECMO 5. MULTIPLE DEVICES %Library.EnumString 16 POSTOP_DEVICE_TYPE FileMan Field Label: 'POSTOP OCCURRENCE' FileMan Field Number: '.01' Postoperative Occurrence This is the name of a occurrence encountered postoperatively. If there are no occurrences, this field should be left blank. 'NONE' will not be accepted. %Library.String 1 3 POSTOP_OCCURRENCE 38 degrees C or < 36 degrees C HR > 90 beats/minute RR > 20 breaths /minute or PaCO2 < 32 mmHg WBC > 12,000 cell/mm3, < 4,000cells/mm3, or > 10% immature neutrophils ("bands") 3. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is associated with organ and/or circulatory dysfunction. Terminology such as Severe Sepsis/Septic Shock/Refractory Septic Shock/Refractory Septic Shock and Multiple Organ Dysfunction Syndrome (MODS) all fall into this category. Answer YES if the definition of SEPSIS is present AND there is documented organ and/or circulatory dysfunction defined by one or more of the following: - Areas of acutely mottled skin not related to peripheral vascular disease - Capillary refilling requires three seconds or longer not related to peripheral vascular disease - Urine output <0.5 mL/kg for at least one hour, or renal replacement therapy - Lactate >2 mmol/L - Abrupt change in mental status - Abnormal EEG findings - Platelet count < 100,000 platelets/mL - Disseminated intravascular coagulation (DIC) - Acute lung injury or acute respiratory distress syndrome (ARDS) - New cardiac dysfunction as defined by ECHO or direct measurement of the cardiac index - An arterial systolic blood pressure (SBP) of =90 mm Hg or a mean arterial pressure (MAP) =70 mm Hg for at least 1 hour despite adequate fluid resuscitation, adequate intravascular volume status, or the need for vasopressors to maintain SBP >=90 mm Hg or MAP >=70 mm Hg. For the patient that had sepsis preoperatively, continuation of the preoperatively identified signs postoperatively would not be reported as a new postoperative sepsis. Worsening of the preope- ratively identified signs would be reported as a new postoperative sepsis.]]> %Library.EnumString 8 SEPSIS_CATEGORY 72 hours]]> %Library.EnumString 10 STROKECVA_DURATION Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBPOSTOPOCCURRENCE13022 1 1 SURGERY_130 FileMan Field Label: 'TREATMENT INSTITUTED' FileMan Field Number: '3' Treatment Instituted This is descriptive information about the treatment instituted as a result of this occurrence. %Library.String 6 TREATMENT_INSTITUTED 10^5 colony- forming units (CFU)/ml with no more than 2 species of microor- ganisms OR 2. The patient has a positive urine culture of >10^3 and <10^5 colony forming units (CFU)/mL with no more than 2 species of microorganisms AND one of the following three items: a. Positive dipstick for leukocyte esterase and/ or nitrate; b. Pyuria (urine specimen with >10 white blood cell [WBC]/mm3 of unspun urine or > 3 WBC high-power field of spun urine); c. Microorganisms seen on Gram's stain of unspun urine ]]> %Library.EnumString 15 UTI_CULTURE 38C at the time of culture or onset of signs or symptoms.]]> %Library.EnumString 13 UTI_SIGNSSYMPTOMS_FEVER FileMan Field Label: 'UTI SIGNS/SYMPTOMS TENDERNESS' FileMan Field Number: '13' UTI Signs/Symptoms Tenderness VASQIP Definition (2014): This indicates the patient has suprapubic tenderness or costovertebral angle pain or tenderness. %Library.EnumString 14 UTI_SIGNSSYMPTOMS_TENDERNESS FileMan Field Label: 'UTI SIGN/SYMPTOMS URG/FREQ/DYS' FileMan Field Number: '11' UTI Signs/Symptoms (Urgency/Freq/Dysuria) VASQIP Definition (2014): This indicates the patient complains of urinary urgency or urinary frequency or dysuria. %Library.EnumString 12 UTI_SIGNSYMPTOMS_URGFREQDYS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 17 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",16,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{POSTOP_OCCURRENCE*C} FDA(130.22,IENS,.01)={POSTOP_OCCURRENCE} set:{OUTCOME_TO_DATE*C} FDA(130.22,IENS,.05)={OUTCOME_TO_DATE} set:{DATE_COMP_NOTED*C} FDA(130.22,IENS,2)={DATE_COMP_NOTED} set:{TREATMENT_INSTITUTED*C} FDA(130.22,IENS,3)={TREATMENT_INSTITUTED} set:{SEPSIS_CATEGORY*C} FDA(130.22,IENS,7)={SEPSIS_CATEGORY} set:{CPB_STATUS*C} FDA(130.22,IENS,8)={CPB_STATUS} set:{STROKECVA_DURATION*C} FDA(130.22,IENS,9)={STROKECVA_DURATION} set:{INDWELLING_URETHRAL_CATHETER*C} FDA(130.22,IENS,10)={INDWELLING_URETHRAL_CATHETER} set:{UTI_SIGNSYMPTOMS_URGFREQDYS*C} FDA(130.22,IENS,11)={UTI_SIGNSYMPTOMS_URGFREQDYS} set:{UTI_SIGNSSYMPTOMS_FEVER*C} FDA(130.22,IENS,12)={UTI_SIGNSSYMPTOMS_FEVER} set:{UTI_SIGNSSYMPTOMS_TENDERNESS*C} FDA(130.22,IENS,13)={UTI_SIGNSSYMPTOMS_TENDERNESS} set:{UTI_CULTURE*C} FDA(130.22,IENS,14)={UTI_CULTURE} set:{POSTOP_DEVICE_TYPE*C} FDA(130.22,IENS,15)={POSTOP_DEVICE_TYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.22)") set %SkipFiling=1 if $d(%FMERR(130.22,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.22,""DIERR"") for details" RETURN } if {OCCURRENCE_COMMENTS*C} { set D0={RowId} kill wp if {OCCURRENCE_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({OCCURRENCE_COMMENTS},$c(13,10)) { set wp(i)=$p({OCCURRENCE_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.22,{IENS},4,,wproot,"%FMERR(130.22)") if $d(%FMERR(130.22,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.22)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPOSTOPOC19C2S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 16 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 5 "^" 0 7 "^" 0 9 1 new data,i,node set {OCCURRENCE_COMMENTS}="" merge data=^SRF({S1},16,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OCCURRENCE_COMMENTS}={OCCURRENCE_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" 0 14 "^" 0 1 "^" 0 4 "^" 0 8 "^" 2 1 "^" 0 13 "^" 0 11 "^" 0 12 "^" 0 10 Generated class for FileMan Sub-File/Multiple Number: '445.08' Sub-File/Multiple Name: 'PRE-CONVERSION ITEM (NO EDITS)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRECONVERSION_ITEM_NO_EDITS_445_08 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.539417533 67178,44728.569554294 right PRE-CONVERSION ITEM (NO EDITS) 445.08 2.56 12/04/2024 12:25:28 1 1 IEN 1 Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBPRECONVERSIONITEMNOEDITS44508 1 1 GENERIC_INVENTORY_445 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRE-CONVERSION ITEM (NO EDITS)' FileMan Field Number: '.01' This field is automatically populated when the option to 'Convert Secondary to Primary' [PRCP CONVERT SECONDARY] is run. It is the content of the zero node of the ITEM sub-file in the inventory point as it existed before conversion. The only time it would ever be referenced is in cases where users mistakenly convert an inventory point and need to 'undo' the conversion. DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION APPLICATION. %Library.String 1 3 PRECONVERSION_ITEM_NO_EDITS Relationship for Sub-File/Multiple to file name PRE-CONVERSION SOURCES (NO EDITS) child VALIP.prosthetic.fm2cw.SUBPRECONVERSIONSOURCESNOEDITS44512 children SUBPRECONVERSIONITEMNOEDITS44508 1 SUB_PRECONVERSION_SOURCES_NO_EDITS_445_12 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",""SECITM"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PRECONVERSION_ITEM_NO_EDITS*C} FDA(445.08,IENS,.01)={PRECONVERSION_ITEM_NO_EDITS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.08)") set %SkipFiling=1 if $d(%FMERR(445.08,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.08,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRECONVED3CES index {PRECONVERSION_ITEM_NO_EDITS}'="" 1 ^PRCP conditional 445 {GENERIC_INVENTORY_445.IEN} 0]]> "SECITM" "B" $$TRUNCATE({PRECONVERSION_ITEM_NO_EDITS},30)) {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "SECITM" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '445.021' Sub-File/Multiple Name: 'PRE-CONVERSION MIS (NO EDITS)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRECONVERSION_MIS_NO_EDITS_445_021 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.566249589 67178,44728.614404999 right PRE-CONVERSION MIS (NO EDITS) 445.021 2.56 12/04/2024 12:25:28 1 1 IEN 1 Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBPRECONVERSIONMISNOEDITS445021 1 1 GENERIC_INVENTORY_445 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRE-CONVERSION MIS (NO EDITS)' FileMan Field Number: '.01' This field is automatically populated when the option to 'Convert Secondary to Primary' [PRCP CONVERT SECONDARY] is run. It contains the MIS COSTING SECTIONS in the inventory point as it existed before conversion. The only time it would ever be referenced is in cases where users mistakenly convert an inventory point and need to 'undo' the conversion. DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION APPLICATION. %Library.String 1 3 PRECONVERSION_MIS_NO_EDITS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",""SECMIS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PRECONVERSION_MIS_NO_EDITS*C} FDA(445.021,IENS,.01)={PRECONVERSION_MIS_NO_EDITS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.021)") set %SkipFiling=1 if $d(%FMERR(445.021,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.021,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRECONVE9BB8S index {PRECONVERSION_MIS_NO_EDITS}'="" 1 ^PRCP conditional 445 {GENERIC_INVENTORY_445.IEN} 0]]> "SECMIS" "B" $$TRUNCATE({PRECONVERSION_MIS_NO_EDITS},30)) {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "SECMIS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '445.12' Sub-File/Multiple Name: 'PRE-CONVERSION SOURCES (NO EDITS)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRECONVERSION_SOURCES_NO_EDITS_445_12 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.665566083 67178,44728.658276529 right PRE-CONVERSION SOURCES (NO EDITS) 445.12 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRE-CONVERSION SOURCES (NO EDITS)' FileMan Field Number: '.01' This field is automatically populated when the option to 'Convert Secondary to Primary' [PRCP CONVERT SECONDARY] is run. It contains the PROCUREMENT SOURCES in the ITEM sub-file in the inventory point as it existed before conversion. The only time it would ever be referenced is in cases where users mistakenly convert an inventory point and need to 'undo' the conversion. DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION APPLICATION. %Library.String 1 3 PRECONVERSION_SOURCES_NO_EDITS Relationship to parent (file name PRE-CONVERSION ITEM (NO EDITS)) VALIP.prosthetic.fm2cw.SUBPRECONVERSIONITEMNOEDITS44508 parent SUBPRECONVERSIONSOURCESNOEDITS44512 1 1 SUB_PRECONVERSION_ITEM_NO_EDITS_445_08 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_PRECONVERSION_ITEM_NO_EDITS_445_08},"||"):-1:1 { set DA($i(c))=$p({SUB_PRECONVERSION_ITEM_NO_EDITS_445_08},"||",i) } set DIK="^PRCP(445,"_DA(2)_",""SECITM"","_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PRECONVERSION_SOURCES_NO_EDITS*C} FDA(445.12,IENS,.01)={PRECONVERSION_SOURCES_NO_EDITS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.12)") set %SkipFiling=1 if $d(%FMERR(445.12,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.12,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRECONVER4C4S index {PRECONVERSION_SOURCES_NO_EDITS}'="" 1 ^PRCP conditional 445 {GENERIC_INVENTORY_445.IEN} 0]]> "SECITM" {SUB_PRECONVERSION_ITEM_NO_EDITS_445_08.IEN} 0]]> 5 "B" $$TRUNCATE({PRECONVERSION_SOURCES_NO_EDITS},30)) {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "SECITM" {SUB_PRECONVERSION_ITEM_NO_EDITS_445_08.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 5 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.02' Sub-File/Multiple Name: 'PRE-DX' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PREDX_691_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.204650098 67178,44728.707198494 right PRE-DX 691.02 2.56 12/04/2024 12:25:28 1 1 IEN 1 Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBPREDX69102 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRE-DX' FileMan Field Number: '.01' This defines the medical patients pre-diagnosis listed on the procedure request form. %Library.EnumString 1 3 PREDX SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PREDX*C} FDA(691.02,IENS,.01)={PREDX} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.02)") set %SkipFiling=1 if $d(%FMERR(691.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.SUBPREDX69102S data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.2' Sub-File/Multiple Name: 'PREMEDICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PREMEDICATION_691_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.207592694 67178,44728.750562786 right PREMEDICATION 691.2 2.56 12/04/2024 12:25:28 1 1 IEN 1 Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBPREMEDICATION6912 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PREMEDICATION' FileMan Field Number: '.01' This allows the user to enter multiple pre-cardiac catheterization medications. %Library.EnumString 1 3 PREMEDICATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PREMEDICATION*C} FDA(691.2,IENS,.01)={PREMEDICATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.2)") set %SkipFiling=1 if $d(%FMERR(691.2,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.2,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPREMEDICEB2ES data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.74' Sub-File/Multiple Name: 'PRESCRIPTION GIVEN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRESCRIPTION_GIVEN_699_74 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.216081578 67178,44728.793844579 right PRESCRIPTION GIVEN 699.74 2.56 12/04/2024 12:25:28 1 1 IEN 1 DRUG_50]]> PRESCRIPTIONGIVEN VALIP.prosthetic.fm2cw.DRUG50 FKey_PRESCRIPTION_GIVEN FileMan Field Label: 'DOSAGE' FileMan Field Number: '1' This field identifies the dosage of the prescribed drug. %Library.String 4 DOSAGE Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBPRESCRIPTIONGIVEN69974 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRESCRIPTION GIVEN' FileMan Field Number: '.01' This field identifies the name of the formulary drug given as a post-encounter prescription. VALIP.prosthetic.fm2cw.DRUG50 1 3 PRESCRIPTION_GIVEN GENERIC NAME This is the generic name of the drug. In addition, if this entry is marked for CMOP transmission, the generic name cannot be edited unless it is UNmarked for CMOP transmission first.]]> %Library.String 1 GENERIC_NAME into :val from VALIP_prosthetic_fm2cw.SUB_PRESCRIPTION_GIVEN_699_74 where %ID=:id) set {PRESCRIPTION_GIVEN_GENERIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRESCRIPTION_GIVEN_GENERIC_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",26,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PRESCRIPTION_GIVEN*C} FDA(699.74,IENS,.01)={PRESCRIPTION_GIVEN} set:{DOSAGE*C} FDA(699.74,IENS,1)={DOSAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.74)") set %SkipFiling=1 if $d(%FMERR(699.74,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.74,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRESCRIP2895S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 26 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.5' Sub-File/Multiple Name: '*PRESCRIPTION PROFILE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRESCRIPTION_PROFILE_2_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.229470903 67178,44728.853147592 right *PRESCRIPTION PROFILE 2.5 2.56 12/04/2024 12:25:28 1 1 IEN 1 FileMan Field Label: 'DRUG' FileMan Field Number: '.02' %Library.String 1 3 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(2.5,.02,9.2) S X=$S('$D(^PSDRUG(+$P(Y(2.5,.02,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(2.5,.02,2) set {DRUG}=X 1 DRUG Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBPRESCRIPTIONPROFILE25 1 1 PATIENT_2 FileMan Field Label: 'STATUS' FileMan Field Number: '.03' %Library.String 1 4 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(2.5,.03,9.3) S X=$P($P(Y(2.5,.03,102),$C(59)_$P(Y(2.5,.03,101),U,15)_":",2),$C(59),1) S D0=Y(2.5,.03,2) set {STATUS}=X 1 STATUS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""P"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.5)") set %SkipFiling=1 if $d(%FMERR(2.5,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.5,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRESCRIPD99CS data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "P" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '2005.05' Sub-File/Multiple Name: 'PRESENTATION STATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRESENTATION_STATE_2005_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.236233176 67178,44728.896210437 right PRESENTATION STATE 2005.05 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name IMAGE) VALIP.prosthetic.fm2cw.IMAGE2005 parent SUBPRESENTATIONSTATE200505 1 1 IMAGE_2005 FileMan Field Label: 'PS DATA' FileMan Field Number: '1' Lines of free-text data that describe the presentation state, in XML format. %Library.String 4 PS_DATA FileMan Field Label: 'PS TYPE' FileMan Field Number: '2' Indicates the type of presentation state data stored here: Key Image; Interpretation-based; User-specific. %Library.EnumString 5 PS_TYPE FileMan Field Label: 'PS UID' FileMan Field Number: '.01' This is the presentation state UID for the image. %Library.String 1 3 PS_UID FileMan Field Label: 'TIMESTAMP' FileMan Field Number: '4' Date/Time when this PS was created. %Library.FilemanTimeStamp 6 TIMESTAMP SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({IMAGE_2005},"||"):-1:1 { set DA($i(c))=$p({IMAGE_2005},"||",i) } set DIK="^MAG(2005,"_DA(1)_",210,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PS_UID*C} FDA(2005.05,IENS,.01)={PS_UID} set:{PS_TYPE*C} FDA(2005.05,IENS,2)={PS_TYPE} set:{TIMESTAMP*C} FDA(2005.05,IENS,4)={TIMESTAMP} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.05)") set %SkipFiling=1 if $d(%FMERR(2005.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2005.05,""DIERR"") for details" RETURN } if {PS_DATA*C} { set D0={RowId} kill wp if {PS_DATA}'="" { set wproot="wp" for i=1:1:$l({PS_DATA},$c(13,10)) { set wp(i)=$p({PS_DATA},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(2005.05,{IENS},1,,wproot,"%FMERR(2005.05)") if $d(%FMERR(2005.05,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2005.05)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRESENTA1A0FS index {PS_UID}'="" 1 ^MAG conditional 2005 {IMAGE_2005.IEN} 0]]> 210 "B" $$TRUNCATE({PS_UID},30)) {IEN} 0]]> data ^MAG 2005 {IMAGE_2005.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 210 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 1 new data,i,node set {PS_DATA}="" merge data=^MAG(2005,{S2},210,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {PS_DATA}={PS_DATA}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '130.275' Sub-File/Multiple Name: 'PRIN ASSOC DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRIN_ASSOC_DIAGNOSIS_130_275 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.244284957 67178,44728.940368684 right PRIN ASSOC DIAGNOSIS 130.275 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRIN ASSOC DIAGNOSIS' FileMan Field Number: '.01' Pointer To ICD DIAGNOSIS File (#80) This field holds the IEN of the associated diagnosis. It is used to store the Procedure/Diagnosis association data needed to create a clean claim. This field can only be changed via the Surgery menu. %Library.Numeric 1 3 PRIN_ASSOC_DIAGNOSIS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBPRINASSOCDIAGNOSIS130275 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",""PADX"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PRIN_ASSOC_DIAGNOSIS*C} FDA(130.275,IENS,.01)={PRIN_ASSOC_DIAGNOSIS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.275)") set %SkipFiling=1 if $d(%FMERR(130.275,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.275,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRINASSOC751S index ^SRF nonnull {SURGERY_130.IEN} 0]]> "PADX" "B" {PRIN_ASSOC_DIAGNOSIS} {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "PADX" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.028' Sub-File/Multiple Name: 'PRIN. PROCEDURE CPT MODIFIER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRIN__PROCEDURE_CPT_MODIFIER_130_028 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.251566673 67178,44728.983835594 right PRIN. PROCEDURE CPT MODIFIER 130.028 2.56 12/04/2024 12:25:28 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBPRINPROCEDURECPTMODIFIER130028 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",""OPMOD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.028)") set %SkipFiling=1 if $d(%FMERR(130.028,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.028,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRINPROC3290S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "OPMOD" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '44.04' Sub-File/Multiple Name: 'PRIVILEGED USER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRIVILEGED_USER_44_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.254623868 67178,44729.025821452 right PRIVILEGED USER 44.04 2.56 12/04/2024 12:25:29 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBPRIVILEGEDUSER4404 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""SDPRIV"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.04)") set %SkipFiling=1 if $d(%FMERR(44.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRIVILEG5211S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "SDPRIV" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '691.13' Sub-File/Multiple Name: 'PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_691_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.268057136 67178,44729.067610165 right PROCEDURE 691.13 2.56 12/04/2024 12:25:29 1 1 IEN 1 CATH_PROCEDURE_695_3]]> PROCEDURE01 VALIP.prosthetic.fm2cw.CATHPROCEDURE6953 FKey_PROCEDURE_01 Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBPROCEDURE69113 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROCEDURE' FileMan Field Number: '.01' This allows the user to enter multiple cardiac cath procedure. VALIP.prosthetic.fm2cw.CATHPROCEDURE6953 1 3 PROCEDURE_01 NAME This field contains a list of various Cardiac Catheterization procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_PROCEDURE_691_13 where %ID=:id) set {PROCEDURE_01_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE_01_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCEDURE_01*C} FDA(691.13,IENS,.01)={PROCEDURE_01} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.13)") set %SkipFiling=1 if $d(%FMERR(691.13,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.13,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDUR1540S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '697.01' Sub-File/Multiple Name: '*PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_697_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.272287524 67178,44729.110498951 right *PROCEDURE 697.01 2.56 12/04/2024 12:25:29 1 1 IEN 1 PROCEDURESUBSPECIALTY_697_2]]> PROCEDURE01 VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 FKey_PROCEDURE_01 Relationship to parent (file name ANATOMY) VALIP.prosthetic.fm2cw.ANATOMY697 parent SUBPROCEDURE69701 1 1 ANATOMY_697 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROCEDURE' FileMan Field Number: '.01' This field identifies the specific medical procedure which this anatomy is associated with. VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 1 3 PROCEDURE_01 NAME The short names of the various medicine procedures are stored here.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_PROCEDURE_697_01 where %ID=:id) set {PROCEDURE_01_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE_01_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ANATOMY_697},"||"):-1:1 { set DA($i(c))=$p({ANATOMY_697},"||",i) } set DIK="^MCAR(697,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCEDURE_01*C} FDA(697.01,IENS,.01)={PROCEDURE_01} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.01)") set %SkipFiling=1 if $d(%FMERR(697.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(697.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDUR4520S index ^MCAR nonnull 697 {ANATOMY_697.IEN} 0]]> 1 "B" {PROCEDURE_01} {IEN} 0]]> index ^MCAR nonnull 697 "C" {PROCEDURE_01} {ANATOMY_697.IEN} 0]]> {IEN} 0]]> data ^MCAR 697 {ANATOMY_697.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '697.53' Sub-File/Multiple Name: '*PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_697_53 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.276750528 67178,44729.153896784 right *PROCEDURE 697.53 2.56 12/04/2024 12:25:29 1 1 IEN 1 PROCEDURESUBSPECIALTY_697_2]]> PROCEDURE01 VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 FKey_PROCEDURE_01 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL DIAGNOSIS/ICD CODES) VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 parent SUBPROCEDURE69753 1 1 MEDICAL_DIAGNOSISICD_CODES_697_5 FileMan Field Label: 'PROCEDURE' FileMan Field Number: '.01' This field identifies the specific procedure that the diagnosis is applicable to. VALIP.prosthetic.fm2cw.PROCEDURESUBSPECIALTY6972 1 3 PROCEDURE_01 NAME The short names of the various medicine procedures are stored here.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_PROCEDURE_697_53 where %ID=:id) set {PROCEDURE_01_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCEDURE_01_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_DIAGNOSISICD_CODES_697_5},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_DIAGNOSISICD_CODES_697_5},"||",i) } set DIK="^MCAR(697.5,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCEDURE_01*C} FDA(697.53,IENS,.01)={PROCEDURE_01} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.53)") set %SkipFiling=1 if $d(%FMERR(697.53,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(697.53,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDURD4A2S index ^MCAR nonnull 697.5 {MEDICAL_DIAGNOSISICD_CODES_697_5.IEN} 0]]> 1 "B" {PROCEDURE_01} {IEN} 0]]> data ^MCAR 697.5 {MEDICAL_DIAGNOSISICD_CODES_697_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.551' Sub-File/Multiple Name: 'PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_699_551 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.278113996 67178,44729.196970323 right PROCEDURE 699.551 2.56 12/04/2024 12:25:29 1 1 IEN 1 Relationship to parent (file name GROSS) VALIP.prosthetic.fm2cw.GROSS69955 parent SUBPROCEDURE699551 1 1 GROSS_699_55 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GROSS_699_55},"||"):-1:1 { set DA($i(c))=$p({GROSS_699_55},"||",i) } set DIK="^MCAR(699.55,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.551)") set %SkipFiling=1 if $d(%FMERR(699.551,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.551,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDUR2595S data ^MCAR 699.55 {GROSS_699_55.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '699.61' Sub-File/Multiple Name: '*PROCEDURE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_699_61 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.294537764 67178,44729.239103707 right *PROCEDURE 699.61 2.56 12/04/2024 12:25:29 1 1 IEN 1 Relationship to parent (file name DIAG/THERAP INTERVENT) VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 parent SUBPROCEDURE69961 1 1 DIAGTHERAP_INTERVENT_699_6 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({DIAGTHERAP_INTERVENT_699_6},"||"):-1:1 { set DA($i(c))=$p({DIAGTHERAP_INTERVENT_699_6},"||",i) } set DIK="^MCAR(699.6,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.61)") set %SkipFiling=1 if $d(%FMERR(699.61,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.61,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDUR2642S data ^MCAR 699.6 {DIAGTHERAP_INTERVENT_699_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '75.1125' Sub-File/Multiple Name: 'PROCEDURE MODIFIERS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_MODIFIERS_75_1125 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.299056869 67178,44729.281551861 right PROCEDURE MODIFIERS 75.1125 2.56 12/04/2024 12:25:29 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name RAD/NUC MED ORDERS) VALIP.prosthetic.fm2cw.RADNUCMEDORDERS751 parent SUBPROCEDUREMODIFIERS751125 1 1 RADNUC_MED_ORDERS_75_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RADNUC_MED_ORDERS_75_1},"||"):-1:1 { set DA($i(c))=$p({RADNUC_MED_ORDERS_75_1},"||",i) } set DIK="^RAO(75.1,"_DA(1)_",""M"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(75.1125)") set %SkipFiling=1 if $d(%FMERR(75.1125,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(75.1125,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDURC62DS data ^RAO 75.1 {RADNUC_MED_ORDERS_75_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "M" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '697.02' Sub-File/Multiple Name: 'PROCEDURE NAME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_NAME_697_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.303595916 67178,44729.323725253 right PROCEDURE NAME 697.02 2.56 12/04/2024 12:25:29 1 1 IEN 1 Relationship to parent (file name ANATOMY) VALIP.prosthetic.fm2cw.ANATOMY697 parent SUBPROCEDURENAME69702 1 1 ANATOMY_697 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROCEDURE NAME' FileMan Field Number: '.01' This is a "free-text" pointer to the Procedure/Subspecialty File (#697.2). %Library.String 1 3 PROCEDURE_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ANATOMY_697},"||"):-1:1 { set DA($i(c))=$p({ANATOMY_697},"||",i) } set DIK="^MCAR(697,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCEDURE_NAME*C} FDA(697.02,IENS,.01)={PROCEDURE_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.02)") set %SkipFiling=1 if $d(%FMERR(697.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(697.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDUR7053S index {PROCEDURE_NAME}'="" 1 ^MCAR conditional 697 {ANATOMY_697.IEN} 0]]> 2 "B" $$TRUNCATE({PROCEDURE_NAME},30)) {IEN} 0]]> index {PROCEDURE_NAME}'="" 1 ^MCAR conditional 697 "D" $$TRUNCATE({PROCEDURE_NAME},30)) {ANATOMY_697.IEN} 0]]> {IEN} 0]]> data ^MCAR 697 {ANATOMY_697.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '697.55' Sub-File/Multiple Name: 'PROCEDURE NAME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_NAME_697_55 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.303934278 67178,44729.367533757 right PROCEDURE NAME 697.55 2.56 12/04/2024 12:25:29 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL DIAGNOSIS/ICD CODES) VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 parent SUBPROCEDURENAME69755 1 1 MEDICAL_DIAGNOSISICD_CODES_697_5 FileMan Field Label: 'PROCEDURE NAME' FileMan Field Number: '.01' %Library.String 1 3 PROCEDURE_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_DIAGNOSISICD_CODES_697_5},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_DIAGNOSISICD_CODES_697_5},"||",i) } set DIK="^MCAR(697.5,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCEDURE_NAME*C} FDA(697.55,IENS,.01)={PROCEDURE_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(697.55)") set %SkipFiling=1 if $d(%FMERR(697.55,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(697.55,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDURE211S index {PROCEDURE_NAME}'="" 1 ^MCAR conditional 697.5 {MEDICAL_DIAGNOSISICD_CODES_697_5.IEN} 0]]> 4 "B" $$TRUNCATE({PROCEDURE_NAME},30)) {IEN} 0]]> data ^MCAR 697.5 {MEDICAL_DIAGNOSISICD_CODES_697_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.62' Sub-File/Multiple Name: 'PROCEDURE NAME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_NAME_699_62 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.321484647 67178,44729.41048612 right PROCEDURE NAME 699.62 2.56 12/04/2024 12:25:29 1 1 IEN 1 Relationship to parent (file name DIAG/THERAP INTERVENT) VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 parent SUBPROCEDURENAME69962 1 1 DIAGTHERAP_INTERVENT_699_6 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROCEDURE NAME' FileMan Field Number: '.01' Enter the procedure with which this intervention is associated. %Library.String 1 3 PROCEDURE_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({DIAGTHERAP_INTERVENT_699_6},"||"):-1:1 { set DA($i(c))=$p({DIAGTHERAP_INTERVENT_699_6},"||",i) } set DIK="^MCAR(699.6,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCEDURE_NAME*C} FDA(699.62,IENS,.01)={PROCEDURE_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.62)") set %SkipFiling=1 if $d(%FMERR(699.62,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.62,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDUR1331S index {PROCEDURE_NAME}'="" 1 ^MCAR conditional 699.6 {DIAGTHERAP_INTERVENT_699_6.IEN} 0]]> 2 "B" $$TRUNCATE({PROCEDURE_NAME},30)) {IEN} 0]]> index {PROCEDURE_NAME}'="" 1 ^MCAR conditional 699.6 "E" $$TRUNCATE({PROCEDURE_NAME},30)) {DIAGTHERAP_INTERVENT_699_6.IEN} 0]]> {IEN} 0]]> data ^MCAR 699.6 {DIAGTHERAP_INTERVENT_699_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.0126' Sub-File/Multiple Name: 'PROCEDURE OCCURRENCE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCEDURE_OCCURRENCE_130_0126 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.327461402 67178,44729.454116888 right PROCEDURE OCCURRENCE 130.0126 2.56 12/04/2024 12:25:29 1 1 IEN 1 FileMan Field Label: 'DATE OCCURRENCE NOTED' FileMan Field Number: '2' Date Occurrence was Noted This is the date that this occurrence was noted. The time of day can be entered, but is not required. %Library.FilemanTimeStamp 5 DATE_OCCURRENCE_NOTED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'OCCURRENCE COMMENTS' FileMan Field Number: '4' This is information that may be helpful in documentation of the non-O.R. procedure occurrence. %Library.String 7 OCCURRENCE_COMMENTS FileMan Field Label: 'OUTCOME TO DATE' FileMan Field Number: '1' Outcome to Date This is the outcome to date of this non-O.R. procedure occurrence. %Library.EnumString 4 OUTCOME_TO_DATE FileMan Field Label: 'PROCEDURE OCCURRENCE' FileMan Field Number: '.01' Non-O.R. Procedure Occurrence This is a occurrence that is related to a non-O.R. procedure. If there are not any non-O.R. procedure occurrences, this field should be left blank. Do not enter 'NO' or 'NONE'. %Library.String 1 3 PROCEDURE_OCCURRENCE Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBPROCEDUREOCCURRENCE1300126 1 1 SURGERY_130 FileMan Field Label: 'TREATMENT INSTITUTED' FileMan Field Number: '3' Treatment Instituted This is the type of treatment instituted as a result of this non-O.R. procedure occurrence. %Library.String 6 TREATMENT_INSTITUTED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",43,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCEDURE_OCCURRENCE*C} FDA(130.0126,IENS,.01)={PROCEDURE_OCCURRENCE} set:{OUTCOME_TO_DATE*C} FDA(130.0126,IENS,1)={OUTCOME_TO_DATE} set:{DATE_OCCURRENCE_NOTED*C} FDA(130.0126,IENS,2)={DATE_OCCURRENCE_NOTED} set:{TREATMENT_INSTITUTED*C} FDA(130.0126,IENS,3)={TREATMENT_INSTITUTED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0126)") set %SkipFiling=1 if $d(%FMERR(130.0126,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0126,""DIERR"") for details" RETURN } if {OCCURRENCE_COMMENTS*C} { set D0={RowId} kill wp if {OCCURRENCE_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({OCCURRENCE_COMMENTS},$c(13,10)) { set wp(i)=$p({OCCURRENCE_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.0126,{IENS},4,,wproot,"%FMERR(130.0126)") if $d(%FMERR(130.0126,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.0126)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCEDURF351S index {PROCEDURE_OCCURRENCE}'="" 1 ^SRF conditional {SURGERY_130.IEN} 0]]> 43 "B" $$TRUNCATE({PROCEDURE_OCCURRENCE},30)) {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 43 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 1 new data,i,node set {OCCURRENCE_COMMENTS}="" merge data=^SRF({S1},43,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OCCURRENCE_COMMENTS}={OCCURRENCE_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '8925.113' Sub-File/Multiple Name: 'PROCESSING STEPS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCESSING_STEPS_8925_113 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.332019587 67178,44729.499008109 right PROCESSING STEPS 8925.113 2.56 12/04/2024 12:25:29 1 1 IEN 1 FileMan Field Label: 'CONDITION TEXT' FileMan Field Number: '.05' %Library.String 5 CONDITION_TEXT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'REQUIRED?' FileMan Field Number: '.03' This field specifies whether the step is required or optional for completion of the document (e.g., Dictation and transcription is the typical means by which Discharge Summaries are acquired, but they may be entered directly by the provider, if preferred). %Library.EnumString 4 REQUIRED FileMan Field Label: 'SEQUENCE' FileMan Field Number: '.02' This is the serial sequence in the processing of the document in which the current step should ordinarily occur. This field is only necessary when the process in question must occur in a particular sequence (e.g., to insure that a document is always released from draft before it is verified). %Library.Numeric 3 SEQUENCE Relationship to parent (file name TIU DOCUMENT DEFINITION) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 parent SUBPROCESSINGSTEPS8925113 1 1 TIU_DOCUMENT_DEFINITION_8925_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_DOCUMENT_DEFINITION_8925_1},"||"):-1:1 { set DA($i(c))=$p({TIU_DOCUMENT_DEFINITION_8925_1},"||",i) } set DIK="^TIU(8925.1,"_DA(1)_",13,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SEQUENCE*C} FDA(8925.113,IENS,.02)={SEQUENCE} set:{REQUIRED*C} FDA(8925.113,IENS,.03)={REQUIRED} set:{CONDITION_TEXT*C} FDA(8925.113,IENS,.05)={CONDITION_TEXT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.113)") set %SkipFiling=1 if $d(%FMERR(8925.113,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.113,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCESSI4ED3S data ^TIU 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 13 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 5 "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '445.07' Sub-File/Multiple Name: 'PROCUREMENT SOURCE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROCUREMENT_SOURCE_445_07 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.677179242 67178,44729.542433591 right PROCUREMENT SOURCE 445.07 2.56 12/04/2024 12:25:29 1 1 IEN 1 Foreign Key constraint for Variable Pointer reference field PROCUREMENT_SOURCE_INHOUSE_SOURCE PROCUREMENTSOURCEINHOUSESOURCE VALIP.prosthetic.fm2cw.GENERICINVENTORY445 FKey_PROCUREMENT_SOURCE_INHOUSE_SOURCE Foreign Key constraint for Variable Pointer reference field PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR PROCUREMENTSOURCESUPPLYWHSEOROUTSIDEVENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROCUREMENT SOURCE' FileMan Field Number: '.01' This is the procurement source for the item. %Library.String 1 3 1 PROCUREMENTSOURCESUPPLYWHSEOROUTSIDEVENDOR,PROCUREMENTSOURCEINHOUSESOURCE PROCUREMENT_SOURCE Variable Pointer Reference Field for Pointer field IN-HOUSE_SOURCE 'GENERIC INVENTORY' VALIP.prosthetic.fm2cw.GENERICINVENTORY445 5 1 PROCUREMENT_SOURCE_INHOUSE_SOURCE INVENTORY POINT This is the name of a warehouse, primary, or secondary inventory point. The name of the inventory point must be preceded with the station number and must be an unique name not already used.]]> %Library.String 1 INVENTORY_POINT into :val from VALIP_prosthetic_fm2cw.SUB_PROCUREMENT_SOURCE_445_07 where %ID=:id) set {PROCUREMENT_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT}=$select(SQLCODE=0:val,1:"")]]> 1 PROCUREMENT_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT 1 Variable Pointer Reference Field for Pointer field SUPPLY_WHSE.OR_OUTSIDE_VENDOR 'VENDOR' VALIP.prosthetic.fm2cw.VENDOR440 4 1 PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_PROCUREMENT_SOURCE_445_07 where %ID=:id) set {PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME 1 Variable Pointer Value Field for Pointer field PROCUREMENT_SOURCE %Library.String 1 6 if {PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME}'="" { set {*}={PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR_NAME} quit } if {PROCUREMENT_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT}'="" { set {*}={PROCUREMENT_SOURCE_INHOUSE_SOURCE_INVENTORY_POINT} quit } set {*}="" 1 PROCUREMENT_SOURCE_VALUE Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBPROCUREMENTSOURCE44507 1 1 SUB_INVENTORY_ITEM_445_01 FileMan Field Label: 'UNIT CONVERSION FACTOR' FileMan Field Number: '3' This is the unit of conversion factor, used to convert a unit of receipt into a unit of issue. %Library.Numeric 8 UNIT_CONVERSION_FACTOR FileMan Field Label: 'UNIT OF RECEIPT PACKAGE MULT.' FileMan Field Number: '2' This is the unit of receipt package multiple for how many units of issue are included in a vendor packaging unit. %Library.Numeric 7 UNIT_OF_RECEIPT_PACKAGE_MULT_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROCUREMENT_SOURCE*C} FDA(445.07,IENS,.01)={PROCUREMENT_SOURCE} set:{UNIT_OF_RECEIPT_PACKAGE_MULT_*C} FDA(445.07,IENS,2)={UNIT_OF_RECEIPT_PACKAGE_MULT_} set:{UNIT_CONVERSION_FACTOR*C} FDA(445.07,IENS,3)={UNIT_CONVERSION_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.07)") set %SkipFiling=1 if $d(%FMERR(445.07,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.07,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROCUREME222S index {PROCUREMENT_SOURCE}'="" 1 ^PRCP conditional 445 {GENERIC_INVENTORY_445.IEN} 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} 0]]> 5 "B" $$TRUNCATE({PROCUREMENT_SOURCE},30)) {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 5 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 If $p($p($g(^PRCP({S1},{S2},{S3},{S4},{S5},{S6},0)),"^",1),";",2,999)'="PRCP(445," s {PROCUREMENT_SOURCE_INHOUSE_SOURCE}="" Quit s {PROCUREMENT_SOURCE_INHOUSE_SOURCE}=$p($p($g(^PRCP({S1},{S2},{S3},{S4},{S5},{S6},0)),"^",1),";") If $p($p($g(^PRCP({S1},{S2},{S3},{S4},{S5},{S6},0)),"^",1),";",2,999)'="PRC(440," s {PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR}="" Quit s {PROCUREMENT_SOURCE_SUPPLY_WHSE_OR_OUTSIDE_VENDOR}=$p($p($g(^PRCP({S1},{S2},{S3},{S4},{S5},{S6},0)),"^",1),";") "^" 0 4 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '44.02' Sub-File/Multiple Name: 'PROHIBITED TERMINAL' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROHIBITED_TERMINAL_44_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.330785742 67178,44729.588405639 right PROHIBITED TERMINAL 44.02 2.56 12/04/2024 12:25:29 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBPROHIBITEDTERMINAL4402 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROHIBITED TERMINAL' FileMan Field Number: '.01' Terminal that cannot be utilized from a specific location. %Library.String 1 3 PROHIBITED_TERMINAL SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",9,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROHIBITED_TERMINAL*C} FDA(44.02,IENS,.01)={PROHIBITED_TERMINAL} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.02)") set %SkipFiling=1 if $d(%FMERR(44.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROHIBIT8456S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 9 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.2406' Sub-File/Multiple Name: 'PRONOUN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PRONOUN_2_2406 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.345799926 67178,44729.630605806 right PRONOUN 2.2406 2.56 12/04/2024 12:25:29 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBPRONOUN22406 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.2406,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.2406)") set %SkipFiling=1 if $d(%FMERR(2.2406,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.2406,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPRONOUN2EB96S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .2406 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '130.01' Sub-File/Multiple Name: 'PROSTHESIS INSTALLED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROSTHESIS_INSTALLED_130_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.363569564 67178,44729.672876054 right PROSTHESIS INSTALLED 130.01 2.56 12/04/2024 12:25:29 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'IMPLANT STERILITY CHECKED' FileMan Field Number: '8' Implant Sterility Checked (Y/N) This field documents whether or not the implant sterility was checked. Your answer should be YES or NO. This field is required for all prosthesis items entered for a surgery case. %Library.EnumString 11 IMPLANT_STERILITY_CHECKED FileMan Field Label: 'LOT/SERIAL NO' FileMan Field Number: '2.5' Lot/Serial Number This is the lot/serial number of the implanted prosthetic device. %Library.String 5 LOTSERIAL_NO FileMan Field Label: 'LOT NUMBER' FileMan Field Number: '11' Lot Number Indicate the lot number of the prosthesis that was implanted during surgery. This is a required field. Enter "NA" if this prosthesis does not have a Lot Number. %Library.String 13 LOT_NUMBER FileMan Field Label: 'MODEL' FileMan Field Number: '2' Model This is the model of the implanted prosthetic device. %Library.String 4 MODEL FileMan Field Label: 'PROVIDER READ BACK PERFORMED' FileMan Field Number: '13' Provider Read Back Performed VASQIP Definition (2014): An additional step is performed immediately prior to the implantation of the medical device. The privileged provider performing the procedure must confirm the correct implant with a team member, including a "read-back" of all relevant information. For Ophthalmologic intraocular lens implant procedures, the immediate intra-operative pre-implant "read-back" must include intraocular lens implant style, power and expiration date. %Library.EnumString 15 PROVIDER_READ_BACK_PERFORMED FileMan Field Label: 'QUANTITY' FileMan Field Number: '7' Quantity This is the quantity of this prosthetic device used for this operative procedure. %Library.Numeric 10 QUANTITY FileMan Field Label: 'SERIAL NUMBER' FileMan Field Number: '12' Serial Number Indicate the serial number of the prosthesis that was implanted during surgery. This is a required field. Enter "NA" if this prosthesis does not have a Serial Number. %Library.String 14 SERIAL_NUMBER FileMan Field Label: 'SIZE' FileMan Field Number: '6' Size This is the size of the implanted prosthetic device. %Library.String 9 SIZE FileMan Field Label: '*STERILE CODE' FileMan Field Number: '3' Sterilization Number This is the sterilization number of the implanted device. This field is marked for deletion. %Library.String 6 STERILE_CODE FileMan Field Label: '*STERILE NUMBER' FileMan Field Number: '4' Sterilization Number This is the sterilization number of the implanted prosthetic device. This field is marked for deletion. %Library.String 7 STERILE_NUMBER FileMan Field Label: 'STERILE RESP' FileMan Field Number: '5' Who is Accountable for Sterilization This is the code corresponding to the sterilization accountability. Although this information is optional, it may be useful in documentation of this case. %Library.EnumString 8 STERILE_RESP FileMan Field Label: 'STERILITY EXPIRATION DATE' FileMan Field Number: '9' Sterility Expiration Date This field documents the sterility expiration date. This field is required for all prosthesis items entered for a surgery case. Expiration Date can not be prior to Date of Operation. %Library.FilemanDate 12 STERILITY_EXPIRATION_DATE Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBPROSTHESISINSTALLED13001 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 16 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR' FileMan Field Number: '1' Manufacturer/Vendor This is the name of the manufacturer of the implanted prosthetic device. %Library.String 3 VENDOR BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VENDOR*C} FDA(130.01,IENS,1)={VENDOR} set:{MODEL*C} FDA(130.01,IENS,2)={MODEL} set:{LOTSERIAL_NO*C} FDA(130.01,IENS,2.5)={LOTSERIAL_NO} set:{STERILE_CODE*C} FDA(130.01,IENS,3)={STERILE_CODE} set:{STERILE_NUMBER*C} FDA(130.01,IENS,4)={STERILE_NUMBER} set:{STERILE_RESP*C} FDA(130.01,IENS,5)={STERILE_RESP} set:{SIZE*C} FDA(130.01,IENS,6)={SIZE} set:{QUANTITY*C} FDA(130.01,IENS,7)={QUANTITY} set:{IMPLANT_STERILITY_CHECKED*C} FDA(130.01,IENS,8)={IMPLANT_STERILITY_CHECKED} set:{STERILITY_EXPIRATION_DATE*C} FDA(130.01,IENS,9)={STERILITY_EXPIRATION_DATE} set:{LOT_NUMBER*C} FDA(130.01,IENS,11)={LOT_NUMBER} set:{SERIAL_NUMBER*C} FDA(130.01,IENS,12)={SERIAL_NUMBER} set:{PROVIDER_READ_BACK_PERFORMED*C} FDA(130.01,IENS,13)={PROVIDER_READ_BACK_PERFORMED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.01)") set %SkipFiling=1 if $d(%FMERR(130.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROSTHES6C33S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 1 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 2 1 "^" 0 5 "^" 1 3 "^" 0 3 "^" 1 5 "^" 1 2 "^" 1 4 "^" 1 1 "^" 0 4 "^" 0 6 "^" 0 7 "^" 2 2 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '665.01' Sub-File/Multiple Name: 'PROSTHETIC DISABILITY CODE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROSTHETIC_DISABILITY_CODE_665_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.785480172 67178,44729.762792567 right PROSTHETIC DISABILITY CODE 665.01 2.56 12/04/2024 12:25:29 1 1 IEN 1 NEW_PERSON_200]]> ENTEREDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERED_BY PROS_DISABILITY_CODE_662]]> PROSTHETICDISABILITYCODE VALIP.prosthetic.fm2cw.PROSDISABILITYCODE662 FKey_PROSTHETIC_DISABILITY_CODE FileMan Field Label: 'ADD/DELETE' FileMan Field Number: '5' Flag for AMIS count of patients served. %Library.EnumString 8 ADDDELETE FileMan Field Label: 'AMIS DATE' FileMan Field Number: '6' This field stores the AMIS date of last report that counted this Prosthetic Disability code. %Library.FilemanDate 9 AMIS_DATE FileMan Field Label: 'DATE CODE ADDED' FileMan Field Number: '1' This is the date the Disability Code was entered. %Library.FilemanDate 4 DATE_CODE_ADDED FileMan Field Label: 'DATE CODE DELETED' FileMan Field Number: '10' Contains the date that the Disability code was marked as deleted for this Veteran. Used for calculations on form 7306d and Amis. %Library.FilemanDate 12 DATE_CODE_DELETED FileMan Field Label: 'ELIGIBILITY CATEGORY' FileMan Field Number: '3' This field stores the Eligibility Category for the Patient. %Library.EnumString 6 ELIGIBILITY_CATEGORY FileMan Field Label: 'ENTERED BY' FileMan Field Number: '7' Pointer to the New Person file of who entered this disability code for the patient. VALIP.prosthetic.fm2cw.NEWPERSON200 10 ENTERED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_PROSTHETIC_DISABILITY_CODE_665_01 where %ID=:id) set {ENTERED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERED_BY_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS PATIENT) VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 parent SUBPROSTHETICDISABILITYCODE66501 1 1 PROSTHETICS_PATIENT_665 FileMan Field Label: 'PROSTHETIC DISABILITY CODE' FileMan Field Number: '.01' This is a pointer to the Prosthetic Disability Code file (662). VALIP.prosthetic.fm2cw.PROSDISABILITYCODE662 1 3 PROSTHETIC_DISABILITY_CODE ARABIC DISABILITY NAME This is the Arabic initials for a disability code, such as AMP/LAE for Amputee/Arm, Left, Above Elbow.]]> %Library.String 1 ARABIC_DISABILITY_NAME into :val from VALIP_prosthetic_fm2cw.SUB_PROSTHETIC_DISABILITY_CODE_665_01 where %ID=:id) set {PROSTHETIC_DISABILITY_CODE_ARABIC_DISABILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROSTHETIC_DISABILITY_CODE_ARABIC_DISABILITY_NAME 1 FileMan Field Label: 'REMOVE CODE FLAG' FileMan Field Number: '9' This field stores a code indicating the removal of a disibility code %Library.EnumString 11 REMOVE_CODE_FLAG FileMan Field Label: 'SERVICE/NON-SERVICE' FileMan Field Number: '2' This field stores if the Disability Code is Service or Non-Service connected. %Library.EnumString 5 SERVICENONSERVICE FileMan Field Label: 'SPECIAL LEGISLATION' FileMan Field Number: '4' If Others Eligible is selected as Eligibility Category, then there must also be a Special Legislation selected. %Library.EnumString 7 SPECIAL_LEGISLATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 13 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_PATIENT_665},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_PATIENT_665},"||",i) } set DIK="^RMPR(665,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROSTHETIC_DISABILITY_CODE*C} FDA(665.01,IENS,.01)={PROSTHETIC_DISABILITY_CODE} set:{DATE_CODE_ADDED*C} FDA(665.01,IENS,1)={DATE_CODE_ADDED} set:{SERVICENONSERVICE*C} FDA(665.01,IENS,2)={SERVICENONSERVICE} set:{ELIGIBILITY_CATEGORY*C} FDA(665.01,IENS,3)={ELIGIBILITY_CATEGORY} set:{SPECIAL_LEGISLATION*C} FDA(665.01,IENS,4)={SPECIAL_LEGISLATION} set:{ADDDELETE*C} FDA(665.01,IENS,5)={ADDDELETE} set:{AMIS_DATE*C} FDA(665.01,IENS,6)={AMIS_DATE} set:{ENTERED_BY*C} FDA(665.01,IENS,7)={ENTERED_BY} set:{REMOVE_CODE_FLAG*C} FDA(665.01,IENS,9)={REMOVE_CODE_FLAG} set:{DATE_CODE_DELETED*C} FDA(665.01,IENS,10)={DATE_CODE_DELETED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665.01)") set %SkipFiling=1 if $d(%FMERR(665.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(665.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROSTHETA522S index ^RMPR nonnull 665 {PROSTHETICS_PATIENT_665.IEN} 0]]> 1 "B" {PROSTHETIC_DISABILITY_CODE} {IEN} 0]]> data ^RMPR 665 {PROSTHETICS_PATIENT_665.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 6 "^" 0 7 "^" 0 2 "^" 0 10 "^" 0 4 "^" 0 8 "^" 0 1 "^" 0 9 "^" 0 3 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '669.922' Sub-File/Multiple Name: 'PROSTHETICS CLINIC' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROSTHETICS_CLINIC_669_922 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.803162971 67178,44729.719696378 right PROSTHETICS CLINIC 669.922 2.56 12/04/2024 12:25:29 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBPROSTHETICSCLINIC669922 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.922)") set %SkipFiling=1 if $d(%FMERR(669.922,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.922,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROSTHET2722S data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '44.1' Sub-File/Multiple Name: 'PROVIDER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROVIDER_44_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.360945293 67178,44729.810496416 right PROVIDER 44.1 2.56 12/04/2024 12:25:29 1 1 IEN 1 FileMan Field Label: 'DEFAULT PROVIDER' FileMan Field Number: '.02' Enter 'YES' in this field if the provider is the default for this clinic. Otherwise, enter 'NO'. %Library.EnumString 3 DEFAULT_PROVIDER Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBPROVIDER441 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""PR"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DEFAULT_PROVIDER*C} FDA(44.1,IENS,.02)={DEFAULT_PROVIDER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.1)") set %SkipFiling=1 if $d(%FMERR(44.1,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.1,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SUBPROVIDER441S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "PR" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '694.038' Sub-File/Multiple Name: 'PROVISIONAL DX' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PROVISIONAL_DX_694_038 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.361727631 67178,44729.853819033 right PROVISIONAL DX 694.038 2.56 12/04/2024 12:25:29 1 1 IEN 1 MEDICAL_DIAGNOSISICD_CODES_697_5]]> PROVISIONALDX VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_PROVISIONAL_DX Relationship to parent (file name HEMATOLOGY) VALIP.prosthetic.fm2cw.HEMATOLOGY694 parent SUBPROVISIONALDX694038 1 1 HEMATOLOGY_694 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PROVISIONAL DX' FileMan Field Number: '.01' This field identifies the provisional diagnosis field. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 PROVISIONAL_DX DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_PROVISIONAL_DX_694_038 where %ID=:id) set {PROVISIONAL_DX_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 PROVISIONAL_DX_DIAGNOSIS 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HEMATOLOGY_694},"||"):-1:1 { set DA($i(c))=$p({HEMATOLOGY_694},"||",i) } set DIK="^MCAR(694,"_DA(1)_",10,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PROVISIONAL_DX*C} FDA(694.038,IENS,.01)={PROVISIONAL_DX} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(694.038)") set %SkipFiling=1 if $d(%FMERR(694.038,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(694.038,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPROVISIO29A6S index ^MCAR nonnull 694 {HEMATOLOGY_694.IEN} 0]]> 10 "B" {PROVISIONAL_DX} {IEN} 0]]> data ^MCAR 694 {HEMATOLOGY_694.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 10 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '665.012' Sub-File/Multiple Name: 'PSC ISSUE CARD' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PSC_ISSUE_CARD_665_012 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.815982073 67178,44729.897696627 right PSC ISSUE CARD 665.012 2.56 12/04/2024 12:25:29 1 1 IEN 1 PROS_ITEM_MASTER_661]]> ITEM VALIP.prosthetic.fm2cw.PROSITEMMASTER661 FKey_ITEM FileMan Field Label: 'CANCELLED' FileMan Field Number: '5' This field stores the date the PSC was cancelled for the patient. %Library.FilemanDate 8 CANCELLED FileMan Field Label: 'DETAILED DESCRIPTION' FileMan Field Number: '2' This field stores the description of the item issued on the PSC. If left blank, the IFCAP item Short Description will automatically be used. %Library.String 5 DETAILED_DESCRIPTION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ITEM' FileMan Field Number: '1' This is the PSC item issued to the patient. VALIP.prosthetic.fm2cw.PROSITEMMASTER661 4 ITEM NAME This is the IFCAP Item Master Number.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_PSC_ISSUE_CARD_665_012 where %ID=:id) set {ITEM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ITEM_NAME 1 Relationship to parent (file name PROSTHETICS PATIENT) VALIP.prosthetic.fm2cw.PROSTHETICSPATIENT665 parent SUBPSCISSUECARD665012 1 1 PROSTHETICS_PATIENT_665 FileMan Field Label: 'PSC CATEGORY' FileMan Field Number: '4' This field stores the category of the item issued on the PSC. %Library.EnumString 7 PSC_CATEGORY FileMan Field Label: 'PSC ISSUE CARD DATE' FileMan Field Number: '.01' This is the date the PSC card was issued. %Library.FilemanTimeStamp 1 3 PSC_ISSUE_CARD_DATE FileMan Field Label: 'REMARKS' FileMan Field Number: '6' This field stores any remarks about the PSC issued to the patient. %Library.String 9 REMARKS FileMan Field Label: 'SERIAL NUMBER' FileMan Field Number: '3' This field stores the serial number of the item issued on the PSC. %Library.String 6 SERIAL_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_PATIENT_665},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_PATIENT_665},"||",i) } set DIK="^RMPR(665,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PSC_ISSUE_CARD_DATE*C} FDA(665.012,IENS,.01)={PSC_ISSUE_CARD_DATE} set:{ITEM*C} FDA(665.012,IENS,1)={ITEM} set:{DETAILED_DESCRIPTION*C} FDA(665.012,IENS,2)={DETAILED_DESCRIPTION} set:{SERIAL_NUMBER*C} FDA(665.012,IENS,3)={SERIAL_NUMBER} set:{PSC_CATEGORY*C} FDA(665.012,IENS,4)={PSC_CATEGORY} set:{CANCELLED*C} FDA(665.012,IENS,5)={CANCELLED} set:{REMARKS*C} FDA(665.012,IENS,6)={REMARKS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(665.012)") set %SkipFiling=1 if $d(%FMERR(665.012,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(665.012,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPSCISSUEA320S index ^RMPR nonnull 665 "C" {ITEM} {PROSTHETICS_PATIENT_665.IEN} 0]]> {IEN} 0]]> data ^RMPR 665 {PROSTHETICS_PATIENT_665.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 6 "^" 0 2 "^" 0 4 "^" 0 5 "^" 0 1 "^" 0 7 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '669.9003' Sub-File/Multiple Name: 'PURCHASING AGENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_PURCHASING_AGENT_669_9003 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.822116404 67178,44729.943619366 right PURCHASING AGENT 669.9003 2.56 12/04/2024 12:25:29 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PHONE' FileMan Field Number: '3' This is a free text Phone Number field it should contain the complete phone number to contact this Purchasing Agent. Example: (NNN) NNN-NNNN ex NNNNN %Library.String 5 PHONE FileMan Field Label: 'PRINT NAME' FileMan Field Number: '4' This field must be entered for every PA. This field was created to accommodate a more official form of the PA's name such as adding Mr. or MS. etc. This field could also be populated with another PA's name in case a PA leaves the VA or will be on an extended leave. %Library.String 6 PRINT_NAME Relationship to parent (file name PROSTHETICS SITE PARAMETERS) VALIP.prosthetic.fm2cw.PROSTHETICSSITEPARAMETERS6699 parent SUBPURCHASINGAGENT6699003 1 1 PROSTHETICS_SITE_PARAMETERS_669_9 FileMan Field Label: 'START RANGE' FileMan Field Number: '1' The 2 digit number for the Purchasing Agents starting SSN range 00-99. %Library.Numeric 3 START_RANGE FileMan Field Label: 'STOP RANGE' FileMan Field Number: '2' The 2 digit number for the Purchasing Agents ending SSN range 00-99. %Library.Numeric 4 STOP_RANGE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETICS_SITE_PARAMETERS_669_9},"||"):-1:1 { set DA($i(c))=$p({PROSTHETICS_SITE_PARAMETERS_669_9},"||",i) } set DIK="^RMPR(669.9,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{START_RANGE*C} FDA(669.9003,IENS,1)={START_RANGE} set:{STOP_RANGE*C} FDA(669.9003,IENS,2)={STOP_RANGE} set:{PHONE*C} FDA(669.9003,IENS,3)={PHONE} set:{PRINT_NAME*C} FDA(669.9003,IENS,4)={PRINT_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(669.9003)") set %SkipFiling=1 if $d(%FMERR(669.9003,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(669.9003,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBPURCHASI78CES data ^RMPR 669.9 {PROSTHETICS_SITE_PARAMETERS_669_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 4 "^" 0 5 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '445.026' Sub-File/Multiple Name: 'QUANTITY REPLACEMENT USER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_QUANTITY_REPLACEMENT_USER_445_026 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.567006812 67178,44729.987582509 right QUANTITY REPLACEMENT USER 445.026 2.56 12/04/2024 12:25:29 1 1 IEN 1 NEW_PERSON_200]]> QUANTITYREPLACEMENTUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_QUANTITY_REPLACEMENT_USER Relationship to parent (file name GENERIC INVENTORY) VALIP.prosthetic.fm2cw.GENERICINVENTORY445 parent SUBQUANTITYREPLACEMENTUSER445026 1 1 GENERIC_INVENTORY_445 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'QUANTITY REPLACEMENT USER' FileMan Field Number: '.01' AUTHORIZED REQUESTOR Users in this field will be allowed to request GIP quantities to be replaced by a quantity transaction from the associated supply station. VALIP.prosthetic.fm2cw.NEWPERSON200 1 3 QUANTITY_REPLACEMENT_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_QUANTITY_REPLACEMENT_USER_445_026 where %ID=:id) set {QUANTITY_REPLACEMENT_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 QUANTITY_REPLACEMENT_USER_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERIC_INVENTORY_445},"||"):-1:1 { set DA($i(c))=$p({GENERIC_INVENTORY_445},"||",i) } set DIK="^PRCP(445,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{QUANTITY_REPLACEMENT_USER*C} FDA(445.026,IENS,.01)={QUANTITY_REPLACEMENT_USER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.026)") set %SkipFiling=1 if $d(%FMERR(445.026,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.026,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBQUANTITY9449S index ^PRCP nonnull 445 {GENERIC_INVENTORY_445.IEN} 0]]> 8 "B" {QUANTITY_REPLACEMENT_USER} {IEN} 0]]> data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '19.392' Sub-File/Multiple Name: 'QUEUING REQUIRED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_QUEUING_REQUIRED_19_392 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.371054171 67178,44730.033225452 right QUEUING REQUIRED 19.392 2.56 12/04/2024 12:25:30 1 1 IEN 1 FileMan Field Label: 'DAY(S) FOR TIME PERIOD' FileMan Field Number: '.02' This field is used to specify one or more specific days of the week when the option must be queued to a time outside those specified in the .01 field. %Library.String 4 DAYS_FOR_TIME_PERIOD Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBQUEUINGREQUIRED19392 1 1 OPTION_19 FileMan Field Label: 'TIME PERIOD' FileMan Field Number: '.01' This field is used to specify a time period for the days of the week specified in field .02 during which the option may be run, but output must be queued to a time outside the dates and times specified. %Library.String 1 3 TIME_PERIOD SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",3.92,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TIME_PERIOD*C} FDA(19.392,IENS,.01)={TIME_PERIOD} set:{DAYS_FOR_TIME_PERIOD*C} FDA(19.392,IENS,.02)={DAYS_FOR_TIME_PERIOD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.392)") set %SkipFiling=1 if $d(%FMERR(19.392,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.392,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBQUEUINGR92B2S index ^DIC nonnull 19 {OPTION_19.IEN} 0]]> 3.92 "B" {TIME_PERIOD} {IEN} 0]]> data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3.92 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.02' Sub-File/Multiple Name: 'RACE INFORMATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RACE_INFORMATION_2_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.385545003 67178,44730.076835098 right RACE INFORMATION 2.02 2.56 12/04/2024 12:25:30 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBRACEINFORMATION202 1 1 PATIENT_2 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.02,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.02)") set %SkipFiling=1 if $d(%FMERR(2.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRACEINFOA688S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .02 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '200.072' Sub-File/Multiple Name: 'RAD/NUC MED CLASSIFICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RADNUC_MED_CLASSIFICATION_200_072 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.387984733 67178,44730.123614329 right RAD/NUC MED CLASSIFICATION 200.072 2.56 12/04/2024 12:25:30 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBRADNUCMEDCLASSIFICATION200072 1 1 NEW_PERSON_200 FileMan Field Label: 'RAD/NUC MED CLASSIFICATION' FileMan Field Number: '.01' Defines the role of this individual in the Radiology/Nuclear Medicine world. %Library.EnumString 1 3 RADNUC_MED_CLASSIFICATION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""RAC"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RADNUC_MED_CLASSIFICATION*C} FDA(200.072,IENS,.01)={RADNUC_MED_CLASSIFICATION} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.072)") set %SkipFiling=1 if $d(%FMERR(200.072,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.072,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRADNUCME7276S data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RAC" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.074' Sub-File/Multiple Name: 'RAD/NUC MED LOCATION ACCESS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RADNUC_MED_LOCATION_ACCESS_200_074 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.401383979 67178,44730.168297927 right RAD/NUC MED LOCATION ACCESS 200.074 2.56 12/04/2024 12:25:30 1 1 IEN 1 IMAGING_LOCATIONS_79_1]]> RADNUCMEDLOCATIONACCESS VALIP.prosthetic.fm2cw.IMAGINGLOCATIONS791 FKey_RADNUC_MED_LOCATION_ACCESS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBRADNUCMEDLOCATIONACCESS200074 1 1 NEW_PERSON_200 FileMan Field Label: 'RAD/NUC MED LOCATION ACCESS' FileMan Field Number: '.01' This field will allow the user to access all data specific to a particular Radiology/Nuclear Medicine location. VALIP.prosthetic.fm2cw.IMAGINGLOCATIONS791 1 3 RADNUC_MED_LOCATION_ACCESS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""RAL"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RADNUC_MED_LOCATION_ACCESS*C} FDA(200.074,IENS,.01)={RADNUC_MED_LOCATION_ACCESS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.074)") set %SkipFiling=1 if $d(%FMERR(200.074,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.074,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRADNUCMEC370S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "RAL" "B" {RADNUC_MED_LOCATION_ACCESS} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RAL" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.04' Sub-File/Multiple Name: 'RATED DISABILITIES (VA)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RATED_DISABILITIES_VA_2_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.408353695 67178,44730.214602025 right RATED DISABILITIES (VA) 2.04 2.56 12/04/2024 12:25:30 1 1 IEN 1 FileMan Field Label: 'CURRENT EFFECTIVE DATE' FileMan Field Number: '6' Data will be stuffed from messages from the HEC. This field indicates the most recent date that this disability was evaluated. %Library.FilemanDate 7 CURRENT_EFFECTIVE_DATE FileMan Field Label: 'DISABILITY %' FileMan Field Number: '2' Enter the percentage at which the VA rated this disability for this patient. Only users who hold the designated security key may enter/edit this field. %Library.Numeric 3 DISABILITY_ FileMan Field Label: 'EXTREMITY AFFECTED' FileMan Field Number: '4' %Library.EnumString 5 EXTREMITY_AFFECTED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ORIGINAL EFFECTIVE DATE' FileMan Field Number: '5' Data will be stuffed from messages from the HEC. This field indicates the first date that this disability was evaluated. %Library.FilemanDate 6 ORIGINAL_EFFECTIVE_DATE Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBRATEDDISABILITIESVA204 1 1 PATIENT_2 FileMan Field Label: 'SERVICE CONNECTED' FileMan Field Number: '3' Enter whether or not this rated disability was rated as service connected. Only users who hold the designated security key may enter/edit this field. %Library.EnumString 4 SERVICE_CONNECTED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.372,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DISABILITY_*C} FDA(2.04,IENS,2)={DISABILITY_} set:{SERVICE_CONNECTED*C} FDA(2.04,IENS,3)={SERVICE_CONNECTED} set:{EXTREMITY_AFFECTED*C} FDA(2.04,IENS,4)={EXTREMITY_AFFECTED} set:{ORIGINAL_EFFECTIVE_DATE*C} FDA(2.04,IENS,5)={ORIGINAL_EFFECTIVE_DATE} set:{CURRENT_EFFECTIVE_DATE*C} FDA(2.04,IENS,6)={CURRENT_EFFECTIVE_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.04)") set %SkipFiling=1 if $d(%FMERR(2.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRATEDDIS9AE8S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .372 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 6 "^" 0 2 "^" 0 4 "^" 0 5 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '691.28' Sub-File/Multiple Name: 'RCA ORIGIN OF COLLATERAL' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RCA_ORIGIN_OF_COLLATERAL_691_28 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.412347641 67178,44730.261119541 right RCA ORIGIN OF COLLATERAL 691.28 2.56 12/04/2024 12:25:30 1 1 IEN 1 SEGMENT_OF_CORONARY_ARTERIES_696]]> RCAORIGINOFCOLLATERAL VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_RCA_ORIGIN_OF_COLLATERAL SEGMENT_OF_CORONARY_ARTERIES_696]]> RECEIVINGVESSEL VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_RECEIVING_VESSEL Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBRCAORIGINOFCOLLATERAL69128 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RCA ORIGIN OF COLLATERAL' FileMan Field Number: '.01' This allows the user to enter multiple right coronary artery origin of collateral vessel. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 RCA_ORIGIN_OF_COLLATERAL NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_RCA_ORIGIN_OF_COLLATERAL_691_28 where %ID=:id) set {RCA_ORIGIN_OF_COLLATERAL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RCA_ORIGIN_OF_COLLATERAL_NAME 1 FileMan Field Label: 'RECEIVING VESSEL' FileMan Field Number: '1' This allows the user to enter the receiving vessel. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 4 RECEIVING_VESSEL NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_RCA_ORIGIN_OF_COLLATERAL_691_28 where %ID=:id) set {RECEIVING_VESSEL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RECEIVING_VESSEL_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",23,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RCA_ORIGIN_OF_COLLATERAL*C} FDA(691.28,IENS,.01)={RCA_ORIGIN_OF_COLLATERAL} set:{RECEIVING_VESSEL*C} FDA(691.28,IENS,1)={RECEIVING_VESSEL} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.28)") set %SkipFiling=1 if $d(%FMERR(691.28,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.28,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRCAORIGI477CS data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 23 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.27' Sub-File/Multiple Name: 'RCA SEGMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RCA_SEGMENT_691_27 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.416026901 67178,44730.307258868 right RCA SEGMENT 691.27 2.56 12/04/2024 12:25:30 1 1 IEN 1 LESION_MORPHOLOGY_696_2]]> MORPHOLOGY VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 FKey_MORPHOLOGY PERCENTAGE_LESION_696_1]]> PERCENTNARROWING VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 FKey_PERCENT_NARROWING SEGMENT_OF_CORONARY_ARTERIES_696]]> RCASEGMENT VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 FKey_RCA_SEGMENT Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBRCASEGMENT69127 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MORPHOLOGY' FileMan Field Number: '2' This allows the user to enter the lesion morphology. VALIP.prosthetic.fm2cw.LESIONMORPHOLOGY6962 6 MORPHOLOGY NAME This file holds the various morphologies for the segment fields and percent narrowing field in Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_RCA_SEGMENT_691_27 where %ID=:id) set {MORPHOLOGY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MORPHOLOGY_NAME 1 FileMan Field Label: 'PERCENT NARROWING' FileMan Field Number: '1' This allows the user to enter percent narrowing of the RCA segment. VALIP.prosthetic.fm2cw.PERCENTAGELESION6961 4 PERCENT_NARROWING NAME This field contains a list of various percentage ranges to measure narrowing, lesion, and obstruction percentages by the Catheterization file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_RCA_SEGMENT_691_27 where %ID=:id) set {PERCENT_NARROWING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERCENT_NARROWING_NAME 1 FileMan Field Label: 'PERCENT NARROWING NUMBER' FileMan Field Number: '1.5' This allow the user tp enter percent narrowing of the RCA segment. %Library.Numeric 5 PERCENT_NARROWING_NUMBER FileMan Field Label: 'RCA SEGMENT' FileMan Field Number: '.01' This allows the user to enter multiple right coronary artery segments. VALIP.prosthetic.fm2cw.SEGMENTOFCORONARYARTERIES696 1 3 RCA_SEGMENT NAME This field contains a list of various Coronary Arteries segments for use by the Catheterization sub-module of the Cardiology module.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_RCA_SEGMENT_691_27 where %ID=:id) set {RCA_SEGMENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RCA_SEGMENT_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",21,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RCA_SEGMENT*C} FDA(691.27,IENS,.01)={RCA_SEGMENT} set:{PERCENT_NARROWING*C} FDA(691.27,IENS,1)={PERCENT_NARROWING} set:{PERCENT_NARROWING_NUMBER*C} FDA(691.27,IENS,1.5)={PERCENT_NARROWING_NUMBER} set:{MORPHOLOGY*C} FDA(691.27,IENS,2)={MORPHOLOGY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.27)") set %SkipFiling=1 if $d(%FMERR(691.27,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.27,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRCASEGMED1EES data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 21 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 4 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.3229' Sub-File/Multiple Name: 'REASON FOR STOPPING' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REASON_FOR_STOPPING_700_3229 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.213936728 67178,44730.354053779 right REASON FOR STOPPING 700.3229 2.56 12/04/2024 12:25:30 1 1 IEN 1 REASON_MEDICINE_695_8]]> REASONFORSTOPPING VALIP.prosthetic.fm2cw.REASONMEDICINE6958 FKey_REASON_FOR_STOPPING Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'REASON FOR STOPPING' FileMan Field Number: '.01' This field identifies the Reason for Stopping of an Exercise Special Study. This subfield points to the MEDICINE (REASON) File. VALIP.prosthetic.fm2cw.REASONMEDICINE6958 1 3 REASON_FOR_STOPPING NAME This field holds a list of Medical reasons for various areas of Medicine. Examples: Explain reasons for Pacemaker, Reason for stopping for PFT, etc.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REASON_FOR_STOPPING_700_3229 where %ID=:id) set {REASON_FOR_STOPPING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REASON_FOR_STOPPING_NAME 1 Relationship to parent (file name SPECIAL STUDY) VALIP.prosthetic.fm2cw.SUBSPECIALSTUDY700032 parent SUBREASONFORSTOPPING7003229 1 1 SUB_SPECIAL_STUDY_700_032 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_SPECIAL_STUDY_700_032},"||"):-1:1 { set DA($i(c))=$p({SUB_SPECIAL_STUDY_700_032},"||",i) } set DIK="^MCAR(700,"_DA(2)_",""S"","_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{REASON_FOR_STOPPING*C} FDA(700.3229,IENS,.01)={REASON_FOR_STOPPING} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.3229)") set %SkipFiling=1 if $d(%FMERR(700.3229,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.3229,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREASONFORCC0S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> "S" {SUB_SPECIAL_STUDY_700_032.IEN} 0]]> 3 "B" {REASON_FOR_STOPPING} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "S" {SUB_SPECIAL_STUDY_700_032.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 3 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.65' Sub-File/Multiple Name: 'REASON FOR STUDY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REASON_FOR_STUDY_691_65 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.427469566 67178,44730.406469799 right REASON FOR STUDY 691.65 2.56 12/04/2024 12:25:30 1 1 IEN 1 Relationship to parent (file name HOLTER) VALIP.prosthetic.fm2cw.HOLTER6916 parent SUBREASONFORSTUDY69165 1 1 HOLTER_691_6 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'REASON FOR STUDY' FileMan Field Number: '.01' INDICATION This field contains the rationale for ordering this procedure. %Library.EnumString 1 3 REASON_FOR_STUDY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOLTER_691_6},"||"):-1:1 { set DA($i(c))=$p({HOLTER_691_6},"||",i) } set DIK="^MCAR(691.6,"_DA(1)_",8,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{REASON_FOR_STUDY*C} FDA(691.65,IENS,.01)={REASON_FOR_STUDY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.65)") set %SkipFiling=1 if $d(%FMERR(691.65,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.65,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREASONFO68F2S data ^MCAR 691.6 {HOLTER_691_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '445.06' Sub-File/Multiple Name: 'RECEIPTS HISTORY BY ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RECEIPTS_HISTORY_BY_ITEM_445_06 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.686516398 67178,44730.456232055 right RECEIPTS HISTORY BY ITEM 445.06 2.56 12/04/2024 12:25:30 1 1 IEN 1 FileMan Field Label: 'DATE RECEIVED' FileMan Field Number: '.01' This is the date the item was received. %Library.FilemanDate 1 3 DATE_RECEIVED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'QTY.RECEIVED (UNIT OF ISSUE)' FileMan Field Number: '1' This is the quantity of the item received, in unit of issue. %Library.Numeric 4 QTY_RECEIVED_UNIT_OF_ISSUE FileMan Field Label: '*%STOCK ON HAND BEFORE RECEIPT' FileMan Field Number: '2' This field is no longer used. %Library.Numeric 5 STOCK_ON_HAND_BEFORE_RECEIPT Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBRECEIPTSHISTORYBYITEM44506 1 1 SUB_INVENTORY_ITEM_445_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_RECEIVED*C} FDA(445.06,IENS,.01)={DATE_RECEIVED} set:{QTY_RECEIVED_UNIT_OF_ISSUE*C} FDA(445.06,IENS,1)={QTY_RECEIVED_UNIT_OF_ISSUE} set:{STOCK_ON_HAND_BEFORE_RECEIPT*C} FDA(445.06,IENS,2)={STOCK_ON_HAND_BEFORE_RECEIPT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.06)") set %SkipFiling=1 if $d(%FMERR(445.06,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.06,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRECEIPTSB1B6S data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 3 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '2.648001' Sub-File/Multiple Name: 'RECORD FLAG' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RECORD_FLAG_2_648001 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.443779279 67178,44730.517227765 right RECORD FLAG 2.648001 2.56 12/04/2024 12:25:30 1 1 IEN 1 FileMan Field Label: 'DATE LAST EDITED' FileMan Field Number: '1' %Library.FilemanTimeStamp 4 DATE_LAST_EDITED FileMan Field Label: 'FLAG DESCRIPTION' FileMan Field Number: '3' %Library.String 5 FLAG_DESCRIPTION Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBRECORDFLAG2648001 1 1 PATIENT_2 FileMan Field Label: 'RECORD FLAG CODE' FileMan Field Number: '.01' %Library.EnumString 1 3 RECORD_FLAG_CODE FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '4' %Library.FilemanDate 6 REVIEW_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",648003,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RECORD_FLAG_CODE*C} FDA(2.648001,IENS,.01)={RECORD_FLAG_CODE} set:{DATE_LAST_EDITED*C} FDA(2.648001,IENS,1)={DATE_LAST_EDITED} set:{REVIEW_DATE*C} FDA(2.648001,IENS,4)={REVIEW_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.648001)") set %SkipFiling=1 if $d(%FMERR(2.648001,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.648001,""DIERR"") for details" RETURN } if {FLAG_DESCRIPTION*C} { set D0={RowId} kill wp if {FLAG_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({FLAG_DESCRIPTION},$c(13,10)) { set wp(i)=$p({FLAG_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(2.648001,{IENS},3,,wproot,"%FMERR(2.648001)") if $d(%FMERR(2.648001,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2.648001)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRECORDFL40BBS data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 648003 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 1 new data,i,node set {FLAG_DESCRIPTION}="" merge data=^DPT({S1},648003,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {FLAG_DESCRIPTION}={FLAG_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 2 1 index ^DPT nonnull "ZF" {RECORD_FLAG_CODE} {PATIENT_2.IEN} 0]]> {IEN} 0]]> Generated class for FileMan Sub-File/Multiple Number: '2.08' Sub-File/Multiple Name: '*RECORD TRACKING' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RECORD_TRACKING_2_08 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.441649131 67178,44730.580672423 right *RECORD TRACKING 2.08 2.56 12/04/2024 12:25:30 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBRECORDTRACKING208 1 1 PATIENT_2 FileMan Field Label: 'RECORD TRACKING' FileMan Field Number: '.01' %Library.Numeric 1 3 RECORD_TRACKING SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""DT"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RECORD_TRACKING*C} FDA(2.08,IENS,.01)={RECORD_TRACKING} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.08)") set %SkipFiling=1 if $d(%FMERR(2.08,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.08,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRECORDTR7BC7S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "DT" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.03' Sub-File/Multiple Name: 'REFERRING PHYSICIAN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REFERRING_PHYSICIAN_130_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.450990244 67178,44730.63251298 right REFERRING PHYSICIAN 130.03 2.56 12/04/2024 12:25:30 1 1 IEN 1 FileMan Field Label: 'CITY' FileMan Field Number: '2' City This is the city of the referring physician. %Library.String 5 CITY Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PHONE NUMBER' FileMan Field Number: '5' Phone Number This is the referring physician's telephone number. %Library.String 7 PHONE_NUMBER FileMan Field Label: 'REFERRING PHYSICIAN' FileMan Field Number: '.01' Referring Physician/Medical Center This is the name of the referring physician, or medical center. Although optional, this information may be useful in documentation of this case. %Library.String 1 3 REFERRING_PHYSICIAN FileMan Field Label: 'STREET ADDRESS' FileMan Field Number: '1' Street Address This is the street address of the referring physician. %Library.String 4 STREET_ADDRESS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBREFERRINGPHYSICIAN13003 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'ZIP CODE' FileMan Field Number: '4' Zip Code This is the zip code of the referring physician. %Library.String 6 ZIP_CODE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",18,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{REFERRING_PHYSICIAN*C} FDA(130.03,IENS,.01)={REFERRING_PHYSICIAN} set:{STREET_ADDRESS*C} FDA(130.03,IENS,1)={STREET_ADDRESS} set:{CITY*C} FDA(130.03,IENS,2)={CITY} set:{ZIP_CODE*C} FDA(130.03,IENS,4)={ZIP_CODE} set:{PHONE_NUMBER*C} FDA(130.03,IENS,5)={PHONE_NUMBER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.03)") set %SkipFiling=1 if $d(%FMERR(130.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREFERRIN4B7CS index {REFERRING_PHYSICIAN}'="" 1 ^SRF conditional {SURGERY_130.IEN} 0]]> 18 "B" $$TRUNCATE({REFERRING_PHYSICIAN},30)) {IEN} 0]]> data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 18 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 6 "^" 0 1 "^" 0 2 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '691.04' Sub-File/Multiple Name: 'REGIONAL WALL MOTION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REGIONAL_WALL_MOTION_691_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.45414523 67178,44730.677885093 right REGIONAL WALL MOTION 691.04 2.56 12/04/2024 12:25:30 1 1 IEN 1 REGIONAL_WALL_MOTION_695_1]]> REGIONALWALLMOTION VALIP.prosthetic.fm2cw.REGIONALWALLMOTION6951 FKey_REGIONAL_WALL_MOTION Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBREGIONALWALLMOTION69104 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MODIFIER' FileMan Field Number: '1' This allows the user to choose a descriptive code for type of regional wall abnormalities. %Library.EnumString 4 MODIFIER FileMan Field Label: 'REGIONAL WALL MOTION' FileMan Field Number: '.01' This allows the user to enter multiple left ventricular regional wall abnormalities. VALIP.prosthetic.fm2cw.REGIONALWALLMOTION6951 1 3 REGIONAL_WALL_MOTION NAME This field contains a list of various Regional Wall Motions used by the Echo procedure.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REGIONAL_WALL_MOTION_691_04 where %ID=:id) set {REGIONAL_WALL_MOTION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REGIONAL_WALL_MOTION_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{REGIONAL_WALL_MOTION*C} FDA(691.04,IENS,.01)={REGIONAL_WALL_MOTION} set:{MODIFIER*C} FDA(691.04,IENS,1)={MODIFIER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.04)") set %SkipFiling=1 if $d(%FMERR(691.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREGIONAL7BB7S data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '123.32' Sub-File/Multiple Name: 'RELATED SERVICES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RELATED_SERVICES_123_32 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.468424128 67178,44730.72340058 right RELATED SERVICES 123.32 2.56 12/04/2024 12:25:30 1 1 IEN 1 REQUEST_SERVICES_123_5]]> RELATEDSERVICES VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 FKey_RELATED_SERVICES Relationship to parent (file name GMRC PROCEDURE) VALIP.prosthetic.fm2cw.GMRCPROCEDURE1233 parent SUBRELATEDSERVICES12332 1 1 GMRC_PROCEDURE_123_3 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RELATED SERVICES' FileMan Field Number: '.01' This field will indicate which Consult services from the REQUEST SERVICES (#123.5) file are responsible for the processing of requests for this procedure. VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 1 3 RELATED_SERVICES SERVICE NAME This is the Name of a service or specialty which may receive consult/ requests. This may also be a name which represents a group of services]]> %Library.String 1 SERVICE_NAME into :val from VALIP_prosthetic_fm2cw.SUB_RELATED_SERVICES_123_32 where %ID=:id) set {RELATED_SERVICES_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RELATED_SERVICES_SERVICE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GMRC_PROCEDURE_123_3},"||"):-1:1 { set DA($i(c))=$p({GMRC_PROCEDURE_123_3},"||",i) } set DIK="^GMR(123.3,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RELATED_SERVICES*C} FDA(123.32,IENS,.01)={RELATED_SERVICES} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.32)") set %SkipFiling=1 if $d(%FMERR(123.32,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(123.32,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRELATEDSEC15S index ^GMR nonnull 123.3 {GMRC_PROCEDURE_123_3.IEN} 0]]> 2 "B" {RELATED_SERVICES} {IEN} 0]]> data ^GMR 123.3 {GMRC_PROCEDURE_123_3.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '123.051' Sub-File/Multiple Name: 'REMOTE RESULTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REMOTE_RESULTS_123_051 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.476119491 67178,44730.770178746 right REMOTE RESULTS 123.051 2.56 12/04/2024 12:25:30 1 1 IEN 1 INSTITUTION_4]]> RESULTINGSITE VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_RESULTING_SITE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'REMOTE ASSOCIATED RESULT' FileMan Field Number: '.02' This is the free text representation of a variable pointer from a remote facility. The facility is referenced in the RESULTING SITE field. %Library.String 4 REMOTE_ASSOCIATED_RESULT FileMan Field Label: 'REMOTE RESULT DATE' FileMan Field Number: '.01' This is the date/time that a remote result was added to the record. %Library.FilemanTimeStamp 1 3 REMOTE_RESULT_DATE Relationship to parent (file name REQUEST/CONSULTATION) VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 parent SUBREMOTERESULTS123051 1 1 REQUESTCONSULTATION_123 FileMan Field Label: 'RESULTING SITE' FileMan Field Number: '.03' This field is a pointer to the INSTITUION file and contains the institution that stores the result referenced in the REMOTE ASSOCIATED RESULT FIELD. VALIP.prosthetic.fm2cw.INSTITUTION4 5 RESULTING_SITE NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REMOTE_RESULTS_123_051 where %ID=:id) set {RESULTING_SITE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RESULTING_SITE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({REQUESTCONSULTATION_123},"||"):-1:1 { set DA($i(c))=$p({REQUESTCONSULTATION_123},"||",i) } set DIK="^GMR(123,"_DA(1)_",51,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{REMOTE_RESULT_DATE*C} FDA(123.051,IENS,.01)={REMOTE_RESULT_DATE} set:{REMOTE_ASSOCIATED_RESULT*C} FDA(123.051,IENS,.02)={REMOTE_ASSOCIATED_RESULT} set:{RESULTING_SITE*C} FDA(123.051,IENS,.03)={RESULTING_SITE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.051)") set %SkipFiling=1 if $d(%FMERR(123.051,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(123.051,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREMOTERE4304S index ^GMR nonnull 123 {REQUESTCONSULTATION_123.IEN} 0]]> 51 "AR" {REMOTE_ASSOCIATED_RESULT} {RESULTING_SITE} {IEN} 0]]> index ^GMR nonnull 123 {REQUESTCONSULTATION_123.IEN} 0]]> 51 "B" {REMOTE_RESULT_DATE} {IEN} 0]]> data ^GMR 123 {REQUESTCONSULTATION_123.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 51 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '130.04' Sub-File/Multiple Name: 'REPLACEMENT FLUID TYPE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REPLACEMENT_FLUID_TYPE_130_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.484359752 67178,44730.817471626 right REPLACEMENT FLUID TYPE 130.04 2.56 12/04/2024 12:25:30 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'QTY OF FLUID (ml)' FileMan Field Number: '1' Quantity of Fluid (ml) This is the number of milliliters of replacement fluid given to the patient intravascularly during the operative procedure. %Library.Numeric 3 QTY_OF_FLUID_ML FileMan Field Label: 'REPLACEMENT FLUID COMMENTS' FileMan Field Number: '5' Replacement Fluid Comments These are comments related to this specific fluid type. This information will be used in documentation of the case. %Library.String 6 REPLACEMENT_FLUID_COMMENTS FileMan Field Label: 'SOURCE ID' FileMan Field Number: '3' Source Identification Number This is the unique identification number or code provided by the supplier of this replacement fluid. Although optional, this information may be useful in documentation of this case. %Library.String 4 SOURCE_ID Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBREPLACEMENTFLUIDTYPE13004 1 1 SURGERY_130 FileMan Field Label: 'VA IDENT' FileMan Field Number: '4' VA Identification This is the unique identification characters assigned by the local blood bank for type specific blood components. %Library.String 5 VA_IDENT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{QTY_OF_FLUID_ML*C} FDA(130.04,IENS,1)={QTY_OF_FLUID_ML} set:{SOURCE_ID*C} FDA(130.04,IENS,3)={SOURCE_ID} set:{VA_IDENT*C} FDA(130.04,IENS,4)={VA_IDENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.04)") set %SkipFiling=1 if $d(%FMERR(130.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.04,""DIERR"") for details" RETURN } if {REPLACEMENT_FLUID_COMMENTS*C} { set D0={RowId} kill wp if {REPLACEMENT_FLUID_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({REPLACEMENT_FLUID_COMMENTS},$c(13,10)) { set wp(i)=$p({REPLACEMENT_FLUID_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.04,{IENS},5,,wproot,"%FMERR(130.04)") if $d(%FMERR(130.04,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.04)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREPLACEM1B12S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 4 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 1 new data,i,node set {REPLACEMENT_FLUID_COMMENTS}="" merge data=^SRF({S1},4,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REPLACEMENT_FLUID_COMMENTS}={REPLACEMENT_FLUID_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 4 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '130.14' Sub-File/Multiple Name: 'REQ BLOOD KIND' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REQ_BLOOD_KIND_130_14 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.48442498 67178,44730.964490244 right REQ BLOOD KIND 130.14 2.56 12/04/2024 12:25:30 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'REASON NOT USE STD' FileMan Field Number: '3' Reason the Standard Amount wasn't Used This indicates why the standard unit of this blood product was not used. %Library.String 6 REASON_NOT_USE_STD FileMan Field Label: 'REQ BLOOD KIND' FileMan Field Number: '.01' Required Blood Product This is the blood product required during this operative procedure. More than one type of blood product may be ordered for a procedure. %Library.String 1 3 REQ_BLOOD_KIND FileMan Field Label: 'SCREEN, CROSSMATCH, AUTOLOGOUS' FileMan Field Number: '2' Screen, Crossmatch, or Autologous This indicates whether the blood product is screened, crossmatched, or autologous. %Library.EnumString 5 SCREEN_CROSSMATCH_AUTOLOGOUS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBREQBLOODKIND13014 1 1 SURGERY_130 FileMan Field Label: 'UNITS REQ' FileMan Field Number: '1' Units Required This is the number of units of this blood product type estimated to be required for this procedure. %Library.Numeric 4 UNITS_REQ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",11,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{REQ_BLOOD_KIND*C} FDA(130.14,IENS,.01)={REQ_BLOOD_KIND} set:{UNITS_REQ*C} FDA(130.14,IENS,1)={UNITS_REQ} set:{SCREEN_CROSSMATCH_AUTOLOGOUS*C} FDA(130.14,IENS,2)={SCREEN_CROSSMATCH_AUTOLOGOUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.14)") set %SkipFiling=1 if $d(%FMERR(130.14,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.14,""DIERR"") for details" RETURN } if {REASON_NOT_USE_STD*C} { set D0={RowId} kill wp if {REASON_NOT_USE_STD}'="" { set wproot="wp" for i=1:1:$l({REASON_NOT_USE_STD},$c(13,10)) { set wp(i)=$p({REASON_NOT_USE_STD},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.14,{IENS},3,,wproot,"%FMERR(130.14)") if $d(%FMERR(130.14,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.14)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREQBLOODBD00S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 11 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 1 new data,i,node set {REASON_NOT_USE_STD}="" merge data=^SRF({S1},11,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REASON_NOT_USE_STD}={REASON_NOT_USE_STD}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 3 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '123.02' Sub-File/Multiple Name: 'REQUEST PROCESSING ACTIVITY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REQUEST_PROCESSING_ACTIVITY_123_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.511951026 67178,44730.863748701 right REQUEST PROCESSING ACTIVITY 123.02 2.56 12/04/2024 12:25:30 1 1 IEN 1 REQUEST_ACTION_TYPES_123_1]]> ACTIVITY VALIP.prosthetic.fm2cw.REQUESTACTIONTYPES1231 FKey_ACTIVITY INSTITUTION_4]]> CERNERFACILITYSENDING VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_CERNER_FACILITY_SENDING REQUEST_SERVICES_123_5]]> FORWARDEDFROM VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 FKey_FORWARDED_FROM NEW_PERSON_200]]> PREVIOUSLYASSIGNEDTO VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PREVIOUSLY_ASSIGNED_TO DEVICE_3_5]]> PRINTEDTO VALIP.prosthetic.fm2cw.DEVICE35 FKey_PRINTED_TO Foreign Key constraint for Variable Pointer reference field RESULT_NOTE RESULTNOTE VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_RESULT_NOTE NEW_PERSON_200]]> WHOSRESPONSIBLEFORACTIVITY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_WHOS_RESPONSIBLE_FOR_ACTIVITY NEW_PERSON_200]]> WHOENTEREDACTIVITY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_WHO_ENTERED_ACTIVITY FileMan Field Label: 'ACTION METHOD' FileMan Field Number: '10' The action method will identify how the user performed the action, from a consults menu, Order entry menu, a GUI menu, or a TIU interface. %Library.EnumString 23 ACTION_METHOD FileMan Field Label: 'ACTIVITY' FileMan Field Number: '1' This is the activity that is being updated. VALIP.prosthetic.fm2cw.REQUESTACTIONTYPES1231 12 ACTIVITY ACTION TYPE This file contains the tracking actions which may be taken to track a Consult or Request order from its entry in CPRS through its resolution. This file also contains relationships of CPRS statuses which are the result of the action taken.]]> %Library.String 1 ACTION_TYPE into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {ACTIVITY_ACTION_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 ACTIVITY_ACTION_TYPE 1 FileMan Field Label: 'CERNER FACILITY SENDING' FileMan Field Number: '.33' This field holds the name of the Cerner facility from file 4 that sent the comment, if sent by a Cerner facility. VALIP.prosthetic.fm2cw.INSTITUTION4 11 CERNER_FACILITY_SENDING NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {CERNER_FACILITY_SENDING_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CERNER_FACILITY_SENDING_NAME 1 FileMan Field Label: 'COMMENT' FileMan Field Number: '5' A comment may be added here which would be associated with the Action Type selected at the "Select Action: " prompt. %Library.String 16 COMMENT FileMan Field Label: 'DATE/TIME OF ACTION ENTRY' FileMan Field Number: '.01' ACTIVITY ENTRY DATE This is the actual date and time the activity tracking update was added to the REQUEST PROCESSING ACTIVITY multiple. %Library.FilemanTimeStamp 1 3 DATETIME_OF_ACTION_ENTRY FileMan Field Label: 'DATE/TIME OF ACTUAL ACTIVITY' FileMan Field Number: '2' The Date and time the actual activity was done. This may be different than the DATE/TIME OF ACTION ENTRY for certain actions. %Library.FilemanTimeStamp 13 DATETIME_OF_ACTUAL_ACTIVITY FileMan Field Label: 'FORWARDED FROM' FileMan Field Number: '6' This is the Service which forwarded the Consult to the new TO SERVICE. It is maintained for an audit trail. VALIP.prosthetic.fm2cw.REQUESTSERVICES1235 17 FORWARDED_FROM SERVICE NAME This is the Name of a service or specialty which may receive consult/ requests. This may also be a name which represents a group of services]]> %Library.String 1 SERVICE_NAME into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {FORWARDED_FROM_SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FORWARDED_FROM_SERVICE_NAME 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PREVIOUSLY ASSIGNED TO' FileMan Field Number: '7' This is the provider who was previously identified in the ATTENTION (#7) field of the REQUEST/CONSULTATION (#123) file. VALIP.prosthetic.fm2cw.NEWPERSON200 18 PREVIOUSLY_ASSIGNED_TO NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {PREVIOUSLY_ASSIGNED_TO_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREVIOUSLY_ASSIGNED_TO_NAME 1 FileMan Field Label: 'PREVIOUS REMOTE SERVICE NAME' FileMan Field Number: '.31' This field holds the name of the service that the inter-facility consult was was directed to at the remote site prior to being forwarded. %Library.String 9 PREVIOUS_REMOTE_SERVICE_NAME FileMan Field Label: 'PRINTED TO' FileMan Field Number: '8' This is the printer that the CONSULT FORM 513 was printed to upon the orders release from OE/RR or when the Consult/Request order is forwarded from one service to another. VALIP.prosthetic.fm2cw.DEVICE35 19 PRINTED_TO NAME This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should not be the internal name for the device but a logical one. It must start with 1 uppercase and not contain lowercase.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {PRINTED_TO_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRINTED_TO_NAME 1 FileMan Field Label: 'REMOTE ACTIVITY TIME ZONE' FileMan Field Number: '.23' This is the short representation of the time zone in which this activity took place. When an inter-facility consult update message is generated at a remote facility, the current MAILMAN TIME ZONE at that facility is sent with the message and stored in this field. %Library.String 6 REMOTE_ACTIVITY_TIME_ZONE FileMan Field Label: 'REMOTE DATE/TIME OF FILING' FileMan Field Number: '.25' This field will hold the date/time this particular activity was filed at the remote facility. This field will be used in conjunction with the DATE/TIME OF ACTUAL ACTIVITY field to detect and reject the filing of duplicate activities. %Library.FilemanTimeStamp 8 REMOTE_DATETIME_OF_FILING FileMan Field Label: 'REMOTE ENTERING PERSON' FileMan Field Number: '.21' This is the free text name of the individual that entered this activity at the facility referenced in the ROUTING FACILITY field. This field will only be popluated for activities entered on a remote VistA system for an inter-facility consult. %Library.String 4 REMOTE_ENTERING_PERSON FileMan Field Label: 'REMOTE RESPONSIBLE PERSON' FileMan Field Number: '.22' This is the free text name of the individual that is responsible for this activity at the facility referenced in the ROUTING FACILITY field. This field will only be popluated for activities entered on a remote VistA system for an inter-facility consult. %Library.String 5 REMOTE_RESPONSIBLE_PERSON FileMan Field Label: 'REMOTE RESULT' FileMan Field Number: '.24' This field will contain a reference to a result stored on a remote VistA system. Result will be in form: ien;source file of result;institution ien where result resides %Library.String 7 REMOTE_RESULT Relationship to parent (file name REQUEST/CONSULTATION) VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 parent SUBREQUESTPROCESSINGACTIVITY12302 1 1 REQUESTCONSULTATION_123 FileMan Field Label: 'RESULT' FileMan Field Number: '9' This is the result that was updated when this activity occurred. %Library.String 20 1 RESULTNOTE RESULT Variable Pointer Reference Field for Pointer field Note 'TIU DOCUMENT' VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 21 1 RESULT_NOTE DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {RESULT_NOTE_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 RESULT_NOTE_DOCUMENT_TYPE 1 Variable Pointer Value Field for Pointer field RESULT %Library.String 1 22 if {RESULT_NOTE_DOCUMENT_TYPE}'="" { set {*}={RESULT_NOTE_DOCUMENT_TYPE} quit } set {*}="" 1 RESULT_VALUE FileMan Field Label: 'SENT FROM CERNER SITE' FileMan Field Number: '.32' This field will identify comments that were originated within Cerner. %Library.EnumString 10 SENT_FROM_CERNER_SITE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 24 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WHO'S RESPONSIBLE FOR ACTIVITY' FileMan Field Number: '3' The clinician or service person responsible for the activity. VALIP.prosthetic.fm2cw.NEWPERSON200 14 WHOS_RESPONSIBLE_FOR_ACTIVITY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {WHOS_RESPONSIBLE_FOR_ACTIVITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WHOS_RESPONSIBLE_FOR_ACTIVITY_NAME 1 FileMan Field Label: 'WHO ENTERED ACTIVITY' FileMan Field Number: '4' VALIP.prosthetic.fm2cw.NEWPERSON200 15 WHO_ENTERED_ACTIVITY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_REQUEST_PROCESSING_ACTIVITY_123_02 where %ID=:id) set {WHO_ENTERED_ACTIVITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 WHO_ENTERED_ACTIVITY_NAME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({REQUESTCONSULTATION_123},"||"):-1:1 { set DA($i(c))=$p({REQUESTCONSULTATION_123},"||",i) } set DIK="^GMR(123,"_DA(1)_",40,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATETIME_OF_ACTION_ENTRY*C} FDA(123.02,IENS,.01)={DATETIME_OF_ACTION_ENTRY} set:{REMOTE_ENTERING_PERSON*C} FDA(123.02,IENS,.21)={REMOTE_ENTERING_PERSON} set:{REMOTE_RESPONSIBLE_PERSON*C} FDA(123.02,IENS,.22)={REMOTE_RESPONSIBLE_PERSON} set:{REMOTE_ACTIVITY_TIME_ZONE*C} FDA(123.02,IENS,.23)={REMOTE_ACTIVITY_TIME_ZONE} set:{REMOTE_RESULT*C} FDA(123.02,IENS,.24)={REMOTE_RESULT} set:{REMOTE_DATETIME_OF_FILING*C} FDA(123.02,IENS,.25)={REMOTE_DATETIME_OF_FILING} set:{PREVIOUS_REMOTE_SERVICE_NAME*C} FDA(123.02,IENS,.31)={PREVIOUS_REMOTE_SERVICE_NAME} set:{SENT_FROM_CERNER_SITE*C} FDA(123.02,IENS,.32)={SENT_FROM_CERNER_SITE} set:{CERNER_FACILITY_SENDING*C} FDA(123.02,IENS,.33)={CERNER_FACILITY_SENDING} set:{ACTIVITY*C} FDA(123.02,IENS,1)={ACTIVITY} set:{DATETIME_OF_ACTUAL_ACTIVITY*C} FDA(123.02,IENS,2)={DATETIME_OF_ACTUAL_ACTIVITY} set:{WHOS_RESPONSIBLE_FOR_ACTIVITY*C} FDA(123.02,IENS,3)={WHOS_RESPONSIBLE_FOR_ACTIVITY} set:{WHO_ENTERED_ACTIVITY*C} FDA(123.02,IENS,4)={WHO_ENTERED_ACTIVITY} set:{FORWARDED_FROM*C} FDA(123.02,IENS,6)={FORWARDED_FROM} set:{PREVIOUSLY_ASSIGNED_TO*C} FDA(123.02,IENS,7)={PREVIOUSLY_ASSIGNED_TO} set:{PRINTED_TO*C} FDA(123.02,IENS,8)={PRINTED_TO} set:{RESULT*C} FDA(123.02,IENS,9)={RESULT} set:{ACTION_METHOD*C} FDA(123.02,IENS,10)={ACTION_METHOD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.02)") set %SkipFiling=1 if $d(%FMERR(123.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(123.02,""DIERR"") for details" RETURN } if {COMMENT*C} { set D0={RowId} kill wp if {COMMENT}'="" { set wproot="wp" for i=1:1:$l({COMMENT},$c(13,10)) { set wp(i)=$p({COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(123.02,{IENS},5,,wproot,"%FMERR(123.02)") if $d(%FMERR(123.02,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(123.02)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREQUESTP9022S index ^GMR nonnull 123 {REQUESTCONSULTATION_123.IEN} 0]]> 40 "AC" {ACTIVITY} $$TRUNCATE({REMOTE_DATETIME_OF_FILING},17)) $$TRUNCATE({DATETIME_OF_ACTUAL_ACTIVITY},17)) {IEN} 0]]> index ^GMR nonnull 123 {REQUESTCONSULTATION_123.IEN} 0]]> 40 "B" {DATETIME_OF_ACTION_ENTRY} {IEN} 0]]> data ^GMR 123 {REQUESTCONSULTATION_123.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 40 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 10 "^" 0 2 "^" 3 3 1 new data,i,node set {COMMENT}="" merge data=^GMR(123,{S2},40,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENT}={COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 3 "^" 0 6 "^" 0 7 "^" 3 1 "^" 0 8 "^" 2 3 "^" 2 5 "^" 2 1 "^" 2 2 "^" 2 4 "^" 0 9 If $p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",9),";",2,999)'="TIU(8925," s {RESULT_NOTE}="" Quit s {RESULT_NOTE}=$p($p($g(^GMR({S1},{S2},{S3},{S4},0)),"^",9),";") "^" 3 2 "^" 0 4 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '75.12' Sub-File/Multiple Name: 'REQUEST STATUS TIMES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_REQUEST_STATUS_TIMES_75_12 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.506076592 67178,44730.919661472 right REQUEST STATUS TIMES 75.12 2.56 12/04/2024 12:25:30 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NEW STATUS' FileMan Field Number: '2' This field contains the new status an order is placed into. The available statuses are: 'Discontinued', 'Complete', 'Hold', 'Pending', 'Active', 'Scheduled' and 'Cancelled'. %Library.EnumString 4 NEW_STATUS Relationship to parent (file name RAD/NUC MED ORDERS) VALIP.prosthetic.fm2cw.RADNUCMEDORDERS751 parent SUBREQUESTSTATUSTIMES7512 1 1 RADNUC_MED_ORDERS_75_1 FileMan Field Label: 'STATUS CHANGE DATE/TIME' FileMan Field Number: '.01' THE DATE AND TIME OF THE STATUS CHANGE This field contains the date and time that the request status was changed. %Library.FilemanTimeStamp 1 3 STATUS_CHANGE_DATETIME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RADNUC_MED_ORDERS_75_1},"||"):-1:1 { set DA($i(c))=$p({RADNUC_MED_ORDERS_75_1},"||",i) } set DIK="^RAO(75.1,"_DA(1)_",""T"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STATUS_CHANGE_DATETIME*C} FDA(75.12,IENS,.01)={STATUS_CHANGE_DATETIME} set:{NEW_STATUS*C} FDA(75.12,IENS,2)={NEW_STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(75.12)") set %SkipFiling=1 if $d(%FMERR(75.12,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(75.12,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBREQUESTS2789S data ^RAO 75.1 {RADNUC_MED_ORDERS_75_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "T" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 persistent _PUBLIC 0 RowId SUB_RESTR__POSITION_AIDS_130_31 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.515436807 67178,44731.009329954 right 130.31 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RESTRAINT COMMENTS' FileMan Field Number: '2' Restraint/Positioning Aid Comments This contains brief comments related to where or why a restraint or positioning aid was applied. Your answer can be up to 45 characters in length. %Library.String 3 RESTRAINT_COMMENTS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBRESTRPOSITIONAIDS13031 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",20,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RESTRAINT_COMMENTS*C} FDA(130.31,IENS,2)={RESTRAINT_COMMENTS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.31)") set %SkipFiling=1 if $d(%FMERR(130.31,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.31,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRESTRPOSAFE4S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 20 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '699.56' Sub-File/Multiple Name: 'RESULTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RESULTS_699_56 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.515652947 67178,44731.052800776 right RESULTS 699.56 2.56 12/04/2024 12:25:31 1 1 IEN 1 RESULTS_699_81]]> RESULTS VALIP.prosthetic.fm2cw.RESULTS69981 FKey_RESULTS Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBRESULTS69956 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RESULTS' FileMan Field Number: '.01' This field identifies a result of the overall procedure. VALIP.prosthetic.fm2cw.RESULTS69981 1 3 RESULTS ENDOSCOPIC RESULTS This field contains a name of a result applicable to an Endoscopy.]]> %Library.String 1 ENDOSCOPIC_RESULTS into :val from VALIP_prosthetic_fm2cw.SUB_RESULTS_699_56 where %ID=:id) set {RESULTS_ENDOSCOPIC_RESULTS}=$select(SQLCODE=0:val,1:"")]]> 1 RESULTS_ENDOSCOPIC_RESULTS 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",16,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RESULTS*C} FDA(699.56,IENS,.01)={RESULTS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.56)") set %SkipFiling=1 if $d(%FMERR(699.56,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.56,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRESULTS6ED6CS data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 16 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.43' Sub-File/Multiple Name: 'RETURNED TO SURGERY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RETURNED_TO_SURGERY_130_43 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.533724871 67178,44731.098132239 right RETURNED TO SURGERY 130.43 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'REASON' FileMan Field Number: '1' Reason for Return This is the reason that the patient was returned to surgery. %Library.EnumString 3 REASON FileMan Field Label: 'RELATED/UNRELATED' FileMan Field Number: '3' Return Related or Unrelated to this Case This determines whether the return within 30 days is related to any of the operations performed in this case. If so, enter 'R' for 'RELATED'. Otherwise, enter 'U' for 'UNRELATED'. %Library.EnumString 5 RELATEDUNRELATED FileMan Field Label: 'RET TO SURGERY COMMENTS' FileMan Field Number: '2' Comments Related to the Return Case These are comments about the return to surgery which may be helpful in documentation of this case. %Library.String 4 RET_TO_SURGERY_COMMENTS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBRETURNEDTOSURGERY13043 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",29,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{REASON*C} FDA(130.43,IENS,1)={REASON} set:{RELATEDUNRELATED*C} FDA(130.43,IENS,3)={RELATEDUNRELATED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.43)") set %SkipFiling=1 if $d(%FMERR(130.43,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.43,""DIERR"") for details" RETURN } if {RET_TO_SURGERY_COMMENTS*C} { set D0={RowId} kill wp if {RET_TO_SURGERY_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({RET_TO_SURGERY_COMMENTS},$c(13,10)) { set wp(i)=$p({RET_TO_SURGERY_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130.43,{IENS},2,,wproot,"%FMERR(130.43)") if $d(%FMERR(130.43,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130.43)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRETURNEDD75FS data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 29 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 3 1 new data,i,node set {RET_TO_SURGERY_COMMENTS}="" merge data=^SRF({S1},29,{S3},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {RET_TO_SURGERY_COMMENTS}={RET_TO_SURGERY_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} Generated class for FileMan Sub-File/Multiple Number: '691.23' Sub-File/Multiple Name: 'RIGHT CORONARY CATHETER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RIGHT_CORONARY_CATHETER_691_23 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.541869873 67178,44731.148303003 right RIGHT CORONARY CATHETER 691.23 2.56 12/04/2024 12:25:31 1 1 IEN 1 HEART_CATHETER_695_6]]> RIGHTCORONARYCATHETER VALIP.prosthetic.fm2cw.HEARTCATHETER6956 FKey_RIGHT_CORONARY_CATHETER FileMan Field Label: 'ADEQUACY OF ENGAGEMENT' FileMan Field Number: '1' This allows the user to enter the adequacy of the right coronary catheter used. %Library.EnumString 4 ADEQUACY_OF_ENGAGEMENT Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBRIGHTCORONARYCATHETER69123 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RIGHT CORONARY CATHETER' FileMan Field Number: '.01' This allows the user to enter multiple right coronary catheters used. VALIP.prosthetic.fm2cw.HEARTCATHETER6956 1 3 RIGHT_CORONARY_CATHETER NAME This field contains a list of the various types of Heart catheters used for a heart Catheterization.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_RIGHT_CORONARY_CATHETER_691_23 where %ID=:id) set {RIGHT_CORONARY_CATHETER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RIGHT_CORONARY_CATHETER_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",14,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RIGHT_CORONARY_CATHETER*C} FDA(691.23,IENS,.01)={RIGHT_CORONARY_CATHETER} set:{ADEQUACY_OF_ENGAGEMENT*C} FDA(691.23,IENS,1)={ADEQUACY_OF_ENGAGEMENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.23)") set %SkipFiling=1 if $d(%FMERR(691.23,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.23,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRIGHTCOR5461S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 14 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.09' Sub-File/Multiple Name: 'RISK FACTOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RISK_FACTOR_691_09 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.542941434 67178,44731.1935041 right RISK FACTOR 691.09 2.56 12/04/2024 12:25:31 1 1 IEN 1 PAST_HISTORY_AND_RISK_FACTOR_695_4]]> RISKFACTOR VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 FKey_RISK_FACTOR Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBRISKFACTOR69109 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RISK FACTOR' FileMan Field Number: '.01' This field identifies the medical patients risk factors listed on the procedure request form. VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 1 3 RISK_FACTOR RISK FACTOR This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules.]]> %Library.String 1 RISK_FACTOR into :val from VALIP_prosthetic_fm2cw.SUB_RISK_FACTOR_691_09 where %ID=:id) set {RISK_FACTOR_RISK_FACTOR}=$select(SQLCODE=0:val,1:"")]]> 1 RISK_FACTOR_RISK_FACTOR 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",.4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RISK_FACTOR*C} FDA(691.09,IENS,.01)={RISK_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.09)") set %SkipFiling=1 if $d(%FMERR(691.09,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.09,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRISKFACTD00ES index ^MCAR nonnull 691 {ECHO_691.IEN} 0]]> .4 "B" {RISK_FACTOR} {IEN} 0]]> data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.44' Sub-File/Multiple Name: 'RISK FACTOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RISK_FACTOR_691_44 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.562620021 67178,44731.238213728 right RISK FACTOR 691.44 2.56 12/04/2024 12:25:31 1 1 IEN 1 PAST_HISTORY_AND_RISK_FACTOR_695_4]]> RISKFACTOR VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 FKey_RISK_FACTOR Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBRISKFACTOR69144 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RISK FACTOR' FileMan Field Number: '.01' This field contains the morbidity factors which this patient is most susceptible to. VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 1 3 RISK_FACTOR RISK FACTOR This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules.]]> %Library.String 1 RISK_FACTOR into :val from VALIP_prosthetic_fm2cw.SUB_RISK_FACTOR_691_44 where %ID=:id) set {RISK_FACTOR_RISK_FACTOR}=$select(SQLCODE=0:val,1:"")]]> 1 RISK_FACTOR_RISK_FACTOR 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",.4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RISK_FACTOR*C} FDA(691.44,IENS,.01)={RISK_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.44)") set %SkipFiling=1 if $d(%FMERR(691.44,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.44,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRISKFACTD5CDS index ^MCAR nonnull 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} 0]]> .4 "B" {RISK_FACTOR} {IEN} 0]]> data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.52' Sub-File/Multiple Name: 'RISK FACTOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RISK_FACTOR_691_52 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.572081499 67178,44731.285883574 right RISK FACTOR 691.52 2.56 12/04/2024 12:25:31 1 1 IEN 1 PAST_HISTORY_AND_RISK_FACTOR_695_4]]> RISKFACTOR VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 FKey_RISK_FACTOR Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBRISKFACTOR69152 1 1 ELECTROCARDIOGRAM_EKG_691_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RISK FACTOR' FileMan Field Number: '.01' This field contains the morbidity factors which this patient is most susceptible to in regards to this procedure. VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 1 3 RISK_FACTOR RISK FACTOR This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules.]]> %Library.String 1 RISK_FACTOR into :val from VALIP_prosthetic_fm2cw.SUB_RISK_FACTOR_691_52 where %ID=:id) set {RISK_FACTOR_RISK_FACTOR}=$select(SQLCODE=0:val,1:"")]]> 1 RISK_FACTOR_RISK_FACTOR 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",.4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RISK_FACTOR*C} FDA(691.52,IENS,.01)={RISK_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.52)") set %SkipFiling=1 if $d(%FMERR(691.52,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.52,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRISKFACT474CS index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> .4 "B" {RISK_FACTOR} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.67' Sub-File/Multiple Name: 'RISK FACTOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RISK_FACTOR_691_67 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.57269837 67178,44731.333026185 right RISK FACTOR 691.67 2.56 12/04/2024 12:25:31 1 1 IEN 1 PAST_HISTORY_AND_RISK_FACTOR_695_4]]> RISKFACTOR VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 FKey_RISK_FACTOR Relationship to parent (file name HOLTER) VALIP.prosthetic.fm2cw.HOLTER6916 parent SUBRISKFACTOR69167 1 1 HOLTER_691_6 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RISK FACTOR' FileMan Field Number: '.01' This field contains the morbidity factors which this patient is most susceptible to in regards to this procedure. VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 1 3 RISK_FACTOR RISK FACTOR This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules.]]> %Library.String 1 RISK_FACTOR into :val from VALIP_prosthetic_fm2cw.SUB_RISK_FACTOR_691_67 where %ID=:id) set {RISK_FACTOR_RISK_FACTOR}=$select(SQLCODE=0:val,1:"")]]> 1 RISK_FACTOR_RISK_FACTOR 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOLTER_691_6},"||"):-1:1 { set DA($i(c))=$p({HOLTER_691_6},"||",i) } set DIK="^MCAR(691.6,"_DA(1)_",.4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RISK_FACTOR*C} FDA(691.67,IENS,.01)={RISK_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.67)") set %SkipFiling=1 if $d(%FMERR(691.67,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.67,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRISKFACTB48CS index ^MCAR nonnull 691.6 {HOLTER_691_6.IEN} 0]]> .4 "B" {RISK_FACTOR} {IEN} 0]]> data ^MCAR 691.6 {HOLTER_691_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.702' Sub-File/Multiple Name: 'RISK FACTOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RISK_FACTOR_691_702 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.577379964 67178,44731.377470797 right RISK FACTOR 691.702 2.56 12/04/2024 12:25:31 1 1 IEN 1 PAST_HISTORY_AND_RISK_FACTOR_695_4]]> RISKFACTOR VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 FKey_RISK_FACTOR Relationship to parent (file name EXERCISE TOLERANCE TEST) VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 parent SUBRISKFACTOR691702 1 1 EXERCISE_TOLERANCE_TEST_691_7 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RISK FACTOR' FileMan Field Number: '.01' This field contains the morbidity factors which this patient is most susceptible to in regards to this procedure. VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 1 3 RISK_FACTOR RISK FACTOR This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules.]]> %Library.String 1 RISK_FACTOR into :val from VALIP_prosthetic_fm2cw.SUB_RISK_FACTOR_691_702 where %ID=:id) set {RISK_FACTOR_RISK_FACTOR}=$select(SQLCODE=0:val,1:"")]]> 1 RISK_FACTOR_RISK_FACTOR 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({EXERCISE_TOLERANCE_TEST_691_7},"||"):-1:1 { set DA($i(c))=$p({EXERCISE_TOLERANCE_TEST_691_7},"||",i) } set DIK="^MCAR(691.7,"_DA(1)_",.4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RISK_FACTOR*C} FDA(691.702,IENS,.01)={RISK_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.702)") set %SkipFiling=1 if $d(%FMERR(691.702,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.702,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRISKFACT8067S index ^MCAR nonnull 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} 0]]> .4 "B" {RISK_FACTOR} {IEN} 0]]> data ^MCAR 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.802' Sub-File/Multiple Name: 'RISK FACTOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RISK_FACTOR_691_802 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.589634131 67178,44731.421938231 right RISK FACTOR 691.802 2.56 12/04/2024 12:25:31 1 1 IEN 1 PAST_HISTORY_AND_RISK_FACTOR_695_4]]> RISKFACTOR VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 FKey_RISK_FACTOR Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBRISKFACTOR691802 1 1 ELECTROPHYSIOLOGY_EP_691_8 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'RISK FACTOR' FileMan Field Number: '.01' These are the conditions which contribute to the overall percentages of disease. VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 1 3 RISK_FACTOR RISK FACTOR This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules.]]> %Library.String 1 RISK_FACTOR into :val from VALIP_prosthetic_fm2cw.SUB_RISK_FACTOR_691_802 where %ID=:id) set {RISK_FACTOR_RISK_FACTOR}=$select(SQLCODE=0:val,1:"")]]> 1 RISK_FACTOR_RISK_FACTOR 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RISK_FACTOR*C} FDA(691.802,IENS,.01)={RISK_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.802)") set %SkipFiling=1 if $d(%FMERR(691.802,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.802,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRISKFACT8357S index ^MCAR nonnull 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} 0]]> 2 "B" {RISK_FACTOR} {IEN} 0]]> data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '690.08' Sub-File/Multiple Name: 'RISK FACTOR (PACE)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RISK_FACTOR_PACE_690_08 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.600750098 67178,44731.467667343 right RISK FACTOR (PACE) 690.08 2.56 12/04/2024 12:25:31 1 1 IEN 1 PAST_HISTORY_AND_RISK_FACTOR_695_4]]> RISKFACTORPACE VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 FKey_RISK_FACTOR_PACE FileMan Field Label: 'DATE RISK FACTOR REPORTED' FileMan Field Number: '1' This 'date format' field documents the realization of a hazard. %Library.FilemanTimeStamp 4 DATE_RISK_FACTOR_REPORTED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL PATIENT) VALIP.prosthetic.fm2cw.MEDICALPATIENT690 parent SUBRISKFACTORPACE69008 1 1 MEDICAL_PATIENT_690 FileMan Field Label: 'RISK FACTOR (PACE)' FileMan Field Number: '.01' This field defines the conditions which make electronic cardiac regulation a particular hazard for this patient. VALIP.prosthetic.fm2cw.PASTHISTORYANDRISKFACTOR6954 1 3 RISK_FACTOR_PACE RISK FACTOR This field contains a list of risk factors and past histories that are risk factors for use by the Medicine package. It is currently being used by the Cardiology and Pacemaker modules.]]> %Library.String 1 RISK_FACTOR into :val from VALIP_prosthetic_fm2cw.SUB_RISK_FACTOR_PACE_690_08 where %ID=:id) set {RISK_FACTOR_PACE_RISK_FACTOR}=$select(SQLCODE=0:val,1:"")]]> 1 RISK_FACTOR_PACE_RISK_FACTOR 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_PATIENT_690},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_PATIENT_690},"||",i) } set DIK="^MCAR(690,"_DA(1)_",""P1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RISK_FACTOR_PACE*C} FDA(690.08,IENS,.01)={RISK_FACTOR_PACE} set:{DATE_RISK_FACTOR_REPORTED*C} FDA(690.08,IENS,1)={DATE_RISK_FACTOR_REPORTED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(690.08)") set %SkipFiling=1 if $d(%FMERR(690.08,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(690.08,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBRISKFACT1392S index ^MCAR nonnull 690 {MEDICAL_PATIENT_690.IEN} 0]]> "P1" "B" {RISK_FACTOR_PACE} {IEN} 0]]> data ^MCAR 690 {MEDICAL_PATIENT_690.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "P1" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '8925.112' Sub-File/Multiple Name: 'ROUTINE AUTO PRINT EVENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ROUTINE_AUTO_PRINT_EVENT_8925_112 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.604775941 67178,44731.512582884 right ROUTINE AUTO PRINT EVENT 8925.112 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ROUTINE AUTO PRINT EVENT' FileMan Field Number: '.01' %Library.EnumString 1 3 ROUTINE_AUTO_PRINT_EVENT Relationship to parent (file name TIU DOCUMENT DEFINITION) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 parent SUBROUTINEAUTOPRINTEVENT8925112 1 1 TIU_DOCUMENT_DEFINITION_8925_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_DOCUMENT_DEFINITION_8925_1},"||"):-1:1 { set DA($i(c))=$p({TIU_DOCUMENT_DEFINITION_8925_1},"||",i) } set DIK="^TIU(8925.1,"_DA(1)_",12,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ROUTINE_AUTO_PRINT_EVENT*C} FDA(8925.112,IENS,.01)={ROUTINE_AUTO_PRINT_EVENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.112)") set %SkipFiling=1 if $d(%FMERR(8925.112,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.112,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBROUTINEA8AFDS index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> 12 "B" {ROUTINE_AUTO_PRINT_EVENT} {IEN} 0]]> data ^TIU 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 12 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2005.0111' Sub-File/Multiple Name: 'ROUTING LOG' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ROUTING_LOG_2005_0111 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.606236558 67178,44731.556762348 right ROUTING LOG 2005.0111 2.56 12/04/2024 12:25:31 1 1 IEN 1 FileMan Field Label: 'DESTINATION NAME' FileMan Field Number: '.01' The value of this field is a string that identifies the location to which the current image has been routed. %Library.String 1 3 DESTINATION_NAME FileMan Field Label: 'FILE NAME' FileMan Field Number: '6' The value of this field is a string that represents the name of the (host system) file as it appears at the location to which the image has been copied. %Library.String 6 FILE_NAME FileMan Field Label: 'FILE TYPE' FileMan Field Number: '7' The value of this field is a code for the type of data that is stored in the file that is described in the current record. %Library.EnumString 7 FILE_TYPE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name IMAGE) VALIP.prosthetic.fm2cw.IMAGE2005 parent SUBROUTINGLOG20050111 1 1 IMAGE_2005 FileMan Field Label: 'TIMESTAMP PURGE' FileMan Field Number: '5' The value of this field is a timestamp that indicates the date and time when the copy of the current image was purged from the location that is described in the current record. %Library.FilemanTimeStamp 5 TIMESTAMP_PURGE FileMan Field Label: 'TIMESTAMP TRANSMIT' FileMan Field Number: '4' The value of this field is a timestamp that indicates the date and time when the current image was transmitted to the location described in the current record. %Library.FilemanTimeStamp 4 TIMESTAMP_TRANSMIT SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({IMAGE_2005},"||"):-1:1 { set DA($i(c))=$p({IMAGE_2005},"||",i) } set DIK="^MAG(2005,"_DA(1)_",6,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DESTINATION_NAME*C} FDA(2005.0111,IENS,.01)={DESTINATION_NAME} set:{TIMESTAMP_TRANSMIT*C} FDA(2005.0111,IENS,4)={TIMESTAMP_TRANSMIT} set:{TIMESTAMP_PURGE*C} FDA(2005.0111,IENS,5)={TIMESTAMP_PURGE} set:{FILE_NAME*C} FDA(2005.0111,IENS,6)={FILE_NAME} set:{FILE_TYPE*C} FDA(2005.0111,IENS,7)={FILE_TYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.0111)") set %SkipFiling=1 if $d(%FMERR(2005.0111,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2005.0111,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBROUTINGLC2B6S data ^MAG 2005 {IMAGE_2005.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 6 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 6 "^" 0 7 "^" 0 5 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '2005.0106' Sub-File/Multiple Name: 'ROUTING TIMESTAMP' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_ROUTING_TIMESTAMP_2005_0106 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.619152406 67178,44731.601527571 right ROUTING TIMESTAMP 2005.0106 2.56 12/04/2024 12:25:31 1 1 IEN 1 FileMan Field Label: 'FILENAME' FileMan Field Number: '4' The value of this field is the name of the transmitted file as it is at the destination location. This file name contains all directory prefixes and a 'type' suffix. %Library.String 5 FILENAME Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name IMAGE) VALIP.prosthetic.fm2cw.IMAGE2005 parent SUBROUTINGTIMESTAMP20050106 1 1 IMAGE_2005 FileMan Field Label: 'LOG ENTRY' FileMan Field Number: '7' The value of this field is an integer number that indicates the entry in the "permanent" log of all routed copies of the current image (as required by HIPAA). This value is used to record when images are purged from their routed destination. %Library.Numeric 8 LOG_ENTRY FileMan Field Label: 'ROUTING TIMESTAMP' FileMan Field Number: '.01' This field keeps track of any routing activity. For each time that an image file is transmitted in the context of 'routing', an entry will be added to this multiple that records which type of image file was transmitted (FULL, BIG, ABSTRACT, etcetera), and to which destination (pointer to network location) it was transmitted. %Library.FilemanTimeStamp 1 3 ROUTING_TIMESTAMP FileMan Field Label: 'START TRANSMIT' FileMan Field Number: '5' The value of this field is a timestamp that indicates the date and time when the transmission of a file started. Together with the value of the field ROUTING TIMESTAMP, which indicates the time when the transmission completed, statistics can be calculated on how long it took to transmit image files. %Library.FilemanTimeStamp 6 START_TRANSMIT FileMan Field Label: 'TIMESTAMP QUEUE ENTRY' FileMan Field Number: '6' The value of this field is a timestamp that indicates the date and time when the entry was made into the routing queue. Together with the value of the field START TRANSMIT, which indicates when the transmission started, statistics can be calculated related to wait times in the routing queue. %Library.FilemanTimeStamp 7 TIMESTAMP_QUEUE_ENTRY FileMan Field Label: 'TYPE' FileMan Field Number: '3' The value of this field indicates what type of image file was transmitted (FULL, BIG, TEXT, DICOM or ABSTRACT). %Library.EnumString 4 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({IMAGE_2005},"||"):-1:1 { set DA($i(c))=$p({IMAGE_2005},"||",i) } set DIK="^MAG(2005,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{ROUTING_TIMESTAMP*C} FDA(2005.0106,IENS,.01)={ROUTING_TIMESTAMP} set:{TYPE*C} FDA(2005.0106,IENS,3)={TYPE} set:{FILENAME*C} FDA(2005.0106,IENS,4)={FILENAME} set:{START_TRANSMIT*C} FDA(2005.0106,IENS,5)={START_TRANSMIT} set:{TIMESTAMP_QUEUE_ENTRY*C} FDA(2005.0106,IENS,6)={TIMESTAMP_QUEUE_ENTRY} set:{LOG_ENTRY*C} FDA(2005.0106,IENS,7)={LOG_ENTRY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2005.0106)") set %SkipFiling=1 if $d(%FMERR(2005.0106,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2005.0106,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBROUTINGT34F8S data ^MAG 2005 {IMAGE_2005.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 4 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 4 "^" 0 7 "^" 0 1 "^" 0 5 "^" 0 6 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '19.05' Sub-File/Multiple Name: 'RPC' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_RPC_19_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.630780982 67178,44731.646045644 right RPC 19.05 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^DIC(19,$p({RowId},"||"),"RPC",{IEN},1)) 1 NODE_1 Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBRPC1905 1 1 OPTION_19 FileMan Field Label: 'RPCKEY' FileMan Field Number: '1' This field is the free-text name from the Security Key File that will be checked when this remote procedure call is requested to the broker. If the user does not hold this key then the request will be denied. %Library.String 3 RPCKEY FileMan Field Label: 'RULES' FileMan Field Number: '2' This field contains standard M code that will be executed when this remote procedure call is requested from the broker. The variable XQRPCOK is set to 1 and the code is executed. If the value of that variable is reset to 0 by the RULES code, then the request is denied. %Library.String 1 5 s {RULES}=$e({NODE_1},1,245) 1 RULES SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",""RPC"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{RPCKEY*C} FDA(19.05,IENS,1)={RPCKEY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.05)") set %SkipFiling=1 if $d(%FMERR(19.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.SUBRPC1905S data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "RPC" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '44.0001' Sub-File/Multiple Name: 'SATURDAY TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SATURDAY_TEMPLATE_44_0001 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.632007453 67178,44731.691836105 right SATURDAY TEMPLATE 44.0001 2.56 12/04/2024 12:25:31 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBSATURDAYTEMPLATE440001 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIMIT DATE' FileMan Field Number: '.01' The pattern stored at this date is applicable for Saturdays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Saturday when appointments may be made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Saturdays from the previous entry date. %Library.Numeric 1 3 LIMIT_DATE FileMan Field Label: 'MASTER PATTERN' FileMan Field Number: '1' Master pattern set up for clinic for saturdays. %Library.String 1 5 s {MASTER_PATTERN}=$e({NODE_1},1,80) 1 MASTER_PATTERN Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"T6",{IEN},1)) 1 NODE_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T6"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LIMIT_DATE*C} FDA(44.0001,IENS,.01)={LIMIT_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.0001)") set %SkipFiling=1 if $d(%FMERR(44.0001,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.0001,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSATURDAYE0B9S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T6" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '375.05' Sub-File/Multiple Name: 'SC/EI CLASSIFICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SCEI_CLASSIFICATION_375_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.638498373 67178,44731.737740281 right SC/EI CLASSIFICATION 375.05 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PFSS ACCOUNT) VALIP.prosthetic.fm2cw.PFSSACCOUNT375 parent SUBSCEICLASSIFICATION37505 1 1 PFSS_ACCOUNT_375 FileMan Field Label: 'SET ID' FileMan Field Number: '.01' SC/EI Classification data related to the charge is usually a set of classification codes, which causes multiple records to be created in subfile #375.05. The value in this field merely indicates the order in which the subfile record was created. %Library.Numeric 1 3 SET_ID FileMan Field Label: 'TYPE' FileMan Field Number: '.02' SC/EI Classification data related to the charge can only be one of the following types: AO, IR, SC, EC, MST, HNC, CV, or SHAD. %Library.EnumString 4 TYPE FileMan Field Label: 'VALUE' FileMan Field Number: '.03' SC/EI Classification data related to the charge can have any of the following values: Yes (1), No (0), or Unknown (null). %Library.EnumString 5 VALUE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PFSS_ACCOUNT_375},"||"):-1:1 { set DA($i(c))=$p({PFSS_ACCOUNT_375},"||",i) } set DIK="^IBBAA(375,"_DA(1)_",""ZCL"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SET_ID*C} FDA(375.05,IENS,.01)={SET_ID} set:{TYPE*C} FDA(375.05,IENS,.02)={TYPE} set:{VALUE*C} FDA(375.05,IENS,.03)={VALUE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(375.05)") set %SkipFiling=1 if $d(%FMERR(375.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(375.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSCEICLASC747S data ^IBBAA 375 {PFSS_ACCOUNT_375.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ZCL" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan File Number: '774' File Name: 'SUBSCRIPTION CONTROL' Class generated by %fm2class version 2.56 This file is used to control the flow of messages from one system to another. It is currently used by CIRN to permit sites to subscribe via HL7 Master File updates to patient information. This subscription 'request' message contains the data necessary to update the Subscription Control file via the api: UPD^HLSUB(HLSCN,HLNN,HLTP,HLAD,HLTD,HLRAP,.HLER) HLSCN-subscription control number HLNN-Logical Link name HLTP-subscription type 0-patient descriptive only 1-patient clinical and descriptive 2-other (locally defined) HLAD-activation date HLTD-termination date (optional) HLRAP-HL7 receiving application HLER-error messages (pass by reference) The patient file maintains a pointer to this file. When a clinical event takes place pertaining to a particular patient, the subscription control number is looked up in the patient file, then a call is made to return the current list of subscribers using: GET^HLSUB(HLSCN,HLTP,HLCL,.HLL) HLSCN-subscription control number HLTP-subscription type (null returns ALL) HLCL-HL7 1.6 client protocol (optional, returned in first piece of return array. HLL-return array. Always in format HLL("LINKS",n)=CLIENT^LOGICAL LINK^remainder of node data HL7 1.6, Patch 14 provides additional documentation on the HLL array and dynamic addressing in general. persistent _PUBLIC 0 RowId SUBSCRIPTION_CONTROL_774 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.59867596 67178,44716.749382872 right SUBSCRIPTION CONTROL 774 2.56 12/04/2024 12:25:16 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '.03' %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^HLS(774,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NUMBER' FileMan Field Number: '.01' A new entry in this file is created by making a call to $$ACT^HLSUB. %Library.Numeric 1 3 NUMBER FileMan Field Label: 'PACKAGE' FileMan Field Number: '.02' This is the application or package responsible for creating this subscription. %Library.String 4 PACKAGE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^HLS(774," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NUMBER}'="" FDA(774,"+1,",.01)={"NUMBER"} set:{PACKAGE}'="" FDA(774,"+1,",.02)={"PACKAGE"} set:{DESCRIPTION}'="" FDA(774,"+1,",.03)={"DESCRIPTION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(774)") set %SkipFiling=1 if $d(%FMERR(774,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(774)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NUMBER*C} FDA(774,IENS,.01)={NUMBER} set:{PACKAGE*C} FDA(774,IENS,.02)={PACKAGE} set:{DESCRIPTION*C} FDA(774,IENS,.03)={DESCRIPTION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(774)") set %SkipFiling=1 if $d(%FMERR(774,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(774)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSCRIPTIOF92AS index ^HLS nonnull 774 "B" {NUMBER} {IEN} 0]]> data ^HLS 774 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 1 "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.75' Sub-File/Multiple Name: 'SECONDARY DIAGNOSIS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SECONDARY_DIAGNOSIS_699_75 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.655973601 67178,44731.783309933 right SECONDARY DIAGNOSIS 699.75 2.56 12/04/2024 12:25:31 1 1 IEN 1 ANATOMY_697]]> ANATOMY VALIP.prosthetic.fm2cw.ANATOMY697 FKey_ANATOMY MEDICAL_DIAGNOSISICD_CODES_697_5]]> SECONDARYDIAGNOSIS VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 FKey_SECONDARY_DIAGNOSIS FileMan Field Label: 'ANATOMY' FileMan Field Number: '2' This allows the user to enter the anatomy of the secondary diagnosis. Once this is entered, it may not be edited. VALIP.prosthetic.fm2cw.ANATOMY697 5 ANATOMY NAME This field contains a list of body locations for use by the various medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SECONDARY_DIAGNOSIS_699_75 where %ID=:id) set {ANATOMY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ANATOMY_NAME 1 Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBSECONDARYDIAGNOSIS69975 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SECONDARY DIAGNOSIS' FileMan Field Number: '.01' This field identifies a diagnosis chosen from the list of impressions entered minus the diagnosis entered as the primary diagnosis. VALIP.prosthetic.fm2cw.MEDICALDIAGNOSISICDCODES6975 1 3 SECONDARY_DIAGNOSIS DIAGNOSIS This field identifies a list of diagnoses for the various medical tests.]]> %Library.String 1 DIAGNOSIS into :val from VALIP_prosthetic_fm2cw.SUB_SECONDARY_DIAGNOSIS_699_75 where %ID=:id) set {SECONDARY_DIAGNOSIS_DIAGNOSIS}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_DIAGNOSIS_DIAGNOSIS 1 FileMan Field Label: 'SECONDARY DIAGNOSIS IMPRESSION' FileMan Field Number: '1' This contains a free text comment regarding the chosen secondary diagnosis. %Library.String 4 SECONDARY_DIAGNOSIS_IMPRESSION SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",27,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SECONDARY_DIAGNOSIS*C} FDA(699.75,IENS,.01)={SECONDARY_DIAGNOSIS} set:{SECONDARY_DIAGNOSIS_IMPRESSION*C} FDA(699.75,IENS,1)={SECONDARY_DIAGNOSIS_IMPRESSION} set:{ANATOMY*C} FDA(699.75,IENS,2)={ANATOMY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.75)") set %SkipFiling=1 if $d(%FMERR(699.75,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.75,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSECONDAR7D22S index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 27 "B" {SECONDARY_DIAGNOSIS} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 27 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.03' Sub-File/Multiple Name: 'SECONDARY MENU OPTIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SECONDARY_MENU_OPTIONS_200_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.662498937 67178,44731.830038689 right SECONDARY MENU OPTIONS 200.03 2.56 12/04/2024 12:25:31 1 1 IEN 1 OPTION_19]]> SECONDARYMENUOPTIONS VALIP.prosthetic.fm2cw.OPTION19 FKey_SECONDARY_MENU_OPTIONS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBSECONDARYMENUOPTIONS20003 1 1 NEW_PERSON_200 FileMan Field Label: 'SECONDARY MENU OPTIONS' FileMan Field Number: '.01' This is an option which is merged with the users primary menu and XUCOMMAND option, giving the user this option on all of her/his menus. VALIP.prosthetic.fm2cw.OPTION19 1 3 SECONDARY_MENU_OPTIONS NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SECONDARY_MENU_OPTIONS_200_03 where %ID=:id) set {SECONDARY_MENU_OPTIONS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_MENU_OPTIONS_NAME 1 FileMan Field Label: 'SYNONYM' FileMan Field Number: '2' This is a user-specific synonym which may be used in addressing this option. %Library.String 4 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",203,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SECONDARY_MENU_OPTIONS*C} FDA(200.03,IENS,.01)={SECONDARY_MENU_OPTIONS} set:{SYNONYM*C} FDA(200.03,IENS,2)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.03)") set %SkipFiling=1 if $d(%FMERR(200.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSECONDAR371CS index ^VA nonnull 200 "AD" {SECONDARY_MENU_OPTIONS} {NEW_PERSON_200.IEN} 0]]> {IEN} 0]]> index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 203 "B" {SECONDARY_MENU_OPTIONS} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 203 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '75.13' Sub-File/Multiple Name: 'SECONDARY ORDERING ICD DIAG.' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SECONDARY_ORDERING_ICD_DIAG__75_13 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.664520473 67178,44731.876784008 right SECONDARY ORDERING ICD DIAG. 75.13 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name RAD/NUC MED ORDERS) VALIP.prosthetic.fm2cw.RADNUCMEDORDERS751 parent SUBSECONDARYORDERINGICDDIAG7513 1 1 RADNUC_MED_ORDERS_75_1 FileMan Field Label: 'SECONDARY DX RELATED TO AO' FileMan Field Number: '3' This field will be used to indicate if this order was for treating a VA patient based on an Agent Orange related problem. %Library.EnumString 4 SECONDARY_DX_RELATED_TO_AO FileMan Field Label: 'SECONDARY DX RELATED TO CV' FileMan Field Number: '8' This field will be used to indicate if this order was for treating a VA patient based on a Combat Veteran related problem. %Library.EnumString 9 SECONDARY_DX_RELATED_TO_CV FileMan Field Label: 'SECONDARY DX RELATED TO HNC' FileMan Field Number: '7' This field will be used to indicate if this order was for treating a VA patient based on a Head and Neck cancer (HNC) related problem. %Library.EnumString 8 SECONDARY_DX_RELATED_TO_HNC FileMan Field Label: 'SECONDARY DX RELATED TO IR' FileMan Field Number: '4' This field will be used to indicate if this order was for treating a VA patient based on an Ionizing Radiation related problem. %Library.EnumString 5 SECONDARY_DX_RELATED_TO_IR FileMan Field Label: 'SECONDARY DX RELATED TO MST' FileMan Field Number: '6' This field will be used to indicate if this order was for treating a VA patient based on a Military Sexual Trauma related problem. %Library.EnumString 7 SECONDARY_DX_RELATED_TO_MST FileMan Field Label: 'SECONDARY DX RELATED TO SC' FileMan Field Number: '2' This field will be used to indicate if this order was for treating a VA patient based on a Service Connected related problem. %Library.EnumString 3 SECONDARY_DX_RELATED_TO_SC FileMan Field Label: 'SECONDARY DX RELATED TO SHAD' FileMan Field Number: '9' This field is used to indicate if this order was for treating a Shipboard Hazard and Defense related problem. %Library.EnumString 10 SECONDARY_DX_RELATED_TO_SHAD FileMan Field Label: 'SECONDARY DX RELATED TO SWAC' FileMan Field Number: '5' This field is used to indicate if this order was for treating a VA patient based on a Southwest Asia Conditions related problem. %Library.EnumString 6 SECONDARY_DX_RELATED_TO_SWAC SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 11 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({RADNUC_MED_ORDERS_75_1},"||"):-1:1 { set DA($i(c))=$p({RADNUC_MED_ORDERS_75_1},"||",i) } set DIK="^RAO(75.1,"_DA(1)_",""BAS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SECONDARY_DX_RELATED_TO_SC*C} FDA(75.13,IENS,2)={SECONDARY_DX_RELATED_TO_SC} set:{SECONDARY_DX_RELATED_TO_AO*C} FDA(75.13,IENS,3)={SECONDARY_DX_RELATED_TO_AO} set:{SECONDARY_DX_RELATED_TO_IR*C} FDA(75.13,IENS,4)={SECONDARY_DX_RELATED_TO_IR} set:{SECONDARY_DX_RELATED_TO_SWAC*C} FDA(75.13,IENS,5)={SECONDARY_DX_RELATED_TO_SWAC} set:{SECONDARY_DX_RELATED_TO_MST*C} FDA(75.13,IENS,6)={SECONDARY_DX_RELATED_TO_MST} set:{SECONDARY_DX_RELATED_TO_HNC*C} FDA(75.13,IENS,7)={SECONDARY_DX_RELATED_TO_HNC} set:{SECONDARY_DX_RELATED_TO_CV*C} FDA(75.13,IENS,8)={SECONDARY_DX_RELATED_TO_CV} set:{SECONDARY_DX_RELATED_TO_SHAD*C} FDA(75.13,IENS,9)={SECONDARY_DX_RELATED_TO_SHAD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(75.13)") set %SkipFiling=1 if $d(%FMERR(75.13,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(75.13,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSECONDAR178BS data ^RAO 75.1 {RADNUC_MED_ORDERS_75_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "BAS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 8 "^" 0 7 "^" 0 4 "^" 0 6 "^" 0 2 "^" 0 9 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '810.41' Sub-File/Multiple Name: 'SEQUENCE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SEQUENCE_810_41 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.668963766 67178,44731.922869866 right SEQUENCE 810.41 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'OPERATION' FileMan Field Number: '.03' This is the condition used in processing the sequence/finding rule. Each processing step will have a start and end list, a finding rule and an operation The possible operations are: ADD - Patients with findings in the rule are added to the start list to create the end list. REMOVE - Patients with findings in the rule are removed from the start list to create the end list. SELECT - Patients without findings in the rule are removed from the start list to create the end list. The end list is always stored in ^TMP("PXRMRULE"_sequence,$J). The start list may be the end list from another finding rule in the rule set or, alternatively, may be a patient list (#810.5). Patient lists may be merged using the ADD operation. %Library.EnumString 4 OPERATION Relationship to parent (file name REMINDER LIST RULE) VALIP.prosthetic.fm2cw.REMINDERLISTRULE8104 parent SUBSEQUENCE81041 1 1 REMINDER_LIST_RULE_810_4 FileMan Field Label: 'SEQUENCE' FileMan Field Number: '.01' A rule set is defined with one or more sequences of list rules that indicate the sequence the list rules should be processed when the patient list is created. This is the sequence number associated with the list rule. The patient list created while processing each sequential list rule is stored in ^TMP("PXRMRULE"_sequence,$J). After the rule set is processed, the patient list is stored in the Reminder Patient List file. %Library.Numeric 1 3 SEQUENCE %Library.String 5 SEQUENCE_BEGINNING_DATETIME %Library.String 6 SEQUENCE_ENDING_DATETIME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({REMINDER_LIST_RULE_810_4},"||"):-1:1 { set DA($i(c))=$p({REMINDER_LIST_RULE_810_4},"||",i) } set DIK="^PXRM(810.4,"_DA(1)_",30,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SEQUENCE*C} FDA(810.41,IENS,.01)={SEQUENCE} set:{OPERATION*C} FDA(810.41,IENS,.03)={OPERATION} set:{SEQUENCE_BEGINNING_DATETIME*C} FDA(810.41,IENS,2)={SEQUENCE_BEGINNING_DATETIME} set:{SEQUENCE_ENDING_DATETIME*C} FDA(810.41,IENS,3)={SEQUENCE_ENDING_DATETIME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(810.41)") set %SkipFiling=1 if $d(%FMERR(810.41,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(810.41,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSEQUENCEE0FAS index ^PXRM nonnull 810.4 {REMINDER_LIST_RULE_810_4.IEN} 0]]> 30 "B" {SEQUENCE} {IEN} 0]]> data ^PXRM 810.4 {REMINDER_LIST_RULE_810_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 30 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 1 "^" 1 1 "^" 1 2 Generated class for FileMan Sub-File/Multiple Number: '2.05' Sub-File/Multiple Name: 'SERVICE CONNECTED CONDITIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SERVICE_CONNECTED_CONDITIONS_2_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.691943417 67178,44731.969095675 right SERVICE CONNECTED CONDITIONS 2.05 2.56 12/04/2024 12:25:31 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBSERVICECONNECTEDCONDITIONS205 1 1 PATIENT_2 FileMan Field Label: 'PERCENTAGE' FileMan Field Number: '.02' Enter the percentage that the patient states this disability was rated at. %Library.Numeric 4 PERCENTAGE FileMan Field Label: 'SERVICE CONNECTED CONDITIONS' FileMan Field Number: '.01' Service Connected Conditions as stated by applicant Enter conditions as stated by applicant for which s/he claims service connection. %Library.String 1 3 SERVICE_CONNECTED_CONDITIONS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.373,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SERVICE_CONNECTED_CONDITIONS*C} FDA(2.05,IENS,.01)={SERVICE_CONNECTED_CONDITIONS} set:{PERCENTAGE*C} FDA(2.05,IENS,.02)={PERCENTAGE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.05)") set %SkipFiling=1 if $d(%FMERR(2.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSERVICECOF09S data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .373 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.3215' Sub-File/Multiple Name: 'SERVICE [OEF OR OIF]' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SERVICE_OEF_OR_OIF_2_3215 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.699813909 67178,44732.013850122 right SERVICE [OEF OR OIF] 2.3215 2.56 12/04/2024 12:25:32 1 1 IEN 1 FileMan Field Label: 'DATA LOCKED' FileMan Field Number: '.04' This is a flag that indicates the data is 'locked' at the site and can't be changed or deleted. This flag is set to 1 if the source of the data is the HEC system. %Library.EnumString 6 DATA_LOCKED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LOCATION OF SERVICE' FileMan Field Number: '.01' This is the operation in which the patient was in combat during the specified time period. %Library.EnumString 1 3 LOCATION_OF_SERVICE FileMan Field Label: 'OEF/OIF FROM DATE' FileMan Field Number: '.02' If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on or after 9/01/2001 and the end date must be after 9/11/2001. If the service indicated is OIF, this date must be on or after 3/01/2003 and the end date must be after 3/19/2003. The meaning of this date depends on where the information was obtained from. If the data came from the VIS, Environmental Medicine or FHIE systems, this is the start date of military pay for the assignment to the OEF/OIF operation. If it came from any other source, it is the date the patient was actually deployed to the OEF/OIF area. %Library.FilemanDate 4 OEFOIF_FROM_DATE FileMan Field Label: 'OEF/OIF TO DATE' FileMan Field Number: '.03' If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on or after 9/11/2001. If the service indicated is OIF, this date must be on or after 3/19/2003. The meaning of this date depends on where the information was obtained from. If the data came from the VIS, Environmental Medicine or FHIE systems, this is the military pay end date for the assignment to the OEF/OIF operation. If it came from any other source, it is the date the patient actually left the OEF/OIF area. %Library.FilemanDate 5 OEFOIF_TO_DATE Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBSERVICEOEFOROIF23215 1 1 PATIENT_2 FileMan Field Label: 'RECORDED DATE/TIME' FileMan Field Number: '.05' This is a time stamp for when the data was last added/updated. %Library.FilemanTimeStamp 7 RECORDED_DATETIME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.3215,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LOCATION_OF_SERVICE*C} FDA(2.3215,IENS,.01)={LOCATION_OF_SERVICE} set:{OEFOIF_FROM_DATE*C} FDA(2.3215,IENS,.02)={OEFOIF_FROM_DATE} set:{OEFOIF_TO_DATE*C} FDA(2.3215,IENS,.03)={OEFOIF_TO_DATE} set:{DATA_LOCKED*C} FDA(2.3215,IENS,.04)={DATA_LOCKED} set:{RECORDED_DATETIME*C} FDA(2.3215,IENS,.05)={RECORDED_DATETIME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.3215)") set %SkipFiling=1 if $d(%FMERR(2.3215,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.3215,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSERVICEO7525S index ^DPT nonnull {PATIENT_2.IEN} 0]]> .3215 "B" {LOCATION_OF_SERVICE} {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .3215 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 4 "^" 0 1 "^" 0 2 "^" 0 3 "^" 0 5 Generated class for FileMan Sub-File/Multiple Number: '80.04' Sub-File/Multiple Name: 'SEX' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SEX_80_04 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.700569928 67178,44732.104894816 right SEX 80.04 2.56 12/04/2024 12:25:32 1 1 IEN 1 Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBSEX8004 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SEX' FileMan Field Number: '1' This is the sex designation for the diagnosis. %Library.EnumString 4 SEX FileMan Field Label: 'SEX EFFECTIVE DATE' FileMan Field Number: '.01' This is the date the Sex designation (F/M) became effective. %Library.FilemanDate 1 3 SEX_EFFECTIVE_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SEX_EFFECTIVE_DATE*C} FDA(80.04,IENS,.01)={SEX_EFFECTIVE_DATE} set:{SEX*C} FDA(80.04,IENS,1)={SEX} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.04)") set %SkipFiling=1 if $d(%FMERR(80.04,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.04,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.SUBSEX8004S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 5 "B" {SEX_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 5 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.025' Sub-File/Multiple Name: 'SEXUAL ORIENTATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SEXUAL_ORIENTATION_2_025 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.701982625 67178,44732.059976111 right SEXUAL ORIENTATION 2.025 2.56 12/04/2024 12:25:32 1 1 IEN 1 FileMan Field Label: 'DATE CREATED' FileMan Field Number: '.03' The date value entered identifies when this Sexual Orientation was added to the patient's record. %Library.FilemanDate 4 DATE_CREATED FileMan Field Label: 'DATE LAST UPDATED' FileMan Field Number: '.04' The date value entered identifies when this Sexual Orientation was last updated on the patient's record. %Library.FilemanDate 5 DATE_LAST_UPDATED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBSEXUALORIENTATION2025 1 1 PATIENT_2 FileMan Field Label: 'STATUS' FileMan Field Number: '.02' This field is used to note/indicate the current status for this Sexual Orientation of the patient. %Library.EnumString 3 STATUS FileMan Field Label: 'TYPE OF UPDATE' FileMan Field Number: '.06' 'L'ocal denotes the Sexual Orientations were added/updated by the Local VistA Instance. 'R'emote denotes the Sexual Orientations were added/updated via a Remote VistA Instance, Self Service App or Website via HL7. %Library.EnumString 6 TYPE_OF_UPDATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",.025,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STATUS*C} FDA(2.025,IENS,.02)={STATUS} set:{DATE_CREATED*C} FDA(2.025,IENS,.03)={DATE_CREATED} set:{DATE_LAST_UPDATED*C} FDA(2.025,IENS,.04)={DATE_LAST_UPDATED} set:{TYPE_OF_UPDATE*C} FDA(2.025,IENS,.06)={TYPE_OF_UPDATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.025)") set %SkipFiling=1 if $d(%FMERR(2.025,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.025,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSEXUALOR74FDS data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .025 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 4 "^" 0 2 "^" 0 6 Generated class for FileMan Sub-File/Multiple Number: '81.061' Sub-File/Multiple Name: 'SHORT NAME (VERSIONED)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SHORT_NAME_VERSIONED_81_061 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.720008251 67178,44732.15094188 right SHORT NAME (VERSIONED) 81.061 2.56 12/04/2024 12:25:32 1 1 IEN 1 Relationship to parent (file name CPT) VALIP.prosthetic.fm2cw.CPT81 parent SUBSHORTNAMEVERSIONED81061 1 1 CPT_81 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SHORT NAME (VERSIONED)' FileMan Field Number: '1' This is the procedure that was used beginning on the 'effective date.' %Library.String 4 SHORT_NAME_VERSIONED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERSION DATE' FileMan Field Number: '.01' This is the date the procedure text was first used. %Library.FilemanDate 1 3 VERSION_DATE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CPT_81},"||"):-1:1 { set DA($i(c))=$p({CPT_81},"||",i) } set DIK="^ICPT("_DA(1)_",61,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VERSION_DATE*C} FDA(81.061,IENS,.01)={VERSION_DATE} set:{SHORT_NAME_VERSIONED*C} FDA(81.061,IENS,1)={SHORT_NAME_VERSIONED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(81.061)") set %SkipFiling=1 if $d(%FMERR(81.061,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(81.061,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSHORTNAM1BB7S index ^ICPT nonnull {CPT_81.IEN} 0]]> 61 "B" {VERSION_DATE} {IEN} 0]]> data ^ICPT {CPT_81.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 61 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.18' Sub-File/Multiple Name: 'SIGNS AND SYMPTOMS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SIGNS_AND_SYMPTOMS_699_18 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.729914568 67178,44732.195725303 right SIGNS AND SYMPTOMS 699.18 2.56 12/04/2024 12:25:32 1 1 IEN 1 SYMPTOM_695_5]]> SIGNSANDSYMPTOMS VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_SIGNS_AND_SYMPTOMS Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBSIGNSANDSYMPTOMS69918 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SIGNS AND SYMPTOMS' FileMan Field Number: '.01' This field identifies the specific sign or symptom used as an indication for procedure. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 SIGNS_AND_SYMPTOMS NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SIGNS_AND_SYMPTOMS_699_18 where %ID=:id) set {SIGNS_AND_SYMPTOMS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SIGNS_AND_SYMPTOMS_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SIGNS_AND_SYMPTOMS*C} FDA(699.18,IENS,.01)={SIGNS_AND_SYMPTOMS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.18)") set %SkipFiling=1 if $d(%FMERR(699.18,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.18,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSIGNSAND2449S index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 3 "B" {SIGNS_AND_SYMPTOMS} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '440.05' Sub-File/Multiple Name: 'SOCIOECONOMIC GROUP (FPDS)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SOCIOECONOMIC_GROUP_FPDS_440_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.733754733 67178,44732.241701003 right SOCIOECONOMIC GROUP (FPDS) 440.05 2.56 12/04/2024 12:25:32 1 1 IEN 1 CODE_INDEX_420_6]]> SOCIOECONOMICGROUPFPDS VALIP.prosthetic.fm2cw.CODEINDEX4206 FKey_SOCIOECONOMIC_GROUP_FPDS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SOCIOECONOMIC GROUP (FPDS)' FileMan Field Number: '.01' This is the socioeconomic group. VALIP.prosthetic.fm2cw.CODEINDEX4206 1 3 SOCIOECONOMIC_GROUP_FPDS NAME This is the name of the code index. Updated to accept up to four chars to support the new FPDS report.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SOCIOECONOMIC_GROUP_FPDS_440_05 where %ID=:id) set {SOCIOECONOMIC_GROUP_FPDS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SOCIOECONOMIC_GROUP_FPDS_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 Relationship to parent (file name VENDOR) VALIP.prosthetic.fm2cw.VENDOR440 parent SUBSOCIOECONOMICGROUPFPDS44005 1 1 VENDOR_440 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({VENDOR_440},"||"):-1:1 { set DA($i(c))=$p({VENDOR_440},"||",i) } set DIK="^PRC(440,"_DA(1)_",1.1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SOCIOECONOMIC_GROUP_FPDS*C} FDA(440.05,IENS,.01)={SOCIOECONOMIC_GROUP_FPDS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(440.05)") set %SkipFiling=1 if $d(%FMERR(440.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(440.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSOCIOECO5874S data ^PRC 440 {VENDOR_440.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1.1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '2.0648022' Sub-File/Multiple Name: 'SPECIAL COUNSELING' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPECIAL_COUNSELING_2_0648022 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.73760542 67178,44732.30157219 right SPECIAL COUNSELING 2.0648022 2.56 12/04/2024 12:25:32 1 1 IEN 1 FileMan Field Label: 'COMMENTS' FileMan Field Number: '6' %Library.String 8 COMMENTS FileMan Field Label: 'DATE COUNSELED' FileMan Field Number: '2' %Library.FilemanTimeStamp 4 DATE_COUNSELED FileMan Field Label: 'DATE IDENTIFIED' FileMan Field Number: '3' %Library.FilemanTimeStamp 5 DATE_IDENTIFIED FileMan Field Label: 'DATE LETTER SENT' FileMan Field Number: '4' %Library.FilemanTimeStamp 6 DATE_LETTER_SENT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PATIENT) VALIP.prosthetic.fm2cw.PATIENT2 parent SUBSPECIALCOUNSELING20648022 1 1 PATIENT_2 FileMan Field Label: 'PLAN' FileMan Field Number: '5' %Library.EnumString 7 PLAN FileMan Field Label: 'SPECIAL COUNSELING' FileMan Field Number: '.01' %Library.EnumString 1 3 SPECIAL_COUNSELING SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PATIENT_2},"||"):-1:1 { set DA($i(c))=$p({PATIENT_2},"||",i) } set DIK="^DPT("_DA(1)_",""648SPC"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SPECIAL_COUNSELING*C} FDA(2.0648022,IENS,.01)={SPECIAL_COUNSELING} set:{DATE_COUNSELED*C} FDA(2.0648022,IENS,2)={DATE_COUNSELED} set:{DATE_IDENTIFIED*C} FDA(2.0648022,IENS,3)={DATE_IDENTIFIED} set:{DATE_LETTER_SENT*C} FDA(2.0648022,IENS,4)={DATE_LETTER_SENT} set:{PLAN*C} FDA(2.0648022,IENS,5)={PLAN} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(2.0648022)") set %SkipFiling=1 if $d(%FMERR(2.0648022,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(2.0648022,""DIERR"") for details" RETURN } if {COMMENTS*C} { set D0={RowId} kill wp if {COMMENTS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(2.0648022,{IENS},6,,wproot,"%FMERR(2.0648022)") if $d(%FMERR(2.0648022,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(2.0648022)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPECIALCADDCS index ^DPT nonnull {PATIENT_2.IEN} 0]]> "648SPC" "B" {SPECIAL_COUNSELING} {IEN} 0]]> index ^DPT nonnull "SPC" {DATE_COUNSELED} {PATIENT_2.IEN} 0]]> {IEN} 0]]> data ^DPT {PATIENT_2.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "648SPC" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "C" new data,i,node set {COMMENTS}="" merge data=^DPT({S1},"648SPC",{S3},"C") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS}={COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 2 "^" 0 3 "^" 0 4 "^" 0 5 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.25' Sub-File/Multiple Name: 'SPECIAL EQUIPMENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPECIAL_EQUIPMENT_130_25 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.74622178 67178,44732.350252804 right SPECIAL EQUIPMENT 130.25 2.56 12/04/2024 12:25:32 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBSPECIALEQUIPMENT13025 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",58,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.25)") set %SkipFiling=1 if $d(%FMERR(130.25,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.25,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPECIALE8AA5S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 58 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '44.03' Sub-File/Multiple Name: 'SPECIAL INSTRUCTIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPECIAL_INSTRUCTIONS_44_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.757964789 67178,44732.395806437 right SPECIAL INSTRUCTIONS 44.03 2.56 12/04/2024 12:25:32 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBSPECIALINSTRUCTIONS4403 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SPECIAL INSTRUCTIONS' FileMan Field Number: '.01' Special instructions (free text) entered by clerk at time of making the appointment. %Library.String 1 3 SPECIAL_INSTRUCTIONS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""SI"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SPECIAL_INSTRUCTIONS*C} FDA(44.03,IENS,.01)={SPECIAL_INSTRUCTIONS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.03)") set %SkipFiling=1 if $d(%FMERR(44.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPECIALID3CAS data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "SI" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.0683' Sub-File/Multiple Name: 'SPECIAL INSTRUMENTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPECIAL_INSTRUMENTS_130_0683 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.760940187 67178,44732.44132835 right SPECIAL INSTRUMENTS 130.0683 2.56 12/04/2024 12:25:32 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBSPECIALINSTRUMENTS1300683 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",61,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0683)") set %SkipFiling=1 if $d(%FMERR(130.0683,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0683,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPECIALINC91S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 61 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '44.0002' Sub-File/Multiple Name: 'SPECIAL PATTERN' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPECIAL_PATTERN_44_0002 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.772392369 67178,44732.486751719 right SPECIAL PATTERN 44.0002 2.56 12/04/2024 12:25:32 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBSPECIALPATTERN440002 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"OST",{IEN},1)) 1 NODE_1 FileMan Field Label: 'ORIGINAL AVAILABILITY' FileMan Field Number: '1' First or original availability pattern set up for a clinic. %Library.String 1 5 s {ORIGINAL_AVAILABILITY}=$e({NODE_1},1,90) 1 ORIGINAL_AVAILABILITY FileMan Field Label: 'PATTERN DATE' FileMan Field Number: '.01' Date a particular pattern was established by user. %Library.FilemanDate 1 3 PATTERN_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""OST"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{PATTERN_DATE*C} FDA(44.0002,IENS,.01)={PATTERN_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.0002)") set %SkipFiling=1 if $d(%FMERR(44.0002,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.0002,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPECIALPAFC7S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "OST" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.032' Sub-File/Multiple Name: 'SPECIAL STUDY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPECIAL_STUDY_700_032 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.796331568 67178,44732.532801667 right SPECIAL STUDY 700.032 2.56 12/04/2024 12:25:32 1 1 IEN 1 FileMan Field Label: 'AT' FileMan Field Number: '16.5' This field identifies the Anaerobic Threshold in Liters. Used in the Exercise Special Study. %Library.Numeric 22 AT16_5 FileMan Field Label: 'BP MAX' FileMan Field Number: '18.4' This field identifies the Maximum Blood Pressure. Used in the Exercise Special Study. %Library.String 26 BP_MAX FileMan Field Label: 'BR' FileMan Field Number: '11' This field identifies the Breathing Reserve in Liters. Used in the Exercise Special Study. %Library.Numeric 14 BR FileMan Field Label: 'CC' FileMan Field Number: '8' This field identifies the Closing Capacity in Liters. Used in the Small Airway Special Study. %Library.Numeric 11 CC FileMan Field Label: 'COMPLIANCE,CDYN' FileMan Field Number: '4' This field identifies the Dynamic Compliance in Liters/cm H2O. Used in the Small Airway Special Study. %Library.Numeric 7 COMPLIANCECDYN FileMan Field Label: 'COMPLIANCE,CST' FileMan Field Number: '3' This field identifies the Static Compliance in Liters/cm H2O. Used in the Mechanics Special Study. %Library.Numeric 6 COMPLIANCECST FileMan Field Label: 'CV' FileMan Field Number: '7' This field identifies the Closing Volume in Liters. Used in the Small Airway Special Study %Library.Numeric 10 CV FileMan Field Label: 'CV' FileMan Field Number: '13' %Library.Numeric 18 CV0 FileMan Field Label: 'EKG' FileMan Field Number: '18.6' This field identifies whether the EKG was Normal or Abnormal. Used in the Exercise Special Study. %Library.EnumString 27 EKG FileMan Field Label: 'EXERCISE TESTING MODE' FileMan Field Number: '28' This field identifies the mode of testing used for an Exercise Special Study. %Library.EnumString 36 EXERCISE_TESTING_MODE FileMan Field Label: 'FEF50 HE-AIR' FileMan Field Number: '5' This field identifies the Maximum Expiratory at 50% of Vital Capacity breathing air in Liters/second. Used in the Small Airway Special Study. %Library.Numeric 8 FEF50_HEAIR FileMan Field Label: 'HCO3 CHANGE' FileMan Field Number: '22.5' This field identifies the change in bicarbonate IN mEq/l. Used in the Exercise Special Study. %Library.Numeric 33 HCO3_CHANGE FileMan Field Label: 'HR MAX' FileMan Field Number: '18' This field identifies the Heart Rate at Peak Exercise in beats/minute. Used in the Exercise Special Study. %Library.Numeric 24 HR_MAX FileMan Field Label: 'HR REST' FileMan Field Number: '17' This field identifies the Heart Rate at Rest. Used in the Exercise Special Study. %Library.Numeric 23 HR_REST Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MAX GRADE' FileMan Field Number: '24' This field identifies the Maximum Treadmill Grade at Peak Exercise. Used in the Exercise Special Study. %Library.Numeric 35 MAX_GRADE FileMan Field Label: 'MAX SPEED' FileMan Field Number: '23' This field identifies the Maximum Treadmill Speed in MPH at Peak Exercise. Used in the Exercise Special Study. %Library.Numeric 34 MAX_SPEED FileMan Field Label: 'NOTES' FileMan Field Number: '40' This field identifies a 60 character Free Text field which allows the user to enter a note on the Special Study. %Library.String 40 NOTES FileMan Field Label: 'OTHER REASON FOR STOPPING' FileMan Field Number: '30' This field identifies a word-processing field to enter Reason(s) for Stopping for Exercise Special Studies that are not in the REASON (MEDICINE) File. %Library.String 37 OTHER_REASON_FOR_STOPPING FileMan Field Label: 'PATIENT EFFORT (SPEC. STUDIES)' FileMan Field Number: '39' %Library.EnumString 39 PATIENT_EFFORT_SPEC__STUDIES FileMan Field Label: 'PIMAX' FileMan Field Number: '35' This field identifies the Maximum Inspiratory Pressure in cm H2O. Only element of the Maximum Pressures Special Study. %Library.Numeric 38 PIMAX Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBSPECIALSTUDY700032 1 1 PULMONARY_FUNCTION_TESTS_700 FileMan Field Label: 'RESISTANCE,RAW' FileMan Field Number: '1' This field identifies the Specific Airway Resistance in cm H2O/Liters per second. Used in the Mechanics Special Study. %Library.Numeric 4 RESISTANCERAW FileMan Field Label: 'RESISTANCE,SGAW' FileMan Field Number: '2' This field identifies the Specific Airway Conductance in Liters per second/cm H2O. Used in the Mechanics Special Study. %Library.Numeric 5 RESISTANCESGAW FileMan Field Label: 'RR MAX' FileMan Field Number: '20' This field identifies the Respiratory Rate at Peak Exercise. Used in the Exercise Special Study. %Library.Numeric 29 RR_MAX FileMan Field Label: 'RR REST' FileMan Field Number: '19' This field identifies the Respiratory Rate at Rest. Used in the Exercise Special Study. %Library.Numeric 28 RR_REST FileMan Field Label: 'SPECIAL STUDY' FileMan Field Number: '.01' This field identifies the type of special study done: Exercise, Mechanics, Small Airway, or Maximum Pressures. %Library.EnumString 1 3 SPECIAL_STUDY Relationship for Sub-File/Multiple to file name REASON FOR STOPPING child VALIP.prosthetic.fm2cw.SUBREASONFORSTOPPING7003229 children SUBSPECIALSTUDY700032 1 SUB_REASON_FOR_STOPPING_700_3229 FileMan Field Label: 'TOTAL TIME' FileMan Field Number: '22' This field identifies the Total Time in minutes of Exercise. Used in the Exercise Special Study. %Library.Numeric 32 TOTAL_TIME FileMan Field Label: 'VALVE DEAD SPACE' FileMan Field Number: '9' %Library.Numeric 12 VALVE_DEAD_SPACE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 41 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VD/VT MAX' FileMan Field Number: '12.3' This field identifies the Maximum Dead Space to Tidal Volume Ratio. Used in the Exercise Special Study. %Library.Numeric 16 VDVT_MAX FileMan Field Label: 'VD/VT REST' FileMan Field Number: '12' This field identifies the Resting Dead Space to Tidal Volume Ratio. Used in the Exercise Special Study. %Library.Numeric 15 VDVT_REST FileMan Field Label: 'VEMAX(BTPS)' FileMan Field Number: '10' This field identifies the Maximum Expiratory Minute Ventilation at Peak Exercise in ml/beat. Used in the Exercise Special Study. %Library.Numeric 13 VEMAXBTPS FileMan Field Label: 'VE/VCO2, AT' FileMan Field Number: '12.6' This field identifies the Ventilatory Equivalent for Carbon Dioxide at Anaerobic Threshold. Used in the Exercise Special Study. %Library.Numeric 17 VEVCO2_AT FileMan Field Label: 'VE REST(BTPS)' FileMan Field Number: '14' This field identifies the Expiratory Minute Ventilation at Rest in ml/beat. Used in the Exercise Special Study. %Library.Numeric 19 VE_RESTBTPS %Library.Numeric 9 VISOV FileMan Field Label: 'VO2/HR' FileMan Field Number: '18.2' This field identifies the Oxygen Pulse Maximum in milliliters per beat. Used in the Exercise Special Study. %Library.Numeric 25 VO2HR FileMan Field Label: 'VO2 MAX' FileMan Field Number: '16' This field identifies the Oxygen Uptake at Peak Exercise in Liters/Minute. Used in the Exercise Special Study. %Library.Numeric 21 VO2_MAX FileMan Field Label: 'VO2 REST' FileMan Field Number: '15' This field identifies the Oxygen Uptake at Rest in Liters/Minute. Used in the Exercise Special Study. %Library.Numeric 20 VO2_REST FileMan Field Label: 'WRI/WRT' FileMan Field Number: '21.5' This field identifies the Work Rate Increment/Work Rate Time Interval ratio in Watts per minute. Used in the Exercise Special Study. %Library.Numeric 31 WRIWRT FileMan Field Label: 'W MAX' FileMan Field Number: '21' This field identifies the Work Rate in Watts. Used in the Exercise Special Study. %Library.Numeric 30 W_MAX BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",""S"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SPECIAL_STUDY*C} FDA(700.032,IENS,.01)={SPECIAL_STUDY} set:{RESISTANCERAW*C} FDA(700.032,IENS,1)={RESISTANCERAW} set:{RESISTANCESGAW*C} FDA(700.032,IENS,2)={RESISTANCESGAW} set:{COMPLIANCECST*C} FDA(700.032,IENS,3)={COMPLIANCECST} set:{COMPLIANCECDYN*C} FDA(700.032,IENS,4)={COMPLIANCECDYN} set:{FEF50_HEAIR*C} FDA(700.032,IENS,5)={FEF50_HEAIR} set:{VISOV*C} FDA(700.032,IENS,6)={VISOV} set:{CV*C} FDA(700.032,IENS,7)={CV} set:{CC*C} FDA(700.032,IENS,8)={CC} set:{VALVE_DEAD_SPACE*C} FDA(700.032,IENS,9)={VALVE_DEAD_SPACE} set:{VEMAXBTPS*C} FDA(700.032,IENS,10)={VEMAXBTPS} set:{BR*C} FDA(700.032,IENS,11)={BR} set:{VDVT_REST*C} FDA(700.032,IENS,12)={VDVT_REST} set:{VDVT_MAX*C} FDA(700.032,IENS,12.3)={VDVT_MAX} set:{VEVCO2_AT*C} FDA(700.032,IENS,12.6)={VEVCO2_AT} set:{CV0*C} FDA(700.032,IENS,13)={CV0} set:{VE_RESTBTPS*C} FDA(700.032,IENS,14)={VE_RESTBTPS} set:{VO2_REST*C} FDA(700.032,IENS,15)={VO2_REST} set:{VO2_MAX*C} FDA(700.032,IENS,16)={VO2_MAX} set:{AT16_5*C} FDA(700.032,IENS,16.5)={AT16_5} set:{HR_REST*C} FDA(700.032,IENS,17)={HR_REST} set:{HR_MAX*C} FDA(700.032,IENS,18)={HR_MAX} set:{VO2HR*C} FDA(700.032,IENS,18.2)={VO2HR} set:{BP_MAX*C} FDA(700.032,IENS,18.4)={BP_MAX} set:{EKG*C} FDA(700.032,IENS,18.6)={EKG} set:{RR_REST*C} FDA(700.032,IENS,19)={RR_REST} set:{RR_MAX*C} FDA(700.032,IENS,20)={RR_MAX} set:{W_MAX*C} FDA(700.032,IENS,21)={W_MAX} set:{WRIWRT*C} FDA(700.032,IENS,21.5)={WRIWRT} set:{TOTAL_TIME*C} FDA(700.032,IENS,22)={TOTAL_TIME} set:{HCO3_CHANGE*C} FDA(700.032,IENS,22.5)={HCO3_CHANGE} set:{MAX_SPEED*C} FDA(700.032,IENS,23)={MAX_SPEED} set:{MAX_GRADE*C} FDA(700.032,IENS,24)={MAX_GRADE} set:{EXERCISE_TESTING_MODE*C} FDA(700.032,IENS,28)={EXERCISE_TESTING_MODE} set:{PIMAX*C} FDA(700.032,IENS,35)={PIMAX} set:{PATIENT_EFFORT_SPEC__STUDIES*C} FDA(700.032,IENS,39)={PATIENT_EFFORT_SPEC__STUDIES} set:{NOTES*C} FDA(700.032,IENS,40)={NOTES} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.032)") set %SkipFiling=1 if $d(%FMERR(700.032,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.032,""DIERR"") for details" RETURN } if {OTHER_REASON_FOR_STOPPING*C} { set D0={RowId} kill wp if {OTHER_REASON_FOR_STOPPING}'="" { set wproot="wp" for i=1:1:$l({OTHER_REASON_FOR_STOPPING},$c(13,10)) { set wp(i)=$p({OTHER_REASON_FOR_STOPPING},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(700.032,{IENS},30,,wproot,"%FMERR(700.032)") if $d(%FMERR(700.032,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(700.032)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPECIALST417S index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> "S" "B" {SPECIAL_STUDY} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "S" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 1 3 "^" 1 12 "^" 1 2 "^" 0 9 "^" 0 5 "^" 0 4 "^" 0 8 "^" 1 4 "^" 1 13 "^" 2 9 "^" 0 6 "^" 2 10 "^" 1 9 "^" 1 8 "^" 2 5 "^" 2 4 "^" 2 8 4 new data,i,node set {OTHER_REASON_FOR_STOPPING}="" merge data=^MCAR(700,{S2},"S",{S4},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OTHER_REASON_FOR_STOPPING}={OTHER_REASON_FOR_STOPPING}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 2 11 "^" 2 7 "^" 0 2 "^" 0 3 "^" 2 1 "^" 1 10 "^" 0 1 "^" 2 3 "^" 0 10 "^" 1 15 "^" 1 14 "^" 1 1 "^" 1 16 "^" 1 5 "^" 0 7 "^" 1 11 "^" 1 7 "^" 1 6 "^" 2 6 "^" 2 2 Generated class for FileMan Sub-File/Multiple Number: '130.0682' Sub-File/Multiple Name: 'SPECIAL SUPPLIES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPECIAL_SUPPLIES_130_0682 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.78254321 67178,44732.59488877 right SPECIAL SUPPLIES 130.0682 2.56 12/04/2024 12:25:32 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBSPECIALSUPPLIES1300682 1 1 SURGERY_130 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",60,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.0682)") set %SkipFiling=1 if $d(%FMERR(130.0682,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.0682,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPECIALSE756S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 60 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '200.0089831' Sub-File/Multiple Name: 'SPELLING EXCEPTION DICTIONARY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SPELLING_EXCEPTION_DICTIONARY_200_0089831 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.787625464 67178,44732.641533474 right SPELLING EXCEPTION DICTIONARY 200.0089831 2.56 12/04/2024 12:25:32 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBSPELLINGEXCEPTIONDICTIONARY2000089831 1 1 NEW_PERSON_200 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WORD' FileMan Field Number: '.01' This field stores words which will be checked when spell checking a document. %Library.String 1 3 WORD BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""LM1"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{WORD*C} FDA(200.0089831,IENS,.01)={WORD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.0089831)") set %SkipFiling=1 if $d(%FMERR(200.0089831,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.0089831,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSPELLINGA597S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "LM1" "B" {WORD} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "LM1" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '8925.111' Sub-File/Multiple Name: 'STAT AUTO PRINT EVENT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_STAT_AUTO_PRINT_EVENT_8925_111 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.801256058 67178,44732.780811952 right STAT AUTO PRINT EVENT 8925.111 2.56 12/04/2024 12:25:32 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STAT AUTO PRINT EVENT' FileMan Field Number: '.01' %Library.EnumString 1 3 STAT_AUTO_PRINT_EVENT Relationship to parent (file name TIU DOCUMENT DEFINITION) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 parent SUBSTATAUTOPRINTEVENT8925111 1 1 TIU_DOCUMENT_DEFINITION_8925_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_DOCUMENT_DEFINITION_8925_1},"||"):-1:1 { set DA($i(c))=$p({TIU_DOCUMENT_DEFINITION_8925_1},"||",i) } set DIK="^TIU(8925.1,"_DA(1)_",11,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STAT_AUTO_PRINT_EVENT*C} FDA(8925.111,IENS,.01)={STAT_AUTO_PRINT_EVENT} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.111)") set %SkipFiling=1 if $d(%FMERR(8925.111,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.111,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSTATAUTO190FS index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> 11 "B" {STAT_AUTO_PRINT_EVENT} {IEN} 0]]> data ^TIU 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 11 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.55' Sub-File/Multiple Name: 'STATE ISSUING DEA NUMBER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_STATE_ISSUING_DEA_NUMBER_200_55 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.807541738 67178,44732.687651423 right STATE ISSUING DEA NUMBER 200.55 2.56 12/04/2024 12:25:32 1 1 IEN 1 STATE_5]]> STATEISSUINGDEANUMBER VALIP.prosthetic.fm2cw.STATE5 FKey_STATE_ISSUING_DEA_NUMBER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBSTATEISSUINGDEANUMBER20055 1 1 NEW_PERSON_200 FileMan Field Label: 'STATE DEA NUMBER' FileMan Field Number: '1' This is the DEA # issued by an individual state, it is not required by all states and in some cases may be the same as the Federal DEA #. %Library.String 4 STATE_DEA_NUMBER FileMan Field Label: 'STATE ISSUING DEA NUMBER' FileMan Field Number: '.01' This is the state which has issued a State DEA# to a provider. Not all states require a seperate DEA # VALIP.prosthetic.fm2cw.STATE5 1 3 STATE_ISSUING_DEA_NUMBER NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_STATE_ISSUING_DEA_NUMBER_200_55 where %ID=:id) set {STATE_ISSUING_DEA_NUMBER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATE_ISSUING_DEA_NUMBER_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""PS2"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STATE_ISSUING_DEA_NUMBER*C} FDA(200.55,IENS,.01)={STATE_ISSUING_DEA_NUMBER} set:{STATE_DEA_NUMBER*C} FDA(200.55,IENS,1)={STATE_DEA_NUMBER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.55)") set %SkipFiling=1 if $d(%FMERR(200.55,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.55,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSTATEISSB682S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "PS2" "B" {STATE_ISSUING_DEA_NUMBER} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "PS2" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.066' Sub-File/Multiple Name: 'STATUS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_STATUS_80_066 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.814213272 67178,44732.734262368 right STATUS 80.066 2.56 12/04/2024 12:25:32 1 1 IEN 1 Relationship to parent (file name ICD DIAGNOSIS) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 parent SUBSTATUS80066 1 1 ICD_DIAGNOSIS_80 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STATUS' FileMan Field Number: '.02' Status set to 1 when the code is active and 0 when the code is inactive. %Library.EnumString 4 STATUS FileMan Field Label: 'STATUS EFFECTIVE DATE' FileMan Field Number: '.01' Date versioned information becomes/became effective. %Library.FilemanDate 1 3 STATUS_EFFECTIVE_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ICD_DIAGNOSIS_80},"||"):-1:1 { set DA($i(c))=$p({ICD_DIAGNOSIS_80},"||",i) } set DIK="^ICD9("_DA(1)_",66,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STATUS_EFFECTIVE_DATE*C} FDA(80.066,IENS,.01)={STATUS_EFFECTIVE_DATE} set:{STATUS*C} FDA(80.066,IENS,.02)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.066)") set %SkipFiling=1 if $d(%FMERR(80.066,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.066,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SUBSTATUS80066S index ^ICD9 nonnull {ICD_DIAGNOSIS_80.IEN} 0]]> 66 "B" {STATUS_EFFECTIVE_DATE} {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 66 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.48' Sub-File/Multiple Name: 'STUDY TYPE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_STUDY_TYPE_691_48 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.827372308 67178,44732.830790701 right STUDY TYPE 691.48 2.56 12/04/2024 12:25:32 1 1 IEN 1 Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBSTUDYTYPE69148 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'STUDY TYPE' FileMan Field Number: '.01' This field is to track/monitor different types of echocardiographic studies. %Library.EnumString 1 3 STUDY_TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",16,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{STUDY_TYPE*C} FDA(691.48,IENS,.01)={STUDY_TYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.48)") set %SkipFiling=1 if $d(%FMERR(691.48,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.48,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSTUDYTYP2BE4S index ^MCAR nonnull 691 {ECHO_691.IEN} 0]]> 16 "B" {STUDY_TYPE} {IEN} 0]]> data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 16 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '445.122' Sub-File/Multiple Name: 'SUBSTITUTE ITEM(S)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SUBSTITUTE_ITEMS_445_122 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.690689225 67178,44732.876771247 right SUBSTITUTE ITEM(S) 445.122 2.56 12/04/2024 12:25:32 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBSUBSTITUTEITEMS445122 1 1 SUB_INVENTORY_ITEM_445_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",4,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.122)") set %SkipFiling=1 if $d(%FMERR(445.122,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.122,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSUBSTITU46BDS data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 4 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '44.06' Sub-File/Multiple Name: 'SUNDAY TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SUNDAY_TEMPLATE_44_06 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.835959013 67178,44732.921827444 right SUNDAY TEMPLATE 44.06 2.56 12/04/2024 12:25:32 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBSUNDAYTEMPLATE4406 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIMIT DATE' FileMan Field Number: '.01' The pattern stored at this date is applicable for Sundays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Sunday when appointments may be made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Sundays from the previous entry date. %Library.Numeric 1 3 LIMIT_DATE FileMan Field Label: 'MASTER PATTERN' FileMan Field Number: '1' Master pattern set up by user on specified date for Sundays. All patterns stored. %Library.String 1 5 s {MASTER_PATTERN}=$e({NODE_1},1,80) 1 MASTER_PATTERN Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"T0",{IEN},1)) 1 NODE_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T0"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LIMIT_DATE*C} FDA(44.06,IENS,.01)={LIMIT_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.06)") set %SkipFiling=1 if $d(%FMERR(44.06,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.06,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSUNDAYTECFF4S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T0" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '80.682' Sub-File/Multiple Name: 'SUPPLEMENTAL' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SUPPLEMENTAL_80_682 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.217142129 67178,44732.967452313 right SUPPLEMENTAL 80.682 2.56 12/04/2024 12:25:32 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name DESCRIPTION) VALIP.prosthetic.fm2cw.SUBDESCRIPTION80068 parent SUBSUPPLEMENTAL80682 1 1 SUB_DESCRIPTION_80_068 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WORD' FileMan Field Number: '.01' This field contains a single word that should be included in the word index. %Library.String 1 3 WORD BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_DESCRIPTION_80_068},"||"):-1:1 { set DA($i(c))=$p({SUB_DESCRIPTION_80_068},"||",i) } set DIK="^ICD9("_DA(2)_",68,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{WORD*C} FDA(80.682,IENS,.01)={WORD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(80.682)") set %SkipFiling=1 if $d(%FMERR(80.682,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(80.682,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSUPPLEMEND76S index {WORD}'="" 1 ^ICD9 conditional {ICD_DIAGNOSIS_80.IEN} 0]]> 68 {SUB_DESCRIPTION_80_068.IEN} 0]]> 2 "B" $$TRUNCATE({WORD},30)) {IEN} 0]]> data ^ICD9 {ICD_DIAGNOSIS_80.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 68 {SUB_DESCRIPTION_80_068.IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> 2 {IEN} set:{L5}="" {L5}=0 set {L5}=$o(^({L5})) set:'{L5} {L5}="" ;PREV set:{L5}="" {L5}=$c(0) set {L5}=$o(^({L5}),-1) set:'{L5} {L5}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.065' Sub-File/Multiple Name: 'SURGERY POSITION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SURGERY_POSITION_130_065 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.841160339 67178,44733.014397795 right SURGERY POSITION 130.065 2.56 12/04/2024 12:25:33 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBSURGERYPOSITION130065 1 1 SURGERY_130 FileMan Field Label: 'TIME PLACED' FileMan Field Number: '1' Date/Time Placed This is the date/time that the patient was placed in this position. Times without a date can be entered. %Library.FilemanDate 3 TIME_PLACED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",42,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TIME_PLACED*C} FDA(130.065,IENS,1)={TIME_PLACED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.065)") set %SkipFiling=1 if $d(%FMERR(130.065,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.065,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSURGERYP70B1S data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 42 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '699.37' Sub-File/Multiple Name: 'SURVEILLANCE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SURVEILLANCE_699_37 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.852124399 67178,44733.059850858 right SURVEILLANCE 699.37 2.56 12/04/2024 12:25:33 1 1 IEN 1 SURVEILLANCE_699_86]]> SURVEILLANCE VALIP.prosthetic.fm2cw.SURVEILLANCE69986 FKey_SURVEILLANCE Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBSURVEILLANCE69937 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SURVEILLANCE' FileMan Field Number: '.01' This field identifies the specific surveillance disease used as an indication for procedure. VALIP.prosthetic.fm2cw.SURVEILLANCE69986 1 3 SURVEILLANCE NAME This field identifies a list of possible surveillances which can be used as an indication for procedure for GI Endoscopies.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SURVEILLANCE_699_37 where %ID=:id) set {SURVEILLANCE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURVEILLANCE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",7,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SURVEILLANCE*C} FDA(699.37,IENS,.01)={SURVEILLANCE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.37)") set %SkipFiling=1 if $d(%FMERR(699.37,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.37,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSURVEILLB755S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 7 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.812' Sub-File/Multiple Name: 'SVT-TYPE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SVTTYPE_691_812 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.863403347 67178,44733.104351166 right SVT-TYPE 691.812 2.56 12/04/2024 12:25:33 1 1 IEN 1 Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBSVTTYPE691812 1 1 ELECTROPHYSIOLOGY_EP_691_8 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SVT-TYPE' FileMan Field Number: '.01' This field defines the SVT-type %Library.EnumString 1 3 SVTTYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",11,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SVTTYPE*C} FDA(691.812,IENS,.01)={SVTTYPE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.812)") set %SkipFiling=1 if $d(%FMERR(691.812,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.812,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSVTTYPE692F5S index ^MCAR nonnull 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} 0]]> 11 "B" {SVTTYPE} {IEN} 0]]> data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 11 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.08' Sub-File/Multiple Name: 'SYMPTOM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYMPTOM_691_08 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.869519886 67178,44733.148482404 right SYMPTOM 691.08 2.56 12/04/2024 12:25:33 1 1 IEN 1 SYMPTOM_695_5]]> SYMPTOM VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_SYMPTOM Relationship to parent (file name ECHO) VALIP.prosthetic.fm2cw.ECHO691 parent SUBSYMPTOM69108 1 1 ECHO_691 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYMPTOM' FileMan Field Number: '.01' This field identifies the medical patients symptoms listed on the procedure request form. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 SYMPTOM NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SYMPTOM_691_08 where %ID=:id) set {SYMPTOM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SYMPTOM_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ECHO_691},"||"):-1:1 { set DA($i(c))=$p({ECHO_691},"||",i) } set DIK="^MCAR(691,"_DA(1)_",.3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYMPTOM*C} FDA(691.08,IENS,.01)={SYMPTOM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.08)") set %SkipFiling=1 if $d(%FMERR(691.08,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.08,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYMPTOM6CD0ES index ^MCAR nonnull 691 {ECHO_691.IEN} 0]]> .3 "B" {SYMPTOM} {IEN} 0]]> data ^MCAR 691 {ECHO_691.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.43' Sub-File/Multiple Name: 'SYMPTOM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYMPTOM_691_43 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.88081549 67178,44733.193018038 right SYMPTOM 691.43 2.56 12/04/2024 12:25:33 1 1 IEN 1 SYMPTOM_695_5]]> SYMPTOM VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_SYMPTOM Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBSYMPTOM69143 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYMPTOM' FileMan Field Number: '.01' This field contains the patient's physical complaints or symptoms. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 SYMPTOM NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SYMPTOM_691_43 where %ID=:id) set {SYMPTOM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SYMPTOM_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",.3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYMPTOM*C} FDA(691.43,IENS,.01)={SYMPTOM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.43)") set %SkipFiling=1 if $d(%FMERR(691.43,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.43,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYMPTOM6CA4DS index ^MCAR nonnull 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} 0]]> .3 "B" {SYMPTOM} {IEN} 0]]> data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.51' Sub-File/Multiple Name: 'SYMPTOM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYMPTOM_691_51 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.881344339 67178,44733.238760683 right SYMPTOM 691.51 2.56 12/04/2024 12:25:33 1 1 IEN 1 SYMPTOM_695_5]]> SYMPTOM VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_SYMPTOM Relationship to parent (file name ELECTROCARDIOGRAM (EKG)) VALIP.prosthetic.fm2cw.ELECTROCARDIOGRAMEKG6915 parent SUBSYMPTOM69151 1 1 ELECTROCARDIOGRAM_EKG_691_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYMPTOM' FileMan Field Number: '.01' This field contains the patient's physical complaints or symptoms. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 SYMPTOM NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SYMPTOM_691_51 where %ID=:id) set {SYMPTOM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SYMPTOM_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROCARDIOGRAM_EKG_691_5},"||"):-1:1 { set DA($i(c))=$p({ELECTROCARDIOGRAM_EKG_691_5},"||",i) } set DIK="^MCAR(691.5,"_DA(1)_",.3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYMPTOM*C} FDA(691.51,IENS,.01)={SYMPTOM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.51)") set %SkipFiling=1 if $d(%FMERR(691.51,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.51,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYMPTOM69BCDS index ^MCAR nonnull 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} 0]]> .3 "B" {SYMPTOM} {IEN} 0]]> data ^MCAR 691.5 {ELECTROCARDIOGRAM_EKG_691_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.66' Sub-File/Multiple Name: 'SYMPTOM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYMPTOM_691_66 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.888893856 67178,44733.285032402 right SYMPTOM 691.66 2.56 12/04/2024 12:25:33 1 1 IEN 1 SYMPTOM_695_5]]> SYMPTOM VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_SYMPTOM Relationship to parent (file name HOLTER) VALIP.prosthetic.fm2cw.HOLTER6916 parent SUBSYMPTOM69166 1 1 HOLTER_691_6 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYMPTOM' FileMan Field Number: '.01' This field contains the patients physical complaints or symtoms. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 SYMPTOM NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SYMPTOM_691_66 where %ID=:id) set {SYMPTOM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SYMPTOM_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOLTER_691_6},"||"):-1:1 { set DA($i(c))=$p({HOLTER_691_6},"||",i) } set DIK="^MCAR(691.6,"_DA(1)_",.3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYMPTOM*C} FDA(691.66,IENS,.01)={SYMPTOM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.66)") set %SkipFiling=1 if $d(%FMERR(691.66,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.66,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYMPTOM6A98CS index ^MCAR nonnull 691.6 {HOLTER_691_6.IEN} 0]]> .3 "B" {SYMPTOM} {IEN} 0]]> data ^MCAR 691.6 {HOLTER_691_6.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.701' Sub-File/Multiple Name: 'SYMPTOM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYMPTOM_691_701 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.897563719 67178,44733.330315072 right SYMPTOM 691.701 2.56 12/04/2024 12:25:33 1 1 IEN 1 SYMPTOM_695_5]]> SYMPTOM VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_SYMPTOM Relationship to parent (file name EXERCISE TOLERANCE TEST) VALIP.prosthetic.fm2cw.EXERCISETOLERANCETEST6917 parent SUBSYMPTOM691701 1 1 EXERCISE_TOLERANCE_TEST_691_7 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYMPTOM' FileMan Field Number: '.01' This field contains the patient's physical complaints or symtoms. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 SYMPTOM NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SYMPTOM_691_701 where %ID=:id) set {SYMPTOM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SYMPTOM_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({EXERCISE_TOLERANCE_TEST_691_7},"||"):-1:1 { set DA($i(c))=$p({EXERCISE_TOLERANCE_TEST_691_7},"||",i) } set DIK="^MCAR(691.7,"_DA(1)_",.3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYMPTOM*C} FDA(691.701,IENS,.01)={SYMPTOM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.701)") set %SkipFiling=1 if $d(%FMERR(691.701,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.701,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYMPTOM6113BS index ^MCAR nonnull 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} 0]]> .3 "B" {SYMPTOM} {IEN} 0]]> data ^MCAR 691.7 {EXERCISE_TOLERANCE_TEST_691_7.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '691.801' Sub-File/Multiple Name: 'SYMPTOM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYMPTOM_691_801 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.90988995 67178,44733.375511507 right SYMPTOM 691.801 2.56 12/04/2024 12:25:33 1 1 IEN 1 SYMPTOM_695_5]]> SYMPTOM VALIP.prosthetic.fm2cw.SYMPTOM6955 FKey_SYMPTOM Relationship to parent (file name ELECTROPHYSIOLOGY (EP)) VALIP.prosthetic.fm2cw.ELECTROPHYSIOLOGYEP6918 parent SUBSYMPTOM691801 1 1 ELECTROPHYSIOLOGY_EP_691_8 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYMPTOM' FileMan Field Number: '.01' These are the clinical signs of disease. VALIP.prosthetic.fm2cw.SYMPTOM6955 1 3 SYMPTOM NAME This field identifies a list of symptoms for various areas of Medicine.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_SYMPTOM_691_801 where %ID=:id) set {SYMPTOM_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SYMPTOM_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ELECTROPHYSIOLOGY_EP_691_8},"||"):-1:1 { set DA($i(c))=$p({ELECTROPHYSIOLOGY_EP_691_8},"||",i) } set DIK="^MCAR(691.8,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYMPTOM*C} FDA(691.801,IENS,.01)={SYMPTOM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.801)") set %SkipFiling=1 if $d(%FMERR(691.801,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.801,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYMPTOM6120BS index ^MCAR nonnull 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} 0]]> 1 "B" {SYMPTOM} {IEN} 0]]> data ^MCAR 691.8 {ELECTROPHYSIOLOGY_EP_691_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '123.31' Sub-File/Multiple Name: 'SYNONYM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYM_123_31 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.910848201 67178,44733.467292121 right SYNONYM 123.31 2.56 12/04/2024 12:25:33 1 1 IEN 1 Relationship to parent (file name GMRC PROCEDURE) VALIP.prosthetic.fm2cw.GMRCPROCEDURE1233 parent SUBSYNONYM12331 1 1 GMRC_PROCEDURE_123_3 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' This field contains other names commonly used to refer to this procedure. %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GMRC_PROCEDURE_123_3},"||"):-1:1 { set DA($i(c))=$p({GMRC_PROCEDURE_123_3},"||",i) } set DIK="^GMR(123.3,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(123.31,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(123.31)") set %SkipFiling=1 if $d(%FMERR(123.31,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(123.31,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYNONYM19252S index ^GMR nonnull 123.3 {GMRC_PROCEDURE_123_3.IEN} 0]]> 1 "B" {SYNONYM} {IEN} 0]]> index ^GMR nonnull 123.3 "C" {SYNONYM} {GMRC_PROCEDURE_123_3.IEN} 0]]> {IEN} 0]]> data ^GMR 123.3 {GMRC_PROCEDURE_123_3.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '19.0668' Sub-File/Multiple Name: 'SYNONYM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYM_19_0668 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.915048517 67178,44733.529120712 right SYNONYM 19.0668 2.56 12/04/2024 12:25:33 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBSYNONYM190668 1 1 OPTION_19 FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",668000,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(19.0668,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.0668)") set %SkipFiling=1 if $d(%FMERR(19.0668,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.0668,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYNONYM19BA5S index ^DIC nonnull 19 "SPK" {SYNONYM} {OPTION_19.IEN} 0]]> {IEN} 0]]> data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 668000 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '4.23' Sub-File/Multiple Name: 'SYNONYM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYM_4_23 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.923782833 67178,44733.715545633 right SYNONYM 4.23 2.56 12/04/2024 12:25:33 1 1 IEN 1 Relationship to parent (file name DOMAIN) VALIP.prosthetic.fm2cw.DOMAIN42 parent SUBSYNONYM423 1 1 DOMAIN_4_2 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' Another name by which this Domain is known. For example, "San Francisco, CA" can be a synonym of the domain "domain.dom.aaaaaaaa.ext". %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({DOMAIN_4_2},"||"):-1:1 { set DA($i(c))=$p({DOMAIN_4_2},"||",i) } set DIK="^DIC(4.2,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(4.23,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.23)") set %SkipFiling=1 if $d(%FMERR(4.23,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.23,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.SUBSYNONYM423S data ^DIC 4.2 {DOMAIN_4_2.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '440.02' Sub-File/Multiple Name: 'SYNONYM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYM_440_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.938167788 67178,44733.57511675 right SYNONYM 440.02 2.56 12/04/2024 12:25:33 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' This is the synonym for the vendor. %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 Relationship to parent (file name VENDOR) VALIP.prosthetic.fm2cw.VENDOR440 parent SUBSYNONYM44002 1 1 VENDOR_440 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({VENDOR_440},"||"):-1:1 { set DA($i(c))=$p({VENDOR_440},"||",i) } set DIK="^PRC(440,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(440.02,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(440.02)") set %SkipFiling=1 if $d(%FMERR(440.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(440.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYNONYM4EB2ES index {SYNONYM}'="" 1 ^PRC conditional 440 "C" $$TRUNCATE({SYNONYM},30)) {VENDOR_440.IEN} 0]]> {IEN} 0]]> data ^PRC 440 {VENDOR_440.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '44.01' Sub-File/Multiple Name: 'SYNONYM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYM_44_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.938007013 67178,44733.669803459 right SYNONYM 44.01 2.56 12/04/2024 12:25:33 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBSYNONYM4401 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' Synonym or shortened name associated with a specific location. %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",.01,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(44.01,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.01)") set %SkipFiling=1 if $d(%FMERR(44.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SUBSYNONYM4401S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> .01 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '441.05' Sub-File/Multiple Name: 'SYNONYM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYM_441_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.568452622 67178,44733.622633832 right SYNONYM 441.05 2.56 12/04/2024 12:25:33 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name ITEM MASTER) VALIP.prosthetic.fm2cw.ITEMMASTER441 parent SUBSYNONYM44105 1 1 ITEM_MASTER_441 FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ITEM_MASTER_441},"||"):-1:1 { set DA($i(c))=$p({ITEM_MASTER_441},"||",i) } set DIK="^PRC(441,"_DA(1)_",5,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(441.05,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(441.05)") set %SkipFiling=1 if $d(%FMERR(441.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(441.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYNONYM4E93ES index ^PRC nonnull 441 {ITEM_MASTER_441.IEN} 0]]> 5 "B" {SYNONYM} {IEN} 0]]> index ^PRC nonnull 441 "E" {SYNONYM} {ITEM_MASTER_441.IEN} 0]]> {IEN} 0]]> data ^PRC 441 {ITEM_MASTER_441.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 5 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '661.14' Sub-File/Multiple Name: 'SYNONYM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYM_661_14 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44772.827222546 67178,44733.761754633 right SYNONYM 661.14 2.56 12/04/2024 12:25:33 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PROSTHETIC HCPCS) VALIP.prosthetic.fm2cw.PROSTHETICHCPCS6611 parent SUBSYNONYM66114 1 1 PROSTHETIC_HCPCS_661_1 FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PROSTHETIC_HCPCS_661_1},"||"):-1:1 { set DA($i(c))=$p({PROSTHETIC_HCPCS_661_1},"||",i) } set DIK="^RMPR(661.1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(661.14,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(661.14)") set %SkipFiling=1 if $d(%FMERR(661.14,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(661.14,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYNONYM6C186S index ^RMPR nonnull 661.1 {PROSTHETIC_HCPCS_661_1.IEN} 0]]> 1 "B" {SYNONYM} {IEN} 0]]> data ^RMPR 661.1 {PROSTHETIC_HCPCS_661_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '61.11' Sub-File/Multiple Name: 'SYNONYMS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_SYNONYMS_61_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.940178106 67178,44733.420960377 right SYNONYMS 61.11 2.56 12/04/2024 12:25:33 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MORPHOLOGY FIELD) VALIP.prosthetic.fm2cw.MORPHOLOGYFIELD611 parent SUBSYNONYMS6111 1 1 MORPHOLOGY_FIELD_61_1 FileMan Field Label: 'SYNONYM' FileMan Field Number: '.01' Enter synonyms, abbreviations, or common misspellings of this morphology. %Library.String 1 3 SYNONYM SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MORPHOLOGY_FIELD_61_1},"||"):-1:1 { set DA($i(c))=$p({MORPHOLOGY_FIELD_61_1},"||",i) } set DIK="^LAB(61.1,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SYNONYM*C} FDA(61.11,IENS,.01)={SYNONYM} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(61.11)") set %SkipFiling=1 if $d(%FMERR(61.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(61.11,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBSYNONYMSCA0AS index {SYNONYM}'="" 1 ^LAB conditional 61.1 "D" $$TRUNCATE({SYNONYM},30)) {MORPHOLOGY_FIELD_61_1.IEN} 0]]> {IEN} 0]]> data ^LAB 61.1 {MORPHOLOGY_FIELD_61_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '4.043' Sub-File/Multiple Name: 'TAXONOMY CODE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TAXONOMY_CODE_4_043 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.951799473 67178,44733.809161835 right TAXONOMY CODE 4.043 2.56 12/04/2024 12:25:33 1 1 IEN 1 PERSON_CLASS_8932_1]]> TAXONOMYCODE VALIP.prosthetic.fm2cw.PERSONCLASS89321 FKey_TAXONOMY_CODE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name INSTITUTION) VALIP.prosthetic.fm2cw.INSTITUTION4 parent SUBTAXONOMYCODE4043 1 1 INSTITUTION_4 FileMan Field Label: 'PRIMARY CODE' FileMan Field Number: '.02' Only one code can be the primary taxonomy code for a provider. When a specific taxonomy code is identified it is the primary code that will be the default. %Library.EnumString 4 PRIMARY_CODE FileMan Field Label: 'STATUS' FileMan Field Number: '.03' If a taxonomy code listed for a provider is a currently active code (one they use today), then the status should be marked with an 'A'. At times a provider will no longer use a taxonomy code. This code will be marked with an 'I' for inactive. Codes should not be removed from a provider's list. They should be activated or inactivated. %Library.EnumString 5 STATUS FileMan Field Label: 'TAXONOMY CODE' FileMan Field Number: '.01' This multiple field holds the NUCC recognized taxonomy code for an individual or an organization. VALIP.prosthetic.fm2cw.PERSONCLASS89321 1 3 TAXONOMY_CODE PROVIDER TYPE This is Level I of NUCC's structure of the Provider Taxonomy.]]> %Library.String 1 PROVIDER_TYPE into :val from VALIP_prosthetic_fm2cw.SUB_TAXONOMY_CODE_4_043 where %ID=:id) set {TAXONOMY_CODE_PROVIDER_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 TAXONOMY_CODE_PROVIDER_TYPE 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({INSTITUTION_4},"||"):-1:1 { set DA($i(c))=$p({INSTITUTION_4},"||",i) } set DIK="^DIC(4,"_DA(1)_",""TAXONOMY"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TAXONOMY_CODE*C} FDA(4.043,IENS,.01)={TAXONOMY_CODE} set:{PRIMARY_CODE*C} FDA(4.043,IENS,.02)={PRIMARY_CODE} set:{STATUS*C} FDA(4.043,IENS,.03)={STATUS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.043)") set %SkipFiling=1 if $d(%FMERR(4.043,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.043,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTAXONOMY78E0S index ^DIC nonnull 4 {INSTITUTION_4.IEN} 0]]> "TAXONOMY" "B" {TAXONOMY_CODE} {IEN} 0]]> index ^DIC nonnull 4 {INSTITUTION_4.IEN} 0]]> "TAXONOMY" "C" {PRIMARY_CODE} {IEN} 0]]> data ^DIC 4 {INSTITUTION_4.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "TAXONOMY" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '44.40457' Sub-File/Multiple Name: 'TEAM POSITIONS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TEAM_POSITIONS_44_40457 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.963194139 67178,44733.857074414 right TEAM POSITIONS 44.40457 2.56 12/04/2024 12:25:33 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBTEAMPOSITIONS4440457 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""PCMM"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.40457)") set %SkipFiling=1 if $d(%FMERR(44.40457,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.40457,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTEAMPOSI1B1ES data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "PCMM" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '699.15' Sub-File/Multiple Name: 'TECHNIQUE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TECHNIQUE_699_15 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.219179871 67178,44733.902425387 right TECHNIQUE 699.15 2.56 12/04/2024 12:25:33 1 1 IEN 1 DIAGTHERAP_INTERVENT_699_6]]> TECHNIQUE VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 FKey_TECHNIQUE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name LOCATION EVALUATED) VALIP.prosthetic.fm2cw.SUBLOCATIONEVALUATED69901 parent SUBTECHNIQUE69915 1 1 SUB_LOCATION_EVALUATED_699_01 FileMan Field Label: 'TECHNIQUE' FileMan Field Number: '.01' This field identifies the specific technique used to evaluate the anatomical location. VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 1 3 TECHNIQUE NAME This field stores a list of techniques used in various Medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_TECHNIQUE_699_15 where %ID=:id) set {TECHNIQUE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TECHNIQUE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_LOCATION_EVALUATED_699_01},"||"):-1:1 { set DA($i(c))=$p({SUB_LOCATION_EVALUATED_699_01},"||",i) } set DIK="^MCAR(699,"_DA(2)_",30,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TECHNIQUE*C} FDA(699.15,IENS,.01)={TECHNIQUE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.15)") set %SkipFiling=1 if $d(%FMERR(699.15,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.15,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTECHNIQUB41AS index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 30 {SUB_LOCATION_EVALUATED_699_01.IEN} 0]]> 2 "B" {TECHNIQUE} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 30 {SUB_LOCATION_EVALUATED_699_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 2 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.501' Sub-File/Multiple Name: 'TECHNIQUE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TECHNIQUE_699_501 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.96547664 67178,44733.950698258 right TECHNIQUE 699.501 2.56 12/04/2024 12:25:33 1 1 IEN 1 DIAGTHERAP_INTERVENT_699_6]]> TECHNIQUE VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 FKey_TECHNIQUE Relationship to parent (file name GENERALIZED PROCEDURE/CONSULT) VALIP.prosthetic.fm2cw.GENERALIZEDPROCEDURECONSULT6995 parent SUBTECHNIQUE699501 1 1 GENERALIZED_PROCEDURECONSULT_699_5 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'TECHNIQUE' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.DIAGTHERAPINTERVENT6996 1 3 TECHNIQUE NAME This field stores a list of techniques used in various Medical procedures.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_TECHNIQUE_699_501 where %ID=:id) set {TECHNIQUE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TECHNIQUE_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({GENERALIZED_PROCEDURECONSULT_699_5},"||"):-1:1 { set DA($i(c))=$p({GENERALIZED_PROCEDURECONSULT_699_5},"||",i) } set DIK="^MCAR(699.5,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TECHNIQUE*C} FDA(699.501,IENS,.01)={TECHNIQUE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.501)") set %SkipFiling=1 if $d(%FMERR(699.501,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.501,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTECHNIQU8EB6S index ^MCAR nonnull 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} 0]]> 2 "B" {TECHNIQUE} {IEN} 0]]> data ^MCAR 699.5 {GENERALIZED_PROCEDURECONSULT_699_5.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.32' Sub-File/Multiple Name: 'THERMAL UNIT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_THERMAL_UNIT_130_32 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.966236112 67178,44733.997521356 right THERMAL UNIT 130.32 2.56 12/04/2024 12:25:33 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBTHERMALUNIT13032 1 1 SURGERY_130 FileMan Field Label: 'TEMPERATURE' FileMan Field Number: '2' Temperature Setting This is the temperature setting of the temperature controlling device. %Library.Numeric 5 TEMPERATURE FileMan Field Label: 'THERMAL UNIT' FileMan Field Number: '.01' Thermal Unit This is information identifying the specific temperature controlling device. %Library.String 1 3 THERMAL_UNIT FileMan Field Label: 'TIME OFF' FileMan Field Number: '3' Date/Time Turned Off This is the date and time that the thermal unit was turned off. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanTimeStamp 6 TIME_OFF FileMan Field Label: 'TIME ON' FileMan Field Number: '1' Date/Time Turned On This is the date and time that the thermal unit was activated. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanDate 4 TIME_ON SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",21,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{THERMAL_UNIT*C} FDA(130.32,IENS,.01)={THERMAL_UNIT} set:{TIME_ON*C} FDA(130.32,IENS,1)={TIME_ON} set:{TEMPERATURE*C} FDA(130.32,IENS,2)={TEMPERATURE} set:{TIME_OFF*C} FDA(130.32,IENS,3)={TIME_OFF} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.32)") set %SkipFiling=1 if $d(%FMERR(130.32,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.32,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTHERMALU11FAS data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 21 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 3 "^" 0 1 "^" 0 4 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '44.008' Sub-File/Multiple Name: 'THURSDAY TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_THURSDAY_TEMPLATE_44_008 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.982612687 67178,44734.044272213 right THURSDAY TEMPLATE 44.008 2.56 12/04/2024 12:25:34 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBTHURSDAYTEMPLATE44008 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIMIT DATE' FileMan Field Number: '.01' The pattern stored at this date is applicable for Thursdays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Thursday when appointments may be made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Thursdays from the previous entry date. %Library.Numeric 1 3 LIMIT_DATE FileMan Field Label: 'MASTER PATTERN' FileMan Field Number: '1' Master pattern set up for clinic for thursdays. %Library.String 1 5 s {MASTER_PATTERN}=$e({NODE_1},1,80) 1 MASTER_PATTERN Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"T4",{IEN},1)) 1 NODE_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T4"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LIMIT_DATE*C} FDA(44.008,IENS,.01)={LIMIT_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.008)") set %SkipFiling=1 if $d(%FMERR(44.008,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.008,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTHURSDAYT838S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T4" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '1.711' Sub-File/Multiple Name: 'TIMEFRAME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TIMEFRAME_1_711 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.98773043 67178,44734.0913645 right TIMEFRAME 1.711 2.56 12/04/2024 12:25:34 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '.03' The code that can be used for the timezone/timeframe. This could be duplicated code. Example: ACT = Australian Central Time OR ACT = Acre Time. %Library.String 5 CODE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'OFFSET' FileMan Field Number: '.02' This is the full offset value associated with a timeframe for a specific timezone. It will have a + or a - depending on the timezone's location to Greenwich. Then the full numeric hours/minutes from Greenwich. It should have leading/trailing zeros as needed. Examples: -0330, +1030, +0845, -0700. %Library.String 4 OFFSET FileMan Field Label: 'TIMEFRAME' FileMan Field Number: '.01' The timeframe of the timezone indicates what times a timezone may follow. All timezones should include a STANDARD timeframe. Some timezones may additionally have DAYLIGHT SAVINGS or SUMMER timeframe (as it may be known in other parts of the world). %Library.EnumString 1 3 TIMEFRAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 Relationship to parent (file name WORLD TIMEZONES) VALIP.prosthetic.fm2cw.WORLDTIMEZONES171 parent SUBTIMEFRAME1711 1 1 WORLD_TIMEZONES_1_71 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({WORLD_TIMEZONES_1_71},"||"):-1:1 { set DA($i(c))=$p({WORLD_TIMEZONES_1_71},"||",i) } set DIK="^DIT(1.71,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TIMEFRAME*C} FDA(1.711,IENS,.01)={TIMEFRAME} set:{OFFSET*C} FDA(1.711,IENS,.02)={OFFSET} set:{CODE*C} FDA(1.711,IENS,.03)={CODE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(1.711)") set %SkipFiling=1 if $d(%FMERR(1.711,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(1.711,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTIMEFRAME862S index ^DIT nonnull 1.71 {WORLD_TIMEZONES_1_71.IEN} 0]]> 1 "B" {TIMEFRAME} {IEN} 0]]> data ^DIT 1.71 {WORLD_TIMEZONES_1_71.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '19.391' Sub-File/Multiple Name: 'TIMES/DAYS PROHIBITED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TIMESDAYS_PROHIBITED_19_391 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.992608413 67178,44734.138157011 right TIMES/DAYS PROHIBITED 19.391 2.56 12/04/2024 12:25:34 1 1 IEN 1 FileMan Field Label: 'DAYS PROHIBITED' FileMan Field Number: '.02' This field may be used to prohibit use of the option on particular days of the week. %Library.String 4 DAYS_PROHIBITED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBTIMESDAYSPROHIBITED19391 1 1 OPTION_19 FileMan Field Label: 'TIMES PROHIBITED' FileMan Field Number: '.01' PROHIBITED TIME RANGE ON DAYS OF WEEK This field may be used to set prohibited times for specific days of the week. The PROHIBITED TIME RANGE may be specified alone to apply to all days as 0800-1630 to prohibit use between 8:00 am and 4:30 pm. The time range specified may be prohibited on one or more specific days of the week by entry of the desired prohibited days in the next field of this subfield. %Library.String 1 3 TIMES_PROHIBITED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",3.91,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TIMES_PROHIBITED*C} FDA(19.391,IENS,.01)={TIMES_PROHIBITED} set:{DAYS_PROHIBITED*C} FDA(19.391,IENS,.02)={DAYS_PROHIBITED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.391)") set %SkipFiling=1 if $d(%FMERR(19.391,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.391,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTIMESDAY6809S index ^DIC nonnull 19 {OPTION_19.IEN} 0]]> 3.91 "B" {TIMES_PROHIBITED} {IEN} 0]]> data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3.91 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '130.02' Sub-File/Multiple Name: 'TIME TOURNIQUET APPLIED' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TIME_TOURNIQUET_APPLIED_130_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44745.997328938 67178,44734.185459996 right TIME TOURNIQUET APPLIED 130.02 2.56 12/04/2024 12:25:34 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'PRESSURE' FileMan Field Number: '4' Pressure Applied (in TORR) This is the amount of pressure (in TORR) applied to the cuff. This information is optional, but may be useful in documentation of the case. %Library.String 6 PRESSURE FileMan Field Label: 'SITE APPLIED' FileMan Field Number: '1' Site Applied This is the code corresponding to the location on the body where the tourniquet is applied. %Library.EnumString 4 SITE_APPLIED Relationship to parent (file name SURGERY) VALIP.prosthetic.fm2cw.SURGERY130 parent SUBTIMETOURNIQUETAPPLIED13002 1 1 SURGERY_130 FileMan Field Label: 'TIME TOURNIQUET APPLIED' FileMan Field Number: '.01' Date/Time Tourniquet Applied This is the date and time that the tourniquet was applied. If entered, this information will appear on the Nurse Intraoperative Report. %Library.FilemanTimeStamp 1 3 TIME_TOURNIQUET_APPLIED FileMan Field Label: 'TIME TOURNIQUET REL.' FileMan Field Number: '3' Date/Time Tourniquet Released This is the date and time that the tourniquet was released. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanTimeStamp 5 TIME_TOURNIQUET_REL_ SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SURGERY_130},"||"):-1:1 { set DA($i(c))=$p({SURGERY_130},"||",i) } set DIK="^SRF("_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TIME_TOURNIQUET_APPLIED*C} FDA(130.02,IENS,.01)={TIME_TOURNIQUET_APPLIED} set:{SITE_APPLIED*C} FDA(130.02,IENS,1)={SITE_APPLIED} set:{TIME_TOURNIQUET_REL_*C} FDA(130.02,IENS,3)={TIME_TOURNIQUET_REL_} set:{PRESSURE*C} FDA(130.02,IENS,4)={PRESSURE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130.02)") set %SkipFiling=1 if $d(%FMERR(130.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(130.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTIMETOUR65BCS data ^SRF {SURGERY_130.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 2 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 5 "^" 0 2 "^" 0 1 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '19.03' Sub-File/Multiple Name: 'TO(0,N)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TO0N_19_03 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.010998562 67178,44734.232422327 right TO(0,N) 19.03 2.56 12/04/2024 12:25:34 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name OPTION) VALIP.prosthetic.fm2cw.OPTION19 parent SUBTO0N1903 1 1 OPTION_19 FileMan Field Label: 'SUBSCRIPT LEVEL NUMBER' FileMan Field Number: '.01' Number equal to one of the "N" subscripts that FileMan must sort through on the global or cross-reference defined by the BY(0) input variable to the FileMan print routine, EN1^DIP. Used to set an entry into the TO(0,N) input array (sort TO value for the Nth subscript). %Library.Numeric 1 3 SUBSCRIPT_LEVEL_NUMBER FileMan Field Label: 'TO VALUE' FileMan Field Number: '1' This optional field can be filled out for any of the "N" subscripts that FileMan must sort through on the global defined in BY(0). This field only has meaning when something has been defined in BY(0), and it indicates the "GO TO" value for subscript "N". For example, when FileMan builds the code for sorting through a cross-reference defined in BY(0), if an entry exists in the first multiple for this field, the value of this field will be used as the ending point for sorting on the first variable subscript in the cross-reference. %Library.String 4 TO_VALUE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OPTION_19},"||"):-1:1 { set DA($i(c))=$p({OPTION_19},"||",i) } set DIK="^DIC(19,"_DA(1)_",""TO"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{SUBSCRIPT_LEVEL_NUMBER*C} FDA(19.03,IENS,.01)={SUBSCRIPT_LEVEL_NUMBER} set:{TO_VALUE*C} FDA(19.03,IENS,1)={TO_VALUE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19.03)") set %SkipFiling=1 if $d(%FMERR(19.03,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(19.03,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBTO0N1903S index ^DIC nonnull 19 {OPTION_19.IEN} 0]]> "TO" "B" {SUBSCRIPT_LEVEL_NUMBER} {IEN} 0]]> data ^DIC 19 {OPTION_19.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "TO" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '4.21' Sub-File/Multiple Name: 'TRANSMISSION SCRIPT' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TRANSMISSION_SCRIPT_4_21 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.020578836 67178,44734.280801973 right TRANSMISSION SCRIPT 4.21 2.56 12/04/2024 12:25:34 1 1 IEN 1 Relationship to parent (file name DOMAIN) VALIP.prosthetic.fm2cw.DOMAIN42 parent SUBTRANSMISSIONSCRIPT421 1 1 DOMAIN_4_2 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NETWORK ADDRESS (MAILMAN HOST)' FileMan Field Number: '1.4' The network address is that identifier that, used appropriately on the physical link, allows specification of the system to be contacted. %Library.String 8 NETWORK_ADDRESS_MAILMAN_HOST FileMan Field Label: 'NUMBER OF ATTEMPTS' FileMan Field Number: '1.1' MailMan tests against this field to determine how many times it should try a particular protocol before giving up and trying the next one. This field is used in conjunction with the Priority field. When the the Number of tries to transmit the messages in the queue exceeds the value of this field, a Transmission Failure bulletin is sent to the Postmaster. This field is only active with the SMTP type of transmission script. %Library.Numeric 5 NUMBER_OF_ATTEMPTS FileMan Field Label: 'OUT OF SERVICE' FileMan Field Number: '1.5' This is the preferred field to set to take a script out of service, to prevent it from being used. %Library.EnumString 9 OUT_OF_SERVICE FileMan Field Label: 'PHYSICAL LINK / DEVICE' FileMan Field Number: '1.3' The physical link is the channel that the transmission will take place on. This field is always a free text pointer to the device file. See field 17 / Physical Link Device for more information. %Library.String 7 PHYSICAL_LINK__DEVICE FileMan Field Label: 'PRIORITY' FileMan Field Number: '1' This field is used by MailMan to decide which script to play when trying to transmit messages in background. The higher the number the lower the priority for being chosen. See also the Number of Attempts field. When MailMan is transmitting using the TCP/IP Poller (XMRTCP), it assumes that there is only one possible TCP/IP connection per domain and does not look for multiple scripts to roll over to. This field is only operable for SMTP type scripts (using standard asynchronous WAN connections). PRIORITIES can go from 0 to 9999 where 0 is the highest and 9999 is the lowest. If the field has no value, 9999 is assumed. %Library.Numeric 4 PRIORITY FileMan Field Label: 'TEXT' FileMan Field Number: '2' This is the text of the script. See description above. %Library.String 10 TEXT FileMan Field Label: 'TRANSMISSION SCRIPT' FileMan Field Number: '.01' A free text string of 1 to 10 characters identifying the script. This is the name of the transmission script. %Library.String 1 3 TRANSMISSION_SCRIPT FileMan Field Label: 'TRANSMISSION SCRIPT NOTES' FileMan Field Number: '99' Keep notes that are important for systems management here. %Library.String 11 TRANSMISSION_SCRIPT_NOTES FileMan Field Label: 'TYPE' FileMan Field Number: '1.2' Each transmission script must be given a type so that it can be handled properly. asynchronous connections on the WAN are of the type IDCU. These scripts may compete with each other according to their priorities (See the PRIORITY field). Scripts that use TCP/IP channels should be marked with the type TCPCHAN so that they are ignored during prioritization unless the TCP/IP enabled CPUs have Task Manager running on them, in which case they should be made SMTP type. In other words, if the physical link is on a CPU that Task Manager runs on the transmission script can be of the type SMTP. If it is not on such a CPU another type must be chosen. Other types are TELNET (used for TalkMan or other interactive scripts), FTP (for File Transfers) and Other. %Library.EnumString 6 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 12 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({DOMAIN_4_2},"||"):-1:1 { set DA($i(c))=$p({DOMAIN_4_2},"||",i) } set DIK="^DIC(4.2,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TRANSMISSION_SCRIPT*C} FDA(4.21,IENS,.01)={TRANSMISSION_SCRIPT} set:{PRIORITY*C} FDA(4.21,IENS,1)={PRIORITY} set:{NUMBER_OF_ATTEMPTS*C} FDA(4.21,IENS,1.1)={NUMBER_OF_ATTEMPTS} set:{TYPE*C} FDA(4.21,IENS,1.2)={TYPE} set:{PHYSICAL_LINK__DEVICE*C} FDA(4.21,IENS,1.3)={PHYSICAL_LINK__DEVICE} set:{NETWORK_ADDRESS_MAILMAN_HOST*C} FDA(4.21,IENS,1.4)={NETWORK_ADDRESS_MAILMAN_HOST} set:{OUT_OF_SERVICE*C} FDA(4.21,IENS,1.5)={OUT_OF_SERVICE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(4.21)") set %SkipFiling=1 if $d(%FMERR(4.21,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(4.21,""DIERR"") for details" RETURN } if {TEXT*C} { set D0={RowId} kill wp if {TEXT}'="" { set wproot="wp" for i=1:1:$l({TEXT},$c(13,10)) { set wp(i)=$p({TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(4.21,{IENS},2,,wproot,"%FMERR(4.21)") if $d(%FMERR(4.21,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.21)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {TRANSMISSION_SCRIPT_NOTES*C} { set D0={RowId} kill wp if {TRANSMISSION_SCRIPT_NOTES}'="" { set wproot="wp" for i=1:1:$l({TRANSMISSION_SCRIPT_NOTES},$c(13,10)) { set wp(i)=$p({TRANSMISSION_SCRIPT_NOTES},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(4.21,{IENS},99,,wproot,"%FMERR(4.21)") if $d(%FMERR(4.21,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(4.21)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTRANSMISCAA0S index ^DIC nonnull 4.2 {DOMAIN_4_2.IEN} 0]]> 1 "AC" {PRIORITY} {IEN} 0]]> index ^DIC nonnull 4.2 {DOMAIN_4_2.IEN} 0]]> 1 "B" {TRANSMISSION_SCRIPT} {IEN} 0]]> data ^DIC 4.2 {DOMAIN_4_2.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 6 "^" 0 3 "^" 0 7 "^" 0 5 "^" 0 2 1 new data,i,node set {TEXT}="" merge data=^DIC(4.2,{S2},1,{S4},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {TEXT}={TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "NOTES" new data,i,node set {TRANSMISSION_SCRIPT_NOTES}="" merge data=^DIC(4.2,{S2},1,{S4},"NOTES") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {TRANSMISSION_SCRIPT_NOTES}={TRANSMISSION_SCRIPT_NOTES}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '690.015' Sub-File/Multiple Name: 'TRANSMITTED PACEMAKER REPORTS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TRANSMITTED_PACEMAKER_REPORTS_690_015 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.021001784 67178,44734.332218657 right TRANSMITTED PACEMAKER REPORTS 690.015 2.56 12/04/2024 12:25:34 1 1 IEN 1 FileMan Field Label: 'DATE REPORT TRANSMITTED' FileMan Field Number: '.01' This field stores the date (or date/time) of reports transmitted to national pacemaker center. It is set from the routine MCARPCS4. %Library.FilemanTimeStamp 1 3 DATE_REPORT_TRANSMITTED Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL PATIENT) VALIP.prosthetic.fm2cw.MEDICALPATIENT690 parent SUBTRANSMITTEDPACEMAKERREPORTS690015 1 1 MEDICAL_PATIENT_690 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_PATIENT_690},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_PATIENT_690},"||",i) } set DIK="^MCAR(690,"_DA(1)_",""P4"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{DATE_REPORT_TRANSMITTED*C} FDA(690.015,IENS,.01)={DATE_REPORT_TRANSMITTED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(690.015)") set %SkipFiling=1 if $d(%FMERR(690.015,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(690.015,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTRANSMIT2D7DS index ^MCAR nonnull 690 {MEDICAL_PATIENT_690.IEN} 0]]> "P4" "B" {DATE_REPORT_TRANSMITTED} {IEN} 0]]> data ^MCAR 690 {MEDICAL_PATIENT_690.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "P4" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '40.806' Sub-File/Multiple Name: 'TREATING SPECIALTY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TREATING_SPECIALTY_40_806 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.029674431 67178,44734.378039701 right TREATING SPECIALTY 40.806 2.56 12/04/2024 12:25:34 1 1 IEN 1 FileMan Field Label: 'BEGINNING TSR PATIENTS' FileMan Field Number: '.03' This sub-field of the Treating Specialty multiple is used to initialize the number of patients for the TSR. %Library.Numeric 4 BEGINNING_TSR_PATIENTS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name MEDICAL CENTER DIVISION) VALIP.prosthetic.fm2cw.MEDICALCENTERDIVISION408 parent SUBTREATINGSPECIALTY40806 1 1 MEDICAL_CENTER_DIVISION_40_8 FileMan Field Label: 'NUMBER OF BEDS' FileMan Field Number: '.02' This sub-field of the Treating Specialty multiple is the number of beds. %Library.Numeric 3 NUMBER_OF_BEDS FileMan Field Label: 'TSR ORDER' FileMan Field Number: '.04' This sub-field of the Treating Specialty multiple will be used in the print display order of the Treating Specialty Report by division. This field entry must be unique and greater than 0 for a treating specialty to appear on the TSR. If the treating specialty should not be printed on the TSR, the value in this field should be deleted. %Library.Numeric 5 TSR_ORDER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({MEDICAL_CENTER_DIVISION_40_8},"||"):-1:1 { set DA($i(c))=$p({MEDICAL_CENTER_DIVISION_40_8},"||",i) } set DIK="^DG(40.8,"_DA(1)_",""TS"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{NUMBER_OF_BEDS*C} FDA(40.806,IENS,.02)={NUMBER_OF_BEDS} set:{BEGINNING_TSR_PATIENTS*C} FDA(40.806,IENS,.03)={BEGINNING_TSR_PATIENTS} set:{TSR_ORDER*C} FDA(40.806,IENS,.04)={TSR_ORDER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(40.806)") set %SkipFiling=1 if $d(%FMERR(40.806,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(40.806,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTREATINGFC9CS data ^DG 40.8 {MEDICAL_CENTER_DIVISION_40_8.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "TS" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '44.08' Sub-File/Multiple Name: 'TUESDAY TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TUESDAY_TEMPLATE_44_08 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.037684164 67178,44734.424002918 right TUESDAY TEMPLATE 44.08 2.56 12/04/2024 12:25:34 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBTUESDAYTEMPLATE4408 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIMIT DATE' FileMan Field Number: '.01' The pattern stored at this date is applicable for Tuesdays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Tuesday when appointments may be made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Tuesdays from the previous entry date. %Library.Numeric 1 3 LIMIT_DATE FileMan Field Label: 'MASTER PATTERN' FileMan Field Number: '1' Master Pattern set up for clinic for Tuesdays. %Library.String 1 5 s {MASTER_PATTERN}=$e({NODE_1},1,80) 1 MASTER_PATTERN Computed Field For Node 1 %Library.String 1 4 s {NODE_1}=$g(^SC($p({RowId},"||"),"T2",{IEN},1)) 1 NODE_1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T2"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LIMIT_DATE*C} FDA(44.08,IENS,.01)={LIMIT_DATE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.08)") set %SkipFiling=1 if $d(%FMERR(44.08,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.08,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTUESDAYT3B2AS data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T2" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '440.01' Sub-File/Multiple Name: 'TYPE OF OWNERSHIP (FY88)' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_TYPE_OF_OWNERSHIP_FY88_440_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.047353352 67178,44734.470688172 right TYPE OF OWNERSHIP (FY88) 440.01 2.56 12/04/2024 12:25:34 1 1 IEN 1 CODE_INDEX_420_6]]> TYPEOFOWNERSHIPFY88 VALIP.prosthetic.fm2cw.CODEINDEX4206 FKey_TYPE_OF_OWNERSHIP_FY88 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'TYPE OF OWNERSHIP (FY88)' FileMan Field Number: '.01' This is the type of ownership. VALIP.prosthetic.fm2cw.CODEINDEX4206 1 3 TYPE_OF_OWNERSHIP_FY88 NAME This is the name of the code index. Updated to accept up to four chars to support the new FPDS report.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_TYPE_OF_OWNERSHIP_FY88_440_01 where %ID=:id) set {TYPE_OF_OWNERSHIP_FY88_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TYPE_OF_OWNERSHIP_FY88_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 Relationship to parent (file name VENDOR) VALIP.prosthetic.fm2cw.VENDOR440 parent SUBTYPEOFOWNERSHIPFY8844001 1 1 VENDOR_440 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({VENDOR_440},"||"):-1:1 { set DA($i(c))=$p({VENDOR_440},"||",i) } set DIK="^PRC(440,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{TYPE_OF_OWNERSHIP_FY88*C} FDA(440.01,IENS,.01)={TYPE_OF_OWNERSHIP_FY88} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(440.01)") set %SkipFiling=1 if $d(%FMERR(440.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(440.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBTYPEOFOWA5E9S data ^PRC 440 {VENDOR_440.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.01' Sub-File/Multiple Name: 'UCI' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_UCI_200_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.057327405 67178,44734.516506499 right UCI 200.01 2.56 12/04/2024 12:25:34 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBUCI20001 1 1 NEW_PERSON_200 FileMan Field Label: 'ROUTINES (RN1:RN2)' FileMan Field Number: '2' This is a list of routines that the user may choose to run when signing on to this UCI. The routines are seperated by ':'s. %Library.String 4 ROUTINES_RN1RN2 FileMan Field Label: 'UCI' FileMan Field Number: '.01' This is one of a set of UCI's that this user may choose to work in at sign-on time. %Library.String 1 3 UCI SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",.2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{UCI*C} FDA(200.01,IENS,.01)={UCI} set:{ROUTINES_RN1RN2*C} FDA(200.01,IENS,2)={ROUTINES_RN1RN2} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.01)") set %SkipFiling=1 if $d(%FMERR(200.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SUBUCI20001S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> .2 "B" {UCI} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> .2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '8925.12' Sub-File/Multiple Name: 'UPLOAD CAPTIONED ASCII HEADER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_UPLOAD_CAPTIONED_ASCII_HEADER_8925_12 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.066968253 67178,44734.563138038 right UPLOAD CAPTIONED ASCII HEADER 8925.12 2.56 12/04/2024 12:25:34 1 1 IEN 1 FileMan Field Label: 'CAPTION' FileMan Field Number: '.01' NOTE: Users can choose between two possible kinds of Upload Record Headers: Captioned or Delimited. Captioned headers should be used UNLESS the site has a way to generate upload headers automatically. CAPTION is the caption which the transcriber enters into the captioned upload record header immediately preceeding the item data. It serves to distinguish one item of data from the next. Example: PATIENT NAME %Library.String 1 3 CAPTION FileMan Field Label: 'CLINICIAN MUST DICTATE' FileMan Field Number: '.06' States whether or not this item should be dictated by the Clinician. Will be used by the Clinician Help routine to determine if this field should be shown as data that should be dictated. (Some items can be entered by the transcriber without being dictated, such as the transcriber identification). %Library.EnumString 8 CLINICIAN_MUST_DICTATE FileMan Field Label: 'EXAMPLE ENTRY' FileMan Field Number: '.05' This field is used to store sample data for this item in the form the transcriptionist is expected to use when transcribing it. For example, if a patient has social security number 555-12-1212, and the transcriptionist is expected to write 555-12-1212, than an Example Entry should have the form 555-12-1212. The Upload needs to know the exact form the transcriptionist is expected to use in case it needs to transform it to make it acceptable to FileMan. In this case, the transcriptionist also needs to know the exact form. %Library.String 7 EXAMPLE_ENTRY FileMan Field Label: 'FIELD NUMBER' FileMan Field Number: '.03' This is the FIELD # in the target file which corresponds to this header item and where this item of data will be stored. %Library.String 5 FIELD_NUMBER Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ITEM NAME' FileMan Field Number: '.02' This is the name of the item in the ASCII message header. Item Name is used in help messages for the person dictating a document. %Library.String 4 ITEM_NAME FileMan Field Label: 'LOOKUP LOCAL VARIABLE NAME' FileMan Field Number: '.04' This field specifies the local variable name into which this item of the upload header will be set. The local variable is used by the Look-Up Method. For example, if this item of the header is the patient social security number, the Lookup Local Variable Name might be TIUSSN. The social security number as written by the transcriptionist is first transformed by any existing Transform Code, and then set into this variable (e.g. TIUSSN) for use in Look-Up Method code. Lookup Local Variable Name is necessary only if the information in this piece is required in order to look up the appropriate entry in the target file. %Library.String 6 LOOKUP_LOCAL_VARIABLE_NAME Computed Field For Node 1 %Library.String 1 10 s {NODE_1}=$g(^TIU(8925.1,$p({RowId},"||"),"HEAD",{IEN},1)) 1 NODE_1 FileMan Field Label: 'REQUIRED FIELD?' FileMan Field Number: '.07' This field is used to determine whether a given header item is required by the application (e.g., Author and Attending Physician may be required for the ongoing processing of a Discharge Summary). Records lacking required fields WILL be entered into the target file, if possible, but will generate Missing Field Error Alerts. %Library.EnumString 9 REQUIRED_FIELD Relationship to parent (file name TIU DOCUMENT DEFINITION) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 parent SUBUPLOADCAPTIONEDASCIIHEADER892512 1 1 TIU_DOCUMENT_DEFINITION_8925_1 FileMan Field Label: 'TRANSFORM CODE' FileMan Field Number: '1' This standard MUMPS code transforms the transcribed value of the header item into a format acceptable to FileMan (e.g., patient social security number 555-12-1212 must be transformed to 555121212 or to whatever (external) format FileMan accepts when a user edits the social security number field in the target file). Field values are transformed before being set into Special Lookup Variables and before being set into target file fields. Field is necessary only if transcribed item is not in the format Fileman accepts for the target file. %Library.String 1 11 s {TRANSFORM_CODE}=$e({NODE_1},1,245) 1 TRANSFORM_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 12 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_DOCUMENT_DEFINITION_8925_1},"||"):-1:1 { set DA($i(c))=$p({TIU_DOCUMENT_DEFINITION_8925_1},"||",i) } set DIK="^TIU(8925.1,"_DA(1)_",""HEAD"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{CAPTION*C} FDA(8925.12,IENS,.01)={CAPTION} set:{ITEM_NAME*C} FDA(8925.12,IENS,.02)={ITEM_NAME} set:{FIELD_NUMBER*C} FDA(8925.12,IENS,.03)={FIELD_NUMBER} set:{LOOKUP_LOCAL_VARIABLE_NAME*C} FDA(8925.12,IENS,.04)={LOOKUP_LOCAL_VARIABLE_NAME} set:{EXAMPLE_ENTRY*C} FDA(8925.12,IENS,.05)={EXAMPLE_ENTRY} set:{CLINICIAN_MUST_DICTATE*C} FDA(8925.12,IENS,.06)={CLINICIAN_MUST_DICTATE} set:{REQUIRED_FIELD*C} FDA(8925.12,IENS,.07)={REQUIRED_FIELD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.12)") set %SkipFiling=1 if $d(%FMERR(8925.12,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.12,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBUPLOADCA5943S index {CAPTION}'="" 1 ^TIU conditional 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "HEAD" "B" $$TRUNCATE({CAPTION},30)) {IEN} 0]]> index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "HEAD" "C" {ITEM_NAME} {IEN} 0]]> index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "HEAD" "D" {FIELD_NUMBER} {IEN} 0]]> index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "HEAD" "E" {LOOKUP_LOCAL_VARIABLE_NAME} {IEN} 0]]> data ^TIU 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "HEAD" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 6 "^" 0 5 "^" 0 3 "^" 0 2 "^" 0 4 "^" 0 7 Generated class for FileMan Sub-File/Multiple Number: '8925.11' Sub-File/Multiple Name: 'UPLOAD DELIMITED ASCII HEADER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_UPLOAD_DELIMITED_ASCII_HEADER_8925_11 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.076254504 67178,44734.614134317 right UPLOAD DELIMITED ASCII HEADER 8925.11 2.56 12/04/2024 12:25:34 1 1 IEN 1 FileMan Field Label: 'CLINICIAN MUST DICTATE' FileMan Field Number: '.06' States whether or not this piece of the header should be dictated by the Clinician. Will be used by the Clinician Help routine to determine if this field should be shown as data that should be dictated. (Some pieces can be entered by the transcriber without being dictated, such as the transcriber identification). %Library.EnumString 8 CLINICIAN_MUST_DICTATE FileMan Field Label: 'EXAMPLE ENTRY' FileMan Field Number: '.05' This field is used to store sample data for this item in the form the transcriptionist is expected to use when transcribing it. For example, if a patient has Social Security Number 555-12-1212, and the transcriptionist is expected to write 555-12-1212, then an Example Entry should have the form 555-12-1212. The Transform Code, if it exists, then transforms the transcribed Social Security Number 555-12-1212 into the appropriate format for the target file before using the Social Security Number to look-up the appropriate target file entry and/or before entering it in the target file. %Library.String 7 EXAMPLE_ENTRY FileMan Field Label: 'FIELD NUMBER' FileMan Field Number: '.03' This is the field number in the target file which corresponds to this header item. %Library.String 5 FIELD_NUMBER FileMan Field Label: 'HEADER PIECE' FileMan Field Number: '.01' This is the number for this piece (item) of the header. Start with number 1 for the first piece. %Library.Numeric 1 3 HEADER_PIECE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ITEM NAME' FileMan Field Number: '.02' This is the name of the item in the ASCII message header. Item Name is used in help messages for the person dictating a document. %Library.String 4 ITEM_NAME FileMan Field Label: 'LOOKUP LOCAL VARIABLE NAME' FileMan Field Number: '.04' This field specifies the local variable name into which this piece of the message header will be set. The local variable is used by the Look-Up Method. For example, if this piece of the header is the patient social security number, the Lookup Local Variable Name might be TIUSSN. The social security number as written by the transcriptionist is first transformed by any existing Transform Code, and then set into this variable (e.g. TIUSSN) for use in Look-Up Method code. Lookup Local Variable Name is necessary only if the information in this piece is required in order to look up the appropriate entry in the target file. %Library.String 6 LOOKUP_LOCAL_VARIABLE_NAME Computed Field For Node 1 %Library.String 1 10 s {NODE_1}=$g(^TIU(8925.1,$p({RowId},"||"),"ITEM",{IEN},1)) 1 NODE_1 FileMan Field Label: 'REQUIRED FIELD?' FileMan Field Number: '.07' This field is used to determine whether a given header piece is required by the application (e.g., Author and Attending Physician may be required for the ongoing processing of a Discharge Summary). Records lacking required fields WILL be entered if possible into the target file but will generate Missing Field Error Alerts. %Library.EnumString 9 REQUIRED_FIELD Relationship to parent (file name TIU DOCUMENT DEFINITION) VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 parent SUBUPLOADDELIMITEDASCIIHEADER892511 1 1 TIU_DOCUMENT_DEFINITION_8925_1 FileMan Field Label: 'TRANSFORM CODE' FileMan Field Number: '1' This standard MUMPS code transforms the transcribed value of the header piece into a format acceptable to FileMan (e.g., patient social security number 555-12-1212 must be transformed to 555121212 or to whatever (external) format FileMan accepts when a user edits the social security number field in the target file). Field values are transformed before being set into Special Lookup Variables and before being set into Target Text File Fields. Field is necessary only if transcribed piece is not in the format Fileman accepts for the target file. %Library.String 1 11 s {TRANSFORM_CODE}=$e({NODE_1},1,245) 1 TRANSFORM_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 12 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({TIU_DOCUMENT_DEFINITION_8925_1},"||"):-1:1 { set DA($i(c))=$p({TIU_DOCUMENT_DEFINITION_8925_1},"||",i) } set DIK="^TIU(8925.1,"_DA(1)_",""ITEM"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{HEADER_PIECE*C} FDA(8925.11,IENS,.01)={HEADER_PIECE} set:{ITEM_NAME*C} FDA(8925.11,IENS,.02)={ITEM_NAME} set:{FIELD_NUMBER*C} FDA(8925.11,IENS,.03)={FIELD_NUMBER} set:{LOOKUP_LOCAL_VARIABLE_NAME*C} FDA(8925.11,IENS,.04)={LOOKUP_LOCAL_VARIABLE_NAME} set:{EXAMPLE_ENTRY*C} FDA(8925.11,IENS,.05)={EXAMPLE_ENTRY} set:{CLINICIAN_MUST_DICTATE*C} FDA(8925.11,IENS,.06)={CLINICIAN_MUST_DICTATE} set:{REQUIRED_FIELD*C} FDA(8925.11,IENS,.07)={REQUIRED_FIELD} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.11)") set %SkipFiling=1 if $d(%FMERR(8925.11,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(8925.11,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBUPLOADDEC0CCS index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "ITEM" "B" {HEADER_PIECE} {IEN} 0]]> index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "ITEM" "C" {ITEM_NAME} {IEN} 0]]> index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "ITEM" "D" {FIELD_NUMBER} {IEN} 0]]> index ^TIU nonnull 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} 0]]> "ITEM" "E" {LOOKUP_LOCAL_VARIABLE_NAME} {IEN} 0]]> data ^TIU 8925.1 {TIU_DOCUMENT_DEFINITION_8925_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "ITEM" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 6 "^" 0 5 "^" 0 3 "^" 0 1 "^" 0 2 "^" 0 4 "^" 0 7 Generated class for FileMan Sub-File/Multiple Number: '445.05' Sub-File/Multiple Name: 'USAGE/ISSUES HISTORY BY ITEM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_USAGEISSUES_HISTORY_BY_ITEM_445_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.694153742 67178,44734.665937092 right USAGE/ISSUES HISTORY BY ITEM 445.05 2.56 12/04/2024 12:25:34 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'MONTH/YEAR USED/ISSUED' FileMan Field Number: '.01' This is the month and year when the item was used or issued. %Library.Numeric 1 3 MONTHYEAR_USEDISSUED FileMan Field Label: 'QTY.USED/ISSUED (U OF ISSUE)' FileMan Field Number: '1' This is the quantity, in unit of issue, of the item used or issued. %Library.Numeric 4 QTY_USEDISSUED_U_OF_ISSUE Relationship to parent (file name INVENTORY ITEM) VALIP.prosthetic.fm2cw.SUBINVENTORYITEM44501 parent SUBUSAGEISSUESHISTORYBYITEM44505 1 1 SUB_INVENTORY_ITEM_445_01 FileMan Field Label: 'TOTAL COST USED/ISSUED' FileMan Field Number: '2' This is the total cost of all stock of this item which was used or issued. %Library.Numeric 5 TOTAL_COST_USEDISSUED SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_INVENTORY_ITEM_445_01},"||"):-1:1 { set DA($i(c))=$p({SUB_INVENTORY_ITEM_445_01},"||",i) } set DIK="^PRCP(445,"_DA(2)_",1,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{MONTHYEAR_USEDISSUED*C} FDA(445.05,IENS,.01)={MONTHYEAR_USEDISSUED} set:{QTY_USEDISSUED_U_OF_ISSUE*C} FDA(445.05,IENS,1)={QTY_USEDISSUED_U_OF_ISSUE} set:{TOTAL_COST_USEDISSUED*C} FDA(445.05,IENS,2)={TOTAL_COST_USEDISSUED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(445.05)") set %SkipFiling=1 if $d(%FMERR(445.05,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(445.05,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBUSAGEISSD4D7S data ^PRCP 445 {GENERIC_INVENTORY_445.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {SUB_INVENTORY_ITEM_445_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 2 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 "^" 0 2 "^" 0 3 Generated class for FileMan Sub-File/Multiple Number: '100.212' Sub-File/Multiple Name: 'USER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_USER_100_212 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.073991719 67178,44734.712820478 right USER 100.212 2.56 12/04/2024 12:25:34 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LAST DATE/TIME USED' FileMan Field Number: '1' This is the date/time that the user last used this list. %Library.FilemanTimeStamp 3 LAST_DATETIME_USED Relationship to parent (file name OE/RR LIST) VALIP.prosthetic.fm2cw.OERRLIST10021 parent SUBUSER100212 1 1 OERR_LIST_100_21 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({OERR_LIST_100_21},"||"):-1:1 { set DA($i(c))=$p({OERR_LIST_100_21},"||",i) } set DIK="^OR(100.21,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LAST_DATETIME_USED*C} FDA(100.212,IENS,1)={LAST_DATETIME_USED} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(100.212)") set %SkipFiling=1 if $d(%FMERR(100.212,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(100.212,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosth7939.SUBUSER100212S data ^OR 100.21 {OERR_LIST_100_21.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '200.07' Sub-File/Multiple Name: 'USER CLASS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_USER_CLASS_200_07 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.085381783 67178,44734.759340041 right USER CLASS 200.07 2.56 12/04/2024 12:25:34 1 1 IEN 1 USER_CLASS_201]]> USERCLASS VALIP.prosthetic.fm2cw.USERCLASS201 FKey_USER_CLASS Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'ISPRIMARY' FileMan Field Number: '2' Is Primary This field notes if this User Class is the primary User Class for this user. If returning just one User Class then this is the one to be returned. %Library.EnumString 4 ISPRIMARY Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBUSERCLASS20007 1 1 NEW_PERSON_200 FileMan Field Label: 'User Class' FileMan Field Number: '.01' VALIP.prosthetic.fm2cw.USERCLASS201 1 3 USER_CLASS NAME This field is User Class that is to be used for identifying users.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SUB_USER_CLASS_200_07 where %ID=:id) set {USER_CLASS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 USER_CLASS_NAME 1 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",""USC3"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{USER_CLASS*C} FDA(200.07,IENS,.01)={USER_CLASS} set:{ISPRIMARY*C} FDA(200.07,IENS,2)={ISPRIMARY} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.07)") set %SkipFiling=1 if $d(%FMERR(200.07,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.07,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBUSERCLAS6C39S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> "USC3" "B" {USER_CLASS} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "USC3" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '450.01' Sub-File/Multiple Name: 'USER PREFERENCES' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_USER_PREFERENCES_450_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.099552974 67178,44734.807348072 right USER PREFERENCES 450.01 2.56 12/04/2024 12:25:34 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name PAID EMPLOYEE) VALIP.prosthetic.fm2cw.PAIDEMPLOYEE450 parent SUBUSERPREFERENCES45001 1 1 PAID_EMPLOYEE_450 FileMan Field Label: 'USER PREFERENCES' FileMan Field Number: '.01' This field contains the name of a ETA package defined user preference. In general only ETA software code should create or modify entries to this field, when a user of the package has selected a preference that can be saved and used by the software to retain the users preference. %Library.String 1 3 USER_PREFERENCES FileMan Field Label: 'VALUE' FileMan Field Number: '1' This field stores the value of a PAID ETA package user's preference for the associated preference in this multiple. For example, a timekeeper may choose to edit POC records when they are posting timecards. If they choose to then the software will save this preference in this field. Entries to this field and this multiple should only be added or edited by the ETA software when a user selects a preference. %Library.String 4 VALUE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PAID_EMPLOYEE_450},"||"):-1:1 { set DA($i(c))=$p({PAID_EMPLOYEE_450},"||",i) } set DIK="^PRSPC("_DA(1)_",7,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{USER_PREFERENCES*C} FDA(450.01,IENS,.01)={USER_PREFERENCES} set:{VALUE*C} FDA(450.01,IENS,1)={VALUE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(450.01)") set %SkipFiling=1 if $d(%FMERR(450.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(450.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBUSERPREFED0FS index ^PRSPC nonnull {PAID_EMPLOYEE_450.IEN} 0]]> 7 "B" {USER_PREFERENCES} {IEN} 0]]> data ^PRSPC {PAID_EMPLOYEE_450.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> 7 {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '771.9051' Sub-File/Multiple Name: 'USING APPLICATION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_USING_APPLICATION_771_9051 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.104878615 67178,44734.854205593 right USING APPLICATION 771.9051 2.56 12/04/2024 12:25:34 1 1 IEN 1 Relationship to parent (file name HL7 DEGREE) VALIP.prosthetic.fm2cw.HL7DEGREE7719 parent SUBUSINGAPPLICATION7719051 1 1 HL7_DEGREE_771_9 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'USING APPLICATION ACRONYM' FileMan Field Number: '.01' The acronym of the using application that has specific interest on this HL7 DEGREE VALUE (e.g., OAA, etc.) %Library.String 1 3 USING_APPLICATION_ACRONYM FileMan Field Label: 'USING APPLICATION NAME' FileMan Field Number: '2' %Library.String 4 USING_APPLICATION_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HL7_DEGREE_771_9},"||"):-1:1 { set DA($i(c))=$p({HL7_DEGREE_771_9},"||",i) } set DIK="^HL(771.9,"_DA(1)_",51,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{USING_APPLICATION_ACRONYM*C} FDA(771.9051,IENS,.01)={USING_APPLICATION_ACRONYM} set:{USING_APPLICATION_NAME*C} FDA(771.9051,IENS,2)={USING_APPLICATION_NAME} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(771.9051)") set %SkipFiling=1 if $d(%FMERR(771.9051,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(771.9051,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBUSINGAPP8EE3S index ^HL nonnull 771.9 "AC" {USING_APPLICATION_ACRONYM} {HL7_DEGREE_771_9.IEN} 0]]> {IEN} 0]]> index ^HL nonnull 771.9 {HL7_DEGREE_771_9.IEN} 0]]> 51 "B" {USING_APPLICATION_ACRONYM} {IEN} 0]]> data ^HL 771.9 {HL7_DEGREE_771_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 51 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan Sub-File/Multiple Number: '691.21' Sub-File/Multiple Name: 'VASCULAR ACCESS' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VASCULAR_ACCESS_691_21 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.113648358 67178,44734.901869077 right VASCULAR ACCESS 691.21 2.56 12/04/2024 12:25:34 1 1 IEN 1 Relationship to parent (file name CARDIAC CATHETERIZATION) VALIP.prosthetic.fm2cw.CARDIACCATHETERIZATION6911 parent SUBVASCULARACCESS69121 1 1 CARDIAC_CATHETERIZATION_691_1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'VASCULAR ACCESS' FileMan Field Number: '.01' This allows the user to enter multiple cardiac catheterization vascular accesses. %Library.EnumString 1 3 VASCULAR_ACCESS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({CARDIAC_CATHETERIZATION_691_1},"||"):-1:1 { set DA($i(c))=$p({CARDIAC_CATHETERIZATION_691_1},"||",i) } set DIK="^MCAR(691.1,"_DA(1)_",11,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VASCULAR_ACCESS*C} FDA(691.21,IENS,.01)={VASCULAR_ACCESS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(691.21)") set %SkipFiling=1 if $d(%FMERR(691.21,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(691.21,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVASCULARE789S data ^MCAR 691.1 {CARDIAC_CATHETERIZATION_691_1.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 11 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '441.01' Sub-File/Multiple Name: 'VENDOR' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VENDOR_441_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.598858616 67178,44734.947029889 right VENDOR 441.01 2.56 12/04/2024 12:25:34 1 1 IEN 1 FileMan Field Label: 'CONTRACT' FileMan Field Number: '2' This is the contract number with the valid expiration date. %Library.Numeric 5 CONTRACT FileMan Field Label: 'CONTRACT EXP. DATE' FileMan Field Number: '2.2' This is the contract expiration date. %Library.String 1 6 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S Z0=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:""),Z1=+$P(Z0,U,3),X=$S($D(^PRC(440,+Z0,4,Z1,0)):$P(^(0),U,2),1:"") K Z0,Z1 S:X]"" X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) set {CONTRACT_EXP__DATE}=X 1 CONTRACT_EXP__DATE FileMan Field Label: 'DATE OF UNIT PRICE' FileMan Field Number: '2.5' This is the date of the unit price for this item. %Library.FilemanDate 7 DATE_OF_UNIT_PRICE Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name ITEM MASTER) VALIP.prosthetic.fm2cw.ITEMMASTER441 parent SUBVENDOR44101 1 1 ITEM_MASTER_441 FileMan Field Label: 'MAXIMUM ORDER QTY' FileMan Field Number: '8.5' This is the maximum order quantity for this item. %Library.Numeric 11 MAXIMUM_ORDER_QTY FileMan Field Label: 'MINIMUM ORDER QTY' FileMan Field Number: '8' This is the minimum order quantity for this item. %Library.Numeric 10 MINIMUM_ORDER_QTY FileMan Field Label: 'NDC' FileMan Field Number: '4' NATIONAL DRUG CODE This is the National Drug Code for this item, if applicable. %Library.String 9 NDC FileMan Field Label: 'PACKAGING MULTIPLE' FileMan Field Number: '1.6' These are the package multiples for the item. %Library.Numeric 4 PACKAGING_MULTIPLE FileMan Field Label: 'REQUIRED ORDER MULTIPLE' FileMan Field Number: '9' This is the required order multiple for this item. %Library.Numeric 12 REQUIRED_ORDER_MULTIPLE FileMan Field Label: 'UNIT CONVERSION FACTOR' FileMan Field Number: '10' This is the unit of conversion factor, used to convert a unit of purchase into a unit of issue. %Library.Numeric 13 UNIT_CONVERSION_FACTOR FileMan Field Label: 'UNIT COST' FileMan Field Number: '1' This is the unit cost of this item. %Library.Numeric 3 UNIT_COST SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR STOCK #' FileMan Field Number: '3' This is the vendor stock number for this item. %Library.String 8 VENDOR_STOCK_ BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ITEM_MASTER_441},"||"):-1:1 { set DA($i(c))=$p({ITEM_MASTER_441},"||",i) } set DIK="^PRC(441,"_DA(1)_",2,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{UNIT_COST*C} FDA(441.01,IENS,1)={UNIT_COST} set:{PACKAGING_MULTIPLE*C} FDA(441.01,IENS,1.6)={PACKAGING_MULTIPLE} set:{CONTRACT*C} FDA(441.01,IENS,2)={CONTRACT} set:{DATE_OF_UNIT_PRICE*C} FDA(441.01,IENS,2.5)={DATE_OF_UNIT_PRICE} set:{VENDOR_STOCK_*C} FDA(441.01,IENS,3)={VENDOR_STOCK_} set:{NDC*C} FDA(441.01,IENS,4)={NDC} set:{MINIMUM_ORDER_QTY*C} FDA(441.01,IENS,8)={MINIMUM_ORDER_QTY} set:{MAXIMUM_ORDER_QTY*C} FDA(441.01,IENS,8.5)={MAXIMUM_ORDER_QTY} set:{REQUIRED_ORDER_MULTIPLE*C} FDA(441.01,IENS,9)={REQUIRED_ORDER_MULTIPLE} set:{UNIT_CONVERSION_FACTOR*C} FDA(441.01,IENS,10)={UNIT_CONVERSION_FACTOR} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(441.01)") set %SkipFiling=1 if $d(%FMERR(441.01,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(441.01,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.SUBVENDOR44101S index ^PRC nonnull 441 "D" {VENDOR_STOCK_} {ITEM_MASTER_441.IEN} 0]]> {IEN} 0]]> index ^PRC nonnull 441 "F" {NDC} {ITEM_MASTER_441.IEN} 0]]> {IEN} 0]]> data ^PRC 441 {ITEM_MASTER_441.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 2 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 6 "^" 0 9 "^" 0 12 "^" 0 5 "^" 0 8 "^" 0 11 "^" 0 10 "^" 0 2 "^" 0 4 Generated class for FileMan Sub-File/Multiple Number: '771.93' Sub-File/Multiple Name: 'VERSION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VERSION_771_93 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.112979372 67178,44734.996159628 right VERSION 771.93 2.56 12/04/2024 12:25:34 1 1 IEN 1 Relationship to parent (file name HL7 DEGREE) VALIP.prosthetic.fm2cw.HL7DEGREE7719 parent SUBVERSION77193 1 1 HL7_DEGREE_771_9 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HL7_DEGREE_771_9},"||"):-1:1 { set DA($i(c))=$p({HL7_DEGREE_771_9},"||",i) } set DIK="^HL(771.9,"_DA(1)_",""V"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(771.93)") set %SkipFiling=1 if $d(%FMERR(771.93,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(771.93,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVERSION71DF4S data ^HL 771.9 {HL7_DEGREE_771_9.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "V" {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '779.00401' Sub-File/Multiple Name: 'VERSION' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VERSION_779_00401 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.125104859 67178,44735.040800709 right VERSION 779.00401 2.56 12/04/2024 12:25:35 1 1 IEN 1 Relationship to parent (file name COUNTRY CODE) VALIP.prosthetic.fm2cw.COUNTRYCODE779004 parent SUBVERSION77900401 1 1 COUNTRY_CODE_779_004 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 3 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({COUNTRY_CODE_779_004},"||"):-1:1 { set DA($i(c))=$p({COUNTRY_CODE_779_004},"||",i) } set DIK="^HL(779.004,"_DA(1)_",1,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(779.00401)") set %SkipFiling=1 if $d(%FMERR(779.00401,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(779.00401,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVERSION7B501S data ^HL 779.004 {COUNTRY_CODE_779_004.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> Generated class for FileMan Sub-File/Multiple Number: '699.71' Sub-File/Multiple Name: 'VIDEO/AUDIO FILE NAME' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VIDEOAUDIO_FILE_NAME_699_71 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.135264404 67178,44735.086235551 right VIDEO/AUDIO FILE NAME 699.71 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'COMMENTS-1' FileMan Field Number: '5' This allows the user to enter comments. %Library.String 6 COMMENTS1 FileMan Field Label: 'COMMENTS-2' FileMan Field Number: '6' This allows the user to enter comments. %Library.String 7 COMMENTS2 FileMan Field Label: 'COMMENTS-3' FileMan Field Number: '7' This allows the user to enter comments. %Library.String 8 COMMENTS3 FileMan Field Label: 'COMMENTS-4' FileMan Field Number: '8' This allows the user to enter comments. %Library.String 9 COMMENTS4 FileMan Field Label: 'DATE/TIME ADDED' FileMan Field Number: '1' This allows the user to enter the date/time the video/audio file name is added. %Library.FilemanTimeStamp 4 DATETIME_ADDED FileMan Field Label: 'DATE/TIME MODIFIED' FileMan Field Number: '3' This allows the user to enter the date/time the video/audio file name is modified. %Library.FilemanTimeStamp 5 DATETIME_MODIFIED Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBVIDEOAUDIOFILENAME69971 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VIDEO/AUDIO FILE NAME' FileMan Field Number: '.01' This field is not being used at the present time. %Library.String 1 3 VIDEOAUDIO_FILE_NAME BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",28,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VIDEOAUDIO_FILE_NAME*C} FDA(699.71,IENS,.01)={VIDEOAUDIO_FILE_NAME} set:{DATETIME_ADDED*C} FDA(699.71,IENS,1)={DATETIME_ADDED} set:{DATETIME_MODIFIED*C} FDA(699.71,IENS,3)={DATETIME_MODIFIED} set:{COMMENTS1*C} FDA(699.71,IENS,5)={COMMENTS1} set:{COMMENTS2*C} FDA(699.71,IENS,6)={COMMENTS2} set:{COMMENTS3*C} FDA(699.71,IENS,7)={COMMENTS3} set:{COMMENTS4*C} FDA(699.71,IENS,8)={COMMENTS4} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.71)") set %SkipFiling=1 if $d(%FMERR(699.71,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.71,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVIDEOAUD6663S index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 28 "B" {VIDEOAUDIO_FILE_NAME} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 28 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 6 "^" 0 7 "^" 0 8 "^" 0 9 "^" 0 2 "^" 0 4 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.02' Sub-File/Multiple Name: 'VIDEO FRAME NUMBER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VIDEO_FRAME_NUMBER_699_02 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.218762734 67178,44735.135370693 right VIDEO FRAME NUMBER 699.02 2.56 12/04/2024 12:25:35 1 1 IEN 1 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS Relationship to parent (file name LOCATION EVALUATED) VALIP.prosthetic.fm2cw.SUBLOCATIONEVALUATED69901 parent SUBVIDEOFRAMENUMBER69902 1 1 SUB_LOCATION_EVALUATED_699_01 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VIDEO FRAME NUMBER' FileMan Field Number: '.01' This field identifies is not being used at the present time. %Library.Numeric 1 3 VIDEO_FRAME_NUMBER BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({SUB_LOCATION_EVALUATED_699_01},"||"):-1:1 { set DA($i(c))=$p({SUB_LOCATION_EVALUATED_699_01},"||",i) } set DIK="^MCAR(699,"_DA(2)_",30,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VIDEO_FRAME_NUMBER*C} FDA(699.02,IENS,.01)={VIDEO_FRAME_NUMBER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.02)") set %SkipFiling=1 if $d(%FMERR(699.02,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.02,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVIDEOFRAC130S index ^MCAR nonnull 699 {ENDOSCOPYCONSULT_699.IEN} 0]]> 30 {SUB_LOCATION_EVALUATED_699_01.IEN} 0]]> 3 "B" {VIDEO_FRAME_NUMBER} {IEN} 0]]> data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 30 {SUB_LOCATION_EVALUATED_699_01.IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> 3 {IEN} set:{L6}="" {L6}=0 set {L6}=$o(^({L6})) set:'{L6} {L6}="" ;PREV set:{L6}="" {L6}=$c(0) set {L6}=$o(^({L6}),-1) set:'{L6} {L6}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '699.64' Sub-File/Multiple Name: 'VIDEO FRAME NUMBER' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VIDEO_FRAME_NUMBER_699_64 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.136321899 67178,44735.182834731 right VIDEO FRAME NUMBER 699.64 2.56 12/04/2024 12:25:35 1 1 IEN 1 Relationship to parent (file name ENDOSCOPY/CONSULT) VALIP.prosthetic.fm2cw.ENDOSCOPYCONSULT699 parent SUBVIDEOFRAMENUMBER69964 1 1 ENDOSCOPYCONSULT_699 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VIDEO FRAME NUMBER' FileMan Field Number: '.01' This field is not being used at the present time. %Library.Numeric 1 3 VIDEO_FRAME_NUMBER BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({ENDOSCOPYCONSULT_699},"||"):-1:1 { set DA($i(c))=$p({ENDOSCOPYCONSULT_699},"||",i) } set DIK="^MCAR(699,"_DA(1)_",24,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VIDEO_FRAME_NUMBER*C} FDA(699.64,IENS,.01)={VIDEO_FRAME_NUMBER} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.64)") set %SkipFiling=1 if $d(%FMERR(699.64,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(699.64,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVIDEOFRA63B3S data ^MCAR 699 {ENDOSCOPYCONSULT_699.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 24 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '200.06' Sub-File/Multiple Name: 'VISITED FROM' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VISITED_FROM_200_06 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.14152033 67178,44735.230810635 right VISITED FROM 200.06 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'DUZ AT HOME SITE' FileMan Field Number: '2' This field contains the internal entry number in the New Person File at the site where this visitor was authenticated. %Library.Numeric 5 DUZ_AT_HOME_SITE FileMan Field Label: 'FIRST VISIT' FileMan Field Number: '3' This field contains the date when this visitor first visited from the site recorded in the .01 field. %Library.FilemanTimeStamp 6 FIRST_VISIT Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LAST VISITED' FileMan Field Number: '4' This field is updated each time a visitor arrives from the site in the .01 field. %Library.FilemanTimeStamp 7 LAST_VISITED Relationship to parent (file name NEW PERSON) VALIP.prosthetic.fm2cw.NEWPERSON200 parent SUBVISITEDFROM20006 1 1 NEW_PERSON_200 FileMan Field Label: 'PHONE AT SITE' FileMan Field Number: '5' This field may contain a phone number for the visitor at their home site. Since phone numbers are not always entered, this field may be blank. %Library.String 8 PHONE_AT_SITE FileMan Field Label: 'SITE NAME' FileMan Field Number: '1' This field contains the name of the site where the visitor was authenticated. %Library.String 4 SITE_NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VISITED FROM' FileMan Field Number: '.01' This field holds the official Station Number ID of the remote site that did the user authentication. This may be the site that caused this user to be added to the NPF. %Library.String 1 3 VISITED_FROM BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({NEW_PERSON_200},"||"):-1:1 { set DA($i(c))=$p({NEW_PERSON_200},"||",i) } set DIK="^VA(200,"_DA(1)_",8910,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VISITED_FROM*C} FDA(200.06,IENS,.01)={VISITED_FROM} set:{SITE_NAME*C} FDA(200.06,IENS,1)={SITE_NAME} set:{DUZ_AT_HOME_SITE*C} FDA(200.06,IENS,2)={DUZ_AT_HOME_SITE} set:{FIRST_VISIT*C} FDA(200.06,IENS,3)={FIRST_VISIT} set:{LAST_VISITED*C} FDA(200.06,IENS,4)={LAST_VISITED} set:{PHONE_AT_SITE*C} FDA(200.06,IENS,5)={PHONE_AT_SITE} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(200.06)") set %SkipFiling=1 if $d(%FMERR(200.06,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(200.06,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVISITEDF9339S index ^VA nonnull 200 {NEW_PERSON_200.IEN} 0]]> 8910 "B" {VISITED_FROM} {IEN} 0]]> data ^VA 200 {NEW_PERSON_200.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 8910 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 3 "^" 0 4 "^" 0 5 "^" 0 6 "^" 0 2 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '700.017' Sub-File/Multiple Name: 'VOLUME STUDY' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_VOLUME_STUDY_700_017 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.151376359 67178,44735.278901896 right VOLUME STUDY 700.017 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'FRC' FileMan Field Number: '3' This field identifies the measured Functional Residual Capacity. %Library.Numeric 6 FRC Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'NOTES' FileMan Field Number: '6' This field identifies a free text field for entering a note on the current Volume Study. %Library.String 8 NOTES Relationship to parent (file name PULMONARY FUNCTION TESTS) VALIP.prosthetic.fm2cw.PULMONARYFUNCTIONTESTS700 parent SUBVOLUMESTUDY700017 1 1 PULMONARY_FUNCTION_TESTS_700 FileMan Field Label: 'RV' FileMan Field Number: '4' This field identifies the measured Residual Volume. %Library.Numeric 7 RV FileMan Field Label: 'TLC' FileMan Field Number: '1' This field identifies the Total Lung Capacity measured. %Library.Numeric 4 TLC SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 9 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VC' FileMan Field Number: '2' This field identifies the measured Vital Capacity. %Library.Numeric 5 VC FileMan Field Label: 'VOLUME STUDY TYPE' FileMan Field Number: '.01' This field identifies the type of Volume Study done. %Library.EnumString 1 3 VOLUME_STUDY_TYPE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({PULMONARY_FUNCTION_TESTS_700},"||"):-1:1 { set DA($i(c))=$p({PULMONARY_FUNCTION_TESTS_700},"||",i) } set DIK="^MCAR(700,"_DA(1)_",3,",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{VOLUME_STUDY_TYPE*C} FDA(700.017,IENS,.01)={VOLUME_STUDY_TYPE} set:{TLC*C} FDA(700.017,IENS,1)={TLC} set:{VC*C} FDA(700.017,IENS,2)={VC} set:{FRC*C} FDA(700.017,IENS,3)={FRC} set:{RV*C} FDA(700.017,IENS,4)={RV} set:{NOTES*C} FDA(700.017,IENS,6)={NOTES} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(700.017)") set %SkipFiling=1 if $d(%FMERR(700.017,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(700.017,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBVOLUMESTE72FS index ^MCAR nonnull 700 {PULMONARY_FUNCTION_TESTS_700.IEN} 0]]> 3 "B" {VOLUME_STUDY_TYPE} {IEN} 0]]> data ^MCAR 700 {PULMONARY_FUNCTION_TESTS_700.IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 3 {IEN} set:{L4}="" {L4}=0 set {L4}=$o(^({L4})) set:'{L4} {L4}="" ;PREV set:{L4}="" {L4}=$c(0) set {L4}=$o(^({L4}),-1) set:'{L4} {L4}="" 0]]> "^" 0 4 "^" 0 6 "^" 0 5 "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan Sub-File/Multiple Number: '44.09' Sub-File/Multiple Name: 'WEDNESDAY TEMPLATE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId SUB_WEDNESDAY_TEMPLATE_44_09 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44746.161372748 67178,44735.327107728 right WEDNESDAY TEMPLATE 44.09 2.56 12/04/2024 12:25:35 1 1 IEN 1 Relationship to parent (file name HOSPITAL LOCATION) VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 parent SUBWEDNESDAYTEMPLATE4409 1 1 HOSPITAL_LOCATION_44 Child Counter Field %Library.String -999 1 2 IEN IENS Field %Library.String 1 1 Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_"," 1 IENS FileMan Field Label: 'LIMIT DATE' FileMan Field Number: '.01' The pattern stored at this date is applicable for Wednesdays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Wednesday when appointments may be made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Wednesdays from the previous entry date. %Library.Numeric 1 3 LIMIT_DATE FileMan Field Label: 'MASTER PATTERN' FileMan Field Number: '1' Master pattern set up for clinic for wednesdays. %Library.String 4 MASTER_PATTERN SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,c,DA,DIC,DIK,i,IO,U,X,Y do DTNOLF^DICRW set c=0 for i=$l({HOSPITAL_LOCATION_44},"||"):-1:1 { set DA($i(c))=$p({HOSPITAL_LOCATION_44},"||",i) } set DIK="^SC("_DA(1)_",""T3"",",DA={IEN},%SkipFiling=1 do ^DIK RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,n,i,IENS,IO,U,wp,wproot set IENS={IENS} set:{LIMIT_DATE*C} FDA(44.09,IENS,.01)={LIMIT_DATE} set:{MASTER_PATTERN*C} FDA(44.09,IENS,1)={MASTER_PATTERN} do:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(44.09)") set %SkipFiling=1 if $d(%FMERR(44.09,"DIERR")) { set %ok=0,%msg="Call to FileMan Filer (UPDATE^DIE) failed. See %FMERR(44.09,""DIERR"") for details" RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUBWEDNESDAA213S data ^SC {HOSPITAL_LOCATION_44.IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "T3" {IEN} set:{L3}="" {L3}=0 set {L3}=$o(^({L3})) set:'{L3} {L3}="" ;PREV set:{L3}="" {L3}=$c(0) set {L3}=$o(^({L3}),-1) set:'{L3} {L3}="" 0]]> "^" 0 1 "^" 1 1 Generated class for FileMan File Number: '47.75' File Name: 'SUPPORTING DOCUMENTATION TYPES' Class generated by %fm2class version 2.56 This file contains all of the allowable Supporting Documentation Types that identify the available documents detailing how a patient's death was recorded. persistent _PUBLIC 0 RowId SUPPORTING_DOCUMENTATION_TYPES_47_75 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.604328163 67178,44735.373941782 right SUPPORTING DOCUMENTATION TYPES 47.75 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '50' %Library.String 5 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(47.75,0),""^"",3)") 1 2 IEN FileMan Field Label: 'SUPPORTING DOCUMENTATION TYPE' FileMan Field Number: '.01' The SUPPORTING DOCUMENTATION TYPE field identifies the document associated with a specific patient death event. Specifically how the patient's death was recorded. %Library.String 1 3 SUPPORTING_DOCUMENTATION_TYPE FileMan Field Label: 'TYPE CODE' FileMan Field Number: '1' This code uniquely identifies the SUPPORTING DOCUMENTATION TYPE record. %Library.String 4 TYPE_CODE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(47.75," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{SUPPORTING_DOCUMENTATION_TYPE}'="" FDA(47.75,"+1,",.01)={"SUPPORTING_DOCUMENTATION_TYPE"} set:{TYPE_CODE}'="" FDA(47.75,"+1,",1)={"TYPE_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(47.75)") set %SkipFiling=1 if $d(%FMERR(47.75,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(47.75)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(47.75,{RowId},50,,"wp","%FMERR(47.75)") if $d(%FMERR(47.75,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(47.75)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{SUPPORTING_DOCUMENTATION_TYPE*C} FDA(47.75,IENS,.01)={SUPPORTING_DOCUMENTATION_TYPE} set:{TYPE_CODE*C} FDA(47.75,IENS,1)={TYPE_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(47.75)") set %SkipFiling=1 if $d(%FMERR(47.75,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(47.75)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(47.75,{RowId},50,,wproot,"%FMERR(47.75)") if $d(%FMERR(47.75,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(47.75)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SUPPORTINGD9A84S index ^DG nonnull 47.75 "B" {SUPPORTING_DOCUMENTATION_TYPE} {IEN} 0]]> index ^DG nonnull 47.75 "C" {TYPE_CODE} {IEN} 0]]> data ^DG 47.75 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> 1 new data,i,node set {DESCRIPTION}="" merge data=^DG(47.75,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '130' File Name: 'SURGERY' Class generated by %fm2class version 2.56 Each entry in the SURGERY file contains information regarding a surgery case made up of an operative procedure, or multiple operative procedures for a patient. The file includes the information necessary for creating the Nurses' Intraoperative Report, Operation Report, and Anesthesia Report persistent _PUBLIC 0 RowId SURGERY_130 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.045748812 67178,44735.420383905 right SURGERY 130 2.56 12/04/2024 12:25:35 1 1 IEN 1 NEW_PERSON_200]]> ANESTHESIOLOGISTSUPVR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ANESTHESIOLOGIST_SUPVR ANESTHESIA_SUPERVISOR_CODES_132_95]]> ANESSUPERVISECODE VALIP.prosthetic.fm2cw.ANESTHESIASUPERVISORCODES13295 FKey_ANES_SUPERVISE_CODE ASA_CLASS_132_8]]> ASACLASS VALIP.prosthetic.fm2cw.ASACLASS1328 FKey_ASA_CLASS NEW_PERSON_200]]> ASSESSMENTCOMPLETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ASSESSMENT_COMPLETED_BY HOSPITAL_LOCATION_44]]> ASSOCIATEDCLINIC VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_ASSOCIATED_CLINIC NEW_PERSON_200]]> ASSTANESTHETIST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ASST_ANESTHETIST NEW_PERSON_200]]> ASSTPERFUSIONIST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ASST_PERFUSIONIST ATTENDING_CODES_132_9]]> ATTENDINGRESSUPCODE VALIP.prosthetic.fm2cw.ATTENDINGCODES1329 FKey_ATTENDINGRES_SUP_CODE NEW_PERSON_200]]> ATTENDINGSURGEON VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_SURGEON NEW_PERSON_200]]> ATTENDPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTEND_PROVIDER NEW_PERSON_200]]> CANCELLEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CANCELLED_BY NEW_PERSON_200]]> CODINGVERIFIER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CODING_VERIFIER SURGERY_130]]> CONCURRENTCASE VALIP.prosthetic.fm2cw.SURGERY130 FKey_CONCURRENT_CASE NEW_PERSON_200]]> COUNTVERIFIER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_COUNT_VERIFIER NEW_PERSON_200]]> DIAGNOSTICRESULTSCONFIRMBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DIAGNOSTIC_RESULTS_CONFIRM_BY SURGERY_TRANSPORTATION_DEVICES_131_01]]> DISCHARGEDVIA VALIP.prosthetic.fm2cw.SURGERYTRANSPORTATIONDEVICES13101 FKey_DISCHARGED_VIA INSTITUTION_4]]> DIVISION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_DIVISION ELECTROGROUND_POSITIONS_138]]> ELECTROGROUNDPOSITION VALIP.prosthetic.fm2cw.ELECTROGROUNDPOSITIONS138 FKey_ELECTROGROUND_POSITION ELECTROGROUND_POSITIONS_138]]> ELECTROGROUNDPOSITION2 VALIP.prosthetic.fm2cw.ELECTROGROUNDPOSITIONS138 FKey_ELECTROGROUND_POSITION_2 NEW_PERSON_200]]> FIRSTASST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FIRST_ASST NEW_PERSON_200]]> FOLEYCATHETERINSERTEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FOLEY_CATHETER_INSERTED_BY NEW_PERSON_200]]> HAIRREMOVALBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_HAIR_REMOVAL_BY NEW_PERSON_200]]> INSTCNTVERFBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INST_CNT_VERF_BY NEW_PERSON_200]]> IVSTARTEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_IV_STARTED_BY MEDICAL_SPECIALTY_723]]> MEDICALSPECIALTY VALIP.prosthetic.fm2cw.MEDICALSPECIALTY723 FKey_MEDICAL_SPECIALTY HOSPITAL_LOCATION_44]]> NONORLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_NONOR_LOCATION SPECIALTY_42_4]]> OBSERVATIONTREATINGSPECIALTY VALIP.prosthetic.fm2cw.SPECIALTY424 FKey_OBSERVATION_TREATING_SPECIALTY SURGERY_DISPOSITION_131_6]]> OPDISPOSITION VALIP.prosthetic.fm2cw.SURGERYDISPOSITION1316 FKey_OP_DISPOSITION TIU_DOCUMENT_8925]]> OPNOTEPOINTER VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_OP_NOTE_POINTER OPERATING_ROOM_131_7]]> OPROOMPROCEDUREPERFORMED VALIP.prosthetic.fm2cw.OPERATINGROOM1317 FKey_OP_ROOM_PROCEDURE_PERFORMED ORDER_100]]> ORDERNUMBER VALIP.prosthetic.fm2cw.ORDER100 FKey_ORDER_NUMBER ICD_DIAGNOSIS_80]]> OTHERCARDIACOCCURRENCE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_OTHER_CARDIAC_OCCURRENCE ICD_DIAGNOSIS_80]]> OTHERCNSOCCURRENCE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_OTHER_CNS_OCCURRENCE ICD_DIAGNOSIS_80]]> OTHEROCCURRENCESICD VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_OTHER_OCCURRENCES_ICD ICD_DIAGNOSIS_80]]> OTHERRESPIRATORYOCCURRENCE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_OTHER_RESPIRATORY_OCCURRENCE ICD_DIAGNOSIS_80]]> OTHERURINARYTRACTOCCURRENCE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_OTHER_URINARY_TRACT_OCCURRENCE ICD_DIAGNOSIS_80]]> OTHERWOUNDOCCURRENCE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_OTHER_WOUND_OCCURRENCE SURGERY_DISPOSITION_131_6]]> PACUDISPOSITION VALIP.prosthetic.fm2cw.SURGERYDISPOSITION1316 FKey_PACU_DISPOSITION PATIENT_2]]> PATIENT VALIP.prosthetic.fm2cw.PATIENT2 FKey_PATIENT NEW_PERSON_200]]> PERFUSIONIST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PERFUSIONIST PFSS_ACCOUNT_375]]> PFSSACCOUNTREFERENCE VALIP.prosthetic.fm2cw.PFSSACCOUNT375 FKey_PFSS_ACCOUNT_REFERENCE SURGERY_DISPOSITION_131_6]]> PLANNEDPOSTOPCARE VALIP.prosthetic.fm2cw.SURGERYDISPOSITION1316 FKey_PLANNED_POSTOP_CARE ICD_DIAGNOSIS_80]]> PLANNEDPRINDIAGNOSISCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_PLANNED_PRIN_DIAGNOSIS_CODE CPT_81]]> PLANNEDPRINPROCEDURECODE VALIP.prosthetic.fm2cw.CPT81 FKey_PLANNED_PRIN_PROCEDURE_CODE_ PATIENT_CONSCIOUSNESS_135_4]]> POSTOPCONSCIOUS VALIP.prosthetic.fm2cw.PATIENTCONSCIOUSNESS1354 FKey_POSTOP_CONSCIOUS PATIENT_MOOD__135_3]]> POSTOPMOOD VALIP.prosthetic.fm2cw.PATIENTMOOD1353 FKey_POSTOP_MOOD SKIN_INTEGRITY_135_2]]> POSTOPSKININTEG VALIP.prosthetic.fm2cw.SKININTEGRITY1352 FKey_POSTOP_SKIN_INTEG PATIENT_CONSCIOUSNESS_135_4]]> PREOPCONSCIOUS VALIP.prosthetic.fm2cw.PATIENTCONSCIOUSNESS1354 FKey_PREOP_CONSCIOUS PATIENT_MOOD__135_3]]> PREOPMOOD VALIP.prosthetic.fm2cw.PATIENTMOOD1353 FKey_PREOP_MOOD SKIN_INTEGRITY_135_2]]> PREOPSKININTEG VALIP.prosthetic.fm2cw.SKININTEGRITY1352 FKey_PREOP_SKIN_INTEG SURGERY_130]]> PREVIOUSLYSCHEDULEDCASE VALIP.prosthetic.fm2cw.SURGERY130 FKey_PREVIOUSLY_SCHEDULED_CASE SURGERY_CANCELLATION_REASON_135]]> PRIMARYCANCELREASON VALIP.prosthetic.fm2cw.SURGERYCANCELLATIONREASON135 FKey_PRIMARY_CANCEL_REASON NEW_PERSON_200]]> PRIMARYSURGEON VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_SURGEON NEW_PERSON_200]]> PRINCANESTHETIST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRINC_ANESTHETIST ICD_DIAGNOSIS_80]]> PRINPREOPICDDIAGNOSISCODE VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 FKey_PRIN_PREOP_ICD_DIAGNOSIS_CODE NEW_PERSON_200]]> PROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PROVIDER NEW_PERSON_200]]> RELIEFANESTHETIST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_RELIEF_ANESTHETIST NEW_PERSON_200]]> REPORTGIVENTO VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_REPORT_GIVEN_TO SURGERY_130]]> RESCHEDULEDCASE VALIP.prosthetic.fm2cw.SURGERY130 FKey_RESCHEDULED_CASE NEW_PERSON_200]]> SECONDASST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SECOND_ASST SKIN_PREP_AGENTS_135_1]]> SECONDSKINPREPAGENT VALIP.prosthetic.fm2cw.SKINPREPAGENTS1351 FKey_SECOND_SKIN_PREP_AGENT NEW_PERSON_200]]> SKINPREPPEDBY1 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SKIN_PREPPED_BY_1 NEW_PERSON_200]]> SKINPREPPEDBY2 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SKIN_PREPPED_BY_2 NEW_PERSON_200]]> SKINPREPPEDBY3 VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SKIN_PREPPED_BY_3 SKIN_PREP_AGENTS_135_1]]> SKINPREPAGENTS VALIP.prosthetic.fm2cw.SKINPREPAGENTS1351 FKey_SKIN_PREP_AGENTS NEW_PERSON_200]]> SPONGESHARPSINSTCOUNTER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SPONGE_SHARPS__INST_COUNTER NEW_PERSON_200]]> SURGEONVERIFYINGUNET VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SURGEON_VERIFYING_UNET NEW_PERSON_200]]> SURGEONVERDONORORGPREANES VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SURGEON_VER_DONOR_ORG_PREANES NEW_PERSON_200]]> SURGEONVERORGANPREANES VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SURGEON_VER_ORGAN_PREANES NEW_PERSON_200]]> SURGEONVERORGPRETRANSPLANT VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SURGEON_VER_ORG_PRETRANSPLANT SURGERY_POSITION_132]]> SURGERYPOSITION VALIP.prosthetic.fm2cw.SURGERYPOSITION132 FKey_SURGERY_POSITION LOCAL_SURGICAL_SPECIALTY_137_45]]> SURGERYSPECIALTY VALIP.prosthetic.fm2cw.LOCALSURGICALSPECIALTY13745 FKey_SURGERY_SPECIALTY NEW_PERSON_200]]> SURGSCHEDPERSON VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SURG_SCHED_PERSON NEW_PERSON_200]]> TIMEOUTDOCUMENTCOMPLETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_TIMEOUT_DOCUMENT_COMPLETED_BY TIU_DOCUMENT_8925]]> TIUANESTHESIAREPORT VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_TIU_ANESTHESIA_REPORT TIU_DOCUMENT_8925]]> TIUNURSEINTRAOPREPORT VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_TIU_NURSE_INTRAOP_REPORT TIU_DOCUMENT_8925]]> TIUOPERATIVESUMMARY VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_TIU_OPERATIVE_SUMMARY TIU_DOCUMENT_8925]]> TIUPROCEDUREREPORTNONOR VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_TIU_PROCEDURE_REPORT_NONOR SURGERY_TRANSPORTATION_DEVICES_131_01]]> TRANSTOORBY VALIP.prosthetic.fm2cw.SURGERYTRANSPORTATIONDEVICES13101 FKey_TRANS_TO_OR_BY NEW_PERSON_200]]> VERIFIER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFIER VISIT_9000010]]> VISIT VALIP.prosthetic.fm2cw.VISIT9000010 FKey_VISIT f3M_APC_CLAIM_TYPE_19908_61]]> f3MAPCCLAIMTYPE VALIP.prosthetic.fm2cw.f3MAPCCLAIMTYPE1990861 FKey_f3M_APC_CLAIM_TYPE FileMan Field Label: 'ABSENT PERIPHERAL PULSES' FileMan Field Number: '331' Absent Peripheral Pulses (Y/N) This determines whether the patient has been diagnosed on the physical examination to have absent femoral, popliteal, or pedal pulses. If he or she has had a previous amputation, record pulses as present or absent in the remaining limb. %Library.EnumString 385 ABSENT_PERIPHERAL_PULSES FileMan Field Label: 'ACTIVE ENDOCARDITIS' FileMan Field Number: '349' Active Endocarditis (Y/N) Definition Revised (2004): Indicate if the patient is being treated with antibiotics for active infection on or near a cardiac valve at the time of surgery or within 2 weeks prior to surgery. Endocarditis is defined as two or more blood cultures positive for the same organism, usually with evidence of a valvular vegetation or valve dysfunction by cardiac ultrasound. In the absence of positive blood cultures, there should be clear evidence of valve infection and/or destruction by ultrasound or direct observation at surgery with subsequent histologic confirmation. %Library.EnumString 407 ACTIVE_ENDOCARDITIS FileMan Field Label: 'ACTIVE HEPATITIS' FileMan Field Number: '327' Active Hepatitis (Y/N) This determines whether the patient has active hepatitis. Active Hepatitis is defined as an active inflammation of the liver evidenced by elevated liver enzymes. The most common causes are viral hepatitis documented by positive serologies (A,B, or C) and recent excessive alcohol intake, or drug induced hepatitis. %Library.EnumString 381 ACTIVE_HEPATITIS FileMan Field Label: 'ACUTE RENAL FAILURE' FileMan Field Number: '254' Acute Renal Failure Requiring Dialysis (Y/N) VASQIP Definition (2011): Indicate if the patient developed new renal failure requiring renal replacement therapy or experienced an exacerbation of preoperative renal failure requiring initiation of renal replacement therapy (not on renal replacement therapy preoperatively) within 30 days postoperatively. Renal replacement therapy is defined as venous to venous hemodialysis [CVVHD], continuous venous to arterial hemodialysis [CVAHD], peritoneal dialysis, hemofiltration, hemodiafiltration or ultrafiltration. TIP: If the patient refuses dialysis, report as an occurrence because he/she did require dialysis. %Library.EnumString 307 ACUTE_RENAL_FAILURE FileMan Field Label: 'ADDRESS PLATE' FileMan Field Number: '.9812' Address Plate (Y/N) This indicates if the patient's address plate is present on the patient's medical record prior to transport to the operating room. %Library.EnumString 111 ADDRESS_PLATE FileMan Field Label: 'ADMISSION/TRANSFER DATE' FileMan Field Number: '420' Admitted/Transferred to Surgical Service Date/Time Definition Revised (2004): If the patient was not initially admitted to the surgical service, the date and time of transfer to surgical service for this surgical episode will be entered from the PIMS package. Enter 'NA' if this date is not applicable, e.g. outpatient not admitted or observed. %Library.String 484 ADMISSIONTRANSFER_DATE FileMan Field Label: 'ADMIT PAC(U) TIME' FileMan Field Number: '1.17' PAC(U) Admission Time This is the date/time that the patient was admitted to the post anesthesia care unit (recovery room). Times entered without a date will be converted to the date of operation at that time. %Library.FilemanDate 146 ADMIT_PACU_TIME FileMan Field Label: 'AGENT ORANGE EXPOSURE' FileMan Field Number: '.017' Treatment related to Agent Orange Exposure (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Agent Orange Exposure. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 9 AGENT_ORANGE_EXPOSURE FileMan Field Label: 'AIRWAY INDEX' FileMan Field Number: '901' Airway Index This field describes the degree of difficulty of airway management on a scale of 1 to 5, 1 being least difficult and 5 being most difficult. The value of this field is based on a computed performance index using the oral-pharyngeal (OP) class and the mandibular space (MS). Performance index = 2.5 x OP - MS length (converted to centimeters) Airway Index ------------ 1 - Performance Index less than 0 2 - Performance index greater than 0 and less than 2 3 - Performance index greater than 2 and less than 3 4 - Performance index greater than 3 and less than 4 5 - Performance index greater than 4 %Library.EnumString 710 AIRWAY_INDEX FileMan Field Label: 'AMBULATION DEVICE PREOP' FileMan Field Number: '671' Ambulation Device Describe the degree of mechanical assistance, if any, needed for ambulation in the 30 days prior to surgery. 1. Ambulates without assistive device 2. Ambulates with cane or walker 3. Uses manual wheelchair independently 4. Does not ambulate or use manual wheelchair independently. Note: If the patient ambulates with assistance from another individual, select either 1 or 2 as appropriate. If they use a motorized wheelchair only, select 4. %Library.EnumString 636 AMBULATION_DEVICE_PREOP FileMan Field Label: 'ANASTOMOTIC LEAK' FileMan Field Number: '692' Anastomotic Leak (Y/N) This field documents if an anastomosis in the GI, urinary, or respiratory tract does not heal as evidenced by infection adjacent to or in the same body cavity OR by development of a fistula within 30 days of the surgical procedure. %Library.EnumString 650 ANASTOMOTIC_LEAK FileMan Field Label: 'ANESTHESIOLOGIST SUPVR' FileMan Field Number: '.34' Anesthesiologist Supervisor This is the name of anesthesia supervisor. He or she may be the same person entered in the 'PRINC ANESTHETIST' or 'ASST ANESTHETIST' fields. This information is required if the principal anesthetist is in a training status, or CRNA. VALIP.prosthetic.fm2cw.NEWPERSON200 63 ANESTHESIOLOGIST_SUPVR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ANESTHESIOLOGIST_SUPVR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ANESTHESIOLOGIST_SUPVR_NAME 1 FileMan Field Label: 'ANESTHETIST CATEGORY' FileMan Field Number: '103' Anesthetist Category This field holds the category of the principal anesthetist which is used on the Anesthesia AMIS report to enumerate the number of anesthetics administered by each category. %Library.EnumString 236 ANESTHETIST_CATEGORY FileMan Field Label: 'ANESTH INDUCT TIME' FileMan Field Number: '1.22' Anesthesia Induction Time This is the total number of minutes between the anesthesia care start and induction complete times. %Library.String 1 151 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,1.22,9.2) S X1=Y(130,1.22,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {ANESTH_INDUCT_TIME}=X 1 ANESTH_INDUCT_TIME FileMan Field Label: 'ANES AVAIL TIME' FileMan Field Number: '.204' Anesthesia Available Time This is the date and time that the anesthetist is available to service the patient. Although optional, this information is useful for evaluating operation delays. %Library.FilemanTimeStamp 43 ANES_AVAIL_TIME FileMan Field Label: 'ANES CARE BILLABLE TIME' FileMan Field Number: '.218' Anesthesia Care Billable Time This is the total anesthesia care billable time in minutes. It is calculated from all time intervals entered in the multiple anesthesia start and end time fields.. %Library.Numeric 1 49 S X=$$BILLTIME^SROANEST set {ANES_CARE_BILLABLE_TIME}=X 1 ANES_CARE_BILLABLE_TIME FileMan Field Label: 'ANES CARE BILLABLE TIME FLAG' FileMan Field Number: '.214' Anesthesia Care Billable Time Flag This field is a flag that indicates all anesthesia care time has been entered for a case. It is used in calculating the total anesthesia billable time. "Yes" indicates all time has been entered. "No" indicates time entry is not complete. %Library.EnumString 47 ANES_CARE_BILLABLE_TIME_FLAG FileMan Field Label: 'ANES CARE END TIME' FileMan Field Number: '.24' Anesthesia Care End Time This is the date and time that anesthesia care ends. Its definition may vary according to local anesthesia policy. Acceptable time formats include 7:45, 745, T@7:45 and JAN 1@7:45. Times entered without a date will be converted to the date of the operation at that time. Non-Cardiac Definition Revised (2004): Anesthesia Finish (AF): Time at which anesthesiologist turns over care of the patient to a post anesthesia care team (either PACU or ICU). %Library.FilemanDate 55 ANES_CARE_END_TIME FileMan Field Label: 'ANES CARE START TIME' FileMan Field Number: '.21' Anesthesia Care Start Time This is the date and time that the anesthesia care began. It is required as part of the anesthesia report. The definition of what constitutes the time anesthesia care begins may vary depending on local anesthesia policy. Non-Cardiac Definition Revised(2004): Anesthesia Start (AS): Time when a member of the anesthesia team begins preparing the patient for an anesthetic. %Library.FilemanTimeStamp 46 ANES_CARE_START_TIME FileMan Field Label: 'ANES CARE TIME' FileMan Field Number: '1.23' Anesthesia Care Time This is the number of minutes between the anesthesia care start time and anesthesia care end time. %Library.String 1 152 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,1.23,9.2) S X1=Y(130,1.23,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {ANES_CARE_TIME}=X 1 ANES_CARE_TIME FileMan Field Label: 'ANES MEDICALLY DIRECTED' FileMan Field Number: '.3514' Anesthesiologist Medically Directed If the principal anesthetist was other than an anesthesiologist, answer yes if an anesthesiologist supervised the care. Answering no indicates that the anesthetist was unsupervised. %Library.EnumString 67 ANES_MEDICALLY_DIRECTED FileMan Field Label: 'ANES PERSONALLY PERFORMED' FileMan Field Number: '.3511' Anesthesiologist Personally Performed Answer yes only if the anesthesiologist personally performed the entire anesthesia procedure. %Library.EnumString 65 ANES_PERSONALLY_PERFORMED FileMan Field Label: 'ANES PHYSICIAN AVAILABLE' FileMan Field Number: '.3515' Teaching Physician Present If the anesthetist was a resident, answer yes if the teaching physician was present during all key portions of the procedure and immediately available during the entire procedure. %Library.EnumString 68 ANES_PHYSICIAN_AVAILABLE FileMan Field Label: 'ANES START TO OP START' FileMan Field Number: '13' Time Between Anesthesia Start and Operation Start Times This is the number of minutes between the time that anesthesia care started and time that the operation began. %Library.String 1 165 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,13,9.2) S X1=Y(130,13,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {ANES_START_TO_OP_START}=X 1 ANES_START_TO_OP_START FileMan Field Label: 'ANES SUPERVISE CODE' FileMan Field Number: '.345' Anesthesiologist's Supervisor Code This is the code corresponding to the highest level of supervision of the anesthesiology staff supervisor. This information appears on the Anesthesia Report. VALIP.prosthetic.fm2cw.ANESTHESIASUPERVISORCODES13295 64 ANES_SUPERVISE_CODE NAME Name of Anesthesia Supervisor Code This is the name of the Anesthesia Supervisor Code. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ANES_SUPERVISE_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ANES_SUPERVISE_CODE_NAME 1 FileMan Field Label: '*ANGINA ONE MONTH PRIOR' FileMan Field Number: '395' *Angina within 30 Days Preceding Surgery (Y/N) Definition Revised (2004): Pain or discomfort between the diaphragm and the mandible resulting from myocardial ischemia. Typically angina is a dull, diffuse (fist-sized or larger) substernal chest discomfort precipitated by exertion or emotion and relieved by rest or nitroglycerine. Radiation to the arms and shoulders often occurs, and occasionally to the neck, jaw (mandible, not maxilla), or interscapular region. Documentation in the chart by the physician should state 'angina' or 'anginal equivalent'. For patients on anti-anginal medications, enter 'yes' only if the patient has had angina at any time within 30 days prior to surgery. %Library.EnumString 458 ANGINA_ONE_MONTH_PRIOR FileMan Field Label: 'ANGINA SEVERITY' FileMan Field Number: '267' Angina Severity VASQIP Definition (2014): Indicate whether the patient has angina, defined as pain or discomfort between the diaphragm and mandible resulting from myocardial ischemia, usually precipitated by exertion or emotion and relieved by rest or nitroglycerin. The Canadian Cardiovascular Society (CCS) classification is used to record severity of angina. Indicate the one appropriate response, according to the most severe angina in the 30 days prior to surgery: None - No angina Class I - Ordinary physical activity, such as walking or climbing stairs does not cause angina. Angina may occur with strenuous or rapid or prolonged exertion at work or recreation. Class II - There is slight limitation of ordinary activity. Angina may occur with walking or climbing stairs rapidly, walking uphill, walking or stair climbing after meals or in the cold, in the wind, or under emotional stress, or walking more than two blocks on the level, or climbing more than one flight of stairs under normal conditions at a normal pace. Class III - There is marked limitation of ordinary physical activity. Angina may occur after walking one or two blocks on the level or climbing one flight of stairs under normal conditions at a normal pace. Class IV - There is inability to carry on any physical activity without discomfort. Angina may be present at rest. Unknown - Unknown %Library.EnumString 321 ANGINA_SEVERITY FileMan Field Label: 'ANGINA TIMEFRAME' FileMan Field Number: '643' Angina Timeframe VASQIP Definition (2014): Indicate time period when the angina was most recently present: 1. No Angina 2. Within 14 days prior to surgery 3. Within 15-30 days prior to surgery 4. Unknown %Library.EnumString 611 ANGINA_TIMEFRAME FileMan Field Label: 'ANTIBIOTIC PROPHYLAXIS' FileMan Field Number: '608' Confirm Appropriate Antibiotic Prophylaxis VASQIP Definition (2014): This field verifies that the appropriate antibiotic prophylaxis has been confirmed. Your answer should be "Yes", "No" or "NI". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 584 ANTIBIOTIC_PROPHYLAXIS FileMan Field Label: 'AORTIC REGURGITATION' FileMan Field Number: '686' Aortic Regurgitation This field documents if the patient has aortic regurgitation documented on invasive or non-invasive cardiac testing. %Library.EnumString 644 AORTIC_REGURGITATION 2.5 cm2, and/or the aortic valve leaflets or aortic flow velocity is stated to be normal (< 1.0 M/sec). Mild - The mean pressure gradient is 5 - 20 mm Hg and/or the orifice area is 1.7 - 2.5 cm2 Moderate - The mean pressure gradient is >20 - 50 mm Hg and/or the valve orifice area is 1.0 -1.6 cm2 Severe - The mean pressure gradient is > 50 mm Hg and/or the valve orifice area is < 1.0 cm2 NS - If no study was performed, entering "NS" for "No Study/Unknown" is also allowed.]]> %Library.EnumString 537 AORTIC_STENOSIS FileMan Field Label: 'AORTIC SYSTOLIC PRESSURE' FileMan Field Number: '358' Aortic Systolic Pressure Definition Revised (2004): Indicate the patient's aortic systolic pressure measured prior to left ventricular angiography at the catheterization most recent prior to surgery. If aortic systolic pressure was not measured, entering "NS" for "No Study/Unknown" is also allowed. %Library.String 416 AORTIC_SYSTOLIC_PRESSURE FileMan Field Label: '*AORTIC VALVE PROCEDURE' FileMan Field Number: '367' *Aortic Valve Procedure VASQIP Definition (2010): Indicate if the patient had an aortic valve replacement (either the native or a prosthetic valve) or a repair (on the native valve to relieve stenosis and/or correct regurgitation -annuloplasty, commissurotomy, etc.); performed with or without additional procedure(s); either with or without placing the patient on cardiopulmonary bypass. (If a repair was attempted, but a replacement occurred, indicate the details of the replacement valve.) Indicate the one most appropriate procedure: * None * Mechanical Valve * Stented Bioprosthetic Valve * Stentless Bioprosthetic Valve * Homograft * Primary Valve Repair * Primary Valve Repair and Annuloplasty Device * Annuloplasty Device alone * Autograft Procedure (Ross Procedure) * Other %Library.EnumString 429 AORTIC_VALVE_PROCEDURE FileMan Field Label: 'APPROPRIATE DVT PROPHYLAXIS' FileMan Field Number: '609' Confirm Appropriate Deep Vein Thrombosis Prophylaxis VASQIP Definition (2014): This field verifies that the appropriate deep vein thrombosis prophylaxis has been confirmed. Your answer should be "Yes", "No" or "NI". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 585 APPROPRIATE_DVT_PROPHYLAXIS FileMan Field Label: 'ASA CLASS' FileMan Field Number: '1.13' ASA Class VASQIP Definition (2010): Record the American Society of Anesthesiology (ASA) Physical Status Classification of the patient's present physical condition on a scale from 1-6 as it appears on the anesthesia record. Most likely there will be a 2nd assessment of the ASA class prior to anesthesia induction. If this is available, report this most recent assessment. The definitions are: ASA 1 - A normal healthy patient ASA 2 - A patient with mild systemic disease ASA 3 - A patient with severe systemic disease ASA 4 - A patient with severe systemic disease that is a constant threat to life ASA 5 - A moribund patient who is not expected to survive without the operation ASA 6 - A declared brain-dead patient whose organs are being removed for donor purposes ASA 6 cases should be excluded. Classification numbers followed by an 'E' indicate an emergency. Select N for NONE ASSIGNED if no ASA Class is assigned for this patient. VALIP.prosthetic.fm2cw.ASACLASS1328 144 ASA_CLASS ASA CLASS ASA Class This is the American Society of Anesthesiologists class. It relates to the patient's physiologic status. Numbers followed by an 'E' indicate an emergency. 1 1-NO DISTURB. 1E 1E-NO DISTURB-EMERG 2 2-MILD DISTURB. 2E 2E-MILD DISTURB.-EMERG 3 3-SEVERE DISTURB. 3E 3E-SEVERE DIST.-EMERG. 4 4-LIFE THREAT 4E 4E-LIFE THREAT-EMERG. 5 5-MORIBUND 5E 5E-MORIBUND-EMERG 6 6-BRAIN-DEAD 6E 6E-BRAIN-DEAD-EMERG.]]> %Library.String 1 ASA_CLASS into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ASA_CLASS_ASA_CLASS}=$select(SQLCODE=0:val,1:"")]]> 1 ASA_CLASS_ASA_CLASS 1 FileMan Field Label: 'ASCITES' FileMan Field Number: '212' Ascites Within 30 Days Prior to Surgery (Y/N) VASQIP Definition (2010): Ascites within 30 days prior to surgery: The presence of fluid in the peritoneal cavity noted on physical examination, abdominal ultrasound, or abdominal CT/MRI within 30 days prior to the operation. Documentation should state a history of or active liver disease (e.g. jaundice, encephalopathy, hepatomegaly, portal hypertension, liver failure, or spider telangiectasia). %Library.EnumString 262 ASCITES FileMan Field Label: '*ASD REPAIR' FileMan Field Number: '376' *ASD Repair (Y/N) This determines if there was a procedure performed to repair an atrial septal defect. %Library.EnumString 438 ASD_REPAIR FileMan Field Label: 'ASSESSMENT COMPLETED BY' FileMan Field Number: '272.1' Assessment Completed By This is the name of the person who completed this surgery risk assessment. VALIP.prosthetic.fm2cw.NEWPERSON200 327 ASSESSMENT_COMPLETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ASSESSMENT_COMPLETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSESSMENT_COMPLETED_BY_NAME 1 FileMan Field Label: 'ASSESSMENT STATUS' FileMan Field Number: '235' Assessment Status This is the current status of the surgery risk assessment. When creating a new assessment, the status will automatically be entered as 'INCOMPLETE'. Upon completion of the assessment, this field will be updated to 'COMPLETED'. After the assessment is transmitted, this field will be automatically updated to 'TRANSMITTED'. %Library.EnumString 286 ASSESSMENT_STATUS FileMan Field Label: 'ASSESSMENT TYPE' FileMan Field Number: '284' Risk Assessment Type (Cardiac or Non-Cardiac) This determines whether this surgical risk assessment is a cardiac or non-cardiac procedure. %Library.EnumString 339 ASSESSMENT_TYPE FileMan Field Label: 'ASSOCIATED CLINIC' FileMan Field Number: '.021' Associated Clinic This is the clinic associated with this surgical case or non-OR procedure. The entry made in this field will be used as the location of the encounter for PCE. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 13 ASSOCIATED_CLINIC NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ASSOCIATED_CLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ASSOCIATED_CLINIC_NAME 1 FileMan Field Label: 'ASST ANESTHETIST' FileMan Field Number: '.33' Assistant Anesthetist This is the name of the person assisting the principal anesthetist. If entered, this information appears on the Anesthesia Report. VALIP.prosthetic.fm2cw.NEWPERSON200 62 ASST_ANESTHETIST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ASST_ANESTHETIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ASST_ANESTHETIST_NAME 1 FileMan Field Label: 'ASST PERFUSIONIST' FileMan Field Number: '.168' Assistant Perfusionist This is the name of the person assisting the perfusionist. If applicable, this information may be valuable in documentation of this case. VALIP.prosthetic.fm2cw.NEWPERSON200 35 ASST_PERFUSIONIST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ASST_PERFUSIONIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ASST_PERFUSIONIST_NAME 1 FileMan Field Label: 'ATRIAL ARRHYTHMIAS' FileMan Field Number: '699' Atrial Arrhythmias (Y/N) This field documents a history of atrial arrhythmias, including atrial fibrillation, atrial flutter, paroxysmal supraventricular tachycardia, or Wolff-Parkinson-White (WPW) syndrome. %Library.EnumString 657 ATRIAL_ARRHYTHMIAS FileMan Field Label: 'ATTENDING/RES SUP CODE' FileMan Field Number: '.166' Attending/Res Sup Code This is the code corresponding to the highest level of resident supervision provided by the attending staff surgeon for this case. VALIP.prosthetic.fm2cw.ATTENDINGCODES1329 33 ATTENDINGRES_SUP_CODE ATTENDING CODE NAME Attending Code Name This is the attending code name briefly describing the highest level of resident supervision provided by the attending staff surgeon.]]> %Library.String 1 ATTENDING_CODE_NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ATTENDINGRES_SUP_CODE_ATTENDING_CODE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDINGRES_SUP_CODE_ATTENDING_CODE_NAME 1 FileMan Field Label: '*ATTENDING CODE - NOT USED' FileMan Field Number: '.165' *Attending Code - No Longer Used NOTE: This field is replaced by the new ATTENDING CODE field (#.166). This is the code corresponding to the highest level of supervision provided by the attending staff surgeon for this case. This information appears in the Operation Report, Nurse Intraoperative Report, and Attending Surgeon Report. 0 The staff practitioner performs the case but may be assisted by a resident. 1 The supervising practitioner is physically present in the operative or procedural suite and directly involved in the procedure. The resident performs major portions of the procedure. 2 The supervising practitioner is physically present in the operative or procedural suite and immediately available for consultation. The supervising practitioner may observe and provide direction. The resident performs the procedure 3 The supervising practitioner is not physically present in the operative or procedural suite, but is in the facility or on the VA campus. The supervising practitioner is immediately available for resident supervision or consultation as needed. Local policy, as approved by the VISN Academic Affiliations Officer, should define the standard for "availability" of the supervising practitioner. NOTE: The service chief and chief of staff are responsible for periodically reviewing cases done under Level 3 supervision. %Library.EnumString 32 ATTENDING_CODE__NOT_USED FileMan Field Label: 'ATTENDING SURGEON' FileMan Field Number: '.164' Attending Surgeon This is the name of the attending staff surgeon responsible for this case. This information appears on the Operation Report, Nurse Intraoperative Report, and Attending Surgeon Report. VALIP.prosthetic.fm2cw.NEWPERSON200 31 ATTENDING_SURGEON NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ATTENDING_SURGEON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_SURGEON_NAME 1 FileMan Field Label: 'ATTEND PROVIDER' FileMan Field Number: '124' Attending Provider This is the name of the attending staff provider responsible for this case. This information appears on several reports. VALIP.prosthetic.fm2cw.NEWPERSON200 243 ATTEND_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ATTEND_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTEND_PROVIDER_NAME 1 FileMan Field Label: 'AVAILABILITY OF SPECIAL EQUIP' FileMan Field Number: '611' Confirm Availability of Special Equipment This field verifies that the availability of special equipment has been confirmed. Your answer should be "Yes", "No" or "NA". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 587 AVAILABILITY_OF_SPECIAL_EQUIP 30 mm or anterior chamber depth is > 6 mm.]]> %Library.EnumString 662 AXIAL_LENANTERIOR_CHAM_DEP %Library.EnumString 104 BATH__SHAMPOO FileMan Field Label: 'BATISTA PROCEDURE USED (Y/N)' FileMan Field Number: '439' Batista Procedure Used (Y/N) Was the Batista procedure used, Yes or No? %Library.EnumString 490 BATISTA_PROCEDURE_USED_YN FileMan Field Label: 'BLEEDING DISORDERS' FileMan Field Number: '216' Bleeding (Coagulation) Disorder VASQIP Definition (2014): Bleeding (coagulation) disorder is a condition that places the patient at risk for excessive bleeding due to a deficiency of blood clotting elements (e.g., vitamin K deficiency, hemophilia, von Willebrand disease). Answer YES if the patient has a documented bleeding (coagulation) disorder that is either chronic or acute. %Library.EnumString 266 BLEEDING_DISORDERS FileMan Field Label: 'BLEEDING RISK DUE TO MED' FileMan Field Number: '642' Increased Bleeding Risk Due To Medication VASQIP Definition (2015): Bleeding risk due to medication is present if: 1) a patient is on chronic anticoagulation (e.g. a thrombin inhibitor or an antiplatelet agent other than aspirin) and/or an acute anticoagulant or thrombolytic agent; AND 2) the agent was not discontinued before surgery in sufficient time for reversal of anticoagulant effect. Select the one appropriate response: N - The patient is not on medications that increase bleeding risk OR was on meds that increased bleeding risk that were all discontinued in sufficient time for reversal prior to surgery Y - The patient was on pre-operative medication(s) that increase bleeding risk AND one or more were NOT discontinued in sufficient time for reversal prior to surgery %Library.EnumString 610 BLEEDING_RISK_DUE_TO_MED %Library.EnumString 127 BLEEDING__PTT_TIME_IN_48_HRS FileMan Field Label: 'BLOOD AVAILABILITY' FileMan Field Number: '610' Confirm Blood Available (Operating Room or in-house Blood Bank) VASQIP Definition (2015): This field verifies that the blood availability has been confirmed. Your answer should be "Yes", "No" or "NI". Enter YES if the Blood was required and availability was confirmed. Enter NO if the Blood was required and was not available. Enter NI if Blood was NOT INDICATED (not required) for this procedure. If there was a "type and screen" only, indicate NI. If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT field (#85). A 'NO' response confirms that blood was REQUIRED for the procedure but NOT AVAILABLE. Indicate the reason why the blood was not available in the comment section. A 'NI' response means that blood was NOT INDICATED for this procedure and should not be noted in the comment section. Choose "NI" in the selection category. %Library.EnumString 586 BLOOD_AVAILABILITY FileMan Field Label: 'BLOOD BANK ABO VERIFICATION' FileMan Field Number: '655' Blood Bank Verification of ABO Type This field documents whether the blood bank verified the ABO type of the transplant recipient. %Library.EnumString 621 BLOOD_BANK_ABO_VERIFICATION FileMan Field Label: 'BLOOD BANK ABO VER COMMENTS' FileMan Field Number: '746' Blood Bank ABO Verification Comments This field is for comments regarding blood bank verification of ABO type of the transplant recipient. %Library.String 702 BLOOD_BANK_ABO_VER_COMMENTS FileMan Field Label: 'BLOOD LOSS (ML)' FileMan Field Number: '.25' Intraoperative Blood Loss (ml) This is the number of milliliters (0-100000) of blood estimated to be lost during the operative procedure (EBL). This information appears on the Nurse Intraoperative report, if entered. %Library.Numeric 56 BLOOD_LOSS_ML FileMan Field Label: '*BLOOD SUGAR IN 7 DAYS' FileMan Field Number: '.996' Blood Sugar Test in 7 Days (Y/N) This field determines whether the patient has had a blood sugar test within the last 7 days. This field has been marked for deletion in the next release of the Surgery software. %Library.EnumString 129 BLOOD_SUGAR_IN_7_DAYS %Library.EnumString 126 BLOOD_TYPEXMATCH FileMan Field Label: 'BNP' FileMan Field Number: '507' B-type Natriuretic Peptide (BNP) VASQIP Definition (2010): Indicate the BNP result (pg/mL) preoperatively evaluated closest to surgery but not greater than 180 days before surgery. Entering "NS" for "No Study" is allowed. %Library.String 561 BNP FileMan Field Label: 'BNP DATE' FileMan Field Number: '507.1' B-type Natriuretic Peptide (BNP) Date VASQIP Definition (2010): Indicate the date that the preoperative BNP value was assessed. Enter "NS" for No Study if the BNP test was not performed. %Library.String 562 BNP_DATE FileMan Field Label: 'BRIDGE TO TRANSPLANT/DEVICE' FileMan Field Number: '481' Device for bridge to cardiac transplant / Destination therapy Definition Revised (2015): Indicate the intended use of the mechanical support device implanted during this surgical procedure (excluding IABP) as either a bridge to cardiac transplantation or patient received the device as destination therapy (does not intend to have a cardiac transplant), either with or without placing the patient on cardiopulmonary bypass. %Library.EnumString 541 BRIDGE_TO_TRANSPLANTDEVICE FileMan Field Label: 'BRIEF CLIN HISTORY' FileMan Field Number: '60' Brief Clinical History This field contains a brief clinical history for this patient. It will appear on the Tissue Examination Report. %Library.String 208 BRIEF_CLIN_HISTORY FileMan Field Label: '*BUN IN 7 DAYS' FileMan Field Number: '.995' This indicates whether the patient has had a BUN within 7 days prior to being transported to the operating room. This field has been marked for deletion in the next version of the Surgery package. %Library.EnumString 128 BUN_IN_7_DAYS FileMan Field Label: 'BYPASS CRITICAL LIMB ISCHEMIA' FileMan Field Number: '713' Bypass For Critical Limb Ischemia For lower extremity inflow or leg bypass procedures, enter Yes if ankle-brachial blood pressure index is less than or equal to 0.4 or if there is ischemic tissue/ulceration due to vascular disease. %Library.EnumString 670 BYPASS_CRITICAL_LIMB_ISCHEMIA FileMan Field Label: 'CANCELLATION AVOIDABLE' FileMan Field Number: '67' Cancellation Avoidable This field contains a set of codes used to flag a cancellation as being avoidable or unavoidable. It is used when determining the percentage of avoidable cancellations. %Library.EnumString 214 CANCELLATION_AVOIDABLE FileMan Field Label: 'CANCELLATION COMMENTS' FileMan Field Number: '19' Cancellation Comments This is the cancellation comments field. If "OTHER" is selected for the CANCEL REASON field (#18), the user will be prompted to enter a comment in this field. %Library.String 172 CANCELLATION_COMMENTS FileMan Field Label: 'CANCELLATION TIMEFRAME' FileMan Field Number: '17.5' Cancellation Timeframe VASQIP Definition (2014): This indicates when the surgery was cancelled; either less than 48 hours prior to the scheduled surgery time or more than 48 hours prior to the scheduled surgery time. %Library.EnumString 169 CANCELLATION_TIMEFRAME FileMan Field Label: 'CANCELLED BY' FileMan Field Number: '70' Operation Cancelled By This is the name of the person who cancelled this surgical case. This information is automatically entered when a case is cancelled. VALIP.prosthetic.fm2cw.NEWPERSON200 217 CANCELLED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {CANCELLED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CANCELLED_BY_NAME 1 FileMan Field Label: 'CANCEL DATE' FileMan Field Number: '17' Cancellation Date/Time This is the date and time that the operative procedure was canceled. %Library.FilemanTimeStamp 168 CANCEL_DATE FileMan Field Label: 'CARDIAC ARREST 24HRS PREOP' FileMan Field Number: '730' Cardiac Arrest Within 24 Hrs of OR Start Cardiac arrest is the sudden cessation of cardiac function due to absence of cardiac rhythm or presence of a disordered rhythm that results in loss of effective circulation requiring the initiation of any component of basic and/or advanced cardiac life support. Exclude firing of AICD unless the patient becomes unconscious. Answer Yes if cardiac arrest occurs within the 24 hours prior to entry into the operating room. %Library.EnumString 686 CARDIAC_ARREST_24HRS_PREOP FileMan Field Label: 'CARDIAC ARREST INTRAOP' FileMan Field Number: '734' Cardiac Arrest in the OR Cardiac arrest is the sudden cessation of cardiac function due to absence of cardiac rhythm or presence of a disordered rhythm that results in loss of effective circulation requiring the initiation of any component of basic and/or advanced cardiac life support. Exclude firing of AICD unless the patient becomes unconscious. Answer Yes if cardiac arrest occurs at any time between entry to and exit from the operating room. %Library.EnumString 690 CARDIAC_ARREST_INTRAOP FileMan Field Label: 'CARDIAC ARREST REQ CPR' FileMan Field Number: '411' Cardiac Arrest Requiring CPR (Y/N) Definition Revised (2011): Indicate if there was any cardiac arrest requiring external or open cardiopulmonary resuscitation (CPR) occurring in the operating room, ICU, ward, or out-of-hospital after the chest had been completely closed and within 30 days of surgery. Patients with AICDs that fire but the patient does not lose consciousness should be excluded. If patient had cardiac arrest requiring CPR, indicate whether the arrest occurred intraoperatively or postoperatively. Indicate the one appropriate response: - intraoperatively: occurring while patient was in the operating room - postoperatively: occurring after patient left the operating room. %Library.EnumString 474 CARDIAC_ARREST_REQ_CPR FileMan Field Label: 'CARDIAC CATHETERIZATION DATE' FileMan Field Number: '440' Cardiac Catheterization Date Record the appropriate date of the most recent cardiac catheterization prior to surgery. Enter NS if unknown or not applicable. %Library.FilemanTimeStamp 491 CARDIAC_CATHETERIZATION_DATE FileMan Field Label: 'CARDIAC OCCURRENCES' FileMan Field Number: '321' Cardiac Occurrences (Y/N) This determines whether the patient has had any postoperative cardiac occurrences. Cardiac occurrences are defined as difficulties encountered involving the cardiac system. %Library.EnumString 375 CARDIAC_OCCURRENCES FileMan Field Label: 'CARDIAC RESOURCE DATA COMMENTS' FileMan Field Number: '431' Definition Revised (2014): Indicate additional comments related to this case prior to transmission to Denver by the SQN/Data Manager (limit 130 characters). %Library.String 489 CARDIAC_RESOURCE_DATA_COMMENTS FileMan Field Label: 'CARDIAC RISK PREOP COMMENTS' FileMan Field Number: '430' Preoperative Risk Summary Data Definition Revised (2006): Indicate in the comment field any preoperative patient risk factors (not previously entered above) that may contribute to this patient's risk of operative mortality. (The maximum length of this field is 130 characters.) %Library.String 488 CARDIAC_RISK_PREOP_COMMENTS 72 hours following catheterization. 2. Urgent - Clinical condition mandates prompt surgery usually within 12 to 72 hours of catheterization (patients clinically stable on a circulatory support system should be included in this category). 3. Emergent (ongoing ischemia) - Clinical condition mandates immediate surgery usually on day of catheterization because of ischemia despite medical therapy, such as intravenous nitroglycerine. Ischemia should be manifested as chest pain and/or ST-segment depression. 4. Emergent (hemodynamic compromise) - Persistent hypotension (arterial systolic pressure < 80 mm Hg) and/or low cardiac output (cardiac index < 2.0 L/min/MxM) despite iontropic and/or mechanical circulatory support mandates immediate surgery within hours of the cardiac catheterization. 5. Emergent (arrest with CPR) - Patient is taken to the operating room in full cardiac arrest with the circulation supported by cardiopulmonary resuscitation (excludes patients being adequately perfused by a cardiopulmonary support system).]]> %Library.EnumString 477 CARDIAC_SURGICAL_PRIORITY FileMan Field Label: '*CARDIAC SURG PERFORMED NON-VA' FileMan Field Number: '472' *Cardiac surgery contracted and performed at a non-VA facility Definition Revised (2004): Indicate whether the patient's cardiac surgery was performed in a non-VA facility through a contracted arrangement, even if part of the post-surgical care is provided at the VA. A "contract" facility is one established to be an affiliate with the VA medical center, and it is most typically a University Hospital. In rare cases a "contract" facility may be a community hospital when there is no University affiliate for the VAMC. By contrast, a "fee-basis" patient surgery should not be indicated as a "contract" facility. Typically, a "fee-basis" establishment is an agreement by the VA Chief of Staff to out-source a patient to a community hospital. That hospital then bills the Chief of Staff for care rendered on the patient. VASQIP does not wish to capture the patient data on the "fee-basis" patients. If the patient is not entered into VISTA, send a paper form to Denver for hand-entry, unless your facility contracts-out a majority of its cases. Enter "NS" if funding for the procedure is not known. The default is to NO if a response is not entered. %Library.EnumString 532 CARDIAC_SURG_PERFORMED_NONVA FileMan Field Label: '*CARDIAC TRANSPLANT' FileMan Field Number: '373' *Cardiac Transplant (Y/N) Definition Revised (2006): Indicate if an orthotopic or heterotopic transplant was performed at this procedure either with or without placing the patient on cardiopulmonary bypass. (YES/NO) Heart-lung transplant should be listed under "Other cardiac procedures." %Library.EnumString 435 CARDIAC_TRANSPLANT FileMan Field Label: 'CARDIAC (Y/N)' FileMan Field Number: '242' Cardiac (Y/N) This determines whether the patient has a history of cardiac illnesses. %Library.EnumString 295 CARDIAC_YN FileMan Field Label: 'CARDIOMEGALY' FileMan Field Number: '209' Cardiomegaly on Chest X-Ray (Y/N) Definition Revised (2004): Indicate if the patient has generalized cardiac enlargement of any or all of the cardiac chambers by standard or portable chest x-ray within 30 days preceding surgery. %Library.EnumString 259 CARDIOMEGALY FileMan Field Label: 'CARE PLAN IN CHART' FileMan Field Number: '.9811' Care Plan in Chart (Y/N) This indicates whether the nursing care plan is present on the patient's medical record prior to transport of the patient into the operating room. %Library.EnumString 110 CARE_PLAN_IN_CHART FileMan Field Label: 'CAROTID SUR ANATOMIC HIGH RISK' FileMan Field Number: '712' Carotid Surgery Anatomic High Risk This field documents if carotid surgery is being performed in a patient with a previously radiated neck, there has been a prior ipsilateral radical neck dissection or carotid surgery, the carotid bifurcation is at C-2 or higher, or if there is a bull-like or inextensible neck. %Library.EnumString 669 CAROTID_SUR_ANATOMIC_HIGH_RISK FileMan Field Label: 'CASE ABORTED' FileMan Field Number: '18.5' Case Aborted Any medication or intervention, other than a peripheral IV, performed by anesthesia is considered post-anesthesia. This includes any anesthesia or intervention performed by anesthesia staff in the preoperative holding area. %Library.EnumString 171 CASE_ABORTED FileMan Field Label: 'CASE SCHEDULE ORDER' FileMan Field Number: '.037' Case Schedule Order This is the sequence in which the surgeon expects to do the case if he or she has more than one case scheduled for this day. This field is optional, but is very useful to the person scheduling cases if the surgeon has more than one case. %Library.String 20 CASE_SCHEDULE_ORDER FileMan Field Label: 'CASE SCHEDULE TYPE' FileMan Field Number: '.035' Case Schedule Type This is the code describing how this case was scheduled. It is important that this field is entered. The Scheduler may use this field when updating the schedule due to cancellations or insertions. Non-Cardiac Definition of Emergency Case (2004): An emergency case is usually performed as soon as possible and no later than 12 hours after the patient has been admitted to the hospital or after the onset of related preoperative symptomatology. Answer EMERGENCY if the surgeon and anesthesiologist report the case as emergent %Library.EnumString 19 CASE_SCHEDULE_TYPE FileMan Field Label: 'CASE VERIFICATION' FileMan Field Number: '43' Case Verification (Y/N) This indicates whether the principal operative procedure, CPT code, perioperative occurrences and diagnosis were verified by the surgeon. %Library.EnumString 192 CASE_VERIFICATION FileMan Field Label: 'CBC IN 48 HRS' FileMan Field Number: '.992' CBC Within 48 Hours (Y/N) This indicates whether the patient has had a CBC within 48 hours prior to being transported to the operating room. %Library.EnumString 125 CBC_IN_48_HRS FileMan Field Label: 'CENTRAL NERVOUS SYSTEM (Y/N)' FileMan Field Number: '210' Central Nervous System (Y/N) This determines whether the patient has a history of illness related to the central nervous system (CNS). %Library.EnumString 260 CENTRAL_NERVOUS_SYSTEM_YN FileMan Field Label: '*CEREBRAL VASCULAR DISEASE' FileMan Field Number: '264' *Cerebral Vascular Disease (Y/N) This field has been flagged as obsolete for VASQIP. It should no longer be used. This determines whether the patient has disease of the arteries to the head manifested by previous stroke (cerebral vascular accident), and/or transient ischemic attack (TIA), and/or prior surgical repair (e.g. carotid endarterectomy), and/or greater than or equal to 50% obstruction of luminal diameter documented by contrast angiography or duplex ultrasound examination. %Library.EnumString 318 CEREBRAL_VASCULAR_DISEASE FileMan Field Label: 'CHECKLIST COMMENT' FileMan Field Number: '85' This field is a comment that is required if any of the listed below fields for the Time Out Verified Utilizing Checklist had a response of "No". - CONFIRM PATIENT IDENTITY (#600) - PROCEDURE TO BE PERFORMED (#601) - VALID CONSENT FORM (#603) - CONFIRM PATIENT POSITION (#604) - CORRECT MEDICAL IMPLANTS (#607) - ANTIBIOTIC PROPHYLAXIS (#608) - APPROPRIATE DVT PROPHYLAXIS (#609) - BLOOD AVAILABILITY (#610) - AVAILABILITY OF SPECIAL EQUIP (#611) - SITE OF PROCEDURE (#602) - MARKED SITE CONFIRMED (#605) - REOPERATIVE IMAGES CONFIRMED (#606) %Library.String 232 CHECKLIST_COMMENT FileMan Field Label: '*CHEMOTHERAPY IN LAST 30 DAYS' FileMan Field Number: '338.1' *Chemotherapy Within 30 Days Prior to Surgery (Y/N) Definition Revised (2007): Enter "YES" if the patient had any chemotherapy treatment for cancer in the 30 days prior to surgery. Chemotherapy may include, but is not restricted to, oral and parenteral treatment with chemotherapeutic agents for malignancies such as colon, breast, lung, head and neck, and gastrointestinal solid tumors as well as lymphatic and hematopoietic malignancies such as lymphoma, leukemia, and multiple myeloma. Do not count if treatment consists solely of hormonal therapy. (See Operations Manual for list of chemotherapeutic agents.) Chemotherapy treatment must be for malignancy. %Library.EnumString 393 CHEMOTHERAPY_IN_LAST_30_DAYS FileMan Field Label: 'CHEMO FOR MALIG LAST 90 DAYS' FileMan Field Number: '338.3' Chemotherapy for Malignancy Less Than 90 Days Preop Definition Revised (2015): Enter the timeframe of chemotherapy treatment for cancer in the 90 days prior to surgery. Chemotherapy may include, but is not restricted to, oral and parenteral treatment with chemotherapeutic agents for malignancies such as colon, breast, lung, head and neck, and gastrointestinal solid tumors as well as lymphatic and hematopoietic malignancies such as lymphoma, leukemia, and multiple myeloma. Do not include if treatment consists solely of hormonal therapy. Chemotherapy treatment must be for malignancy. %Library.EnumString 395 CHEMO_FOR_MALIG_LAST_90_DAYS FileMan Field Label: 'CHEST XRAY IN 7 DAYS' FileMan Field Number: '.998' Chest X-Ray Within 7 Days (Y/N) This field determines whether the patient has had a chest x-ray within the last seven days. %Library.EnumString 131 CHEST_XRAY_IN_7_DAYS FileMan Field Label: '*CHF WITHIN ONE MONTH' FileMan Field Number: '396' *CHF Within 30 Days Prior to Surgery (Y/N) Definition Revised (2004): Congestive Heart Failure is the inability of the heart to pump a sufficient quantity of blood to meet the metabolic needs of the body or can do so only at increased ventricular filling pressure. Only newly diagnosed CHF within the previous 30 days or a diagnosis of chronic CHF with new signs or symptoms in the 30 days prior to surgery fulfills this definition. Common manifestations are: - Abnormal limitation in exercise tolerance due to dyspnea or fatigue - Orthopnea (dyspnea on lying supine) - Paroxysmal nocturnal dyspnea (PND-awakening from sleep with dyspnea) - Increased jugular venous pressure - Pulmonary rales on physical examination - Cardiomegaly - Pulmonary vascular engorgement Should be noted in the medical record as CHF, congestive heart failure, or pulmonary edema. %Library.EnumString 459 CHF_WITHIN_ONE_MONTH FileMan Field Label: 'CHYLE/LYMPH LEAK' FileMan Field Number: '691' Chyle/Lymph Leak (Y/N) This field documents if there is clinical or imaging diagnosis of leakage from or collection of chyle/lymph in the surgical field region. %Library.EnumString 649 CHYLELYMPH_LEAK %Library.EnumString 116 CIG_MATCH__VAL_REM FileMan Field Label: 'CIRCUMFLEX STENOSIS' FileMan Field Number: '362.3' Circumflex Coronary Artery Stenosis Definition Revised (2004): Indicate the most severe percent stenosis in the circumflex coronary artery, including marginal branches and ramus intermedius considered to be of adequate size for bypass grafting. Both the anatomy and nomenclature for describing the circumflex coronary artery can be confusing -- in part, because of the marked variability from patient to patient. The true circumflex lies in the groove separating the left atrium from the left ventricle (A-V groove) for a variable distance following its origination from the left main coronary artery. Typically, it gives-off one or more branches that leave the A-V groove to supply the posterior-lateral free wall of the left ventricle. These are known as marginal branches. A few patients have a branch to the posterior-lateral free wall of the left ventricle arising exactly at the bifurcation of the left main coronary artery into the left anterior descending coronary artery and the circumflex coronary artery. Strictly speaking, this vessel is neither a diagonal branch of the left anterior descending coronary artery nor a marginal branch of the circumflex coronary artery. This is often called the "ramus intermedius" or "trifurcation branch". If there is no obstruction of these coronary arteries, indicate zero. Entering "NS" for "No Study/Unknown" is also allowed. %Library.String 423 CIRCUMFLEX_STENOSIS FileMan Field Label: 'CLASSIFICATION ENTERED (Y/N)' FileMan Field Number: '.0155' Classification Entered (Y/N) This field indicates whether or not classification items have been addressed. This field is used by the software to decide whether to allow the user a choice to update classification information. If the field is NO or null, it will not permit a choice if the site parameter to enter classification information is turned on. %Library.EnumString 7 CLASSIFICATION_ENTERED_YN FileMan Field Label: 'CLEAN DRESSING' FileMan Field Number: '.987' Clean Dressings (Y/N) This indicates if all appropriate wounds have had clean dressings applied prior to transport to the operating room. %Library.EnumString 120 CLEAN_DRESSING FileMan Field Label: 'CLEAN HOSP CLOTH' FileMan Field Number: '.988' Clean Hospital Clothing (Y/N) This indicates whether the patient has clean hospital clothing prior to being transported to the operating room. %Library.EnumString 121 CLEAN_HOSP_CLOTH FileMan Field Label: '*CLERK CHN DATE PROCEDURE' FileMan Field Number: '.9815' This field has been marked for deletion. It should not be used. %Library.Numeric 114 CLERK_CHN_DATE_PROCEDURE FileMan Field Label: '*CLERK CHN DAYS BEFORE' FileMan Field Number: '.977' This field is not being used and is marked for deletion. %Library.Numeric 108 CLERK_CHN_DAYS_BEFORE FileMan Field Label: '*CLERK CHN REC FOR MAJ SURG' FileMan Field Number: '.9911' This field has been marked for deletion. It should not be used. %Library.Numeric 124 CLERK_CHN_REC_FOR_MAJ_SURG FileMan Field Label: 'CLOSTRIDIUM DIFFICILE COLITIS' FileMan Field Number: '447' Clostridium Difficile Colitis (C. difficile) Definition Revised (2008): C. difficile-associated disease occurs when the normal intestinal flora is altered, allowing C. difficile to flourish in the intestinal tract and produce a toxin that causes a watery diarrhea. C. difficile diarrhea is confirmed by the presence of a toxin in a stool specimen. Answer yes only if you have a positive culture for C. difficile and/or a toxin assay and diagnosis of C. difficile documented in the chart. %Library.EnumString 500 CLOSTRIDIUM_DIFFICILE_COLITIS FileMan Field Label: 'CNS OCCURRENCES' FileMan Field Number: '320' CNS Occurrences (Y/N) This determines whether the patient has had any postoperative central nervous system (CNS) occurrences. These occurrences are defined as difficulties related to the brain and spinal cord, with their nerves and end-organs that control voluntary acts. %Library.EnumString 374 CNS_OCCURRENCES FileMan Field Label: 'CODING VERIFIER' FileMan Field Number: '69' Coding Verifier This is the person who last updated procedure and/or diagnosis descriptions and/or codes for this case using the Update/Verify Procedure/Diagnosis Codes [SRCODING EDIT] option. This field is updated automatically by the option when information is changed. VALIP.prosthetic.fm2cw.NEWPERSON200 216 CODING_VERIFIER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {CODING_VERIFIER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CODING_VERIFIER_NAME 1 FileMan Field Label: 'COMA' FileMan Field Number: '333' Coma (Y/N) Definition Revised (2004): Patient is unconscious, postures to painful stimuli, or is unresponsive to all stimuli entering surgery. This does not include drug-induced coma. %Library.EnumString 387 COMA 24 HOURS POSTOP' FileMan Field Number: '410' Coma Greater than 24 Hours Postop (Y/N) Definition Revised (2011): Indicate if either postoperatively or within 30 days of surgery there was a significantly decreased level of consciousness (exclude transient disorientation or psychosis) for greater than or equal to 24 hours as evidenced by lack of response to deep, painful stimuli. Do not include drug-induced coma (e.g. Propofol drips, etc.)]]> %Library.EnumString 473 COMA__24_HOURS_POSTOP FileMan Field Label: 'COMBAT VET' FileMan Field Number: '.024' Treatment related to Combat (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Combat. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 16 COMBAT_VET FileMan Field Label: 'COMPLEX CATARACT' FileMan Field Number: '708' Complex Cataract This field documents if there is medical record documentation of the diagnosis of complex cataract in the operative eye. %Library.EnumString 665 COMPLEX_CATARACT FileMan Field Label: 'CONCURRENT CASE' FileMan Field Number: '35' Concurrent Surgical Case Definition Revised (2004): An additional operative procedure performed by a different surgical team (i.e., a different specialty/service) under the same anesthetic which has a CPT code different from that of the Principal Operative Procedure (e.g., fixation of a femur fracture in a patient undergoing a laparotomy for trauma). This field should be verified and, if need be, edited postoperatively by the Nurse Reviewer in accordance with the official operating room log. VALIP.prosthetic.fm2cw.SURGERY130 185 CONCURRENT_CASE PATIENT Patient's Name This is the name of the patient. ]]> %Library.String 1 PATIENT into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {CONCURRENT_CASE_PATIENT}=$select(SQLCODE=0:val,1:"")]]> 1 CONCURRENT_CASE_PATIENT 1 FileMan Field Label: 'CONFIRM PATIENT IDENTITY' FileMan Field Number: '600' Confirm Correct Patient Identity This field verifies the patient identity has been confirmed. Your answer should be "Yes" or "No". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 576 CONFIRM_PATIENT_IDENTITY FileMan Field Label: 'CONFIRM PATIENT POSITION' FileMan Field Number: '604' Confirm Patient Position This field verifies that the patient position has been confirmed. Your answer should be "Yes" or "No". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 580 CONFIRM_PATIENT_POSITION FileMan Field Label: 'CONFIRM VALID CONSENT' FileMan Field Number: '603' Confirm Valid Consent VASQIP Definition (2014): This field verifies that a valid consent form has been confirmed. Your answer should be one of the following: 1-YES, i-MED 2-YES, PAPER 3-YES, TELEPHONE 4-NO, EMERGENCY 5-NO, NOT EMERGENCY If you answer 4 or 5, you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 579 CONFIRM_VALID_CONSENT FileMan Field Label: '*CONGESTIVE HEART FAILURE' FileMan Field Number: '207' *Congestive Heart Failure Definition Revised (2014): The New York Heart Association (NYHA) functional classification is used as a subjective assessment of the severity of congestive heart failure. Indicate whether the patient has congestive heart failure if the patient chart or patient self-report indicates a history of congestive heart failure or any mention of symptomatic manifestations in the NYHA Classification within the 30 days before surgery. Indicate the one most appropriate response: None - no congestive heart failure. Class I - cardiac disease, no symptoms of abnormal fatigue, dyspnea, or angina. Class II - slight limitation of physical activity by fatigue, dyspnea, or angina. The patient gets unusual fatigue, dyspnea, and/or angina only upon performing more strenuous activities, such as climbing two or more flights of stairs without stopping. Class III - marked limitation of physical activity by fatigue, dyspnea, or angina. The patient gets unusual fatigue, dyspnea, and/or angina upon performing ordinary activities, such as walking several blocks or climbing a flight of stairs. Class IV - symptoms at rest and/or inability to carry out any physical activity without symptoms of fatigue, dyspnea or angina. The patient has symptoms of unusual fatigue, dyspnea, and/or angina at rest or when performing minimal activity, such as walking across the room. Unknown - Unknown %Library.EnumString 257 CONGESTIVE_HEART_FAILURE FileMan Field Label: 'CONGESTIVE HEART FAILURE PREOP' FileMan Field Number: '423' Preop Congestive Heart Failure VASQIP Definition (2015): Indicate whether the patient has congestive heart failure if the patient chart or patient self-report indicates a history of congestive heart failure with one of the following that describes symptoms in the 30 days before surgery. Indicate the one most appropriate response: 0 - Documented history of no cardiac disease or congestive heart failure, and no symptoms of abnormal fatigue, dyspnea, or angina. 1 - Documented history of cardiac disease or congestive heart failure; no symptoms of abnormal fatigue, dyspnea, or angina. 2 - Documented history of cardiac disease or congestive heart failure; slight limitation of physical activity by fatigue, dyspnea, or angina. The patient gets unusual fatigue, dyspnea, and/or angina only upon performing more strenuous activities, such as climbing two or more flights of stairs without stopping. 3 - Documented history of cardiac disease or congestive heart failure; marked limitation of physical activity by fatigue, dyspnea, or angina. The patient gets unusual fatigue, dyspnea, and/or angina upon performing ordinary activities, such as walking several blocks or climbing a flight of stairs. 4 - Documented history of cardiac disease or congestive heart failure; symptoms at rest and/or inability to carry out any physical activity without symptoms of fatigue, dyspnea or angina. The patient has symptoms of unusual fatigue, dyspnea, and/or angina at rest or when performing minimal activity, such as walking across the room. 5 - No documented history of cardiac disease or congestive heart failure, and symptomatology is unknown (e.g., documentation not found or could not be determined with available information) 6 - Documented history of cardiac disease or congestive heart failure, and symptomatology is unknown (e.g., documentation not found or could not be determined with available information) %Library.EnumString 487 CONGESTIVE_HEART_FAILURE_PREOP %Library.EnumString 103 CONSENT_SIGWIT FileMan Field Label: 'CONVERT FROM OFF PUMP TO CPB' FileMan Field Number: '469' Convert from Off Pump to CPB Definition Revised (2004): Indicate whether patient was converted from off cardiopulmonary bypass assistance to on cardiopulmonary bypass during the cardiac surgical procedure. Indicate the one appropriate response: No - There was no conversion that occurred for the off-pump case performed (i.e., the off-pump case remained off-pump throughout the operation). NA - The procedure was NOT an off-pump case (i.e., procedure began on-pump and remained on- pump throughout the case). [The default will be set to N/A.] Yes, planned - The procedure was begun as an off-pump procedure but changed to on-pump for any length of time; the change was planned due to decision made prior to operation to perform some vessels off-pump and some on-pump in order to minimize total CPB time. Yes, unplanned - The procedure was begun as an off-pump procedure but changed to on-pump for any length of time; the change was unplanned and determined in the operating room due to inability to safely perform revascularization. NS/Unknown - If documentation is not sufficient to answer, entering "NS" for "No Study/Unknown" is also allowed. %Library.EnumString 529 CONVERT_FROM_OFF_PUMP_TO_CPB FileMan Field Label: 'CORNEAL GUTTAE/FUCHS ENDO' FileMan Field Number: '706' Corneal Guttae/Fuchs Endo Dystrophy (Y/N) This field documents the diagnosis of corneal guttae/Fuchs endothelial dystrophy in the operative eye. %Library.EnumString 663 CORNEAL_GUTTAEFUCHS_ENDO FileMan Field Label: 'CORONARIES WITH STENOSIS' FileMan Field Number: '362' Major Coronaries with Stenosis(es) Greater or Equal to 50% This is the category corresponding to the number of major coronaries with stenosis greater than or equal to 50%. The categories are as follows. 0 - no stenosis in any coronary artery greater than or equal to 50% (exclude diagonals) 1 - one or more stenoses greater than or equal to 50% in the left anterior descending (does not include diagonals) or, circumflex (circumflex includes the marginal branches and ramus intermedius), or the right (right includes the posterior descending even if a branch of the circumflex) 2 - Stenoses greater than or equal to 50% in the left main coronary artery, or the left anterior descending (does not include diagonals) and the right (right includes the posterior descending even if a branch of the circumflex), or the left anterior descending (does not include diagonals) and circumflex (circumflex includes the marginals and ramus intermedius), or the circumflex (circumflex includes the marginals and ramus intermedius) and the right (right includes the posterior descending even if a branch of the circumflex) 3 - Stenoses greater than or equal to 50% in the left anterior descending (does not include diagonals) and the circumflex (circumflex includes the marginals and ramus intermedius) and right (right includes the posterior descending even if a branch of the circumflex) or left main and right (right includes the posterior descending even if a branch of the circumflex) %Library.Numeric 420 CORONARIES_WITH_STENOSIS FileMan Field Label: 'CORRECT MEDICAL IMPLANTS' FileMan Field Number: '607' Confirm Correct Medical Implant(s) is available This field verifies that the availability of correct medical implant(s) has been confirmed. Your answer should be "Yes", "No" or "NA". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 583 CORRECT_MEDICAL_IMPLANTS FileMan Field Label: 'COUNT VERIFIER' FileMan Field Number: '48' Count Verifier This is the name of the person responsible for verifying the final sponge, sharps and instrument counts. VALIP.prosthetic.fm2cw.NEWPERSON200 197 COUNT_VERIFIER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {COUNT_VERIFIER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COUNT_VERIFIER_NAME 1 FileMan Field Label: 'CPT ON NURSE REPORT' FileMan Field Number: '1005' CPT on Nurse Intraoperative Report This field reflects the content of the CPT ON NURSE INTRAOP site parameter in SURGERY SITE PARAMETERS file (#133). This field will be set at the time the Nurse Intraoperative Report is signed and will be checked any time an automatic addendum is made to the report to determine whether the CPT codes should appear on the report. %Library.EnumString 721 CPT_ON_NURSE_REPORT FileMan Field Label: 'CREATE RISK ASSESSMENT' FileMan Field Number: '323' Do you want to create a Risk Assessment for this Surgical Case This determines whether a risk assessment will be created for this surgical case. If answered 'NO', the information will automatically be completed so that the information will be transmitted without any additional intervention. %Library.EnumString 377 CREATE_RISK_ASSESSMENT %Library.EnumString 190 CROSSMATCH_SCREEN_AUTOLOGOUS FileMan Field Label: 'CULTURES' FileMan Field Number: '64' Cultures These are the names of cultures sent to the laboratory for examination. %Library.String 212 CULTURES FileMan Field Label: 'CURRENTLY ON DIALYSIS' FileMan Field Number: '211' Currently Requiring or On Dialysis (Y/N) Definition Revised (2006): Acute or chronic renal failure requiring periodic peritoneal dialysis, hemodialysis, hemofiltration, hemodiafiltration, or ultrafiltration within 2 weeks prior to surgery. %Library.EnumString 261 CURRENTLY_ON_DIALYSIS FileMan Field Label: '*CURRENT DIGOXIN USE' FileMan Field Number: '354' *Current Digoxin Use (Y/N) This determines whether the patient has used a digitalis preparation (digoxin, Lanoxin, digitoxin, ect.) within the two weeks prior to surgery. %Library.EnumString 412 CURRENT_DIGOXIN_USE FileMan Field Label: 'CURRENT DIURETIC USE' FileMan Field Number: '353' Current Diuretic Use (Y/N) This determines whether the patient has used any diuretic preparation within the two weeks prior to surgery. %Library.EnumString 411 CURRENT_DIURETIC_USE FileMan Field Label: 'CURRENT PNEUMONIA' FileMan Field Number: '326' Current Pneumonia (Y/N) Definition Revised (2007): Report patients with evidence of pneumonia at the time the patient is brought to the OR. Patients with pneumonia must meet ONE of the following two criteria: Criterion 1. Rales or dullness to percussion on physical examination of chest AND any of the following: a. New onset of purulent sputum or change in character of sputum b. Organism isolate from blood culture c. Isolation of pathogen from specimen obtained by transtracheal aspirate, bronchial brushing, or biopsy OR Criterion 2. Chest radiographic examination shows new or progressive infiltrate, consolidation, cavitation, or pleural effusion AND any of the following: a. New onset of purulent sputum or change in character of sputum b. Organism isolated from blood culture c. Isolation of pathogen from specimen obtained by transtracheal aspirate, bronchial brushing, or biopsy d. Isolation of virus or detection of viral antigen in respiratory secretions e. Diagnostic single antibody titer (IgM) or fourfold increase in paired serum samples (IgG) for pathogen f. Histopathologic evidence of pneumonia %Library.EnumString 380 CURRENT_PNEUMONIA FileMan Field Label: '*CURRENT SMOKER' FileMan Field Number: '202' *Current Smoker This field has been flagged as obsolete for VASQIP. It should no longer be used. Non-Cardiac Definition Revised (2006): If the patient has smoked cigarettes in the year prior to admission for surgery enter YES. Do not include patients who smoke cigars or pipes or use chewing tobacco. %Library.EnumString 251 CURRENT_SMOKER FileMan Field Label: '*CURRENT SMOKER (CARDIAC)' FileMan Field Number: '510' *Current Smoker This field has been flagged as obsolete for VASQIP. It should no longer be used. Cardiac Definition Revised (2006): Indicate the patient's smoking status from information from the patient, or the chart, that best describes the patient's use of tobacco in any form (pipe, cigar, cigarette, tobacco chew). If more than one representation is found, please record according to the most conservative (most recent) quit date: 1 = never a smoker 2 = smoking within two weeks prior to surgery 3 = smoking within 2 weeks to 3 months prior to surgery 4 = remote smoker (more than 3 months prior to surgery) %Library.EnumString 565 CURRENT_SMOKER_CARDIAC FileMan Field Label: '*CVA/STROKE WITH NEURO DEFICIT' FileMan Field Number: '335' *CVA/Stroke With Neurologic Deficit (Y/N) This field has been flagged as obsolete for VASQIP. It should no longer be used. Definition Revised (2004): History of a cerebrovascular accident (embolic, thrombotic, or hemorrhagic) with persistent residual motor, sensory, or cognitive dysfunction. (e.g., hemiplegia, hemiparesis, aphasia, sensory deficit, impaired memory). If the neurological deficit is hemiplegia/hemiparesis, also enter YES to Hemiplegia/Hemiparesis in addition to CVA/Stroke. %Library.EnumString 389 CVASTROKE_WITH_NEURO_DEFICIT FileMan Field Label: '*CVA/STROKE - NO NEURO DEFICIT' FileMan Field Number: '336' *CVA/Stroke With No Neurologic Deficit (Y/N) This field has been flagged as obsolete for VASQIP. It should no longer be used. Definition Revised (2004): History of a cerebrovascular accident (embolic, thrombotic, or hemorrhagic) with neurologic deficit(s) lasting at least 30 minutes, but no current residual neurologic dysfunction or deficit. %Library.EnumString 390 CVASTROKE__NO_NEURO_DEFICIT FileMan Field Label: 'CVD REPAIR/OBSTRUCTION' FileMan Field Number: '521' Prior Surgical Repair/Carotid Artery Obstruction VASQIP Definitions (2011): Select one of the following if patient has indication of Cerebrovascular Disease (CVD): 0 = No CVD indication 1 = Yes, CVD indication by documented obstruction of carotid artery luminal diameter greater than or equal to 50% obstruction of the carotid artery documented by contrast angiography or duplex ultrasound examination which did not result in surgical repair. 2 = Yes, CVD indication resulting in prior carotid artery surgical repair (e.g., carotid endarterectomy or stenting). %Library.EnumString 574 CVD_REPAIROBSTRUCTION FileMan Field Label: 'CYSTOID MACULAR EDEMA' FileMan Field Number: '739' Cystoid Macular Edema This field documents if there is medical record documentation of the diagnosis of cystoid macular edema for the operative eye. %Library.EnumString 695 CYSTOID_MACULAR_EDEMA FileMan Field Label: 'DATE/TIME OF DICTATION' FileMan Field Number: '15' Date/Time of Dictation This is the date and time that dictation of the operative summary was completed. %Library.FilemanTimeStamp 167 DATETIME_OF_DICTATION FileMan Field Label: 'DATE/TIME OR REQUEST MADE' FileMan Field Number: '1.098' Date/Time OR Request Made This is the date and time that the operation request was made. This information is automatically entered at the time of request. If the request date is changed, this field will be updated to reflect the new date/time requested. %Library.FilemanTimeStamp 140 DATETIME_OR_REQUEST_MADE FileMan Field Label: 'DATE ASSESSMENT COMPLETED' FileMan Field Number: '272' Date Assessment Completed This is the date that the Assessment was completed. This field will be updated if the assessment was transmitted in error. %Library.FilemanDate 326 DATE_ASSESSMENT_COMPLETED FileMan Field Label: 'DATE OF DEATH' FileMan Field Number: '342' Date/Time of Death If the patient has died, this is the date/time of death. %Library.String 399 DATE_OF_DEATH FileMan Field Label: 'DATE OF LAST TRANSMISSION' FileMan Field Number: '260.1' Last Transmission Date This is the date of the retransmission if this risk assessment has been retransmitted to the national database. An assessment can be updated and retransmitted within 14 days of the original transmission date. If there was no retransmission of this assessment, this is the date of the original transmission. %Library.FilemanTimeStamp 314 DATE_OF_LAST_TRANSMISSION FileMan Field Label: 'DATE OF OPERATION' FileMan Field Number: '.09' Date of Operation This is the date that the case was performed. The date of operation must be entered for all cases. %Library.FilemanTimeStamp 1 25 DATE_OF_OPERATION FileMan Field Label: 'DATE OF PROCEDURE' FileMan Field Number: '120' Date of Procedure This is the date that the non-OR procedure was performed. The date of procedure must be entered for all non-OR cases. %Library.FilemanTimeStamp 239 DATE_OF_PROCEDURE FileMan Field Label: 'DATE OF TRANSCRIPTION' FileMan Field Number: '39' Date of Transcription This is the date and time that transcription of the operative summary was completed. %Library.FilemanTimeStamp 189 DATE_OF_TRANSCRIPTION FileMan Field Label: 'DATE TRANSMITTED' FileMan Field Number: '260' Date Transmitted This is the date (or date/time) that this surgery risk assessment was transmitted. %Library.FilemanTimeStamp 313 DATE_TRANSMITTED FileMan Field Label: 'DC/REL DESTINATION' FileMan Field Number: '685' DC/REL Destination Indicate the patient's initial destination upon discharge from a VA hospital acute care admission or release from an ambulatory surgery or observation location following an assessed surgery. 1. Home (patient returned to their own residence or to a similar setting e.g. residence of a family member), 2. Acute Care Facility (patient was transferred after the inpatient surgery to another acute care facility, VA or non-VA, or was admitted to acute care after an ambulatory surgery) 3. Extended Care Facility, Non-Rehabilitation (patient returned to or entered an extended care facility for a purpose other than rehabilitation, VA or non-VA) 4. Rehabilitation Center (patient entered a rehabilitation facility for the purpose of postoperative recovery, e.g. physical or occupational therapy) 5. Shelter/Transitional Housing (patient does not have a fixed dwelling (homeless) and enters a supervised public or private shelter or transitional housing facility) 6. Patient Death (patient died during the postoperative admission or at the ambulatory surgery center). 7. Other. %Library.EnumString 643 DCREL_DESTINATION FileMan Field Label: 'DEATH UNRELATED/RELATED' FileMan Field Number: '903' Was the Death Unrelated or Related to the Surgery? This indicates if death was unrelated to this surgery. %Library.EnumString 713 DEATH_UNRELATEDRELATED 38 C), localized pain, or tenderness, unless site is culture-negative. - An abscess or other evidence of infection involving the deep incision is found on direct examination, during reoperation, or by histopathologic or radiologic examination. - Diagnosis of a deep incision SSI by a surgeon or attending physician. NOTE: Please consult with the operating surgeon for assignment of organ/space vs. deep wound infection occurrences.]]> %Library.EnumString 302 DEEP_INCISIONAL_SSI FileMan Field Label: 'DESIRED PROCEDURE DATE' FileMan Field Number: '616' Desired Procedure Date This field is the desired date for surgery to occur, as agreed upon by the provider and patient. That agreed upon date is when the patient desires the surgery to occur and when the provider feels it is appropriate to schedule the surgery. %Library.FilemanDate 592 DESIRED_PROCEDURE_DATE FileMan Field Label: 'DEVICE(S)' FileMan Field Number: '131' Device(s) This field documents devices used in this procedure that are not documented elsewhere. %Library.String 247 DEVICES FileMan Field Label: '*DIABETES' FileMan Field Number: '346' *Diabetes Mellitus Requiring Therapy With Oral Agents or Insulin This field has been flagged as obsolete for VASQIP. It should no longer be used. Definition Revised (2004): Diabetes mellitus is a metabolic disorder of the pancreas whereby the individual requires daily dosages of exogenous parenteral insulin or an oral hypoglycemic agent to prevent a hyperglycemic/metabolic acidosis. Report the treatment regimen of the patient's chronic, long-term management. Do not include a patient if diabetes is controlled by diet alone. No: No diagnosis of diabetes or diabetes controlled by diet alone Oral: A diagnosis of diabetes requiring therapy with an oral hypoglycemic agent (see list of oral hypoglycemic agents in Operations Manual) Insulin: A diagnosis of diabetes requiring daily insulin therapy (see list of insulin therapy agents in Operations Manual) %Library.EnumString 404 DIABETES FileMan Field Label: '*DIABETES (CARDIAC)' FileMan Field Number: '475' *Diabetes This field has been flagged as obsolete for VASQIP. It should no longer be used. Definition Revised (2006): Indicate if the patient has diabetes treated with diet, oral, and/or insulin therapy. Diabetes is defined as a metabolic disorder of the pancreas whereby the individual requires daily dosages of exogenous parenteral insulin or an oral hypoglycemic agent to prevent a hyperglycemic/metabolic acidosis. If the patient is on both Oral and Insulin therapy, indicate Insulin therapy. Indicate the one most appropriate response. No - no diagnosis of diabetes. Diet - a diagnosis of diabetes that is controlled by diet alone in the two weeks preceding surgery (the only prescribed treatment has been diabetic relief). Oral - a diagnosis of diabetes requiring therapy with an oral hypoglycemic agent in the two weeks preceding surgery. Insulin - a diagnosis of diabetes requiring daily insulin therapy in the two weeks preceding surgery. %Library.EnumString 535 DIABETES_CARDIAC FileMan Field Label: 'DIABETES MELLITUS CHRONIC' FileMan Field Number: '519' Diabetes Mellitus: Chronic, Long-Term Management VASQIP Definitions (2015): Indicate the chronic, long-term treatment regimen for patients with a diagnosis of Diabetes Mellitus. Diabetes Mellitus is defined as a metabolic disorder of the pancreas whereby the individual requires diet modification, daily dosages of exogenous parenteral insulin or an oral hypoglycemic agent to prevent a hyperglycemic/metabolic acidosis. If the patient is on both Oral and Insulin therapy, indicate Insulin therapy. No - no diagnosis of diabetes Diet - a diagnosis of diabetes that is controlled by diet alone Oral +/- Non-Insulin Inj - a diagnosis of diabetes requiring therapy with an oral and/or non-insulin injectable hypoglycemic agent Insulin - a diagnosis of diabetes requiring daily insulin therapy Choose from: 1. NO 2. DIET 3. ORAL +/- NON-INSULIN INJ 4. INSULIN %Library.EnumString 572 DIABETES_MELLITUS_CHRONIC FileMan Field Label: 'DIABETES MELLITUS PREOP MGMT' FileMan Field Number: '520' Diabetes Mellitus: Management Prior to Surgery VASQIP Definitions (2015): Enter appropriate code for management of Diabetes Mellitus in the two weeks prior to surgery. Diabetes Mellitus is defined as a metabolic disorder of the pancreas whereby the individual requires diet modification, daily dosages of exogenous parenteral insulin or an oral hypoglycemic agent to prevent a hyperglycemic/metabolic acidosis. If the patient is on both Oral and Insulin therapy, indicate Insulin therapy. No - no diagnosis of diabetes Diet - a diagnosis of diabetes that is controlled by diet alone Oral +/- Non-Insulin Inj - a diagnosis of diabetes requiring therapy with an oral and/or non-insulin injectable hypoglycemic agent Insulin - a diagnosis of diabetes requiring daily insulin therapy Choose from: 1. NO 2. DIET 3. ORAL +/- NON-INSULIN INJ 4. INSULIN %Library.EnumString 573 DIABETES_MELLITUS_PREOP_MGMT FileMan Field Label: 'DIABETIC RETINOPATHY' FileMan Field Number: '707' Diabetic Retinopathy (Y/N) This field documents if there is medical record documentation of the diagnosis of diabetic retinopathy for the operative eye. %Library.EnumString 664 DIABETIC_RETINOPATHY FileMan Field Label: 'DIAGNOSTIC/THERAPEUTIC (Y/N)' FileMan Field Number: '20' Diagnostic/Therapeutic (Y/N) This indicates if the anesthesia technique is an anesthesia diagnostic/ therapeutic procedure. %Library.EnumString 173 DIAGNOSTICTHERAPEUTIC_YN FileMan Field Label: 'DIAGNOSTIC RESULTS CONFIRM BY' FileMan Field Number: '61' Diagnostic Results Confirmed By This is the name of the person responsible for verifying that the essential diagnostic procedure requirements, as per medical center policy, are available. VALIP.prosthetic.fm2cw.NEWPERSON200 209 DIAGNOSTIC_RESULTS_CONFIRM_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {DIAGNOSTIC_RESULTS_CONFIRM_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIAGNOSTIC_RESULTS_CONFIRM_BY_NAME 1 FileMan Field Label: 'DICTATED SUMMARY EXPECTED' FileMan Field Number: '1004' Dictated Summary Expected This field indicates if the provider will dictate a summary of this procedure to be electronically signed. Enter YES if a dictated summary is expected. Enter NO or leave blank if no summary is expected. %Library.EnumString 720 DICTATED_SUMMARY_EXPECTED FileMan Field Label: 'DIC 6HRS PREOP' FileMan Field Number: '731' Overt DIC Within 6 Hours Prior to OR Start This field documents the International Society on Thrombosis and Haemostasis (ISTH) score for Disseminated Intravascular Coagulation (DIC) in the 6 hrs prior to OR start time. %Library.EnumString 687 DIC_6HRS_PREOP FileMan Field Label: 'DISCHARGED VIA' FileMan Field Number: '25' Patient Discharged Via This is the code corresponding to the mode of transport used to move the patient from the care area. VALIP.prosthetic.fm2cw.SURGERYTRANSPORTATIONDEVICES13101 177 DISCHARGED_VIA NAME Transportation Device This is the name of the device used to transport the patient to and from the Operating Room. Although this field is optional, it may be helpful in documentation of the case. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {DISCHARGED_VIA_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DISCHARGED_VIA_NAME 1 FileMan Field Label: 'DISCHARGE/TRANSFER DATE' FileMan Field Number: '421' Date Discharged/Transferred to Chronic Care Definition Revised (2004): The date and time of the patient's discharge or transfer from the surgical or medical service to a chronic care setting. i.e., spinal cord injury unit, psychiatric facility or psychiatric unit, nursing home care unit or facility, or intermediate medicine. Acute care beds must be established locally with the assistance of your station IRM service. %Library.String 485 DISCHARGETRANSFER_DATE FileMan Field Label: 'DISLOCATION OF OPERATIVE JOINT' FileMan Field Number: '740' Dislocation of Operative Joint This field documents dislocation of a prosthetic joint within 90 days of its implantation regardless of treatment performed. %Library.EnumString 696 DISLOCATION_OF_OPERATIVE_JOINT FileMan Field Label: 'DISSEMINATED CANCER (Y/N)' FileMan Field Number: '338' Disseminated Cancer (Y/N) VASQIP Definition (2010): Disseminated cancer: Patients who have cancer known to be present prior to the start of surgery that: (1) Has spread to one site or more sites in addition to the primary site AND (2) In whom the presence of multiple metastases indicates the cancer is widespread, fulminant, or near terminal. Other terms describing disseminated cancer include "diffuse," "widely metastatic," "widespread," or "carcinomatosis", or AJCC "Stage IV" cancer. Common sites of metastases include major organs (e.g., brain, lung, liver, meninges, abdomen, peritoneum, pleura, and bone). You may use the National Cancer Institute as a reference in determining whether a patient has AJCC Stage IV cancer, when the TNM information is the only information documented. Refer to the following website for assistance with translating TNM values with AJCC staging: http://www.cancer.gov/cancertopics/pdq/adulttreatment Examples: - A patient with a primary breast cancer with positive nodes in the axilla does NOT qualify for this definition. The tumor has spread to a site other than the primary site, but does not have widespread metastases. A patient with primary breast cancer with positive nodes in the axilla AND liver metastases does qualify, because the tumor has spread to the axilla and other major organs. - A patient with colon cancer and no positive nodes or distant metastases does NOT qualify. A patient with colon cancer and several local lymph nodes positive for tumor, but no other evidence of metastatic disease does NOT qualify. A patient with colon cancer with liver metastases and/or peritoneal seeding with tumor does qualify. - A patient with adenocarcinoma of the prostate confined to the capsule does NOT qualify. A patient with prostate cancer that extends through the capsule of the prostate only does NOT qualify. A patient with prostate cancer with bony metastases DOES qualify. Report Acute Lymphocytic Leukemia (ALL), Acute Myelogenous Leukemia (AML) and Stage IV Lymphoma under this variable. Do not report Chronic Lymphocytic Leukemia (CLL), Chronic Myelogenous Leukemia (CML), Multiple Myeloma or Lymphomas that are Stage I-III as disseminated cancer. %Library.EnumString 392 DISSEMINATED_CANCER_YN FileMan Field Label: 'DIVISION' FileMan Field Number: '50' Medical Center Division This is the name of the institution credited for performing this operative procedure. VALIP.prosthetic.fm2cw.INSTITUTION4 199 DIVISION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {DIVISION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIVISION_NAME 1 FileMan Field Label: 'DNR STATUS' FileMan Field Number: '238' DNR Status (Y/N) Definition Revised (2004): If the patient has had a Do-Not-Resuscitate (DNR) order written in the physician's order sheet of the patient's chart and it has been signed or co-signed by an attending physician [this is the only condition under which a DNR order is official in the VA in the 30 days prior to this surgery], enter "YES". If the DNR order as defined above was rescinded immediately prior to surgery in order to operate on the patient, enter "YES". Answer "NO" if DNR discussions are documented in the progress note, but no official DNR order has been written in the physician order sheet or if the attending physician has not signed the official order. %Library.EnumString 291 DNR_STATUS FileMan Field Label: 'DONOR ABO TYPE' FileMan Field Number: '653' Donor ABO Type This is the ABO Type of the transplant donor. %Library.EnumString 619 DONOR_ABO_TYPE FileMan Field Label: 'DONOR ORG VER PRE-ANES' FileMan Field Number: '752' Donor Organ Verification Prior to Anesthesia This field documents whether the organ to be removed and transplanted, including laterality when applicable, was documented prior to donor anesthesia. For cases not involving live donors, select 'NA' for not applicable. %Library.EnumString 708 DONOR_ORG_VER_PREANES FileMan Field Label: 'DONOR SEROLOGY CMV' FileMan Field Number: '651' Donor Serology Cytomegalovirus (CMV) This is the Cytomegalovirus (CMV) status for the transplant donor. Enter 'Yes' if positive, 'N' if negative, 'NA' if unknown or not tested. %Library.EnumString 617 DONOR_SEROLOGY_CMV FileMan Field Label: 'DONOR SEROLOGY HBV' FileMan Field Number: '650' Donor Serology Hepatitis B Virus (HBV) This is the Hepatitis B virus (HBV) status for the transplant donor. Enter 'Yes' if positive, 'N' if negative, 'NA' if unknown or not tested. %Library.EnumString 616 DONOR_SEROLOGY_HBV FileMan Field Label: 'DONOR SEROLOGY HCV' FileMan Field Number: '649' Donor Serology Hepatitis C virus (HCV) This is the Hepatitis C virus (HCV) status for the transplant donor. Enter 'Yes' if positive, 'N' if negative, 'NA' if unknown or not tested. %Library.EnumString 615 DONOR_SEROLOGY_HCV FileMan Field Label: 'DONOR SEROLOGY HIV' FileMan Field Number: '652' Donor Serology HIV This is the HIV status for the transplant donor. Enter 'Yes' if positive, 'N' if negative, 'NA' if unknown or not tested. %Library.EnumString 618 DONOR_SEROLOGY_HIV FileMan Field Label: 'DONOR VESSEL DISPOSITION' FileMan Field Number: '665' Donor Vessel Disposition if not used Document disposition of donor vessels. %Library.EnumString 630 DONOR_VESSEL_DISPOSITION FileMan Field Label: 'DONOR VESSEL USAGE' FileMan Field Number: '663' Donor Vessel Usage This field documents if donor vessels were used. %Library.EnumString 629 DONOR_VESSEL_USAGE FileMan Field Label: 'DRESSING' FileMan Field Number: '41' Dressing(s) These are the dressing(s) used for this case. Although optional, this information may be useful in documentation of this case. %Library.String 191 DRESSING FileMan Field Label: 'DRESSING CONDITION' FileMan Field Number: '7' Dressing Condition This is the status of the drainage on the dressing. Although optional, this information may be useful in documentation of this case. %Library.EnumString 159 DRESSING_CONDITION FileMan Field Label: 'DRUG ADDICTION' FileMan Field Number: '324' Drug Addiction (Y/N) This determines whether this patient has a history of recreational or narcotic substance abuse. There is no time limit on this data element. %Library.EnumString 378 DRUG_ADDICTION FileMan Field Label: 'D/T BLOOD BANK ABO VERIF' FileMan Field Number: '747' Date/Time of Blood Bank ABO Verification Enter the date and time when the blood bank verified the ABO type of the transplant recipient. %Library.FilemanDate 703 DT_BLOOD_BANK_ABO_VERIF FileMan Field Label: 'D/T OF DESIRED PROCEDURE DATE' FileMan Field Number: '613' Date/Time of Desired Procedure Date Entry This field is the Date/Time stamp for when the provider saves the ORIGINAL DESIRED DATE field (#612) for surgical case in the system. %Library.FilemanTimeStamp 589 DT_OF_DESIRED_PROCEDURE_DATE FileMan Field Label: 'D/T OF SCHEDULED DATE ENTRY' FileMan Field Number: '615' Date/Time of Scheduled Date Entry This field is the Date/Time stamp for when the OR Scheduler saves the ORIGINAL SCHEDULED DATE field (#614) for the surgical case in the system. %Library.FilemanTimeStamp 591 DT_OF_SCHEDULED_DATE_ENTRY FileMan Field Label: 'D/T OR ABO VERIF' FileMan Field Number: '749' Date and Time OR ABO Verification This field documents the date and time when the ABO type of the transplant recipient was verified in the operating room. %Library.FilemanTimeStamp 705 DT_OR_ABO_VERIF FileMan Field Label: 'D/T PATIENT DISCH FROM ICU' FileMan Field Number: '471' Date and Time Patient Discharged from ICU VASQIP Definition (2010): This is the first date and time of the discharge from the intensive care unit (ICU). ICU is usually a surgical unit (SICU), although it may also include a post-anesthesia recovery unit off the operating room. It may also be a general ICU in which medical patients are also managed (MICU, CCU). This will always be the unit into which the patient goes immediately after surgery and is stabilized, ventilated and ultimately extubated. Do not include lower acuity units where the patient goes subsequently (i.e. stepdown, transitional care, telemetry, etc.). Do not include subsequent readmissions to the ICU. RI - The patient remains in ICU at 30 days after surgery. %Library.String 531 DT_PATIENT_DISCH_FROM_ICU FileMan Field Label: 'D/T PATIENT EXTUBATED' FileMan Field Number: '470' Date and Time Patient Extubated Definition Revised (2008): Indicate the date that the endotracheal tube is pulled for the first time after surgery. If a tracheostomy is performed to replace an oral intubation tube, intubation is considered continuous so the patient has not been extubated as long as the patient continues to require ventilator support. If the patient dies while intubated, indicate the date of death for this data element. Indicate "extubated prior to leaving the OR" in the Resource Comment if patient is extubated prior to leaving the OR. RI - The patient remains intubated and on ventilator at 30 days after surgery. %Library.String 530 DT_PATIENT_EXTUBATED FileMan Field Label: 'D/T PAT ARRIVES HOSP DAY SURG' FileMan Field Number: '742' Date/Time Patient Arrives for Day Surgery Date/Time patient arrives for day surgery. %Library.FilemanTimeStamp 698 DT_PAT_ARRIVES_HOSP_DAY_SURG FileMan Field Label: 'D/T PAT LEAVES HOSP DAY SURG' FileMan Field Number: '743' Date/Time Patient Leaves Hospital After Day Surgery Date/Time patient leaves hospital after day surgery. %Library.FilemanDate 699 DT_PAT_LEAVES_HOSP_DAY_SURG FileMan Field Label: 'DVT/THROMBOPHLEBITIS' FileMan Field Number: '263' Deep Vein Thrombosis (DVT)/Thrombophlebitis (Y/N) VASQIP Definition (2014): The identification of a new blood clot or thrombus within the deep venous system of an extremity, which may be coupled with inflammation. This does not include intra-parenchymal clots of solid organs or free intra-peritoneal clots. This diagnosis is confirmed by a duplex, venogram, CT scan or other imaging modality. The patient must be treated with or have documented recommendation for: therapeutic anti-coagulation therapy OR placement of a vena cava filter OR clipping of the vena cava. %Library.EnumString 317 DVTTHROMBOPHLEBITIS FileMan Field Label: 'DYNAMED NOTIFIED' FileMan Field Number: '81' DynaMed Notification Sent YES indicates at least one notification has been sent to DynaMed by way of the CoreFLS interface. A null value or zero indicates no notification has been sent. The first notification sent to DynaMed will be a NEW APPOINTMENT notification. Subsequent notifications will be for edit, cancel or delete notifications, as appropriate. %Library.EnumString 228 DYNAMED_NOTIFIED FileMan Field Label: 'DYSPNEA' FileMan Field Number: '325' Dyspnea Definition Revised (2007): The patient describes difficult, painful, or labored breathing. Dyspnea may be symptomatic of numerous disorders that interfere with adequate ventilation or perfusion of the blood with oxygen. The dyspneic patient is subjectively aware of difficulty with breathing. Select one of the following categories that best indicates the patient's subjective experience coupled with your objective assessment: (1) No dyspnea (2) Dyspnea upon moderate exertion (e.g., is unable to climb one flight of stairs without shortness of breath) (3) Dyspnea at rest (e.g., cannot complete a sentence without needing to take a breath) The time frame is at the time the patient is being considered as a candidate for surgery (which should be no longer than 30 days prior to surgery). If the patient's dyspnea status worsens prior to surgery, report the most severe. %Library.EnumString 379 DYSPNEA FileMan Field Label: 'EKG IN 24 HRS' FileMan Field Number: '.999' EKG Within 24 Hours (Y/N) This field determines whether the patient has had an EKG within the last 24 hours. %Library.EnumString 132 EKG_IN_24_HRS FileMan Field Label: 'ELECTROCAUTERY UNIT' FileMan Field Number: '.75' Electrocautery Unit This is information identifying the electrosurgical unit utilized during the operative procedure. The information may include, but is not limited to, unit number, ground pad lot number and/or expiration date, coag setting, cut setting, blend-BI:Setting and Bipolar BP:Setting. Examples: Electrocautery Unit: #7 HP206 COAG:50 CUT:50 BI:1 Electrocautery Unit: DAISY:18% or DAISY BP:18% Electrocautery Unit: VL#2 EXP 3/20/91 COAG:30 CUT:20 BI:2 #2 BP:20 (VL-VALLEYLAB) %Library.String 91 ELECTROCAUTERY_UNIT FileMan Field Label: 'ELECTROGROUND POSITION' FileMan Field Number: '.55' Electroground Placement This is the code corresponding to the area of placement of the dispersive electrode pad. VALIP.prosthetic.fm2cw.ELECTROGROUNDPOSITIONS138 78 ELECTROGROUND_POSITION FileMan Field Label: 'ELECTROGROUND POSITION (2)' FileMan Field Number: '6' Electroground Position (2) This is the code corresponding to the placement of the second dispersive electrode pad. VALIP.prosthetic.fm2cw.ELECTROGROUNDPOSITIONS138 158 ELECTROGROUND_POSITION_2 NAME Electroground Position This is the name of the Electroground Position. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ELECTROGROUND_POSITION_2_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ELECTROGROUND_POSITION_2_NAME 1 NAME Electroground Position This is the name of the Electroground Position. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ELECTROGROUND_POSITION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ELECTROGROUND_POSITION_NAME 1 FileMan Field Label: 'ELECTROPHYSIOLOGIC PROCEDURE' FileMan Field Number: '374' Electrophysiologic Procedure (Y/N) This determines whether any procedure was performed with cardiopulmonary bypass to correct an electrophysiologic disturbance, such as resection of bypass tract(s) for WPW or endocardial resection for ventricular tachycardia. (This does not include implantation of automatic internal cardiac defibrillator AICD) %Library.EnumString 436 ELECTROPHYSIOLOGIC_PROCEDURE FileMan Field Label: 'EMPLOYMENT STATUS PREOPERATIVE' FileMan Field Number: '442' Employment Status Preoperatively Employment status preoperatively is to be defined in the broad sense of regularly performed work activity with remuneration. %Library.EnumString 493 EMPLOYMENT_STATUS_PREOPERATIVE FileMan Field Label: 'ENDOCARDITIS' FileMan Field Number: '386' Endocarditis (Y/N) Definition Revised (2004): Indicate if the chart documents that active endocarditis was present within 30 days postoperatively. Endocarditis is defined as any postoperative intracardiac infection (usually on a valve) documented by two or more positive blood cultures with the same organism, and/or development of vegetations and valve destruction seen by echo or repeat surgery, and/or histologic evidence of infection at repeat surgery or autopsy. Patients with preoperative endocarditis who have the above evidence of persistent infection should be included. %Library.EnumString 449 ENDOCARDITIS FileMan Field Label: 'ENDOLEAK AT COMPLETION' FileMan Field Number: '715' Endoleak At Completion This field documents if the patient has an endoleak at the time of exit from the operating room. %Library.EnumString 671 ENDOLEAK_AT_COMPLETION FileMan Field Label: 'ENDOLEAK AT FOLLOW-UP' FileMan Field Number: '733' Endoleak At Follow-Up This field documents if the patient has an endoleak at the time of surgical postoperative follow-up. %Library.EnumString 689 ENDOLEAK_AT_FOLLOWUP FileMan Field Label: 'ENDOPHTHALMITIS TYPE' FileMan Field Number: '738' Endophthalmitis Type This field documents the appropriate response to indicate the Endophthalmitis Type. 0- No endophthalmitis 1- Bacterial 2- TASS %Library.EnumString 694 ENDOPHTHALMITIS_TYPE FileMan Field Label: '*ENDOVASCULAR REPAIR' FileMan Field Number: '505' *Endovascular Repair of Aorta VASQIP Definition (2010): Indicate if the patient had an endovascular repair of the descending thoracic aorta, ascending aorta, and/or aortic arch (e.g., aneurysm, pseudoaneurysm, dissection, penetrating ulcer, intramural hematoma, or traumatic disruption) with or without involving coverage of left subclavian artery origin, initial endoprosthesis plus descending thoracic aortic extension(s), if required, to level of celiac artery origin, with or without cardiopulmonary bypass. To include in VASQIP, an attending cardiothoracic surgeon must have been present and involved in the procedure. It is typically done under general anesthesia and may be performed in the operating room or interventional radiology operating area. %Library.EnumString 559 ENDOVASCULAR_REPAIR FileMan Field Label: 'END BP' FileMan Field Number: '.85' End Blood Pressure This is the patient's systolic/diastolic blood pressure at the end of the operative procedure. Although optional, this information may be useful in documentation of this case. %Library.String 99 END_BP FileMan Field Label: 'END PULSE' FileMan Field Number: '.84' End Pulse Rate This is the patient's pulse rate at the end of the operative procedure. %Library.Numeric 98 END_PULSE FileMan Field Label: 'END RESP' FileMan Field Number: '.86' End Respiratory Rate This is the patient's rate of respiration at the end of the operative procedure. This information may be useful in documentation of this case. %Library.Numeric 100 END_RESP FileMan Field Label: 'ENEMA(S) IF ORD' FileMan Field Number: '.975' Administration of Enema(s) Completed This indicates whether the administration of preoperative enema(s) were completed, if ordered. %Library.EnumString 106 ENEMAS_IF_ORD FileMan Field Label: 'ESOPHAGEAL VARICES' FileMan Field Number: '213' Esophageal Varices (Y/N) Definition Revised (2015): Esophageal varices are engorged collateral veins in the esophagus that bypass a scarred liver to carry portal blood to the superior vena cava. A sustained increase in portal pressure results in esophageal varices that are most frequently demonstrated by direct visualization at esophagoscopy. Esophageal varices must be present preoperatively and must be documented on a recent EGD, MRI or CT scan performed within 6 months prior to the surgical procedure. Choose from: Y- YES N- NO NS- NO STUDY %Library.EnumString 263 ESOPHAGEAL_VARICES FileMan Field Label: 'ESTIMATED CASE LENGTH' FileMan Field Number: '37' Estimated Case Length (HOURS:MINUTES) This is the amount of time estimated to perform this operative procedure. Your answer should be in the format of "HOURS:MINUTES". For example, if the procedure will last 2 and 1/2 hours, your answer would be 2:30. %Library.String 187 ESTIMATED_CASE_LENGTH FileMan Field Label: 'ESTIMATE OF MORTALITY' FileMan Field Number: '364' Physician's Preoperative Estimate of Operative Mortality Definition Revised (2006): This is the physician's (cardiologist or cardiac surgeon) subjective estimate of operative mortality based on the assessment of the total clinical picture. (To avoid bias introduced by knowledge of outcome, this must be completed preoperatively. Do not calculate from the computer program provided to you.) %Library.Numeric 425 ESTIMATE_OF_MORTALITY FileMan Field Label: 'ESTIMATE OF MORTALITY, DATE' FileMan Field Number: '364.1' Date/Time of Estimate of Operative Mortality This is the date and time that the estimate of mortality information was collected. %Library.String 426 ESTIMATE_OF_MORTALITY_DATE FileMan Field Label: 'ESU COAG RANGE' FileMan Field Number: '57' ESU Coagulation Range This is the power setting range on the Electrosurgical Unit during coagulation. This information is optional, but may be useful in documenting the case. %Library.String 205 ESU_COAG_RANGE FileMan Field Label: 'ESU CUTTING RANGE' FileMan Field Number: '58' ESU Cutting Range This is the power setting range on the Electrosurgical Unit during cutting. This information is optional, but may be useful in documenting the case. %Library.String 206 ESU_CUTTING_RANGE 2 DRINKS/DAY' FileMan Field Number: '246' ETOH >2 Drinks Per Day in the Two Weeks Prior to Admission Definition Revised (2004): The patient admits to drinking >2 ounces of hard liquor or more than two 12 oz. cans of beer or more than two 6 oz. glasses of wine per day in the two weeks prior to admission. If the patient is a "binge drinker" divide out the numbers of drinks during the binge by seven days, and then apply the definition.]]> %Library.EnumString 299 ETOH__2_DRINKSDAY FileMan Field Label: 'EXPECTED POST TRANSPLANT INDEX' FileMan Field Number: '745' Expected Post Transplant Index (EPTI) Expected Post Transplant Index (EPTI). %Library.Numeric 701 EXPECTED_POST_TRANSPLANT_INDEX FileMan Field Label: '30 DAY DEATH' FileMan Field Number: '342.1' 30-Day Death This field indicates whether operative death has occurred within 30 days of surgery. This field auto populates based on an entry into the DATE OF DEATH field (#342). If Date of Death occurs within 30 days or less of the Date of Operation, then this field is automatically updated to "Yes" when the Date of Death is saved. If the Date of Death is greater than 30 days from the Date of Operation or "NA" is entered then this field is automatically updated to "No" when the Date of Death is saved. %Library.EnumString 400 f30_DAY_DEATH FileMan Field Label: '30 DAY POSTOP STATUS' FileMan Field Number: '341' 30 Day Postoperative Status This is the patient's status 30 days postoperatively. Please select one of the following categories. 1. Discharged alive to home, nursing home, rehabilitation, or psychiatric facility 2. Died in Hospital perioperatively or postoperatively 3. Still in your VAMC facility in the ICU, on a medical-surgical floor, or undergoing rehabilitation therapy. 4. Transferred to the ICU or acute care floor of another VAMC facility from your VAMC without going home 5. Patient was discharged home, but was readmitted to any hospital within 30 days postoperatively due to a postoperative complication as confirmed by the Chief Surgical Resident, Principle Investigator, or Chief of Surgery. If the patient was readmitted due to a postoperative complication, please enter the information in the outcome section of the assessment. %Library.EnumString 398 f30_DAY_POSTOP_STATUS FileMan Field Label: '3M APC CLAIM TYPE' FileMan Field Number: '19900004' This field contains the APC Claim Type returned by the 3M Coding and Reimbursement interface. VALIP.prosthetic.fm2cw.f3MAPCCLAIMTYPE1990861 728 f3M_APC_CLAIM_TYPE VALUE This field is a numeric value representing the APC claim type. This value is passed back by 3M.]]> %Library.String 1 VALUE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {f3M_APC_CLAIM_TYPE_VALUE}=$select(SQLCODE=0:val,1:"")]]> 1 f3M_APC_CLAIM_TYPE_VALUE 1 FileMan Field Label: '3M APC COPAY AMT' FileMan Field Number: '19900006' This is the amount that the patient might be expected to co-pay. %Library.Numeric 730 f3M_APC_COPAY_AMT FileMan Field Label: '3M APC HCFA AMT' FileMan Field Number: '19900007' This is the calculated dollar amount that HCFA might be expected to pay. %Library.Numeric 731 f3M_APC_HCFA_AMT FileMan Field Label: '3M APC TOTAL WEIGHT' FileMan Field Number: '19900005' This field contains the total APC weight value. %Library.String 729 f3M_APC_TOTAL_WEIGHT FileMan Field Label: '3M BILL TYPE' FileMan Field Number: '19900002' This field is the outpatient bill type returned by the 3M Coding and Reimbursement System. %Library.String 727 f3M_BILL_TYPE FileMan Field Label: '3M STATUS' FileMan Field Number: '19900001' This field is the status of the bill payment returned by the 3M Coding and Reimbursement System. %Library.String 726 f3M_STATUS FileMan Field Label: '3M TOTAL REIMBURSEMENT' FileMan Field Number: '19900000' This field is the total reimbursement amount returned by the 3M Coding and Reimbursement System. %Library.Numeric 725 f3M_TOTAL_REIMBURSEMENT FileMan Field Label: 'FEV1' FileMan Field Number: '347' FEV1 Definition revised (2015): This is the forced expiratory volume (in liters) in one second from the most recent pulmonary function test prior to surgery. Identify only a FEV1 value that is pre-bronochodilator treatment. Enter 'NS' if there has been no pulmonary function tests in the preceding year. %Library.String 405 FEV1 FileMan Field Label: 'FINAL ANESTHESIA TEMP (C)' FileMan Field Number: '.65' Final Anesthesia Temperature (C) This is the temperature, in degrees centigrade, at the time of the end of anesthesia care. %Library.Numeric 86 FINAL_ANESTHESIA_TEMP_C FileMan Field Label: 'FINAL COUNTS VERIFY CORRECT' FileMan Field Number: '.52' Status of Final Counts This is the code corresponding to the status of the final count at the end of the surgical procedure. %Library.EnumString 73 FINAL_COUNTS_VERIFY_CORRECT FileMan Field Label: 'FIRST ASST' FileMan Field Number: '.15' First Assistant This is the name of the person assisting the surgeon during the operative procedure. The information entered here appears on the Operation Report and Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.NEWPERSON200 29 FIRST_ASST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {FIRST_ASST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FIRST_ASST_NAME 1 FileMan Field Label: 'FISTULA' FileMan Field Number: '693' Fistula This field documents if an abnormal connection occurs between a hollow or tubular organ and the body surface, or between two hollow or tubular organs within 90 days of the index surgical procedure. %Library.EnumString 651 FISTULA FileMan Field Label: 'FLOPPY IRIS INTRAOP' FileMan Field Number: '735' Floppy Iris in the OR This field documents if there is medical record documentation of the diagnosis of intraoperative floppy iris for the operative eye. %Library.EnumString 691 FLOPPY_IRIS_INTRAOP FileMan Field Label: 'FOLEY CATHETER INSERTED BY' FileMan Field Number: '.57' Foley Catheter Inserted By This is the name of the person accountable for insertion of the Foley catheter. Although this information is optional, it may be useful in documentation of this case. VALIP.prosthetic.fm2cw.NEWPERSON200 80 FOLEY_CATHETER_INSERTED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {FOLEY_CATHETER_INSERTED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FOLEY_CATHETER_INSERTED_BY_NAME 1 FileMan Field Label: 'FOLEY CATHETER SIZE' FileMan Field Number: '.56' Foley Catheter Size This is the size of the Foley catheter. %Library.Numeric 79 FOLEY_CATHETER_SIZE FileMan Field Label: '*FOREIGN BODY REMOVAL' FileMan Field Number: '381' *Foreign Body Removal (Y/N) This determines whether a procedure was performed to remove any foreign body (e.g. bullet or catheter fragment) from the heart with the aid of cardiopulmonary bypass. %Library.EnumString 443 FOREIGN_BODY_REMOVAL FileMan Field Label: 'FRESHLY SHAVED' FileMan Field Number: '.986' Freshly Shaved (Y/N) This indicates whether the patient's facial hair was freshly shaved prior to being transported to the operating room. %Library.EnumString 119 FRESHLY_SHAVED FileMan Field Label: '*FUNCTIONAL HEALTH STATUS' FileMan Field Number: '240' *Functional status VASQIP Definition (2011): This is a question that focuses on the patient's abilities to perform activities of daily living (ADLs) in the 30 days prior to surgery. Activities of daily living are defined as 'the activities usually performed in the course of a normal day in a person's life'. ADLs include: bathing, feeding, dressing, toileting, and mobility. Report the corresponding level of self-care for activities of daily living demonstrated by this patient at the time the patient is being considered as a candidate for surgery (which should be no longer than 30 days prior to surgery). If the patient's status changes prior to surgery, that change should be reflected in your assessment. For this time point, report the level of functional health status as defined by the following criteria. (1) Independent: The patient does not require assistance from another person for any activities of daily living. This includes a person who is able to function independently with prosthetics, equipment, or devices. (2) Partially dependent: The patient requires some assistance from another person for activities of daily living. This includes a person who utilizes prosthetics, equipment, or devices but still requires some assistance from another person for ADLs. (3) Totally dependent: The patient requires total assistance for all activities of daily living. (4) Unknown: If unable to ascertain the functional status. All patients with psychiatric illnesses should be evaluated for their ability to function with or without assistance with ADLs just as the non-psychiatric patient. For instance, if a patient with schizophrenia is able to care for him/herself without the assistance of nursing care, he/she is considered independent. %Library.EnumString 293 FUNCTIONAL_HEALTH_STATUS FileMan Field Label: 'GASTRIC OUTPUT' FileMan Field Number: '62' Gastric Output (cc's) This is the gastric output during the operative procedure. It is recorded in cc's, and appears on the Nurse Intraoperative Report. %Library.Numeric 210 GASTRIC_OUTPUT FileMan Field Label: 'GASTROINTESTINAL (Y/N)' FileMan Field Number: '486' Gastrointestinal (Y/N) This determines whether the patient has a history of gastrointestinal problems such as esophageal varices. %Library.EnumString 546 GASTROINTESTINAL_YN FileMan Field Label: 'GENERAL COMMENTS' FileMan Field Number: '.28' General Comments These are general comments about the operative procedure. Any information not provided for elsewhere can be entered here. %Library.String 58 GENERAL_COMMENTS FileMan Field Label: 'GENERAL (Y/N)' FileMan Field Number: '402' General Medical Problems (Y/N) This determines whether the patient has any general medical problems, such as diabetes, dyspnea, or alcohol related illnesses. %Library.EnumString 465 GENERAL_YN FileMan Field Label: 'GLAUCOMA' FileMan Field Number: '702' Glaucoma (Y/N) This field documents if there is medical record documentation of a glaucoma diagnosis for the operative eye. %Library.EnumString 660 GLAUCOMA FileMan Field Label: 'GRAFT/PROSTHESIS/FLAP FAILURE' FileMan Field Number: '261' Graft/Prosthesis/Flap Failure (Y/N) Definition Revised (2015): An extracardiac graft (including myocutaneous flaps or skin grafts) or prosthesis (including stents, mesh) is considered to have failed when it requires additional intervention via return to the operating room or interventional radiology. Failures include those caused by an infectious process or a mechanical issue. %Library.EnumString 315 GRAFTPROSTHESISFLAP_FAILURE FileMan Field Label: '*GREAT VESSEL REPAIR (Y/N)' FileMan Field Number: '372' *Great Vessel Repair (Y/N) Definition Revised (2006): Indicate if patient had a thoracic great vessel open repair of the aorta (ascending, transverse, and/or descending) or other great vessels, with or without cardiopulmonary bypass, with or without aortic valve replacement, CABG, or other procedure but excluding an endovascular repair of the descending thoracic aorta. %Library.EnumString 434 GREAT_VESSEL_REPAIR_YN FileMan Field Label: 'HAIR REMOVAL BY' FileMan Field Number: '.12' Preop Surgical Site Hair Removal by This is the person responsible for removing the patient's hair in preparation for the operative procedure (if necessary). VALIP.prosthetic.fm2cw.NEWPERSON200 27 HAIR_REMOVAL_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {HAIR_REMOVAL_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HAIR_REMOVAL_BY_NAME 1 FileMan Field Label: 'HAIR REMOVAL COMMENTS' FileMan Field Number: '508' If SHAVING is selected as the hair removal method, a comment must be entered explaining why SHAVING was used. If OTHER is selected as the hair removal method, comments must be entered explaining the method used. %Library.String 563 HAIR_REMOVAL_COMMENTS FileMan Field Label: 'HAIR REMOVAL METHOD' FileMan Field Number: '506' Surgical Site Hair Removal Method This is the method used to remove hair prior to surgery. Shaving is not a preferred method for hair removal. If SHAVING is selected, a comment must be entered in the HAIR REMOVAL COMMENTS field explaining why SHAVING was used. If OTHER is selected, comments must be entered explaining the method used. %Library.EnumString 560 HAIR_REMOVAL_METHOD FileMan Field Label: 'HDL (CARDIAC)' FileMan Field Number: '457' HDL (mg/dl) Definition Revised (2006): Indicate the HDL result (mg/dl) preoperatively evaluated closest to surgery. Entering "NS" for "No Study" is allowed. %Library.String 511 HDL_CARDIAC FileMan Field Label: 'HDL, DATE' FileMan Field Number: '457.1' HDL, Date Definition Revised (2006): Indicate the date that the preoperative HDL value was assessed. Enter "NS" for No Study if the HDL test was not performed. %Library.String 512 HDL_DATE FileMan Field Label: 'HEAD AND/OR NECK CANCER' FileMan Field Number: '.023' Treatment related to Head and/or Neck Cancer (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Head and/or Neck Cancer. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 15 HEAD_ANDOR_NECK_CANCER FileMan Field Label: 'HEAD OR NECK CANCER' FileMan Field Number: '700' History Of Head Or Neck Cancer (Y/N) This field documents a history of cancers of the mouth, nose, sinuses, salivary glands, throat OR skin cancers of the head/neck with lymph nodes metastases in the neck. Do not include any skin cancer without lymph node involvement. %Library.EnumString 658 HEAD_OR_NECK_CANCER FileMan Field Label: 'HEIGHT' FileMan Field Number: '236' Patient's Height VASQIP Definition (2010): Height: Report the patient's most recent height before surgery documented in the medical record in either inches (25 to 86 in) or centimeters (63 to 218 cm). If you are entering the patient's height in centimeters, enter 'C' after the number of centimeters. Your answer should be in one of the following two formats. 68 (representing inches) 173C (representing centimeters) The software pulls the most recent height measurement, regardless of when it was taken. The date of the measurement returned by the capture process is displayed on the data input screen. %Library.String 287 HEIGHT FileMan Field Label: 'HEIGHT MEASUREMENT DATE' FileMan Field Number: '236.1' Date of Height Measurement This is the date of the patient's height measurement. This date is taken from the VITALS software. %Library.FilemanDate 288 HEIGHT_MEASUREMENT_DATE FileMan Field Label: 'HEMIPLEGIA/HEMIPARESIS (Y/N)' FileMan Field Number: '400' Hemiplegia/Hemiparesis (Y/N) Definition Revised (2004): Patient has sustained acute or chronic neuromuscular injury resulting in total or partial paralysis or paresis (weakness) of one side of the body. Enter YES if the patient has hemiplegia/hemiparesis (that has not recovered or been rehabilitated) upon arrival to the OR. Enter YES if there is hemiplegia or hemiparesis associated with a CVA/Stroke also. %Library.EnumString 463 HEMIPLEGIAHEMIPARESIS_YN FileMan Field Label: 'HEMOGLOBIN A1C' FileMan Field Number: '504' Hemoglobin A1c Definition Revised (2006)/(2007): Indicate the Hemoglobin A1c result (%) preoperatively evaluated closest to surgery. Entering "NS" for "No Study" is allowed. %Library.String 557 HEMOGLOBIN_A1C FileMan Field Label: 'HEMOGLOBIN A1C, DATE' FileMan Field Number: '504.1' Hemoglobin A1c, Date Definition Revised (2006)/(2007): Indicate the date that the preoperative Hemoglobin A1c value was assessed. Enter "NS" for No Study if the Hemoglobin A1c test was not performed. %Library.String 558 HEMOGLOBIN_A1C_DATE FileMan Field Label: 'HEPATOBILIARY (Y/N)' FileMan Field Number: '244' Hepatobiliary (Y/N) This determines whether the patient has a history of hepatobiliary illnesses. %Library.EnumString 297 HEPATOBILIARY_YN %Library.EnumString 322 HEPATOMEGALY ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 497 HIGHEST_ANION_GAP ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 333 HIGHEST_CPK ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 334 HIGHEST_CPKMB FileMan Field Label: 'HIGHEST GLUCOSE' FileMan Field Number: '276' Highest Postoperative Glucose This is the highest result of a postoperative glucose test for the patient selected. %Library.Numeric 331 HIGHEST_GLUCOSE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 330 HIGHEST_POTASSIUM ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 332 HIGHEST_SERUM_CREATININE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 329 HIGHEST_SERUM_SODIUM ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 507 HIGHEST_SERUM_TROPONIN_I ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 509 HIGHEST_SERUM_TROPONIN_T ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 335 HIGHEST_TOTAL_BILIRUBIN ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 336 HIGHEST_WBC FileMan Field Label: 'HIGHEST WBC, DATE' FileMan Field Number: '312' Date Highest WBC was Recorded This is the date that the highest WBC was recorded. %Library.FilemanDate 367 HIGHEST_WBC_DATE FileMan Field Label: 'HIGH ANION GAP, DATE' FileMan Field Number: '445.1' Date Highest Anion Gap was Recorded This is the date that the highest postoperative Anion Gap was recorded. %Library.FilemanDate 498 HIGH_ANION_GAP_DATE FileMan Field Label: 'HIGH CPK-MB, DATE' FileMan Field Number: '310' Date Highest CPK-MB Band was Recorded This is the date that the highest CPK-MB Band result was recorded. %Library.FilemanDate 365 HIGH_CPKMB_DATE FileMan Field Label: 'HIGH CPK, DATE' FileMan Field Number: '309' Date Highest CPK was Recorded This is the date that the highest CPK result was recorded. %Library.FilemanDate 364 HIGH_CPK_DATE FileMan Field Label: 'HIGH GLUCOSE, DATE' FileMan Field Number: '307' Date Highest Glucose was Recorded This is the date that the highest Glucose result was recorded. %Library.FilemanDate 362 HIGH_GLUCOSE_DATE FileMan Field Label: 'HIGH HEART RATE 6HRS PREOP' FileMan Field Number: '716' Highest Heart Rate W/IN 6 Hours of OR Start Enter the highest heart rate in beats per minute recorded in the medical record during the 6 hours preceding entry into the operating room. %Library.Numeric 672 HIGH_HEART_RATE_6HRS_PREOP FileMan Field Label: 'HIGH HEART RATE INTRAOP' FileMan Field Number: '717' Highest Heart Rate in the OR Enter the highest heart rate in beats per minute recorded in anesthesia records from time of entry to time of exit from the operating room. %Library.Numeric 673 HIGH_HEART_RATE_INTRAOP FileMan Field Label: 'HIGH LACTIC ACID 6HRS PREOP' FileMan Field Number: '719' Highest Lactic Acid Within 6 Hrs of OR Start Enter the highest lactic acid (units = mmol/liter) measured from during the 6 hours prior to entry into the operating room. Do not enter a value if arterial pH was not measured in the 6 hours preceding entry into the operating room. %Library.Numeric 675 HIGH_LACTIC_ACID_6HRS_PREOP FileMan Field Label: 'HIGH LACTIC ACID INTRAOP' FileMan Field Number: '720' Highest Lactic Acid in the OR Enter the highest lactic acid (units = mmol/liter) measured from entry into the operating room to exit from the operating room. Do not enter a value if lactic acid was not measured in the operating room. %Library.Numeric 676 HIGH_LACTIC_ACID_INTRAOP FileMan Field Label: 'HIGH POTASSIUM, DATE' FileMan Field Number: '306' Date Highest Potassium was Recorded This is the date that the highest Potassium result was recorded. %Library.FilemanDate 361 HIGH_POTASSIUM_DATE FileMan Field Label: 'HIGH SERUM CREATININE, DATE' FileMan Field Number: '308' Date Highest Serum Creatinine was Recorded This is the date that the highest Serum Creatinine result was recorded. %Library.FilemanDate 363 HIGH_SERUM_CREATININE_DATE FileMan Field Label: 'HIGH SERUM SODIUM, DATE' FileMan Field Number: '305' Date Highest Serum Sodium was Recorded This is the date that the highest Serum Sodium result was recorded. %Library.FilemanDate 360 HIGH_SERUM_SODIUM_DATE FileMan Field Label: 'HIGH SERUM TROPONIN I, DATE' FileMan Field Number: '455.1' Date Highest Postop Troponin I was Performed This is the date that the highest postop serum troponin I was performed. %Library.FilemanDate 508 HIGH_SERUM_TROPONIN_I_DATE FileMan Field Label: 'HIGH SERUM TROPONIN T, DATE' FileMan Field Number: '456.1' Date Highest Postop Troponin T was Performed This is the date that the highest postop serum troponin T was performed. %Library.FilemanDate 510 HIGH_SERUM_TROPONIN_T_DATE FileMan Field Label: 'HIGH TOTAL BILIRUBIN, DATE' FileMan Field Number: '311' Date Highest Total Bilirubin was Recorded This is the date that the highest Total Bilirubin was recorded. %Library.FilemanDate 366 HIGH_TOTAL_BILIRUBIN_DATE FileMan Field Label: 'HISTORY OF CANCER DIAGNOSIS' FileMan Field Number: '673' History of Cancer Diagnosis This field documents if the patient has a history of any cancer regardless of stage or treatment. For skin cancers include all melanomas and squamous cell cancers with nodal involvement. Exclude basal cell cancer. %Library.EnumString 638 HISTORY_OF_CANCER_DIAGNOSIS %Library.EnumString 253 HISTORY_OF_COPD %Library.EnumString 575 HISTORY_OF_CVD FileMan Field Label: '*HISTORY OF MI' FileMan Field Number: '394' *History of MI Within Past 6 Months (Y/N) Definition Revised (2004): The history of a non-Q wave or a Q wave infarct in the six months prior to surgery as diagnosed in the patient's medical record. %Library.EnumString 457 HISTORY_OF_MI %Library.EnumString 388 HISTORY_OF_TIAS FileMan Field Label: 'HOMELESS' FileMan Field Number: '473' Homeless (Yes/No) Definition Revised (2004): If the patient indicates he/she does not have a fixed dwelling, indicate the person's status as homeless. %Library.EnumString 533 HOMELESS FileMan Field Label: 'HOSPITAL ADMISSION DATE' FileMan Field Number: '418' Hospital Admission Date/Time Definition Revised (2011): The date and time of the hospital admission to this VAMC associated with this surgical case as found in the PIMS package. If the patient was admitted directly to surgery and then admitted to the hospital, use the date of surgery as the date of admission. Entering NA for "NOT APPLICABLE" is allowed for non-cardiac surgery patients. %Library.String 482 HOSPITAL_ADMISSION_DATE FileMan Field Label: 'HOSPITAL ADMISSION STATUS' FileMan Field Number: '.011' Hospital Admission Status Definition Revised (2015): This field indicates the patient's acute hospital admission status on the calendar day of surgery. Enter "1" or "S" if the operation was same day (the patient was not admitted); "2" or "A" if the patient was admitted on the calendar day of surgery; or "3" or "H" if the patient was already hospitalized on the calendar day prior to surgery. Observation is considered outpatient care, not related to an inpatient admission, therefore entered as "1" or "S". %Library.EnumString 4 HOSPITAL_ADMISSION_STATUS FileMan Field Label: 'HOSPITAL DISCHARGE DATE' FileMan Field Number: '419' Hospital Discharge Date/Time Definition Revised (2011): Indicate the date of the hospital discharge associated with this surgical case. Patients transferred to a referring facility should be indicated as discharged from current admission. Patients transferred to the psychiatric unit or any chronic care facility located at the VA facility (e.g., a nursing home) should be indicated as discharged from current admission at the date and time of the transfer to this different facility. (Do not indicate the date of data input, unless the patient was actually discharged on this same date.) Patients who remain as inpatients for reasons other than for post- open heart procedures should continue to be followed until discharged (including the rehabilitation service) even if the cardiothoracic team discharges the patient from their service or would discharge the patient home. If the patient remains in the hospital and/or has subsequent surgeries, indicate such in the CARDIAC RESOURCE DATA COMMENTS field (#431.) %Library.String 483 HOSPITAL_DISCHARGE_DATE FileMan Field Label: 'HX DEEP VEIN THROMBOSIS' FileMan Field Number: '676' History of Deep Vein Thrombosis or Pulmonary Embolism (DVT/PE) Indicate diagnosis of deep venous thrombosis and/or pulmonary embolism confirmed by imaging. Do not include DVT or PE that was clinically suspected but not confirmed by imaging. %Library.EnumString 641 HX_DEEP_VEIN_THROMBOSIS FileMan Field Label: 'HX RAD RX PLANNED SURG FIELD' FileMan Field Number: '674' History of Radiation Therapy to Planned Surgical Field This field documents if the patient received therapeutic radiation to the region of the planned surgical field. %Library.EnumString 639 HX_RAD_RX_PLANNED_SURG_FIELD FileMan Field Label: 'HX RETINAL DETACHMENT' FileMan Field Number: '704' History Of Retinal Detachment (Y/N) This field documents if there is medical record documentation of a history of retinal detachment for the operative eye. %Library.EnumString 661 HX_RETINAL_DETACHMENT FileMan Field Label: '*HYPERTENSION' FileMan Field Number: '463' *History of Hypertension (Y/N) Definition Revised (2004): Indicate if the patient has a documented history of hypertension with or without current treatment of antihypertensive medication(s). If a diuretic agent is prescribed to treat hypertension, indicate Yes for both the hypertension and the diuretic questions. (YES/NO). %Library.EnumString 523 HYPERTENSION FileMan Field Label: 'HYPERTENSION' FileMan Field Number: '641' Hypertension VASQIP Definition (2014): Indicate if the patient has a documented history of hypertension within the 30 days prior to surgery. Select the one appropriate response: 1. No history of hypertension 2. Yes without medication therapy 3. Yes with medication therapy (antihypertensive therapy: diuretics, beta blockers, ACE inhibitors, calcium channel blockers, etc.) 4. Unknown %Library.EnumString 609 HYPERTENSION0 140 mm Hg or a diastolic blood pressure >90 mm Hg or requires an antihypertensive treatment (e.g., diuretics, beta blockers, ACE inhibitors, calcium channel blockers) at the time the patient is being considered as a candidate for surgery which should be no longer than 30 days prior to surgery. Hypertension must be documented in the patient's chart. ]]> %Library.EnumString 258 HYPERTENSION_REQUIRING_MEDS FileMan Field Label: 'HYPOXEMIA W/IN 6HRS PREOP' FileMan Field Number: '732' Hypoxemia Within 6 Hours of OR Start This field documents the PaO2:FiO2 ratio. %Library.EnumString 688 HYPOXEMIA_WIN_6HRS_PREOP FileMan Field Label: 'ICD ON NURSE REPORT' FileMan Field Number: '1006' This field reflects the content of the ICD ON NURSE INTRAOP site parameter in SURGERY SITE PARAMETERS file (#133). This field will be set at the time the Nurse Intraoperative Report is signed and will be checked any time an automatic addendum is made to the report to determine whether the ICD codes should appear on the report. %Library.EnumString 722 ICD_ON_NURSE_REPORT Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRF(0),""^"",3)") 1 2 IEN FileMan Field Label: 'ILEUS/BOWEL OBSTRUCTION' FileMan Field Number: '345' Prolonged Ileus/Bowel Obstruction (Y/N) This determines whether the patient has prolonged ileus or bowel obstruction. Ileus is obstruction of the intestines from a variety of causes including mechanical obstruction, peritonitis, adhesions, or post surgically as a result of functional dysmotility by the bowel. Bowel obstruction is any hindrance to the passage of the intestinal contents. Prolonged ileus or obstruction is defined as persisting longer than 5 days postoperatively. %Library.EnumString 403 ILEUSBOWEL_OBSTRUCTION FileMan Field Label: 'IMAGING CONFIRMED COMMENTS' FileMan Field Number: '83' This word-processing field contains comments related to the PREOPERATIVE IMAGING CONFIRMED field. The information entered in this field clarifies entry that is entered as "NO". %Library.String 230 IMAGING_CONFIRMED_COMMENTS FileMan Field Label: 'IMAG TIMESTAMP' FileMan Field Number: '76' Imaging Confirmed Timestamp This field is updated whenever the PREOPERATIVE IMAGING CONFIRMED field (#72) is entered or changed. %Library.FilemanTimeStamp 223 IMAG_TIMESTAMP FileMan Field Label: 'IMMED USE-CONTAMINATION' FileMan Field Number: '619' Immed Use Steril-Contamination Indicate the number of cycles of Immediate Use Steam Sterilization due to contamination of a specialty item (one of a kind) in the OR. %Library.Numeric 595 IMMED_USECONTAMINATION FileMan Field Label: 'IMMED USE-DECONTAMINATION' FileMan Field Number: '624' Immed Use Steril-Decontamination of Instruments Not for Use In Patient Indicate the number of cycles of Immediate Use Steam Sterilization due to contamination of instruments already in use in OR for any reason not included in tracking. %Library.Numeric 600 IMMED_USEDECONTAMINATION FileMan Field Label: 'IMMED USE-EMERGENCY CASE' FileMan Field Number: '621' Immed Use Steril-Emergency Case Indicate the number of cycles of Immediate Use Steam Sterilization due to an Emergency Case, such as instruments used on previous case. %Library.Numeric 597 IMMED_USEEMERGENCY_CASE FileMan Field Label: 'IMMED USE-LOANER INSTRUMENT' FileMan Field Number: '623' Immed Use Steril-Loaner or Short Notice Instrument Indicate the number of cycles of Immediate Use Steam Sterilization due to loaner or short notice instrument excluding implants (instrument(s) not available with sufficient time to reprocess completely). %Library.Numeric 599 IMMED_USELOANER_INSTRUMENT FileMan Field Label: 'IMMED USE-NO BETTER OPTION' FileMan Field Number: '622' Immed Use Steril-No Better Option Indicate the number of cycles of Immediate Use Steam Sterilization due to items for which there may be no better option (batteries, radioactive implants (seeds)). %Library.Numeric 598 IMMED_USENO_BETTER_OPTION FileMan Field Label: 'IMMED USE-SPS/OR MGT ISSUE' FileMan Field Number: '620' Immed Use Steril-SPS Processing/OR Management Issues Indicate the number of cycles of Immediate Use Steam Sterilization due to SPS processing and OR management issues (unsterile from SPS, hole in package, available in SPS but not sterilized, not processed in time, missing in set, or broken in set). %Library.Numeric 596 IMMED_USESPSOR_MGT_ISSUE FileMan Field Label: 'IMMUNOCOMPROMISED STATE PREOP' FileMan Field Number: '668' Immunocompromised State Preop This field documents if the patient has received any medication in a dosage known to suppress immune system function within 30 days prior to operation. %Library.EnumString 633 IMMUNOCOMPROMISED_STATE_PREOP FileMan Field Label: 'IMPAIRED COGNITIVE FUNCTION' FileMan Field Number: '662' Impaired Cognitive Function in the 90 Days Preop Indicate if there is any documented history of memory loss, functional deficits or declining cognitive skills in the 90 days prior to surgery. %Library.EnumString 628 IMPAIRED_COGNITIVE_FUNCTION FileMan Field Label: 'IMPAIRED SENSORIUM' FileMan Field Number: '332' Impaired Sensorium (Y/N) Definition Revised (2015): Patient is acutely confused and/or delirious and responds to verbal and/or mild tactile stimulation. Patients should be noted to have developed an impaired sensorium if they have mental status changes, and/or delirium in the context of the current illness. Patients with chronic or long-standing mental status changes secondary to chronic mental illness (e.g., schizophrenia) or chronic dementing illnesses (e.g., multi-infarct dementia, senile dementia of the Alzheimer's type) should not be included. Answer "Yes" if the criteria for this definition applies at any time within 48 hours preop. If the patient develops impaired sensorium, then progresses to a coma, and remains in a coma entering surgery, report just coma. Choose from: Y YES N NO NS NO STUDY %Library.EnumString 386 IMPAIRED_SENSORIUM FileMan Field Label: 'IMPLANT INFECTIONS' FileMan Field Number: '690' Implant Infections This field documents if infection of, in, or surrounding a non-human-derived foreign body occurs within 365 days following permanent implantation by an invasive procedure in the operating room. %Library.EnumString 648 IMPLANT_INFECTIONS FileMan Field Label: 'INCISION TYPE' FileMan Field Number: '468' Incision Type This describes the incision used for cardiac access, according to the operative report. (Do not include incisions for port access.) Enter NS if incision type is unknown. - Limited Sternotomy: The incision cuts through a small portion (less than half of the length) of the sternum (the narrow, flat bone in the median line of the thorax in the front of the chest). - Full Sternotomy: The incision cuts through the entire length of the sternum (the narrow, flat bone in the median line of the thorax in the front of the chest). - Limited Thoracotomy: A small surgical incision through a portion of the chest wall, but not along the sternum. For example, an anterolateral thoracotomy approach may be used in LIMA to LAD grafting. - Full Thoracotomy: A larger surgical incision running across the chest wall, but not along the sternum. This may be a left submammary incision, which requires the resection of the fourth costal cartilage and /or deflation of the left lung. - Limited Parasternal Approach: The incision cuts beside a small portion (less than 0.5 of the length) of the sternum, on a line midway between the sternal margin and an imaginary line passing through the nipple. - Other Limited Surgical Approach: An incision or incision set used to visualize the operating field that is not listed above. %Library.EnumString 528 INCISION_TYPE FileMan Field Label: 'INDICATIONS FOR OPERATIONS' FileMan Field Number: '55' Indications for Operations This is a brief statement of the indications for this operative procedure. The information you enter here prints automatically as the first part of the operative summary. %Library.String 203 INDICATIONS_FOR_OPERATIONS FileMan Field Label: 'INDUCTION COMPLETE' FileMan Field Number: '.215' Induction Complete Time This is the date and time that the anesthetist declares the patient ready for the start of the operative procedure. Although optional, this information may be useful in management studies. %Library.FilemanDate 48 INDUCTION_COMPLETE FileMan Field Label: 'INJURY TO ADJACENT ORGAN' FileMan Field Number: '687' Injury To Adjacent Organ This field documents the level of intervention required in the event of an unintended injury to an adjacent organ/structure during the surgical procedure. Choose from the following answer options: 0. No unintended injury to an adjacent organ/structure during the surgical procedure. 1. Unintended injury to an adjacent organ/structure that resulted in an intervention to manage the injury. 2. Unintended injury to an adjacent organ/structure that did not require intervention to manage the injury. %Library.EnumString 645 INJURY_TO_ADJACENT_ORGAN FileMan Field Label: 'INSTRUMENT FINAL COUNT CORRECT' FileMan Field Number: '46' Instrument Final Count Correct This indicates whether the instrument final count was correct for this case. This information appears on the Nurse Intraoperative Report. The type of information entered in this field is determined by local hospital policy. %Library.EnumString 195 INSTRUMENT_FINAL_COUNT_CORRECT FileMan Field Label: '*INST CNT CORRECT' FileMan Field Number: '.523' Status of the Final Instrument Count Enter the code corresponding to the status of the final instrument count at the end of the surgical procedure. This field is marked for deletion. %Library.EnumString 75 INST_CNT_CORRECT FileMan Field Label: 'INST CNT VERF BY' FileMan Field Number: '.525' Instrument Count Verified By This is the name of the person accountable for verification of the final instrument count. VALIP.prosthetic.fm2cw.NEWPERSON200 76 INST_CNT_VERF_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {INST_CNT_VERF_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INST_CNT_VERF_BY_NAME 1 FileMan Field Label: 'INTRAOPERATIVE ASCITES' FileMan Field Number: '446' Intraoperative Ascites VASQIP Definition (2010): Intraoperative Ascites: The presence of fluid accumulation in the peritoneal cavity noted during the operative procedure. Documentation should state a history of or active liver disease (e.g. jaundice, encephalopathy, hepatomegaly, portal hypertension, liver failure, or spider telangiectasia). %Library.EnumString 499 INTRAOPERATIVE_ASCITES FileMan Field Label: 'INTRA-OPERATIVE X-RAY' FileMan Field Number: '636' Intra-Operative X-Ray VASQIP Definition (2014): This indicates that a radiograph of the entire surgical field to rule out a retained surgical item was performed and interpreted by a physician at the completion of the surgical procedure, prior to the patient's transfer from the Operating Room. This question must be answered if any of the final sponge, sharps or instrument counts are recorded as incorrect. %Library.EnumString 604 INTRAOPERATIVE_XRAY FileMan Field Label: 'INTRAOPERATIVE X-RAYS' FileMan Field Number: '1.035' Intraoperative X-Rays (Y/N/C) This indicates if radiology personnel is needed in the operating room for intraoperative radiologic procedures. %Library.EnumString 136 INTRAOPERATIVE_XRAYS FileMan Field Label: 'INTRA-OPERATIVE X-RAY COMMENTS' FileMan Field Number: '637' VASQIP Definition (2014): These are comments related to the reason(s) an intraoperative x-ray was or was not performed that may be useful in the documentation of this case and/or subsequent comments related to the radiograph findings. %Library.String 605 INTRAOPERATIVE_XRAY_COMMENTS FileMan Field Label: 'INTRAOP DISSEMINATED CANCER' FileMan Field Number: '443' Intraoperative Disseminated Cancer (Y/N) VASQIP Definition (2010): Intraoperative Disseminated Cancer: Patients who have cancer that was found during the operative procedure that: (1) Has spread to one site or more sites in addition to the primary site AND (2) In whom the presence of multiple metastases indicates the cancer is widespread, fulminant, or near terminal. Other terms describing disseminated cancer include "diffuse," "widely metastatic," "widespread," or "carcinomatosis" or AJCC "Stage IV" cancer. Common sites of metastases include major organs (e.g., brain, lung, liver, meninges, abdomen, peritoneum, pleura, and bone). You may use the National Cancer Institute as a reference in determining whether a patient has AJCC Stage IV cancer, when the TNM information is the only information documented. Refer to the following website for assistance with translating TNM values with AJCC staging: http://www.cancer.gov/cancertopics/pdq/adulttreatment Examples: - A patient with a primary breast cancer with positive nodes in the axilla does NOT qualify for this definition. The tumor has spread to a site other than the primary site, but does not have widespread metastases. A patient with primary breast cancer with positive nodes in the axilla AND liver metastases does qualify, because the tumor has spread to the axilla and other major organs. - A patient with colon cancer and no positive nodes or distant metastases does NOT qualify. A patient with colon cancer and several local lymph nodes positive for tumor, but no other evidence of metastatic disease does NOT qualify. A patient with colon cancer with liver metastases and/or peritoneal seeding with tumor does qualify. - A patient with adenocarcinoma of the prostate confined to the capsule does NOT qualify. A patient with prostate cancer that extends through the capsule of the prostate only does NOT qualify. A patient with prostate cancer with bony metastases DOES qualify. * Report Acute Lymphocytic Leukemia (ALL), Acute Myelogenous Leukemia (AML) and Stage IV Lymphoma under this variable. Do not report Chronic Lymphocytic Leukemia (CLL), Chronic Myelogenous Leukemia (CML), Multiple Myeloma or Lymphomas that are Stage I-III as disseminated cancer. %Library.EnumString 494 INTRAOP_DISSEMINATED_CANCER FileMan Field Label: 'INTRAOP RBC UNITS TRANSFUSED' FileMan Field Number: '340' Number of RBC Units Given Intraoperatively Definition Revised (2014): Indicate the number of packed or whole red blood cells given during the operative procedure as it appears on the anesthesia record. The amount of blood reinfused from the cell saver should also be noted here. The algorithm for cell saver volume to RBC unit determination is: 0 units - 0-124 cc's 1 unit - 125 - 375 cc's 2 units - 376 - 625 cc's 3 units - 626 - 875 cc's %Library.String 397 INTRAOP_RBC_UNITS_TRANSFUSED FileMan Field Label: 'IN OR TO ANES START' FileMan Field Number: '12' This is the number of minutes between the time anesthesia care began and time that the patient left the operating room. %Library.String 1 164 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,12,9.2) S X1=Y(130,12,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {IN_OR_TO_ANES_START}=X 1 IN_OR_TO_ANES_START FileMan Field Label: 'IN OR TO OP START TIME' FileMan Field Number: '14' Time Between Time in OR and Operation Start Time This is the time between the time the patient enters the operating room to the operation start time. %Library.String 1 166 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,14,9.2) S X1=Y(130,14,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {IN_OR_TO_OP_START_TIME}=X 1 IN_OR_TO_OP_START_TIME FileMan Field Label: 'IONIZING RADIATION EXPOSURE' FileMan Field Number: '.018' Treatment related to Ionizing Radiation Exposure (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Ionizing Radiation Exposure. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 10 IONIZING_RADIATION_EXPOSURE FileMan Field Label: 'IPSILAT CORTICAL EVENT PREOP' FileMan Field Number: '710' Ipsilateral Cortical Event w/in 6 months prior to surgery This field documents if the patient was documented to have a history of a cerebrovascular accident, reversible ischemic neurological deficit or a transient ischemic attack within the 180 days prior to surgery. %Library.EnumString 667 IPSILAT_CORTICAL_EVENT_PREOP FileMan Field Label: 'IV NTG WITHIN 48 HOURS' FileMan Field Number: '355' IV NTG within 48 Hours Preceding Surgery (Y/N) This determines whether the patient was administered nitroglycerin intravenously within 48 hours prior to surgery. %Library.EnumString 413 IV_NTG_WITHIN_48_HOURS FileMan Field Label: 'IV STARTED BY' FileMan Field Number: '63' IV Started By This is the name of the person that started the IV for this operative procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 211 IV_STARTED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {IV_STARTED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 IV_STARTED_BY_NAME 1 FileMan Field Label: 'KIDNEY DONOR PROFILE INDEX' FileMan Field Number: '744' Kidney Donor Profile Index (KDPI) Kidney Donor Profile Index (KDPI). %Library.Numeric 700 KIDNEY_DONOR_PROFILE_INDEX FileMan Field Label: 'LAD STENOSIS' FileMan Field Number: '362.1' Left Anterior Descending (LAD) Stenosis Definition Revised (2004): Indicate the most severe percent stenosis in the left anterior descending coronary artery. Synonyms for this artery include: LAD, AD, and anterior descending (but does not include the diagonals). If there is no obstruction of the LAD, indicate zero. Entering "NS" for "No Study/Unknown" is also allowed. %Library.String 421 LAD_STENOSIS FileMan Field Label: 'LASER TYPE' FileMan Field Number: '128' Type of Laser This determines whether a laser was used during this procedure. If applicable, enter the type of laser used during this surgical procedure. %Library.String 246 LASER_TYPE FileMan Field Label: 'LATERALITY OF PROCEDURE' FileMan Field Number: '638' Laterality Of Procedure This indicates that the side of the procedure is identified as either left, right or bilateral, when applicable to the procedure. %Library.EnumString 606 LATERALITY_OF_PROCEDURE FileMan Field Label: 'LDL (CARDIAC)' FileMan Field Number: '461' LDL (mg/dl) Definition Revised (2006): Indicate the LDL result (mg/dl) preoperatively evaluated closest to surgery. Entering "NS" for "No Study" is allowed. %Library.String 519 LDL_CARDIAC FileMan Field Label: 'LDL, DATE (CARDIAC)' FileMan Field Number: '461.1' LDL, Date Definition Revised (2006): Indicate the date that the preoperative LDL value was assessed. Enter "NS" for No Study if the LDL test was not performed. %Library.String 520 LDL_DATE_CARDIAC FileMan Field Label: 'LEFT MAIN STENOSIS' FileMan Field Number: '361' Left Main Stenosis Definition Revised (2004): Indicate the most severe percent diameter reduction of the left main coronary artery, including its most distal portion. If there is no obstruction of the left main coronary artery, indicate zero. Entering "NS" for "No Study/Unknown" is also allowed. %Library.String 419 LEFT_MAIN_STENOSIS FileMan Field Label: 'LENGTH OF POST-OP STAY' FileMan Field Number: '247' Length of Postoperative Hospital Stay Definition Revised (2004): The software will automatically calculate the total number of days that the patient stayed in the acute care services of the medical center. The number of days should include the day after surgery and the date of discharge or transfer to intermediate or chronic care facilities. Enter NA if LENGTH OF POST-OP STAY is not applicable. %Library.String 300 LENGTH_OF_POSTOP_STAY FileMan Field Label: 'LEVIN TUBE/CATH' FileMan Field Number: '.989' Levin Tube/Catheter (Y/N) This indicates whether a Levin tube/catheter is present prior to transport to the operating room. %Library.EnumString 122 LEVIN_TUBECATH FileMan Field Label: 'LIVER DISEASE/CIRRHOSIS' FileMan Field Number: '666' Liver Disease/Cirrhosis This field documents whether there are biopsy, imaging, and/or clinical criteria to support diagnosis of cirrhosis. %Library.EnumString 631 LIVER_DISEASECIRRHOSIS FileMan Field Label: 'LOCK CASE' FileMan Field Number: '24' Case Locked This indicates whether this case has been completed and locked. Locked cases can only be edited if unlocked by the Chief of Surgery or his or her designee. %Library.EnumString 176 LOCK_CASE FileMan Field Label: 'LOWEST BICARBONATE 6HRS PREOP' FileMan Field Number: '726' Lowest Bicarbonate Within 6 Hrs Prior to OR Start Enter the lowest bicarbonate measurement (mmol/L) from an electrolyte panel or arterial blood gas obtained during the 6 hours prior to entry into the operating room. Do not enter a value if bicarbonate was not measured in the 6 hours preceding entry into the operating room. %Library.Numeric 682 LOWEST_BICARBONATE_6HRS_PREOP FileMan Field Label: 'LOWEST BICARBONATE INTRAOP' FileMan Field Number: '727' Lowest Biocarbonate in the OR Enter the lowest bicarbonate measurement (mmol/L) from an electrolyte panel or arterial blood gas obtained between entry and exit from the operating room. Do not enter a value if bicarbonate was not measured in the operating room. %Library.Numeric 683 LOWEST_BICARBONATE_INTRAOP ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 338 LOWEST_HEMATOCRIT FileMan Field Label: 'LOWEST PH 6HRS PREOP' FileMan Field Number: '721' Lowest PH Within 6 Hours Prior to OR Start Enter the lowest arterial pH obtained during the 6 hours prior to entry into the operating room. Do not enter a value if arterial pH was not measured in the 6 hours preceding entry into the operating room. %Library.Numeric 677 LOWEST_PH_6HRS_PREOP FileMan Field Label: 'LOWEST PH INTRAOP' FileMan Field Number: '722' Lowest PH in the OR Enter the lowest arterial pH obtained between from entry to and exit from the operation room. Do not enter a value if pH was not measured in the operation room. %Library.Numeric 678 LOWEST_PH_INTRAOP FileMan Field Label: 'LOWEST SERUM ALBUMIN' FileMan Field Number: '282' Lowest Postoperative Serum Albumin This is the lowest postoperative serum albumin result for the patient selected. %Library.Numeric 337 LOWEST_SERUM_ALBUMIN FileMan Field Label: 'LOW ARTERIAL PRESS 6HRS PREOP' FileMan Field Number: '718' Lowest Mean Arterial Pressure W/N 6 Hrs of OR Start Enter the lowest mean arterial blood pressure recorded in medical records for the 6 hours preceding entry into the operating room. %Library.Numeric 674 LOW_ARTERIAL_PRESS_6HRS_PREOP FileMan Field Label: 'LOW ARTERIAL PRESS INTRAOP' FileMan Field Number: '723' Lowest Mean Arterial Pressure in the OR Enter the lowest mean arterial blood pressure recorded in anesthesia records between entry to and exit from the operating room. %Library.Numeric 679 LOW_ARTERIAL_PRESS_INTRAOP 6 HOURS' FileMan Field Number: '387' Low Cardiac Output > 6 Hours (Y/N) This determines whether the patient has had a postoperative cardiac index of less than 2.0 L/min/M2 and/or peripheral manifestations (e.g. oliguria) of low cardiac output present for 6 or more hours following surgery requiring inotropic and/or intra-aortic balloon pump support. ]]> %Library.EnumString 450 LOW_CARDIAC_OUTPUT__6_HOURS FileMan Field Label: 'LOW HEMATOCRIT, DATE' FileMan Field Number: '314' Date Lowest Hematocrit was Recorded This is the date that the lowest Hematocrit result was recorded. %Library.FilemanDate 369 LOW_HEMATOCRIT_DATE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 469 LOW_POTASSIUM FileMan Field Label: 'LOW POTASSIUM, DATE' FileMan Field Number: '408' Date of Lowest Postoperative Potassium This is the date that the lowest potassium test result was recorded. %Library.FilemanDate 471 LOW_POTASSIUM_DATE FileMan Field Label: 'LOW SERUM ALBUMIN, DATE' FileMan Field Number: '313' Date Lowest Serum Albumin was Recorded This is the date that the lowest Serum Albumin result was recorded. %Library.FilemanDate 368 LOW_SERUM_ALBUMIN_DATE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 468 LOW_SERUM_SODIUM FileMan Field Label: 'LOW SODIUM, DATE' FileMan Field Number: '407' Date of Lowest Serum Sodium This is the date that the lowest serum sodium test result was recorded. %Library.FilemanDate 470 LOW_SODIUM_DATE FileMan Field Label: 'LVEDP' FileMan Field Number: '357' Left Ventricular End-Diastolic Pressure Definition Revised (2004): Indicate the patient's left ventricular end-diastolic pressure measured following the a-wave (if present) at the cardiac catheterization most recent prior to surgery. If LVEDP was not measured, entering "NS" for "No Study/Unknown" is also allowed. %Library.String 415 LVEDP FileMan Field Label: '*LV ANEURYSMECTOMY' FileMan Field Number: '371' *LV Aneurysmectomy (Y/N) This determines whether the patient had a resection or plication of a left ventricular aneurysm with or without additional procedures. %Library.EnumString 433 LV_ANEURYSMECTOMY = 0.55 or narrative reports indicating normal left ventricular function. II - Ejection fraction range from 0.45 to 0.54 or narrative report indicating mild left ventricular dysfunction. IIIa - Ejection fraction range from 0.40 to 0.44 or narrative report indicating moderate left ventricular dysfunction. If "moderate" is the only rating available, select this category. IIIb - Ejection fraction range from 0.35 to 0.39 or narrative report indicating moderately severe left ventricular dysfunction. IV - Ejection fraction range from 0.25 to 0.34 or narrative report indicating severe left ventricular dysfunction. V - Ejection fraction < 0.25 or narrative report indicating very severe left ventricular dysfunction. NS - If unable to make an assessment of the patient's left ventricular contraction grade or no study was performed, entering "NS" for "No Study/Unknown" is also allowed.]]> %Library.EnumString 424 LV_CONTRACTION_SCORE FileMan Field Label: 'MACULAR DEGENERATION' FileMan Field Number: '701' Macular Degeneration (Y/N) This field documents if there is medical record documentation of the diagnosis for the operative eye. %Library.EnumString 659 MACULAR_DEGENERATION FileMan Field Label: 'MAJOR/MINOR' FileMan Field Number: '.03' Major or Minor Definition Revised (2004): Major - Any operation performed under general, spinal, or epidural anesthesia plus all inguinal herniorrhaphies, carotid endarterectomies, parathyroidectomies, thyroidectomies, breast lumpectomies, or endovascular AAA repairs regardless of anesthesia administered. Minor - All operations not designated as Major. %Library.EnumString 18 MAJORMINOR FileMan Field Label: 'MALLAMPATI SCALE' FileMan Field Number: '901.1' Mallampati Scale Definition Revised (2004): The Mallampati classification relates tongue size to pharyngeal size. This test is performed with the patient in sitting position, the head held in a neutral position, the mouth wide open, and the tongue protruding to the maximum. The subsequent classification is assigned based upon the pharyngeal structures that are visible: Class I - visualization of the soft palate, fauces, uvula, and anterior and posterior pillars. Class II - visualization of the soft palate, fauces, and uvula. Class III - visualization of the soft palate and the base of the uvula. Class IV - soft palate is not visible at all. The classification assigned by the clinician may vary if the patient is in the supine position (instead of sitting). If the patient phonates, this falsely improves the view. If the patient arches his or her tongue, the uvula is falsely obscured. A class I view suggests ease of intubation and correlates with a laryngoscopic view grade I 99 to 100% of the time. Class IV view suggests a poor laryngoscopic view, grade III or IV 100% of the time. Refer to the Operations Manual for a visual depiction of the Mallampati Classification. %Library.EnumString 711 MALLAMPATI_SCALE FileMan Field Label: 'MANDIBULAR SPACE' FileMan Field Number: '901.2' Mandibular Space (length in mm) In the sitting position with head extended, enter the distance between the inside of the mentum and the top of the thyroid cartilage in millimeters. The mandibular space (MS) and the oral-pharyngeal (OP) score are used in figuring a performance index which is translated to the patient's airway index. (Performance Index = 2.5 x OP - MS length in cm) %Library.Numeric 712 MANDIBULAR_SPACE FileMan Field Label: 'MARKED SITE COMMENTS' FileMan Field Number: '84' This word-processing field contains comments related to the MARKED SITE CONFIRMED field. The information entered in this field clarifies entry that is entered as "NO". %Library.String 231 MARKED_SITE_COMMENTS FileMan Field Label: 'MARKED SITE CONFIRMED' FileMan Field Number: '73' Mark on Surgical Site Confirmed The site can and must be marked in almost all cases. Mucous membranes and other sites not on the skin cannot be marked using standard methods and do not need to be. See applicable VHA Handbooks and Directives for further information and guidance. If entered "NO", a justification should be documented in the Marked Site Comments. %Library.EnumString 220 MARKED_SITE_CONFIRMED FileMan Field Label: 'MARKED SITE CONFIRMED' FileMan Field Number: '605' Confirm Proc. Site has been Marked Appropriately and the Site of the Mark is Visible After Prep The site must be marked in all cases. If the patient refuses marking, or if the site is inappropriate to marking, such as mucous membranes and other sites not on the skin that cannot be marked using standard methods, then wristbands must be used for marked site. See applicable VHA Handbooks and Directives for further information and guidance. If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 581 MARKED_SITE_CONFIRMED0 FileMan Field Label: '*MAZE PROCEDURE' FileMan Field Number: '482' *Maze Procedure Definition Revised (2004): Indicate if patient had a Maze procedure either with or without placing the patient on cardiopulmonary bypass. A Maze procedure is a surgical intervention used to interrupt atrial conduction pathways often associated with atrial fibrillation or atrial flutter. It may be performed alone or in combination with other cardiac procedures. (YES/NO). %Library.EnumString 542 MAZE_PROCEDURE FileMan Field Label: '*MAZE PROCEDURE' FileMan Field Number: '512' *Maze Procedure Definition Revised (2006): Indicate if patient had a Maze procedure either with or without placing the patient on cardiopulmonary bypass. A Maze procedure is a surgical intervention used to interrupt abnormal atrial conduction pathways that cause atrial fibrillation or atrial flutter. It may be performed alone or in combination with other cardiac procedures. (A Maze does not include an amputation/resection of the atrial appendage as an isolated procedure; an intraoperative electrophysiologic mapping procedure; nor any surgical or ablation procedure conducted on the ventricle for control of ventricular arrhythmias.) Indicate the one most appropriate response: No - No Maze performed Full Maze - The procedure is most often performed on-bypass through a median sternotomy. A combination of incisions and thermal (cryo) or radiofrequency ablations of the atrial wall pathways are done, typically including amputation/resection of the one or both atrial appendices. The procedure thus creates a "maze" of electrical propogation roots involving the entire atrial myocardium with only one side of entrance (the sinus node) and one side of exit (the AV node). Mini-Maze - A more limited and simpler procedure than the traditional full maze, the Mini-Maze is based on the finding that in most patients, ectopic foci located in the pulmonary veins are responsible for the initiation of atrial fib. Radiofrequency or a cryo-ablation probe is used either inside or outside of the pulmonary vein ostia to destroy the foci. It can be performed with or without resection of the atrial appendage and includes no incision or minimal incisions to the left atrium, rather than the extensive atrial surgical procedure conducted for the full Maze. The Mini can be performed on or off bypass through a median sternotomy or performed thorascopically to the outside of the pulmonary veins. %Library.EnumString 566 MAZE_PROCEDURE0 FileMan Field Label: '*MECHANICAL VENT W/N 30 DAYS' FileMan Field Number: '645' *Mechanical Ventilation within 30 Days Definition Revised (2014): Indicate if ventilator support required within 30 days after initial post-operative extubation: If the patient was placed on ventilator support postoperatively for any reason within 30 days AND occurred during the same admission in-hospital. (For example, the patient is on the ventilator intra-op and immediately post-op. Then patient is weaned and the ventilator is discontinued. Later, the patient gets into trouble and mechanical ventilation has to be reinstated.) In patients who were not intubated during surgery, intubation at any time after their surgery is considered an occurrence. %Library.EnumString 613 MECHANICAL_VENT_WN_30_DAYS FileMan Field Label: 'MEDIASTINITIS' FileMan Field Number: '388' Mediastinitis (Y/N) Definition Revised (2004): Indicate if the patient developed a bacterial infection involving the sternum or deep to the sternum requiring drainage and anti-microbial therapy diagnosed within 30 days after surgery. %Library.EnumString 451 MEDIASTINITIS FileMan Field Label: 'MEDICAL SPECIALTY' FileMan Field Number: '125' Medical Specialty This is the medical specialty credited for doing this non-OR procedure. Many reports are sorted by the medical specialty. This field should be entered prior to completion of this non-OR procedure. VALIP.prosthetic.fm2cw.MEDICALSPECIALTY723 244 MEDICAL_SPECIALTY NAME This is the name of the medical specialty. This information will be used when entering procedures within the Event Capture software.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {MEDICAL_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_SPECIALTY_NAME 1 FileMan Field Label: 'MILITARY SEXUAL TRAUMA' FileMan Field Number: '.022' Treatment related to Military Sexual Trauma (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Military Sexual Trauma. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 14 MILITARY_SEXUAL_TRAUMA FileMan Field Label: 'MINIMALLY INVASIVE PROC (Y/N)' FileMan Field Number: '441' Minimally Invasive Procedure Technique Used (Y/N) Was a minimally invasive procedure technique used, Yes or No? %Library.EnumString 492 MINIMALLY_INVASIVE_PROC_YN FileMan Field Label: 'MIN INTRAOP TEMPERATURE (C)' FileMan Field Number: '.36' Lowest Intraoperative Temperature (C) This is the lowest temperature of the patient during the operative procedure. If entered, this information will appear on the Nurse Intraoperative Report. %Library.Numeric 69 MIN_INTRAOP_TEMPERATURE_C FileMan Field Label: 'MISC. CARDIAC PROCEDURES' FileMan Field Number: '375' Miscellaneous Cardiac Procedures This determines whether there were any miscellaneous cardiac procedures performed. %Library.EnumString 437 MISC__CARDIAC_PROCEDURES 4 - 8 cm2. Severe - The area of the regurgitant jet is greater than 8 cm2 or greater than one third of the total left atrial area. NS - If no study was performed, entering "NS" for "No Study/Unknown" is also allowed.]]> %Library.EnumString 479 MITRAL_REGURGITATION FileMan Field Label: 'MITRAL STENOSIS' FileMan Field Number: '697' Mitral Stenosis This field documents if patient has mitral stenosis documented on invasive or non-invasive cardiac testing. %Library.EnumString 655 MITRAL_STENOSIS FileMan Field Label: '*MITRAL VALVE PROCEDURE' FileMan Field Number: '368' *Mitral Valve Procedure VASQIP Definition (2010): Indicate if the patient had a mitral valve replacement (either the native or a prosthetic valve) or a repair (on the native valve to relieve stenosis and/or correct regurgitation -annuloplasty, commissurotomy, etc.); performed with or without additional procedure(s); either with or without placing the patient on cardiopulmonary bypass. (If a repair was attempted, but a replacement occurred, indicate the details of the replacement valve.) Indicate the one most appropriate procedure: * None * Mechanical Valve * Stented Bioprosthetic Valve * Stentless Bioprosthetic Valve * Homograft * Primary Valve Repair * Primary Valve Repair and Annuloplasty Device * Annuloplasty Device alone * Autograft Procedure (Ross Procedure) * Other %Library.EnumString 430 MITRAL_VALVE_PROCEDURE FileMan Field Label: '*MYECTOMY' FileMan Field Number: '378' *Myectomy (Y/N) Definition Revised (2011): Indicate if patient had resection of a portion of the interventricular septum, with or without placing the patient on cardiopulmonary bypass. (YES/NO) %Library.EnumString 440 MYECTOMY 5x 99th percentile URL) in patients with normal baseline values (<99th percentile URL) or a rise of cTn values >20% if the baseline values are elevated and are stable or falling, AND at least one of the following: a. Symptoms suggestive of myocardial ischemia b. Presumed new ischemic ECG changes c. Angiographic findings consistent with a procedural complication d. Imaging evidence of new loss of viable myocardium e. New regional wall motion abnormality 4. Stent thrombosis associated with MI when detected by coronary angiography or autopsy in the setting of myocardial ischemia and with a rise and/or fall of cardiac biomarker values with at least one value above the 99th percentile URL. 5. Coronary artery bypass grafting (CABG) related MI is arbitrarily defined by elevation of cardiac biomarker values (>10x 99th percentile URL) in patients with normal baseline cTn values (<99th percentile URL), AND at least one of the following a. Development of pathological Q waves in the ECG b. New LBBB c. Angiographic documented new graft or new native coronary artery occlusion d. Imaging evidence of new loss of viable myocardium e. New regional wall motion abnormality]]> %Library.EnumString 311 MYOCARDIAL_INFARCTION FileMan Field Label: '*MYXOMA RESECTION' FileMan Field Number: '377' *Myxoma Resection (Y/N) This determines whether a resection of an atrial myxoma was performed. %Library.EnumString 439 MYXOMA_RESECTION FileMan Field Label: 'NECROTIZING SOFT TISS INFECT' FileMan Field Number: '694' Necrotizing Soft Tissue Infection (Y/N) This field documents if the surgical procedure is performed to treat necrotizing soft tissue infection with or without skin, muscle, or fascial necrosis. %Library.EnumString 652 NECROTIZING_SOFT_TISS_INFECT FileMan Field Label: 'NEURO DEGENERATIVE DISEASE' FileMan Field Number: '337' Neuromuscular Degenerative Disease (Y/N) This determines whether the patient has neuromuscular degenerative disease. It is defined as any of a number of congenital, hereditary, or acquired diseases resulting in chronic neurological deficits. Common examples of these diseases include muscular dystrophy, amyotrophic lateral sclerosis (ALS or 'Lou Gerhig's Disease'), multiple sclerosis, and poliomyelitis. %Library.EnumString 391 NEURO_DEGENERATIVE_DISEASE FileMan Field Label: 'NEW MECHANICAL CIRCULATORY' FileMan Field Number: '467' New Mechanical Circulatory Support Definition Revised (2014): Indicate if the patient left the operating room suite with or required post-op placement of a new IABP, ECMO, or VAD for circulatory support within 30 days post-operatively. %Library.EnumString 527 NEW_MECHANICAL_CIRCULATORY FileMan Field Label: 'NON-OR LOCATION' FileMan Field Number: '119' Non-OR Location This is the location (file 44) where this non-OR procedure was performed. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 238 NONOR_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {NONOR_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 NONOR_LOCATION_NAME 1 FileMan Field Label: 'NON-OR PROCEDURE' FileMan Field Number: '118' Non-OR Procedure This field is a flag signifying this case is a non-OR surgical procedure. %Library.EnumString 237 NONOR_PROCEDURE FileMan Field Label: 'NON-UNION' FileMan Field Number: '689' Non-Union This field documents if either there is not complete healing of the involved bony structure by 6 months after surgery or if the surgeon confirms a diagnosis of non-union. %Library.EnumString 647 NONUNION FileMan Field Label: 'NPO AS ORD/CLIN MID' FileMan Field Number: '.976' Completion of NPO Orders This indicates whether NPO orders were completed prior to the operative procedure as ordered by the surgeon. %Library.EnumString 107 NPO_AS_ORDCLIN_MID FileMan Field Label: '*NUMBER WITH IMA' FileMan Field Number: '366' *CABG Distal Anastomoses with IMA This is the number of coronary artery bypass graft (CABG) anastomoses to native coronary arteries with internal mammary arteries (IMA) regardless of whether other procedures were performed. Do not leave this field blank. If no coronary artery bypass grafts were performed, enter '0'. %Library.Numeric 428 NUMBER_WITH_IMA FileMan Field Label: '*NUMBER WITH OTHER ARTERY' FileMan Field Number: '465' *Number with Other Artery This is the number of coronary artery bypass graft (CABG) anastomoses to native coronary arteries with other artery(ies) regardless of whether other procedures were performed. Do not leave blank, enter "zero" in the appropriate place if no coronary artery bypass grafts were performed with other artery(ies). Note that any CABG distal anastomoses performed without placing the patient on cardiopulmonary bypass are to be recorded. %Library.Numeric 525 NUMBER_WITH_OTHER_ARTERY FileMan Field Label: '*NUMBER WITH OTHER CONDUIT' FileMan Field Number: '416' *CABG Distal Anastomoses with Other Conduit Definition Revised (2004): This is the number of coronary artery bypass graft (CABG) anastomoses to native coronary arteries with other conduit(s) regardless of whether other procedures were performed. Do not leave this information blank. If no coronary artery bypass grafts with other conduits were performed, enter '0'. %Library.Numeric 480 NUMBER_WITH_OTHER_CONDUIT FileMan Field Label: '*NUMBER WITH RADIAL ARTERY' FileMan Field Number: '464' *Number with Radial Artery This is the number of coronary artery bypass graft (CABG) anastomoses to native coronary arteries with radial artery(ies) regardless of whether other procedures were performed. Do not leave blank, enter "zero" in the appropriate place if no coronary artery bypass grafts were performed with radial artery. Note that any CABG distal anastomoses performed without placing the patient on cardiopulmonary bypass are to be recorded. %Library.Numeric 524 NUMBER_WITH_RADIAL_ARTERY FileMan Field Label: '*NUMBER WITH VEIN' FileMan Field Number: '365' *CABG Distal Anastomoses with Vein This is the number of coronary artery bypass graft (CABG) anastomoses to native coronary arteries with vein regardless of whether other procedures were performed. Do not leave this information blank. If no coronary artery bypass grafts were performed, enter '0'. %Library.Numeric 427 NUMBER_WITH_VEIN FileMan Field Label: 'NUM OF CONCURRENT ANES CASES' FileMan Field Number: '.3512' Number Of Concurrent Anesthesiology Cases Including this case, enter the number of cases that the anesthesiologist supervised where the time of the anesthesia care overlapped with this care. This field is required to support billing for the care and is critical for accurate coding of the primary anesthesia procedure. Enter a zero if the anesthesiologist personally performed the care. Enter 1 if the principal anesthetist was not an anesthesiologist and was medically directed by an anesthesiologist. %Library.Numeric 66 NUM_OF_CONCURRENT_ANES_CASES 3.]]> %Library.EnumString 410 NUM_OF_PRIOR_HEART_SURGERIES FileMan Field Label: 'NURSE PRESENT TIME' FileMan Field Number: '.202' Time Nurse was Present This is the date and time that the nurse was present in the operating room. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanDate 41 NURSE_PRESENT_TIME FileMan Field Label: 'NURSING CARE COMMENTS' FileMan Field Number: '.29' Nursing Care Comments These are comments on this case required for documentation on the Nurse Intraoperative Report. %Library.String 59 NURSING_CARE_COMMENTS FileMan Field Label: 'NUTRITIONAL/IMMUNE/OTHER' FileMan Field Number: '245' Nutritional/Immune/Other (Y/N) This determines whether the patient has a history of illness related to nutrition, immune deficiencies or other general deficiencies. %Library.EnumString 298 NUTRITIONALIMMUNEOTHER FileMan Field Label: 'NUTRITIONAL SUPPLEMENT PREOP' FileMan Field Number: '672' Preop Nutritional Supplementation This field documents if the patient received a prescribed nutrition supplement with protein for at least five days prior to surgery. %Library.EnumString 637 NUTRITIONAL_SUPPLEMENT_PREOP FileMan Field Label: 'OBSERVATION ADMISSION DATE' FileMan Field Number: '452' Observation Admission Date/Time Definition Revised (2015): An observation patient is one who presents with a medical condition with a significant degree of instability or disability, and who needs to be monitored, evaluated and assessed for either admission to inpatient status or assignment to care in another setting. An observation patient can occupy a special bed set aside for this purpose or may occupy a bed in any unit of a hospital, i.e., urgent care, medical unit. These types of patients should be evaluated against standard inpatient criteria. These beds are not designed to be a holding area for Emergency Rooms. The length-of-stay in observation beds will not exceed 47 hours and 59 minutes. Following surgery, if the patient was admitted for observation, this is the date and time of admission for observation. If this information is not applicable, enter NA. %Library.String 504 OBSERVATION_ADMISSION_DATE FileMan Field Label: 'OBSERVATION DISCHARGE DATE' FileMan Field Number: '453' Observation Discharge Date/Time Definition Revised (2004): If the patient was admitted for observation following surgery, this is the date and time of discharge from observation. If this information in not applicable, enter NA. %Library.String 505 OBSERVATION_DISCHARGE_DATE FileMan Field Label: 'OBSERVATION TREATING SPECIALTY' FileMan Field Number: '454' Observation Treating Specialty Definition Revised (2004): If the patient was admitted for observation following surgery, this is the observation treating specialty to which the patient was admitted. If this information is not applicable, enter NA. VALIP.prosthetic.fm2cw.SPECIALTY424 506 OBSERVATION_TREATING_SPECIALTY NAME This field contains the name of the specialties allowable for selection through PTF. All FACILITY TREATING SPECIALTIES must relate to one of the entries in this file. This file is maintained by the MAS package and should not be altered in any way.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OBSERVATION_TREATING_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OBSERVATION_TREATING_SPECIALTY_NAME 1 FileMan Field Label: 'OCCURRENCE/NO PROCEDURE' FileMan Field Number: '54' Occurrence/No Procedure This indicates that this case was a occurrence, not related to a surgical procedure. %Library.EnumString 202 OCCURRENCENO_PROCEDURE %Library.EnumString 680 OLIGURIA_60CC2HRS_6HRS_PREOP %Library.EnumString 681 OLIGURIA_URINE_OUTPUT_INTRAOP 48 HOURS' FileMan Field Number: '285' On Ventilator > or = 48 Hours (Y/N) Definition Revised (2015): Total duration of ventilator-assisted respirations during postoperative hospitalization after leaving the OR was >48 hours. This can occur at any time during the 30-day period postoperatively. This time assessment is CUMULATIVE, not necessarily consecutive. Ventilator-assisted respirations can be via endotracheal tube, nasotracheal tube, or tracheostomy tube. This definition also applies if the patient was on the ventilator preoperatively and remained on the ventilator postoperatively >48 hours.]]> %Library.EnumString 340 ON_VENTILATOR_48_HOURS FileMan Field Label: 'OPEN WOUND' FileMan Field Number: '218' Open Wound With or Without Infection (Y/N) Definition Revised (2007): Evidence of an open wound that communicates to the air by direct exposure, with or without cellulitis or purulent exudate. This does not include osteomyelitis or localized abscesses. The wound must communicate to the air by direct exposure. Report mandible fractures under this preoperative variable. %Library.EnumString 268 OPEN_WOUND FileMan Field Label: 'OPERATIONS THIS ADMISSION' FileMan Field Number: '200' Operations this Admission This is the total number of surgical procedures, prior to the index or principal operation, which required the patient to be taken to the operating room for any type of surgical intervention during this hospital admission. Include all procedures whether or not they are part of the inclusion/exclusion criteria. %Library.Numeric 249 OPERATIONS_THIS_ADMISSION FileMan Field Label: 'OPERATION TIME' FileMan Field Number: '1.21' Operation Time This is the number of minutes between the operation start and end times. %Library.String 1 150 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,1.21,9.2) S X1=Y(130,1.21,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {OPERATION_TIME}=X 1 OPERATION_TIME FileMan Field Label: 'OPERATIVE DEATH' FileMan Field Number: '384' Operative Death (Y/N) Definition Revised (2006): Indicate if the patient died within the 30 days after surgery in or out of the hospital regardless of cause; or within the index hospitalization regardless of cause; or patient died greater than 30 days as a direct result of a perioperative occurrence of the surgery (e.g., mediastinitis). ("Discharge" can be noted when the patient leaves the Acute Care arena.) %Library.EnumString 447 OPERATIVE_DEATH FileMan Field Label: 'OPERATIVE FINDINGS' FileMan Field Number: '59' Operative Findings This field contains a brief description of the operative findings which appears on the Tissue Examination Report. %Library.String 207 OPERATIVE_FINDINGS FileMan Field Label: 'OP DISPOSITION' FileMan Field Number: '.46' Postoperative Disposition This is the destination of the patient upon transfer from OR staff care. VALIP.prosthetic.fm2cw.SURGERYDISPOSITION1316 72 OP_DISPOSITION DISPOSITION Disposition Name This is the name of the surgery disposition.]]> %Library.String 1 DISPOSITION into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OP_DISPOSITION_DISPOSITION}=$select(SQLCODE=0:val,1:"")]]> 1 OP_DISPOSITION_DISPOSITION 1 FileMan Field Label: 'OP NOTE POINTER' FileMan Field Number: '523011' VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 724 OP_NOTE_POINTER DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OP_NOTE_POINTER_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 OP_NOTE_POINTER_DOCUMENT_TYPE 1 FileMan Field Label: 'OP ROOM PROCEDURE PERFORMED' FileMan Field Number: '.02' Operating Room Procedure Performed This is the name of the operating room where the principal operation is performed for this patient. It can be selected by entering the name or abbreviation of the operating room. VALIP.prosthetic.fm2cw.OPERATINGROOM1317 12 OP_ROOM_PROCEDURE_PERFORMED FileMan Field Label: 'ORAL HYGIENE' FileMan Field Number: '.985' Oral Hygiene Completed (Y/N) This indicates whether the patient's oral hygiene was completed prior to being transported to the operating room. %Library.EnumString 118 ORAL_HYGIENE FileMan Field Label: 'ORDER NUMBER' FileMan Field Number: '100' This is the pointer to the ORDER file (100). It will be created when a case is requested. VALIP.prosthetic.fm2cw.ORDER100 233 ORDER_NUMBER ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {ORDER_NUMBER_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORDER_NUMBER_ORDER_ 1 FileMan Field Label: 'ORGAN/SPACE SSI' FileMan Field Number: '488' Organ/Space SSI Occurrences (Y/N) Definition Revised (2015): Organ/Space SSI is an infection that occurs within 30 days after the operation and the infection appears to be related to the operation and the infection involves any part of the anatomy (e.g., organs or spaces) , other than the incision, which was opened or manipulated during an operation and at least one of the following: - Purulent drainage from a drain that is placed through a stab wound into the organ/space. - Organisms isolated from an aseptically obtained culture of fluid or tissue in the organ/space. - An abscess or other evidence of infection involving the organ/space that is found on direct examination, during reoperation, or by histopathologic or radiologic examination. - Diagnosis of an organ/space SSI by a surgeon or attending physician. NOTE: Please consult with the operating surgeon for assignment of organ/space vs. deep wound infection occurrences. %Library.EnumString 549 ORGANSPACE_SSI FileMan Field Label: 'ORGAN VER PRE-ANESTHESIA' FileMan Field Number: '658' Organ Verification Prior to Anesthesia This field documents whether the organ was verified prior to anesthesia. %Library.EnumString 624 ORGAN_VER_PREANESTHESIA FileMan Field Label: 'ORGAN VER PRE-TRANSPLANT' FileMan Field Number: '660' Organ Verification Prior to Transplant This field documents whether the organ was verified prior to transplant. %Library.EnumString 626 ORGAN_VER_PRETRANSPLANT FileMan Field Label: 'ORIGINAL DESIRED DATE' FileMan Field Number: '612' Original Desired Procedure Date This field is the original desired date for surgery to occur, as agreed upon by the provider and patient. That agreed upon date is when the patient desires the surgery to occur and when the provider feels it is appropriate to schedule the surgery. If the DESIRED PROCEDURE DATE field (#616) is updated, the value of this field will not change. %Library.FilemanDate 588 ORIGINAL_DESIRED_DATE FileMan Field Label: 'ORIGINAL SCHEDULED DATE' FileMan Field Number: '614' Original Scheduled Date This field is the original scheduled date for surgery to occur, as entered by the OR scheduler. %Library.FilemanDate 590 ORIGINAL_SCHEDULED_DATE FileMan Field Label: 'OR ABO VERIFICATION (Y/N)' FileMan Field Number: '656' OR Verification of ABO Type (Y/N) This field documents whether the OR has verified the ABO type of transplant recipient. %Library.EnumString 622 OR_ABO_VERIFICATION_YN FileMan Field Label: 'OR ABO VER COMMENTS' FileMan Field Number: '748' OR ABO Verification Comments This field is for comments on for verification of ABO type of the transplant recipient in the operating room. %Library.String 704 OR_ABO_VER_COMMENTS FileMan Field Label: 'OR CLEAN END TIME' FileMan Field Number: '.236' Time O.R. Cleaning Ended This is the date and time when the 'end of case' or terminal cleaning ended. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanDate 54 OR_CLEAN_END_TIME FileMan Field Label: 'OR CLEAN START TIME' FileMan Field Number: '.234' Time O.R. Cleaning Began This is the date and time when the 'end of case' or terminal cleaning began. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanDate 53 OR_CLEAN_START_TIME FileMan Field Label: 'OR CLEAN UP TIME' FileMan Field Number: '1.25' O.R. Clean Up Time This is the number of minutes between the OR clean up start time and OR clean up end time. %Library.String 1 154 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,1.25,9.2) S X1=Y(130,1.25,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {OR_CLEAN_UP_TIME}=X 1 OR_CLEAN_UP_TIME FileMan Field Label: 'OR SET-UP TIME' FileMan Field Number: '.44' O.R. Set-Up Time This is the number of minutes (0-999) necessary to prepare the operating room for the admission of the patient for the surgical procedure. %Library.Numeric 71 OR_SETUP_TIME FileMan Field Label: 'OTHER BLOOD PRODUCT UNITS' FileMan Field Number: '695' Other Blood Product Units Blood products commonly administered in the operating room include platelets and fresh frozen plasma. Answer 1, 2, 3, 4, or 5 to indicate the specific blood product or combination of blood products that were administered in the operating room. Answer 0 if no product was administered. Do not include packed red blood cells (PRBCs) or cell saver blood when answering this question, as these are documented separately. %Library.EnumString 653 OTHER_BLOOD_PRODUCT_UNITS FileMan Field Label: 'OTHER CARDIAC OCCURRENCE' FileMan Field Number: '344' Other Cardiac Occurrence Definition Revised (2004): Enter any other cardiac related surgical occurrences which you feel to be significant and that are not covered by the predefined occurrence categories. Enter the ICD-CM code for this entry. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 402 OTHER_CARDIAC_OCCURRENCE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OTHER_CARDIAC_OCCURRENCE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 OTHER_CARDIAC_OCCURRENCE_CODE_NUMBER 1 FileMan Field Label: 'OTHER CARDIAC PROCEDURES' FileMan Field Number: '383.1' Other Procedure(s) Requiring Cardiopulmonary Bypass (List) Definition Revised (2004): This is the free text description of other procedures requiring cardiopulmonary bypass that were performed on this patient at the same time as the primary cardiac procedure. %Library.String 446 OTHER_CARDIAC_PROCEDURES FileMan Field Label: '*OTHER CARDIAC PROCEDURES-LIST' FileMan Field Number: '484' *Other cardiac procedures (specify) Definition Revised (2006): Specify if any cardiac surgical procedure (not listed above) was performed alone or in conjunction with the index procedure, either with or without placing the patient on cardiopulmonary bypass. %Library.String 544 OTHER_CARDIAC_PROCEDURESLIST FileMan Field Label: '*OTHER CARDIAC PROCEDURES (Y/N)' FileMan Field Number: '502' *Other Cardiac Procedures (Y/N) Definition Revised (2006): Indicate if any cardiac surgical procedure (not listed above) was performed alone or in conjunction with the index procedure, either with or without placing the patient on cardiopulmonary bypass (YES/NO). %Library.EnumString 556 OTHER_CARDIAC_PROCEDURES_YN FileMan Field Label: 'OTHER CNS OCCURRENCE' FileMan Field Number: '343' Other CNS Occurrence Definition Revised (2004): Enter any other neurologic related occurrences, which you feel to be significant and that are not covered by the predefined CNS occurrence categories. Enter the ICD-CM code for this entry. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 401 OTHER_CNS_OCCURRENCE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OTHER_CNS_OCCURRENCE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 OTHER_CNS_OCCURRENCE_CODE_NUMBER 1 FileMan Field Label: 'OTHER NON-CT PROCEDURES' FileMan Field Number: '491' Other non-CT procedures - independently requiring CPB Definition Revised (2004): If any other procedure - other than cardiothoracic - performed requiring placing the patient on cardiopulmonary bypass, specify details into the comment field. If no other non-CT procedure requiring CPB was performed, indicate "NS" for "No Study/Unknown" in the text field. %Library.String 552 OTHER_NONCT_PROCEDURES FileMan Field Label: 'OTHER OCCURRENCES' FileMan Field Number: '322' Other Postoperative Occurrences (Y/N) This determines whether the patient has had postoperative occurrences, such as Graft/Prosthesis Failure or Unplanned Return to OR, not included in any of the other categories. %Library.EnumString 376 OTHER_OCCURRENCES FileMan Field Label: 'OTHER OCCURRENCES (ICD)' FileMan Field Number: '392' Other Occurrences (ICD) Definition Revised (2004): Enter any other surgical occurrences which you feel to be significant and that are not covered by the predefined occurrence categories. Enter the ICD-CM code for this entry. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 455 OTHER_OCCURRENCES_ICD CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OTHER_OCCURRENCES_ICD_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 OTHER_OCCURRENCES_ICD_CODE_NUMBER 1 FileMan Field Label: 'OTHER PROCEDURES (Y/N)' FileMan Field Number: '383' Other Procedures (Y/N) This determines whether the patient had any other surgical procedure on the heart and/or great vessels (including AICD placement) requiring cardiopulmonary bypass. %Library.EnumString 445 OTHER_PROCEDURES_YN FileMan Field Label: 'OTHER RESPIRATORY OCCURRENCE' FileMan Field Number: '253' Other Respiratory Occurrence (ICD Diagnosis) Definition Revised (2004): Enter any other respiratory occurrences that you feel to be significant and that are not covered by the predefined respiratory occurrence categories. Enter the ICD-CM code for this entry. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 306 OTHER_RESPIRATORY_OCCURRENCE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OTHER_RESPIRATORY_OCCURRENCE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 OTHER_RESPIRATORY_OCCURRENCE_CODE_NUMBER 1 FileMan Field Label: '*OTHER TUMOR RESECTION' FileMan Field Number: '379' *Other Tumor Resection (Y/N) Definition Revised (2004): Indicate if patient had resection of any tumor other than atrial myxoma from the heart either with or without placing the patient on cardiopulmonary bypass. %Library.EnumString 441 OTHER_TUMOR_RESECTION FileMan Field Label: 'OTHER URINARY TRACT OCCURRENCE' FileMan Field Number: '286' Other Urinary Tract Occurrences (ICD Diagnosis) Definition Revised (2004): Enter any other urinary occurrences which you feel to be significant and that are not covered by the predefined urinary tract occurrence categories. Enter the ICD-CM code for this entry. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 341 OTHER_URINARY_TRACT_OCCURRENCE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OTHER_URINARY_TRACT_OCCURRENCE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 OTHER_URINARY_TRACT_OCCURRENCE_CODE_NUMBER 1 FileMan Field Label: 'OTHER WOUND OCCURRENCE' FileMan Field Number: '489' Other Wound Occurrence Definition Revised (2004): Enter any other wound occurrences that you feel to be significant and that are not covered by the predefined wound occurrence categories. Enter the ICD-CM code for this entry. (Example: Seromas, ICD-CM code: 998.13) VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 550 OTHER_WOUND_OCCURRENCE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {OTHER_WOUND_OCCURRENCE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 OTHER_WOUND_OCCURRENCE_CODE_NUMBER 1 FileMan Field Label: 'OUT-OF-OR UNPLANNED INTUBATION' FileMan Field Number: '422' Out-Of-OR Unplanned Intubation Within 30 Days VASQIP Definition (2015): Patient required unplanned placement of an endotracheal tube or other similar breathing tube out of the operating room for ventilator support within 30 days following surgery regardless of cause. This definition includes: 1) patients re-intubated out of the operating room following planned extubation and 2) patients who self-extubate out of the operating room and were not immediately re-intubated. %Library.EnumString 486 OUTOFOR_UNPLANNED_INTUBATION FileMan Field Label: 'PACKING' FileMan Field Number: '.875' Packing Type This is the code corresponding to the type of packing placed during the procedure that will remain in place when the patient is discharged from the operating room. %Library.EnumString 101 PACKING 200, just enter 200. If smoking history cannot be determined, enter "NS". The possible range for number of pack-years is 0 to 200. If the chart documents differing values for pack year cigarette history, or ranges for either packs/day or number of years patient has smoked, select the highest value documented, unless you are confident in a particular documenter's assessment (e.g., preoperative anesthesia evaluation often includes a more accurate assessment of this value because of the impact it may have on the patient's response to anesthesia).]]> %Library.String 252 PACKYEARS FileMan Field Label: 'PAC(U) ADMIT SCORE' FileMan Field Number: '1.11' PAC(U) Admission Score This is the objective evaluation numerical score of the patient upon admission to the post anesthesia care unit. %Library.Numeric 142 PACU_ADMIT_SCORE FileMan Field Label: 'PAC(U) DISCH SCORE' FileMan Field Number: '1.12' PAC(U) Discharge Score This is the objective evaluation numeric score of the patient at discharge from the post anesthesia care unit. %Library.Numeric 143 PACU_DISCH_SCORE FileMan Field Label: 'PAC(U) DISCH TIME' FileMan Field Number: '1.18' PAC(U) Discharge Date/Time This is the date/time that the patient is discharged from the post anesthesia care unit (recovery room). Times entered without a date will be converted to the date of operation at that time. Non-Cardiac Definition Revised (2004): Discharge from Post-Anesthesia Care Unit (DPACU): Time patient is transported out of PACU. %Library.FilemanDate 147 PACU_DISCH_TIME FileMan Field Label: 'PACU DISPOSITION' FileMan Field Number: '.79' PAC(U) Disposition This is the code corresponding to the destination of the patient immediately after release from the post-anesthesia care unit. VALIP.prosthetic.fm2cw.SURGERYDISPOSITION1316 94 PACU_DISPOSITION DISPOSITION Disposition Name This is the name of the surgery disposition.]]> %Library.String 1 DISPOSITION into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PACU_DISPOSITION_DISPOSITION}=$select(SQLCODE=0:val,1:"")]]> 1 PACU_DISPOSITION_DISPOSITION 1 FileMan Field Label: 'PAC(U) TIME' FileMan Field Number: '1.26' PAC(U) Time This is the number of minutes the patient spent in the PAC(U). %Library.String 1 155 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,1.26,9.2) S X1=Y(130,1.26,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {PACU_TIME}=X 1 PACU_TIME FileMan Field Label: 'PALLIATION' FileMan Field Number: '661' Palliation This field indicates whether the procedure was intended for palliation, either therapeutic or diagnostic. %Library.EnumString 627 PALLIATION FileMan Field Label: 'PARAPLEGIA (Y/N)' FileMan Field Number: '399' Paraplegia/Paraparesis (Y/N) Definition Revised (2004): Patient has sustained acute or chronic neuromuscular injury resulting in total or partial paralysis or paresis (weakness) of the lower extremities. %Library.EnumString 462 PARAPLEGIA_YN FileMan Field Label: 'PATIENT' FileMan Field Number: '.01' Patient's Name This is the name of the patient. VALIP.prosthetic.fm2cw.PATIENT2 1 3 PATIENT FileMan Field Label: 'PATIENT EDUCATION/ASSESSMENT' FileMan Field Number: '.971' Patient Education/Assessment This indicates whether preoperative patient education and assessment, with documentation of a care plan, were completed during the perioperative care of the patient. %Library.EnumString 102 PATIENT_EDUCATIONASSESSMENT FileMan Field Label: 'PATIENT IN OR TIME' FileMan Field Number: '1.24' Patient in Operating Room Time This is the number of minutes the patient was in the operating room. %Library.String 1 153 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(130,1.24,9.2) S X1=Y(130,1.24,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y set {PATIENT_IN_OR_TIME}=X 1 PATIENT_IN_OR_TIME NAME Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME 1 FileMan Field Label: 'PATIENT VOIDED' FileMan Field Number: '.9813' Did the Patient Void This indicates whether the patient voided prior to being transported to the operating room. %Library.EnumString 112 PATIENT_VOIDED FileMan Field Label: 'PAW MEAN PRESSURE' FileMan Field Number: '360' PAW Mean Pressure Definition Revised (2004): For patients having a right heart catheterization, indicate the patient's mean pulmonary artery wedge (PAW) [also called pulmonary capillary] pressure or left atrial pressure measured at the catheterization most recent prior to surgery. PAW pressures obtained in the operating room prior to surgery are acceptable if they are obtained prior to anesthesia induction. If no right heart or transseptal catheterization performed, entering "NS" for "No Study/Unknown" is also allowed. %Library.String 418 PAW_MEAN_PRESSURE FileMan Field Label: 'PA SYSTOLIC PRESSURE' FileMan Field Number: '359' PA Systolic Pressure Definition Revised (2004): For patients having a right heart catheterization, indicate the patient's pulmonary artery (PA) systolic pressure at the catheterization most recent prior to surgery. PA pressures obtained in the operating room prior to surgery are acceptable if they are obtained prior to anesthesia induction. If no right heart catheterization performed, entering "NS" for "No Study/Unknown" is also allowed. %Library.String 417 PA_SYSTOLIC_PRESSURE FileMan Field Label: '*PCI' FileMan Field Number: '351' Definition Revised (2004): Indicate whether/when the patient had a percutaneous coronary intervention (PCI) prior to surgery. Previously, this data field was listed as a percutaneous transluminal coronary angiography (PTCA) [e.g., balloon angioplasty, directional coronary atherectomy (DCA), transluminal extraction catheter (TEC), stent, rotoblader, etc.] Indicate the one appropriate response, even if the procedure was not fully successful. %Library.EnumString 409 PCI 12 hr - 7 days - The patient had a PCI between 12 hours and 7 days prior to surgery. 4. >7 days - The patient had a PCI more than 7 days prior to surgery. 5. Unknown ]]> %Library.EnumString 608 PCI0 FileMan Field Label: 'PCI INTERVENTION' FileMan Field Number: '698' PCI Intervention (Y/N) This field documents if the patient has had prior treatment of coronary artery stenosis or occlusion by catheter-based techniques, such as percutaneous transluminal coronary angioplasty, atherectomy, laser angioplasty, or implantation of coronary stents. %Library.EnumString 656 PCI_INTERVENTION FileMan Field Label: 'PERFUSIONIST' FileMan Field Number: '.167' Perfusionist This is the name of the person operating the cardio-pulmonary or organ perfusion apparatus. Although not required, this information may be valuable in documenting the case. If entered, it will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.NEWPERSON200 34 PERFUSIONIST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PERFUSIONIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERFUSIONIST_NAME 1 FileMan Field Label: '*PERICARDIECTOMY' FileMan Field Number: '382' *Pericardiectomy (Y/N) This determines whether the patient had a resection of the parietal pericardium with the aid of cardiopulmonary bypass. (NOTE: most pericardiectomies are performed without cardiopulmonary bypass) %Library.EnumString 444 PERICARDIECTOMY 24 Hours Post-Op Indicate the presence of a peri-operative MI (> 24 hours post-op) as documented by at least one of the following criteria: 1. Evolutionary ST- segment elevations 2. Development of new Q-waves in two or more contiguous ECG leads 3. New or presumably new LBBB pattern on the ECG 4. The CK-MB (or CK if MB not available) must be greater than or equal to 3 times the upper limit of normal. Because normal limits of certain blood tests may vary, please check with your lab for normal limits for CK-MB and total CK. Defining Reference Control Values (Upper Limit of Normal): Reference values must be determined in each laboratory by studies using specific assays with appropriate quality control, as reported in peer-reviewed journals. Acceptable imprecision (coefficient of variation) at the 99th percentile for each assay should be defined as < or = to 10%. Each individual laboratory should confirm the range of reference values in their specific setting. This element should not be coded as an adverse event for evolving MI's unless their enzymes peak, fall, and then have a second peak.]]> %Library.EnumString 448 PERIOPERATIVE_MI FileMan Field Label: 'PERIPHERAL ARTERIAL DISEASE' FileMan Field Number: '265' Peripheral Arterial Disease VASQIP Definition (2015): Indicate if the patient has peripheral arterial disease (previously "peripheral vascular disease"), defined as disease of the arteries of the extremities. Peripheral arterial disease, most commonly identified in the legs but on occasion in the arms, is manifested by at least one of the following: exertional claudication, ischemic rest pain, ischemic ulcers or gangrene, prior revascularization procedure(s) on vessels or amputation of one or more extremity for arterial occlusive disease, absent or diminished pulses in legs, or invasive (i.e. angiographic) or non-invasive (i.e. ultrasound) evidence of non-iatrogenic peripheral arterial obstruction greater than or equal to 50% of luminal diameter. Indicate the one appropriate response: 1. No 2. Yes, without angioplasty, revascularization, or amputation procedure 3. Yes, with any history of angioplasty, or revascularization, or amputation procedure, regardless of laterality %Library.EnumString 319 PERIPHERAL_ARTERIAL_DISEASE FileMan Field Label: 'PERIPHERAL NERVE INJURY' FileMan Field Number: '287' Peripheral Nerve Injury (Y/N) Definition Revised (2007): Peripheral nerve damage may result from damage to the nerve fibers, cell body, or myelin sheath during surgery. Peripheral nerve injuries which result in motor deficits only to the cervical plexus, brachial plexus, ulnar plexus, lumbar-sacral plexus (sciatic nerve), peroneal nerve, and/or the femoral nerve should be included. %Library.EnumString 342 PERIPHERAL_NERVE_INJURY FileMan Field Label: 'PERIPROSTHETIC FRACTURES' FileMan Field Number: '741' Periprosthetic Fractures This field documents fracture adjacent to or involving a prosthetic within 90 days of its implantation. %Library.EnumString 697 PERIPROSTHETIC_FRACTURES FileMan Field Label: 'PFSS ACCOUNT REFERENCE' FileMan Field Number: '500' PFSS Account Reference This is the PFSS Account Reference number by which Surgery will reference an external account number for purposes of attaching charges for 1st or 3rd party billing. VALIP.prosthetic.fm2cw.PFSSACCOUNT375 555 PFSS_ACCOUNT_REFERENCE ACCOUNT REFERENCE The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing.]]> %Library.Numeric 1 ACCOUNT_REFERENCE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE}=$select(SQLCODE=0:val,1:"")]]> 1 PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE 1 FileMan Field Label: 'PGY OF PRIMARY SURGEON' FileMan Field Number: '214' PGY of Primary Surgeon ('0' for Staff Surgeon) Definition Revised (2004): Enter the number of surgical residency postgraduate years of the primary surgeon (1-12). Enter 0 if the primary surgeon is a staff/attending surgeon and not a surgical resident or fellow. PGYs greater than 12 should be reported as '12'. %Library.Numeric 264 PGY_OF_PRIMARY_SURGEON FileMan Field Label: 'PLANNED ADMISSION STATUS' FileMan Field Number: '.013' Planned Admission Status This field indicates the patient's planned hospital admission status for the calendar day of surgery. Enter "1" or "S" if the operation is planned as SAME day (the patient will not be admitted). Enter" 2" or "A" if the patient will be ADMITTED on the calendar day of surgery. Enter "3" or "H" if the patient will already be HOSPITALIZED on the calendar day prior to the date of surgery. %Library.EnumString 5 PLANNED_ADMISSION_STATUS FileMan Field Label: 'PLANNED POSTOP CARE' FileMan Field Number: '.43' Planned Postop Care This is the code corresponding to the location of care after the patient leaves the operating room and/or the post-anesthesia care unit. VALIP.prosthetic.fm2cw.SURGERYDISPOSITION1316 70 PLANNED_POSTOP_CARE DISPOSITION Disposition Name This is the name of the surgery disposition.]]> %Library.String 1 DISPOSITION into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PLANNED_POSTOP_CARE_DISPOSITION}=$select(SQLCODE=0:val,1:"")]]> 1 PLANNED_POSTOP_CARE_DISPOSITION 1 FileMan Field Label: 'PLANNED PRIN DIAGNOSIS CODE' FileMan Field Number: '66' Planned Principal Diagnosis Code This is the planned principal postoperative ICD diagnosis code assigned by the clinician. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 213 PLANNED_PRIN_DIAGNOSIS_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PLANNED_PRIN_DIAGNOSIS_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 PLANNED_PRIN_DIAGNOSIS_CODE_CODE_NUMBER 1 FileMan Field Label: 'PLANNED PRIN PROCEDURE CODE ' FileMan Field Number: '27' Planned Principal Procedure Code (CPT) This is the Current Procedural Terminology (CPT) code corresponding with the planned principal procedure. A CPT modifier on the CPT code may be included by appending the modifier to the CPT code separated by a hyphen in the format "XXXXX-YY" where "XXXXX" is the five character CPT code and "YY" is the two character CPT modifier. VALIP.prosthetic.fm2cw.CPT81 179 PLANNED_PRIN_PROCEDURE_CODE_ CPT CODE This file contains both CPT from the AMA and HCFA. The AMA entries will have an internal number less than 99999. The AMA CPT are '5' numbers that coorespond to the internal number. The HCFA codes will have an internal number of 100000 or greater. These codes are '1' alpha followed by '4' numbers, which will NOT correspond to the internal number.]]> %Library.String 1 CPT_CODE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PLANNED_PRIN_PROCEDURE_CODE__CPT_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 PLANNED_PRIN_PROCEDURE_CODE__CPT_CODE 1 FileMan Field Label: 'PNEUMONIA' FileMan Field Number: '251' Pneumonia (Y/N) Definition Revised (2007): Inflammation of the lungs caused primarily by bacteria, viruses, and/or chemical irritants, usually manifested by chills, fever, pain in the chest, cough, purulent, bloody sputum. Enter YES if the patient has pneumonia meeting the definition of pneumonia below AND pneumonia not present preoperatively. Pneumonia must meet one of the following TWO criteria: Criterion 1. Rales or dullness to percussion on physical examination of chest AND any of the following: a. New onset of purulent sputum or change in character of sputum b. Organism isolate from blood culture c. Isolation of pathogen from specimen obtained by transtracheal aspirate, bronchial brushing, or biopsy OR Criterion 2. Chest radiographic examination shows new or progressive infiltrate, consolidation, cavitation, or pleural effusion AND any of the following: a. New onset of purulent sputum or change in character of sputum b. Organism isolated from blood culture c. Isolation of pathogen from specimen obtained by transtracheal aspirate, bronchial brushing, or biopsy d. Isolation of virus or detection of viral antigen in respiratory secretions e. Diagnostic single antibody titer (IgM) or fourfold increase in paired serum samples (IgG) for pathogen f. Histopathologic evidence of pneumonia *If pneumonia was present preoperatively and resolved postoperatively and a new pneumonia is identified within 30 days after surgery, the following criteria must be met in order to report as a postoperative pneumonia occurrence: - Patient must have completed the antibiotic course for the previous pneumonia. - Patient must have evidence of a clear chest x-ray after the previous pneumonia and prior to the new pneumonia. - There must be evidence of a new isolate of micro-organism on culture. %Library.EnumString 304 PNEUMONIA FileMan Field Label: 'POSITIVE DRUG SCREENING' FileMan Field Number: '618' Positive Drug Screening VASQIP Definition (2015): Indicate if any drug (excluding alcohol) screening (e.g., blood or urine) was performed within 2 weeks prior to surgery. If the patient is being prescribed a medication, such as methadone, respond with answer options as indicated below. If the drug screen was positive for both a prescribed and non-prescribed drug, select the answer for a substance that was not prescribed. 1. Not Done - drug screening was not performed 2. Drug screening was performed and the result was negative 3. Drug screening was performed and the result was positive for substance not prescribed 4. Drug screening was performed and the result was positive for a prescribed substance %Library.EnumString 594 POSITIVE_DRUG_SCREENING FileMan Field Label: 'POSSIBLE ITEM RETENTION' FileMan Field Number: '630' Possible Item Retention VASQIP Definition (2015): This field is intended to capture whether the surgical field has the potential for leaving a retained surgical item, including sponge, sharp, or instrument behind. A retained surgical item includes instruments, sharps, sponges or any materials used by the surgical team performing the operative procedure. Sharps include surgical needles, aspirating needles, blunt needles, scalpel blades or any items with a sharp or pointed edge posing a risk for skin puncture by the surgical team. Sponges include cotton gauze sponges, laparotomy pads, surgical towels or any absorbent materials not intended to remain in the patient's body after the surgical procedure is completed. Note: This field does not identify that a retained surgical item actually was found or occurred. %Library.EnumString 601 POSSIBLE_ITEM_RETENTION FileMan Field Label: 'POSTOP ANES NOTE' FileMan Field Number: '1.2' Postoperative Anesthesia Note This is the postoperative anesthesia note for this patient. %Library.String 149 POSTOP_ANES_NOTE FileMan Field Label: 'POSTOP ANES NOTE DATE' FileMan Field Number: '1.19' Date/Time Postoperative Note Entered This is the date and time that the postoperative note is written in the patient's chart. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanDate 148 POSTOP_ANES_NOTE_DATE FileMan Field Label: 'POSTOP ATRIAL FIBRILLATION' FileMan Field Number: '448' Postoperative Atrial Fibrillation VASQIP Definition (2010) Indicate whether the patient had a new onset of atrial fibrillation/flutter (AF) requiring treatment. Does not include recurrence of AF which had been present preoperatively. %Library.EnumString 501 POSTOP_ATRIAL_FIBRILLATION FileMan Field Label: 'POSTOP ATTENDING CONCURRENCE' FileMan Field Number: '52' Postoperative Attending Concurrence This field serves as a flag that the attending concurs with the postoperative workup. %Library.EnumString 201 POSTOP_ATTENDING_CONCURRENCE 4 Units RBCs or WB Transfused in 72 hrs Postop (Y/N) Definition Revised (2004): Any transfusion (including autologous) of packed red blood cells or whole blood given from the time the patient leaves the operating room up to and including 72 hours postoperatively. Enter YES for five or more units of packed red blood cell units in the postoperative period including hanging blood from the OR that is finished outside of the OR. If the patient receives shed blood, autologous blood, cell saver blood or pleurovac postoperatively, this is counted if greater than four units. The blood may be given for any reason.]]> %Library.EnumString 310 POSTOP_BLEEDINGTRANSFUSIONS FileMan Field Label: 'POSTOP BP' FileMan Field Number: '.67' Postoperative Blood Pressure This is the patient's blood pressure upon admission to the care area immediately after the surgical procedure. Although this information is optional, it may be useful in documentation of this case. %Library.String 88 POSTOP_BP FileMan Field Label: 'POSTOP CONSCIOUS' FileMan Field Number: '.821' Postoperative Consciousness This is the code corresponding to the assessment of the patient's level of consciousness following the operative procedure. If entered, this information will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.PATIENTCONSCIOUSNESS1354 97 POSTOP_CONSCIOUS NAME Assessment of the Patient's Level of Consciousness This is the assessment of the patient's consciousness. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {POSTOP_CONSCIOUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 POSTOP_CONSCIOUS_NAME 1 FileMan Field Label: 'POSTOP CONVERS' FileMan Field Number: '.82' Postoperative Conversation This is the code corresponding to the assessment of the patient's demonstrated verbal responses at the completion of the surgical procedure. %Library.EnumString 96 POSTOP_CONVERS FileMan Field Label: 'POSTOP MOOD' FileMan Field Number: '.81' Postoperative Mood This is the code corresponding to the assessment of the patient's mood following the operative procedure. If entered, this information will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.PATIENTMOOD1353 95 POSTOP_MOOD NAME Assessment of the Patient's Mood This is the assessment of the patient's mood. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {POSTOP_MOOD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 POSTOP_MOOD_NAME 1 FileMan Field Label: 'POSTOP PULSE' FileMan Field Number: '.66' Postoperative Pulse Rate This is the pulse rate of the patient upon admission to the care area immediately after the surgical procedure. %Library.Numeric 87 POSTOP_PULSE FileMan Field Label: 'POSTOP RESP' FileMan Field Number: '.68' Postoperative Respiratory Rate This is the respiratory rate of the patient upon admission to the care area immediately after the surgical procedure. %Library.Numeric 89 POSTOP_RESP FileMan Field Label: 'POSTOP SKIN COLOR' FileMan Field Number: '.77' Postoperative Skin Color This is the code corresponding to the patient's skin color after the operative procedure. If entered, this information will appear on the Nurse Intraoperative Report. %Library.EnumString 93 POSTOP_SKIN_COLOR FileMan Field Label: 'POSTOP SKIN INTEG' FileMan Field Number: '.76' Postoperative Skin Integrity This is the code corresponding to the assessment of the patient's skin integrity after the operative procedure. If entered, this information will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.SKININTEGRITY1352 92 POSTOP_SKIN_INTEG NAME Skin Integrity Name This field is the name used for the assessment of the patient's skin integrity. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {POSTOP_SKIN_INTEG_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 POSTOP_SKIN_INTEG_NAME 1 FileMan Field Label: 'POSTOP VISUAL ACUITY' FileMan Field Number: '737' Postop Visual Acuity This field documents the best corrected visual acuity for the operative eye within 60 days after the surgical procedure. %Library.EnumString 693 POSTOP_VISUAL_ACUITY FileMan Field Label: 'PRE-ADMISSION TESTING' FileMan Field Number: '56' Pre-admission Testing Complete (Y/N) This indicates whether pre-admission testing was complete. It will be reflected on the Schedule of Operations for outpatients. %Library.EnumString 204 PREADMISSION_TESTING FileMan Field Label: 'PREGNANCY' FileMan Field Number: '269' Pregnancy Status Definition Revised (2007): Pregnancy is the process by which a woman carries a developing fetus in her uterus, beginning at conception and ending in birth, miscarriage or abortion. Answer Yes if there is documentation in the patient's medical record that the patient is currently pregnant. %Library.EnumString 323 PREGNANCY ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 280 PREOPERATIVE_ALK_PHOSPHATASE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 495 PREOPERATIVE_ANION_GAP ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 275 PREOPERATIVE_BUN FileMan Field Label: 'PREOPERATIVE BUN, DATE' FileMan Field Number: '291' Date Preoperative BUN was Performed This is the date that the preoperative BUN was performed. %Library.FilemanDate 346 PREOPERATIVE_BUN_DATE FileMan Field Label: 'PREOPERATIVE CPK' FileMan Field Number: '221' Preoperative CPK (U/L) This is the result of the preoperative creatinine phosphokinase (CPK) test. %Library.Numeric 272 PREOPERATIVE_CPK FileMan Field Label: 'PREOPERATIVE CPK, DATE' FileMan Field Number: '288' Date Preoperative CPK was Performed This is the date that the preoperative CPK was performed. %Library.FilemanDate 343 PREOPERATIVE_CPK_DATE FileMan Field Label: 'PREOPERATIVE GLUCOSE' FileMan Field Number: '273' Preoperative Glucose This is the result of the preoperative glucose test. %Library.Numeric 328 PREOPERATIVE_GLUCOSE FileMan Field Label: 'PREOPERATIVE GLUCOSE, DATE' FileMan Field Number: '302' Date Preoperative Glucose was Performed This is the date that the preoperative glucose test was performed. %Library.FilemanDate 357 PREOPERATIVE_GLUCOSE_DATE FileMan Field Label: 'PREOPERATIVE HEART RATE' FileMan Field Number: '.62' Preoperative Heart Rate This is the most recent ward-recorded heart rate of the patient prior to transport to the operating room. %Library.Numeric 83 PREOPERATIVE_HEART_RATE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 285 PREOPERATIVE_HEMATOCRIT FileMan Field Label: 'PREOPERATIVE HEMOGLOBIN' FileMan Field Number: '219' Preoperative Hemoglobin (g/dl) Definition Revised (2004): Indicate the patient's hemoglobin result (g/dl) preoperatively evaluated closest to surgery but not greater than 30 days before surgery. Entering "NS" for "No Study/Unknown" is not allowed. %Library.String 270 PREOPERATIVE_HEMOGLOBIN FileMan Field Label: 'PREOPERATIVE HEMOGLOBIN, DATE' FileMan Field Number: '239' Date Preoperative Hemoglobin was Performed This is the date that the preoperative hemoglobin test was performed. %Library.FilemanDate 292 PREOPERATIVE_HEMOGLOBIN_DATE FileMan Field Label: 'PREOPERATIVE IMAGES CONFIRMED' FileMan Field Number: '606' Confirm Pertinent Medical Images Available in the OR This field refers to the completion of the verification process for the presence of relevant imaging data to confirm the operative site for the correct patient are available, properly labeled and properly presented, and verified by two members of the operating team prior to the start of the procedure. This practice is further defined by local hospital policy. If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 582 PREOPERATIVE_IMAGES_CONFIRMED FileMan Field Label: 'PREOPERATIVE IMAGING CONFIRMED' FileMan Field Number: '72' Preoperative Imaging Confirmed This field refers to the completion of the verification process for the presence of relevant imaging data to confirm the operative site for the correct patient are available, properly labeled and properly presented, and verified by two members of the operating team prior to the start of the procedure. This practice is further defined by local hospital policy. If entered "NO", a justification should be documented in the Imaging Confirmed Comments. %Library.EnumString 219 PREOPERATIVE_IMAGING_CONFIRMED FileMan Field Label: 'PREOPERATIVE INFECTION' FileMan Field Number: '.05' Preoperative Infection Enter the letter code C for clean, D for contaminated, or S for infections that require special considerations (type in the first few letters of any word). This information allows the scheduling manager to determine how much time is needed between operations for sanitizing a room. "Special considerations" is for infections that have local or national requirements for special room cleaning (e.g., CJD, VRE, MRSA). %Library.EnumString 22 PREOPERATIVE_INFECTION ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 547 PREOPERATIVE_INR FileMan Field Label: 'PREOPERATIVE INR, DATE' FileMan Field Number: '487.1' Date Preoperative INR was Performed This is the date that the preoperative INR was performed. %Library.FilemanDate 548 PREOPERATIVE_INR_DATE FileMan Field Label: 'PREOPERATIVE MB BAND' FileMan Field Number: '222' Preoperative MB Band This is the value of the preoperative methyline blue (MB) band. Your answer must be between 0 and 50. %Library.Numeric 273 PREOPERATIVE_MB_BAND FileMan Field Label: 'PREOPERATIVE MB BAND, DATE' FileMan Field Number: '289' Date Preoperative MB Band was Performed This is the date that the preoperative MB Band was performed. %Library.FilemanDate 344 PREOPERATIVE_MB_BAND_DATE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 282 PREOPERATIVE_PLATELET_COUNT FileMan Field Label: 'PREOPERATIVE POTASSIUM' FileMan Field Number: '271' Preoperative Potassium This is the result of the preoperative potassium test. %Library.Numeric 325 PREOPERATIVE_POTASSIUM ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 283 PREOPERATIVE_PT ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 284 PREOPERATIVE_PTT FileMan Field Label: 'PREOPERATIVE PTT CONTROL' FileMan Field Number: '316' Preoperative PTT Control This is the preoperative PTT control result. Your answer must be between 15 and 40. %Library.Numeric 371 PREOPERATIVE_PTT_CONTROL FileMan Field Label: 'PREOPERATIVE PTT, DATE' FileMan Field Number: '300' Date Preoperative PTT was Performed This is the date that the preoperative PTT test was performed. %Library.FilemanDate 355 PREOPERATIVE_PTT_DATE FileMan Field Label: 'PREOPERATIVE PT CONTROL' FileMan Field Number: '315' Preoperative PT Control This is the result of the preoperative PT control. Your answer must be between 9 and 15. %Library.Numeric 370 PREOPERATIVE_PT_CONTROL FileMan Field Label: 'PREOPERATIVE PT, DATE' FileMan Field Number: '299' Date Preoperative PT was Performed This is the date that the preoperative PT test was performed. %Library.FilemanDate 354 PREOPERATIVE_PT_DATE 38 degrees C or < 36 degrees C - HR > 90 beats/minute - RR > 20 breaths /minute or PaCO2 < 32 mmHg - WBC > 12,000 cell/mm3, < 4,000cells/mm3, or > 10% immature neutrophils ("bands") 3. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is associated with organ and/or circulatory dysfunction. Terminology such as Severe Sepsis/Septic Shock/Refractory Septic Shock and Multiple Organ Dysfunction Syndrome (MODS) all fall into this category. Answer YES if the definition of SEPSIS is present AND there is documented organ and/or circulatory dysfunction defined by one or more of the following: - Areas of acutely mottled skin not related to peripheral vascular disease - Capillary refilling requires three seconds or longer not related to peripheral vascular disease - Urine output <0.5 mL/kg for at least one hour, or renal replacement therapy - Lactate >2 mmol/L - Abrupt change in mental status - Abnormal EEG findings - Platelet count < 100,000 platelets/mL - Disseminated intravascular coagulation (DIC) - Acute lung injury or acute respiratory distress syndrome (ARDS) - New cardiac dysfunction as defined by ECHO or direct measurement of the cardiac index - An arterial systolic blood pressure (SBP) of <=90 mm Hg or a mean arterial pressure (MAP) <=70 mm Hg for at least 1 hour despite adequate fluid resuscitation, adequate intravascular volume status, or the need for vasopressors to maintain SBP >= 90 mm Hg or MAP >=70 mm Hg.]]> %Library.EnumString 269 PREOPERATIVE_SEPSIS ". Entering "NS" for "No Study" is allowed for non-cardiac case assessments.]]> %Library.String 276 PREOPERATIVE_SERUM_ALBUMIN ". Entering "NS" for "No Study" is allowed for non-cardiac case assessments.]]> %Library.String 274 PREOPERATIVE_SERUM_CREATININE ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 324 PREOPERATIVE_SERUM_SODIUM ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 278 PREOPERATIVE_SGOT FileMan Field Label: 'PREOPERATIVE SGPT' FileMan Field Number: '226' Preoperative SGPT (mU/ml) This is the result of the preoperative serum glutamic pyruvic transaminase (SGPT) test. %Library.Numeric 277 PREOPERATIVE_SGPT 35) b) Thick neck (men > 17 inches, women > 16 inches) c) Snoring, loud or frequent d) Observed apneas (partner/roommate reported observing obstruction episodes during sleep) e) Frequent arousals from sleep or choking during sleep f) Daytime somnolence g) Patient reports diagnosis of sleep apnea even if sleep study results are not in the medical record Level 3 = Sleep Apnea: Sleep apnea confirmed by Sleep Study OR patient currently uses CPAP/BIPAP at home. Answer Options: - None - Suspicion of Sleep Apnea - Sleep Apnea Confirmed]]> %Library.EnumString 290 PREOPERATIVE_SLEEP_APNEA ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 279 PREOPERATIVE_TOTAL_BILIRUBIN FileMan Field Label: 'PREOPERATIVE USE OF IABP' FileMan Field Number: '356' Preoperative use of IABP (Y/N) This determines whether there was any use of an intra-aortic balloon pump (IABP) within the two weeks prior to surgery. %Library.EnumString 414 PREOPERATIVE_USE_OF_IABP ". Entering "NS" for "No Study" is also allowed.]]> %Library.String 281 PREOPERATIVE_WBC FileMan Field Label: 'PREOPERATIVE WBC, DATE' FileMan Field Number: '297' Date Preoperative WBC was Performed This is the date that the preoperative WBC test was performed. %Library.FilemanDate 352 PREOPERATIVE_WBC_DATE FileMan Field Label: 'PREOP ALK PHOSPHATASE, DATE' FileMan Field Number: '296' Date Preoperative Alkaline Phosphatase was Performed This is the date that the preoperative alkaline phosphatase test was performed. %Library.FilemanDate 351 PREOP_ALK_PHOSPHATASE_DATE FileMan Field Label: 'PREOP ANION GAP, DATE' FileMan Field Number: '444.1' Date Preoperative Anion Gap was Recorded This is the date the preoperative Anion Gap was recorded. %Library.FilemanDate 496 PREOP_ANION_GAP_DATE FileMan Field Label: 'PREOP ATRIAL FIBRILLATION' FileMan Field Number: '509' Preoperative Atrial Fibrillation VASQIP Definition (2010): This field indicates whether atrial fibrillation or flutter is present within two weeks of the procedure. Enter YES or NO. Note: NS is not allowed. %Library.EnumString 564 PREOP_ATRIAL_FIBRILLATION FileMan Field Label: 'PREOP ATTENDING CONCURRENCE' FileMan Field Number: '51' Preoperative Attending Concurrence (Y/N) This field serves as a flag that the attending has concurred with the preoperative workup. %Library.EnumString 200 PREOP_ATTENDING_CONCURRENCE FileMan Field Label: 'PREOP BLOOD PRESSURE' FileMan Field Number: '.63' Preoperative Blood Pressure This is the most recent ward recorded blood pressure of the patient prior to transport to the operating room. Although optional, this information may be useful for documentation of this case. %Library.String 84 PREOP_BLOOD_PRESSURE FileMan Field Label: 'PREOP CIRCULATORY DEVICE' FileMan Field Number: '474' Preop use of circulatory Device VASQIP Definition (2010): Indicate whether there was any use of any device to assist ventricular function at the time the patient presents for surgery (or placed in the OR before anesthesia induction). Indicate the one appropriate response: None - No New Mechanical Circulatory Device was placed. IABP - An intra-aortic balloon pump was placed to assist ventricular function. VAD - A ventricular assist device (e.g., LVAD, BIVAD) was placed to assist ventricular function. Artificial Heart - An artificial heart was placed to assist ventricular function. Other - An other type of Mechanical Circulatory Device was placed. %Library.EnumString 534 PREOP_CIRCULATORY_DEVICE FileMan Field Label: 'PREOP CONSCIOUS' FileMan Field Number: '.196' Preoperative Consciousness This is the preoperative assessment of the patient's level of consciousness upon arrival to the operating room. Although optional, this information may be useful in documenting the case. VALIP.prosthetic.fm2cw.PATIENTCONSCIOUSNESS1354 40 PREOP_CONSCIOUS NAME Assessment of the Patient's Level of Consciousness This is the assessment of the patient's consciousness. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PREOP_CONSCIOUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREOP_CONSCIOUS_NAME 1 FileMan Field Label: 'PREOP CONVERSE' FileMan Field Number: '.195' Preoperative Conversation This is the preoperative assessment of the patient's demonstrated verbal responses upon arrival to the operating room. Although optional, this field may be valuable in documenting this case. %Library.EnumString 39 PREOP_CONVERSE FileMan Field Label: 'PREOP FUNCT. HEALTH STATUS' FileMan Field Number: '492' Functional Health Status Prior to Surgery Definition Revised (2015): This is a question that focuses on the patient's abilities to perform activities of daily living (ADLs) in the 30 days prior to surgery. Activities of daily living are defined as 'the activities usually performed in the course of a normal day in a person's life'. ADLs include: bathing, feeding, dressing, toileting, and mobility. Report the corresponding level of self-care for activities of daily living demonstrated by this patient at the time the patient is being considered as a candidate for surgery (which should be no longer than 30 days prior to surgery). If the patient's status changes prior to surgery, that change should be reflected in your assessment. For this time point, report the level of functional health status as defined by the following criteria. (1) Independent: The patient does not require assistance from another person for any activities of daily living. This includes a person who is able to function independently with prosthetics, equipment, or devices. (2) Partially dependent: The patient requires some assistance from another person for activities of daily living. This includes a person who utilizes prosthetics, equipment, or devices but still requires some assistance from another person for ADLs. (3) Totally dependent: The patient requires assistance for all activities of daily living. %Library.EnumString 553 PREOP_FUNCT__HEALTH_STATUS FileMan Field Label: 'PREOP HEMATOCRIT, DATE' FileMan Field Number: '301' Date Preoperative Hematocrit was Performed This is the date that the preoperative hematocrit was performed. %Library.FilemanDate 356 PREOP_HEMATOCRIT_DATE %Library.EnumString 113 PREOP_MEDRAIL_UP FileMan Field Label: 'PREOP MODIFIED RANKIN SCORE' FileMan Field Number: '711' Preop Modified Rankin Score This field documents the calculated modified Rankin score. Leave blank if not able to calculate. %Library.Numeric 668 PREOP_MODIFIED_RANKIN_SCORE FileMan Field Label: 'PREOP MOOD' FileMan Field Number: '.19' Preoperative Mood This is the preoperative assessment of the patient's emotional status upon arrival to the operating room. It may be useful in the documentation of the case. If entered, this information will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.PATIENTMOOD1353 38 PREOP_MOOD NAME Assessment of the Patient's Mood This is the assessment of the patient's mood. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PREOP_MOOD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREOP_MOOD_NAME 1 FileMan Field Label: 'PREOP PLATELET COUNT, DATE' FileMan Field Number: '298' Date Preoperative Platelet Count was Performed This is the date that the preoperative platelet count was performed. %Library.FilemanDate 353 PREOP_PLATELET_COUNT_DATE FileMan Field Label: 'PREOP POTASSIUM, DATE' FileMan Field Number: '303' Date Preoperative Potassium was Performed This is the date that the preoperative potassium test was performed. %Library.FilemanDate 358 PREOP_POTASSIUM_DATE FileMan Field Label: 'PREOP RESPIRATORY RATE' FileMan Field Number: '.64' Preoperative Respiratory Rate this is the most recent ward-recorded respiratory rate of the patient prior to transport to the operating room. %Library.Numeric 85 PREOP_RESPIRATORY_RATE FileMan Field Label: 'PREOP SERUM ALBUMIN, DATE' FileMan Field Number: '292' Date Preoperative Serum Albumin was Performed This is the date that the preoperative Serum Albumin test was performed. %Library.FilemanDate 347 PREOP_SERUM_ALBUMIN_DATE FileMan Field Label: 'PREOP SERUM CREATININE, DATE' FileMan Field Number: '290' Date Preoperative Serum Creatinine was Performed This is the date that the preoperative Serum Creatinine test was performed. %Library.FilemanDate 345 PREOP_SERUM_CREATININE_DATE FileMan Field Label: 'PREOP SERUM SODIUM, DATE' FileMan Field Number: '304' Date Preoperative Serum Sodium was Performed This is the date that the preoperative serum sodium test was performed. %Library.FilemanDate 359 PREOP_SERUM_SODIUM_DATE FileMan Field Label: 'PREOP SKIN COLOR' FileMan Field Number: '.08' Preoperative Skin Color This is the code corresponding to the preoperative assessment of the patient's skin color upon arrival to the operating room. If entered, this information will appear on the Nurse Intraoperative Report. %Library.EnumString 24 PREOP_SKIN_COLOR FileMan Field Label: 'PREOP SKIN INTEG' FileMan Field Number: '.07' Preoperative Skin Integrity This is the preoperative assessment of the patient's skin integrity upon arrival to the operating room. The information entered will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.SKININTEGRITY1352 23 PREOP_SKIN_INTEG NAME Skin Integrity Name This field is the name used for the assessment of the patient's skin integrity. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PREOP_SKIN_INTEG_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PREOP_SKIN_INTEG_NAME 1 FileMan Field Label: 'PREOP TEMPERATURE' FileMan Field Number: '.61' Preoperative Temperature This is the most recent ward-recorded temperature of the patient prior to transport to the operating room. %Library.Numeric 81 PREOP_TEMPERATURE FileMan Field Label: 'PREOP TOTAL BILIRUBIN, DATE' FileMan Field Number: '295' Date Preoperative Total Bilrubin was Performed This is the date that the preoperative total bilirubin was performed. %Library.FilemanDate 350 PREOP_TOTAL_BILIRUBIN_DATE FileMan Field Label: 'PREOP VISUAL ACUITY' FileMan Field Number: '736' Preop Visual Acuity This field documents the best corrected visual acuity for the operative eye within 60 days prior to surgical procedure. %Library.EnumString 692 PREOP_VISUAL_ACUITY FileMan Field Label: 'PREOP WEIGHT (Kg)' FileMan Field Number: '.615' Preoperative Weight (Kg) This is the most recent ward-recorded weight of the patient prior to transport to the operating room. %Library.Numeric 82 PREOP_WEIGHT_KG FileMan Field Label: 'PRESSORS USED INTRAOP' FileMan Field Number: '696' Pressors Used In the OR Pressors are medications used with the intent to raise blood pressure. For this variable, a pressor must be administered for the intent of increasing blood pressure while the patient is in the operating room. Enter 0 if no medications were administered or if the intent of medicine administration is for reasons other than increasing blood pressure. Enter 1 if one or more pressor medications were administered via bolus. Enter 2 if one or more pressor medications were administered via continuous infusion. %Library.EnumString 654 PRESSORS_USED_INTRAOP FileMan Field Label: 'PREVIOUSLY SCHEDULED CASE' FileMan Field Number: '78' Previously Scheduled Case That Was Cancelled This field identifies the previously scheduled case that was cancelled and replaced by this case. VALIP.prosthetic.fm2cw.SURGERY130 225 PREVIOUSLY_SCHEDULED_CASE PATIENT Patient's Name This is the name of the patient. ]]> %Library.String 1 PATIENT into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PREVIOUSLY_SCHEDULED_CASE_PATIENT}=$select(SQLCODE=0:val,1:"")]]> 1 PREVIOUSLY_SCHEDULED_CASE_PATIENT 1 FileMan Field Label: '*PREVIOUS CARDIAC SURGERY' FileMan Field Number: '266' *Previous Cardiac Surgery (Y/N) Definition Revised (2006): Any major cardiac surgical procedure (performed either as an 'off-pump' repair or utilizing cardiopulmonary bypass). This includes coronary artery bypass graft surgery, valve replacement or repair, repair of atrial or ventricular septal defects, great thoracic vessel repair, cardiac transplant, left ventricular aneurysmectomy, insertion of left ventricular assist devices, etc. Do not include pacemaker insertions or automatic implantable cardioverter-defibrillator (AICD) insertions. %Library.EnumString 320 PREVIOUS_CARDIAC_SURGERY FileMan Field Label: '*PREVIOUS PCI' FileMan Field Number: '220' *Previous PCI (Y/N) Definition Revised (2007): The patient has undergone or has had an attempt at percutaneous coronary intervention at any time. This includes either balloon dilatation or stent placement. This does not include valvuloplasty procedures. %Library.EnumString 271 PREVIOUS_PCI FileMan Field Label: 'PRIMARY CANCEL REASON' FileMan Field Number: '18' Primary Cancellation Reason VASQIP Definition (2014): This is the reason that this surgical case was cancelled. List of valid reasons: 1) Patient Related Issue (e.g., patient did not follow pre-surgery instructions, patient chooses to cancel for any reason) 2) Environmental Issue (OR availability impacted by e.g., air handling, electrical outage, emergency construction, flood, tornado, blizzard, hurricane causing OR hospital closure. If due to staff availability, use #3) 3) Staff Issue (e.g., unavailable surgeon, anesthesia or nursing staff; no documented consent, provider cancels due to change in patient treatment plan) 4) Patient Health Status (Provider cancels due to change in patient health status) 5) More clinically urgent/emergent case superseded this scheduled case 6) Scheduling Issues Not Created By An Emergency Case (previous case overtime, case delayed, double booked, general time constraints, administrative scheduling error) 7) Unavailable Bed 8) Unavailable Equipment [excluding RME] (e.g., vendor, c-arm, implant, malfunctioning equipment) 9) Unavailable Reusable Medical Equipment (RME) (includes defective packaging, damaged instruments or failure of Sterile Processing Services [SPS] to provide reprocessed equipment in a timely manner) 10) Patient scheduled into an earlier date for surgery. VALIP.prosthetic.fm2cw.SURGERYCANCELLATIONREASON135 170 PRIMARY_CANCEL_REASON NAME Name of Cancellation Reason This is the name of the cancellation reason. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PRIMARY_CANCEL_REASON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_CANCEL_REASON_NAME 1 FileMan Field Label: 'PRIMARY CAUSE FOR DELAY' FileMan Field Number: '515' Primary Cause for Delay for Cardiac Surgery Definition Revised (2008): This field contains the primary cause for delay. If a Cardiac patient's surgery is greater than 30 days from initial VA Cardiothoracic Surgery Consultation (as calculated between the CT CONSULT DATE to DATE OF SURGERY), user shall enter cause as defined in the field. If date is less than or equal to 30 days, system shall automatically default entry to None. - Resource Limitation: Due to staffing or other facility limitation, e.g., OR scheduling, physician availability, ICU bed capacity - Patient Health: Due to patient health issue, e.g., vascular consult, additional tests - Patient Preference: Due to a non-health related patient preference, e.g., vacation - Other - NS/Unknown: Unable to Locate Reason for Delay. Entering "NS" for "No Study/Unknown" is also allowed. - None %Library.EnumString 568 PRIMARY_CAUSE_FOR_DELAY FileMan Field Label: 'PRIMARY SURGEON' FileMan Field Number: '.14' Primary Surgeon This is the name of the person performing the major portion of the principal operative procedure. This field is required as part of the Operation Report. This field may be restricted by locally determined keys so that only people with the appropriate keys can be entered. VALIP.prosthetic.fm2cw.NEWPERSON200 28 PRIMARY_SURGEON NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PRIMARY_SURGEON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_SURGEON_NAME 1 FileMan Field Label: 'PRINCIPAL DIAGNOSIS' FileMan Field Number: '33' Principal Diagnosis This is the principal diagnosis for which the non-OR procedure is being performed. %Library.String 183 PRINCIPAL_DIAGNOSIS FileMan Field Label: 'PRINCIPAL POST-OP DIAG' FileMan Field Number: '34' Principal Postoperative Diagnosis This is the principal postoperative diagnosis. %Library.String 184 PRINCIPAL_POSTOP_DIAG FileMan Field Label: 'PRINCIPAL PRE-OP DIAGNOSIS' FileMan Field Number: '32' Principal Preoperative Diagnosis This is the preoperative diagnosis for which the surgical procedure is being performed. %Library.String 181 PRINCIPAL_PREOP_DIAGNOSIS FileMan Field Label: 'PRINCIPAL PROCEDURE' FileMan Field Number: '26' Principal Procedure This is the name of the principal procedure for this case. All cases must have a principal procedure. The principal procedure must be 3 to 135 characters in length. The procedure name must not contain a semicolon (;), an at-sign (@), an up- arrow (^) or control characters. If the procedure name is longer than 30 characters, it must contain at least one space in every 31 characters of length. If a comma is being used to separate information, a space should follow the comma. Non-Cardiac Definition Revised (2004): The most complex of all the procedures by the primary operating team during this trip to the operating room. Your answer must be at least 3 characters in length. Do not enter an additional procedure if it is covered by a single CPT code. (Note that a single CPT code can cover more than one procedure, e.g., cholecystectomy and common bile duct exploration have a single CPT code). Additional procedures requiring separate CPT codes and/or concurrent procedures will be entered separately below. An exploratory laparotomy should be entered as the principal operative procedure only when no other procedure eligible for assessment has been performed in that particular surgical case. %Library.String 1 178 PRINCIPAL_PROCEDURE FileMan Field Label: 'PRINC ANESTHETIST' FileMan Field Number: '.31' Principal Anesthetist This is the name of the principal anesthesiologist or CRNA (or surgeon, if local anesthesia). This information is extremely important for the Anesthesia Report. VALIP.prosthetic.fm2cw.NEWPERSON200 60 PRINC_ANESTHETIST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PRINC_ANESTHETIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRINC_ANESTHETIST_NAME 1 FileMan Field Label: 'PRIN PRE-OP ICD DIAGNOSIS CODE' FileMan Field Number: '32.5' Prin Pre-op ICD Diagnosis Code This is the principal Pre-OP ICD diagnosis code. It should be entered for all cases. VALIP.prosthetic.fm2cw.ICDDIAGNOSIS80 182 PRIN_PREOP_ICD_DIAGNOSIS_CODE CODE NUMBER ICD-9 or ICD-10 Code]]> %Library.String 1 CODE_NUMBER into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PRIN_PREOP_ICD_DIAGNOSIS_CODE_CODE_NUMBER}=$select(SQLCODE=0:val,1:"")]]> 1 PRIN_PREOP_ICD_DIAGNOSIS_CODE_CODE_NUMBER 1 FileMan Field Label: 'PRIOR HEART SURGERY' FileMan Field Number: '485' Prior Heart Surgery Definition Revised (2014): Indicate all applicable types of heart surgery performed, either on or off-pump. Indicate all appropriate responses: None - Patient has not had a previous cardiac surgery procedure CABG-only - Patient has had a previous coronary artery bypass graft (CABG-only) procedure Valve-only - Patient has had a previous valve-only procedure CABG/Valve - Patient has had a previous combination CABG/valve procedure Other - Patient has had a previous cardiac procedure(s) other than CABG and Valve surgery, such as repair of atrial or ventricular septal defects, great thoracic vessel repair, cardiac transplant, left ventricular aneurysmectomy, insertion of ventricular assist devices, total artificial hearts, Maze procedures, etc." (Do not include pacemaker insertions or automatic implantable cardioverter-defibrillator (AICD) insertions; do not include pericardectomy if done off pump). CABG/Other - Patient has had a previous cardiac surgery that included a CABG with a concurrent "Other" cardiac procedure. Unknown - Unknown %Library.String 545 PRIOR_HEART_SURGERY FileMan Field Label: 'PRIOR INFEC/INFLAM SURG FIELD' FileMan Field Number: '675' Prior infection or inflammation in planned surgical field This field documents if the patient has had an infection or an acute inflammatory process within the 90 days prior to the operation that locally involves the planned surgical field. %Library.EnumString 640 PRIOR_INFECINFLAM_SURG_FIELD 7 days and < 6 months prior to surgery 4. Yes, > 6 months prior to surgery 5. Unknown]]> %Library.EnumString 255 PRIOR_MI FileMan Field Label: 'PRIOR SURG SAME OP FIELD' FileMan Field Number: '677' Number of Prior Surgery in same Operative field This field documents the number of procedures that the patient has had performed in the body cavity or surgical field that is to undergo the current procedure. %Library.EnumString 642 PRIOR_SURG_SAME_OP_FIELD FileMan Field Label: '*PROCEDURE COMPLETED' FileMan Field Number: '29' Principal Operative Procedure Complete (Y/N) This indicates whether the principal operative procedure was completed. This field has been marked for deletion. %Library.EnumString 180 PROCEDURE_COMPLETED FileMan Field Label: 'PROCEDURE TO BE PERFORMED' FileMan Field Number: '601' Confirm Procedure To Be Performed This field verifies the procedure to be performed has been confirmed. Your answer should be "Yes" or "No". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 577 PROCEDURE_TO_BE_PERFORMED FileMan Field Label: 'PROCEDURE TYPE' FileMan Field Number: '476' Procedure Type Definition Revised (2004): Indicate which test was used for the cardiac catheterization and/or angiographic data. Indicate the one most appropriate response: Cath - A diagnostic procedure in which a catheter is introduced into a large vein, usually of an arm or leg, and threaded through the circulatory system to the heart to determine blood pressure and the rate of flow in the vessels and chambers of the heart and the identification of abnormal anatomy. IVUS - Intravascular Ultrasound may be used either alone or in combination with results from the cardiac catheterization. If used alone, indicate IVUS as the only test from which procedure results are calculated. Both - If both IVUS and Cath are available and both tests were analyzed for the results, indicate Both/Combination. NS - If no cath study is available, entering NS for "No Study/Unknown" is also allowed. %Library.EnumString 536 PROCEDURE_TYPE FileMan Field Label: 'PROJ 112/SHAD' FileMan Field Number: '.026' This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to PROJ 112/SHAD. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 17 PROJ_112SHAD FileMan Field Label: 'PROSTHESIS REM' FileMan Field Number: '.982' Prosthetics Removed (Y/N) This indicates whether prosthetics (dentures, jewelry, hair pieces) have been removed prior to transport to the operating room. %Library.EnumString 115 PROSTHESIS_REM FileMan Field Label: 'PROVIDER' FileMan Field Number: '123' Provider This is the person who performs the major portion of the principal non-OR procedure. This field is required for several reports. VALIP.prosthetic.fm2cw.NEWPERSON200 242 PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROVIDER_NAME 1 FileMan Field Label: 'PULMONARY EDEMA' FileMan Field Number: '259' Pulmonary Edema Requiring IV Diuretic Therapy (Y/N) This determines whether the patient has developed postoperative distress requiring treatment and diagnosis of CHF or pulmonary edema or Adult Respiratory Distress Syndrome. %Library.EnumString 312 PULMONARY_EDEMA FileMan Field Label: 'PULMONARY EMBOLISM' FileMan Field Number: '252' Pulmonary Embolism (Y/N) Definition Revised (2007): Lodging of a blood clot in a pulmonary artery with subsequent obstruction of blood supply to the lung parenchyma. The blood clots usually originate from the deep leg veins or the pelvic venous system. Enter "YES" if the patient has a V-Q scan interpreted as high probability of pulmonary embolism or a positive pulmonary arteriogram or positive CT angiogram or positive Spiral CT exam. Treatment usually consists of: - Initiation of anticoagulation therapy - Placement of mechanical interruption (e.g. Greenfield Filter), for patients in whom anticoagulation is contraindicated or already instituted. %Library.EnumString 305 PULMONARY_EMBOLISM FileMan Field Label: 'PULMONARY HTN' FileMan Field Number: '669' Pulmonary HTN This field documents if the patient has pulmonary hypertension documented on invasive or non-invasive cardiac testing. %Library.EnumString 634 PULMONARY_HTN FileMan Field Label: '*PULMONARY RALES' FileMan Field Number: '348' *Pulmonary Rales (Y/N) Definition Revised (2004): Indicate if the chart documents rales not clearing with cough (and not due to pneumonic process) heard within two weeks before surgery. Do not include rales that clear with coughing, as these are usually due to atelectasis and carry a much more benign connotation. Please note, crackles are another common approach to noting that rales are present. %Library.EnumString 406 PULMONARY_RALES FileMan Field Label: '*PULMONARY VALVE PROCEDURE' FileMan Field Number: '493' *Pulmonary Valve Procedure VASQIP Definition (2010): Indicate if the patient had a pulmonary valve replacement (either the native or a prosthetic valve) or a repair (on the native valve to relieve stenosis and/or correct regurgitation -annuloplasty, commissurotomy, etc.); performed with or without additional procedure(s); either with or without placing the patient on cardiopulmonary bypass. (If a repair was attempted, but a replacement occurred, indicate the details of the replacement valve.) Indicate the one most appropriate procedure: * None * Mechanical Valve * Stented Bioprosthetic Valve * Stentless Bioprosthetic Valve * Homograft * Primary Valve Repair * Primary Valve Repair and Annuloplasty Device * Annuloplasty Device alone * Autograft Procedure (Ross Procedure) * Other %Library.EnumString 554 PULMONARY_VALVE_PROCEDURE FileMan Field Label: 'PULMONARY (Y/N)' FileMan Field Number: '241' Pulmonary (Y/N) This determines whether the patient has a history of pulmonary illnesses. %Library.EnumString 294 PULMONARY_YN FileMan Field Label: 'QUADRIPLEGIA (Y/N)' FileMan Field Number: '398' Quadriplegia/Tetraplegia/Quadriparesis (Y/N) Definition Revised (2004): Patient has sustained acute or chronic neuromuscular injury resulting in total or partial paralysis or paresis (weakness) of all four extremities. %Library.EnumString 461 QUADRIPLEGIA_YN FileMan Field Label: 'RACE' FileMan Field Number: '417' Patient's Race This is the race of the patient. This is a standard set of codes and should not be edited. %Library.EnumString 481 RACE FileMan Field Label: 'RADIOTHERAPY IN LAST 90 DAYS' FileMan Field Number: '338.2' Radiotherapy Within 90 Days Prior to Surgery (Y/N) Definition Revised (2004): Enter "YES" if the patient had any radiotherapy treatment for cancer in the 90 days prior to surgery. If the patient had radiation seeds implanted, count if implantation is within 90 days prior to the operation. %Library.EnumString 394 RADIOTHERAPY_IN_LAST_90_DAYS FileMan Field Label: 'READY TO TRANSMIT?' FileMan Field Number: '905' Ready to Transmit ? This field is set to R (ready) by a MUMPS cross reference the TIME PAT OUT OR field. When this case is transmitted to the national database at the end of the quarter, this field will be updated to T (transmitted). This field serves as a flag that indicates the transmission status of this case. %Library.EnumString 715 READY_TO_TRANSMIT FileMan Field Label: 'REASON FOR NO ASSESSMENT' FileMan Field Number: '102' Reason for not Creating an Assessment VASQIP Definition (2015): This is the reason why no assessment was entered for this particular surgical case. It should be entered if any VASQIP CPT-eligible procedure was excluded from the risk assessment module. 0 - Non-surgeon performed the procedure 2 - Number of surgical cases entered into the Surgical Package exceeded 36 over an 8 day time frame 3 - Number of TURPs or TURBTs exceeded 5 cases over an 8 day time frame 4 - Surgical case does not meet inclusion criteria (VASQIP excluded case, CPT code, ASA 6) 6 - 10% Rule: Surgical Quality Nurse can exclude up to 10% non-mandatory cases in a 12 month calendar year 8 - Case was a concurrent case, secondary to an assessed primary case 9 - Number of hernias exceeded 5 cases over an 8 day time frame A - Aborted: case was cancelled after the patient entered the operating room prior to incision %Library.EnumString 235 REASON_FOR_NO_ASSESSMENT FileMan Field Label: 'RECIPIENT ABO TYPE' FileMan Field Number: '654' Recipient ABO Type This is the ABO Type of the transplant recipient. %Library.EnumString 620 RECIPIENT_ABO_TYPE %Library.EnumString 105 RECXRAY_READY FileMan Field Label: 'RE-DO CIRCUMFLEX STENOSIS' FileMan Field Number: '480' Re-Do Circumflex Stenosis Definition Revised (2004): If a re-do, indicate the most severe percent stenosis in the graft to the circumflex coronary artery, including marginal branches and ramus intermedius considered to be of adequate size for bypass grafting. Entering "NS" for "No Study/Unknown" is also allowed. %Library.String 540 REDO_CIRCUMFLEX_STENOSIS FileMan Field Label: 'RE-DO LAD STENOSIS' FileMan Field Number: '478' Re-Do Lad Stenosis Definition Revised (2004): If a re-do, indicate the most severe percent stenosis in the graft to the left anterior descending coronary artery. Entering "NS" for "No Study/Unknown" is also allowed. %Library.String 538 REDO_LAD_STENOSIS FileMan Field Label: 'REDO PROCEDURE' FileMan Field Number: '201' Redo Procedure (Y/N) This determines whether the principal operative procedure was a reoperation in the same anatomic location for the same purpose as the first operation regardless of the length of time from the original surgical date. %Library.EnumString 250 REDO_PROCEDURE FileMan Field Label: 'RE-DO RT CORONARY STENOSIS' FileMan Field Number: '479' Re-Do Right Coronary Stenosis Definition Revised (2004): If a re-do, indicate the most severe percent stenosis in the graft to the right coronary artery or posterior descending coronary artery. Entering "NS" for "No Study/Unknown" is also allowed. %Library.String 539 REDO_RT_CORONARY_STENOSIS FileMan Field Label: 'RELIEF ANESTHETIST' FileMan Field Number: '.32' Relief Anesthetist This is the name of the anesthetist relieving the principal anesthetist, if applicable. If entered, this information appears on the Anesthesia Report. VALIP.prosthetic.fm2cw.NEWPERSON200 61 RELIEF_ANESTHETIST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {RELIEF_ANESTHETIST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 RELIEF_ANESTHETIST_NAME 1 FileMan Field Label: 'RENAL FAILURE' FileMan Field Number: '328' Acute Renal Failure (Y/N) Definition Revised (2004): The clinical condition associated with rapid, steadily increasing azotemia (increase in BUN), and a rising creatinine of above 3 mg/dl. Acute renal failure should be noted within 24 hours prior to surgery. %Library.EnumString 382 RENAL_FAILURE 2 mg/dl from preoperative value, but with no requirement for dialysis.]]> %Library.EnumString 472 RENAL_INSUFFICIENCY FileMan Field Label: 'RENAL (Y/N)' FileMan Field Number: '243' Renal (Y/N) This determines whether the patient has a history of renal illnesses. %Library.EnumString 296 RENAL_YN FileMan Field Label: 'REOPERATION FOR BLEEDING' FileMan Field Number: '389' Reoperation for Bleeding (Y/N) Definition Revised (2015): Indicate if there was any re-exploration of the thorax for suspected bleeding after the patient left the operating room and within 30 days of surgery. %Library.EnumString 452 REOPERATION_FOR_BLEEDING FileMan Field Label: 'REPEAT CARDIAC SURG PROCEDURE' FileMan Field Number: '391' Repeat Cardiac Surgical Procedure (Y/N) Definition Revised (2014): Indicate the CPB status if the patient underwent a repeat operation on the heart after the patient had left the operating room from the initial operation and within current hospitalization or within 30 days of the initial operation. %Library.EnumString 454 REPEAT_CARDIAC_SURG_PROCEDURE FileMan Field Label: '*REPEAT VENTILATOR W/IN 30 DAY' FileMan Field Number: '490' *Repeat Ventilator Support within 30 days Definition Revised (2008): Indicate if the patient was placed on ventilator support postoperatively within 30 days and this repeat ventilator support is related to the index operation (For example, the patient is on the ventilator intra-op and immediately post-op. Then patient is weaned and the ventilator is discontinued. Later, the patient gets into trouble and mechanical ventilation has to be reinstated.) However, if the patient returns to the OR within 30 days and gets extubated immediately after, it is not considered repeat ventilator support. %Library.EnumString 551 REPEAT_VENTILATOR_WIN_30_DAY FileMan Field Label: 'REPORT GIVEN TO' FileMan Field Number: '639' Report Given To This indicates the name of the staff member who received the postoperative report from the OR staff member. VALIP.prosthetic.fm2cw.NEWPERSON200 607 REPORT_GIVEN_TO NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {REPORT_GIVEN_TO_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REPORT_GIVEN_TO_NAME 1 FileMan Field Label: 'REQUESTED' FileMan Field Number: '36' Was this Case Requested (Y/N) This indicates whether this case was requested. %Library.Numeric 186 REQUESTED FileMan Field Label: 'REQUEST BLOOD AVAILABILITY' FileMan Field Number: '38' Request Blood for this Surgical Case (Y/N) This determines whether blood will be requested for this surgical procedure. Enter 'YES' if blood will be requested. Otherwise, enter 'NO'. %Library.EnumString 188 REQUEST_BLOOD_AVAILABILITY FileMan Field Label: 'REQ ANESTHESIA TECHNIQUE' FileMan Field Number: '1.01' Requested Anesthesia Technique This is the surgeon's choice of anesthesia for the proposed operative procedure. This information will appear on the Schedule of Operations. %Library.EnumString 133 REQ_ANESTHESIA_TECHNIQUE FileMan Field Label: 'REQ BLOOD AVAIL' FileMan Field Number: '1.052' Requested Blood Components Available (Y/N) This indicates whether the requested blood components are available. %Library.EnumString 138 REQ_BLOOD_AVAIL FileMan Field Label: 'REQ FROZ SECT' FileMan Field Number: '1.02' Request Frozen Section Tests (Y/N) This indicates whether laboratory support is needed to perform frozen section diagnostic tests during the operative procedure. %Library.EnumString 134 REQ_FROZ_SECT FileMan Field Label: 'REQ PHOTO' FileMan Field Number: '1.04' Request Medical Media (Y/N) This indicates whether Medical Media personnel need to be present in the operating room to obtain photographs during the operative procedure. %Library.EnumString 137 REQ_PHOTO FileMan Field Label: 'REQ PREOP X-RAY' FileMan Field Number: '1.03' Requested Preoperative X-Rays These are the types of preop x-ray films and reports required for delivery to the operating room prior to the surgical procedure. %Library.String 135 REQ_PREOP_XRAY FileMan Field Label: 'RESCHEDULED CASE' FileMan Field Number: '79' Replacement Case for This Cancelled Case This field identifies the new surgery case that will be scheduled later to replace this cancelled case. VALIP.prosthetic.fm2cw.SURGERY130 226 RESCHEDULED_CASE PATIENT Patient's Name This is the name of the patient. ]]> %Library.String 1 PATIENT into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {RESCHEDULED_CASE_PATIENT}=$select(SQLCODE=0:val,1:"")]]> 1 RESCHEDULED_CASE_PATIENT 1 FileMan Field Label: 'RESIDENCE 30 DAYS PREOP' FileMan Field Number: '670' Current Residence (w/in 30 days prior to surgery) Describe the current residence of the patient in the 30 days prior to surgery. If multiple answer options apply, select the highest level applicable within the 30 days preoperative. 1. Home (patient has their own residence or a similar dwelling e.g. residence of a family member) 2. Acute Care Facility (patient was transferred to the VA that performed the surgery from an acute care facility, VA or non-VA) 3. Long Term Care (patient came from an extended care facility or nursing home, VA or non-VA) 4. Homeless (patient does not have a fixed dwelling (homeless) and/or came from a supervised public or private shelter or transitional housing facility) 5. Unknown Note: Answer 4 if the patient lacks a fixed dwelling, including an individual whose primary residence during the night is a supervised public or private facility (e.g., shelters) that provides temporary living accommodations, an individual who is a resident in transitional housing facility, or an individual who lives in another individual's/family's home and would otherwise be homeless. %Library.EnumString 635 RESIDENCE_30_DAYS_PREOP FileMan Field Label: 'RESPIRATORY OCCURRENCES' FileMan Field Number: '318' Postoperative Respiratory Occurrences (Y/N) This determines whether the patient had postoperative respiratory occurrences. A respiratory occurrence is defined as an impairment to the lungs to perform their ventilatory function. This may be due to impairment of gas exchange in the lung or obstruction of the free flow of air to the lung. %Library.EnumString 372 RESPIRATORY_OCCURRENCES FileMan Field Label: '*RESTING ST DEPRESSION' FileMan Field Number: '350' *Resting ST Depression (Y/N) This determines whether the patient has a ST-segment depression greater than or equal to 1 mm in any lead on standard resting electrocardiogram (ECG), and/or ECG diagnosis of subendocardial ischemia, left ventricular strain, or left ventricular hypertrophy with repolarization abnormality. %Library.EnumString 408 RESTING_ST_DEPRESSION FileMan Field Label: 'REST PAIN/GANGRENE (Y/N)' FileMan Field Number: '330' Rest Pain/Gangrene (Y/N) Definition Revised (2007): Rest pain is a more severe form of ischemic pain due to occlusive disease, which occurs at rest and is manifested as a severe, unrelenting pain aggravated by elevation and often preventing sleep. Gangrene is a marked skin discoloration and disruption indicative of death and decay of tissues in the extremities due to severe and prolonged ischemia. Include patients with ischemic ulceration and/or tissue loss related to peripheral vascular disease. Do not include Fournier's gangrene. Report only if within the 30 days preoperatively. %Library.EnumString 384 REST_PAINGANGRENE_YN FileMan Field Label: 'RE-TRANSMISSION' FileMan Field Number: '393' This determines whether the assessment will be re-transmitted. It will automatically be set to '1' when a transmitted assessment is updated to an INCOMPLETE status to edit and re-transmit. %Library.Numeric 456 RETRANSMISSION FileMan Field Label: 'RETURN TO OR WITHIN 30 DAYS' FileMan Field Number: '262' Return to OR within 30 Days of Index Procedure (Y/N) Definition Revised (2004): Returns to the operating room include all surgical procedures that required the patient to be taken to the surgical operating room for intervention of any kind will automatically be entered by the software. %Library.EnumString 316 RETURN_TO_OR_WITHIN_30_DAYS FileMan Field Label: '*REVASCULARIZATION/AMPUTATION' FileMan Field Number: '329' *History of Revascularization/Amputation for PVD (Y/N) Definition Revised (2004): Any type of angioplasty or revascularization procedure for atherosclerotic peripheral vascular disease (PVD) (e.g., aorto-femoral, femoral-femoral, femoral-popliteal) or a patient who has had any type of amputation procedure for PVD (e.g., toe amputations, transmetatarsal amputations, below the knee or above the knee amputations). Patients who have had amputation for trauma or a resection of abdominal aortic aneurysms should not be included. %Library.EnumString 383 REVASCULARIZATIONAMPUTATION FileMan Field Label: 'REVIEW OF DEATH COMMENTS' FileMan Field Number: '904' Review of Death Comments This word processing field contains comments about the review of death. %Library.String 714 REVIEW_OF_DEATH_COMMENTS FileMan Field Label: 'RIGHT CORONARY STENOSIS' FileMan Field Number: '362.2' Right Coronary Artery Stenosis Definition Revised (2004): Indicate the most severe percent stenosis in the right coronary artery. Include the proximal third of the posterior descending coronary artery. The right coronary artery initially runs in the groove between the right ventricle and right atrium; it usually gives off branches to both the right and left ventricles and the right atrium. The branches to the right atrium (sinus node artery) and right ventricle (conus branch and acute marginal branches) are commonly ignored when describing coronary artery disease. However, the right coronary artery is the most common source for the posterior descending coronary artery and often gives-off branches to the posterior-lateral free wall of the left ventricle. These are often known as left ventricular extension branches and are considered branches of the circumflex for the coding of severity of coronary disease. If there is no obstruction of these coronary arteries, indicate zero. Entering "NS" for "No Study/Unknown" is also allowed. %Library.String 422 RIGHT_CORONARY_STENOSIS FileMan Field Label: 'ROBOTIC ASSISTANCE (Y/N)' FileMan Field Number: '2006' Robotic Assistance (Y/N) This field indicates whether robotic assistance was used for any portion of the procedure. It must be entered prior to signing the Nurse Intraoperative Report. Enter YES if robotic assistance was used during the procedure. Otherwise, enter NO. %Library.EnumString 723 ROBOTIC_ASSISTANCE_YN FileMan Field Label: 'SCHEDULED DATE' FileMan Field Number: '617' Scheduled Date This field is updated with the new date whenever the OR Scheduler modifies the SCHEDULED START TIME field (#10) for the surgical case. %Library.FilemanDate 593 SCHEDULED_DATE FileMan Field Label: 'SCHEDULED END TIME' FileMan Field Number: '11' Scheduled to End at what Time This is the date and time that this operative procedure is scheduled to end. %Library.FilemanTimeStamp 163 SCHEDULED_END_TIME FileMan Field Label: 'SCHEDULED PROCEDURE' FileMan Field Number: '68' Scheduled Procedure This field contains the scheduled (or original) principal procedure for this case. It will be compared to the actual procedure completed. %Library.String 215 SCHEDULED_PROCEDURE FileMan Field Label: 'SCHEDULED START TIME' FileMan Field Number: '10' Scheduled to Start at what Time This is the date and time that this operative procedure is scheduled to begin. %Library.FilemanTimeStamp 162 SCHEDULED_START_TIME FileMan Field Label: 'SECOND ASST' FileMan Field Number: '.16' Second Assistant This is the name of the second person assisting the surgeon during the operative procedure. If entered, this information appears on the Operation Report and Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.NEWPERSON200 30 SECOND_ASST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SECOND_ASST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SECOND_ASST_NAME 1 FileMan Field Label: 'SECOND SKIN PREP AGENT' FileMan Field Number: '8' Second Skin Preparation Agent This is the name of the SECOND antimicrobial agent used to wash and prepare the operative site. Although optional, this information may be useful in documentation of the case. VALIP.prosthetic.fm2cw.SKINPREPAGENTS1351 160 SECOND_SKIN_PREP_AGENT NAME Name of the Skin Preparation Agent This is the name of the agent used to prepare the skin prior to the operative procedure. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SECOND_SKIN_PREP_AGENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SECOND_SKIN_PREP_AGENT_NAME 1 FileMan Field Label: 'SEQUENTIAL COMPRESSION DEVICE' FileMan Field Number: '127' Sequential Compression Device (Y/N) This determines whether a sequential compression device was used. %Library.EnumString 245 SEQUENTIAL_COMPRESSION_DEVICE FileMan Field Label: '*SEROLOGY REPORT' FileMan Field Number: '.997' This field has been marked for deletion. It should not be used. %Library.EnumString 130 SEROLOGY_REPORT FileMan Field Label: 'SERUM BILIRUBIN (CARDIAC)' FileMan Field Number: '460' Serum Bilirubin (mg/dl) Definition Revised (2004): Indicate the serum bilirubin result (mg/dl) preoperatively evaluated closest to surgery but not greater than 90 days before surgery. Entering "NS" for "No Study" is allowed. %Library.String 517 SERUM_BILIRUBIN_CARDIAC FileMan Field Label: 'SERUM BILIRUBIN, DATE (CARD)' FileMan Field Number: '460.1' Serum Bilirubin, Date Definition Revised (2004): Indicate the date that the preoperative Serum Bilirubin value was assessed. Enter "NS" for No Study if the Serum Bilirubin test was not performed or was performed more than 90 days before surgery. %Library.String 518 SERUM_BILIRUBIN_DATE_CARD FileMan Field Label: 'SERUM POTASSIUM (CARDIAC)' FileMan Field Number: '459' Serum Potassium (mg/L) Definition Revised (2004): Indicate the serum potassium result (mg/L) preoperatively evaluated closest to surgery but not greater than 90 days before surgery. Entering "NS" for "No Study" is allowed. %Library.String 515 SERUM_POTASSIUM_CARDIAC FileMan Field Label: 'SERUM POTASSIUM, DATE(CARDIAC)' FileMan Field Number: '459.1' Serum Potassium, Date Definition Revised (2004): Indicate the date that the preoperative Serum Potassium value was assessed. Enter "NS" for No Study if the Serum Potassium test was not performed or was performed more than 90 days before surgery. %Library.String 516 SERUM_POTASSIUM_DATECARDIAC FileMan Field Label: 'SERUM TRIGLYCERIDE (CARDIAC)' FileMan Field Number: '458' Serum Triglyceride (mg/dl) Definition Revised (2006): Indicate the Serum Triglyceride result (mg/dl) preoperatively evaluated closest to surgery. Entering "NS" for "No Study" is allowed. %Library.String 513 SERUM_TRIGLYCERIDE_CARDIAC FileMan Field Label: 'SERUM TRIGLYCERIDE, DATE (CAR)' FileMan Field Number: '458.1' Serum Triglyceride, Date Definition Revised (2006): Indicate the date that the preoperative Serum Triglyceride value was assessed. Enter "NS" for No Study if the Serum Triglyceride test was not performed. %Library.String 514 SERUM_TRIGLYCERIDE_DATE_CAR FileMan Field Label: 'SERVICE CONNECTED' FileMan Field Number: '.016' Treatment related to Service Connected condition (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a service connected problem. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 8 SERVICE_CONNECTED FileMan Field Label: 'SEVERE HEAD TRAUMA (Y/N)' FileMan Field Number: '397' Severe Head Trauma (Y/N) This determines whether the patient has sustained open or closed trauma to the head from external force, violence, or accident with resulting impairment in neurological function as manifested by motor, sensory, or cognitive impairments. %Library.EnumString 460 SEVERE_HEAD_TRAUMA_YN FileMan Field Label: 'SGOT, DATE PERFORMED' FileMan Field Number: '294' Date Preoperative SGOT was Performed This is the date that the preoperative SGOT was performed. %Library.FilemanDate 349 SGOT_DATE_PERFORMED FileMan Field Label: 'SGPT, DATE PERFORMED' FileMan Field Number: '293' Date Preoperative SGPT was Performed This is the date that the preoperative SGPT was performed. %Library.FilemanDate 348 SGPT_DATE_PERFORMED FileMan Field Label: 'SHARPS FINAL COUNT CORRECT' FileMan Field Number: '45' Sharps Final Count Correct This indicates whether the sharps final count was correct. If entered, this information will appear on the Nurse Intraoperative Report. The type of information entered in this field is determined by local hospital policy. %Library.EnumString 194 SHARPS_FINAL_COUNT_CORRECT FileMan Field Label: 'SITE MARK TIMESTAMP' FileMan Field Number: '77' Site Mark Verified Timestamp This field is updated whenever the MARKED SITE CONFIRMED field (#73) is entered or changed. %Library.FilemanTimeStamp 224 SITE_MARK_TIMESTAMP FileMan Field Label: 'SITE OF PROCEDURE' FileMan Field Number: '602' Confirm Site of Procedure, Including Laterality This field verifies the site of procedure, including laterality, has been confirmed. Your answer should be "Yes" or "No". If you answer "NO", you'll be asked to justify your answer in the CHECKLIST COMMENT (#85) field. %Library.EnumString 578 SITE_OF_PROCEDURE FileMan Field Label: 'SKIN PREPPED BY (1)' FileMan Field Number: '.18' Skin Prepped By This is the name of the person responsible for applying the agent used to wash and prepare the operative site. If entered, this information will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.NEWPERSON200 37 SKIN_PREPPED_BY_1 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SKIN_PREPPED_BY_1_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SKIN_PREPPED_BY_1_NAME 1 FileMan Field Label: 'SKIN PREPPED BY (2)' FileMan Field Number: '4' Skin Prepped By (2) This is the name of a second person performing skin preparation, if applicable. When entered, this information appears on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.NEWPERSON200 156 SKIN_PREPPED_BY_2 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SKIN_PREPPED_BY_2_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SKIN_PREPPED_BY_2_NAME 1 FileMan Field Label: 'SKIN PREPPED BY (3)' FileMan Field Number: '5' Skin Prepped By (3) This is the name of the third person performing the preoperative skin preparation. If entered, this information will appear on the Nurse Intraoperative Report. VALIP.prosthetic.fm2cw.NEWPERSON200 157 SKIN_PREPPED_BY_3 NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SKIN_PREPPED_BY_3_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SKIN_PREPPED_BY_3_NAME 1 FileMan Field Label: 'SKIN PREP AGENTS' FileMan Field Number: '.175' Skin Preparation Agent This is the type of agent used to wash and prepare the operative site. If entered, this information appears on the Nurse Intraoperative Report and is useful in documenting the case. VALIP.prosthetic.fm2cw.SKINPREPAGENTS1351 36 SKIN_PREP_AGENTS NAME Name of the Skin Preparation Agent This is the name of the agent used to prepare the skin prior to the operative procedure. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SKIN_PREP_AGENTS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SKIN_PREP_AGENTS_NAME 1 FileMan Field Label: 'SLEEP APNEA-COMPLIANCE' FileMan Field Number: '667' Sleep Apnea-Compliance If yes to Level 3 Sleep Apnea, indicate level of patient's reported compliance with treatment. %Library.EnumString 632 SLEEP_APNEACOMPLIANCE FileMan Field Label: 'SOUTHWEST ASIA CONDITIONS' FileMan Field Number: '.019' Treatment related to service in SW Asia (Y/N) This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem related to service in SW Asia. This information may be passed to the VISIT file (#9000010) for use by PCE. %Library.EnumString 11 SOUTHWEST_ASIA_CONDITIONS FileMan Field Label: 'SPD COMMENTS' FileMan Field Number: '80' This word-processing field contains any information for SPD that cannot be entered elsewhere. These comments will be sent to SPD via the Surgery/CoreFLS interface. %Library.String 227 SPD_COMMENTS FileMan Field Label: 'SPECIMENS' FileMan Field Number: '49' Specimens These are the names of specimens sent to the lab for analysis. %Library.String 198 SPECIMENS FileMan Field Label: 'SPINAL LEVEL' FileMan Field Number: '136' Spinal Level This is the spinal level(s) of the planned procedure as free text, for example L1 or L1-L2. %Library.String 248 SPINAL_LEVEL FileMan Field Label: 'SPONGE FINAL COUNT CORRECT' FileMan Field Number: '44' Sponge Final Count Correct This indicates whether the sponge final count was correct. If entered, this information will appear on the Nurse Intraoperative Report. %Library.EnumString 193 SPONGE_FINAL_COUNT_CORRECT VALIP.prosthetic.fm2cw.NEWPERSON200 196 SPONGE_SHARPS__INST_COUNTER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SPONGE_SHARPS__INST_COUNTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SPONGE_SHARPS__INST_COUNTER_NAME 1 FileMan Field Label: 'STAFF/RESIDENT' FileMan Field Number: '101' Resident or Staff Surgeon This determines whether the surgeon was a resident or staff. It will be used for categorizing procedures in the Annual Report of Surgical Procedures. %Library.EnumString 234 STAFFRESIDENT FileMan Field Label: 'STATIN 30 DAYS PREOP' FileMan Field Number: '709' Statin 30 Days Preop This field documents if the patient was prescribed and compliant with usage of a statin for 30 days or greater preoperatively. %Library.EnumString 666 STATIN_30_DAYS_PREOP FileMan Field Label: 'STEROID USE FOR CHRONIC COND.' FileMan Field Number: '339' Oral or Parenteral Steroid Use for Chronic Condition Definition Revised (2015): Patient has required the regular administration of oral or parenteral corticosteroid medications (e.g., Prednisone, Decadron) in the 30 days prior to admission for a chronic medical condition (e.g., COPD, asthma, rheumatologic disease, rheumatoid arthritis, inflammatory bowel disease). Do not include topical corticosteroids applied to the skin or corticosteroids administered by inhalation or rectally. Do not include patients who only receive short course steroids (duration 10 days or less) in the 30 days prior to surgery. (See list of corticosteroids in Operations Manual.) Choose from: Y- YES N- NO NS- NO STUDY %Library.EnumString 396 STEROID_USE_FOR_CHRONIC_COND_ FileMan Field Label: 'STOMA COMPLICATIONS' FileMan Field Number: '688' Stoma Complications This field document any condition of a stoma which requires surgical intervention/revision within 30 days from date of stoma creation. %Library.EnumString 646 STOMA_COMPLICATIONS 72 hours with onset immediately post-operatively or occurring within the 30 days after surgery.]]> %Library.EnumString 453 STROKE FileMan Field Label: 'STROKE/CVA' FileMan Field Number: '256' Stroke/CVA VASQIP Definitions (2011): Indicate if the patient developed a new neurologic deficit with onset immediately post-operatively or occurring within the 30 days after surgery. Neurologic deficits are defined as an embolic, thrombotic, or hemorrhagic vascular accident or stroke with motor, sensory, or cognitive dysfunction (e.g., hemiplegia, hemiparesis, aphasia, sensory deficit, impaired memory). %Library.EnumString 309 STROKECVA Relationship for Sub-File/Multiple to file name 3M CODES child VALIP.prosthetic.fm2cw.SUB3MCODES130019900003 children SURGERY130 1 SUB_3M_CODES_130_019900003 Relationship for Sub-File/Multiple to file name ANESTHESIA TECHNIQUE child VALIP.prosthetic.fm2cw.SUBANESTHESIATECHNIQUE13006 children SURGERY130 1 SUB_ANESTHESIA_TECHNIQUE_130_06 Relationship for Sub-File/Multiple to file name ANES CARE TIME BLOCK child VALIP.prosthetic.fm2cw.SUBANESCARETIMEBLOCK130213 children SURGERY130 1 SUB_ANES_CARE_TIME_BLOCK_130_213 Relationship for Sub-File/Multiple to file name ANES CONCURRENT CASES child VALIP.prosthetic.fm2cw.SUBANESCONCURRENTCASES1303513 children SURGERY130 1 SUB_ANES_CONCURRENT_CASES_130_3513 Relationship for Sub-File/Multiple to file name CELL SAVER child VALIP.prosthetic.fm2cw.SUBCELLSAVER130013 children SURGERY130 1 SUB_CELL_SAVER_130_013 Relationship for Sub-File/Multiple to file name DELAY CAUSE child VALIP.prosthetic.fm2cw.SUBDELAYCAUSE130042 children SURGERY130 1 SUB_DELAY_CAUSE_130_042 Relationship for Sub-File/Multiple to file name DONOR VESSEL UNOS ID child VALIP.prosthetic.fm2cw.SUBDONORVESSELUNOSID1300664 children SURGERY130 1 SUB_DONOR_VESSEL_UNOS_ID_130_0664 Relationship for Sub-File/Multiple to file name IMAGE child VALIP.prosthetic.fm2cw.SUBIMAGE13002005 children SURGERY130 1 SUB_IMAGE_130_02005 Relationship for Sub-File/Multiple to file name INTRAOPERATIVE OCCURRENCES child VALIP.prosthetic.fm2cw.SUBINTRAOPERATIVEOCCURRENCES13013 children SURGERY130 1 SUB_INTRAOPERATIVE_OCCURRENCES_130_13 Relationship for Sub-File/Multiple to file name IRRIGATION child VALIP.prosthetic.fm2cw.SUBIRRIGATION13008 children SURGERY130 1 SUB_IRRIGATION_130_08 Relationship for Sub-File/Multiple to file name LASER PERFORMED child VALIP.prosthetic.fm2cw.SUBLASERPERFORMED13011 children SURGERY130 1 SUB_LASER_PERFORMED_130_11 Relationship for Sub-File/Multiple to file name LASER UNIT child VALIP.prosthetic.fm2cw.SUBLASERUNIT1300129 children SURGERY130 1 SUB_LASER_UNIT_130_0129 Relationship for Sub-File/Multiple to file name MEDICATIONS child VALIP.prosthetic.fm2cw.SUBMEDICATIONS13033 children SURGERY130 1 SUB_MEDICATIONS_130_33 Relationship for Sub-File/Multiple to file name MONITORS child VALIP.prosthetic.fm2cw.SUBMONITORS13041 children SURGERY130 1 SUB_MONITORS_130_41 Relationship for Sub-File/Multiple to file name NON-OPERATIVE OCCURRENCES child VALIP.prosthetic.fm2cw.SUBNONOPERATIVEOCCURRENCES130053 children SURGERY130 1 SUB_NONOPERATIVE_OCCURRENCES_130_053 Relationship for Sub-File/Multiple to file name ORGANS TO BE TRANSPLANTED child VALIP.prosthetic.fm2cw.SUBORGANSTOBETRANSPLANTED1300647 children SURGERY130 1 SUB_ORGANS_TO_BE_TRANSPLANTED_130_0647 Relationship for Sub-File/Multiple to file name OR CIRC SUPPORT child VALIP.prosthetic.fm2cw.SUBORCIRCSUPPORT13028 children SURGERY130 1 SUB_OR_CIRC_SUPPORT_130_28 Relationship for Sub-File/Multiple to file name OR SCRUB SUPPORT child VALIP.prosthetic.fm2cw.SUBORSCRUBSUPPORT13036 children SURGERY130 1 SUB_OR_SCRUB_SUPPORT_130_36 Relationship for Sub-File/Multiple to file name OTHER PERSONS IN OR child VALIP.prosthetic.fm2cw.SUBOTHERPERSONSINOR13024 children SURGERY130 1 SUB_OTHER_PERSONS_IN_OR_130_24 Relationship for Sub-File/Multiple to file name OTHER POSTOP DIAGS child VALIP.prosthetic.fm2cw.SUBOTHERPOSTOPDIAGS13018 children SURGERY130 1 SUB_OTHER_POSTOP_DIAGS_130_18 Relationship for Sub-File/Multiple to file name OTHER PREOP DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBOTHERPREOPDIAGNOSIS13017 children SURGERY130 1 SUB_OTHER_PREOP_DIAGNOSIS_130_17 Relationship for Sub-File/Multiple to file name OTHER PROCEDURES child VALIP.prosthetic.fm2cw.SUBOTHERPROCEDURES13016 children SURGERY130 1 SUB_OTHER_PROCEDURES_130_16 Relationship for Sub-File/Multiple to file name OTHER SCRUBBED ASSISTANTS child VALIP.prosthetic.fm2cw.SUBOTHERSCRUBBEDASSISTANTS13023 children SURGERY130 1 SUB_OTHER_SCRUBBED_ASSISTANTS_130_23 Relationship for Sub-File/Multiple to file name PHARMACY ITEMS child VALIP.prosthetic.fm2cw.SUBPHARMACYITEMS1300684 children SURGERY130 1 SUB_PHARMACY_ITEMS_130_0684 Relationship for Sub-File/Multiple to file name PLANNED IMPLANTS child VALIP.prosthetic.fm2cw.SUBPLANNEDIMPLANTS1300681 children SURGERY130 1 SUB_PLANNED_IMPLANTS_130_0681 Relationship for Sub-File/Multiple to file name POSTOP OCCURRENCE child VALIP.prosthetic.fm2cw.SUBPOSTOPOCCURRENCE13022 children SURGERY130 1 SUB_POSTOP_OCCURRENCE_130_22 Relationship for Sub-File/Multiple to file name PRIN ASSOC DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBPRINASSOCDIAGNOSIS130275 children SURGERY130 1 SUB_PRIN_ASSOC_DIAGNOSIS_130_275 Relationship for Sub-File/Multiple to file name PRIN. PROCEDURE CPT MODIFIER child VALIP.prosthetic.fm2cw.SUBPRINPROCEDURECPTMODIFIER130028 children SURGERY130 1 SUB_PRIN__PROCEDURE_CPT_MODIFIER_130_028 Relationship for Sub-File/Multiple to file name PROCEDURE OCCURRENCE child VALIP.prosthetic.fm2cw.SUBPROCEDUREOCCURRENCE1300126 children SURGERY130 1 SUB_PROCEDURE_OCCURRENCE_130_0126 Relationship for Sub-File/Multiple to file name PROSTHESIS INSTALLED child VALIP.prosthetic.fm2cw.SUBPROSTHESISINSTALLED13001 children SURGERY130 1 SUB_PROSTHESIS_INSTALLED_130_01 Relationship for Sub-File/Multiple to file name REFERRING PHYSICIAN child VALIP.prosthetic.fm2cw.SUBREFERRINGPHYSICIAN13003 children SURGERY130 1 SUB_REFERRING_PHYSICIAN_130_03 Relationship for Sub-File/Multiple to file name REPLACEMENT FLUID TYPE child VALIP.prosthetic.fm2cw.SUBREPLACEMENTFLUIDTYPE13004 children SURGERY130 1 SUB_REPLACEMENT_FLUID_TYPE_130_04 Relationship for Sub-File/Multiple to file name REQ BLOOD KIND child VALIP.prosthetic.fm2cw.SUBREQBLOODKIND13014 children SURGERY130 1 SUB_REQ_BLOOD_KIND_130_14 VALIP.prosthetic.fm2cw.SUBRESTRPOSITIONAIDS13031 children SURGERY130 1 SUB_RESTR__POSITION_AIDS_130_31 Relationship for Sub-File/Multiple to file name RETURNED TO SURGERY child VALIP.prosthetic.fm2cw.SUBRETURNEDTOSURGERY13043 children SURGERY130 1 SUB_RETURNED_TO_SURGERY_130_43 Relationship for Sub-File/Multiple to file name SPECIAL EQUIPMENT child VALIP.prosthetic.fm2cw.SUBSPECIALEQUIPMENT13025 children SURGERY130 1 SUB_SPECIAL_EQUIPMENT_130_25 Relationship for Sub-File/Multiple to file name SPECIAL INSTRUMENTS child VALIP.prosthetic.fm2cw.SUBSPECIALINSTRUMENTS1300683 children SURGERY130 1 SUB_SPECIAL_INSTRUMENTS_130_0683 Relationship for Sub-File/Multiple to file name SPECIAL SUPPLIES child VALIP.prosthetic.fm2cw.SUBSPECIALSUPPLIES1300682 children SURGERY130 1 SUB_SPECIAL_SUPPLIES_130_0682 Relationship for Sub-File/Multiple to file name SURGERY POSITION child VALIP.prosthetic.fm2cw.SUBSURGERYPOSITION130065 children SURGERY130 1 SUB_SURGERY_POSITION_130_065 Relationship for Sub-File/Multiple to file name THERMAL UNIT child VALIP.prosthetic.fm2cw.SUBTHERMALUNIT13032 children SURGERY130 1 SUB_THERMAL_UNIT_130_32 Relationship for Sub-File/Multiple to file name TIME TOURNIQUET APPLIED child VALIP.prosthetic.fm2cw.SUBTIMETOURNIQUETAPPLIED13002 children SURGERY130 1 SUB_TIME_TOURNIQUET_APPLIED_130_02 FileMan Field Label: 'SUPERFICIAL INCISIONAL SSI' FileMan Field Number: '248' Superficial Incisional Surgical Site Infection (Y/N) Definition Revised (2004): Superficial incisional SSI is an infection that occurs within 30 days after the operation and infection involves only skin or subcutaneous tissue of the incision and at least one of the following: - Purulent drainage, with or without laboratory confirmation, from the superficial incision. - Organisms isolated from an aseptically obtained culture of fluid or tissue from the superficial incision. - At least one of the following signs or symptoms of infection: pain or tenderness, localized swelling, redness, or heat and superficial incision is deliberately opened by the surgeon, unless incision is culture-negative. - Diagnosis of superficial incisional SSI by the surgeon or attending physician. Do not report the following conditions as SSI: - Stitch abscess (minimal inflammation and discharge confined to the points of suture penetration). - Infected burn wound. - Incisional SSI that extends into the fascial and muscle layers (see deep incisional SSI). %Library.EnumString 301 SUPERFICIAL_INCISIONAL_SSI FileMan Field Label: 'SURGEON'S DICTATION' FileMan Field Number: '1.15' Surgeon's Operation Notes This is the Surgeon's dictated operation note. %Library.String 145 SURGEONS_DICTATION FileMan Field Label: 'SURGEON VERIFYING UNET' FileMan Field Number: '657' Surgeon Performing UNET Verification Document the transplant surgeon who completed required UNET verification. VALIP.prosthetic.fm2cw.NEWPERSON200 623 SURGEON_VERIFYING_UNET NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SURGEON_VERIFYING_UNET_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURGEON_VERIFYING_UNET_NAME 1 FileMan Field Label: 'SURGEON VER DONOR ORG PRE-ANES' FileMan Field Number: '659' Surgeon Verifying Organ Prior to Donor Anesthesia For a live donor case, enter the name of the surgeon who documented the organ to be removed and transplanted, including laterality when applicable. VALIP.prosthetic.fm2cw.NEWPERSON200 625 SURGEON_VER_DONOR_ORG_PREANES NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SURGEON_VER_DONOR_ORG_PREANES_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURGEON_VER_DONOR_ORG_PREANES_NAME 1 FileMan Field Label: 'SURGEON VER ORGAN PRE-ANES' FileMan Field Number: '751' Surgeon Verifying Organ Prior to Anesthesia This field documents the Name of the surgeon who documented that the labeling of the organ to be transplanted matches associated documentation for the anticipated donor and recipient. VALIP.prosthetic.fm2cw.NEWPERSON200 707 SURGEON_VER_ORGAN_PREANES NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SURGEON_VER_ORGAN_PREANES_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURGEON_VER_ORGAN_PREANES_NAME 1 FileMan Field Label: 'SURGEON VER ORG PRE-TRANSPLANT' FileMan Field Number: '753' Surgeon Verifying the Organ Prior to Transplant This field documents the name of the surgeon who documented the organ to be transplanted. For cases where the organ is not transplanted, enter NA. VALIP.prosthetic.fm2cw.NEWPERSON200 709 SURGEON_VER_ORG_PRETRANSPLANT NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SURGEON_VER_ORG_PRETRANSPLANT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURGEON_VER_ORG_PRETRANSPLANT_NAME 1 FileMan Field Label: 'SURGERY CONSULT DATE' FileMan Field Number: '513' Surgery Consult Date Indicate the date that the patient was first consulted by Surgery for the operation as typically documented by a note by a member of Surgery Specialty that will perform the procedure (e.g., attending surgeon, fellow, nurse). For non-cardiac assessments, enter NA if this date is not applicable or cannot be determined. For Cardiothoracic (CT) Surgery, this date is usually on or just after the diagnostic catheterization date. %Library.String 567 SURGERY_CONSULT_DATE FileMan Field Label: 'SURGERY CONSULT REQUESTED' FileMan Field Number: '516' Date Surgery Consult Requested This is the date that the patient's physician requests that Surgery Service consult with the patient. It is not the date that the consult took place. Enter NA if this date is not applicable or cannot be determined. %Library.String 569 SURGERY_CONSULT_REQUESTED FileMan Field Label: '*SURGERY POSITION' FileMan Field Number: '.54' This field has been asterisked for deletion 18 months from the release of version 3.0 of the DHCP Surgery package. A multiple field titled SURGERY POSITION will be used in it's place. VALIP.prosthetic.fm2cw.SURGERYPOSITION132 77 SURGERY_POSITION NAME Name of Surgery Position This is the name of the Surgery Position. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SURGERY_POSITION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURGERY_POSITION_NAME 1 FileMan Field Label: 'SURGERY SPECIALTY' FileMan Field Number: '.04' Surgical Specialty Definition Revised (2007): This is the surgical specialty credited for doing this operative procedure. Many reports, including the Annual Report of Surgical Procedures, are sorted by the surgical specialty. This field should be entered prior to completion of this case. (If you enter '?' in the surgical package, it will display the entire local surgical specialty list and a copy of the national list can be found in the Operations Manual.) VALIP.prosthetic.fm2cw.LOCALSURGICALSPECIALTY13745 21 SURGERY_SPECIALTY NAME Name of Local Surgical Specialty This is the name of the 'local' surgical specialty used at this site.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SURGERY_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURGERY_SPECIALTY_NAME 1 FileMan Field Label: 'SURGICAL PRIORITY, DATE' FileMan Field Number: '414.1' Date/Time of Cardiac Surgical Priority This is the date and time that the cardiac surgical priority information was collected. %Library.FilemanTimeStamp 478 SURGICAL_PRIORITY_DATE FileMan Field Label: 'SURG PRESENT TIME' FileMan Field Number: '.206' Surgeon Present Time This is the date and time that the surgeon is available to begin the operative procedure. Although not mandatory, this information is useful for evaluating hospital delays. %Library.FilemanDate 45 SURG_PRESENT_TIME FileMan Field Label: 'SURG SCHED PERSON' FileMan Field Number: '1.099' Person Requesting/Scheduling this Case This is the name of the person requesting or scheduling this operative procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 141 SURG_SCHED_PERSON NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {SURG_SCHED_PERSON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SURG_SCHED_PERSON_NAME 1 38C at the time of culture or onset of symptoms No = Patient does not have a fever > 38C at the time of culture or onset of signs or symptoms c. UTI Signs/Symptoms: Tenderness Yes = Patient has suprapubic tenderness, costovertebral angle pain or tenderness with no other recognized cause No = Patient does not have suprapubic tenderness, costovertebral angle pain or tenderness d. UTI Culture: (must choose 1 or 2) 1. Patient has a positive urine culture that is > 10^5 colony- forming units (CFU)/ml with no more than 2 species of microorganisms 2. A positive urine culture of >=10^3 and <10^5 colony-forming units (CFU)/ml with no more than 2 species of microorganisms plus one of the following three items: a) positive dipstick for leukocyte esterase and/or nitrate; b) Pyuria (urine specimen with > 10 white blood cell [WBC]/mm3 of unspun urine or > 3 WBC high-power field of spun urine) or c) microorganisms seen of Gram's stain of unspun urine INDWELLING URETHRAL CATHETER At the time of specimen collection for suspected urinary tract infection during the post-operative 30 day period, answer the following about indwelling urethral catheter: I) IN PLACE > 2 calendar days on the day of UTI Signs/Symptoms and UTI Culture sample. R) RECENTLY REMOVED, had been in place > 2 calendar days but removed the day of or the day before UTI Signs/Symptoms and UTI Culture sample. S) SHORT DURATION, present at the time of UTI Signs/Symptoms and UTI Culture sample but had not been present > 2 calendar days. D) DISTANT REMOVAL, placed in the perioperative period and present >2 calendar days, but removed >2 calendar days prior to UTI Signs/Symptoms and UTI Culture sample. N) NO CATHETER, did not have an indwelling urethral catheter > 2 calendar days]]> %Library.EnumString 612 SYMPTOMATIC_UTI 38 degrees C or <36 degrees C - HR >90 bpm - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa) - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) forms - Anion gap acidosis: this is defined by either: [Na + K] - [Cl + HCO3 (or serum CO2)]. If this number is greater than 16, then an anion gap acidosis is present. or Na - [Cl + HCO3 (or serum CO2)]. If this number is greater than 12, then an anion gap acidosis is present. and one of the following: - positive blood culture - clinical documentation of purulence or positive culture from any site thought to be causative 2. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is associated with organ and/or circulatory dysfunction. Report this variable if the patient has the clinical signs and symptoms of SIRS or sepsis AND documented organ and/or circulatory dysfunction. Examples of organ dysfunction include: oliguria, acute alteration in mental status, acute respiratory distress. Examples of circulatory dysfunction include: hypotension, requirement of inotropic or vasopressor agents. * For the patient that had sepsis preoperatively, worsening of any of the above signs postoperatively would be reported as a postoperative sepsis. Examples: A patient comes into the emergency room with signs of sepsis - WBC 31, Temperature 104. CT shows an abdominal abscess. He is given antibiotics and is then taken emergently to the OR to drain the abscess. He receives antibiotics intraoperatively. Postoperatively his WBC and Temperature are trending down. POD#1 WBC 24, Temp 102 POD#2 WBC 14, Temp 100 POD#3 WBC 10, Temp 99 This patient does not have postoperative sepsis as his WBC and Temperature are improving each postoperative day. Patient comes into the ER with s/s of sepsis - WBC 31, Temp 104. CT shows an abdominal abscess. He is given antibiotics and is taken emergently to the OR to drain the abscess. He receives antibiotics intraoperatively. Postoperatively his WBC and Temp are as follows: POD#1 WBC 28, Temp 103 POD#2 WBC 24, Temp 102.6 POD#3 WBC 22, Temp 102 POD#4 WBC 21, Temp 101.6 POD#5 WBC 30, Temp 104 This patient does have postoperative sepsis because on postoperative day #5, his WBC and Temperature increase. The patient is having worsening of the defined signs of sepsis.]]> %Library.EnumString 303 SYSTEMIC_SEPSIS FileMan Field Label: 'TIME-OUT COMPLETED' FileMan Field Number: '74' Time-Out Completed VASQIP Definition (2014): This indicates the actual time when the entire Time-Out process was completed by the OR team. It will be documented using Military Time format. %Library.FilemanDate 221 TIMEOUT_COMPLETED FileMan Field Label: 'TIME-OUT DOCUMENT COMPLETED BY' FileMan Field Number: '.69' Time-out Document Completed By VASQIP Definition (2014): This is the name of the person verifying the patient's identification band, Social Security Number, surgical site/procedure, and the entry of a valid operative consent on the patient's record. VALIP.prosthetic.fm2cw.NEWPERSON200 90 TIMEOUT_DOCUMENT_COMPLETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {TIMEOUT_DOCUMENT_COMPLETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TIMEOUT_DOCUMENT_COMPLETED_BY_NAME 1 FileMan Field Label: 'TIME NURSE OUT OF OR' FileMan Field Number: '9' Time Nurse Out of O.R. This is the date and time that the circulating nurse completed duties for the operative procedure and left the operating room. %Library.FilemanDate 161 TIME_NURSE_OUT_OF_OR FileMan Field Label: 'TIME OPERATION BEGAN' FileMan Field Number: '.22' Time the Operation Began This is the date and time that the operation began. The definition of this time is usually 'knife fall', but may vary according to local surgery service protocol. Non-Cardiac Definition Revised(2004): Procedure/Surgery Start Time (PST): Time the procedure is begun (e.g., incision for a surgical procedure). %Library.FilemanDate 50 TIME_OPERATION_BEGAN FileMan Field Label: 'TIME OPERATION ENDS' FileMan Field Number: '.23' Time the Operation Ends Definition Revised (2004): Procedure/Surgery Finish (PF): Time when all instrument and sponge counts are completed and verified as correct; all postoperative radiological studies to be done in the OR/PR are completed; all dressings and drains are secured; and the physician/surgeons have completed all procedure-related activities on the patient. Should the patient expire in the operating room, indicate the time the patient was pronounced dead. %Library.FilemanDate 51 TIME_OPERATION_ENDS FileMan Field Label: 'TIME OUT VERIFIED' FileMan Field Number: '71' Time Out Verification Completed (Y/N) This field refers to the completion of a "Time Out" verification process prior to the start of the procedure. A designated member of the OR team states the name of the patient, the procedure to be performed, the location of the site (including laterality if applicable), and the specifications of the implant to be used (if applicable). At a minimum, this process must include the surgeon the circulating nurse, and the anesthesia provider. This practice is further defined by local hospital policy. If entered "NO", a justification should be documented in the Time Out Verified Comments. %Library.EnumString 218 TIME_OUT_VERIFIED FileMan Field Label: 'TIME OUT VERIFIED COMMENTS' FileMan Field Number: '82' This word-processing field contains comments related to the TIME OUT VERIFIED field. The information entered in this field clarifies entry that is entered as "NO". %Library.String 229 TIME_OUT_VERIFIED_COMMENTS FileMan Field Label: 'TIME PAT IN HOLD AREA' FileMan Field Number: '.203' Time Patient Arrived in Holding Area This is the date and time that the patient arrived in the holding area. Times entered without a date will be converted to the date of operation at that time. %Library.FilemanTimeStamp 42 TIME_PAT_IN_HOLD_AREA FileMan Field Label: 'TIME PAT IN OR' FileMan Field Number: '.205' Time Patient In the O.R. This is the date and time that the patient was transported into the operation room. Times entered without a date will be converted to the date of operation at that time. Definition Revised (2004): Patient in Room (PIR): Time when patient enters the OR/PR. %Library.FilemanDate 44 TIME_PAT_IN_OR FileMan Field Label: 'TIME PAT OUT OR' FileMan Field Number: '.232' Time Patient Out of the O.R. This is the date and time that the patient is taken from the operating room. Times entered without a date will be converted to the date of operation at that time. This information is very significant for operating room management studies. Definition Revised (2011): Indicate the time the patient was transported out of the operating room. If the patient dies prior to leaving the OR, then indicate the time of death for this data element. %Library.FilemanDate 52 TIME_PAT_OUT_OR FileMan Field Label: 'TIME PROCEDURE BEGAN' FileMan Field Number: '121' Time Procedure Began This is the date and time that the non-OR procedure began. %Library.FilemanDate 240 TIME_PROCEDURE_BEGAN FileMan Field Label: 'TIME PROCEDURE ENDED' FileMan Field Number: '122' Time Procedure Ended This is the date and time that all the procedures for this non-OR case are complete. %Library.FilemanDate 241 TIME_PROCEDURE_ENDED FileMan Field Label: 'TIU ANESTHESIA REPORT' FileMan Field Number: '1003' TIU Anesthesia Report This is the Anesthesia Report for this case. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 719 TIU_ANESTHESIA_REPORT DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {TIU_ANESTHESIA_REPORT_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 TIU_ANESTHESIA_REPORT_DOCUMENT_TYPE 1 FileMan Field Label: 'TIU NURSE INTRAOP REPORT' FileMan Field Number: '1001' TIU Nurse Intraoperative Report This is the Nurse Intraoperative Report for this case stored in TIU. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 717 TIU_NURSE_INTRAOP_REPORT DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {TIU_NURSE_INTRAOP_REPORT_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 TIU_NURSE_INTRAOP_REPORT_DOCUMENT_TYPE 1 FileMan Field Label: 'TIU OPERATIVE SUMMARY' FileMan Field Number: '1000' TIU Operative Summary This is the operative summary for this case stored in TIU. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 716 TIU_OPERATIVE_SUMMARY DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {TIU_OPERATIVE_SUMMARY_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 TIU_OPERATIVE_SUMMARY_DOCUMENT_TYPE 1 FileMan Field Label: 'TIU PROCEDURE REPORT (NON-OR)' FileMan Field Number: '1002' TIU Procedure Report (Non-OR) This is the Procedure Report (Non-OR) for this non-OR procedure. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 718 TIU_PROCEDURE_REPORT_NONOR DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {TIU_PROCEDURE_REPORT_NONOR_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 TIU_PROCEDURE_REPORT_NONOR_DOCUMENT_TYPE 1 FileMan Field Label: '*TMR' FileMan Field Number: '483' *Transmyocardial Laser Revascularization Definition Revised (2004): Indicate if patient received a transmyocardial laser procedure (TMR) to make "channels" or small holes directly into the heart muscle, either with or without placing the patient on cardiopulmonary bypass. The TMR may be done in combination with a CABG procedure or as a stand-alone procedure. %Library.EnumString 543 TMR FileMan Field Label: 'TOBACCO USE' FileMan Field Number: '517' Tobacco Use VASQIP Definitions (2011): Indicate the patient's type of tobacco product used in the 12 months prior to surgery. Select one: 1 = Never used tobacco 2 = No tobacco use in the last 12 months 3 = Cigarettes only 4 = Pipe, cigar, snuff, or chewing tobacco only (no cigarettes) 5 = Cigarettes plus one or more of pipe, cigar, snuff, or chewing tobacco %Library.EnumString 570 TOBACCO_USE FileMan Field Label: 'TOBACCO USE TIMEFRAME' FileMan Field Number: '518' Tobacco Use Timeframe VASQIP Definitions (2011): If the patient used tobacco products in the 12 months prior to surgery, indicate the timeframe: 1 = within the 2 weeks prior to surgery 2 = between 2 weeks and 3 months prior to surgery 3 = between 3 months and 12 months prior to surgery %Library.EnumString 571 TOBACCO_USE_TIMEFRAME FileMan Field Label: 'TOTAL CHOLESTEROL (CARDIAC)' FileMan Field Number: '462' Total Cholesterol (mg/dl) Definition Revised (2006): Indicate the Total Cholesterol result (mg/dl) preoperatively evaluated closest to surgery. Entering "NS" for "No Study" is allowed. %Library.String 521 TOTAL_CHOLESTEROL_CARDIAC FileMan Field Label: 'TOTAL CHOLESTEROL, DATE' FileMan Field Number: '462.1' Total Cholesterol, Date Definition Revised (2006): Indicate the date that the preoperative Total Cholesterol value was assessed. Enter "NS" for No Study if the Cholesterol test was not performed. %Library.String 522 TOTAL_CHOLESTEROL_DATE FileMan Field Label: 'TOTAL CPB TIME' FileMan Field Number: '451' Total CPB (Cardiopulmonary ByPass) Time (minutes) Record in minutes the total cardiopulmonary bypass time. This includes the total duration of full and partial cardiopulmonary bypass from all episodes of cardiopulmonary bypass. This information can generally be found on the perfusionist record and/or the anesthesia record. %Library.Numeric 503 TOTAL_CPB_TIME FileMan Field Label: 'TOTAL ISCHEMIC TIME' FileMan Field Number: '450' Total Ischemic Time (minutes) Record in minutes the duration of time the ascending aorta is totally cross-clamped. Do not include the duration of partial aorta cross-clamp used for sewing the proximal anastomoses. %Library.Numeric 502 TOTAL_ISCHEMIC_TIME FileMan Field Label: 'TOTAL URINE OUTPUT (ML)' FileMan Field Number: '.255' Total Urine Output (ml) This is the total number of milliliters (0-100000) of urine output during the operative procedure. If entered, this information appears on the Nurse Intraoperative Report. %Library.Numeric 57 TOTAL_URINE_OUTPUT_ML FileMan Field Label: 'TOV TIMESTAMP' FileMan Field Number: '75' Time Out Verified Timestamp This field is updated whenever the TIME OUT VERIFIED field (#71) is entered or changed. %Library.FilemanTimeStamp 222 TOV_TIMESTAMP FileMan Field Label: 'TRACHEOSTOMY' FileMan Field Number: '466' Tracheostomy Definition Revised (2004): Indicate if a procedure to cut into the trachea and insert a tube to overcome tracheal obstruction or to facilitate extended mechanical ventilation was performed within 30 days of surgery. %Library.EnumString 526 TRACHEOSTOMY FileMan Field Label: 'TRANSFER STATUS' FileMan Field Number: '413' Transfer Status Definition Revised (2004): Was the patient transferred directly from another healthcare facility and admitted to this hospital? Please select from the following choices. If the patient was admitted from home, select #1. If the patient was transferred from another facility, please select from choices #2-6. (1) Not transferred from a health care facility; admitted directly from home (2) Non-VAMC Acute Care Hospital (3) VAMC Acute Care Hospital (4) Non-VA Nursing Home/Chronic Care Facility/Spinal Cord Injury Unit/Intermediate Care Unit (5) VA Nursing Home/Chronic Care Facility/Spinal Cord Injury Unit/Intermediate Care Unit (6) Other (for example, Domiciliary) * If a patient arrives from another hospital's emergency department, report as #1. If you cannot determine what kind of facility, enter "OTHER". %Library.EnumString 476 TRANSFER_STATUS 4 RBC UNITS' FileMan Field Number: '217' Transfusion >4 RBC Units Within 72 Hrs Prior to Surgery Definition Revised (2004): Preoperative loss of blood necessitating a minimum of 5 units of whole blood/packed red cells transfused during the 72 hours prior to surgery including any blood transfused in the emergency room.]]> %Library.EnumString 267 TRANSFUSION__4_RBC_UNITS FileMan Field Label: 'TRANS TO OR BY' FileMan Field Number: '.11' Transported to O.R. By This is the method or device used to deliver the patient to the operating room. This field is optional, but may be useful for documentation of the case. VALIP.prosthetic.fm2cw.SURGERYTRANSPORTATIONDEVICES13101 26 TRANS_TO_OR_BY NAME Transportation Device This is the name of the device used to transport the patient to and from the Operating Room. Although this field is optional, it may be helpful in documentation of the case. ]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {TRANS_TO_OR_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TRANS_TO_OR_BY_NAME 1 FileMan Field Label: '*TRICUSPID VALVE PROCEDURE' FileMan Field Number: '369' *Tricuspid Valve Procedure VASQIP Definition (2010): Indicate if the patient had a tricuspid valve replacement (either the native or a prosthetic valve) or a repair (on the native valve to relieve stenosis and/or correct regurgitation -annuloplasty, commissurotomy, etc.); performed with or without additional procedure(s); either with or without placing the patient on cardiopulmonary bypass. (If a repair was attempted, but a replacement occurred, indicate the details of the replacement valve.) Indicate the one most appropriate procedure: * None * Mechanical Valve * Stented Bioprosthetic Valve * Stentless Bioprosthetic Valve * Homograft * Primary Valve Repair * Primary Valve Repair and Annuloplasty Device * Annuloplasty Device alone * Autograft Procedure (Ross Procedure) * Other %Library.EnumString 431 TRICUSPID_VALVE_PROCEDURE FileMan Field Label: 'TUBES AND DRAINS' FileMan Field Number: '22' Tubes and Drains This is the type and placement of tubes and drains during the operative process. %Library.String 175 TUBES_AND_DRAINS FileMan Field Label: 'TUMOR INVOLVING CNS (Y/N)' FileMan Field Number: '401' Tumor Involving CNS (Y/N) Definition Revised (2007): Space-occupying tumor of the brain and spinal cord, which may be benign (e.g., meningiomas, ependymoma, oligodendroglioma) or primary (e.g., astrocytoma, glioma, glioblastoma multiform) or secondary malignancies (e.g., metastatic lung, breast, malignant melanoma). Other tumors that may involve the CNS include lymphomas and sarcomas. Answer "YES" even if the tumor was not treated. A patient with metastatic cancer with boney mets to spine is a CNS tumor. Answer "NO" if tumor was removed. %Library.EnumString 464 TUMOR_INVOLVING_CNS_YN FileMan Field Label: 'U/A IN 48 HRS' FileMan Field Number: '.991' Urinalysis Within 48 Hours (Y/N) This indicates whether the patient has had a urinalysis within 48 hours prior to being transported to the operating room. %Library.EnumString 123 UA_IN_48_HRS FileMan Field Label: 'UNET VERIF BY SURGEON (Y/N)' FileMan Field Number: '750' UNET Verification by Surgeon (Y/N) This field documents whether the transplant surgeon completed required UNET verification. %Library.EnumString 706 UNET_VERIF_BY_SURGEON_YN FileMan Field Label: 'UNITS TRANSFUSED 6HRS PREOP' FileMan Field Number: '728' Number of Units Transfused W/IN 6 Hrs Prior to OR Start Enter the number of units of packed RBC or whole blood transfused within 6 hours preceding entry into the operating room. Enter 0 if there were no blood transfusions. %Library.Numeric 684 UNITS_TRANSFUSED_6HRS_PREOP FileMan Field Label: 'UNOS NUMBER' FileMan Field Number: '648' UNOS Identification Number of Donor This is the UNOS identification number of the donor. %Library.String 614 UNOS_NUMBER FileMan Field Label: 'UNPLANNED INTUBATION (Y/N)' FileMan Field Number: '412' Unplanned Intubation for Respiratory/Cardiac Failure (Y/N) Definition Revised (2004): Patient required placement of an endotracheal tube and mechanical or assisted ventilation because of the onset of respiratory or cardiac failure manifested by severe respiratory distress, hypoxia, hypercarbia, or respiratory acidosis. In patients who were intubated for their surgery, unplanned intubation occurs after they have been extubated after surgery. In patients who were not intubated during surgery, intubation at any time after their surgery is considered unplanned. %Library.EnumString 475 UNPLANNED_INTUBATION_YN 38 degrees C), urgency, frequency, dysuria, or suprapubic tenderness AND a urine culture of >100,000 colonies/ml urine with no more than two species of organisms OR 2. Two of the following: fever (>38 degrees C), urgency, frequency, dysuria, or suprapubic tenderness AND any of the following: - Dipstick test positive for leukocyte esterase and/or nitrate - Pyuria (>10 WBCs/cc or >3 WBC/hpf of unspun urine) - Organisms seen on Gram stain of unspun urine - Two urine cultures with repeated isolation of the same uropathogen with >100 colonies/ml urine in non-voided specimen - Urine culture with <100,000 colonies/ml urine of single uropathogen in patient being treated with appropriate antimicrobial therapy - Physician's diagnosis - Physician institutes appropriate antimicrobial therapy]]> %Library.EnumString 308 URINARY_TRACT_INFECTION FileMan Field Label: 'URINARY TRACT OCCURRENCES' FileMan Field Number: '319' Postoperative Urinary Tract Occurrences (Y/N) This determines whether the patient has had postoperative urinary tract occurrences. Urinary tract occurrences are defined as difficulties related to the organs and ducts participating in the secretion and elimination of urine. %Library.EnumString 373 URINARY_TRACT_OCCURRENCES FileMan Field Label: 'VALUABLES SECURED' FileMan Field Number: '.984' Valuables Secured (Y/N) This indicates whether the patient's valuables have been secured according to hospital policy. %Library.EnumString 117 VALUABLES_SECURED FileMan Field Label: 'VALVE REPAIR' FileMan Field Number: '370' Valve Repair Definition Revised (2006): Indicate if the patient has had any reparative procedure to a native valve, either with or without placing the patient on cardiopulmonary bypass. Valve repair is defined as a procedure performed on the native valve to relieve stenosis and/or correct regurgitation (annuloplasty, commissurotomy, etc.); the native valve remains in place. Indicate the one appropriate response. %Library.EnumString 432 VALVE_REPAIR FileMan Field Label: 'VASCULAR (Y/N)' FileMan Field Number: '206' Vascular (Y/N) This determines whether the patient has any vascular problems. %Library.EnumString 256 VASCULAR_YN FileMan Field Label: 'VASOPRESSOR USAGE AT OR ENTRY' FileMan Field Number: '729' Vasopressor Usage At Time of OR Entry This field documents if one or more medications are being continuously infused with intent to increase blood pressure at the time of entry to the operating room. Enter No if such medications are being administered intermittently or if the intent of medical infusion is for reasons other than increasing blood pressure. %Library.EnumString 685 VASOPRESSOR_USAGE_AT_OR_ENTRY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 732 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENTILATOR DEPENDENT' FileMan Field Number: '204' Ventilator Dependent in 48 Hours Preceding Surgery Definition Revised (2004): A preoperative patient requiring ventilator-assisted respirations at any time during the 48 hours preceding surgery. This does not include the treatment of sleep apnea with CPAP. %Library.EnumString 254 VENTILATOR_DEPENDENT FileMan Field Label: '*VERFIFY ID TAG SSN' FileMan Field Number: '.981' Completed Verification of ID Bracelet and SSN This indicates whether the identification bracelet and social security number verification was completed, legal and correct. This field has been marked for deletion. %Library.EnumString 109 VERFIFY_ID_TAG_SSN FileMan Field Label: 'VERIFIER' FileMan Field Number: '.522' Final Counts Verified By This is the person responsible for verifying that the final sponge, sharps, and instrument counts are correct at the end of this operative procedure. VALIP.prosthetic.fm2cw.NEWPERSON200 74 VERIFIER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {VERIFIER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFIER_NAME 1 FileMan Field Label: 'VISIT' FileMan Field Number: '.015' Visit This is the visit associated with this case. VALIP.prosthetic.fm2cw.VISIT9000010 6 VISIT VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.SURGERY_130 where %ID=:id) set {VISIT_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 VISIT_VISITADMIT_DATETIME 1 FileMan Field Label: '*VSD REPAIR' FileMan Field Number: '380' *VSD Repair (Y/N) This determines whether the patient had a procedure performed to repair a ventricular septal defect. %Library.EnumString 442 VSD_REPAIR FileMan Field Label: 'WAIT TIME START' FileMan Field Number: '21' Start of Patient's Wait Time This is start of the patient's "wait" for Surgery. Typically, this is the date that the patient was notified that Surgery is needed. %Library.FilemanDate 174 WAIT_TIME_START FileMan Field Label: 'WEIGHT' FileMan Field Number: '237' Patient's Weight VASQIP Definition (2010): Weight: Report the patient's most recent weight before surgery documented in the medical record in either pounds (50 to 999 lbs) or kilograms (23 to 453 kg). If you are entering the patient's weight in kilograms, enter 'K' after the number of kilograms. The software pulls the latest value up to 30 days prior to surgery. If no value is found in the Vitals software, the nurse reviewer must enter the value manually. Your answer should be in one of the following formats. 178 (weight in pounds) 80K (weight in Kilograms) %Library.String 289 WEIGHT 10%' FileMan Field Number: '215' Weight Loss >10% in the 6 Months Prior to Surgery Definition Revised (2007): A >10% decrease in body weight in the six month interval immediately preceding surgery as manifested by serial weights in the chart, as reported by the patient, or as evidenced by change in clothing size or severe cachexia. Exclude patients who have intentionally lost weight as part of a weight reduction program.]]> %Library.EnumString 265 WEIGHT_LOSS__10 > Class 1 - Clean (C): An uninfected surgical wound in which no inflammation or infection is encountered and the respiratory, alimentary, genital, or urinary tracts are not entered. Clean wounds are primarily closed and, if necessary, drained with closed drainage. Surgical Wound incisions that are made after nonpenetrating (e.g. blunt) trauma should be included in this category if they meet the criteria. >> Class 2 - Clean/Contaminated (CC): A surgical wound in which the respiratory, alimentary, genital, or urinary tracts are entered under controlled conditions and without unusual contamination. Specifically included in this category are surgical procedures involving the biliary tract, appendix, vagina, and oropharynx, provided no evidence of infection is encountered and no major break in technique occurs. >> Class 3 - Contaminated (D): [1] an open, fresh, accidental wound. [2] a surgical procedure in which a major break in sterile technique occurs (e.g. emergency open cardiac massage) or [3] when gross spillage from the gastrointestinal tract and [4] incisions in which acute, nonpurulent inflammation is encountered. >> Class 4 - Dirty/Infected (I): Dirty/Infected (I): [1] an old traumatic wound with retained or devitalized tissue, [2] a wound that involves existing clinical infection or [3] perforated viscera. This definition suggests that the organisms causing postoperative infection were present in the wound before the surgical procedure.]]> %Library.EnumString 139 WOUND_CLASSIFICATION FileMan Field Label: 'WOUND DISRUPTION' FileMan Field Number: '404' Wound Disruption (Y/N) Definition Revised (2014): Separation of the skin and musculofascial layers of a surgical wound (any surgical site whether primary or secondary, e.g. vein harvest incision), which may be partial or complete. %Library.EnumString 467 WOUND_DISRUPTION FileMan Field Label: 'WOUND OCCURRENCES' FileMan Field Number: '403' Postoperative Wound Occurrences (Y/N) This determines whether the patient had any postoperative wound occurrences. %Library.EnumString 466 WOUND_OCCURRENCES FileMan Field Label: 'WOUND SWEEP' FileMan Field Number: '633' Wound Sweep VASQIP Definition (2015): This indicates that a both a visual and manual methodical wound exploration is performed prior to closing the surgical wound to ensure that all surgical items are accounted for and extracted. This question must be answered if any of the final sponge, sharps or instrument counts are recorded as incorrect. Note: The microscopic check for a cataract case is the same as the "wound sweep". %Library.EnumString 602 WOUND_SWEEP FileMan Field Label: 'WOUND SWEEP COMMENTS' FileMan Field Number: '635' VASQIP Definition (2014): These are comments related to the reason(s) a wound sweep was or was not performed that may be useful in the documentation of this case and/or subsequent comments related to the wound sweep findings. %Library.String 603 WOUND_SWEEP_COMMENTS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRF(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{PATIENT}'="" FDA(130,"+1,",.01)={"PATIENT"} set:{HOSPITAL_ADMISSION_STATUS}'="" FDA(130,"+1,",.011)={"HOSPITAL_ADMISSION_STATUS"} set:{PLANNED_ADMISSION_STATUS}'="" FDA(130,"+1,",.013)={"PLANNED_ADMISSION_STATUS"} set:{VISIT}'="" FDA(130,"+1,",.015)={"VISIT"} set:{CLASSIFICATION_ENTERED_YN}'="" FDA(130,"+1,",.0155)={"CLASSIFICATION_ENTERED_YN"} set:{SERVICE_CONNECTED}'="" FDA(130,"+1,",.016)={"SERVICE_CONNECTED"} set:{AGENT_ORANGE_EXPOSURE}'="" FDA(130,"+1,",.017)={"AGENT_ORANGE_EXPOSURE"} set:{IONIZING_RADIATION_EXPOSURE}'="" FDA(130,"+1,",.018)={"IONIZING_RADIATION_EXPOSURE"} set:{SOUTHWEST_ASIA_CONDITIONS}'="" FDA(130,"+1,",.019)={"SOUTHWEST_ASIA_CONDITIONS"} set:{OP_ROOM_PROCEDURE_PERFORMED}'="" FDA(130,"+1,",.02)={"OP_ROOM_PROCEDURE_PERFORMED"} set:{ASSOCIATED_CLINIC}'="" FDA(130,"+1,",.021)={"ASSOCIATED_CLINIC"} set:{MILITARY_SEXUAL_TRAUMA}'="" FDA(130,"+1,",.022)={"MILITARY_SEXUAL_TRAUMA"} set:{HEAD_ANDOR_NECK_CANCER}'="" FDA(130,"+1,",.023)={"HEAD_ANDOR_NECK_CANCER"} set:{COMBAT_VET}'="" FDA(130,"+1,",.024)={"COMBAT_VET"} set:{PROJ_112SHAD}'="" FDA(130,"+1,",.026)={"PROJ_112SHAD"} set:{MAJORMINOR}'="" FDA(130,"+1,",.03)={"MAJORMINOR"} set:{CASE_SCHEDULE_TYPE}'="" FDA(130,"+1,",.035)={"CASE_SCHEDULE_TYPE"} set:{CASE_SCHEDULE_ORDER}'="" FDA(130,"+1,",.037)={"CASE_SCHEDULE_ORDER"} set:{SURGERY_SPECIALTY}'="" FDA(130,"+1,",.04)={"SURGERY_SPECIALTY"} set:{PREOPERATIVE_INFECTION}'="" FDA(130,"+1,",.05)={"PREOPERATIVE_INFECTION"} set:{PREOP_SKIN_INTEG}'="" FDA(130,"+1,",.07)={"PREOP_SKIN_INTEG"} set:{PREOP_SKIN_COLOR}'="" FDA(130,"+1,",.08)={"PREOP_SKIN_COLOR"} set:{DATE_OF_OPERATION}'="" FDA(130,"+1,",.09)={"DATE_OF_OPERATION"} set:{TRANS_TO_OR_BY}'="" FDA(130,"+1,",.11)={"TRANS_TO_OR_BY"} set:{HAIR_REMOVAL_BY}'="" FDA(130,"+1,",.12)={"HAIR_REMOVAL_BY"} set:{PRIMARY_SURGEON}'="" FDA(130,"+1,",.14)={"PRIMARY_SURGEON"} set:{FIRST_ASST}'="" FDA(130,"+1,",.15)={"FIRST_ASST"} set:{SECOND_ASST}'="" FDA(130,"+1,",.16)={"SECOND_ASST"} set:{ATTENDING_SURGEON}'="" FDA(130,"+1,",.164)={"ATTENDING_SURGEON"} set:{ATTENDING_CODE__NOT_USED}'="" FDA(130,"+1,",.165)={"ATTENDING_CODE__NOT_USED"} set:{ATTENDINGRES_SUP_CODE}'="" FDA(130,"+1,",.166)={"ATTENDINGRES_SUP_CODE"} set:{PERFUSIONIST}'="" FDA(130,"+1,",.167)={"PERFUSIONIST"} set:{ASST_PERFUSIONIST}'="" FDA(130,"+1,",.168)={"ASST_PERFUSIONIST"} set:{SKIN_PREP_AGENTS}'="" FDA(130,"+1,",.175)={"SKIN_PREP_AGENTS"} set:{SKIN_PREPPED_BY_1}'="" FDA(130,"+1,",.18)={"SKIN_PREPPED_BY_1"} set:{PREOP_MOOD}'="" FDA(130,"+1,",.19)={"PREOP_MOOD"} set:{PREOP_CONVERSE}'="" FDA(130,"+1,",.195)={"PREOP_CONVERSE"} set:{PREOP_CONSCIOUS}'="" FDA(130,"+1,",.196)={"PREOP_CONSCIOUS"} set:{NURSE_PRESENT_TIME}'="" FDA(130,"+1,",.202)={"NURSE_PRESENT_TIME"} set:{TIME_PAT_IN_HOLD_AREA}'="" FDA(130,"+1,",.203)={"TIME_PAT_IN_HOLD_AREA"} set:{ANES_AVAIL_TIME}'="" FDA(130,"+1,",.204)={"ANES_AVAIL_TIME"} set:{TIME_PAT_IN_OR}'="" FDA(130,"+1,",.205)={"TIME_PAT_IN_OR"} set:{SURG_PRESENT_TIME}'="" FDA(130,"+1,",.206)={"SURG_PRESENT_TIME"} set:{ANES_CARE_START_TIME}'="" FDA(130,"+1,",.21)={"ANES_CARE_START_TIME"} set:{ANES_CARE_BILLABLE_TIME_FLAG}'="" FDA(130,"+1,",.214)={"ANES_CARE_BILLABLE_TIME_FLAG"} set:{INDUCTION_COMPLETE}'="" FDA(130,"+1,",.215)={"INDUCTION_COMPLETE"} set:{TIME_OPERATION_BEGAN}'="" FDA(130,"+1,",.22)={"TIME_OPERATION_BEGAN"} set:{TIME_OPERATION_ENDS}'="" FDA(130,"+1,",.23)={"TIME_OPERATION_ENDS"} set:{TIME_PAT_OUT_OR}'="" FDA(130,"+1,",.232)={"TIME_PAT_OUT_OR"} set:{OR_CLEAN_START_TIME}'="" FDA(130,"+1,",.234)={"OR_CLEAN_START_TIME"} set:{OR_CLEAN_END_TIME}'="" FDA(130,"+1,",.236)={"OR_CLEAN_END_TIME"} set:{ANES_CARE_END_TIME}'="" FDA(130,"+1,",.24)={"ANES_CARE_END_TIME"} set:{BLOOD_LOSS_ML}'="" FDA(130,"+1,",.25)={"BLOOD_LOSS_ML"} set:{TOTAL_URINE_OUTPUT_ML}'="" FDA(130,"+1,",.255)={"TOTAL_URINE_OUTPUT_ML"} set:{PRINC_ANESTHETIST}'="" FDA(130,"+1,",.31)={"PRINC_ANESTHETIST"} set:{RELIEF_ANESTHETIST}'="" FDA(130,"+1,",.32)={"RELIEF_ANESTHETIST"} set:{ASST_ANESTHETIST}'="" FDA(130,"+1,",.33)={"ASST_ANESTHETIST"} set:{ANESTHESIOLOGIST_SUPVR}'="" FDA(130,"+1,",.34)={"ANESTHESIOLOGIST_SUPVR"} set:{ANES_SUPERVISE_CODE}'="" FDA(130,"+1,",.345)={"ANES_SUPERVISE_CODE"} set:{ANES_PERSONALLY_PERFORMED}'="" FDA(130,"+1,",.3511)={"ANES_PERSONALLY_PERFORMED"} set:{NUM_OF_CONCURRENT_ANES_CASES}'="" FDA(130,"+1,",.3512)={"NUM_OF_CONCURRENT_ANES_CASES"} set:{ANES_MEDICALLY_DIRECTED}'="" FDA(130,"+1,",.3514)={"ANES_MEDICALLY_DIRECTED"} set:{ANES_PHYSICIAN_AVAILABLE}'="" FDA(130,"+1,",.3515)={"ANES_PHYSICIAN_AVAILABLE"} set:{MIN_INTRAOP_TEMPERATURE_C}'="" FDA(130,"+1,",.36)={"MIN_INTRAOP_TEMPERATURE_C"} set:{PLANNED_POSTOP_CARE}'="" FDA(130,"+1,",.43)={"PLANNED_POSTOP_CARE"} set:{OR_SETUP_TIME}'="" FDA(130,"+1,",.44)={"OR_SETUP_TIME"} set:{OP_DISPOSITION}'="" FDA(130,"+1,",.46)={"OP_DISPOSITION"} set:{FINAL_COUNTS_VERIFY_CORRECT}'="" FDA(130,"+1,",.52)={"FINAL_COUNTS_VERIFY_CORRECT"} set:{VERIFIER}'="" FDA(130,"+1,",.522)={"VERIFIER"} set:{INST_CNT_CORRECT}'="" FDA(130,"+1,",.523)={"INST_CNT_CORRECT"} set:{INST_CNT_VERF_BY}'="" FDA(130,"+1,",.525)={"INST_CNT_VERF_BY"} set:{SURGERY_POSITION}'="" FDA(130,"+1,",.54)={"SURGERY_POSITION"} set:{ELECTROGROUND_POSITION}'="" FDA(130,"+1,",.55)={"ELECTROGROUND_POSITION"} set:{FOLEY_CATHETER_SIZE}'="" FDA(130,"+1,",.56)={"FOLEY_CATHETER_SIZE"} set:{FOLEY_CATHETER_INSERTED_BY}'="" FDA(130,"+1,",.57)={"FOLEY_CATHETER_INSERTED_BY"} set:{PREOP_TEMPERATURE}'="" FDA(130,"+1,",.61)={"PREOP_TEMPERATURE"} set:{PREOP_WEIGHT_KG}'="" FDA(130,"+1,",.615)={"PREOP_WEIGHT_KG"} set:{PREOPERATIVE_HEART_RATE}'="" FDA(130,"+1,",.62)={"PREOPERATIVE_HEART_RATE"} set:{PREOP_BLOOD_PRESSURE}'="" FDA(130,"+1,",.63)={"PREOP_BLOOD_PRESSURE"} set:{PREOP_RESPIRATORY_RATE}'="" FDA(130,"+1,",.64)={"PREOP_RESPIRATORY_RATE"} set:{FINAL_ANESTHESIA_TEMP_C}'="" FDA(130,"+1,",.65)={"FINAL_ANESTHESIA_TEMP_C"} set:{POSTOP_PULSE}'="" FDA(130,"+1,",.66)={"POSTOP_PULSE"} set:{POSTOP_BP}'="" FDA(130,"+1,",.67)={"POSTOP_BP"} set:{POSTOP_RESP}'="" FDA(130,"+1,",.68)={"POSTOP_RESP"} set:{TIMEOUT_DOCUMENT_COMPLETED_BY}'="" FDA(130,"+1,",.69)={"TIMEOUT_DOCUMENT_COMPLETED_BY"} set:{ELECTROCAUTERY_UNIT}'="" FDA(130,"+1,",.75)={"ELECTROCAUTERY_UNIT"} set:{POSTOP_SKIN_INTEG}'="" FDA(130,"+1,",.76)={"POSTOP_SKIN_INTEG"} set:{POSTOP_SKIN_COLOR}'="" FDA(130,"+1,",.77)={"POSTOP_SKIN_COLOR"} set:{PACU_DISPOSITION}'="" FDA(130,"+1,",.79)={"PACU_DISPOSITION"} set:{POSTOP_MOOD}'="" FDA(130,"+1,",.81)={"POSTOP_MOOD"} set:{POSTOP_CONVERS}'="" FDA(130,"+1,",.82)={"POSTOP_CONVERS"} set:{POSTOP_CONSCIOUS}'="" FDA(130,"+1,",.821)={"POSTOP_CONSCIOUS"} set:{END_PULSE}'="" FDA(130,"+1,",.84)={"END_PULSE"} set:{END_BP}'="" FDA(130,"+1,",.85)={"END_BP"} set:{END_RESP}'="" FDA(130,"+1,",.86)={"END_RESP"} set:{PACKING}'="" FDA(130,"+1,",.875)={"PACKING"} set:{PATIENT_EDUCATIONASSESSMENT}'="" FDA(130,"+1,",.971)={"PATIENT_EDUCATIONASSESSMENT"} set:{CONSENT_SIGWIT}'="" FDA(130,"+1,",.972)={"CONSENT_SIGWIT"} set:{BATH__SHAMPOO}'="" FDA(130,"+1,",.973)={"BATH__SHAMPOO"} set:{RECXRAY_READY}'="" FDA(130,"+1,",.974)={"RECXRAY_READY"} set:{ENEMAS_IF_ORD}'="" FDA(130,"+1,",.975)={"ENEMAS_IF_ORD"} set:{NPO_AS_ORDCLIN_MID}'="" FDA(130,"+1,",.976)={"NPO_AS_ORDCLIN_MID"} set:{CLERK_CHN_DAYS_BEFORE}'="" FDA(130,"+1,",.977)={"CLERK_CHN_DAYS_BEFORE"} set:{VERFIFY_ID_TAG_SSN}'="" FDA(130,"+1,",.981)={"VERFIFY_ID_TAG_SSN"} set:{CARE_PLAN_IN_CHART}'="" FDA(130,"+1,",.9811)={"CARE_PLAN_IN_CHART"} set:{ADDRESS_PLATE}'="" FDA(130,"+1,",.9812)={"ADDRESS_PLATE"} set:{PATIENT_VOIDED}'="" FDA(130,"+1,",.9813)={"PATIENT_VOIDED"} set:{PREOP_MEDRAIL_UP}'="" FDA(130,"+1,",.9814)={"PREOP_MEDRAIL_UP"} set:{CLERK_CHN_DATE_PROCEDURE}'="" FDA(130,"+1,",.9815)={"CLERK_CHN_DATE_PROCEDURE"} set:{PROSTHESIS_REM}'="" FDA(130,"+1,",.982)={"PROSTHESIS_REM"} set:{CIG_MATCH__VAL_REM}'="" FDA(130,"+1,",.983)={"CIG_MATCH__VAL_REM"} set:{VALUABLES_SECURED}'="" FDA(130,"+1,",.984)={"VALUABLES_SECURED"} set:{ORAL_HYGIENE}'="" FDA(130,"+1,",.985)={"ORAL_HYGIENE"} set:{FRESHLY_SHAVED}'="" FDA(130,"+1,",.986)={"FRESHLY_SHAVED"} set:{CLEAN_DRESSING}'="" FDA(130,"+1,",.987)={"CLEAN_DRESSING"} set:{CLEAN_HOSP_CLOTH}'="" FDA(130,"+1,",.988)={"CLEAN_HOSP_CLOTH"} set:{LEVIN_TUBECATH}'="" FDA(130,"+1,",.989)={"LEVIN_TUBECATH"} set:{UA_IN_48_HRS}'="" FDA(130,"+1,",.991)={"UA_IN_48_HRS"} set:{CLERK_CHN_REC_FOR_MAJ_SURG}'="" FDA(130,"+1,",.9911)={"CLERK_CHN_REC_FOR_MAJ_SURG"} set:{CBC_IN_48_HRS}'="" FDA(130,"+1,",.992)={"CBC_IN_48_HRS"} set:{BLOOD_TYPEXMATCH}'="" FDA(130,"+1,",.993)={"BLOOD_TYPEXMATCH"} set:{BLEEDING__PTT_TIME_IN_48_HRS}'="" FDA(130,"+1,",.994)={"BLEEDING__PTT_TIME_IN_48_HRS"} set:{BUN_IN_7_DAYS}'="" FDA(130,"+1,",.995)={"BUN_IN_7_DAYS"} set:{BLOOD_SUGAR_IN_7_DAYS}'="" FDA(130,"+1,",.996)={"BLOOD_SUGAR_IN_7_DAYS"} set:{SEROLOGY_REPORT}'="" FDA(130,"+1,",.997)={"SEROLOGY_REPORT"} set:{CHEST_XRAY_IN_7_DAYS}'="" FDA(130,"+1,",.998)={"CHEST_XRAY_IN_7_DAYS"} set:{EKG_IN_24_HRS}'="" FDA(130,"+1,",.999)={"EKG_IN_24_HRS"} set:{REQ_ANESTHESIA_TECHNIQUE}'="" FDA(130,"+1,",1.01)={"REQ_ANESTHESIA_TECHNIQUE"} set:{REQ_FROZ_SECT}'="" FDA(130,"+1,",1.02)={"REQ_FROZ_SECT"} set:{REQ_PREOP_XRAY}'="" FDA(130,"+1,",1.03)={"REQ_PREOP_XRAY"} set:{INTRAOPERATIVE_XRAYS}'="" FDA(130,"+1,",1.035)={"INTRAOPERATIVE_XRAYS"} set:{REQ_PHOTO}'="" FDA(130,"+1,",1.04)={"REQ_PHOTO"} set:{REQ_BLOOD_AVAIL}'="" FDA(130,"+1,",1.052)={"REQ_BLOOD_AVAIL"} set:{WOUND_CLASSIFICATION}'="" FDA(130,"+1,",1.09)={"WOUND_CLASSIFICATION"} set:{DATETIME_OR_REQUEST_MADE}'="" FDA(130,"+1,",1.098)={"DATETIME_OR_REQUEST_MADE"} set:{SURG_SCHED_PERSON}'="" FDA(130,"+1,",1.099)={"SURG_SCHED_PERSON"} set:{PACU_ADMIT_SCORE}'="" FDA(130,"+1,",1.11)={"PACU_ADMIT_SCORE"} set:{PACU_DISCH_SCORE}'="" FDA(130,"+1,",1.12)={"PACU_DISCH_SCORE"} set:{ASA_CLASS}'="" FDA(130,"+1,",1.13)={"ASA_CLASS"} set:{ADMIT_PACU_TIME}'="" FDA(130,"+1,",1.17)={"ADMIT_PACU_TIME"} set:{PACU_DISCH_TIME}'="" FDA(130,"+1,",1.18)={"PACU_DISCH_TIME"} set:{POSTOP_ANES_NOTE_DATE}'="" FDA(130,"+1,",1.19)={"POSTOP_ANES_NOTE_DATE"} set:{SKIN_PREPPED_BY_2}'="" FDA(130,"+1,",4)={"SKIN_PREPPED_BY_2"} set:{SKIN_PREPPED_BY_3}'="" FDA(130,"+1,",5)={"SKIN_PREPPED_BY_3"} set:{ELECTROGROUND_POSITION_2}'="" FDA(130,"+1,",6)={"ELECTROGROUND_POSITION_2"} set:{DRESSING_CONDITION}'="" FDA(130,"+1,",7)={"DRESSING_CONDITION"} set:{SECOND_SKIN_PREP_AGENT}'="" FDA(130,"+1,",8)={"SECOND_SKIN_PREP_AGENT"} set:{TIME_NURSE_OUT_OF_OR}'="" FDA(130,"+1,",9)={"TIME_NURSE_OUT_OF_OR"} set:{SCHEDULED_START_TIME}'="" FDA(130,"+1,",10)={"SCHEDULED_START_TIME"} set:{SCHEDULED_END_TIME}'="" FDA(130,"+1,",11)={"SCHEDULED_END_TIME"} set:{DATETIME_OF_DICTATION}'="" FDA(130,"+1,",15)={"DATETIME_OF_DICTATION"} set:{CANCEL_DATE}'="" FDA(130,"+1,",17)={"CANCEL_DATE"} set:{CANCELLATION_TIMEFRAME}'="" FDA(130,"+1,",17.5)={"CANCELLATION_TIMEFRAME"} set:{PRIMARY_CANCEL_REASON}'="" FDA(130,"+1,",18)={"PRIMARY_CANCEL_REASON"} set:{CASE_ABORTED}'="" FDA(130,"+1,",18.5)={"CASE_ABORTED"} set:{CANCELLATION_COMMENTS}'="" FDA(130,"+1,",19)={"CANCELLATION_COMMENTS"} set:{DIAGNOSTICTHERAPEUTIC_YN}'="" FDA(130,"+1,",20)={"DIAGNOSTICTHERAPEUTIC_YN"} set:{WAIT_TIME_START}'="" FDA(130,"+1,",21)={"WAIT_TIME_START"} set:{TUBES_AND_DRAINS}'="" FDA(130,"+1,",22)={"TUBES_AND_DRAINS"} set:{LOCK_CASE}'="" FDA(130,"+1,",24)={"LOCK_CASE"} set:{DISCHARGED_VIA}'="" FDA(130,"+1,",25)={"DISCHARGED_VIA"} set:{PRINCIPAL_PROCEDURE}'="" FDA(130,"+1,",26)={"PRINCIPAL_PROCEDURE"} set:{PLANNED_PRIN_PROCEDURE_CODE_}'="" FDA(130,"+1,",27)={"PLANNED_PRIN_PROCEDURE_CODE_"} set:{PROCEDURE_COMPLETED}'="" FDA(130,"+1,",29)={"PROCEDURE_COMPLETED"} set:{PRINCIPAL_PREOP_DIAGNOSIS}'="" FDA(130,"+1,",32)={"PRINCIPAL_PREOP_DIAGNOSIS"} set:{PRIN_PREOP_ICD_DIAGNOSIS_CODE}'="" FDA(130,"+1,",32.5)={"PRIN_PREOP_ICD_DIAGNOSIS_CODE"} set:{PRINCIPAL_DIAGNOSIS}'="" FDA(130,"+1,",33)={"PRINCIPAL_DIAGNOSIS"} set:{PRINCIPAL_POSTOP_DIAG}'="" FDA(130,"+1,",34)={"PRINCIPAL_POSTOP_DIAG"} set:{CONCURRENT_CASE}'="" FDA(130,"+1,",35)={"CONCURRENT_CASE"} set:{REQUESTED}'="" FDA(130,"+1,",36)={"REQUESTED"} set:{ESTIMATED_CASE_LENGTH}'="" FDA(130,"+1,",37)={"ESTIMATED_CASE_LENGTH"} set:{REQUEST_BLOOD_AVAILABILITY}'="" FDA(130,"+1,",38)={"REQUEST_BLOOD_AVAILABILITY"} set:{DATE_OF_TRANSCRIPTION}'="" FDA(130,"+1,",39)={"DATE_OF_TRANSCRIPTION"} set:{CROSSMATCH_SCREEN_AUTOLOGOUS}'="" FDA(130,"+1,",40)={"CROSSMATCH_SCREEN_AUTOLOGOUS"} set:{DRESSING}'="" FDA(130,"+1,",41)={"DRESSING"} set:{CASE_VERIFICATION}'="" FDA(130,"+1,",43)={"CASE_VERIFICATION"} set:{SPONGE_FINAL_COUNT_CORRECT}'="" FDA(130,"+1,",44)={"SPONGE_FINAL_COUNT_CORRECT"} set:{SHARPS_FINAL_COUNT_CORRECT}'="" FDA(130,"+1,",45)={"SHARPS_FINAL_COUNT_CORRECT"} set:{INSTRUMENT_FINAL_COUNT_CORRECT}'="" FDA(130,"+1,",46)={"INSTRUMENT_FINAL_COUNT_CORRECT"} set:{SPONGE_SHARPS__INST_COUNTER}'="" FDA(130,"+1,",47)={"SPONGE_SHARPS__INST_COUNTER"} set:{COUNT_VERIFIER}'="" FDA(130,"+1,",48)={"COUNT_VERIFIER"} set:{DIVISION}'="" FDA(130,"+1,",50)={"DIVISION"} set:{PREOP_ATTENDING_CONCURRENCE}'="" FDA(130,"+1,",51)={"PREOP_ATTENDING_CONCURRENCE"} set:{POSTOP_ATTENDING_CONCURRENCE}'="" FDA(130,"+1,",52)={"POSTOP_ATTENDING_CONCURRENCE"} set:{OCCURRENCENO_PROCEDURE}'="" FDA(130,"+1,",54)={"OCCURRENCENO_PROCEDURE"} set:{PREADMISSION_TESTING}'="" FDA(130,"+1,",56)={"PREADMISSION_TESTING"} set:{ESU_COAG_RANGE}'="" FDA(130,"+1,",57)={"ESU_COAG_RANGE"} set:{ESU_CUTTING_RANGE}'="" FDA(130,"+1,",58)={"ESU_CUTTING_RANGE"} set:{DIAGNOSTIC_RESULTS_CONFIRM_BY}'="" FDA(130,"+1,",61)={"DIAGNOSTIC_RESULTS_CONFIRM_BY"} set:{GASTRIC_OUTPUT}'="" FDA(130,"+1,",62)={"GASTRIC_OUTPUT"} set:{IV_STARTED_BY}'="" FDA(130,"+1,",63)={"IV_STARTED_BY"} set:{PLANNED_PRIN_DIAGNOSIS_CODE}'="" FDA(130,"+1,",66)={"PLANNED_PRIN_DIAGNOSIS_CODE"} set:{CANCELLATION_AVOIDABLE}'="" FDA(130,"+1,",67)={"CANCELLATION_AVOIDABLE"} set:{SCHEDULED_PROCEDURE}'="" FDA(130,"+1,",68)={"SCHEDULED_PROCEDURE"} set:{CODING_VERIFIER}'="" FDA(130,"+1,",69)={"CODING_VERIFIER"} set:{CANCELLED_BY}'="" FDA(130,"+1,",70)={"CANCELLED_BY"} set:{TIME_OUT_VERIFIED}'="" FDA(130,"+1,",71)={"TIME_OUT_VERIFIED"} set:{PREOPERATIVE_IMAGING_CONFIRMED}'="" FDA(130,"+1,",72)={"PREOPERATIVE_IMAGING_CONFIRMED"} set:{MARKED_SITE_CONFIRMED}'="" FDA(130,"+1,",73)={"MARKED_SITE_CONFIRMED"} set:{TIMEOUT_COMPLETED}'="" FDA(130,"+1,",74)={"TIMEOUT_COMPLETED"} set:{TOV_TIMESTAMP}'="" FDA(130,"+1,",75)={"TOV_TIMESTAMP"} set:{IMAG_TIMESTAMP}'="" FDA(130,"+1,",76)={"IMAG_TIMESTAMP"} set:{SITE_MARK_TIMESTAMP}'="" FDA(130,"+1,",77)={"SITE_MARK_TIMESTAMP"} set:{PREVIOUSLY_SCHEDULED_CASE}'="" FDA(130,"+1,",78)={"PREVIOUSLY_SCHEDULED_CASE"} set:{RESCHEDULED_CASE}'="" FDA(130,"+1,",79)={"RESCHEDULED_CASE"} set:{DYNAMED_NOTIFIED}'="" FDA(130,"+1,",81)={"DYNAMED_NOTIFIED"} set:{ORDER_NUMBER}'="" FDA(130,"+1,",100)={"ORDER_NUMBER"} set:{STAFFRESIDENT}'="" FDA(130,"+1,",101)={"STAFFRESIDENT"} set:{REASON_FOR_NO_ASSESSMENT}'="" FDA(130,"+1,",102)={"REASON_FOR_NO_ASSESSMENT"} set:{ANESTHETIST_CATEGORY}'="" FDA(130,"+1,",103)={"ANESTHETIST_CATEGORY"} set:{NONOR_PROCEDURE}'="" FDA(130,"+1,",118)={"NONOR_PROCEDURE"} set:{NONOR_LOCATION}'="" FDA(130,"+1,",119)={"NONOR_LOCATION"} set:{DATE_OF_PROCEDURE}'="" FDA(130,"+1,",120)={"DATE_OF_PROCEDURE"} set:{TIME_PROCEDURE_BEGAN}'="" FDA(130,"+1,",121)={"TIME_PROCEDURE_BEGAN"} set:{TIME_PROCEDURE_ENDED}'="" FDA(130,"+1,",122)={"TIME_PROCEDURE_ENDED"} set:{PROVIDER}'="" FDA(130,"+1,",123)={"PROVIDER"} set:{ATTEND_PROVIDER}'="" FDA(130,"+1,",124)={"ATTEND_PROVIDER"} set:{MEDICAL_SPECIALTY}'="" FDA(130,"+1,",125)={"MEDICAL_SPECIALTY"} set:{SEQUENTIAL_COMPRESSION_DEVICE}'="" FDA(130,"+1,",127)={"SEQUENTIAL_COMPRESSION_DEVICE"} set:{LASER_TYPE}'="" FDA(130,"+1,",128)={"LASER_TYPE"} set:{DEVICES}'="" FDA(130,"+1,",131)={"DEVICES"} set:{SPINAL_LEVEL}'="" FDA(130,"+1,",136)={"SPINAL_LEVEL"} set:{OPERATIONS_THIS_ADMISSION}'="" FDA(130,"+1,",200)={"OPERATIONS_THIS_ADMISSION"} set:{REDO_PROCEDURE}'="" FDA(130,"+1,",201)={"REDO_PROCEDURE"} set:{CURRENT_SMOKER}'="" FDA(130,"+1,",202)={"CURRENT_SMOKER"} set:{PACKYEARS}'="" FDA(130,"+1,",202.1)={"PACKYEARS"} set:{HISTORY_OF_COPD}'="" FDA(130,"+1,",203)={"HISTORY_OF_COPD"} set:{VENTILATOR_DEPENDENT}'="" FDA(130,"+1,",204)={"VENTILATOR_DEPENDENT"} set:{PRIOR_MI}'="" FDA(130,"+1,",205)={"PRIOR_MI"} set:{VASCULAR_YN}'="" FDA(130,"+1,",206)={"VASCULAR_YN"} set:{CONGESTIVE_HEART_FAILURE}'="" FDA(130,"+1,",207)={"CONGESTIVE_HEART_FAILURE"} set:{HYPERTENSION_REQUIRING_MEDS}'="" FDA(130,"+1,",208)={"HYPERTENSION_REQUIRING_MEDS"} set:{CARDIOMEGALY}'="" FDA(130,"+1,",209)={"CARDIOMEGALY"} set:{CENTRAL_NERVOUS_SYSTEM_YN}'="" FDA(130,"+1,",210)={"CENTRAL_NERVOUS_SYSTEM_YN"} set:{CURRENTLY_ON_DIALYSIS}'="" FDA(130,"+1,",211)={"CURRENTLY_ON_DIALYSIS"} set:{ASCITES}'="" FDA(130,"+1,",212)={"ASCITES"} set:{ESOPHAGEAL_VARICES}'="" FDA(130,"+1,",213)={"ESOPHAGEAL_VARICES"} set:{PGY_OF_PRIMARY_SURGEON}'="" FDA(130,"+1,",214)={"PGY_OF_PRIMARY_SURGEON"} set:{WEIGHT_LOSS__10}'="" FDA(130,"+1,",215)={"WEIGHT_LOSS__10"} set:{BLEEDING_DISORDERS}'="" FDA(130,"+1,",216)={"BLEEDING_DISORDERS"} set:{TRANSFUSION__4_RBC_UNITS}'="" FDA(130,"+1,",217)={"TRANSFUSION__4_RBC_UNITS"} set:{OPEN_WOUND}'="" FDA(130,"+1,",218)={"OPEN_WOUND"} set:{PREOPERATIVE_SEPSIS}'="" FDA(130,"+1,",218.1)={"PREOPERATIVE_SEPSIS"} set:{PREOPERATIVE_HEMOGLOBIN}'="" FDA(130,"+1,",219)={"PREOPERATIVE_HEMOGLOBIN"} set:{PREVIOUS_PCI}'="" FDA(130,"+1,",220)={"PREVIOUS_PCI"} set:{PREOPERATIVE_CPK}'="" FDA(130,"+1,",221)={"PREOPERATIVE_CPK"} set:{PREOPERATIVE_MB_BAND}'="" FDA(130,"+1,",222)={"PREOPERATIVE_MB_BAND"} set:{PREOPERATIVE_SERUM_CREATININE}'="" FDA(130,"+1,",223)={"PREOPERATIVE_SERUM_CREATININE"} set:{PREOPERATIVE_BUN}'="" FDA(130,"+1,",224)={"PREOPERATIVE_BUN"} set:{PREOPERATIVE_SERUM_ALBUMIN}'="" FDA(130,"+1,",225)={"PREOPERATIVE_SERUM_ALBUMIN"} set:{PREOPERATIVE_SGPT}'="" FDA(130,"+1,",226)={"PREOPERATIVE_SGPT"} set:{PREOPERATIVE_SGOT}'="" FDA(130,"+1,",227)={"PREOPERATIVE_SGOT"} set:{PREOPERATIVE_TOTAL_BILIRUBIN}'="" FDA(130,"+1,",228)={"PREOPERATIVE_TOTAL_BILIRUBIN"} set:{PREOPERATIVE_ALK_PHOSPHATASE}'="" FDA(130,"+1,",229)={"PREOPERATIVE_ALK_PHOSPHATASE"} set:{PREOPERATIVE_WBC}'="" FDA(130,"+1,",230)={"PREOPERATIVE_WBC"} set:{PREOPERATIVE_PLATELET_COUNT}'="" FDA(130,"+1,",231)={"PREOPERATIVE_PLATELET_COUNT"} set:{PREOPERATIVE_PT}'="" FDA(130,"+1,",232)={"PREOPERATIVE_PT"} set:{PREOPERATIVE_PTT}'="" FDA(130,"+1,",233)={"PREOPERATIVE_PTT"} set:{PREOPERATIVE_HEMATOCRIT}'="" FDA(130,"+1,",234)={"PREOPERATIVE_HEMATOCRIT"} set:{ASSESSMENT_STATUS}'="" FDA(130,"+1,",235)={"ASSESSMENT_STATUS"} set:{HEIGHT}'="" FDA(130,"+1,",236)={"HEIGHT"} set:{HEIGHT_MEASUREMENT_DATE}'="" FDA(130,"+1,",236.1)={"HEIGHT_MEASUREMENT_DATE"} set:{WEIGHT}'="" FDA(130,"+1,",237)={"WEIGHT"} set:{PREOPERATIVE_SLEEP_APNEA}'="" FDA(130,"+1,",237.1)={"PREOPERATIVE_SLEEP_APNEA"} set:{DNR_STATUS}'="" FDA(130,"+1,",238)={"DNR_STATUS"} set:{PREOPERATIVE_HEMOGLOBIN_DATE}'="" FDA(130,"+1,",239)={"PREOPERATIVE_HEMOGLOBIN_DATE"} set:{FUNCTIONAL_HEALTH_STATUS}'="" FDA(130,"+1,",240)={"FUNCTIONAL_HEALTH_STATUS"} set:{PULMONARY_YN}'="" FDA(130,"+1,",241)={"PULMONARY_YN"} set:{CARDIAC_YN}'="" FDA(130,"+1,",242)={"CARDIAC_YN"} set:{RENAL_YN}'="" FDA(130,"+1,",243)={"RENAL_YN"} set:{HEPATOBILIARY_YN}'="" FDA(130,"+1,",244)={"HEPATOBILIARY_YN"} set:{NUTRITIONALIMMUNEOTHER}'="" FDA(130,"+1,",245)={"NUTRITIONALIMMUNEOTHER"} set:{ETOH__2_DRINKSDAY}'="" FDA(130,"+1,",246)={"ETOH__2_DRINKSDAY"} set:{LENGTH_OF_POSTOP_STAY}'="" FDA(130,"+1,",247)={"LENGTH_OF_POSTOP_STAY"} set:{SUPERFICIAL_INCISIONAL_SSI}'="" FDA(130,"+1,",248)={"SUPERFICIAL_INCISIONAL_SSI"} set:{DEEP_INCISIONAL_SSI}'="" FDA(130,"+1,",249)={"DEEP_INCISIONAL_SSI"} set:{SYSTEMIC_SEPSIS}'="" FDA(130,"+1,",250)={"SYSTEMIC_SEPSIS"} set:{PNEUMONIA}'="" FDA(130,"+1,",251)={"PNEUMONIA"} set:{PULMONARY_EMBOLISM}'="" FDA(130,"+1,",252)={"PULMONARY_EMBOLISM"} set:{OTHER_RESPIRATORY_OCCURRENCE}'="" FDA(130,"+1,",253)={"OTHER_RESPIRATORY_OCCURRENCE"} set:{ACUTE_RENAL_FAILURE}'="" FDA(130,"+1,",254)={"ACUTE_RENAL_FAILURE"} set:{URINARY_TRACT_INFECTION}'="" FDA(130,"+1,",255)={"URINARY_TRACT_INFECTION"} set:{STROKECVA}'="" FDA(130,"+1,",256)={"STROKECVA"} set:{POSTOP_BLEEDINGTRANSFUSIONS}'="" FDA(130,"+1,",257)={"POSTOP_BLEEDINGTRANSFUSIONS"} set:{MYOCARDIAL_INFARCTION}'="" FDA(130,"+1,",258)={"MYOCARDIAL_INFARCTION"} set:{PULMONARY_EDEMA}'="" FDA(130,"+1,",259)={"PULMONARY_EDEMA"} set:{DATE_TRANSMITTED}'="" FDA(130,"+1,",260)={"DATE_TRANSMITTED"} set:{DATE_OF_LAST_TRANSMISSION}'="" FDA(130,"+1,",260.1)={"DATE_OF_LAST_TRANSMISSION"} set:{GRAFTPROSTHESISFLAP_FAILURE}'="" FDA(130,"+1,",261)={"GRAFTPROSTHESISFLAP_FAILURE"} set:{RETURN_TO_OR_WITHIN_30_DAYS}'="" FDA(130,"+1,",262)={"RETURN_TO_OR_WITHIN_30_DAYS"} set:{DVTTHROMBOPHLEBITIS}'="" FDA(130,"+1,",263)={"DVTTHROMBOPHLEBITIS"} set:{CEREBRAL_VASCULAR_DISEASE}'="" FDA(130,"+1,",264)={"CEREBRAL_VASCULAR_DISEASE"} set:{PERIPHERAL_ARTERIAL_DISEASE}'="" FDA(130,"+1,",265)={"PERIPHERAL_ARTERIAL_DISEASE"} set:{PREVIOUS_CARDIAC_SURGERY}'="" FDA(130,"+1,",266)={"PREVIOUS_CARDIAC_SURGERY"} set:{ANGINA_SEVERITY}'="" FDA(130,"+1,",267)={"ANGINA_SEVERITY"} set:{HEPATOMEGALY}'="" FDA(130,"+1,",268)={"HEPATOMEGALY"} set:{PREGNANCY}'="" FDA(130,"+1,",269)={"PREGNANCY"} set:{PREOPERATIVE_SERUM_SODIUM}'="" FDA(130,"+1,",270)={"PREOPERATIVE_SERUM_SODIUM"} set:{PREOPERATIVE_POTASSIUM}'="" FDA(130,"+1,",271)={"PREOPERATIVE_POTASSIUM"} set:{DATE_ASSESSMENT_COMPLETED}'="" FDA(130,"+1,",272)={"DATE_ASSESSMENT_COMPLETED"} set:{ASSESSMENT_COMPLETED_BY}'="" FDA(130,"+1,",272.1)={"ASSESSMENT_COMPLETED_BY"} set:{PREOPERATIVE_GLUCOSE}'="" FDA(130,"+1,",273)={"PREOPERATIVE_GLUCOSE"} set:{HIGHEST_SERUM_SODIUM}'="" FDA(130,"+1,",274)={"HIGHEST_SERUM_SODIUM"} set:{HIGHEST_POTASSIUM}'="" FDA(130,"+1,",275)={"HIGHEST_POTASSIUM"} set:{HIGHEST_GLUCOSE}'="" FDA(130,"+1,",276)={"HIGHEST_GLUCOSE"} set:{HIGHEST_SERUM_CREATININE}'="" FDA(130,"+1,",277)={"HIGHEST_SERUM_CREATININE"} set:{HIGHEST_CPK}'="" FDA(130,"+1,",278)={"HIGHEST_CPK"} set:{HIGHEST_CPKMB}'="" FDA(130,"+1,",279)={"HIGHEST_CPKMB"} set:{HIGHEST_TOTAL_BILIRUBIN}'="" FDA(130,"+1,",280)={"HIGHEST_TOTAL_BILIRUBIN"} set:{HIGHEST_WBC}'="" FDA(130,"+1,",281)={"HIGHEST_WBC"} set:{LOWEST_SERUM_ALBUMIN}'="" FDA(130,"+1,",282)={"LOWEST_SERUM_ALBUMIN"} set:{LOWEST_HEMATOCRIT}'="" FDA(130,"+1,",283)={"LOWEST_HEMATOCRIT"} set:{ASSESSMENT_TYPE}'="" FDA(130,"+1,",284)={"ASSESSMENT_TYPE"} set:{ON_VENTILATOR_48_HOURS}'="" FDA(130,"+1,",285)={"ON_VENTILATOR_48_HOURS"} set:{OTHER_URINARY_TRACT_OCCURRENCE}'="" FDA(130,"+1,",286)={"OTHER_URINARY_TRACT_OCCURRENCE"} set:{PERIPHERAL_NERVE_INJURY}'="" FDA(130,"+1,",287)={"PERIPHERAL_NERVE_INJURY"} set:{PREOPERATIVE_CPK_DATE}'="" FDA(130,"+1,",288)={"PREOPERATIVE_CPK_DATE"} set:{PREOPERATIVE_MB_BAND_DATE}'="" FDA(130,"+1,",289)={"PREOPERATIVE_MB_BAND_DATE"} set:{PREOP_SERUM_CREATININE_DATE}'="" FDA(130,"+1,",290)={"PREOP_SERUM_CREATININE_DATE"} set:{PREOPERATIVE_BUN_DATE}'="" FDA(130,"+1,",291)={"PREOPERATIVE_BUN_DATE"} set:{PREOP_SERUM_ALBUMIN_DATE}'="" FDA(130,"+1,",292)={"PREOP_SERUM_ALBUMIN_DATE"} set:{SGPT_DATE_PERFORMED}'="" FDA(130,"+1,",293)={"SGPT_DATE_PERFORMED"} set:{SGOT_DATE_PERFORMED}'="" FDA(130,"+1,",294)={"SGOT_DATE_PERFORMED"} set:{PREOP_TOTAL_BILIRUBIN_DATE}'="" FDA(130,"+1,",295)={"PREOP_TOTAL_BILIRUBIN_DATE"} set:{PREOP_ALK_PHOSPHATASE_DATE}'="" FDA(130,"+1,",296)={"PREOP_ALK_PHOSPHATASE_DATE"} set:{PREOPERATIVE_WBC_DATE}'="" FDA(130,"+1,",297)={"PREOPERATIVE_WBC_DATE"} set:{PREOP_PLATELET_COUNT_DATE}'="" FDA(130,"+1,",298)={"PREOP_PLATELET_COUNT_DATE"} set:{PREOPERATIVE_PT_DATE}'="" FDA(130,"+1,",299)={"PREOPERATIVE_PT_DATE"} set:{PREOPERATIVE_PTT_DATE}'="" FDA(130,"+1,",300)={"PREOPERATIVE_PTT_DATE"} set:{PREOP_HEMATOCRIT_DATE}'="" FDA(130,"+1,",301)={"PREOP_HEMATOCRIT_DATE"} set:{PREOPERATIVE_GLUCOSE_DATE}'="" FDA(130,"+1,",302)={"PREOPERATIVE_GLUCOSE_DATE"} set:{PREOP_POTASSIUM_DATE}'="" FDA(130,"+1,",303)={"PREOP_POTASSIUM_DATE"} set:{PREOP_SERUM_SODIUM_DATE}'="" FDA(130,"+1,",304)={"PREOP_SERUM_SODIUM_DATE"} set:{HIGH_SERUM_SODIUM_DATE}'="" FDA(130,"+1,",305)={"HIGH_SERUM_SODIUM_DATE"} set:{HIGH_POTASSIUM_DATE}'="" FDA(130,"+1,",306)={"HIGH_POTASSIUM_DATE"} set:{HIGH_GLUCOSE_DATE}'="" FDA(130,"+1,",307)={"HIGH_GLUCOSE_DATE"} set:{HIGH_SERUM_CREATININE_DATE}'="" FDA(130,"+1,",308)={"HIGH_SERUM_CREATININE_DATE"} set:{HIGH_CPK_DATE}'="" FDA(130,"+1,",309)={"HIGH_CPK_DATE"} set:{HIGH_CPKMB_DATE}'="" FDA(130,"+1,",310)={"HIGH_CPKMB_DATE"} set:{HIGH_TOTAL_BILIRUBIN_DATE}'="" FDA(130,"+1,",311)={"HIGH_TOTAL_BILIRUBIN_DATE"} set:{HIGHEST_WBC_DATE}'="" FDA(130,"+1,",312)={"HIGHEST_WBC_DATE"} set:{LOW_SERUM_ALBUMIN_DATE}'="" FDA(130,"+1,",313)={"LOW_SERUM_ALBUMIN_DATE"} set:{LOW_HEMATOCRIT_DATE}'="" FDA(130,"+1,",314)={"LOW_HEMATOCRIT_DATE"} set:{PREOPERATIVE_PT_CONTROL}'="" FDA(130,"+1,",315)={"PREOPERATIVE_PT_CONTROL"} set:{PREOPERATIVE_PTT_CONTROL}'="" FDA(130,"+1,",316)={"PREOPERATIVE_PTT_CONTROL"} set:{RESPIRATORY_OCCURRENCES}'="" FDA(130,"+1,",318)={"RESPIRATORY_OCCURRENCES"} set:{URINARY_TRACT_OCCURRENCES}'="" FDA(130,"+1,",319)={"URINARY_TRACT_OCCURRENCES"} set:{CNS_OCCURRENCES}'="" FDA(130,"+1,",320)={"CNS_OCCURRENCES"} set:{CARDIAC_OCCURRENCES}'="" FDA(130,"+1,",321)={"CARDIAC_OCCURRENCES"} set:{OTHER_OCCURRENCES}'="" FDA(130,"+1,",322)={"OTHER_OCCURRENCES"} set:{CREATE_RISK_ASSESSMENT}'="" FDA(130,"+1,",323)={"CREATE_RISK_ASSESSMENT"} set:{DRUG_ADDICTION}'="" FDA(130,"+1,",324)={"DRUG_ADDICTION"} set:{DYSPNEA}'="" FDA(130,"+1,",325)={"DYSPNEA"} set:{CURRENT_PNEUMONIA}'="" FDA(130,"+1,",326)={"CURRENT_PNEUMONIA"} set:{ACTIVE_HEPATITIS}'="" FDA(130,"+1,",327)={"ACTIVE_HEPATITIS"} set:{RENAL_FAILURE}'="" FDA(130,"+1,",328)={"RENAL_FAILURE"} set:{REVASCULARIZATIONAMPUTATION}'="" FDA(130,"+1,",329)={"REVASCULARIZATIONAMPUTATION"} set:{REST_PAINGANGRENE_YN}'="" FDA(130,"+1,",330)={"REST_PAINGANGRENE_YN"} set:{ABSENT_PERIPHERAL_PULSES}'="" FDA(130,"+1,",331)={"ABSENT_PERIPHERAL_PULSES"} set:{IMPAIRED_SENSORIUM}'="" FDA(130,"+1,",332)={"IMPAIRED_SENSORIUM"} set:{COMA}'="" FDA(130,"+1,",333)={"COMA"} set:{HISTORY_OF_TIAS}'="" FDA(130,"+1,",334)={"HISTORY_OF_TIAS"} set:{CVASTROKE_WITH_NEURO_DEFICIT}'="" FDA(130,"+1,",335)={"CVASTROKE_WITH_NEURO_DEFICIT"} set:{CVASTROKE__NO_NEURO_DEFICIT}'="" FDA(130,"+1,",336)={"CVASTROKE__NO_NEURO_DEFICIT"} set:{NEURO_DEGENERATIVE_DISEASE}'="" FDA(130,"+1,",337)={"NEURO_DEGENERATIVE_DISEASE"} set:{DISSEMINATED_CANCER_YN}'="" FDA(130,"+1,",338)={"DISSEMINATED_CANCER_YN"} set:{CHEMOTHERAPY_IN_LAST_30_DAYS}'="" FDA(130,"+1,",338.1)={"CHEMOTHERAPY_IN_LAST_30_DAYS"} set:{RADIOTHERAPY_IN_LAST_90_DAYS}'="" FDA(130,"+1,",338.2)={"RADIOTHERAPY_IN_LAST_90_DAYS"} set:{CHEMO_FOR_MALIG_LAST_90_DAYS}'="" FDA(130,"+1,",338.3)={"CHEMO_FOR_MALIG_LAST_90_DAYS"} set:{STEROID_USE_FOR_CHRONIC_COND_}'="" FDA(130,"+1,",339)={"STEROID_USE_FOR_CHRONIC_COND_"} set:{INTRAOP_RBC_UNITS_TRANSFUSED}'="" FDA(130,"+1,",340)={"INTRAOP_RBC_UNITS_TRANSFUSED"} set:{f30_DAY_POSTOP_STATUS}'="" FDA(130,"+1,",341)={"f30_DAY_POSTOP_STATUS"} set:{DATE_OF_DEATH}'="" FDA(130,"+1,",342)={"DATE_OF_DEATH"} set:{f30_DAY_DEATH}'="" FDA(130,"+1,",342.1)={"f30_DAY_DEATH"} set:{OTHER_CNS_OCCURRENCE}'="" FDA(130,"+1,",343)={"OTHER_CNS_OCCURRENCE"} set:{OTHER_CARDIAC_OCCURRENCE}'="" FDA(130,"+1,",344)={"OTHER_CARDIAC_OCCURRENCE"} set:{ILEUSBOWEL_OBSTRUCTION}'="" FDA(130,"+1,",345)={"ILEUSBOWEL_OBSTRUCTION"} set:{DIABETES}'="" FDA(130,"+1,",346)={"DIABETES"} set:{FEV1}'="" FDA(130,"+1,",347)={"FEV1"} set:{PULMONARY_RALES}'="" FDA(130,"+1,",348)={"PULMONARY_RALES"} set:{ACTIVE_ENDOCARDITIS}'="" FDA(130,"+1,",349)={"ACTIVE_ENDOCARDITIS"} set:{RESTING_ST_DEPRESSION}'="" FDA(130,"+1,",350)={"RESTING_ST_DEPRESSION"} set:{PCI}'="" FDA(130,"+1,",351)={"PCI"} set:{NUM_OF_PRIOR_HEART_SURGERIES}'="" FDA(130,"+1,",352)={"NUM_OF_PRIOR_HEART_SURGERIES"} set:{CURRENT_DIURETIC_USE}'="" FDA(130,"+1,",353)={"CURRENT_DIURETIC_USE"} set:{CURRENT_DIGOXIN_USE}'="" FDA(130,"+1,",354)={"CURRENT_DIGOXIN_USE"} set:{IV_NTG_WITHIN_48_HOURS}'="" FDA(130,"+1,",355)={"IV_NTG_WITHIN_48_HOURS"} set:{PREOPERATIVE_USE_OF_IABP}'="" FDA(130,"+1,",356)={"PREOPERATIVE_USE_OF_IABP"} set:{LVEDP}'="" FDA(130,"+1,",357)={"LVEDP"} set:{AORTIC_SYSTOLIC_PRESSURE}'="" FDA(130,"+1,",358)={"AORTIC_SYSTOLIC_PRESSURE"} set:{PA_SYSTOLIC_PRESSURE}'="" FDA(130,"+1,",359)={"PA_SYSTOLIC_PRESSURE"} set:{PAW_MEAN_PRESSURE}'="" FDA(130,"+1,",360)={"PAW_MEAN_PRESSURE"} set:{LEFT_MAIN_STENOSIS}'="" FDA(130,"+1,",361)={"LEFT_MAIN_STENOSIS"} set:{CORONARIES_WITH_STENOSIS}'="" FDA(130,"+1,",362)={"CORONARIES_WITH_STENOSIS"} set:{LAD_STENOSIS}'="" FDA(130,"+1,",362.1)={"LAD_STENOSIS"} set:{RIGHT_CORONARY_STENOSIS}'="" FDA(130,"+1,",362.2)={"RIGHT_CORONARY_STENOSIS"} set:{CIRCUMFLEX_STENOSIS}'="" FDA(130,"+1,",362.3)={"CIRCUMFLEX_STENOSIS"} set:{LV_CONTRACTION_SCORE}'="" FDA(130,"+1,",363)={"LV_CONTRACTION_SCORE"} set:{ESTIMATE_OF_MORTALITY}'="" FDA(130,"+1,",364)={"ESTIMATE_OF_MORTALITY"} set:{ESTIMATE_OF_MORTALITY_DATE}'="" FDA(130,"+1,",364.1)={"ESTIMATE_OF_MORTALITY_DATE"} set:{NUMBER_WITH_VEIN}'="" FDA(130,"+1,",365)={"NUMBER_WITH_VEIN"} set:{NUMBER_WITH_IMA}'="" FDA(130,"+1,",366)={"NUMBER_WITH_IMA"} set:{AORTIC_VALVE_PROCEDURE}'="" FDA(130,"+1,",367)={"AORTIC_VALVE_PROCEDURE"} set:{MITRAL_VALVE_PROCEDURE}'="" FDA(130,"+1,",368)={"MITRAL_VALVE_PROCEDURE"} set:{TRICUSPID_VALVE_PROCEDURE}'="" FDA(130,"+1,",369)={"TRICUSPID_VALVE_PROCEDURE"} set:{VALVE_REPAIR}'="" FDA(130,"+1,",370)={"VALVE_REPAIR"} set:{LV_ANEURYSMECTOMY}'="" FDA(130,"+1,",371)={"LV_ANEURYSMECTOMY"} set:{GREAT_VESSEL_REPAIR_YN}'="" FDA(130,"+1,",372)={"GREAT_VESSEL_REPAIR_YN"} set:{CARDIAC_TRANSPLANT}'="" FDA(130,"+1,",373)={"CARDIAC_TRANSPLANT"} set:{ELECTROPHYSIOLOGIC_PROCEDURE}'="" FDA(130,"+1,",374)={"ELECTROPHYSIOLOGIC_PROCEDURE"} set:{MISC__CARDIAC_PROCEDURES}'="" FDA(130,"+1,",375)={"MISC__CARDIAC_PROCEDURES"} set:{ASD_REPAIR}'="" FDA(130,"+1,",376)={"ASD_REPAIR"} set:{MYXOMA_RESECTION}'="" FDA(130,"+1,",377)={"MYXOMA_RESECTION"} set:{MYECTOMY}'="" FDA(130,"+1,",378)={"MYECTOMY"} set:{OTHER_TUMOR_RESECTION}'="" FDA(130,"+1,",379)={"OTHER_TUMOR_RESECTION"} set:{VSD_REPAIR}'="" FDA(130,"+1,",380)={"VSD_REPAIR"} set:{FOREIGN_BODY_REMOVAL}'="" FDA(130,"+1,",381)={"FOREIGN_BODY_REMOVAL"} set:{PERICARDIECTOMY}'="" FDA(130,"+1,",382)={"PERICARDIECTOMY"} set:{OTHER_PROCEDURES_YN}'="" FDA(130,"+1,",383)={"OTHER_PROCEDURES_YN"} set:{OTHER_CARDIAC_PROCEDURES}'="" FDA(130,"+1,",383.1)={"OTHER_CARDIAC_PROCEDURES"} set:{OPERATIVE_DEATH}'="" FDA(130,"+1,",384)={"OPERATIVE_DEATH"} set:{PERIOPERATIVE_MI}'="" FDA(130,"+1,",385)={"PERIOPERATIVE_MI"} set:{ENDOCARDITIS}'="" FDA(130,"+1,",386)={"ENDOCARDITIS"} set:{LOW_CARDIAC_OUTPUT__6_HOURS}'="" FDA(130,"+1,",387)={"LOW_CARDIAC_OUTPUT__6_HOURS"} set:{MEDIASTINITIS}'="" FDA(130,"+1,",388)={"MEDIASTINITIS"} set:{REOPERATION_FOR_BLEEDING}'="" FDA(130,"+1,",389)={"REOPERATION_FOR_BLEEDING"} set:{STROKE}'="" FDA(130,"+1,",390)={"STROKE"} set:{REPEAT_CARDIAC_SURG_PROCEDURE}'="" FDA(130,"+1,",391)={"REPEAT_CARDIAC_SURG_PROCEDURE"} set:{OTHER_OCCURRENCES_ICD}'="" FDA(130,"+1,",392)={"OTHER_OCCURRENCES_ICD"} set:{RETRANSMISSION}'="" FDA(130,"+1,",393)={"RETRANSMISSION"} set:{HISTORY_OF_MI}'="" FDA(130,"+1,",394)={"HISTORY_OF_MI"} set:{ANGINA_ONE_MONTH_PRIOR}'="" FDA(130,"+1,",395)={"ANGINA_ONE_MONTH_PRIOR"} set:{CHF_WITHIN_ONE_MONTH}'="" FDA(130,"+1,",396)={"CHF_WITHIN_ONE_MONTH"} set:{SEVERE_HEAD_TRAUMA_YN}'="" FDA(130,"+1,",397)={"SEVERE_HEAD_TRAUMA_YN"} set:{QUADRIPLEGIA_YN}'="" FDA(130,"+1,",398)={"QUADRIPLEGIA_YN"} set:{PARAPLEGIA_YN}'="" FDA(130,"+1,",399)={"PARAPLEGIA_YN"} set:{HEMIPLEGIAHEMIPARESIS_YN}'="" FDA(130,"+1,",400)={"HEMIPLEGIAHEMIPARESIS_YN"} set:{TUMOR_INVOLVING_CNS_YN}'="" FDA(130,"+1,",401)={"TUMOR_INVOLVING_CNS_YN"} set:{GENERAL_YN}'="" FDA(130,"+1,",402)={"GENERAL_YN"} set:{WOUND_OCCURRENCES}'="" FDA(130,"+1,",403)={"WOUND_OCCURRENCES"} set:{WOUND_DISRUPTION}'="" FDA(130,"+1,",404)={"WOUND_DISRUPTION"} set:{LOW_SERUM_SODIUM}'="" FDA(130,"+1,",405)={"LOW_SERUM_SODIUM"} set:{LOW_POTASSIUM}'="" FDA(130,"+1,",406)={"LOW_POTASSIUM"} set:{LOW_SODIUM_DATE}'="" FDA(130,"+1,",407)={"LOW_SODIUM_DATE"} set:{LOW_POTASSIUM_DATE}'="" FDA(130,"+1,",408)={"LOW_POTASSIUM_DATE"} set:{RENAL_INSUFFICIENCY}'="" FDA(130,"+1,",409)={"RENAL_INSUFFICIENCY"} set:{COMA__24_HOURS_POSTOP}'="" FDA(130,"+1,",410)={"COMA__24_HOURS_POSTOP"} set:{CARDIAC_ARREST_REQ_CPR}'="" FDA(130,"+1,",411)={"CARDIAC_ARREST_REQ_CPR"} set:{UNPLANNED_INTUBATION_YN}'="" FDA(130,"+1,",412)={"UNPLANNED_INTUBATION_YN"} set:{TRANSFER_STATUS}'="" FDA(130,"+1,",413)={"TRANSFER_STATUS"} set:{CARDIAC_SURGICAL_PRIORITY}'="" FDA(130,"+1,",414)={"CARDIAC_SURGICAL_PRIORITY"} set:{SURGICAL_PRIORITY_DATE}'="" FDA(130,"+1,",414.1)={"SURGICAL_PRIORITY_DATE"} set:{MITRAL_REGURGITATION}'="" FDA(130,"+1,",415)={"MITRAL_REGURGITATION"} set:{NUMBER_WITH_OTHER_CONDUIT}'="" FDA(130,"+1,",416)={"NUMBER_WITH_OTHER_CONDUIT"} set:{RACE}'="" FDA(130,"+1,",417)={"RACE"} set:{HOSPITAL_ADMISSION_DATE}'="" FDA(130,"+1,",418)={"HOSPITAL_ADMISSION_DATE"} set:{HOSPITAL_DISCHARGE_DATE}'="" FDA(130,"+1,",419)={"HOSPITAL_DISCHARGE_DATE"} set:{ADMISSIONTRANSFER_DATE}'="" FDA(130,"+1,",420)={"ADMISSIONTRANSFER_DATE"} set:{DISCHARGETRANSFER_DATE}'="" FDA(130,"+1,",421)={"DISCHARGETRANSFER_DATE"} set:{OUTOFOR_UNPLANNED_INTUBATION}'="" FDA(130,"+1,",422)={"OUTOFOR_UNPLANNED_INTUBATION"} set:{CONGESTIVE_HEART_FAILURE_PREOP}'="" FDA(130,"+1,",423)={"CONGESTIVE_HEART_FAILURE_PREOP"} set:{CARDIAC_RISK_PREOP_COMMENTS}'="" FDA(130,"+1,",430)={"CARDIAC_RISK_PREOP_COMMENTS"} set:{CARDIAC_RESOURCE_DATA_COMMENTS}'="" FDA(130,"+1,",431)={"CARDIAC_RESOURCE_DATA_COMMENTS"} set:{BATISTA_PROCEDURE_USED_YN}'="" FDA(130,"+1,",439)={"BATISTA_PROCEDURE_USED_YN"} set:{CARDIAC_CATHETERIZATION_DATE}'="" FDA(130,"+1,",440)={"CARDIAC_CATHETERIZATION_DATE"} set:{MINIMALLY_INVASIVE_PROC_YN}'="" FDA(130,"+1,",441)={"MINIMALLY_INVASIVE_PROC_YN"} set:{EMPLOYMENT_STATUS_PREOPERATIVE}'="" FDA(130,"+1,",442)={"EMPLOYMENT_STATUS_PREOPERATIVE"} set:{INTRAOP_DISSEMINATED_CANCER}'="" FDA(130,"+1,",443)={"INTRAOP_DISSEMINATED_CANCER"} set:{PREOPERATIVE_ANION_GAP}'="" FDA(130,"+1,",444)={"PREOPERATIVE_ANION_GAP"} set:{PREOP_ANION_GAP_DATE}'="" FDA(130,"+1,",444.1)={"PREOP_ANION_GAP_DATE"} set:{HIGHEST_ANION_GAP}'="" FDA(130,"+1,",445)={"HIGHEST_ANION_GAP"} set:{HIGH_ANION_GAP_DATE}'="" FDA(130,"+1,",445.1)={"HIGH_ANION_GAP_DATE"} set:{INTRAOPERATIVE_ASCITES}'="" FDA(130,"+1,",446)={"INTRAOPERATIVE_ASCITES"} set:{CLOSTRIDIUM_DIFFICILE_COLITIS}'="" FDA(130,"+1,",447)={"CLOSTRIDIUM_DIFFICILE_COLITIS"} set:{POSTOP_ATRIAL_FIBRILLATION}'="" FDA(130,"+1,",448)={"POSTOP_ATRIAL_FIBRILLATION"} set:{TOTAL_ISCHEMIC_TIME}'="" FDA(130,"+1,",450)={"TOTAL_ISCHEMIC_TIME"} set:{TOTAL_CPB_TIME}'="" FDA(130,"+1,",451)={"TOTAL_CPB_TIME"} set:{OBSERVATION_ADMISSION_DATE}'="" FDA(130,"+1,",452)={"OBSERVATION_ADMISSION_DATE"} set:{OBSERVATION_DISCHARGE_DATE}'="" FDA(130,"+1,",453)={"OBSERVATION_DISCHARGE_DATE"} set:{OBSERVATION_TREATING_SPECIALTY}'="" FDA(130,"+1,",454)={"OBSERVATION_TREATING_SPECIALTY"} set:{HIGHEST_SERUM_TROPONIN_I}'="" FDA(130,"+1,",455)={"HIGHEST_SERUM_TROPONIN_I"} set:{HIGH_SERUM_TROPONIN_I_DATE}'="" FDA(130,"+1,",455.1)={"HIGH_SERUM_TROPONIN_I_DATE"} set:{HIGHEST_SERUM_TROPONIN_T}'="" FDA(130,"+1,",456)={"HIGHEST_SERUM_TROPONIN_T"} set:{HIGH_SERUM_TROPONIN_T_DATE}'="" FDA(130,"+1,",456.1)={"HIGH_SERUM_TROPONIN_T_DATE"} set:{HDL_CARDIAC}'="" FDA(130,"+1,",457)={"HDL_CARDIAC"} set:{HDL_DATE}'="" FDA(130,"+1,",457.1)={"HDL_DATE"} set:{SERUM_TRIGLYCERIDE_CARDIAC}'="" FDA(130,"+1,",458)={"SERUM_TRIGLYCERIDE_CARDIAC"} set:{SERUM_TRIGLYCERIDE_DATE_CAR}'="" FDA(130,"+1,",458.1)={"SERUM_TRIGLYCERIDE_DATE_CAR"} set:{SERUM_POTASSIUM_CARDIAC}'="" FDA(130,"+1,",459)={"SERUM_POTASSIUM_CARDIAC"} set:{SERUM_POTASSIUM_DATECARDIAC}'="" FDA(130,"+1,",459.1)={"SERUM_POTASSIUM_DATECARDIAC"} set:{SERUM_BILIRUBIN_CARDIAC}'="" FDA(130,"+1,",460)={"SERUM_BILIRUBIN_CARDIAC"} set:{SERUM_BILIRUBIN_DATE_CARD}'="" FDA(130,"+1,",460.1)={"SERUM_BILIRUBIN_DATE_CARD"} set:{LDL_CARDIAC}'="" FDA(130,"+1,",461)={"LDL_CARDIAC"} set:{LDL_DATE_CARDIAC}'="" FDA(130,"+1,",461.1)={"LDL_DATE_CARDIAC"} set:{TOTAL_CHOLESTEROL_CARDIAC}'="" FDA(130,"+1,",462)={"TOTAL_CHOLESTEROL_CARDIAC"} set:{TOTAL_CHOLESTEROL_DATE}'="" FDA(130,"+1,",462.1)={"TOTAL_CHOLESTEROL_DATE"} set:{HYPERTENSION}'="" FDA(130,"+1,",463)={"HYPERTENSION"} set:{NUMBER_WITH_RADIAL_ARTERY}'="" FDA(130,"+1,",464)={"NUMBER_WITH_RADIAL_ARTERY"} set:{NUMBER_WITH_OTHER_ARTERY}'="" FDA(130,"+1,",465)={"NUMBER_WITH_OTHER_ARTERY"} set:{TRACHEOSTOMY}'="" FDA(130,"+1,",466)={"TRACHEOSTOMY"} set:{NEW_MECHANICAL_CIRCULATORY}'="" FDA(130,"+1,",467)={"NEW_MECHANICAL_CIRCULATORY"} set:{INCISION_TYPE}'="" FDA(130,"+1,",468)={"INCISION_TYPE"} set:{CONVERT_FROM_OFF_PUMP_TO_CPB}'="" FDA(130,"+1,",469)={"CONVERT_FROM_OFF_PUMP_TO_CPB"} set:{DT_PATIENT_EXTUBATED}'="" FDA(130,"+1,",470)={"DT_PATIENT_EXTUBATED"} set:{DT_PATIENT_DISCH_FROM_ICU}'="" FDA(130,"+1,",471)={"DT_PATIENT_DISCH_FROM_ICU"} set:{CARDIAC_SURG_PERFORMED_NONVA}'="" FDA(130,"+1,",472)={"CARDIAC_SURG_PERFORMED_NONVA"} set:{HOMELESS}'="" FDA(130,"+1,",473)={"HOMELESS"} set:{PREOP_CIRCULATORY_DEVICE}'="" FDA(130,"+1,",474)={"PREOP_CIRCULATORY_DEVICE"} set:{DIABETES_CARDIAC}'="" FDA(130,"+1,",475)={"DIABETES_CARDIAC"} set:{PROCEDURE_TYPE}'="" FDA(130,"+1,",476)={"PROCEDURE_TYPE"} set:{AORTIC_STENOSIS}'="" FDA(130,"+1,",477)={"AORTIC_STENOSIS"} set:{REDO_LAD_STENOSIS}'="" FDA(130,"+1,",478)={"REDO_LAD_STENOSIS"} set:{REDO_RT_CORONARY_STENOSIS}'="" FDA(130,"+1,",479)={"REDO_RT_CORONARY_STENOSIS"} set:{REDO_CIRCUMFLEX_STENOSIS}'="" FDA(130,"+1,",480)={"REDO_CIRCUMFLEX_STENOSIS"} set:{BRIDGE_TO_TRANSPLANTDEVICE}'="" FDA(130,"+1,",481)={"BRIDGE_TO_TRANSPLANTDEVICE"} set:{MAZE_PROCEDURE}'="" FDA(130,"+1,",482)={"MAZE_PROCEDURE"} set:{TMR}'="" FDA(130,"+1,",483)={"TMR"} set:{OTHER_CARDIAC_PROCEDURESLIST}'="" FDA(130,"+1,",484)={"OTHER_CARDIAC_PROCEDURESLIST"} set:{PRIOR_HEART_SURGERY}'="" FDA(130,"+1,",485)={"PRIOR_HEART_SURGERY"} set:{GASTROINTESTINAL_YN}'="" FDA(130,"+1,",486)={"GASTROINTESTINAL_YN"} set:{PREOPERATIVE_INR}'="" FDA(130,"+1,",487)={"PREOPERATIVE_INR"} set:{PREOPERATIVE_INR_DATE}'="" FDA(130,"+1,",487.1)={"PREOPERATIVE_INR_DATE"} set:{ORGANSPACE_SSI}'="" FDA(130,"+1,",488)={"ORGANSPACE_SSI"} set:{OTHER_WOUND_OCCURRENCE}'="" FDA(130,"+1,",489)={"OTHER_WOUND_OCCURRENCE"} set:{REPEAT_VENTILATOR_WIN_30_DAY}'="" FDA(130,"+1,",490)={"REPEAT_VENTILATOR_WIN_30_DAY"} set:{OTHER_NONCT_PROCEDURES}'="" FDA(130,"+1,",491)={"OTHER_NONCT_PROCEDURES"} set:{PREOP_FUNCT__HEALTH_STATUS}'="" FDA(130,"+1,",492)={"PREOP_FUNCT__HEALTH_STATUS"} set:{PULMONARY_VALVE_PROCEDURE}'="" FDA(130,"+1,",493)={"PULMONARY_VALVE_PROCEDURE"} set:{PFSS_ACCOUNT_REFERENCE}'="" FDA(130,"+1,",500)={"PFSS_ACCOUNT_REFERENCE"} set:{OTHER_CARDIAC_PROCEDURES_YN}'="" FDA(130,"+1,",502)={"OTHER_CARDIAC_PROCEDURES_YN"} set:{HEMOGLOBIN_A1C}'="" FDA(130,"+1,",504)={"HEMOGLOBIN_A1C"} set:{HEMOGLOBIN_A1C_DATE}'="" FDA(130,"+1,",504.1)={"HEMOGLOBIN_A1C_DATE"} set:{ENDOVASCULAR_REPAIR}'="" FDA(130,"+1,",505)={"ENDOVASCULAR_REPAIR"} set:{HAIR_REMOVAL_METHOD}'="" FDA(130,"+1,",506)={"HAIR_REMOVAL_METHOD"} set:{BNP}'="" FDA(130,"+1,",507)={"BNP"} set:{BNP_DATE}'="" FDA(130,"+1,",507.1)={"BNP_DATE"} set:{PREOP_ATRIAL_FIBRILLATION}'="" FDA(130,"+1,",509)={"PREOP_ATRIAL_FIBRILLATION"} set:{CURRENT_SMOKER_CARDIAC}'="" FDA(130,"+1,",510)={"CURRENT_SMOKER_CARDIAC"} set:{MAZE_PROCEDURE0}'="" FDA(130,"+1,",512)={"MAZE_PROCEDURE0"} set:{SURGERY_CONSULT_DATE}'="" FDA(130,"+1,",513)={"SURGERY_CONSULT_DATE"} set:{PRIMARY_CAUSE_FOR_DELAY}'="" FDA(130,"+1,",515)={"PRIMARY_CAUSE_FOR_DELAY"} set:{SURGERY_CONSULT_REQUESTED}'="" FDA(130,"+1,",516)={"SURGERY_CONSULT_REQUESTED"} set:{TOBACCO_USE}'="" FDA(130,"+1,",517)={"TOBACCO_USE"} set:{TOBACCO_USE_TIMEFRAME}'="" FDA(130,"+1,",518)={"TOBACCO_USE_TIMEFRAME"} set:{DIABETES_MELLITUS_CHRONIC}'="" FDA(130,"+1,",519)={"DIABETES_MELLITUS_CHRONIC"} set:{DIABETES_MELLITUS_PREOP_MGMT}'="" FDA(130,"+1,",520)={"DIABETES_MELLITUS_PREOP_MGMT"} set:{CVD_REPAIROBSTRUCTION}'="" FDA(130,"+1,",521)={"CVD_REPAIROBSTRUCTION"} set:{HISTORY_OF_CVD}'="" FDA(130,"+1,",522)={"HISTORY_OF_CVD"} set:{CONFIRM_PATIENT_IDENTITY}'="" FDA(130,"+1,",600)={"CONFIRM_PATIENT_IDENTITY"} set:{PROCEDURE_TO_BE_PERFORMED}'="" FDA(130,"+1,",601)={"PROCEDURE_TO_BE_PERFORMED"} set:{SITE_OF_PROCEDURE}'="" FDA(130,"+1,",602)={"SITE_OF_PROCEDURE"} set:{CONFIRM_VALID_CONSENT}'="" FDA(130,"+1,",603)={"CONFIRM_VALID_CONSENT"} set:{CONFIRM_PATIENT_POSITION}'="" FDA(130,"+1,",604)={"CONFIRM_PATIENT_POSITION"} set:{MARKED_SITE_CONFIRMED0}'="" FDA(130,"+1,",605)={"MARKED_SITE_CONFIRMED0"} set:{PREOPERATIVE_IMAGES_CONFIRMED}'="" FDA(130,"+1,",606)={"PREOPERATIVE_IMAGES_CONFIRMED"} set:{CORRECT_MEDICAL_IMPLANTS}'="" FDA(130,"+1,",607)={"CORRECT_MEDICAL_IMPLANTS"} set:{ANTIBIOTIC_PROPHYLAXIS}'="" FDA(130,"+1,",608)={"ANTIBIOTIC_PROPHYLAXIS"} set:{APPROPRIATE_DVT_PROPHYLAXIS}'="" FDA(130,"+1,",609)={"APPROPRIATE_DVT_PROPHYLAXIS"} set:{BLOOD_AVAILABILITY}'="" FDA(130,"+1,",610)={"BLOOD_AVAILABILITY"} set:{AVAILABILITY_OF_SPECIAL_EQUIP}'="" FDA(130,"+1,",611)={"AVAILABILITY_OF_SPECIAL_EQUIP"} set:{ORIGINAL_DESIRED_DATE}'="" FDA(130,"+1,",612)={"ORIGINAL_DESIRED_DATE"} set:{DT_OF_DESIRED_PROCEDURE_DATE}'="" FDA(130,"+1,",613)={"DT_OF_DESIRED_PROCEDURE_DATE"} set:{ORIGINAL_SCHEDULED_DATE}'="" FDA(130,"+1,",614)={"ORIGINAL_SCHEDULED_DATE"} set:{DT_OF_SCHEDULED_DATE_ENTRY}'="" FDA(130,"+1,",615)={"DT_OF_SCHEDULED_DATE_ENTRY"} set:{DESIRED_PROCEDURE_DATE}'="" FDA(130,"+1,",616)={"DESIRED_PROCEDURE_DATE"} set:{SCHEDULED_DATE}'="" FDA(130,"+1,",617)={"SCHEDULED_DATE"} set:{POSITIVE_DRUG_SCREENING}'="" FDA(130,"+1,",618)={"POSITIVE_DRUG_SCREENING"} set:{IMMED_USECONTAMINATION}'="" FDA(130,"+1,",619)={"IMMED_USECONTAMINATION"} set:{IMMED_USESPSOR_MGT_ISSUE}'="" FDA(130,"+1,",620)={"IMMED_USESPSOR_MGT_ISSUE"} set:{IMMED_USEEMERGENCY_CASE}'="" FDA(130,"+1,",621)={"IMMED_USEEMERGENCY_CASE"} set:{IMMED_USENO_BETTER_OPTION}'="" FDA(130,"+1,",622)={"IMMED_USENO_BETTER_OPTION"} set:{IMMED_USELOANER_INSTRUMENT}'="" FDA(130,"+1,",623)={"IMMED_USELOANER_INSTRUMENT"} set:{IMMED_USEDECONTAMINATION}'="" FDA(130,"+1,",624)={"IMMED_USEDECONTAMINATION"} set:{POSSIBLE_ITEM_RETENTION}'="" FDA(130,"+1,",630)={"POSSIBLE_ITEM_RETENTION"} set:{WOUND_SWEEP}'="" FDA(130,"+1,",633)={"WOUND_SWEEP"} set:{INTRAOPERATIVE_XRAY}'="" FDA(130,"+1,",636)={"INTRAOPERATIVE_XRAY"} set:{LATERALITY_OF_PROCEDURE}'="" FDA(130,"+1,",638)={"LATERALITY_OF_PROCEDURE"} set:{REPORT_GIVEN_TO}'="" FDA(130,"+1,",639)={"REPORT_GIVEN_TO"} set:{PCI0}'="" FDA(130,"+1,",640)={"PCI0"} set:{HYPERTENSION0}'="" FDA(130,"+1,",641)={"HYPERTENSION0"} set:{BLEEDING_RISK_DUE_TO_MED}'="" FDA(130,"+1,",642)={"BLEEDING_RISK_DUE_TO_MED"} set:{ANGINA_TIMEFRAME}'="" FDA(130,"+1,",643)={"ANGINA_TIMEFRAME"} set:{SYMPTOMATIC_UTI}'="" FDA(130,"+1,",644)={"SYMPTOMATIC_UTI"} set:{MECHANICAL_VENT_WN_30_DAYS}'="" FDA(130,"+1,",645)={"MECHANICAL_VENT_WN_30_DAYS"} set:{UNOS_NUMBER}'="" FDA(130,"+1,",648)={"UNOS_NUMBER"} set:{DONOR_SEROLOGY_HCV}'="" FDA(130,"+1,",649)={"DONOR_SEROLOGY_HCV"} set:{DONOR_SEROLOGY_HBV}'="" FDA(130,"+1,",650)={"DONOR_SEROLOGY_HBV"} set:{DONOR_SEROLOGY_CMV}'="" FDA(130,"+1,",651)={"DONOR_SEROLOGY_CMV"} set:{DONOR_SEROLOGY_HIV}'="" FDA(130,"+1,",652)={"DONOR_SEROLOGY_HIV"} set:{DONOR_ABO_TYPE}'="" FDA(130,"+1,",653)={"DONOR_ABO_TYPE"} set:{RECIPIENT_ABO_TYPE}'="" FDA(130,"+1,",654)={"RECIPIENT_ABO_TYPE"} set:{BLOOD_BANK_ABO_VERIFICATION}'="" FDA(130,"+1,",655)={"BLOOD_BANK_ABO_VERIFICATION"} set:{OR_ABO_VERIFICATION_YN}'="" FDA(130,"+1,",656)={"OR_ABO_VERIFICATION_YN"} set:{SURGEON_VERIFYING_UNET}'="" FDA(130,"+1,",657)={"SURGEON_VERIFYING_UNET"} set:{ORGAN_VER_PREANESTHESIA}'="" FDA(130,"+1,",658)={"ORGAN_VER_PREANESTHESIA"} set:{SURGEON_VER_DONOR_ORG_PREANES}'="" FDA(130,"+1,",659)={"SURGEON_VER_DONOR_ORG_PREANES"} set:{ORGAN_VER_PRETRANSPLANT}'="" FDA(130,"+1,",660)={"ORGAN_VER_PRETRANSPLANT"} set:{PALLIATION}'="" FDA(130,"+1,",661)={"PALLIATION"} set:{IMPAIRED_COGNITIVE_FUNCTION}'="" FDA(130,"+1,",662)={"IMPAIRED_COGNITIVE_FUNCTION"} set:{DONOR_VESSEL_USAGE}'="" FDA(130,"+1,",663)={"DONOR_VESSEL_USAGE"} set:{DONOR_VESSEL_DISPOSITION}'="" FDA(130,"+1,",665)={"DONOR_VESSEL_DISPOSITION"} set:{LIVER_DISEASECIRRHOSIS}'="" FDA(130,"+1,",666)={"LIVER_DISEASECIRRHOSIS"} set:{SLEEP_APNEACOMPLIANCE}'="" FDA(130,"+1,",667)={"SLEEP_APNEACOMPLIANCE"} set:{IMMUNOCOMPROMISED_STATE_PREOP}'="" FDA(130,"+1,",668)={"IMMUNOCOMPROMISED_STATE_PREOP"} set:{PULMONARY_HTN}'="" FDA(130,"+1,",669)={"PULMONARY_HTN"} set:{RESIDENCE_30_DAYS_PREOP}'="" FDA(130,"+1,",670)={"RESIDENCE_30_DAYS_PREOP"} set:{AMBULATION_DEVICE_PREOP}'="" FDA(130,"+1,",671)={"AMBULATION_DEVICE_PREOP"} set:{NUTRITIONAL_SUPPLEMENT_PREOP}'="" FDA(130,"+1,",672)={"NUTRITIONAL_SUPPLEMENT_PREOP"} set:{HISTORY_OF_CANCER_DIAGNOSIS}'="" FDA(130,"+1,",673)={"HISTORY_OF_CANCER_DIAGNOSIS"} set:{HX_RAD_RX_PLANNED_SURG_FIELD}'="" FDA(130,"+1,",674)={"HX_RAD_RX_PLANNED_SURG_FIELD"} set:{PRIOR_INFECINFLAM_SURG_FIELD}'="" FDA(130,"+1,",675)={"PRIOR_INFECINFLAM_SURG_FIELD"} set:{HX_DEEP_VEIN_THROMBOSIS}'="" FDA(130,"+1,",676)={"HX_DEEP_VEIN_THROMBOSIS"} set:{PRIOR_SURG_SAME_OP_FIELD}'="" FDA(130,"+1,",677)={"PRIOR_SURG_SAME_OP_FIELD"} set:{DCREL_DESTINATION}'="" FDA(130,"+1,",685)={"DCREL_DESTINATION"} set:{AORTIC_REGURGITATION}'="" FDA(130,"+1,",686)={"AORTIC_REGURGITATION"} set:{INJURY_TO_ADJACENT_ORGAN}'="" FDA(130,"+1,",687)={"INJURY_TO_ADJACENT_ORGAN"} set:{STOMA_COMPLICATIONS}'="" FDA(130,"+1,",688)={"STOMA_COMPLICATIONS"} set:{NONUNION}'="" FDA(130,"+1,",689)={"NONUNION"} set:{IMPLANT_INFECTIONS}'="" FDA(130,"+1,",690)={"IMPLANT_INFECTIONS"} set:{CHYLELYMPH_LEAK}'="" FDA(130,"+1,",691)={"CHYLELYMPH_LEAK"} set:{ANASTOMOTIC_LEAK}'="" FDA(130,"+1,",692)={"ANASTOMOTIC_LEAK"} set:{FISTULA}'="" FDA(130,"+1,",693)={"FISTULA"} set:{NECROTIZING_SOFT_TISS_INFECT}'="" FDA(130,"+1,",694)={"NECROTIZING_SOFT_TISS_INFECT"} set:{OTHER_BLOOD_PRODUCT_UNITS}'="" FDA(130,"+1,",695)={"OTHER_BLOOD_PRODUCT_UNITS"} set:{PRESSORS_USED_INTRAOP}'="" FDA(130,"+1,",696)={"PRESSORS_USED_INTRAOP"} set:{MITRAL_STENOSIS}'="" FDA(130,"+1,",697)={"MITRAL_STENOSIS"} set:{PCI_INTERVENTION}'="" FDA(130,"+1,",698)={"PCI_INTERVENTION"} set:{ATRIAL_ARRHYTHMIAS}'="" FDA(130,"+1,",699)={"ATRIAL_ARRHYTHMIAS"} set:{HEAD_OR_NECK_CANCER}'="" FDA(130,"+1,",700)={"HEAD_OR_NECK_CANCER"} set:{MACULAR_DEGENERATION}'="" FDA(130,"+1,",701)={"MACULAR_DEGENERATION"} set:{GLAUCOMA}'="" FDA(130,"+1,",702)={"GLAUCOMA"} set:{HX_RETINAL_DETACHMENT}'="" FDA(130,"+1,",704)={"HX_RETINAL_DETACHMENT"} set:{AXIAL_LENANTERIOR_CHAM_DEP}'="" FDA(130,"+1,",705)={"AXIAL_LENANTERIOR_CHAM_DEP"} set:{CORNEAL_GUTTAEFUCHS_ENDO}'="" FDA(130,"+1,",706)={"CORNEAL_GUTTAEFUCHS_ENDO"} set:{DIABETIC_RETINOPATHY}'="" FDA(130,"+1,",707)={"DIABETIC_RETINOPATHY"} set:{COMPLEX_CATARACT}'="" FDA(130,"+1,",708)={"COMPLEX_CATARACT"} set:{STATIN_30_DAYS_PREOP}'="" FDA(130,"+1,",709)={"STATIN_30_DAYS_PREOP"} set:{IPSILAT_CORTICAL_EVENT_PREOP}'="" FDA(130,"+1,",710)={"IPSILAT_CORTICAL_EVENT_PREOP"} set:{PREOP_MODIFIED_RANKIN_SCORE}'="" FDA(130,"+1,",711)={"PREOP_MODIFIED_RANKIN_SCORE"} set:{CAROTID_SUR_ANATOMIC_HIGH_RISK}'="" FDA(130,"+1,",712)={"CAROTID_SUR_ANATOMIC_HIGH_RISK"} set:{BYPASS_CRITICAL_LIMB_ISCHEMIA}'="" FDA(130,"+1,",713)={"BYPASS_CRITICAL_LIMB_ISCHEMIA"} set:{ENDOLEAK_AT_COMPLETION}'="" FDA(130,"+1,",715)={"ENDOLEAK_AT_COMPLETION"} set:{HIGH_HEART_RATE_6HRS_PREOP}'="" FDA(130,"+1,",716)={"HIGH_HEART_RATE_6HRS_PREOP"} set:{HIGH_HEART_RATE_INTRAOP}'="" FDA(130,"+1,",717)={"HIGH_HEART_RATE_INTRAOP"} set:{LOW_ARTERIAL_PRESS_6HRS_PREOP}'="" FDA(130,"+1,",718)={"LOW_ARTERIAL_PRESS_6HRS_PREOP"} set:{HIGH_LACTIC_ACID_6HRS_PREOP}'="" FDA(130,"+1,",719)={"HIGH_LACTIC_ACID_6HRS_PREOP"} set:{HIGH_LACTIC_ACID_INTRAOP}'="" FDA(130,"+1,",720)={"HIGH_LACTIC_ACID_INTRAOP"} set:{LOWEST_PH_6HRS_PREOP}'="" FDA(130,"+1,",721)={"LOWEST_PH_6HRS_PREOP"} set:{LOWEST_PH_INTRAOP}'="" FDA(130,"+1,",722)={"LOWEST_PH_INTRAOP"} set:{LOW_ARTERIAL_PRESS_INTRAOP}'="" FDA(130,"+1,",723)={"LOW_ARTERIAL_PRESS_INTRAOP"} set:{OLIGURIA_60CC2HRS_6HRS_PREOP}'="" FDA(130,"+1,",724)={"OLIGURIA_60CC2HRS_6HRS_PREOP"} set:{OLIGURIA_URINE_OUTPUT_INTRAOP}'="" FDA(130,"+1,",725)={"OLIGURIA_URINE_OUTPUT_INTRAOP"} set:{LOWEST_BICARBONATE_6HRS_PREOP}'="" FDA(130,"+1,",726)={"LOWEST_BICARBONATE_6HRS_PREOP"} set:{LOWEST_BICARBONATE_INTRAOP}'="" FDA(130,"+1,",727)={"LOWEST_BICARBONATE_INTRAOP"} set:{UNITS_TRANSFUSED_6HRS_PREOP}'="" FDA(130,"+1,",728)={"UNITS_TRANSFUSED_6HRS_PREOP"} set:{VASOPRESSOR_USAGE_AT_OR_ENTRY}'="" FDA(130,"+1,",729)={"VASOPRESSOR_USAGE_AT_OR_ENTRY"} set:{CARDIAC_ARREST_24HRS_PREOP}'="" FDA(130,"+1,",730)={"CARDIAC_ARREST_24HRS_PREOP"} set:{DIC_6HRS_PREOP}'="" FDA(130,"+1,",731)={"DIC_6HRS_PREOP"} set:{HYPOXEMIA_WIN_6HRS_PREOP}'="" FDA(130,"+1,",732)={"HYPOXEMIA_WIN_6HRS_PREOP"} set:{ENDOLEAK_AT_FOLLOWUP}'="" FDA(130,"+1,",733)={"ENDOLEAK_AT_FOLLOWUP"} set:{CARDIAC_ARREST_INTRAOP}'="" FDA(130,"+1,",734)={"CARDIAC_ARREST_INTRAOP"} set:{FLOPPY_IRIS_INTRAOP}'="" FDA(130,"+1,",735)={"FLOPPY_IRIS_INTRAOP"} set:{PREOP_VISUAL_ACUITY}'="" FDA(130,"+1,",736)={"PREOP_VISUAL_ACUITY"} set:{POSTOP_VISUAL_ACUITY}'="" FDA(130,"+1,",737)={"POSTOP_VISUAL_ACUITY"} set:{ENDOPHTHALMITIS_TYPE}'="" FDA(130,"+1,",738)={"ENDOPHTHALMITIS_TYPE"} set:{CYSTOID_MACULAR_EDEMA}'="" FDA(130,"+1,",739)={"CYSTOID_MACULAR_EDEMA"} set:{DISLOCATION_OF_OPERATIVE_JOINT}'="" FDA(130,"+1,",740)={"DISLOCATION_OF_OPERATIVE_JOINT"} set:{PERIPROSTHETIC_FRACTURES}'="" FDA(130,"+1,",741)={"PERIPROSTHETIC_FRACTURES"} set:{DT_PAT_ARRIVES_HOSP_DAY_SURG}'="" FDA(130,"+1,",742)={"DT_PAT_ARRIVES_HOSP_DAY_SURG"} set:{DT_PAT_LEAVES_HOSP_DAY_SURG}'="" FDA(130,"+1,",743)={"DT_PAT_LEAVES_HOSP_DAY_SURG"} set:{KIDNEY_DONOR_PROFILE_INDEX}'="" FDA(130,"+1,",744)={"KIDNEY_DONOR_PROFILE_INDEX"} set:{EXPECTED_POST_TRANSPLANT_INDEX}'="" FDA(130,"+1,",745)={"EXPECTED_POST_TRANSPLANT_INDEX"} set:{BLOOD_BANK_ABO_VER_COMMENTS}'="" FDA(130,"+1,",746)={"BLOOD_BANK_ABO_VER_COMMENTS"} set:{DT_BLOOD_BANK_ABO_VERIF}'="" FDA(130,"+1,",747)={"DT_BLOOD_BANK_ABO_VERIF"} set:{OR_ABO_VER_COMMENTS}'="" FDA(130,"+1,",748)={"OR_ABO_VER_COMMENTS"} set:{DT_OR_ABO_VERIF}'="" FDA(130,"+1,",749)={"DT_OR_ABO_VERIF"} set:{UNET_VERIF_BY_SURGEON_YN}'="" FDA(130,"+1,",750)={"UNET_VERIF_BY_SURGEON_YN"} set:{SURGEON_VER_ORGAN_PREANES}'="" FDA(130,"+1,",751)={"SURGEON_VER_ORGAN_PREANES"} set:{DONOR_ORG_VER_PREANES}'="" FDA(130,"+1,",752)={"DONOR_ORG_VER_PREANES"} set:{SURGEON_VER_ORG_PRETRANSPLANT}'="" FDA(130,"+1,",753)={"SURGEON_VER_ORG_PRETRANSPLANT"} set:{AIRWAY_INDEX}'="" FDA(130,"+1,",901)={"AIRWAY_INDEX"} set:{MALLAMPATI_SCALE}'="" FDA(130,"+1,",901.1)={"MALLAMPATI_SCALE"} set:{MANDIBULAR_SPACE}'="" FDA(130,"+1,",901.2)={"MANDIBULAR_SPACE"} set:{DEATH_UNRELATEDRELATED}'="" FDA(130,"+1,",903)={"DEATH_UNRELATEDRELATED"} set:{READY_TO_TRANSMIT}'="" FDA(130,"+1,",905)={"READY_TO_TRANSMIT"} set:{TIU_OPERATIVE_SUMMARY}'="" FDA(130,"+1,",1000)={"TIU_OPERATIVE_SUMMARY"} set:{TIU_NURSE_INTRAOP_REPORT}'="" FDA(130,"+1,",1001)={"TIU_NURSE_INTRAOP_REPORT"} set:{TIU_PROCEDURE_REPORT_NONOR}'="" FDA(130,"+1,",1002)={"TIU_PROCEDURE_REPORT_NONOR"} set:{TIU_ANESTHESIA_REPORT}'="" FDA(130,"+1,",1003)={"TIU_ANESTHESIA_REPORT"} set:{DICTATED_SUMMARY_EXPECTED}'="" FDA(130,"+1,",1004)={"DICTATED_SUMMARY_EXPECTED"} set:{CPT_ON_NURSE_REPORT}'="" FDA(130,"+1,",1005)={"CPT_ON_NURSE_REPORT"} set:{ICD_ON_NURSE_REPORT}'="" FDA(130,"+1,",1006)={"ICD_ON_NURSE_REPORT"} set:{ROBOTIC_ASSISTANCE_YN}'="" FDA(130,"+1,",2006)={"ROBOTIC_ASSISTANCE_YN"} set:{OP_NOTE_POINTER}'="" FDA(130,"+1,",523011)={"OP_NOTE_POINTER"} set:{f3M_TOTAL_REIMBURSEMENT}'="" FDA(130,"+1,",19900000)={"f3M_TOTAL_REIMBURSEMENT"} set:{f3M_STATUS}'="" FDA(130,"+1,",19900001)={"f3M_STATUS"} set:{f3M_BILL_TYPE}'="" FDA(130,"+1,",19900002)={"f3M_BILL_TYPE"} set:{f3M_APC_CLAIM_TYPE}'="" FDA(130,"+1,",19900004)={"f3M_APC_CLAIM_TYPE"} set:{f3M_APC_TOTAL_WEIGHT}'="" FDA(130,"+1,",19900005)={"f3M_APC_TOTAL_WEIGHT"} set:{f3M_APC_COPAY_AMT}'="" FDA(130,"+1,",19900006)={"f3M_APC_COPAY_AMT"} set:{f3M_APC_HCFA_AMT}'="" FDA(130,"+1,",19900007)={"f3M_APC_HCFA_AMT"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(130)") set %SkipFiling=1 if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {GENERAL_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({GENERAL_COMMENTS},$c(13,10)) { set wp(i)=$p({GENERAL_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},.28,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {NURSING_CARE_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({NURSING_CARE_COMMENTS},$c(13,10)) { set wp(i)=$p({NURSING_CARE_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},.29,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SURGEONS_DICTATION}'="" { set D0={RowId} for i=1:1:$l({SURGEONS_DICTATION},$c(13,10)) { set wp(i)=$p({SURGEONS_DICTATION},$c(13,10),i) } do WP^DIE(130,{RowId},1.15,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {POSTOP_ANES_NOTE}'="" { set D0={RowId} for i=1:1:$l({POSTOP_ANES_NOTE},$c(13,10)) { set wp(i)=$p({POSTOP_ANES_NOTE},$c(13,10),i) } do WP^DIE(130,{RowId},1.2,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SPECIMENS}'="" { set D0={RowId} for i=1:1:$l({SPECIMENS},$c(13,10)) { set wp(i)=$p({SPECIMENS},$c(13,10),i) } do WP^DIE(130,{RowId},49,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INDICATIONS_FOR_OPERATIONS}'="" { set D0={RowId} for i=1:1:$l({INDICATIONS_FOR_OPERATIONS},$c(13,10)) { set wp(i)=$p({INDICATIONS_FOR_OPERATIONS},$c(13,10),i) } do WP^DIE(130,{RowId},55,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OPERATIVE_FINDINGS}'="" { set D0={RowId} for i=1:1:$l({OPERATIVE_FINDINGS},$c(13,10)) { set wp(i)=$p({OPERATIVE_FINDINGS},$c(13,10),i) } do WP^DIE(130,{RowId},59,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {BRIEF_CLIN_HISTORY}'="" { set D0={RowId} for i=1:1:$l({BRIEF_CLIN_HISTORY},$c(13,10)) { set wp(i)=$p({BRIEF_CLIN_HISTORY},$c(13,10),i) } do WP^DIE(130,{RowId},60,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CULTURES}'="" { set D0={RowId} for i=1:1:$l({CULTURES},$c(13,10)) { set wp(i)=$p({CULTURES},$c(13,10),i) } do WP^DIE(130,{RowId},64,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SPD_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({SPD_COMMENTS},$c(13,10)) { set wp(i)=$p({SPD_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},80,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {TIME_OUT_VERIFIED_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({TIME_OUT_VERIFIED_COMMENTS},$c(13,10)) { set wp(i)=$p({TIME_OUT_VERIFIED_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},82,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {IMAGING_CONFIRMED_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({IMAGING_CONFIRMED_COMMENTS},$c(13,10)) { set wp(i)=$p({IMAGING_CONFIRMED_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},83,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MARKED_SITE_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({MARKED_SITE_COMMENTS},$c(13,10)) { set wp(i)=$p({MARKED_SITE_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},84,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CHECKLIST_COMMENT}'="" { set D0={RowId} for i=1:1:$l({CHECKLIST_COMMENT},$c(13,10)) { set wp(i)=$p({CHECKLIST_COMMENT},$c(13,10),i) } do WP^DIE(130,{RowId},85,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {HAIR_REMOVAL_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({HAIR_REMOVAL_COMMENTS},$c(13,10)) { set wp(i)=$p({HAIR_REMOVAL_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},508,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {WOUND_SWEEP_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({WOUND_SWEEP_COMMENTS},$c(13,10)) { set wp(i)=$p({WOUND_SWEEP_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},635,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INTRAOPERATIVE_XRAY_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({INTRAOPERATIVE_XRAY_COMMENTS},$c(13,10)) { set wp(i)=$p({INTRAOPERATIVE_XRAY_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},637,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {REVIEW_OF_DEATH_COMMENTS}'="" { set D0={RowId} for i=1:1:$l({REVIEW_OF_DEATH_COMMENTS},$c(13,10)) { set wp(i)=$p({REVIEW_OF_DEATH_COMMENTS},$c(13,10),i) } do WP^DIE(130,{RowId},904,,"wp","%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{PATIENT*C} FDA(130,IENS,.01)={PATIENT} set:{HOSPITAL_ADMISSION_STATUS*C} FDA(130,IENS,.011)={HOSPITAL_ADMISSION_STATUS} set:{PLANNED_ADMISSION_STATUS*C} FDA(130,IENS,.013)={PLANNED_ADMISSION_STATUS} set:{VISIT*C} FDA(130,IENS,.015)={VISIT} set:{CLASSIFICATION_ENTERED_YN*C} FDA(130,IENS,.0155)={CLASSIFICATION_ENTERED_YN} set:{SERVICE_CONNECTED*C} FDA(130,IENS,.016)={SERVICE_CONNECTED} set:{AGENT_ORANGE_EXPOSURE*C} FDA(130,IENS,.017)={AGENT_ORANGE_EXPOSURE} set:{IONIZING_RADIATION_EXPOSURE*C} FDA(130,IENS,.018)={IONIZING_RADIATION_EXPOSURE} set:{SOUTHWEST_ASIA_CONDITIONS*C} FDA(130,IENS,.019)={SOUTHWEST_ASIA_CONDITIONS} set:{OP_ROOM_PROCEDURE_PERFORMED*C} FDA(130,IENS,.02)={OP_ROOM_PROCEDURE_PERFORMED} set:{ASSOCIATED_CLINIC*C} FDA(130,IENS,.021)={ASSOCIATED_CLINIC} set:{MILITARY_SEXUAL_TRAUMA*C} FDA(130,IENS,.022)={MILITARY_SEXUAL_TRAUMA} set:{HEAD_ANDOR_NECK_CANCER*C} FDA(130,IENS,.023)={HEAD_ANDOR_NECK_CANCER} set:{COMBAT_VET*C} FDA(130,IENS,.024)={COMBAT_VET} set:{PROJ_112SHAD*C} FDA(130,IENS,.026)={PROJ_112SHAD} set:{MAJORMINOR*C} FDA(130,IENS,.03)={MAJORMINOR} set:{CASE_SCHEDULE_TYPE*C} FDA(130,IENS,.035)={CASE_SCHEDULE_TYPE} set:{CASE_SCHEDULE_ORDER*C} FDA(130,IENS,.037)={CASE_SCHEDULE_ORDER} set:{SURGERY_SPECIALTY*C} FDA(130,IENS,.04)={SURGERY_SPECIALTY} set:{PREOPERATIVE_INFECTION*C} FDA(130,IENS,.05)={PREOPERATIVE_INFECTION} set:{PREOP_SKIN_INTEG*C} FDA(130,IENS,.07)={PREOP_SKIN_INTEG} set:{PREOP_SKIN_COLOR*C} FDA(130,IENS,.08)={PREOP_SKIN_COLOR} set:{DATE_OF_OPERATION*C} FDA(130,IENS,.09)={DATE_OF_OPERATION} set:{TRANS_TO_OR_BY*C} FDA(130,IENS,.11)={TRANS_TO_OR_BY} set:{HAIR_REMOVAL_BY*C} FDA(130,IENS,.12)={HAIR_REMOVAL_BY} set:{PRIMARY_SURGEON*C} FDA(130,IENS,.14)={PRIMARY_SURGEON} set:{FIRST_ASST*C} FDA(130,IENS,.15)={FIRST_ASST} set:{SECOND_ASST*C} FDA(130,IENS,.16)={SECOND_ASST} set:{ATTENDING_SURGEON*C} FDA(130,IENS,.164)={ATTENDING_SURGEON} set:{ATTENDING_CODE__NOT_USED*C} FDA(130,IENS,.165)={ATTENDING_CODE__NOT_USED} set:{ATTENDINGRES_SUP_CODE*C} FDA(130,IENS,.166)={ATTENDINGRES_SUP_CODE} set:{PERFUSIONIST*C} FDA(130,IENS,.167)={PERFUSIONIST} set:{ASST_PERFUSIONIST*C} FDA(130,IENS,.168)={ASST_PERFUSIONIST} set:{SKIN_PREP_AGENTS*C} FDA(130,IENS,.175)={SKIN_PREP_AGENTS} set:{SKIN_PREPPED_BY_1*C} FDA(130,IENS,.18)={SKIN_PREPPED_BY_1} set:{PREOP_MOOD*C} FDA(130,IENS,.19)={PREOP_MOOD} set:{PREOP_CONVERSE*C} FDA(130,IENS,.195)={PREOP_CONVERSE} set:{PREOP_CONSCIOUS*C} FDA(130,IENS,.196)={PREOP_CONSCIOUS} set:{NURSE_PRESENT_TIME*C} FDA(130,IENS,.202)={NURSE_PRESENT_TIME} set:{TIME_PAT_IN_HOLD_AREA*C} FDA(130,IENS,.203)={TIME_PAT_IN_HOLD_AREA} set:{ANES_AVAIL_TIME*C} FDA(130,IENS,.204)={ANES_AVAIL_TIME} set:{TIME_PAT_IN_OR*C} FDA(130,IENS,.205)={TIME_PAT_IN_OR} set:{SURG_PRESENT_TIME*C} FDA(130,IENS,.206)={SURG_PRESENT_TIME} set:{ANES_CARE_START_TIME*C} FDA(130,IENS,.21)={ANES_CARE_START_TIME} set:{ANES_CARE_BILLABLE_TIME_FLAG*C} FDA(130,IENS,.214)={ANES_CARE_BILLABLE_TIME_FLAG} set:{INDUCTION_COMPLETE*C} FDA(130,IENS,.215)={INDUCTION_COMPLETE} set:{TIME_OPERATION_BEGAN*C} FDA(130,IENS,.22)={TIME_OPERATION_BEGAN} set:{TIME_OPERATION_ENDS*C} FDA(130,IENS,.23)={TIME_OPERATION_ENDS} set:{TIME_PAT_OUT_OR*C} FDA(130,IENS,.232)={TIME_PAT_OUT_OR} set:{OR_CLEAN_START_TIME*C} FDA(130,IENS,.234)={OR_CLEAN_START_TIME} set:{OR_CLEAN_END_TIME*C} FDA(130,IENS,.236)={OR_CLEAN_END_TIME} set:{ANES_CARE_END_TIME*C} FDA(130,IENS,.24)={ANES_CARE_END_TIME} set:{BLOOD_LOSS_ML*C} FDA(130,IENS,.25)={BLOOD_LOSS_ML} set:{TOTAL_URINE_OUTPUT_ML*C} FDA(130,IENS,.255)={TOTAL_URINE_OUTPUT_ML} set:{PRINC_ANESTHETIST*C} FDA(130,IENS,.31)={PRINC_ANESTHETIST} set:{RELIEF_ANESTHETIST*C} FDA(130,IENS,.32)={RELIEF_ANESTHETIST} set:{ASST_ANESTHETIST*C} FDA(130,IENS,.33)={ASST_ANESTHETIST} set:{ANESTHESIOLOGIST_SUPVR*C} FDA(130,IENS,.34)={ANESTHESIOLOGIST_SUPVR} set:{ANES_SUPERVISE_CODE*C} FDA(130,IENS,.345)={ANES_SUPERVISE_CODE} set:{ANES_PERSONALLY_PERFORMED*C} FDA(130,IENS,.3511)={ANES_PERSONALLY_PERFORMED} set:{NUM_OF_CONCURRENT_ANES_CASES*C} FDA(130,IENS,.3512)={NUM_OF_CONCURRENT_ANES_CASES} set:{ANES_MEDICALLY_DIRECTED*C} FDA(130,IENS,.3514)={ANES_MEDICALLY_DIRECTED} set:{ANES_PHYSICIAN_AVAILABLE*C} FDA(130,IENS,.3515)={ANES_PHYSICIAN_AVAILABLE} set:{MIN_INTRAOP_TEMPERATURE_C*C} FDA(130,IENS,.36)={MIN_INTRAOP_TEMPERATURE_C} set:{PLANNED_POSTOP_CARE*C} FDA(130,IENS,.43)={PLANNED_POSTOP_CARE} set:{OR_SETUP_TIME*C} FDA(130,IENS,.44)={OR_SETUP_TIME} set:{OP_DISPOSITION*C} FDA(130,IENS,.46)={OP_DISPOSITION} set:{FINAL_COUNTS_VERIFY_CORRECT*C} FDA(130,IENS,.52)={FINAL_COUNTS_VERIFY_CORRECT} set:{VERIFIER*C} FDA(130,IENS,.522)={VERIFIER} set:{INST_CNT_CORRECT*C} FDA(130,IENS,.523)={INST_CNT_CORRECT} set:{INST_CNT_VERF_BY*C} FDA(130,IENS,.525)={INST_CNT_VERF_BY} set:{SURGERY_POSITION*C} FDA(130,IENS,.54)={SURGERY_POSITION} set:{ELECTROGROUND_POSITION*C} FDA(130,IENS,.55)={ELECTROGROUND_POSITION} set:{FOLEY_CATHETER_SIZE*C} FDA(130,IENS,.56)={FOLEY_CATHETER_SIZE} set:{FOLEY_CATHETER_INSERTED_BY*C} FDA(130,IENS,.57)={FOLEY_CATHETER_INSERTED_BY} set:{PREOP_TEMPERATURE*C} FDA(130,IENS,.61)={PREOP_TEMPERATURE} set:{PREOP_WEIGHT_KG*C} FDA(130,IENS,.615)={PREOP_WEIGHT_KG} set:{PREOPERATIVE_HEART_RATE*C} FDA(130,IENS,.62)={PREOPERATIVE_HEART_RATE} set:{PREOP_BLOOD_PRESSURE*C} FDA(130,IENS,.63)={PREOP_BLOOD_PRESSURE} set:{PREOP_RESPIRATORY_RATE*C} FDA(130,IENS,.64)={PREOP_RESPIRATORY_RATE} set:{FINAL_ANESTHESIA_TEMP_C*C} FDA(130,IENS,.65)={FINAL_ANESTHESIA_TEMP_C} set:{POSTOP_PULSE*C} FDA(130,IENS,.66)={POSTOP_PULSE} set:{POSTOP_BP*C} FDA(130,IENS,.67)={POSTOP_BP} set:{POSTOP_RESP*C} FDA(130,IENS,.68)={POSTOP_RESP} set:{TIMEOUT_DOCUMENT_COMPLETED_BY*C} FDA(130,IENS,.69)={TIMEOUT_DOCUMENT_COMPLETED_BY} set:{ELECTROCAUTERY_UNIT*C} FDA(130,IENS,.75)={ELECTROCAUTERY_UNIT} set:{POSTOP_SKIN_INTEG*C} FDA(130,IENS,.76)={POSTOP_SKIN_INTEG} set:{POSTOP_SKIN_COLOR*C} FDA(130,IENS,.77)={POSTOP_SKIN_COLOR} set:{PACU_DISPOSITION*C} FDA(130,IENS,.79)={PACU_DISPOSITION} set:{POSTOP_MOOD*C} FDA(130,IENS,.81)={POSTOP_MOOD} set:{POSTOP_CONVERS*C} FDA(130,IENS,.82)={POSTOP_CONVERS} set:{POSTOP_CONSCIOUS*C} FDA(130,IENS,.821)={POSTOP_CONSCIOUS} set:{END_PULSE*C} FDA(130,IENS,.84)={END_PULSE} set:{END_BP*C} FDA(130,IENS,.85)={END_BP} set:{END_RESP*C} FDA(130,IENS,.86)={END_RESP} set:{PACKING*C} FDA(130,IENS,.875)={PACKING} set:{PATIENT_EDUCATIONASSESSMENT*C} FDA(130,IENS,.971)={PATIENT_EDUCATIONASSESSMENT} set:{CONSENT_SIGWIT*C} FDA(130,IENS,.972)={CONSENT_SIGWIT} set:{BATH__SHAMPOO*C} FDA(130,IENS,.973)={BATH__SHAMPOO} set:{RECXRAY_READY*C} FDA(130,IENS,.974)={RECXRAY_READY} set:{ENEMAS_IF_ORD*C} FDA(130,IENS,.975)={ENEMAS_IF_ORD} set:{NPO_AS_ORDCLIN_MID*C} FDA(130,IENS,.976)={NPO_AS_ORDCLIN_MID} set:{CLERK_CHN_DAYS_BEFORE*C} FDA(130,IENS,.977)={CLERK_CHN_DAYS_BEFORE} set:{VERFIFY_ID_TAG_SSN*C} FDA(130,IENS,.981)={VERFIFY_ID_TAG_SSN} set:{CARE_PLAN_IN_CHART*C} FDA(130,IENS,.9811)={CARE_PLAN_IN_CHART} set:{ADDRESS_PLATE*C} FDA(130,IENS,.9812)={ADDRESS_PLATE} set:{PATIENT_VOIDED*C} FDA(130,IENS,.9813)={PATIENT_VOIDED} set:{PREOP_MEDRAIL_UP*C} FDA(130,IENS,.9814)={PREOP_MEDRAIL_UP} set:{CLERK_CHN_DATE_PROCEDURE*C} FDA(130,IENS,.9815)={CLERK_CHN_DATE_PROCEDURE} set:{PROSTHESIS_REM*C} FDA(130,IENS,.982)={PROSTHESIS_REM} set:{CIG_MATCH__VAL_REM*C} FDA(130,IENS,.983)={CIG_MATCH__VAL_REM} set:{VALUABLES_SECURED*C} FDA(130,IENS,.984)={VALUABLES_SECURED} set:{ORAL_HYGIENE*C} FDA(130,IENS,.985)={ORAL_HYGIENE} set:{FRESHLY_SHAVED*C} FDA(130,IENS,.986)={FRESHLY_SHAVED} set:{CLEAN_DRESSING*C} FDA(130,IENS,.987)={CLEAN_DRESSING} set:{CLEAN_HOSP_CLOTH*C} FDA(130,IENS,.988)={CLEAN_HOSP_CLOTH} set:{LEVIN_TUBECATH*C} FDA(130,IENS,.989)={LEVIN_TUBECATH} set:{UA_IN_48_HRS*C} FDA(130,IENS,.991)={UA_IN_48_HRS} set:{CLERK_CHN_REC_FOR_MAJ_SURG*C} FDA(130,IENS,.9911)={CLERK_CHN_REC_FOR_MAJ_SURG} set:{CBC_IN_48_HRS*C} FDA(130,IENS,.992)={CBC_IN_48_HRS} set:{BLOOD_TYPEXMATCH*C} FDA(130,IENS,.993)={BLOOD_TYPEXMATCH} set:{BLEEDING__PTT_TIME_IN_48_HRS*C} FDA(130,IENS,.994)={BLEEDING__PTT_TIME_IN_48_HRS} set:{BUN_IN_7_DAYS*C} FDA(130,IENS,.995)={BUN_IN_7_DAYS} set:{BLOOD_SUGAR_IN_7_DAYS*C} FDA(130,IENS,.996)={BLOOD_SUGAR_IN_7_DAYS} set:{SEROLOGY_REPORT*C} FDA(130,IENS,.997)={SEROLOGY_REPORT} set:{CHEST_XRAY_IN_7_DAYS*C} FDA(130,IENS,.998)={CHEST_XRAY_IN_7_DAYS} set:{EKG_IN_24_HRS*C} FDA(130,IENS,.999)={EKG_IN_24_HRS} set:{REQ_ANESTHESIA_TECHNIQUE*C} FDA(130,IENS,1.01)={REQ_ANESTHESIA_TECHNIQUE} set:{REQ_FROZ_SECT*C} FDA(130,IENS,1.02)={REQ_FROZ_SECT} set:{REQ_PREOP_XRAY*C} FDA(130,IENS,1.03)={REQ_PREOP_XRAY} set:{INTRAOPERATIVE_XRAYS*C} FDA(130,IENS,1.035)={INTRAOPERATIVE_XRAYS} set:{REQ_PHOTO*C} FDA(130,IENS,1.04)={REQ_PHOTO} set:{REQ_BLOOD_AVAIL*C} FDA(130,IENS,1.052)={REQ_BLOOD_AVAIL} set:{WOUND_CLASSIFICATION*C} FDA(130,IENS,1.09)={WOUND_CLASSIFICATION} set:{DATETIME_OR_REQUEST_MADE*C} FDA(130,IENS,1.098)={DATETIME_OR_REQUEST_MADE} set:{SURG_SCHED_PERSON*C} FDA(130,IENS,1.099)={SURG_SCHED_PERSON} set:{PACU_ADMIT_SCORE*C} FDA(130,IENS,1.11)={PACU_ADMIT_SCORE} set:{PACU_DISCH_SCORE*C} FDA(130,IENS,1.12)={PACU_DISCH_SCORE} set:{ASA_CLASS*C} FDA(130,IENS,1.13)={ASA_CLASS} set:{ADMIT_PACU_TIME*C} FDA(130,IENS,1.17)={ADMIT_PACU_TIME} set:{PACU_DISCH_TIME*C} FDA(130,IENS,1.18)={PACU_DISCH_TIME} set:{POSTOP_ANES_NOTE_DATE*C} FDA(130,IENS,1.19)={POSTOP_ANES_NOTE_DATE} set:{SKIN_PREPPED_BY_2*C} FDA(130,IENS,4)={SKIN_PREPPED_BY_2} set:{SKIN_PREPPED_BY_3*C} FDA(130,IENS,5)={SKIN_PREPPED_BY_3} set:{ELECTROGROUND_POSITION_2*C} FDA(130,IENS,6)={ELECTROGROUND_POSITION_2} set:{DRESSING_CONDITION*C} FDA(130,IENS,7)={DRESSING_CONDITION} set:{SECOND_SKIN_PREP_AGENT*C} FDA(130,IENS,8)={SECOND_SKIN_PREP_AGENT} set:{TIME_NURSE_OUT_OF_OR*C} FDA(130,IENS,9)={TIME_NURSE_OUT_OF_OR} set:{SCHEDULED_START_TIME*C} FDA(130,IENS,10)={SCHEDULED_START_TIME} set:{SCHEDULED_END_TIME*C} FDA(130,IENS,11)={SCHEDULED_END_TIME} set:{DATETIME_OF_DICTATION*C} FDA(130,IENS,15)={DATETIME_OF_DICTATION} set:{CANCEL_DATE*C} FDA(130,IENS,17)={CANCEL_DATE} set:{CANCELLATION_TIMEFRAME*C} FDA(130,IENS,17.5)={CANCELLATION_TIMEFRAME} set:{PRIMARY_CANCEL_REASON*C} FDA(130,IENS,18)={PRIMARY_CANCEL_REASON} set:{CASE_ABORTED*C} FDA(130,IENS,18.5)={CASE_ABORTED} set:{CANCELLATION_COMMENTS*C} FDA(130,IENS,19)={CANCELLATION_COMMENTS} set:{DIAGNOSTICTHERAPEUTIC_YN*C} FDA(130,IENS,20)={DIAGNOSTICTHERAPEUTIC_YN} set:{WAIT_TIME_START*C} FDA(130,IENS,21)={WAIT_TIME_START} set:{TUBES_AND_DRAINS*C} FDA(130,IENS,22)={TUBES_AND_DRAINS} set:{LOCK_CASE*C} FDA(130,IENS,24)={LOCK_CASE} set:{DISCHARGED_VIA*C} FDA(130,IENS,25)={DISCHARGED_VIA} set:{PRINCIPAL_PROCEDURE*C} FDA(130,IENS,26)={PRINCIPAL_PROCEDURE} set:{PLANNED_PRIN_PROCEDURE_CODE_*C} FDA(130,IENS,27)={PLANNED_PRIN_PROCEDURE_CODE_} set:{PROCEDURE_COMPLETED*C} FDA(130,IENS,29)={PROCEDURE_COMPLETED} set:{PRINCIPAL_PREOP_DIAGNOSIS*C} FDA(130,IENS,32)={PRINCIPAL_PREOP_DIAGNOSIS} set:{PRIN_PREOP_ICD_DIAGNOSIS_CODE*C} FDA(130,IENS,32.5)={PRIN_PREOP_ICD_DIAGNOSIS_CODE} set:{PRINCIPAL_DIAGNOSIS*C} FDA(130,IENS,33)={PRINCIPAL_DIAGNOSIS} set:{PRINCIPAL_POSTOP_DIAG*C} FDA(130,IENS,34)={PRINCIPAL_POSTOP_DIAG} set:{CONCURRENT_CASE*C} FDA(130,IENS,35)={CONCURRENT_CASE} set:{REQUESTED*C} FDA(130,IENS,36)={REQUESTED} set:{ESTIMATED_CASE_LENGTH*C} FDA(130,IENS,37)={ESTIMATED_CASE_LENGTH} set:{REQUEST_BLOOD_AVAILABILITY*C} FDA(130,IENS,38)={REQUEST_BLOOD_AVAILABILITY} set:{DATE_OF_TRANSCRIPTION*C} FDA(130,IENS,39)={DATE_OF_TRANSCRIPTION} set:{CROSSMATCH_SCREEN_AUTOLOGOUS*C} FDA(130,IENS,40)={CROSSMATCH_SCREEN_AUTOLOGOUS} set:{DRESSING*C} FDA(130,IENS,41)={DRESSING} set:{CASE_VERIFICATION*C} FDA(130,IENS,43)={CASE_VERIFICATION} set:{SPONGE_FINAL_COUNT_CORRECT*C} FDA(130,IENS,44)={SPONGE_FINAL_COUNT_CORRECT} set:{SHARPS_FINAL_COUNT_CORRECT*C} FDA(130,IENS,45)={SHARPS_FINAL_COUNT_CORRECT} set:{INSTRUMENT_FINAL_COUNT_CORRECT*C} FDA(130,IENS,46)={INSTRUMENT_FINAL_COUNT_CORRECT} set:{SPONGE_SHARPS__INST_COUNTER*C} FDA(130,IENS,47)={SPONGE_SHARPS__INST_COUNTER} set:{COUNT_VERIFIER*C} FDA(130,IENS,48)={COUNT_VERIFIER} set:{DIVISION*C} FDA(130,IENS,50)={DIVISION} set:{PREOP_ATTENDING_CONCURRENCE*C} FDA(130,IENS,51)={PREOP_ATTENDING_CONCURRENCE} set:{POSTOP_ATTENDING_CONCURRENCE*C} FDA(130,IENS,52)={POSTOP_ATTENDING_CONCURRENCE} set:{OCCURRENCENO_PROCEDURE*C} FDA(130,IENS,54)={OCCURRENCENO_PROCEDURE} set:{PREADMISSION_TESTING*C} FDA(130,IENS,56)={PREADMISSION_TESTING} set:{ESU_COAG_RANGE*C} FDA(130,IENS,57)={ESU_COAG_RANGE} set:{ESU_CUTTING_RANGE*C} FDA(130,IENS,58)={ESU_CUTTING_RANGE} set:{DIAGNOSTIC_RESULTS_CONFIRM_BY*C} FDA(130,IENS,61)={DIAGNOSTIC_RESULTS_CONFIRM_BY} set:{GASTRIC_OUTPUT*C} FDA(130,IENS,62)={GASTRIC_OUTPUT} set:{IV_STARTED_BY*C} FDA(130,IENS,63)={IV_STARTED_BY} set:{PLANNED_PRIN_DIAGNOSIS_CODE*C} FDA(130,IENS,66)={PLANNED_PRIN_DIAGNOSIS_CODE} set:{CANCELLATION_AVOIDABLE*C} FDA(130,IENS,67)={CANCELLATION_AVOIDABLE} set:{SCHEDULED_PROCEDURE*C} FDA(130,IENS,68)={SCHEDULED_PROCEDURE} set:{CODING_VERIFIER*C} FDA(130,IENS,69)={CODING_VERIFIER} set:{CANCELLED_BY*C} FDA(130,IENS,70)={CANCELLED_BY} set:{TIME_OUT_VERIFIED*C} FDA(130,IENS,71)={TIME_OUT_VERIFIED} set:{PREOPERATIVE_IMAGING_CONFIRMED*C} FDA(130,IENS,72)={PREOPERATIVE_IMAGING_CONFIRMED} set:{MARKED_SITE_CONFIRMED*C} FDA(130,IENS,73)={MARKED_SITE_CONFIRMED} set:{TIMEOUT_COMPLETED*C} FDA(130,IENS,74)={TIMEOUT_COMPLETED} set:{TOV_TIMESTAMP*C} FDA(130,IENS,75)={TOV_TIMESTAMP} set:{IMAG_TIMESTAMP*C} FDA(130,IENS,76)={IMAG_TIMESTAMP} set:{SITE_MARK_TIMESTAMP*C} FDA(130,IENS,77)={SITE_MARK_TIMESTAMP} set:{PREVIOUSLY_SCHEDULED_CASE*C} FDA(130,IENS,78)={PREVIOUSLY_SCHEDULED_CASE} set:{RESCHEDULED_CASE*C} FDA(130,IENS,79)={RESCHEDULED_CASE} set:{DYNAMED_NOTIFIED*C} FDA(130,IENS,81)={DYNAMED_NOTIFIED} set:{ORDER_NUMBER*C} FDA(130,IENS,100)={ORDER_NUMBER} set:{STAFFRESIDENT*C} FDA(130,IENS,101)={STAFFRESIDENT} set:{REASON_FOR_NO_ASSESSMENT*C} FDA(130,IENS,102)={REASON_FOR_NO_ASSESSMENT} set:{ANESTHETIST_CATEGORY*C} FDA(130,IENS,103)={ANESTHETIST_CATEGORY} set:{NONOR_PROCEDURE*C} FDA(130,IENS,118)={NONOR_PROCEDURE} set:{NONOR_LOCATION*C} FDA(130,IENS,119)={NONOR_LOCATION} set:{DATE_OF_PROCEDURE*C} FDA(130,IENS,120)={DATE_OF_PROCEDURE} set:{TIME_PROCEDURE_BEGAN*C} FDA(130,IENS,121)={TIME_PROCEDURE_BEGAN} set:{TIME_PROCEDURE_ENDED*C} FDA(130,IENS,122)={TIME_PROCEDURE_ENDED} set:{PROVIDER*C} FDA(130,IENS,123)={PROVIDER} set:{ATTEND_PROVIDER*C} FDA(130,IENS,124)={ATTEND_PROVIDER} set:{MEDICAL_SPECIALTY*C} FDA(130,IENS,125)={MEDICAL_SPECIALTY} set:{SEQUENTIAL_COMPRESSION_DEVICE*C} FDA(130,IENS,127)={SEQUENTIAL_COMPRESSION_DEVICE} set:{LASER_TYPE*C} FDA(130,IENS,128)={LASER_TYPE} set:{DEVICES*C} FDA(130,IENS,131)={DEVICES} set:{SPINAL_LEVEL*C} FDA(130,IENS,136)={SPINAL_LEVEL} set:{OPERATIONS_THIS_ADMISSION*C} FDA(130,IENS,200)={OPERATIONS_THIS_ADMISSION} set:{REDO_PROCEDURE*C} FDA(130,IENS,201)={REDO_PROCEDURE} set:{CURRENT_SMOKER*C} FDA(130,IENS,202)={CURRENT_SMOKER} set:{PACKYEARS*C} FDA(130,IENS,202.1)={PACKYEARS} set:{HISTORY_OF_COPD*C} FDA(130,IENS,203)={HISTORY_OF_COPD} set:{VENTILATOR_DEPENDENT*C} FDA(130,IENS,204)={VENTILATOR_DEPENDENT} set:{PRIOR_MI*C} FDA(130,IENS,205)={PRIOR_MI} set:{VASCULAR_YN*C} FDA(130,IENS,206)={VASCULAR_YN} set:{CONGESTIVE_HEART_FAILURE*C} FDA(130,IENS,207)={CONGESTIVE_HEART_FAILURE} set:{HYPERTENSION_REQUIRING_MEDS*C} FDA(130,IENS,208)={HYPERTENSION_REQUIRING_MEDS} set:{CARDIOMEGALY*C} FDA(130,IENS,209)={CARDIOMEGALY} set:{CENTRAL_NERVOUS_SYSTEM_YN*C} FDA(130,IENS,210)={CENTRAL_NERVOUS_SYSTEM_YN} set:{CURRENTLY_ON_DIALYSIS*C} FDA(130,IENS,211)={CURRENTLY_ON_DIALYSIS} set:{ASCITES*C} FDA(130,IENS,212)={ASCITES} set:{ESOPHAGEAL_VARICES*C} FDA(130,IENS,213)={ESOPHAGEAL_VARICES} set:{PGY_OF_PRIMARY_SURGEON*C} FDA(130,IENS,214)={PGY_OF_PRIMARY_SURGEON} set:{WEIGHT_LOSS__10*C} FDA(130,IENS,215)={WEIGHT_LOSS__10} set:{BLEEDING_DISORDERS*C} FDA(130,IENS,216)={BLEEDING_DISORDERS} set:{TRANSFUSION__4_RBC_UNITS*C} FDA(130,IENS,217)={TRANSFUSION__4_RBC_UNITS} set:{OPEN_WOUND*C} FDA(130,IENS,218)={OPEN_WOUND} set:{PREOPERATIVE_SEPSIS*C} FDA(130,IENS,218.1)={PREOPERATIVE_SEPSIS} set:{PREOPERATIVE_HEMOGLOBIN*C} FDA(130,IENS,219)={PREOPERATIVE_HEMOGLOBIN} set:{PREVIOUS_PCI*C} FDA(130,IENS,220)={PREVIOUS_PCI} set:{PREOPERATIVE_CPK*C} FDA(130,IENS,221)={PREOPERATIVE_CPK} set:{PREOPERATIVE_MB_BAND*C} FDA(130,IENS,222)={PREOPERATIVE_MB_BAND} set:{PREOPERATIVE_SERUM_CREATININE*C} FDA(130,IENS,223)={PREOPERATIVE_SERUM_CREATININE} set:{PREOPERATIVE_BUN*C} FDA(130,IENS,224)={PREOPERATIVE_BUN} set:{PREOPERATIVE_SERUM_ALBUMIN*C} FDA(130,IENS,225)={PREOPERATIVE_SERUM_ALBUMIN} set:{PREOPERATIVE_SGPT*C} FDA(130,IENS,226)={PREOPERATIVE_SGPT} set:{PREOPERATIVE_SGOT*C} FDA(130,IENS,227)={PREOPERATIVE_SGOT} set:{PREOPERATIVE_TOTAL_BILIRUBIN*C} FDA(130,IENS,228)={PREOPERATIVE_TOTAL_BILIRUBIN} set:{PREOPERATIVE_ALK_PHOSPHATASE*C} FDA(130,IENS,229)={PREOPERATIVE_ALK_PHOSPHATASE} set:{PREOPERATIVE_WBC*C} FDA(130,IENS,230)={PREOPERATIVE_WBC} set:{PREOPERATIVE_PLATELET_COUNT*C} FDA(130,IENS,231)={PREOPERATIVE_PLATELET_COUNT} set:{PREOPERATIVE_PT*C} FDA(130,IENS,232)={PREOPERATIVE_PT} set:{PREOPERATIVE_PTT*C} FDA(130,IENS,233)={PREOPERATIVE_PTT} set:{PREOPERATIVE_HEMATOCRIT*C} FDA(130,IENS,234)={PREOPERATIVE_HEMATOCRIT} set:{ASSESSMENT_STATUS*C} FDA(130,IENS,235)={ASSESSMENT_STATUS} set:{HEIGHT*C} FDA(130,IENS,236)={HEIGHT} set:{HEIGHT_MEASUREMENT_DATE*C} FDA(130,IENS,236.1)={HEIGHT_MEASUREMENT_DATE} set:{WEIGHT*C} FDA(130,IENS,237)={WEIGHT} set:{PREOPERATIVE_SLEEP_APNEA*C} FDA(130,IENS,237.1)={PREOPERATIVE_SLEEP_APNEA} set:{DNR_STATUS*C} FDA(130,IENS,238)={DNR_STATUS} set:{PREOPERATIVE_HEMOGLOBIN_DATE*C} FDA(130,IENS,239)={PREOPERATIVE_HEMOGLOBIN_DATE} set:{FUNCTIONAL_HEALTH_STATUS*C} FDA(130,IENS,240)={FUNCTIONAL_HEALTH_STATUS} set:{PULMONARY_YN*C} FDA(130,IENS,241)={PULMONARY_YN} set:{CARDIAC_YN*C} FDA(130,IENS,242)={CARDIAC_YN} set:{RENAL_YN*C} FDA(130,IENS,243)={RENAL_YN} set:{HEPATOBILIARY_YN*C} FDA(130,IENS,244)={HEPATOBILIARY_YN} set:{NUTRITIONALIMMUNEOTHER*C} FDA(130,IENS,245)={NUTRITIONALIMMUNEOTHER} set:{ETOH__2_DRINKSDAY*C} FDA(130,IENS,246)={ETOH__2_DRINKSDAY} set:{LENGTH_OF_POSTOP_STAY*C} FDA(130,IENS,247)={LENGTH_OF_POSTOP_STAY} set:{SUPERFICIAL_INCISIONAL_SSI*C} FDA(130,IENS,248)={SUPERFICIAL_INCISIONAL_SSI} set:{DEEP_INCISIONAL_SSI*C} FDA(130,IENS,249)={DEEP_INCISIONAL_SSI} set:{SYSTEMIC_SEPSIS*C} FDA(130,IENS,250)={SYSTEMIC_SEPSIS} set:{PNEUMONIA*C} FDA(130,IENS,251)={PNEUMONIA} set:{PULMONARY_EMBOLISM*C} FDA(130,IENS,252)={PULMONARY_EMBOLISM} set:{OTHER_RESPIRATORY_OCCURRENCE*C} FDA(130,IENS,253)={OTHER_RESPIRATORY_OCCURRENCE} set:{ACUTE_RENAL_FAILURE*C} FDA(130,IENS,254)={ACUTE_RENAL_FAILURE} set:{URINARY_TRACT_INFECTION*C} FDA(130,IENS,255)={URINARY_TRACT_INFECTION} set:{STROKECVA*C} FDA(130,IENS,256)={STROKECVA} set:{POSTOP_BLEEDINGTRANSFUSIONS*C} FDA(130,IENS,257)={POSTOP_BLEEDINGTRANSFUSIONS} set:{MYOCARDIAL_INFARCTION*C} FDA(130,IENS,258)={MYOCARDIAL_INFARCTION} set:{PULMONARY_EDEMA*C} FDA(130,IENS,259)={PULMONARY_EDEMA} set:{DATE_TRANSMITTED*C} FDA(130,IENS,260)={DATE_TRANSMITTED} set:{DATE_OF_LAST_TRANSMISSION*C} FDA(130,IENS,260.1)={DATE_OF_LAST_TRANSMISSION} set:{GRAFTPROSTHESISFLAP_FAILURE*C} FDA(130,IENS,261)={GRAFTPROSTHESISFLAP_FAILURE} set:{RETURN_TO_OR_WITHIN_30_DAYS*C} FDA(130,IENS,262)={RETURN_TO_OR_WITHIN_30_DAYS} set:{DVTTHROMBOPHLEBITIS*C} FDA(130,IENS,263)={DVTTHROMBOPHLEBITIS} set:{CEREBRAL_VASCULAR_DISEASE*C} FDA(130,IENS,264)={CEREBRAL_VASCULAR_DISEASE} set:{PERIPHERAL_ARTERIAL_DISEASE*C} FDA(130,IENS,265)={PERIPHERAL_ARTERIAL_DISEASE} set:{PREVIOUS_CARDIAC_SURGERY*C} FDA(130,IENS,266)={PREVIOUS_CARDIAC_SURGERY} set:{ANGINA_SEVERITY*C} FDA(130,IENS,267)={ANGINA_SEVERITY} set:{HEPATOMEGALY*C} FDA(130,IENS,268)={HEPATOMEGALY} set:{PREGNANCY*C} FDA(130,IENS,269)={PREGNANCY} set:{PREOPERATIVE_SERUM_SODIUM*C} FDA(130,IENS,270)={PREOPERATIVE_SERUM_SODIUM} set:{PREOPERATIVE_POTASSIUM*C} FDA(130,IENS,271)={PREOPERATIVE_POTASSIUM} set:{DATE_ASSESSMENT_COMPLETED*C} FDA(130,IENS,272)={DATE_ASSESSMENT_COMPLETED} set:{ASSESSMENT_COMPLETED_BY*C} FDA(130,IENS,272.1)={ASSESSMENT_COMPLETED_BY} set:{PREOPERATIVE_GLUCOSE*C} FDA(130,IENS,273)={PREOPERATIVE_GLUCOSE} set:{HIGHEST_SERUM_SODIUM*C} FDA(130,IENS,274)={HIGHEST_SERUM_SODIUM} set:{HIGHEST_POTASSIUM*C} FDA(130,IENS,275)={HIGHEST_POTASSIUM} set:{HIGHEST_GLUCOSE*C} FDA(130,IENS,276)={HIGHEST_GLUCOSE} set:{HIGHEST_SERUM_CREATININE*C} FDA(130,IENS,277)={HIGHEST_SERUM_CREATININE} set:{HIGHEST_CPK*C} FDA(130,IENS,278)={HIGHEST_CPK} set:{HIGHEST_CPKMB*C} FDA(130,IENS,279)={HIGHEST_CPKMB} set:{HIGHEST_TOTAL_BILIRUBIN*C} FDA(130,IENS,280)={HIGHEST_TOTAL_BILIRUBIN} set:{HIGHEST_WBC*C} FDA(130,IENS,281)={HIGHEST_WBC} set:{LOWEST_SERUM_ALBUMIN*C} FDA(130,IENS,282)={LOWEST_SERUM_ALBUMIN} set:{LOWEST_HEMATOCRIT*C} FDA(130,IENS,283)={LOWEST_HEMATOCRIT} set:{ASSESSMENT_TYPE*C} FDA(130,IENS,284)={ASSESSMENT_TYPE} set:{ON_VENTILATOR_48_HOURS*C} FDA(130,IENS,285)={ON_VENTILATOR_48_HOURS} set:{OTHER_URINARY_TRACT_OCCURRENCE*C} FDA(130,IENS,286)={OTHER_URINARY_TRACT_OCCURRENCE} set:{PERIPHERAL_NERVE_INJURY*C} FDA(130,IENS,287)={PERIPHERAL_NERVE_INJURY} set:{PREOPERATIVE_CPK_DATE*C} FDA(130,IENS,288)={PREOPERATIVE_CPK_DATE} set:{PREOPERATIVE_MB_BAND_DATE*C} FDA(130,IENS,289)={PREOPERATIVE_MB_BAND_DATE} set:{PREOP_SERUM_CREATININE_DATE*C} FDA(130,IENS,290)={PREOP_SERUM_CREATININE_DATE} set:{PREOPERATIVE_BUN_DATE*C} FDA(130,IENS,291)={PREOPERATIVE_BUN_DATE} set:{PREOP_SERUM_ALBUMIN_DATE*C} FDA(130,IENS,292)={PREOP_SERUM_ALBUMIN_DATE} set:{SGPT_DATE_PERFORMED*C} FDA(130,IENS,293)={SGPT_DATE_PERFORMED} set:{SGOT_DATE_PERFORMED*C} FDA(130,IENS,294)={SGOT_DATE_PERFORMED} set:{PREOP_TOTAL_BILIRUBIN_DATE*C} FDA(130,IENS,295)={PREOP_TOTAL_BILIRUBIN_DATE} set:{PREOP_ALK_PHOSPHATASE_DATE*C} FDA(130,IENS,296)={PREOP_ALK_PHOSPHATASE_DATE} set:{PREOPERATIVE_WBC_DATE*C} FDA(130,IENS,297)={PREOPERATIVE_WBC_DATE} set:{PREOP_PLATELET_COUNT_DATE*C} FDA(130,IENS,298)={PREOP_PLATELET_COUNT_DATE} set:{PREOPERATIVE_PT_DATE*C} FDA(130,IENS,299)={PREOPERATIVE_PT_DATE} set:{PREOPERATIVE_PTT_DATE*C} FDA(130,IENS,300)={PREOPERATIVE_PTT_DATE} set:{PREOP_HEMATOCRIT_DATE*C} FDA(130,IENS,301)={PREOP_HEMATOCRIT_DATE} set:{PREOPERATIVE_GLUCOSE_DATE*C} FDA(130,IENS,302)={PREOPERATIVE_GLUCOSE_DATE} set:{PREOP_POTASSIUM_DATE*C} FDA(130,IENS,303)={PREOP_POTASSIUM_DATE} set:{PREOP_SERUM_SODIUM_DATE*C} FDA(130,IENS,304)={PREOP_SERUM_SODIUM_DATE} set:{HIGH_SERUM_SODIUM_DATE*C} FDA(130,IENS,305)={HIGH_SERUM_SODIUM_DATE} set:{HIGH_POTASSIUM_DATE*C} FDA(130,IENS,306)={HIGH_POTASSIUM_DATE} set:{HIGH_GLUCOSE_DATE*C} FDA(130,IENS,307)={HIGH_GLUCOSE_DATE} set:{HIGH_SERUM_CREATININE_DATE*C} FDA(130,IENS,308)={HIGH_SERUM_CREATININE_DATE} set:{HIGH_CPK_DATE*C} FDA(130,IENS,309)={HIGH_CPK_DATE} set:{HIGH_CPKMB_DATE*C} FDA(130,IENS,310)={HIGH_CPKMB_DATE} set:{HIGH_TOTAL_BILIRUBIN_DATE*C} FDA(130,IENS,311)={HIGH_TOTAL_BILIRUBIN_DATE} set:{HIGHEST_WBC_DATE*C} FDA(130,IENS,312)={HIGHEST_WBC_DATE} set:{LOW_SERUM_ALBUMIN_DATE*C} FDA(130,IENS,313)={LOW_SERUM_ALBUMIN_DATE} set:{LOW_HEMATOCRIT_DATE*C} FDA(130,IENS,314)={LOW_HEMATOCRIT_DATE} set:{PREOPERATIVE_PT_CONTROL*C} FDA(130,IENS,315)={PREOPERATIVE_PT_CONTROL} set:{PREOPERATIVE_PTT_CONTROL*C} FDA(130,IENS,316)={PREOPERATIVE_PTT_CONTROL} set:{RESPIRATORY_OCCURRENCES*C} FDA(130,IENS,318)={RESPIRATORY_OCCURRENCES} set:{URINARY_TRACT_OCCURRENCES*C} FDA(130,IENS,319)={URINARY_TRACT_OCCURRENCES} set:{CNS_OCCURRENCES*C} FDA(130,IENS,320)={CNS_OCCURRENCES} set:{CARDIAC_OCCURRENCES*C} FDA(130,IENS,321)={CARDIAC_OCCURRENCES} set:{OTHER_OCCURRENCES*C} FDA(130,IENS,322)={OTHER_OCCURRENCES} set:{CREATE_RISK_ASSESSMENT*C} FDA(130,IENS,323)={CREATE_RISK_ASSESSMENT} set:{DRUG_ADDICTION*C} FDA(130,IENS,324)={DRUG_ADDICTION} set:{DYSPNEA*C} FDA(130,IENS,325)={DYSPNEA} set:{CURRENT_PNEUMONIA*C} FDA(130,IENS,326)={CURRENT_PNEUMONIA} set:{ACTIVE_HEPATITIS*C} FDA(130,IENS,327)={ACTIVE_HEPATITIS} set:{RENAL_FAILURE*C} FDA(130,IENS,328)={RENAL_FAILURE} set:{REVASCULARIZATIONAMPUTATION*C} FDA(130,IENS,329)={REVASCULARIZATIONAMPUTATION} set:{REST_PAINGANGRENE_YN*C} FDA(130,IENS,330)={REST_PAINGANGRENE_YN} set:{ABSENT_PERIPHERAL_PULSES*C} FDA(130,IENS,331)={ABSENT_PERIPHERAL_PULSES} set:{IMPAIRED_SENSORIUM*C} FDA(130,IENS,332)={IMPAIRED_SENSORIUM} set:{COMA*C} FDA(130,IENS,333)={COMA} set:{HISTORY_OF_TIAS*C} FDA(130,IENS,334)={HISTORY_OF_TIAS} set:{CVASTROKE_WITH_NEURO_DEFICIT*C} FDA(130,IENS,335)={CVASTROKE_WITH_NEURO_DEFICIT} set:{CVASTROKE__NO_NEURO_DEFICIT*C} FDA(130,IENS,336)={CVASTROKE__NO_NEURO_DEFICIT} set:{NEURO_DEGENERATIVE_DISEASE*C} FDA(130,IENS,337)={NEURO_DEGENERATIVE_DISEASE} set:{DISSEMINATED_CANCER_YN*C} FDA(130,IENS,338)={DISSEMINATED_CANCER_YN} set:{CHEMOTHERAPY_IN_LAST_30_DAYS*C} FDA(130,IENS,338.1)={CHEMOTHERAPY_IN_LAST_30_DAYS} set:{RADIOTHERAPY_IN_LAST_90_DAYS*C} FDA(130,IENS,338.2)={RADIOTHERAPY_IN_LAST_90_DAYS} set:{CHEMO_FOR_MALIG_LAST_90_DAYS*C} FDA(130,IENS,338.3)={CHEMO_FOR_MALIG_LAST_90_DAYS} set:{STEROID_USE_FOR_CHRONIC_COND_*C} FDA(130,IENS,339)={STEROID_USE_FOR_CHRONIC_COND_} set:{INTRAOP_RBC_UNITS_TRANSFUSED*C} FDA(130,IENS,340)={INTRAOP_RBC_UNITS_TRANSFUSED} set:{f30_DAY_POSTOP_STATUS*C} FDA(130,IENS,341)={f30_DAY_POSTOP_STATUS} set:{DATE_OF_DEATH*C} FDA(130,IENS,342)={DATE_OF_DEATH} set:{f30_DAY_DEATH*C} FDA(130,IENS,342.1)={f30_DAY_DEATH} set:{OTHER_CNS_OCCURRENCE*C} FDA(130,IENS,343)={OTHER_CNS_OCCURRENCE} set:{OTHER_CARDIAC_OCCURRENCE*C} FDA(130,IENS,344)={OTHER_CARDIAC_OCCURRENCE} set:{ILEUSBOWEL_OBSTRUCTION*C} FDA(130,IENS,345)={ILEUSBOWEL_OBSTRUCTION} set:{DIABETES*C} FDA(130,IENS,346)={DIABETES} set:{FEV1*C} FDA(130,IENS,347)={FEV1} set:{PULMONARY_RALES*C} FDA(130,IENS,348)={PULMONARY_RALES} set:{ACTIVE_ENDOCARDITIS*C} FDA(130,IENS,349)={ACTIVE_ENDOCARDITIS} set:{RESTING_ST_DEPRESSION*C} FDA(130,IENS,350)={RESTING_ST_DEPRESSION} set:{PCI*C} FDA(130,IENS,351)={PCI} set:{NUM_OF_PRIOR_HEART_SURGERIES*C} FDA(130,IENS,352)={NUM_OF_PRIOR_HEART_SURGERIES} set:{CURRENT_DIURETIC_USE*C} FDA(130,IENS,353)={CURRENT_DIURETIC_USE} set:{CURRENT_DIGOXIN_USE*C} FDA(130,IENS,354)={CURRENT_DIGOXIN_USE} set:{IV_NTG_WITHIN_48_HOURS*C} FDA(130,IENS,355)={IV_NTG_WITHIN_48_HOURS} set:{PREOPERATIVE_USE_OF_IABP*C} FDA(130,IENS,356)={PREOPERATIVE_USE_OF_IABP} set:{LVEDP*C} FDA(130,IENS,357)={LVEDP} set:{AORTIC_SYSTOLIC_PRESSURE*C} FDA(130,IENS,358)={AORTIC_SYSTOLIC_PRESSURE} set:{PA_SYSTOLIC_PRESSURE*C} FDA(130,IENS,359)={PA_SYSTOLIC_PRESSURE} set:{PAW_MEAN_PRESSURE*C} FDA(130,IENS,360)={PAW_MEAN_PRESSURE} set:{LEFT_MAIN_STENOSIS*C} FDA(130,IENS,361)={LEFT_MAIN_STENOSIS} set:{CORONARIES_WITH_STENOSIS*C} FDA(130,IENS,362)={CORONARIES_WITH_STENOSIS} set:{LAD_STENOSIS*C} FDA(130,IENS,362.1)={LAD_STENOSIS} set:{RIGHT_CORONARY_STENOSIS*C} FDA(130,IENS,362.2)={RIGHT_CORONARY_STENOSIS} set:{CIRCUMFLEX_STENOSIS*C} FDA(130,IENS,362.3)={CIRCUMFLEX_STENOSIS} set:{LV_CONTRACTION_SCORE*C} FDA(130,IENS,363)={LV_CONTRACTION_SCORE} set:{ESTIMATE_OF_MORTALITY*C} FDA(130,IENS,364)={ESTIMATE_OF_MORTALITY} set:{ESTIMATE_OF_MORTALITY_DATE*C} FDA(130,IENS,364.1)={ESTIMATE_OF_MORTALITY_DATE} set:{NUMBER_WITH_VEIN*C} FDA(130,IENS,365)={NUMBER_WITH_VEIN} set:{NUMBER_WITH_IMA*C} FDA(130,IENS,366)={NUMBER_WITH_IMA} set:{AORTIC_VALVE_PROCEDURE*C} FDA(130,IENS,367)={AORTIC_VALVE_PROCEDURE} set:{MITRAL_VALVE_PROCEDURE*C} FDA(130,IENS,368)={MITRAL_VALVE_PROCEDURE} set:{TRICUSPID_VALVE_PROCEDURE*C} FDA(130,IENS,369)={TRICUSPID_VALVE_PROCEDURE} set:{VALVE_REPAIR*C} FDA(130,IENS,370)={VALVE_REPAIR} set:{LV_ANEURYSMECTOMY*C} FDA(130,IENS,371)={LV_ANEURYSMECTOMY} set:{GREAT_VESSEL_REPAIR_YN*C} FDA(130,IENS,372)={GREAT_VESSEL_REPAIR_YN} set:{CARDIAC_TRANSPLANT*C} FDA(130,IENS,373)={CARDIAC_TRANSPLANT} set:{ELECTROPHYSIOLOGIC_PROCEDURE*C} FDA(130,IENS,374)={ELECTROPHYSIOLOGIC_PROCEDURE} set:{MISC__CARDIAC_PROCEDURES*C} FDA(130,IENS,375)={MISC__CARDIAC_PROCEDURES} set:{ASD_REPAIR*C} FDA(130,IENS,376)={ASD_REPAIR} set:{MYXOMA_RESECTION*C} FDA(130,IENS,377)={MYXOMA_RESECTION} set:{MYECTOMY*C} FDA(130,IENS,378)={MYECTOMY} set:{OTHER_TUMOR_RESECTION*C} FDA(130,IENS,379)={OTHER_TUMOR_RESECTION} set:{VSD_REPAIR*C} FDA(130,IENS,380)={VSD_REPAIR} set:{FOREIGN_BODY_REMOVAL*C} FDA(130,IENS,381)={FOREIGN_BODY_REMOVAL} set:{PERICARDIECTOMY*C} FDA(130,IENS,382)={PERICARDIECTOMY} set:{OTHER_PROCEDURES_YN*C} FDA(130,IENS,383)={OTHER_PROCEDURES_YN} set:{OTHER_CARDIAC_PROCEDURES*C} FDA(130,IENS,383.1)={OTHER_CARDIAC_PROCEDURES} set:{OPERATIVE_DEATH*C} FDA(130,IENS,384)={OPERATIVE_DEATH} set:{PERIOPERATIVE_MI*C} FDA(130,IENS,385)={PERIOPERATIVE_MI} set:{ENDOCARDITIS*C} FDA(130,IENS,386)={ENDOCARDITIS} set:{LOW_CARDIAC_OUTPUT__6_HOURS*C} FDA(130,IENS,387)={LOW_CARDIAC_OUTPUT__6_HOURS} set:{MEDIASTINITIS*C} FDA(130,IENS,388)={MEDIASTINITIS} set:{REOPERATION_FOR_BLEEDING*C} FDA(130,IENS,389)={REOPERATION_FOR_BLEEDING} set:{STROKE*C} FDA(130,IENS,390)={STROKE} set:{REPEAT_CARDIAC_SURG_PROCEDURE*C} FDA(130,IENS,391)={REPEAT_CARDIAC_SURG_PROCEDURE} set:{OTHER_OCCURRENCES_ICD*C} FDA(130,IENS,392)={OTHER_OCCURRENCES_ICD} set:{RETRANSMISSION*C} FDA(130,IENS,393)={RETRANSMISSION} set:{HISTORY_OF_MI*C} FDA(130,IENS,394)={HISTORY_OF_MI} set:{ANGINA_ONE_MONTH_PRIOR*C} FDA(130,IENS,395)={ANGINA_ONE_MONTH_PRIOR} set:{CHF_WITHIN_ONE_MONTH*C} FDA(130,IENS,396)={CHF_WITHIN_ONE_MONTH} set:{SEVERE_HEAD_TRAUMA_YN*C} FDA(130,IENS,397)={SEVERE_HEAD_TRAUMA_YN} set:{QUADRIPLEGIA_YN*C} FDA(130,IENS,398)={QUADRIPLEGIA_YN} set:{PARAPLEGIA_YN*C} FDA(130,IENS,399)={PARAPLEGIA_YN} set:{HEMIPLEGIAHEMIPARESIS_YN*C} FDA(130,IENS,400)={HEMIPLEGIAHEMIPARESIS_YN} set:{TUMOR_INVOLVING_CNS_YN*C} FDA(130,IENS,401)={TUMOR_INVOLVING_CNS_YN} set:{GENERAL_YN*C} FDA(130,IENS,402)={GENERAL_YN} set:{WOUND_OCCURRENCES*C} FDA(130,IENS,403)={WOUND_OCCURRENCES} set:{WOUND_DISRUPTION*C} FDA(130,IENS,404)={WOUND_DISRUPTION} set:{LOW_SERUM_SODIUM*C} FDA(130,IENS,405)={LOW_SERUM_SODIUM} set:{LOW_POTASSIUM*C} FDA(130,IENS,406)={LOW_POTASSIUM} set:{LOW_SODIUM_DATE*C} FDA(130,IENS,407)={LOW_SODIUM_DATE} set:{LOW_POTASSIUM_DATE*C} FDA(130,IENS,408)={LOW_POTASSIUM_DATE} set:{RENAL_INSUFFICIENCY*C} FDA(130,IENS,409)={RENAL_INSUFFICIENCY} set:{COMA__24_HOURS_POSTOP*C} FDA(130,IENS,410)={COMA__24_HOURS_POSTOP} set:{CARDIAC_ARREST_REQ_CPR*C} FDA(130,IENS,411)={CARDIAC_ARREST_REQ_CPR} set:{UNPLANNED_INTUBATION_YN*C} FDA(130,IENS,412)={UNPLANNED_INTUBATION_YN} set:{TRANSFER_STATUS*C} FDA(130,IENS,413)={TRANSFER_STATUS} set:{CARDIAC_SURGICAL_PRIORITY*C} FDA(130,IENS,414)={CARDIAC_SURGICAL_PRIORITY} set:{SURGICAL_PRIORITY_DATE*C} FDA(130,IENS,414.1)={SURGICAL_PRIORITY_DATE} set:{MITRAL_REGURGITATION*C} FDA(130,IENS,415)={MITRAL_REGURGITATION} set:{NUMBER_WITH_OTHER_CONDUIT*C} FDA(130,IENS,416)={NUMBER_WITH_OTHER_CONDUIT} set:{RACE*C} FDA(130,IENS,417)={RACE} set:{HOSPITAL_ADMISSION_DATE*C} FDA(130,IENS,418)={HOSPITAL_ADMISSION_DATE} set:{HOSPITAL_DISCHARGE_DATE*C} FDA(130,IENS,419)={HOSPITAL_DISCHARGE_DATE} set:{ADMISSIONTRANSFER_DATE*C} FDA(130,IENS,420)={ADMISSIONTRANSFER_DATE} set:{DISCHARGETRANSFER_DATE*C} FDA(130,IENS,421)={DISCHARGETRANSFER_DATE} set:{OUTOFOR_UNPLANNED_INTUBATION*C} FDA(130,IENS,422)={OUTOFOR_UNPLANNED_INTUBATION} set:{CONGESTIVE_HEART_FAILURE_PREOP*C} FDA(130,IENS,423)={CONGESTIVE_HEART_FAILURE_PREOP} set:{CARDIAC_RISK_PREOP_COMMENTS*C} FDA(130,IENS,430)={CARDIAC_RISK_PREOP_COMMENTS} set:{CARDIAC_RESOURCE_DATA_COMMENTS*C} FDA(130,IENS,431)={CARDIAC_RESOURCE_DATA_COMMENTS} set:{BATISTA_PROCEDURE_USED_YN*C} FDA(130,IENS,439)={BATISTA_PROCEDURE_USED_YN} set:{CARDIAC_CATHETERIZATION_DATE*C} FDA(130,IENS,440)={CARDIAC_CATHETERIZATION_DATE} set:{MINIMALLY_INVASIVE_PROC_YN*C} FDA(130,IENS,441)={MINIMALLY_INVASIVE_PROC_YN} set:{EMPLOYMENT_STATUS_PREOPERATIVE*C} FDA(130,IENS,442)={EMPLOYMENT_STATUS_PREOPERATIVE} set:{INTRAOP_DISSEMINATED_CANCER*C} FDA(130,IENS,443)={INTRAOP_DISSEMINATED_CANCER} set:{PREOPERATIVE_ANION_GAP*C} FDA(130,IENS,444)={PREOPERATIVE_ANION_GAP} set:{PREOP_ANION_GAP_DATE*C} FDA(130,IENS,444.1)={PREOP_ANION_GAP_DATE} set:{HIGHEST_ANION_GAP*C} FDA(130,IENS,445)={HIGHEST_ANION_GAP} set:{HIGH_ANION_GAP_DATE*C} FDA(130,IENS,445.1)={HIGH_ANION_GAP_DATE} set:{INTRAOPERATIVE_ASCITES*C} FDA(130,IENS,446)={INTRAOPERATIVE_ASCITES} set:{CLOSTRIDIUM_DIFFICILE_COLITIS*C} FDA(130,IENS,447)={CLOSTRIDIUM_DIFFICILE_COLITIS} set:{POSTOP_ATRIAL_FIBRILLATION*C} FDA(130,IENS,448)={POSTOP_ATRIAL_FIBRILLATION} set:{TOTAL_ISCHEMIC_TIME*C} FDA(130,IENS,450)={TOTAL_ISCHEMIC_TIME} set:{TOTAL_CPB_TIME*C} FDA(130,IENS,451)={TOTAL_CPB_TIME} set:{OBSERVATION_ADMISSION_DATE*C} FDA(130,IENS,452)={OBSERVATION_ADMISSION_DATE} set:{OBSERVATION_DISCHARGE_DATE*C} FDA(130,IENS,453)={OBSERVATION_DISCHARGE_DATE} set:{OBSERVATION_TREATING_SPECIALTY*C} FDA(130,IENS,454)={OBSERVATION_TREATING_SPECIALTY} set:{HIGHEST_SERUM_TROPONIN_I*C} FDA(130,IENS,455)={HIGHEST_SERUM_TROPONIN_I} set:{HIGH_SERUM_TROPONIN_I_DATE*C} FDA(130,IENS,455.1)={HIGH_SERUM_TROPONIN_I_DATE} set:{HIGHEST_SERUM_TROPONIN_T*C} FDA(130,IENS,456)={HIGHEST_SERUM_TROPONIN_T} set:{HIGH_SERUM_TROPONIN_T_DATE*C} FDA(130,IENS,456.1)={HIGH_SERUM_TROPONIN_T_DATE} set:{HDL_CARDIAC*C} FDA(130,IENS,457)={HDL_CARDIAC} set:{HDL_DATE*C} FDA(130,IENS,457.1)={HDL_DATE} set:{SERUM_TRIGLYCERIDE_CARDIAC*C} FDA(130,IENS,458)={SERUM_TRIGLYCERIDE_CARDIAC} set:{SERUM_TRIGLYCERIDE_DATE_CAR*C} FDA(130,IENS,458.1)={SERUM_TRIGLYCERIDE_DATE_CAR} set:{SERUM_POTASSIUM_CARDIAC*C} FDA(130,IENS,459)={SERUM_POTASSIUM_CARDIAC} set:{SERUM_POTASSIUM_DATECARDIAC*C} FDA(130,IENS,459.1)={SERUM_POTASSIUM_DATECARDIAC} set:{SERUM_BILIRUBIN_CARDIAC*C} FDA(130,IENS,460)={SERUM_BILIRUBIN_CARDIAC} set:{SERUM_BILIRUBIN_DATE_CARD*C} FDA(130,IENS,460.1)={SERUM_BILIRUBIN_DATE_CARD} set:{LDL_CARDIAC*C} FDA(130,IENS,461)={LDL_CARDIAC} set:{LDL_DATE_CARDIAC*C} FDA(130,IENS,461.1)={LDL_DATE_CARDIAC} set:{TOTAL_CHOLESTEROL_CARDIAC*C} FDA(130,IENS,462)={TOTAL_CHOLESTEROL_CARDIAC} set:{TOTAL_CHOLESTEROL_DATE*C} FDA(130,IENS,462.1)={TOTAL_CHOLESTEROL_DATE} set:{HYPERTENSION*C} FDA(130,IENS,463)={HYPERTENSION} set:{NUMBER_WITH_RADIAL_ARTERY*C} FDA(130,IENS,464)={NUMBER_WITH_RADIAL_ARTERY} set:{NUMBER_WITH_OTHER_ARTERY*C} FDA(130,IENS,465)={NUMBER_WITH_OTHER_ARTERY} set:{TRACHEOSTOMY*C} FDA(130,IENS,466)={TRACHEOSTOMY} set:{NEW_MECHANICAL_CIRCULATORY*C} FDA(130,IENS,467)={NEW_MECHANICAL_CIRCULATORY} set:{INCISION_TYPE*C} FDA(130,IENS,468)={INCISION_TYPE} set:{CONVERT_FROM_OFF_PUMP_TO_CPB*C} FDA(130,IENS,469)={CONVERT_FROM_OFF_PUMP_TO_CPB} set:{DT_PATIENT_EXTUBATED*C} FDA(130,IENS,470)={DT_PATIENT_EXTUBATED} set:{DT_PATIENT_DISCH_FROM_ICU*C} FDA(130,IENS,471)={DT_PATIENT_DISCH_FROM_ICU} set:{CARDIAC_SURG_PERFORMED_NONVA*C} FDA(130,IENS,472)={CARDIAC_SURG_PERFORMED_NONVA} set:{HOMELESS*C} FDA(130,IENS,473)={HOMELESS} set:{PREOP_CIRCULATORY_DEVICE*C} FDA(130,IENS,474)={PREOP_CIRCULATORY_DEVICE} set:{DIABETES_CARDIAC*C} FDA(130,IENS,475)={DIABETES_CARDIAC} set:{PROCEDURE_TYPE*C} FDA(130,IENS,476)={PROCEDURE_TYPE} set:{AORTIC_STENOSIS*C} FDA(130,IENS,477)={AORTIC_STENOSIS} set:{REDO_LAD_STENOSIS*C} FDA(130,IENS,478)={REDO_LAD_STENOSIS} set:{REDO_RT_CORONARY_STENOSIS*C} FDA(130,IENS,479)={REDO_RT_CORONARY_STENOSIS} set:{REDO_CIRCUMFLEX_STENOSIS*C} FDA(130,IENS,480)={REDO_CIRCUMFLEX_STENOSIS} set:{BRIDGE_TO_TRANSPLANTDEVICE*C} FDA(130,IENS,481)={BRIDGE_TO_TRANSPLANTDEVICE} set:{MAZE_PROCEDURE*C} FDA(130,IENS,482)={MAZE_PROCEDURE} set:{TMR*C} FDA(130,IENS,483)={TMR} set:{OTHER_CARDIAC_PROCEDURESLIST*C} FDA(130,IENS,484)={OTHER_CARDIAC_PROCEDURESLIST} set:{PRIOR_HEART_SURGERY*C} FDA(130,IENS,485)={PRIOR_HEART_SURGERY} set:{GASTROINTESTINAL_YN*C} FDA(130,IENS,486)={GASTROINTESTINAL_YN} set:{PREOPERATIVE_INR*C} FDA(130,IENS,487)={PREOPERATIVE_INR} set:{PREOPERATIVE_INR_DATE*C} FDA(130,IENS,487.1)={PREOPERATIVE_INR_DATE} set:{ORGANSPACE_SSI*C} FDA(130,IENS,488)={ORGANSPACE_SSI} set:{OTHER_WOUND_OCCURRENCE*C} FDA(130,IENS,489)={OTHER_WOUND_OCCURRENCE} set:{REPEAT_VENTILATOR_WIN_30_DAY*C} FDA(130,IENS,490)={REPEAT_VENTILATOR_WIN_30_DAY} set:{OTHER_NONCT_PROCEDURES*C} FDA(130,IENS,491)={OTHER_NONCT_PROCEDURES} set:{PREOP_FUNCT__HEALTH_STATUS*C} FDA(130,IENS,492)={PREOP_FUNCT__HEALTH_STATUS} set:{PULMONARY_VALVE_PROCEDURE*C} FDA(130,IENS,493)={PULMONARY_VALVE_PROCEDURE} set:{PFSS_ACCOUNT_REFERENCE*C} FDA(130,IENS,500)={PFSS_ACCOUNT_REFERENCE} set:{OTHER_CARDIAC_PROCEDURES_YN*C} FDA(130,IENS,502)={OTHER_CARDIAC_PROCEDURES_YN} set:{HEMOGLOBIN_A1C*C} FDA(130,IENS,504)={HEMOGLOBIN_A1C} set:{HEMOGLOBIN_A1C_DATE*C} FDA(130,IENS,504.1)={HEMOGLOBIN_A1C_DATE} set:{ENDOVASCULAR_REPAIR*C} FDA(130,IENS,505)={ENDOVASCULAR_REPAIR} set:{HAIR_REMOVAL_METHOD*C} FDA(130,IENS,506)={HAIR_REMOVAL_METHOD} set:{BNP*C} FDA(130,IENS,507)={BNP} set:{BNP_DATE*C} FDA(130,IENS,507.1)={BNP_DATE} set:{PREOP_ATRIAL_FIBRILLATION*C} FDA(130,IENS,509)={PREOP_ATRIAL_FIBRILLATION} set:{CURRENT_SMOKER_CARDIAC*C} FDA(130,IENS,510)={CURRENT_SMOKER_CARDIAC} set:{MAZE_PROCEDURE0*C} FDA(130,IENS,512)={MAZE_PROCEDURE0} set:{SURGERY_CONSULT_DATE*C} FDA(130,IENS,513)={SURGERY_CONSULT_DATE} set:{PRIMARY_CAUSE_FOR_DELAY*C} FDA(130,IENS,515)={PRIMARY_CAUSE_FOR_DELAY} set:{SURGERY_CONSULT_REQUESTED*C} FDA(130,IENS,516)={SURGERY_CONSULT_REQUESTED} set:{TOBACCO_USE*C} FDA(130,IENS,517)={TOBACCO_USE} set:{TOBACCO_USE_TIMEFRAME*C} FDA(130,IENS,518)={TOBACCO_USE_TIMEFRAME} set:{DIABETES_MELLITUS_CHRONIC*C} FDA(130,IENS,519)={DIABETES_MELLITUS_CHRONIC} set:{DIABETES_MELLITUS_PREOP_MGMT*C} FDA(130,IENS,520)={DIABETES_MELLITUS_PREOP_MGMT} set:{CVD_REPAIROBSTRUCTION*C} FDA(130,IENS,521)={CVD_REPAIROBSTRUCTION} set:{HISTORY_OF_CVD*C} FDA(130,IENS,522)={HISTORY_OF_CVD} set:{CONFIRM_PATIENT_IDENTITY*C} FDA(130,IENS,600)={CONFIRM_PATIENT_IDENTITY} set:{PROCEDURE_TO_BE_PERFORMED*C} FDA(130,IENS,601)={PROCEDURE_TO_BE_PERFORMED} set:{SITE_OF_PROCEDURE*C} FDA(130,IENS,602)={SITE_OF_PROCEDURE} set:{CONFIRM_VALID_CONSENT*C} FDA(130,IENS,603)={CONFIRM_VALID_CONSENT} set:{CONFIRM_PATIENT_POSITION*C} FDA(130,IENS,604)={CONFIRM_PATIENT_POSITION} set:{MARKED_SITE_CONFIRMED0*C} FDA(130,IENS,605)={MARKED_SITE_CONFIRMED0} set:{PREOPERATIVE_IMAGES_CONFIRMED*C} FDA(130,IENS,606)={PREOPERATIVE_IMAGES_CONFIRMED} set:{CORRECT_MEDICAL_IMPLANTS*C} FDA(130,IENS,607)={CORRECT_MEDICAL_IMPLANTS} set:{ANTIBIOTIC_PROPHYLAXIS*C} FDA(130,IENS,608)={ANTIBIOTIC_PROPHYLAXIS} set:{APPROPRIATE_DVT_PROPHYLAXIS*C} FDA(130,IENS,609)={APPROPRIATE_DVT_PROPHYLAXIS} set:{BLOOD_AVAILABILITY*C} FDA(130,IENS,610)={BLOOD_AVAILABILITY} set:{AVAILABILITY_OF_SPECIAL_EQUIP*C} FDA(130,IENS,611)={AVAILABILITY_OF_SPECIAL_EQUIP} set:{ORIGINAL_DESIRED_DATE*C} FDA(130,IENS,612)={ORIGINAL_DESIRED_DATE} set:{DT_OF_DESIRED_PROCEDURE_DATE*C} FDA(130,IENS,613)={DT_OF_DESIRED_PROCEDURE_DATE} set:{ORIGINAL_SCHEDULED_DATE*C} FDA(130,IENS,614)={ORIGINAL_SCHEDULED_DATE} set:{DT_OF_SCHEDULED_DATE_ENTRY*C} FDA(130,IENS,615)={DT_OF_SCHEDULED_DATE_ENTRY} set:{DESIRED_PROCEDURE_DATE*C} FDA(130,IENS,616)={DESIRED_PROCEDURE_DATE} set:{SCHEDULED_DATE*C} FDA(130,IENS,617)={SCHEDULED_DATE} set:{POSITIVE_DRUG_SCREENING*C} FDA(130,IENS,618)={POSITIVE_DRUG_SCREENING} set:{IMMED_USECONTAMINATION*C} FDA(130,IENS,619)={IMMED_USECONTAMINATION} set:{IMMED_USESPSOR_MGT_ISSUE*C} FDA(130,IENS,620)={IMMED_USESPSOR_MGT_ISSUE} set:{IMMED_USEEMERGENCY_CASE*C} FDA(130,IENS,621)={IMMED_USEEMERGENCY_CASE} set:{IMMED_USENO_BETTER_OPTION*C} FDA(130,IENS,622)={IMMED_USENO_BETTER_OPTION} set:{IMMED_USELOANER_INSTRUMENT*C} FDA(130,IENS,623)={IMMED_USELOANER_INSTRUMENT} set:{IMMED_USEDECONTAMINATION*C} FDA(130,IENS,624)={IMMED_USEDECONTAMINATION} set:{POSSIBLE_ITEM_RETENTION*C} FDA(130,IENS,630)={POSSIBLE_ITEM_RETENTION} set:{WOUND_SWEEP*C} FDA(130,IENS,633)={WOUND_SWEEP} set:{INTRAOPERATIVE_XRAY*C} FDA(130,IENS,636)={INTRAOPERATIVE_XRAY} set:{LATERALITY_OF_PROCEDURE*C} FDA(130,IENS,638)={LATERALITY_OF_PROCEDURE} set:{REPORT_GIVEN_TO*C} FDA(130,IENS,639)={REPORT_GIVEN_TO} set:{PCI0*C} FDA(130,IENS,640)={PCI0} set:{HYPERTENSION0*C} FDA(130,IENS,641)={HYPERTENSION0} set:{BLEEDING_RISK_DUE_TO_MED*C} FDA(130,IENS,642)={BLEEDING_RISK_DUE_TO_MED} set:{ANGINA_TIMEFRAME*C} FDA(130,IENS,643)={ANGINA_TIMEFRAME} set:{SYMPTOMATIC_UTI*C} FDA(130,IENS,644)={SYMPTOMATIC_UTI} set:{MECHANICAL_VENT_WN_30_DAYS*C} FDA(130,IENS,645)={MECHANICAL_VENT_WN_30_DAYS} set:{UNOS_NUMBER*C} FDA(130,IENS,648)={UNOS_NUMBER} set:{DONOR_SEROLOGY_HCV*C} FDA(130,IENS,649)={DONOR_SEROLOGY_HCV} set:{DONOR_SEROLOGY_HBV*C} FDA(130,IENS,650)={DONOR_SEROLOGY_HBV} set:{DONOR_SEROLOGY_CMV*C} FDA(130,IENS,651)={DONOR_SEROLOGY_CMV} set:{DONOR_SEROLOGY_HIV*C} FDA(130,IENS,652)={DONOR_SEROLOGY_HIV} set:{DONOR_ABO_TYPE*C} FDA(130,IENS,653)={DONOR_ABO_TYPE} set:{RECIPIENT_ABO_TYPE*C} FDA(130,IENS,654)={RECIPIENT_ABO_TYPE} set:{BLOOD_BANK_ABO_VERIFICATION*C} FDA(130,IENS,655)={BLOOD_BANK_ABO_VERIFICATION} set:{OR_ABO_VERIFICATION_YN*C} FDA(130,IENS,656)={OR_ABO_VERIFICATION_YN} set:{SURGEON_VERIFYING_UNET*C} FDA(130,IENS,657)={SURGEON_VERIFYING_UNET} set:{ORGAN_VER_PREANESTHESIA*C} FDA(130,IENS,658)={ORGAN_VER_PREANESTHESIA} set:{SURGEON_VER_DONOR_ORG_PREANES*C} FDA(130,IENS,659)={SURGEON_VER_DONOR_ORG_PREANES} set:{ORGAN_VER_PRETRANSPLANT*C} FDA(130,IENS,660)={ORGAN_VER_PRETRANSPLANT} set:{PALLIATION*C} FDA(130,IENS,661)={PALLIATION} set:{IMPAIRED_COGNITIVE_FUNCTION*C} FDA(130,IENS,662)={IMPAIRED_COGNITIVE_FUNCTION} set:{DONOR_VESSEL_USAGE*C} FDA(130,IENS,663)={DONOR_VESSEL_USAGE} set:{DONOR_VESSEL_DISPOSITION*C} FDA(130,IENS,665)={DONOR_VESSEL_DISPOSITION} set:{LIVER_DISEASECIRRHOSIS*C} FDA(130,IENS,666)={LIVER_DISEASECIRRHOSIS} set:{SLEEP_APNEACOMPLIANCE*C} FDA(130,IENS,667)={SLEEP_APNEACOMPLIANCE} set:{IMMUNOCOMPROMISED_STATE_PREOP*C} FDA(130,IENS,668)={IMMUNOCOMPROMISED_STATE_PREOP} set:{PULMONARY_HTN*C} FDA(130,IENS,669)={PULMONARY_HTN} set:{RESIDENCE_30_DAYS_PREOP*C} FDA(130,IENS,670)={RESIDENCE_30_DAYS_PREOP} set:{AMBULATION_DEVICE_PREOP*C} FDA(130,IENS,671)={AMBULATION_DEVICE_PREOP} set:{NUTRITIONAL_SUPPLEMENT_PREOP*C} FDA(130,IENS,672)={NUTRITIONAL_SUPPLEMENT_PREOP} set:{HISTORY_OF_CANCER_DIAGNOSIS*C} FDA(130,IENS,673)={HISTORY_OF_CANCER_DIAGNOSIS} set:{HX_RAD_RX_PLANNED_SURG_FIELD*C} FDA(130,IENS,674)={HX_RAD_RX_PLANNED_SURG_FIELD} set:{PRIOR_INFECINFLAM_SURG_FIELD*C} FDA(130,IENS,675)={PRIOR_INFECINFLAM_SURG_FIELD} set:{HX_DEEP_VEIN_THROMBOSIS*C} FDA(130,IENS,676)={HX_DEEP_VEIN_THROMBOSIS} set:{PRIOR_SURG_SAME_OP_FIELD*C} FDA(130,IENS,677)={PRIOR_SURG_SAME_OP_FIELD} set:{DCREL_DESTINATION*C} FDA(130,IENS,685)={DCREL_DESTINATION} set:{AORTIC_REGURGITATION*C} FDA(130,IENS,686)={AORTIC_REGURGITATION} set:{INJURY_TO_ADJACENT_ORGAN*C} FDA(130,IENS,687)={INJURY_TO_ADJACENT_ORGAN} set:{STOMA_COMPLICATIONS*C} FDA(130,IENS,688)={STOMA_COMPLICATIONS} set:{NONUNION*C} FDA(130,IENS,689)={NONUNION} set:{IMPLANT_INFECTIONS*C} FDA(130,IENS,690)={IMPLANT_INFECTIONS} set:{CHYLELYMPH_LEAK*C} FDA(130,IENS,691)={CHYLELYMPH_LEAK} set:{ANASTOMOTIC_LEAK*C} FDA(130,IENS,692)={ANASTOMOTIC_LEAK} set:{FISTULA*C} FDA(130,IENS,693)={FISTULA} set:{NECROTIZING_SOFT_TISS_INFECT*C} FDA(130,IENS,694)={NECROTIZING_SOFT_TISS_INFECT} set:{OTHER_BLOOD_PRODUCT_UNITS*C} FDA(130,IENS,695)={OTHER_BLOOD_PRODUCT_UNITS} set:{PRESSORS_USED_INTRAOP*C} FDA(130,IENS,696)={PRESSORS_USED_INTRAOP} set:{MITRAL_STENOSIS*C} FDA(130,IENS,697)={MITRAL_STENOSIS} set:{PCI_INTERVENTION*C} FDA(130,IENS,698)={PCI_INTERVENTION} set:{ATRIAL_ARRHYTHMIAS*C} FDA(130,IENS,699)={ATRIAL_ARRHYTHMIAS} set:{HEAD_OR_NECK_CANCER*C} FDA(130,IENS,700)={HEAD_OR_NECK_CANCER} set:{MACULAR_DEGENERATION*C} FDA(130,IENS,701)={MACULAR_DEGENERATION} set:{GLAUCOMA*C} FDA(130,IENS,702)={GLAUCOMA} set:{HX_RETINAL_DETACHMENT*C} FDA(130,IENS,704)={HX_RETINAL_DETACHMENT} set:{AXIAL_LENANTERIOR_CHAM_DEP*C} FDA(130,IENS,705)={AXIAL_LENANTERIOR_CHAM_DEP} set:{CORNEAL_GUTTAEFUCHS_ENDO*C} FDA(130,IENS,706)={CORNEAL_GUTTAEFUCHS_ENDO} set:{DIABETIC_RETINOPATHY*C} FDA(130,IENS,707)={DIABETIC_RETINOPATHY} set:{COMPLEX_CATARACT*C} FDA(130,IENS,708)={COMPLEX_CATARACT} set:{STATIN_30_DAYS_PREOP*C} FDA(130,IENS,709)={STATIN_30_DAYS_PREOP} set:{IPSILAT_CORTICAL_EVENT_PREOP*C} FDA(130,IENS,710)={IPSILAT_CORTICAL_EVENT_PREOP} set:{PREOP_MODIFIED_RANKIN_SCORE*C} FDA(130,IENS,711)={PREOP_MODIFIED_RANKIN_SCORE} set:{CAROTID_SUR_ANATOMIC_HIGH_RISK*C} FDA(130,IENS,712)={CAROTID_SUR_ANATOMIC_HIGH_RISK} set:{BYPASS_CRITICAL_LIMB_ISCHEMIA*C} FDA(130,IENS,713)={BYPASS_CRITICAL_LIMB_ISCHEMIA} set:{ENDOLEAK_AT_COMPLETION*C} FDA(130,IENS,715)={ENDOLEAK_AT_COMPLETION} set:{HIGH_HEART_RATE_6HRS_PREOP*C} FDA(130,IENS,716)={HIGH_HEART_RATE_6HRS_PREOP} set:{HIGH_HEART_RATE_INTRAOP*C} FDA(130,IENS,717)={HIGH_HEART_RATE_INTRAOP} set:{LOW_ARTERIAL_PRESS_6HRS_PREOP*C} FDA(130,IENS,718)={LOW_ARTERIAL_PRESS_6HRS_PREOP} set:{HIGH_LACTIC_ACID_6HRS_PREOP*C} FDA(130,IENS,719)={HIGH_LACTIC_ACID_6HRS_PREOP} set:{HIGH_LACTIC_ACID_INTRAOP*C} FDA(130,IENS,720)={HIGH_LACTIC_ACID_INTRAOP} set:{LOWEST_PH_6HRS_PREOP*C} FDA(130,IENS,721)={LOWEST_PH_6HRS_PREOP} set:{LOWEST_PH_INTRAOP*C} FDA(130,IENS,722)={LOWEST_PH_INTRAOP} set:{LOW_ARTERIAL_PRESS_INTRAOP*C} FDA(130,IENS,723)={LOW_ARTERIAL_PRESS_INTRAOP} set:{OLIGURIA_60CC2HRS_6HRS_PREOP*C} FDA(130,IENS,724)={OLIGURIA_60CC2HRS_6HRS_PREOP} set:{OLIGURIA_URINE_OUTPUT_INTRAOP*C} FDA(130,IENS,725)={OLIGURIA_URINE_OUTPUT_INTRAOP} set:{LOWEST_BICARBONATE_6HRS_PREOP*C} FDA(130,IENS,726)={LOWEST_BICARBONATE_6HRS_PREOP} set:{LOWEST_BICARBONATE_INTRAOP*C} FDA(130,IENS,727)={LOWEST_BICARBONATE_INTRAOP} set:{UNITS_TRANSFUSED_6HRS_PREOP*C} FDA(130,IENS,728)={UNITS_TRANSFUSED_6HRS_PREOP} set:{VASOPRESSOR_USAGE_AT_OR_ENTRY*C} FDA(130,IENS,729)={VASOPRESSOR_USAGE_AT_OR_ENTRY} set:{CARDIAC_ARREST_24HRS_PREOP*C} FDA(130,IENS,730)={CARDIAC_ARREST_24HRS_PREOP} set:{DIC_6HRS_PREOP*C} FDA(130,IENS,731)={DIC_6HRS_PREOP} set:{HYPOXEMIA_WIN_6HRS_PREOP*C} FDA(130,IENS,732)={HYPOXEMIA_WIN_6HRS_PREOP} set:{ENDOLEAK_AT_FOLLOWUP*C} FDA(130,IENS,733)={ENDOLEAK_AT_FOLLOWUP} set:{CARDIAC_ARREST_INTRAOP*C} FDA(130,IENS,734)={CARDIAC_ARREST_INTRAOP} set:{FLOPPY_IRIS_INTRAOP*C} FDA(130,IENS,735)={FLOPPY_IRIS_INTRAOP} set:{PREOP_VISUAL_ACUITY*C} FDA(130,IENS,736)={PREOP_VISUAL_ACUITY} set:{POSTOP_VISUAL_ACUITY*C} FDA(130,IENS,737)={POSTOP_VISUAL_ACUITY} set:{ENDOPHTHALMITIS_TYPE*C} FDA(130,IENS,738)={ENDOPHTHALMITIS_TYPE} set:{CYSTOID_MACULAR_EDEMA*C} FDA(130,IENS,739)={CYSTOID_MACULAR_EDEMA} set:{DISLOCATION_OF_OPERATIVE_JOINT*C} FDA(130,IENS,740)={DISLOCATION_OF_OPERATIVE_JOINT} set:{PERIPROSTHETIC_FRACTURES*C} FDA(130,IENS,741)={PERIPROSTHETIC_FRACTURES} set:{DT_PAT_ARRIVES_HOSP_DAY_SURG*C} FDA(130,IENS,742)={DT_PAT_ARRIVES_HOSP_DAY_SURG} set:{DT_PAT_LEAVES_HOSP_DAY_SURG*C} FDA(130,IENS,743)={DT_PAT_LEAVES_HOSP_DAY_SURG} set:{KIDNEY_DONOR_PROFILE_INDEX*C} FDA(130,IENS,744)={KIDNEY_DONOR_PROFILE_INDEX} set:{EXPECTED_POST_TRANSPLANT_INDEX*C} FDA(130,IENS,745)={EXPECTED_POST_TRANSPLANT_INDEX} set:{BLOOD_BANK_ABO_VER_COMMENTS*C} FDA(130,IENS,746)={BLOOD_BANK_ABO_VER_COMMENTS} set:{DT_BLOOD_BANK_ABO_VERIF*C} FDA(130,IENS,747)={DT_BLOOD_BANK_ABO_VERIF} set:{OR_ABO_VER_COMMENTS*C} FDA(130,IENS,748)={OR_ABO_VER_COMMENTS} set:{DT_OR_ABO_VERIF*C} FDA(130,IENS,749)={DT_OR_ABO_VERIF} set:{UNET_VERIF_BY_SURGEON_YN*C} FDA(130,IENS,750)={UNET_VERIF_BY_SURGEON_YN} set:{SURGEON_VER_ORGAN_PREANES*C} FDA(130,IENS,751)={SURGEON_VER_ORGAN_PREANES} set:{DONOR_ORG_VER_PREANES*C} FDA(130,IENS,752)={DONOR_ORG_VER_PREANES} set:{SURGEON_VER_ORG_PRETRANSPLANT*C} FDA(130,IENS,753)={SURGEON_VER_ORG_PRETRANSPLANT} set:{AIRWAY_INDEX*C} FDA(130,IENS,901)={AIRWAY_INDEX} set:{MALLAMPATI_SCALE*C} FDA(130,IENS,901.1)={MALLAMPATI_SCALE} set:{MANDIBULAR_SPACE*C} FDA(130,IENS,901.2)={MANDIBULAR_SPACE} set:{DEATH_UNRELATEDRELATED*C} FDA(130,IENS,903)={DEATH_UNRELATEDRELATED} set:{READY_TO_TRANSMIT*C} FDA(130,IENS,905)={READY_TO_TRANSMIT} set:{TIU_OPERATIVE_SUMMARY*C} FDA(130,IENS,1000)={TIU_OPERATIVE_SUMMARY} set:{TIU_NURSE_INTRAOP_REPORT*C} FDA(130,IENS,1001)={TIU_NURSE_INTRAOP_REPORT} set:{TIU_PROCEDURE_REPORT_NONOR*C} FDA(130,IENS,1002)={TIU_PROCEDURE_REPORT_NONOR} set:{TIU_ANESTHESIA_REPORT*C} FDA(130,IENS,1003)={TIU_ANESTHESIA_REPORT} set:{DICTATED_SUMMARY_EXPECTED*C} FDA(130,IENS,1004)={DICTATED_SUMMARY_EXPECTED} set:{CPT_ON_NURSE_REPORT*C} FDA(130,IENS,1005)={CPT_ON_NURSE_REPORT} set:{ICD_ON_NURSE_REPORT*C} FDA(130,IENS,1006)={ICD_ON_NURSE_REPORT} set:{ROBOTIC_ASSISTANCE_YN*C} FDA(130,IENS,2006)={ROBOTIC_ASSISTANCE_YN} set:{OP_NOTE_POINTER*C} FDA(130,IENS,523011)={OP_NOTE_POINTER} set:{f3M_TOTAL_REIMBURSEMENT*C} FDA(130,IENS,19900000)={f3M_TOTAL_REIMBURSEMENT} set:{f3M_STATUS*C} FDA(130,IENS,19900001)={f3M_STATUS} set:{f3M_BILL_TYPE*C} FDA(130,IENS,19900002)={f3M_BILL_TYPE} set:{f3M_APC_CLAIM_TYPE*C} FDA(130,IENS,19900004)={f3M_APC_CLAIM_TYPE} set:{f3M_APC_TOTAL_WEIGHT*C} FDA(130,IENS,19900005)={f3M_APC_TOTAL_WEIGHT} set:{f3M_APC_COPAY_AMT*C} FDA(130,IENS,19900006)={f3M_APC_COPAY_AMT} set:{f3M_APC_HCFA_AMT*C} FDA(130,IENS,19900007)={f3M_APC_HCFA_AMT} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(130)") set %SkipFiling=1 if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {GENERAL_COMMENTS*C} { set D0={RowId} kill wp if {GENERAL_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({GENERAL_COMMENTS},$c(13,10)) { set wp(i)=$p({GENERAL_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},.28,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {NURSING_CARE_COMMENTS*C} { set D0={RowId} kill wp if {NURSING_CARE_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({NURSING_CARE_COMMENTS},$c(13,10)) { set wp(i)=$p({NURSING_CARE_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},.29,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SURGEONS_DICTATION*C} { set D0={RowId} kill wp if {SURGEONS_DICTATION}'="" { set wproot="wp" for i=1:1:$l({SURGEONS_DICTATION},$c(13,10)) { set wp(i)=$p({SURGEONS_DICTATION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},1.15,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {POSTOP_ANES_NOTE*C} { set D0={RowId} kill wp if {POSTOP_ANES_NOTE}'="" { set wproot="wp" for i=1:1:$l({POSTOP_ANES_NOTE},$c(13,10)) { set wp(i)=$p({POSTOP_ANES_NOTE},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},1.2,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SPECIMENS*C} { set D0={RowId} kill wp if {SPECIMENS}'="" { set wproot="wp" for i=1:1:$l({SPECIMENS},$c(13,10)) { set wp(i)=$p({SPECIMENS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},49,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INDICATIONS_FOR_OPERATIONS*C} { set D0={RowId} kill wp if {INDICATIONS_FOR_OPERATIONS}'="" { set wproot="wp" for i=1:1:$l({INDICATIONS_FOR_OPERATIONS},$c(13,10)) { set wp(i)=$p({INDICATIONS_FOR_OPERATIONS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},55,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OPERATIVE_FINDINGS*C} { set D0={RowId} kill wp if {OPERATIVE_FINDINGS}'="" { set wproot="wp" for i=1:1:$l({OPERATIVE_FINDINGS},$c(13,10)) { set wp(i)=$p({OPERATIVE_FINDINGS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},59,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {BRIEF_CLIN_HISTORY*C} { set D0={RowId} kill wp if {BRIEF_CLIN_HISTORY}'="" { set wproot="wp" for i=1:1:$l({BRIEF_CLIN_HISTORY},$c(13,10)) { set wp(i)=$p({BRIEF_CLIN_HISTORY},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},60,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CULTURES*C} { set D0={RowId} kill wp if {CULTURES}'="" { set wproot="wp" for i=1:1:$l({CULTURES},$c(13,10)) { set wp(i)=$p({CULTURES},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},64,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {SPD_COMMENTS*C} { set D0={RowId} kill wp if {SPD_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({SPD_COMMENTS},$c(13,10)) { set wp(i)=$p({SPD_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},80,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {TIME_OUT_VERIFIED_COMMENTS*C} { set D0={RowId} kill wp if {TIME_OUT_VERIFIED_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({TIME_OUT_VERIFIED_COMMENTS},$c(13,10)) { set wp(i)=$p({TIME_OUT_VERIFIED_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},82,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {IMAGING_CONFIRMED_COMMENTS*C} { set D0={RowId} kill wp if {IMAGING_CONFIRMED_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({IMAGING_CONFIRMED_COMMENTS},$c(13,10)) { set wp(i)=$p({IMAGING_CONFIRMED_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},83,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {MARKED_SITE_COMMENTS*C} { set D0={RowId} kill wp if {MARKED_SITE_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({MARKED_SITE_COMMENTS},$c(13,10)) { set wp(i)=$p({MARKED_SITE_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},84,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {CHECKLIST_COMMENT*C} { set D0={RowId} kill wp if {CHECKLIST_COMMENT}'="" { set wproot="wp" for i=1:1:$l({CHECKLIST_COMMENT},$c(13,10)) { set wp(i)=$p({CHECKLIST_COMMENT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},85,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {HAIR_REMOVAL_COMMENTS*C} { set D0={RowId} kill wp if {HAIR_REMOVAL_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({HAIR_REMOVAL_COMMENTS},$c(13,10)) { set wp(i)=$p({HAIR_REMOVAL_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},508,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {WOUND_SWEEP_COMMENTS*C} { set D0={RowId} kill wp if {WOUND_SWEEP_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({WOUND_SWEEP_COMMENTS},$c(13,10)) { set wp(i)=$p({WOUND_SWEEP_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},635,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {INTRAOPERATIVE_XRAY_COMMENTS*C} { set D0={RowId} kill wp if {INTRAOPERATIVE_XRAY_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({INTRAOPERATIVE_XRAY_COMMENTS},$c(13,10)) { set wp(i)=$p({INTRAOPERATIVE_XRAY_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},637,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {REVIEW_OF_DEATH_COMMENTS*C} { set D0={RowId} kill wp if {REVIEW_OF_DEATH_COMMENTS}'="" { set wproot="wp" for i=1:1:$l({REVIEW_OF_DEATH_COMMENTS},$c(13,10)) { set wp(i)=$p({REVIEW_OF_DEATH_COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(130,{RowId},904,,wproot,"%FMERR(130)") if $d(%FMERR(130,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(130)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prostheti7939.SURGERY130S index {ASSESSMENT_TYPE}'="" 1 ^SRF conditional "ARS" $$TRUNCATE({ASSESSMENT_TYPE},2)) $$TRUNCATE({ASSESSMENT_STATUS},2)) {PATIENT} {IEN} 0]]> index ^SRF nonnull "AV" {VISIT} {IEN} 0]]> index ^SRF nonnull "B" {PATIENT} {IEN} 0]]> data ^SRF {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 200 43 "^" 206 10 "^" 200 17 "^" 205 17 "^" .98 11 "^" 208 16 "^" 1.1 7 "^" 0 17 "^" .3 9 "^" 210 6 "^" 211 7 "^" .3 4 "^" .3 8 "^" .2 8 "^" .2 17 "^" .2 4 "^" .2 1 "^" .2 22 "^" .2 19 "^" .2 23 "^" .3 6 "^" 200 34 "^" 206 18 "^" 200 59 "^" "VER" 15 "^" 211 1 "^" 209 5 "^" 206 25 "^" 207 3 "^" "VER" 16 "^" 1.1 3 "^" 200 15 "^" 207 12 "^" "RA" 9 "^" "RA" 1 "^" "RA" 2 "^" 0 21 "^" .3 3 "^" .1 20 "^" 211 14 "^" .1 10 "^" .1 16 "^" .1 13 "^" "NON" 7 "^" "VER" 18 "^" 211 20 "^" .97 3 "^" 207 23 "^" 200 49 "^" 200 58 "^" .99 4 "^" "VER" 17 "^" "VER1" 9 "^" "VER1" 18 "^" .2 5 "^" .99 6 "^" .99 3 "^" 201 29 "^" 202.1 2 "^" 209 9 39 new data,i,node set {BRIEF_CLIN_HISTORY}="" merge data=^SRF({S1},39) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {BRIEF_CLIN_HISTORY}={BRIEF_CLIN_HISTORY}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .99 5 "^" 211 28 "^" 30 2 "^" 30 4 "^" 30 5 "^" 30 3 "^" 30 1 "^" 211 42 "^" 211 46 "^" 205 26 "^" 207 21 "^" 205 25 "^" 206.2 1 "^" 206.1 1 "^" 208 12 "^" 206 41 "^" 207 9 "^" 200 30 "^" 206 6 "^" .98 10 "^" 211 27 "^" 30 6 "^" 0 11 "^" 0 10 "^" "VER" 1 "^" .99 2 "^" 200 18 "^" 206 17 51 new data,i,node set {CHECKLIST_COMMENT}="" merge data=^SRF({S1},51) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CHECKLIST_COMMENT}={CHECKLIST_COMMENT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 206 3 "^" 204 17 "^" .99 8 "^" 200 35 "^" 211 6 "^" .98 3 "^" 206 35 "^" 0 20 "^" .98 7 "^" .98 8 "^" .98 14 "^" .97 7 "^" .99 10 "^" 205 39 "^" 205 20 "^" "VER" 2 "^" 200 21 "^" 205 22 "^" 0 24 "^" 211 23 "^" "CON" 1 "^" "VER" 7 "^" "VER" 11 "^" "VER" 10 "^" 206 19 "^" 207 29 "^" .97 2 "^" 207 27 "^" 211 21 "^" 206 29 "^" "VER" 14 "^" 25 5 "^" "TIU" 6 "^" "RA" 6 "^" 0 13 41 new data,i,node set {CULTURES}="" merge data=^SRF({S1},41) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {CULTURES}={CULTURES}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 200 39 "^" 206 21 "^" 206 20 "^" 200 12 "^" 200 3 "^" 200.1 5 "^" 200 26 "^" 200 27 "^" 200.1 13 "^" 211 51 "^" 31 6 "^" "1.0" 11 "^" "RA" 5 "^" 205 3 "^" "RA" 8 "^" 0 9 "^" "NON" 3 "^" 31 7 "^" "RA" 4 "^" 210 14 "^" .4 7 "^" 205 7 "^" .9 5 "^" 46 1 "^" 200 2 "^" 209 3 "^" 200.1 11 "^" 200.1 12 "^" 211 22 "^" 31 9 "^" .6 11 "^" "TIU" 5 "^" 211 43 "^" .7 4 "^" 208 17 "^" 211 52 "^" 200 45 "^" 8 1 "^" 200 7 "^" "VER1" 7 "^" "VER1" 24 "^" "VER1" 5 "^" "VER1" 4 "^" "VER1" 3 "^" "VER1" 6 "^" "VER1" 16 "^" "VER1" 15 "^" 35 1 "^" 31 1 "^" 200 5 "^" "VER1" 19 "^" .9 2 "^" .9 4 "^" "VER1" 21 "^" 208 23 "^" 208 22 "^" 211 54 "^" 211 55 "^" 205 34 "^" 31 10 "^" 200 6 "^" .99 9 "^" .7 5 "^" .5 4 "^" .5 13 "^" 207 10 "^" 208 18 "^" 208 3 "^" 211 30 "^" 211 45 "^" 211 50 "^" 207.1 2 "^" .8 5 "^" .8 4 "^" .8 6 "^" .97 5 "^" 200 16 "^" .4 1 "^" 206 31 "^" 206 32 "^" .7 1 "^" .7 2 "^" 200 4 "^" 211 57 "^" 206 5 "^" .6 5 "^" .5 1 "^" .1 5 "^" 211 8 "^" 211 47 "^" .5 6 "^" .5 5 "^" 207 15 "^" .98 6 "^" 200 8 "^" .2 6 "^" 200.1 1 5 new data,i,node set {GENERAL_COMMENTS}="" merge data=^SRF({S1},5) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {GENERAL_COMMENTS}={GENERAL_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 200 1 "^" 211 17 "^" 205 33 "^" 207 8 "^" .1 2 49 new data,i,node set {HAIR_REMOVAL_COMMENTS}="" merge data=^SRF({S1},49) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {HAIR_REMOVAL_COMMENTS}={HAIR_REMOVAL_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "VER" 6 "^" 201 21 "^" 202 21 "^" 0 23 "^" 211 15 "^" 206 1 "^" 200.1 7 "^" 200 24 "^" 201 28 "^" 202.1 1 "^" 200 13 "^" 200 14 "^" 203 16 "^" 203 7 "^" 203 8 "^" 203 5 "^" 203 3 "^" 203 6 "^" 203 1 "^" 203 13 "^" 203 14 "^" 203 9 "^" 203 10 "^" 204 10 "^" 204 16 "^" 204 8 "^" 204 7 "^" 204 5 "^" 211 31 "^" 211 32 "^" 211 34 "^" "VERD" 6 "^" 204 3 "^" 204 6 "^" 204 1 "^" 204 13 "^" 204 14 "^" 204 9 "^" 210 8 "^" 200 11 "^" 200.1 14 "^" 200 31 "^" 200 25 "^" 209 1 "^" 208 14 "^" 0 12 "^" 208 15 "^" 210 11 "^" 210 9 "^" 211 19 "^" 206 38 "^" 200 57 "^" 200 36 "^" 211 44 "^" "TIU" 7 "^" 205 31 83 new data,i,node set {IMAGING_CONFIRMED_COMMENTS}="" merge data=^SRF({S1},83) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {IMAGING_CONFIRMED_COMMENTS}={IMAGING_CONFIRMED_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "VERD" 4 "^" 52 1 "^" 52 6 "^" 52 3 "^" 52 5 "^" 52 4 "^" 52 2 "^" 210 3 "^" 210 1 "^" 200 19 "^" 211 5 "^" 207 26 40 new data,i,node set {INDICATIONS_FOR_OPERATIONS}="" merge data=^SRF({S1},40) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INDICATIONS_FOR_OPERATIONS}={INDICATIONS_FOR_OPERATIONS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .2 11 "^" 211 2 "^" 25 3 "^" .5 10 "^" .5 11 "^" 200.1 6 "^" 25 8 "^" "1.0" 5 54 new data,i,node set {INTRAOPERATIVE_XRAY_COMMENTS}="" merge data=^SRF({S1},54) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {INTRAOPERATIVE_XRAY_COMMENTS}={INTRAOPERATIVE_XRAY_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 200.1 4 "^" 200 54 "^" 0 18 "^" 211 25 "^" 206 22 "^" .3 5 "^" 211 56 "^" 206 33 "^" .7 8 "^" "OP" 5 "^" 201 25 "^" 202 25 "^" 206 28 "^" 205 1 "^" .98 9 "^" 210 2 "^" "LOCK" 1 "^" "VERD" 8 "^" 211 39 "^" 203 12 "^" "VERD" 7 "^" 211 35 "^" 203 11 "^" 211 33 "^" 211 36 "^" 208 4 "^" 204 12 "^" 203 4 "^" 204 4 "^" 204 11 "^" 203 2 "^" 204 2 "^" 206 24 "^" 207 7 "^" 206 30 "^" 211 16 "^" 0 3 "^" .3 11 "^" .3 12 84 new data,i,node set {MARKED_SITE_COMMENTS}="" merge data=^SRF({S1},84) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {MARKED_SITE_COMMENTS}={MARKED_SITE_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "VER" 5 "^" "VER" 12 "^" 209 10 "^" 209 14 "^" 205 43 "^" 208 5 "^" "NON" 8 "^" 0 22 "^" 207 22 "^" .3 7 "^" 207 11 "^" 206 9 "^" 211 12 "^" 207 4 "^" 207 16 "^" 205 27 "^" 207 14 "^" 211 9 "^" 200 28 "^" 206 40 "^" "NON" 2 "^" "NON" 1 "^" 211 4 "^" .97 6 "^" 207 2 "^" 207 25 "^" 207 20 "^" 207 24 "^" 207 1 "^" .2 20 "^" 206 15 "^" .2 7 7 new data,i,node set {NURSING_CARE_COMMENTS}="" merge data=^SRF({S1},7) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {NURSING_CARE_COMMENTS}={NURSING_CARE_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 200 44 "^" 210 7 "^" 208.1 1 "^" 208.1 2 "^" 208.1 3 "^" 37 1 "^" 211 37 "^" 211 38 "^" 205 13 "^" 200 46 "^" 200 51 "^" 208 1 38 new data,i,node set {OPERATIVE_FINDINGS}="" merge data=^SRF({S1},38) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OPERATIVE_FINDINGS}={OPERATIVE_FINDINGS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .4 6 "^" 44 4 "^" 0 2 "^" .98 5 "^" 0 14 "^" 205 37 "^" "VER1" 12 "^" "VER1" 14 "^" .9 1 "^" .9 3 "^" "VER1" 10 "^" "VER1" 20 "^" .2 14 "^" .2 13 "^" .4 4 "^" 211 10 "^" 205 29 "^" 207.1 1 "^" 209.1 1 "^" 209 13 "^" 205 24 "^" 209.2 1 "^" 205 30 "^" 205 36 "^" 207 19 "^" 205 14 "^" 207 18 "^" 205 19 "^" 205 38 "^" 205 44 "^" .8 11 "^" 208 9 "^" 1.1 1 "^" 1.1 2 "^" 1.1 8 "^" .7 9 "^" .1 21 "^" 200 23 "^" 0 1 "^" .97 1 "^" .98 12 "^" 206 27 "^" 206 26 "^" 206 13 "^" 200 56 "^" 211 13 "^" .1 19 "^" 207 17 "^" 208 2 "^" 206 16 "^" 205 23 "^" 211 53 "^" "PFSS" 1 "^" 200 52 "^" 0 26 "^" .4 3 "^" 34 2 "^" "OP" 2 "^" 205 10 "^" 200 55 "^" 25 6 48 new data,i,node set {POSTOP_ANES_NOTE}="" merge data=^SRF({S1},48) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {POSTOP_ANES_NOTE}={POSTOP_ANES_NOTE}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 1.1 9 "^" 205 40 "^" 24 2 "^" 205 32 "^" .6 7 "^" .8 10 "^" .8 2 "^" .8 1 "^" .6 6 "^" .6 8 "^" .7 7 "^" .7 6 "^" 211 49 "^" 35 2 "^" 200.1 3 "^" 201 12 "^" 203 15 "^" 201 5 "^" 202 5 "^" 201 6 "^" 202 6 "^" 201 3 "^" 202 3 "^" .6 2 "^" 201 14 "^" 201 20 "^" 202 20 "^" "VER" 13 "^" "VER" 4 "^" 0 5 "^" 201 27 "^" 202 27 "^" 201 7 "^" 202 7 "^" 201 15 "^" 201 2 "^" 201 17 "^" 201 16 "^" 201 18 "^" 202 16 "^" 201 19 "^" 202 17 "^" 206 8 "^" 201 8 "^" 201 4 "^" 201 1 "^" 201 11 "^" 201 10 "^" 200.1 8 "^" 201 9 "^" 206 23 "^" 201 13 "^" 202 13 "^" 202 12 "^" 204 15 "^" 208 19 "^" 24 1 "^" .6 3 "^" 209 2 "^" .1 15 "^" .1 14 "^" 200.1 2 "^" 202 14 "^" .98 13 "^" 211 26 "^" .1 9 "^" 202 15 "^" 202 2 "^" .6 4 "^" 202 8 "^" 202 4 "^" 202 1 "^" 0 8 "^" 0 7 "^" .6 1 "^" 202 9 "^" 211 48 "^" .6 10 "^" 211 11 "^" "SP" 2 "^" 200 33 "^" 200 32 "^" 31 8 "^" 209 16 "^" .1 4 "^" 33 2 "^" 34 1 "^" 33 1 "^" "OP" 1 "^" .3 1 "^" 34 3 "^" 206 42 "^" 210 10 "^" 206 14 "^" 210 12 "^" "OP" 4 "^" "VER" 8 "^" 209 4 "^" 0 25 "^" .98 2 "^" "NON" 6 "^" 205 28 "^" 205 12 "^" 210 4 "^" 206 7 "^" 207 28 "^" 200 9 "^" 200 22 "^" 208 10 "^" 206 4 "^" .4 2 "^" "RA" 7 "^" "VER1" 8 "^" .97 4 "^" 209 8 "^" 209 6 "^" 200 53 "^" 209 7 "^" .3 2 "^" 200 38 "^" 205 16 "^" 200 37 "^" 208 6 "^" 208 7 "^" 209 12 "^" 25 9 "^" "REQ" 1 "^" 0 6 "^" "1.0" 1 "^" "1.0" 9 "^" "1.0" 2 "^" "1.0" 4 "^" "1.0" 3 "^" "SP" 3 "^" 210 5 "^" 205 9 "^" 206 11 "^" 200 42 "^" "RA" 3 "^" 205 4 "^" 200 41 47 new data,i,node set {REVIEW_OF_DEATH_COMMENTS}="" merge data=^SRF({S1},47) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REVIEW_OF_DEATH_COMMENTS}={REVIEW_OF_DEATH_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 206 34 "^" "OP" 3 "^" .9 6 "^" 31 5 "^" "SP" 1 "^" 31 4 "^" .1 6 "^" 31 2 "^" .7 3 "^" .99 7 "^" 201 24 "^" 202 24 "^" 201 23 "^" 202 23 "^" 201 22 "^" 202 22 "^" 0 16 "^" 200 20 "^" 202 11 "^" 202 10 "^" 25 2 "^" "VERD" 5 "^" "VER" 9 "^" .1 8 "^" .1 12 "^" .1 17 "^" .1 7 "^" 200.1 15 "^" 0 19 80 new data,i,node set {SPD_COMMENTS}="" merge data=^SRF({S1},80) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SPD_COMMENTS}={SPD_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} 9 new data,i,node set {SPECIMENS}="" merge data=^SRF({S1},9) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SPECIMENS}={SPECIMENS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 1.1 4 "^" 25 1 "^" 25 4 "^" .1 3 "^" 211 24 "^" 200 47 "^" 211 3 "^" 208 8 "^" 205 21 "^" 205 6 12 new data,i,node set {SURGEONS_DICTATION}="" merge data=^SRF({S1},12) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {SURGEONS_DICTATION}={SURGEONS_DICTATION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "VER1" 11 "^" "VER1" 13 "^" "VER1" 23 "^" "VER1" 25 "^" 209 15 "^" 209 17 "^" .5 3 "^" 0 4 "^" 208 13 "^" .2 9 "^" "1.0" 10 "^" 205 42 "^" 205 35 "^" .6 12 "^" .6 9 "^" 31 3 "^" .2 2 "^" .2 3 "^" "VER" 3 82 new data,i,node set {TIME_OUT_VERIFIED_COMMENTS}="" merge data=^SRF({S1},82) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {TIME_OUT_VERIFIED_COMMENTS}={TIME_OUT_VERIFIED_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" .2 15 "^" .2 10 "^" .2 12 "^" "NON" 4 "^" "NON" 5 "^" "TIU" 4 "^" "TIU" 2 "^" "TIU" 1 "^" "TIU" 3 "^" 209 11 "^" 200.1 9 "^" 200.1 10 "^" 201 26 "^" 202 26 "^" 206 37 "^" 206 36 "^" .2 16 "^" "VERD" 3 "^" 206 39 "^" 208 11 "^" 200 50 "^" .1 1 "^" 207 5 "^" 3 1 "^" 200 29 "^" .99 1 "^" "VER1" 22 "^" 211 40 "^" "VER1" 2 "^" 205 11 "^" 205 18 "^" 205 15 "^" .98 4 "^" 207 6 "^" 200 40 "^" 211 41 "^" 200 10 "^" .98 1 "^" .5 12 "^" 0 15 "^" 207 13 "^" 31 11 "^" 206 2 "^" 200 48 "^" "1.0" 8 "^" 205 8 "^" 205 5 "^" 25 7 53 new data,i,node set {WOUND_SWEEP_COMMENTS}="" merge data=^SRF({S1},53) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {WOUND_SWEEP_COMMENTS}={WOUND_SWEEP_COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 205 41 "^" 205 2 "^" 19900000 4 "^" 19900000 6 "^" 19900000 7 "^" 19900000 5 "^" 19900000 3 "^" 19900000 2 "^" 19900000 1 Generated class for FileMan File Number: '135' File Name: 'SURGERY CANCELLATION REASON' Class generated by %fm2class version 2.56 This file contains reasons for cancelling a scheduled operative procedure. It is pointed to by the CANCEL REASON field in the Surgery file. The Surgery Cancellation Reason file is distributed with pre-supplied entries, however sites may wish to add to it. persistent _PUBLIC 0 RowId SURGERY_CANCELLATION_REASON_135 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.630831916 67178,44735.763606972 right SURGERY CANCELLATION REASON 135 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'AVOIDABLE' FileMan Field Number: '2' Avoidable This field will be used as the default for the CANCELLATION AVOIDABLE field in the SURGERY file (130). %Library.EnumString 5 AVOIDABLE FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the cancellation reason. %Library.String 1 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(135,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to inactivate this entry to prevent its selection by Surgery users. %Library.EnumString 6 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name of Cancellation Reason This is the name of the cancellation reason. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(135," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(135,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(135,"+1,",1)={"CODE"} set:{AVOIDABLE}'="" FDA(135,"+1,",2)={"AVOIDABLE"} set:{INACTIVE}'="" FDA(135,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(135)") set %SkipFiling=1 if $d(%FMERR(135,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(135,IENS,.01)={NAME} set:{CODE*C} FDA(135,IENS,1)={CODE} set:{AVOIDABLE*C} FDA(135,IENS,2)={AVOIDABLE} set:{INACTIVE*C} FDA(135,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(135)") set %SkipFiling=1 if $d(%FMERR(135,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(135)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SURGERYCANC8388S index ^SRO nonnull 135 "B" {NAME} {IEN} 0]]> index ^SRO nonnull 135 "C" {CODE} {IEN} 0]]> data ^SRO 135 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 4 "^" 0 1 Generated class for FileMan File Number: '131.6' File Name: 'SURGERY DISPOSITION' Class generated by %fm2class version 2.56 This file contains entries describing the destination of the patient upon completion of the procedure: requested disposition, postoperative disposition or post-anesthesia care disposition. persistent _PUBLIC 0 RowId SURGERY_DISPOSITION_131_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.656194793 67178,44735.810208293 right SURGERY DISPOSITION 131.6 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Disposition Code This optional code is used to facilitate disposition selection and lookup. %Library.String 4 CODE FileMan Field Label: 'DISPOSITION' FileMan Field Number: '.01' Disposition Name This is the name of the surgery disposition. %Library.String 1 3 DISPOSITION Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(131.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '2' Inactive? Enter 'YES' to inactivate this file entry and to prevent its selection by Surgery users. %Library.EnumString 5 INACTIVE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(131.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DISPOSITION}'="" FDA(131.6,"+1,",.01)={"DISPOSITION"} set:{CODE}'="" FDA(131.6,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(131.6,"+1,",2)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(131.6)") set %SkipFiling=1 if $d(%FMERR(131.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(131.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DISPOSITION*C} FDA(131.6,IENS,.01)={DISPOSITION} set:{CODE*C} FDA(131.6,IENS,1)={CODE} set:{INACTIVE*C} FDA(131.6,IENS,2)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(131.6)") set %SkipFiling=1 if $d(%FMERR(131.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(131.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SURGERYDISP854DS index ^SRO nonnull 131.6 "B" {DISPOSITION} {IEN} 0]]> index ^SRO nonnull 131.6 "C" {CODE} {IEN} 0]]> data ^SRO 131.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '132' File Name: 'SURGERY POSITION' Class generated by %fm2class version 2.56 This file contains the various positions that a patient may be in during an operation. It is pointed to by the SURGERY POSITION field in the Surgery file. The file is distributed with pre-supplied entries, however sites may wish to make additions to it. persistent _PUBLIC 0 RowId SURGERY_POSITION_132 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.65869129 67178,44735.855938272 right SURGERY POSITION 132 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '5' Code This is the code corresponding to the name of the Surgery Position. %Library.String 5 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(132,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to inactivate this file entry and to prevent its selection by Surgery users. %Library.EnumString 6 INACTIVE FileMan Field Label: '*MAJOR POSITION' FileMan Field Number: '4' This field has been marked for deletion in the next release of the Surgery software. %Library.String 4 MAJOR_POSITION FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name of Surgery Position This is the name of the Surgery Position. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 7 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(132," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(132,"+1,",.01)={"NAME"} set:{MAJOR_POSITION}'="" FDA(132,"+1,",4)={"MAJOR_POSITION"} set:{CODE}'="" FDA(132,"+1,",5)={"CODE"} set:{INACTIVE}'="" FDA(132,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(132)") set %SkipFiling=1 if $d(%FMERR(132,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(132,IENS,.01)={NAME} set:{MAJOR_POSITION*C} FDA(132,IENS,4)={MAJOR_POSITION} set:{CODE*C} FDA(132,IENS,5)={CODE} set:{INACTIVE*C} FDA(132,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(132)") set %SkipFiling=1 if $d(%FMERR(132,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(132)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SURGERYPOSIEDA9S index {NAME}'="" 1 ^SRO conditional 132 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^SRO 132 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 4 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '131.01' File Name: 'SURGERY TRANSPORTATION DEVICES' Class generated by %fm2class version 2.56 This file contains devices used to transport the patient to and from the operating room. The file will be distributed with data which should not be altered, however sites may wish to add entries to this file. persistent _PUBLIC 0 RowId SURGERY_TRANSPORTATION_DEVICES_131_01 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.681370791 67178,44735.902445175 right SURGERY TRANSPORTATION DEVICES 131.01 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '1' Code This is the code corresponding to the device used to transport the patient to and from the Operating Room. %Library.String 4 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^SRO(131.01,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE?' FileMan Field Number: '10' Inactive? Enter 'YES' to inactivate this entry to prevent its selection by Surgery users. %Library.EnumString 5 INACTIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' Transportation Device This is the name of the device used to transport the patient to and from the Operating Room. Although this field is optional, it may be helpful in documentation of the case. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SRO(131.01," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(131.01,"+1,",.01)={"NAME"} set:{CODE}'="" FDA(131.01,"+1,",1)={"CODE"} set:{INACTIVE}'="" FDA(131.01,"+1,",10)={"INACTIVE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(131.01)") set %SkipFiling=1 if $d(%FMERR(131.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(131.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(131.01,IENS,.01)={NAME} set:{CODE*C} FDA(131.01,IENS,1)={CODE} set:{INACTIVE*C} FDA(131.01,IENS,10)={INACTIVE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(131.01)") set %SkipFiling=1 if $d(%FMERR(131.01,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(131.01)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SURGERYTRANS64ES index ^SRO nonnull 131.01 "B" {NAME} {IEN} 0]]> index ^SRO nonnull 131.01 "C" {CODE} {IEN} 0]]> data ^SRO 131.01 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 1 Generated class for FileMan File Number: '45.3' File Name: 'SURGICAL SPECIALTY' Class generated by %fm2class version 2.56 The file contains the list of official codes that can be used when coding a surgical procedeure for a PTF record. persistent _PUBLIC 0 RowId SURGICAL_SPECIALTY_45_3 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.686087281 67178,44735.948580658 right SURGICAL SPECIALTY 45.3 2.56 12/04/2024 12:25:35 1 1 IEN 1 FileMan Field Label: 'CODE' FileMan Field Number: '.01' This field contains the code for the surgical specialty. The code is a number between 48 and 62, or 78. %Library.Numeric 1 3 CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(45.3,0),""^"",3)") 1 2 IEN FileMan Field Label: 'SPECIALTY' FileMan Field Number: '1' This field contain the description of the surgical specialty. The field contains between 3 and 40 characters. %Library.String 1 4 SPECIALTY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(45.3," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{CODE}'="" FDA(45.3,"+1,",.01)={"CODE"} set:{SPECIALTY}'="" FDA(45.3,"+1,",1)={"SPECIALTY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(45.3)") set %SkipFiling=1 if $d(%FMERR(45.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(45.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{CODE*C} FDA(45.3,IENS,.01)={CODE} set:{SPECIALTY*C} FDA(45.3,IENS,1)={SPECIALTY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(45.3)") set %SkipFiling=1 if $d(%FMERR(45.3,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(45.3)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SURGICALSPE82A0S index ^DIC nonnull 45.3 "B" {CODE} {IEN} 0]]> index {SPECIALTY}'="" 1 ^DIC conditional 45.3 "C" $$TRUNCATE({SPECIALTY},30)) {IEN} 0]]> data ^DIC 45.3 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '699.86' File Name: 'SURVEILLANCE' Class generated by %fm2class version 2.56 Stores the type of surveillance for use by GI/Pulmonary modules. persistent _PUBLIC 0 RowId SURVEILLANCE_699_86 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.704464289 67178,44735.994256731 right SURVEILLANCE 699.86 2.56 12/04/2024 12:25:35 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(699.86,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies a list of possible surveillances which can be used as an indication for procedure for GI Endoscopies. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(699.86," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(699.86,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(699.86)") set %SkipFiling=1 if $d(%FMERR(699.86,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.86)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(699.86,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(699.86)") set %SkipFiling=1 if $d(%FMERR(699.86,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(699.86)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.SURVEILLANC84B2S index ^MCAR nonnull 699.86 "B" {NAME} {IEN} 0]]> data ^MCAR 699.86 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '695.5' File Name: 'SYMPTOM' Class generated by %fm2class version 2.56 This file stores the various symptoms associated with the various medical procedures. persistent _PUBLIC 0 RowId SYMPTOM_695_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.710816551 67178,44736.039675827 right SYMPTOM 695.5 2.56 12/04/2024 12:25:36 1 1 IEN 1 FUNCTION_FIELD_61_3]]> FUNCTIONFIELD VALIP.prosthetic.fm2cw.FUNCTIONFIELD613 FKey_FUNCTION_FIELD FileMan Field Label: 'FUNCTION FIELD' FileMan Field Number: '1' This field identifies a link to the Laboratory Function Field file. VALIP.prosthetic.fm2cw.FUNCTIONFIELD613 4 FUNCTION_FIELD NAME The name of the function.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.SYMPTOM_695_5 where %ID=:id) set {FUNCTION_FIELD_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FUNCTION_FIELD_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(695.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field identifies a list of symptoms for various areas of Medicine. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name MEDICAL USE child VALIP.prosthetic.fm2cw.SUBMEDICALUSE69552 children SYMPTOM6955 1 SUB_MEDICAL_USE_695_52 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(695.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(695.5,"+1,",.01)={"NAME"} set:{FUNCTION_FIELD}'="" FDA(695.5,"+1,",1)={"FUNCTION_FIELD"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(695.5)") set %SkipFiling=1 if $d(%FMERR(695.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(695.5,IENS,.01)={NAME} set:{FUNCTION_FIELD*C} FDA(695.5,IENS,1)={FUNCTION_FIELD} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(695.5)") set %SkipFiling=1 if $d(%FMERR(695.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(695.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.SYMPTOM6955S index ^MCAR nonnull 695.5 "B" {NAME} {IEN} 0]]> data ^MCAR 695.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '404.51' File Name: 'TEAM' Class generated by %fm2class version 2.56 This is a local table file containing the site's names for teams. persistent _PUBLIC 0 RowId TEAM_404_51 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.719843599 67178,44736.088144516 right TEAM 404.51 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'AUTO-ASSIGN FROM ASSC CLINICS?' FileMan Field Number: '.11' By answering 'YES', enrollment into clinics that are associated clinics of active positions will result in the patient being assigned to this team. If the clinic is associated with more than one team, no assignment will be done. %Library.EnumString 9 AUTOASSIGN_FROM_ASSC_CLINICS FileMan Field Label: 'CAN ACT AS A PC TEAM?' FileMan Field Number: '.05' Can this team be the primary care team for a patient? (Even if the team's principle purpose is not primary care, it still maybe able act as a primary care team for some patients. This attribute indicates if that is possible.) %Library.EnumString 5 CAN_ACT_AS_A_PC_TEAM FileMan Field Label: 'CLOSE TO FURTHER ASSIGNMENT?' FileMan Field Number: '.1' This indicates that the team cannot be assigned additional patients. This may be used for any reason. %Library.EnumString 8 CLOSE_TO_FURTHER_ASSIGNMENT FileMan Field Label: 'CURRENT ACTIVATION DATE' FileMan Field Number: '204' This is the activation date of the team based on today's date: For teams never active - this is the next date where the team is active For teams that are active now - this is the date it became active For teams that are currently inactive - this is the last activation date %Library.String 1 16 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) N Y S Y=$P($$DATES^SCAPMCU1(404.58,D0,DT),U,2) D DD^%DT S X=Y set {CURRENT_ACTIVATION_DATE}=X 1 CURRENT_ACTIVATION_DATE FileMan Field Label: 'CURRENT EFFECTIVE DATE' FileMan Field Number: '203' This is the most recent date that the active status was changed. %Library.String 1 15 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) N Y S Y=$P($$ACTTM^SCMCTMU(D0),U,2) D DD^%DT S X=Y set {CURRENT_EFFECTIVE_DATE}=X 1 CURRENT_EFFECTIVE_DATE FileMan Field Label: 'CURRENT INACTIVATION DATE' FileMan Field Number: '205' This is the inactivation date as of today. For an inactive team, this is the most recent day it became inactive For an active team, this is the date it will become inactive. %Library.String 1 17 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) N Y S Y=$P($$DATES^SCAPMCU1(404.58,D0,DT),U,3) D DD^%DT S X=Y set {CURRENT_INACTIVATION_DATE}=X 1 CURRENT_INACTIVATION_DATE FileMan Field Label: 'CURRENT STATUS' FileMan Field Number: '202' This indicates if the team is active on the current date. %Library.String 1 14 set U="^",D0=$piece({RowId},"||",1) S X=$S((+$$ACTTM^SCMCTMU(D0)=1):"Active",1:"Inactive") set {CURRENT_STATUS}=X 1 CURRENT_STATUS FileMan Field Label: 'CURRENT # OF PATIENTS' FileMan Field Number: '201' This calculates the number of patients currently assigned to the team. %Library.String 1 13 set U="^",X=$zdate(+$h),%DT="X" do ^%DT set DT=Y,D0=$piece({RowId},"||",1) S X=$$TEAMCNT^SCAPMCU1(D0,DT) set {CURRENT__OF_PATIENTS}=X 1 CURRENT__OF_PATIENTS FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '50' %Library.String 12 DESCRIPTION FileMan Field Label: 'DISCHARGE FROM ASSOC. CLINICS?' FileMan Field Number: '.12' By answering 'YES', changes in enrollment data that leaves a patient discharged from a clinic will result in the patient being automatically discharged from the team. If the patient has any active or future assignments to team positions, the patient will not be discharged from the team. %Library.EnumString 10 DISCHARGE_FROM_ASSOC__CLINICS Internal Entry Number %Library.String $$next^%apiSQL("$p(^SCTM(404.51,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MAX NUMBER OF PATIENTS' FileMan Field Number: '.08' The maximum allowable number of patients for this team. After this number is exceeded, no more patients should be assigned to this team. %Library.Numeric 6 MAX_NUMBER_OF_PATIENTS FileMan Field Label: 'MAX % OF PRIMARY CARE PATIENTS' FileMan Field Number: '.09' This is the maximum percentage of all patients assigned to primary care teams that this team should be assigned. %Library.Numeric 7 MAX__OF_PRIMARY_CARE_PATIENTS FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 3 NAME FileMan Field Label: 'RESTRICT CONSULTS?' FileMan Field Number: '.13' This attribute prevents users from making consult appointments to clinics in which the patient is not enrolled. This parameter in the Patient Team/Position Assignment file overrides this same parameter in the team level. (Applies to on primary teams only.) %Library.EnumString 11 RESTRICT_CONSULTS FileMan Field Label: 'TEAM PHONE NUMBER' FileMan Field Number: '.02' This is the phone number associated with the team. %Library.String 4 TEAM_PHONE_NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 18 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^SCTM(404.51," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(404.51,"+1,",.01)={"NAME"} set:{TEAM_PHONE_NUMBER}'="" FDA(404.51,"+1,",.02)={"TEAM_PHONE_NUMBER"} set:{CAN_ACT_AS_A_PC_TEAM}'="" FDA(404.51,"+1,",.05)={"CAN_ACT_AS_A_PC_TEAM"} set:{MAX_NUMBER_OF_PATIENTS}'="" FDA(404.51,"+1,",.08)={"MAX_NUMBER_OF_PATIENTS"} set:{MAX__OF_PRIMARY_CARE_PATIENTS}'="" FDA(404.51,"+1,",.09)={"MAX__OF_PRIMARY_CARE_PATIENTS"} set:{CLOSE_TO_FURTHER_ASSIGNMENT}'="" FDA(404.51,"+1,",.1)={"CLOSE_TO_FURTHER_ASSIGNMENT"} set:{AUTOASSIGN_FROM_ASSC_CLINICS}'="" FDA(404.51,"+1,",.11)={"AUTOASSIGN_FROM_ASSC_CLINICS"} set:{DISCHARGE_FROM_ASSOC__CLINICS}'="" FDA(404.51,"+1,",.12)={"DISCHARGE_FROM_ASSOC__CLINICS"} set:{RESTRICT_CONSULTS}'="" FDA(404.51,"+1,",.13)={"RESTRICT_CONSULTS"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(404.51)") set %SkipFiling=1 if $d(%FMERR(404.51,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(404.51)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(404.51,{RowId},50,,"wp","%FMERR(404.51)") if $d(%FMERR(404.51,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(404.51)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(404.51,IENS,.01)={NAME} set:{TEAM_PHONE_NUMBER*C} FDA(404.51,IENS,.02)={TEAM_PHONE_NUMBER} set:{CAN_ACT_AS_A_PC_TEAM*C} FDA(404.51,IENS,.05)={CAN_ACT_AS_A_PC_TEAM} set:{MAX_NUMBER_OF_PATIENTS*C} FDA(404.51,IENS,.08)={MAX_NUMBER_OF_PATIENTS} set:{MAX__OF_PRIMARY_CARE_PATIENTS*C} FDA(404.51,IENS,.09)={MAX__OF_PRIMARY_CARE_PATIENTS} set:{CLOSE_TO_FURTHER_ASSIGNMENT*C} FDA(404.51,IENS,.1)={CLOSE_TO_FURTHER_ASSIGNMENT} set:{AUTOASSIGN_FROM_ASSC_CLINICS*C} FDA(404.51,IENS,.11)={AUTOASSIGN_FROM_ASSC_CLINICS} set:{DISCHARGE_FROM_ASSOC__CLINICS*C} FDA(404.51,IENS,.12)={DISCHARGE_FROM_ASSOC__CLINICS} set:{RESTRICT_CONSULTS*C} FDA(404.51,IENS,.13)={RESTRICT_CONSULTS} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(404.51)") set %SkipFiling=1 if $d(%FMERR(404.51,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(404.51)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(404.51,{RowId},50,,wproot,"%FMERR(404.51)") if $d(%FMERR(404.51,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(404.51)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.TEAM40451S index ^SCTM nonnull 404.51 "B" {NAME} {IEN} 0]]> data ^SCTM 404.51 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 11 "^" 0 5 "^" 0 10 "D" new data,i,node set {DESCRIPTION}="" merge data=^SCTM(404.51,{S2},"D") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 12 "^" 0 8 "^" 0 9 "^" 0 1 "^" 0 13 "^" 0 2 Generated class for FileMan File Number: '3.2' File Name: 'TERMINAL TYPE' Class generated by %fm2class version 2.56 This file is pointed to by the Subtype field of the Device File. This file may hold vendor-specific code to characterize a terminal type. For example, escape sequences may be entered in the Open and Close Execute fields to set pitch or font. This file is also pointed to by the New Person File to record sign-on subtype characteristics by user. Data is distributed with this file to support screens handling capabilities. This data will overwrite existing data for those terminal types of the same name. However, terminal types for printers will not be affected since the data that is distributed is for a subset of known CRTs. The Kernel Virgin Install distribution will seed a more complete set of terminal types including those for printers as well as CRTs. However, the Kernel Virgin Install should only be performed once and only on a system where there is no pre-existing Kernel. The data in this file is cross-referenced by name and synonym. persistent _PUBLIC 0 RowId TERMINAL_TYPE_3_2 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.822710193 67178,44736.137951097 right TERMINAL TYPE 3.2 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'ANSWERBACK LOGIC' FileMan Field Number: '102' This is Xecutable MUMPS code which will set the $T switch to "TRUE" (i.e. 1) if this terminal is On-Line. %Library.String 1 139 s {ANSWERBACK_LOGIC}=$e({NODE_102},1,245) 1 ANSWERBACK_LOGIC FileMan Field Label: 'ARROW KEY STRING LENGTH' FileMan Field Number: '44' The value that should be entered into this field should be the number of characters produced by depressing an arrow key. %Library.Numeric 68 ARROW_KEY_STRING_LENGTH FileMan Field Label: 'AUTO REPEAT OFF' FileMan Field Number: '78' This is the argument of a MUMPS WRITE statement that will disable repeat mode. %Library.String 126 AUTO_REPEAT_OFF FileMan Field Label: 'AUTO REPEAT ON' FileMan Field Number: '77' This is the argument of a MUMPS WRITE statement that will cause characters to automatically repeat when keys are depressed and held in the down position. %Library.String 125 AUTO_REPEAT_ON FileMan Field Label: 'AUTO WRAP OFF' FileMan Field Number: '76' This is the argument of a MUMPS WRITE statement that will cause truncation of text that exceeds the right margin limit. %Library.String 124 AUTO_WRAP_OFF FileMan Field Label: 'AUTO WRAP ON' FileMan Field Number: '75' This is the argument of a MUMPS WRITE statement that will cause characters to wrap to the next line when the right margin has been exceeded. %Library.String 123 AUTO_WRAP_ON FileMan Field Label: 'BACK SPACE' FileMan Field Number: '4' The argument of a MUMPS WRITE statement which will cause the cursor to Back-Space. %Library.String 8 BACK_SPACE FileMan Field Label: 'BAR CODE OFF' FileMan Field Number: '61' The argument of a MUMPS WRITE statement that will turn off bar code printing mode of a device. %Library.String 1 84 s {BAR_CODE_OFF}=$e({NODE_BAR0},1,245) 1 BAR_CODE_OFF FileMan Field Label: 'BAR CODE ON' FileMan Field Number: '60' The argument of a MUMPS WRITE statement that will turn on bar code printing mode of a device. %Library.String 1 82 s {BAR_CODE_ON}=$e({NODE_BAR1},1,245) 1 BAR_CODE_ON FileMan Field Label: 'BLINK OFF' FileMan Field Number: '19' The argument of a MUMPS WRITE statement which will turn OFF blinking for a CRT. %Library.String 44 BLINK_OFF FileMan Field Label: 'BLINK ON' FileMan Field Number: '18' The argument of a MUMPS WRITE statement which will turn ON blinking for a CRT. %Library.String 43 BLINK_ON FileMan Field Label: 'BOTTOM LEFT CORNER' FileMan Field Number: '69.12' The argument of a MUMPS WRITE statement used to produce the BOTTOM LEFT CORNER of a window in graphics mode. %Library.String 108 BOTTOM_LEFT_CORNER FileMan Field Label: 'BOTTOM RIGHT CORNER' FileMan Field Number: '69.14' The argument of a MUMPS WRITE statement used to produce the BOTTOM RIGHT CORNER of a window in graphics mode. %Library.String 110 BOTTOM_RIGHT_CORNER FileMan Field Label: 'BOTTOM T' FileMan Field Number: '69.4' The argument of a MUMPS WRITE statement used to produce the perpendicular intersection of lines at the BOTTOM middle of a four box window. %Library.String 113 BOTTOM_T FileMan Field Label: 'CLEAR ALL TABS' FileMan Field Number: '82' This is the argument of a MUMPS WRITE statement that will clear all tab settings. %Library.String 131 CLEAR_ALL_TABS FileMan Field Label: 'CLOSE EXECUTE' FileMan Field Number: '7' This is the Xecutable MUMPS code which is used to CLOSE the terminal, i.e. X ^%ZIS("C"). %Library.String 1 16 s {CLOSE_EXECUTE}=$e({NODE_3},1,245) 1 CLOSE_EXECUTE FileMan Field Label: 'CLOSE PRINTER PORT' FileMan Field Number: '111' This is Xecutable MUMPS code which will CLOSE this terminal's printer port. %Library.String 1 144 s {CLOSE_PRINTER_PORT}=$e({NODE_11},1,245) 1 CLOSE_PRINTER_PORT FileMan Field Label: 'COLOR OFF' FileMan Field Number: '67.22' The argument of a MUMPS WRITE statement used to turn off COLOR on the printer. %Library.String 1 102 s {COLOR_OFF}=$e({NODE_CLR0},1,245) 1 COLOR_OFF FileMan Field Label: 'COLOR ON' FileMan Field Number: '67.21' The argument of a MUMPS WRITE statement used to turn on COLOR on the printer. %Library.String 1 100 s {COLOR_ON}=$e({NODE_CLR1},1,245) 1 COLOR_ON FileMan Field Label: 'COMMA' FileMan Field Number: '135' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the ',' key on the keypad. %Library.String 161 COMMA FileMan Field Label: 'CURSOR DOWN' FileMan Field Number: '41' This is the argument of a MUMPS WRITE statement that will indicate downward movement of the cursor. %Library.String 65 CURSOR_DOWN FileMan Field Label: 'CURSOR LEFT' FileMan Field Number: '43' This is the argument of a MUMPS WRITE statement that will indicate cursor movement to the left. %Library.String 67 CURSOR_LEFT FileMan Field Label: 'CURSOR OFF' FileMan Field Number: '49.1' %Library.String 74 CURSOR_OFF FileMan Field Label: 'CURSOR ON' FileMan Field Number: '49' %Library.String 73 CURSOR_ON FileMan Field Label: 'CURSOR RIGHT' FileMan Field Number: '42' This is the argument of a MUMPS WRITE statement that will indicate cursor movement to the right. %Library.String 66 CURSOR_RIGHT FileMan Field Label: 'CURSOR UP' FileMan Field Number: '40' This is the argument of a MUMPS WRITE statement that will indicate upward movement of the cursor. %Library.String 64 CURSOR_UP FileMan Field Label: 'DEFAULT FONT CODE' FileMan Field Number: '201' The argument of a MUMPS WRITE statement that will turn on the default font. %Library.String 1 174 s {DEFAULT_FONT_CODE}=$e({NODE_201},1,245) 1 DEFAULT_FONT_CODE FileMan Field Label: 'DEFAULT FONT TITLE' FileMan Field Number: '200' Name of the default font. %Library.String 172 DEFAULT_FONT_TITLE FileMan Field Label: 'DEFAULT LINES PER INCH' FileMan Field Number: '12.15' The argument of a MUMPS WRITE statement that will set the printer to the default lines per inch. %Library.String 1 32 s {DEFAULT_LINES_PER_INCH}=$e({NODE_12_15},1,245) 1 DEFAULT_LINES_PER_INCH FileMan Field Label: 'DEFAULT PITCH' FileMan Field Number: '12.11' The argument of a MUMPS WRITE statement that will set a printer to a default pitch. %Library.String 1 24 s {DEFAULT_PITCH}=$e({NODE_12_11},1,245) 1 DEFAULT_PITCH FileMan Field Label: 'DELETE CHAR.' FileMan Field Number: '47' This is the argument of a MUMPS WRITE statement that will indicate deletion of a single character. %Library.String 71 DELETE_CHAR_ FileMan Field Label: 'DELETE LINE' FileMan Field Number: '45' This is the argument of a MUMPS WRITE statement that will indicate deletion of an entire line. %Library.String 69 DELETE_LINE FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '99' This is a brief description of this type of terminal. %Library.String 137 DESCRIPTION FileMan Field Label: 'DO' FileMan Field Number: '147' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'DO' key on the keyboard. %Library.String 171 DO FileMan Field Label: 'DOUBLE HIGH DOUBLE WIDE BOTTOM' FileMan Field Number: '86' This is the argument of a MUMPS WRITE statement that will display the bottom half portion of the current line with each character at double height and double wide. This argument must be used in pairs with DOULBE HIGH DOUBLE WIDE TOP on adjacent lines with the same character output. %Library.String 134 DOUBLE_HIGH_DOUBLE_WIDE_BOTTOM FileMan Field Label: 'DOUBLE HIGH DOUBLE WIDE TOP' FileMan Field Number: '85' This is the argument of a MUMPS WRITE statement that will display the top half portion of the current line with each character at double height and double wide. This argument must be used in pairs with DOUBLE HIGH DOUBLE WIDE BOTTOM on adjacent lines with the same character output. %Library.String 133 DOUBLE_HIGH_DOUBLE_WIDE_TOP FileMan Field Label: 'DUPLEX, LONG EDGE BINDING' FileMan Field Number: '1002' This should be used when printing double sided forms that will be bound at the side such as forms to be put in a binder. %Library.String 191 DUPLEX_LONG_EDGE_BINDING FileMan Field Label: 'DUPLEX, SHORT EDGE BINDING' FileMan Field Number: '1003' This should be used when printing double sided forms that will be bound at the top, such as forms to be put in a medical record. %Library.String 192 DUPLEX_SHORT_EDGE_BINDING FileMan Field Label: 'ENTER' FileMan Field Number: '136' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'ENTER' key on the keypad. %Library.String 162 ENTER FileMan Field Label: 'ERASE CHARACTER' FileMan Field Number: '36' This is the argument of a MUMPS WRITE statement that will indicate erasing of a single character. %Library.String 62 ERASE_CHARACTER FileMan Field Label: 'ERASE ENTIRE LINE' FileMan Field Number: '35' This is the argument of a MUMPS WRITE statement that will indicate erasing the entire line. %Library.String 61 ERASE_ENTIRE_LINE FileMan Field Label: 'ERASE ENTIRE PAGE' FileMan Field Number: '33' This is the argument of a MUMPS WRITE statement that will indicate erasing the entire page. %Library.String 59 ERASE_ENTIRE_PAGE FileMan Field Label: 'ERASE FIELD' FileMan Field Number: '37' This is the argument of a MUMPS WRITE statement that will indicate the erasing of a field given the length of the field in varariable X. %Library.String 63 ERASE_FIELD FileMan Field Label: 'ERASE FROM BEG OF LINE' FileMan Field Number: '34' This is the argument of a MUMPS WRITE statement that will indicate erasing from the beginning of a line. %Library.String 60 ERASE_FROM_BEG_OF_LINE FileMan Field Label: 'ERASE FROM BEG OF PAGE' FileMan Field Number: '32' This is the argument of a MUMPS WRITE statement that will indicate erasing from the beginning of the page. %Library.String 58 ERASE_FROM_BEG_OF_PAGE FileMan Field Label: 'ERASE TO END OF LINE' FileMan Field Number: '16' The argument of a MUMPS WRITE statement which will erase from the cursor to the end of the line on a CRT. %Library.String 41 ERASE_TO_END_OF_LINE FileMan Field Label: 'ERASE TO END OF PAGE' FileMan Field Number: '17' The argument of a MUMPS WRITE statement which will erase from the cursor to the end of the page on a CRT. Doing a HOME CURSOR followed by an ERASE TO END OF PAGE will erase the entire display. %Library.String 42 ERASE_TO_END_OF_PAGE FileMan Field Label: '10 PITCH' FileMan Field Number: '10' The argument of a MUMPS WRITE statement that will set a printer to 10 pitch. %Library.String 19 f10_PITCH FileMan Field Label: '12 PITCH' FileMan Field Number: '12' The argument of a MUMPS WRITE statement that will set a printer to 12 pitch. %Library.String 20 f12_PITCH FileMan Field Label: '16 PITCH' FileMan Field Number: '12.1' The argument of a MUMPS WRITE statement that will set a printer to 16 pitch. %Library.String 1 22 s {f16_PITCH}=$e({NODE_12_1},1,250) 1 f16_PITCH FileMan Field Label: '6 LINES PER INCH' FileMan Field Number: '12.13' The argument of a MUMPS WRITE statement that will set a printer to 6 lines per inch. %Library.String 1 28 s {f6_LINES_PER_INCH}=$e({NODE_12_13},1,245) 1 f6_LINES_PER_INCH FileMan Field Label: '8 LINES PER INCH' FileMan Field Number: '12.14' The argument of a MUMPS WRITE statement that will set the printer to 8 lines per inch. %Library.String 1 30 s {f8_LINES_PER_INCH}=$e({NODE_12_14},1,245) 1 f8_LINES_PER_INCH FileMan Field Label: 'FIND' FileMan Field Number: '140' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'FIND' key on the keyboard. %Library.String 164 FIND FileMan Field Label: 'FONT NUMBER 1 CODE' FileMan Field Number: '203' The argument of a MUMPS WRITE statement that will turn on the specified font. %Library.String 1 177 s {FONT_NUMBER_1_CODE}=$e({NODE_203},1,245) 1 FONT_NUMBER_1_CODE FileMan Field Label: 'FONT NUMBER 1 TITLE' FileMan Field Number: '202' Name of font #1 %Library.String 175 FONT_NUMBER_1_TITLE FileMan Field Label: 'FONT NUMBER 2 CODE' FileMan Field Number: '205' The argument of a MUMPS WRITE statement that will turn on the specified font. %Library.String 1 180 s {FONT_NUMBER_2_CODE}=$e({NODE_205},1,245) 1 FONT_NUMBER_2_CODE FileMan Field Label: 'FONT NUMBER 2 TITLE' FileMan Field Number: '204' Name of font #2 %Library.String 178 FONT_NUMBER_2_TITLE FileMan Field Label: 'FONT NUMBER 3 CODE' FileMan Field Number: '207' The argument of a MUMPS WRITE statement that will turn on the specified font. %Library.String 1 183 s {FONT_NUMBER_3_CODE}=$e({NODE_207},1,245) 1 FONT_NUMBER_3_CODE FileMan Field Label: 'FONT NUMBER 3 TITLE' FileMan Field Number: '206' Name of font #3 %Library.String 181 FONT_NUMBER_3_TITLE FileMan Field Label: 'FONT NUMBER 4 CODE' FileMan Field Number: '209' The argument of a MUMPS WRITE statement that will turn on the specified font. %Library.String 1 186 s {FONT_NUMBER_4_CODE}=$e({NODE_209},1,245) 1 FONT_NUMBER_4_CODE FileMan Field Label: 'FONT NUMBER 4 TITLE' FileMan Field Number: '208' Name of font #4 %Library.String 184 FONT_NUMBER_4_TITLE FileMan Field Label: 'FONT NUMBER 5 CODE' FileMan Field Number: '211' The argument of a MUMPS WRITE statement that will turn on the specified font. %Library.String 1 189 s {FONT_NUMBER_5_CODE}=$e({NODE_211},1,245) 1 FONT_NUMBER_5_CODE FileMan Field Label: 'FONT NUMBER 5 TITLE' FileMan Field Number: '210' Name of font #5 %Library.String 187 FONT_NUMBER_5_TITLE FileMan Field Label: 'FORM FEED' FileMan Field Number: '2' The argument of a MUMPS WRITE statement that will set the top-of-form for the use of tractor-feed paper on a printer, or will clear the screen of a video display terminal. %Library.String 6 FORM_FEED FileMan Field Label: 'GRAPHICS OFF' FileMan Field Number: '69' The argument of a MUMPS WRITE statement used to turn off GRAPHICS mode on the printer. %Library.String 1 106 s {GRAPHICS_OFF}=$e({NODE_G0},1,245) 1 GRAPHICS_OFF FileMan Field Label: 'GRAPHICS ON' FileMan Field Number: '68' The argument of a MUMPS WRITE statement used to turn on GRAPHICS mode on the printer. %Library.String 1 104 s {GRAPHICS_ON}=$e({NODE_G1},1,245) 1 GRAPHICS_ON FileMan Field Label: 'HALF DOWN' FileMan Field Number: '22' The argument of a MUMPS WRITE statement that will move the print head one-half line down (for subscripts). %Library.String 48 HALF_DOWN FileMan Field Label: 'HALF UP' FileMan Field Number: '21' The argument of a MUMPS WRITE statement that will move the print head one-half line up (for superscripts). %Library.String 47 HALF_UP FileMan Field Label: 'HELP' FileMan Field Number: '146' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'HELP' key on the keyboard. %Library.String 170 HELP FileMan Field Label: 'HIGH INTENSITY (BOLD)' FileMan Field Number: '27' The argument of a MUMPS WRITE statement that will turn ON high intensity for a CRT. This is also used to hold the code to set a printer to BOLD or emphasize print. %Library.String 53 HIGH_INTENSITY_BOLD FileMan Field Label: 'HOME CURSOR' FileMan Field Number: '13' The argument of a MUMPS WRITE statement that will move the cursor to the Home position of this terminal. %Library.String 38 HOME_CURSOR FileMan Field Label: 'HORIZONTAL LINE' FileMan Field Number: '69.8' The argument of a MUMPS WRITE statement used to produce the HORIZONTAL LINE in graphics mode. %Library.String 117 HORIZONTAL_LINE Internal Entry Number %Library.String $$next^%apiSQL("$p(^%ZIS(2,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INDEX' FileMan Field Number: '70' This is the argument of a MUMPS WRITE statement that will cause the active position to move downward one line without changing column position. If the active position is at the bottom of the screen, a scroll up is performed. %Library.String 118 INDEX FileMan Field Label: 'INSERT CHAR.' FileMan Field Number: '48' This is the argument of MUMPS WRITE statement that will indicate insertion of a single character. %Library.String 72 INSERT_CHAR_ FileMan Field Label: 'INSERT HERE' FileMan Field Number: '142' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'INSERT HERE' key on the keyboard. %Library.String 166 INSERT_HERE FileMan Field Label: 'INSERT LINE' FileMan Field Number: '46' This is the argument of a MUMPS WRITE statement that will indicate insertion of an entire line. %Library.String 70 INSERT_LINE FileMan Field Label: 'INSERT MODE' FileMan Field Number: '30' This is the argument of a MUMPS WRITE statement that will indicate insert mode. %Library.String 56 INSERT_MODE FileMan Field Label: 'ITALICS OFF' FileMan Field Number: '67' The argument of a MUMPS WRITE statement used to turn ITALICS on the printer. %Library.String 1 98 s {ITALICS_OFF}=$e({NODE_I0},1,245) 1 ITALICS_OFF FileMan Field Label: 'ITALICS ON' FileMan Field Number: '66' The argument of a MUMPS WRITE statement used to turn on ITALICS on the printer. %Library.String 1 96 s {ITALICS_ON}=$e({NODE_I1},1,245) 1 ITALICS_ON FileMan Field Label: 'KEYPAD APPLICATION MODE' FileMan Field Number: '79' This is the argument of a MUMPS WRITE statement that will toggle the keypad into application mode. %Library.String 127 KEYPAD_APPLICATION_MODE FileMan Field Label: 'KEYPAD NUMERIC MODE' FileMan Field Number: '79.1' This the argument of a MUMPS WRITE statement that will toggle the keypad into numeric mode. %Library.String 128 KEYPAD_NUMERIC_MODE FileMan Field Label: 'KP0' FileMan Field Number: '120' The argument of a MUMPS WRITE statement used to generate the same escape sequence produced by depressing the '0' key of the keypad. %Library.String 146 KP0 FileMan Field Label: 'KP1' FileMan Field Number: '121' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '1' key on the keypad. %Library.String 147 KP1 FileMan Field Label: 'KP2' FileMan Field Number: '122' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '2' key on the keypad. %Library.String 148 KP2 FileMan Field Label: 'KP3' FileMan Field Number: '123' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '3' key on the keypad. %Library.String 149 KP3 FileMan Field Label: 'KP4' FileMan Field Number: '124' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '4' key on the keypad. %Library.String 150 KP4 FileMan Field Label: 'KP5' FileMan Field Number: '125' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '5' key on the keypad. %Library.String 151 KP5 FileMan Field Label: 'KP6' FileMan Field Number: '126' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '6' key on the keypad. %Library.String 152 KP6 FileMan Field Label: 'KP7' FileMan Field Number: '127' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '7' key on the keypad. %Library.String 153 KP7 FileMan Field Label: 'KP8' FileMan Field Number: '128' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '8' key on the keypad. %Library.String 154 KP8 FileMan Field Label: 'KP9' FileMan Field Number: '129' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '9' key on the keypad. %Library.String 155 KP9 FileMan Field Label: 'LEFT T' FileMan Field Number: '69.5' The argument of a MUMPS WRITE statement used to produce the perpendicular intersection of lines at the LEFT middle of a four box window. %Library.String 114 LEFT_T FileMan Field Label: 'LOW INTENSITY (UNBOLD)' FileMan Field Number: '28' The argument of a MUMPS WRITE statement that will turn ON low intensity for a CRT. This is also used to hold the code to set a printer to REGULAR print. %Library.String 54 LOW_INTENSITY_UNBOLD FileMan Field Label: 'MIDDLE T' FileMan Field Number: '69.2' The argument of a MUMPS WRITE statement used to produce the graphics T character that joins a four box window at the middle. %Library.String 111 MIDDLE_T FileMan Field Label: 'MINUS' FileMan Field Number: '134' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '-' key on the keypad. %Library.String 160 MINUS FileMan Field Label: 'MODEM DIAL LOGIC' FileMan Field Number: '50' This is Xecutable MUMPS code which is used whenever MailMan needs to dial a modem. The variable XMPHONE holds the number to be dialed. The variable ER is 0 if the modem dialed successfully; is 1 otherwise. The variable Y, if defined, holds a message about the dial operation, i.e. busy, no answer, etc. %Library.String 1 76 s {MODEM_DIAL_LOGIC}=$e({NODE_50},1,245) 1 MODEM_DIAL_LOGIC FileMan Field Label: 'MODEM HANG UP LOGIC' FileMan Field Number: '51' Executable code to hang up the phone line, if this is a modem This is Xecutable MUMPS code which is used whenever MailMan needs to hang up a modem. Variable ER=0 if sucessful, =1 if not. %Library.String 1 78 s {MODEM_HANG_UP_LOGIC}=$e({NODE_51},1,245) 1 MODEM_HANG_UP_LOGIC FileMan Field Label: 'MODEM STATUS LOGIC' FileMan Field Number: '52' Executable code to return the status of the modem This is Xecutable MUMPS code which is used whenever MailMan needs to check the status of a Modem. The variable Y holds the response. This logic is used by the network diagnostics menu only, and need not be defined if the modem has no self-checking status mode. %Library.String 1 80 s {MODEM_STATUS_LOGIC}=$e({NODE_52},1,200) 1 MODEM_STATUS_LOGIC FileMan Field Label: 'NAME' FileMan Field Number: '.01' Name should be in following form: C- for video terminals PK- for printers with keyboards P- for printers without keyboards M- for modems %Library.String 1 3 NAME FileMan Field Label: 'NEXT LINE' FileMan Field Number: '74' This is the argument of a MUMPS WRITE statement that will transfer the cursor position to the next line. %Library.String 122 NEXT_LINE FileMan Field Label: 'NEXT SCREEN' FileMan Field Number: '145' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'NEXT SCRN' key on the keyboard. %Library.String 169 NEXT_SCREEN Computed Field For Node 10 %Library.String 1 140 s {NODE_10}=$g(^%ZIS(2,{IEN},10)) 1 NODE_10 Computed Field For Node 102 %Library.String 1 138 s {NODE_102}=$g(^%ZIS(2,{IEN},102)) 1 NODE_102 Computed Field For Node 11 %Library.String 1 143 s {NODE_11}=$g(^%ZIS(2,{IEN},11)) 1 NODE_11 Computed Field For Node 12.1 %Library.String 1 21 s {NODE_12_1}=$g(^%ZIS(2,{IEN},12.1)) 1 NODE_12_1 Computed Field For Node 12.11 %Library.String 1 23 s {NODE_12_11}=$g(^%ZIS(2,{IEN},12.11)) 1 NODE_12_11 Computed Field For Node 12.12 %Library.String 1 25 s {NODE_12_12}=$g(^%ZIS(2,{IEN},12.12)) 1 NODE_12_12 Computed Field For Node 12.13 %Library.String 1 27 s {NODE_12_13}=$g(^%ZIS(2,{IEN},12.13)) 1 NODE_12_13 Computed Field For Node 12.14 %Library.String 1 29 s {NODE_12_14}=$g(^%ZIS(2,{IEN},12.14)) 1 NODE_12_14 Computed Field For Node 12.15 %Library.String 1 31 s {NODE_12_15}=$g(^%ZIS(2,{IEN},12.15)) 1 NODE_12_15 Computed Field For Node 12.16 %Library.String 1 33 s {NODE_12_16}=$g(^%ZIS(2,{IEN},12.16)) 1 NODE_12_16 Computed Field For Node 2 %Library.String 1 12 s {NODE_2}=$g(^%ZIS(2,{IEN},2)) 1 NODE_2 Computed Field For Node 201 %Library.String 1 173 s {NODE_201}=$g(^%ZIS(2,{IEN},201)) 1 NODE_201 Computed Field For Node 203 %Library.String 1 176 s {NODE_203}=$g(^%ZIS(2,{IEN},203)) 1 NODE_203 Computed Field For Node 205 %Library.String 1 179 s {NODE_205}=$g(^%ZIS(2,{IEN},205)) 1 NODE_205 Computed Field For Node 207 %Library.String 1 182 s {NODE_207}=$g(^%ZIS(2,{IEN},207)) 1 NODE_207 Computed Field For Node 209 %Library.String 1 185 s {NODE_209}=$g(^%ZIS(2,{IEN},209)) 1 NODE_209 Computed Field For Node 211 %Library.String 1 188 s {NODE_211}=$g(^%ZIS(2,{IEN},211)) 1 NODE_211 Computed Field For Node 3 %Library.String 1 15 s {NODE_3}=$g(^%ZIS(2,{IEN},3)) 1 NODE_3 Computed Field For Node 4 %Library.String 1 17 s {NODE_4}=$g(^%ZIS(2,{IEN},4)) 1 NODE_4 Computed Field For Node 50 %Library.String 1 75 s {NODE_50}=$g(^%ZIS(2,{IEN},50)) 1 NODE_50 Computed Field For Node 51 %Library.String 1 77 s {NODE_51}=$g(^%ZIS(2,{IEN},51)) 1 NODE_51 Computed Field For Node 52 %Library.String 1 79 s {NODE_52}=$g(^%ZIS(2,{IEN},52)) 1 NODE_52 Computed Field For Node BAR0 %Library.String 1 83 s {NODE_BAR0}=$g(^%ZIS(2,{IEN},"BAR0")) 1 NODE_BAR0 Computed Field For Node BAR1 %Library.String 1 81 s {NODE_BAR1}=$g(^%ZIS(2,{IEN},"BAR1")) 1 NODE_BAR1 Computed Field For Node BARX %Library.String 1 85 s {NODE_BARX}=$g(^%ZIS(2,{IEN},"BARX")) 1 NODE_BARX Computed Field For Node CLR0 %Library.String 1 101 s {NODE_CLR0}=$g(^%ZIS(2,{IEN},"CLR0")) 1 NODE_CLR0 Computed Field For Node CLR1 %Library.String 1 99 s {NODE_CLR1}=$g(^%ZIS(2,{IEN},"CLR1")) 1 NODE_CLR1 Computed Field For Node G0 %Library.String 1 105 s {NODE_G0}=$g(^%ZIS(2,{IEN},"G0")) 1 NODE_G0 Computed Field For Node G1 %Library.String 1 103 s {NODE_G1}=$g(^%ZIS(2,{IEN},"G1")) 1 NODE_G1 Computed Field For Node I0 %Library.String 1 97 s {NODE_I0}=$g(^%ZIS(2,{IEN},"I0")) 1 NODE_I0 Computed Field For Node I1 %Library.String 1 95 s {NODE_I1}=$g(^%ZIS(2,{IEN},"I1")) 1 NODE_I1 Computed Field For Node SPR0 %Library.String 1 93 s {NODE_SPR0}=$g(^%ZIS(2,{IEN},"SPR0")) 1 NODE_SPR0 Computed Field For Node SPR1 %Library.String 1 91 s {NODE_SPR1}=$g(^%ZIS(2,{IEN},"SPR1")) 1 NODE_SPR1 Computed Field For Node SUB0 %Library.String 1 89 s {NODE_SUB0}=$g(^%ZIS(2,{IEN},"SUB0")) 1 NODE_SUB0 Computed Field For Node SUB1 %Library.String 1 87 s {NODE_SUB1}=$g(^%ZIS(2,{IEN},"SUB1")) 1 NODE_SUB1 Computed Field For Node XY %Library.String 1 10 s {NODE_XY}=$g(^%ZIS(2,{IEN},"XY")) 1 NODE_XY FileMan Field Label: 'NORMAL INTENSITY (RESET)' FileMan Field Number: '29' The argument of a MUMPS WRITE statement that will return a CRT to its NORMAL (default) intensity. If a printer were set to BOLD, this code would reset the printer to its default setting. %Library.String 55 NORMAL_INTENSITY_RESET FileMan Field Label: '*OLD XY CRT' FileMan Field Number: '5' This is the Xecutable MUMPS code which places the cursor at a XY location. %Library.String 9 OLD_XY_CRT FileMan Field Label: 'ONLINE CHECK' FileMan Field Number: '8' This is the Xecutable MUMPS code which is used by %ZIS during the OPENing of the terminal to see if the device is On-Line. %Library.String 1 18 s {ONLINE_CHECK}=$e({NODE_4},1,245) 1 ONLINE_CHECK FileMan Field Label: 'OPEN EXECUTE' FileMan Field Number: '6' This is the Xecutable MUMPS code which is used by %ZIS to OPEN the terminal. %Library.String 1 13 s {OPEN_EXECUTE}=$e({NODE_2},1,245) 1 OPEN_EXECUTE FileMan Field Label: 'OPEN EXECUTE DESCRIPTION' FileMan Field Number: '6.1' %Library.String 14 OPEN_EXECUTE_DESCRIPTION FileMan Field Label: 'OPEN PRINTER DESCRIPTION' FileMan Field Number: '110.1' %Library.String 142 OPEN_PRINTER_DESCRIPTION FileMan Field Label: 'OPEN PRINTER PORT' FileMan Field Number: '110' This is Xecutable MUMPS code which will OPEN the terminal's printer port. %Library.String 1 141 s {OPEN_PRINTER_PORT}=$e({NODE_10},1,245) 1 OPEN_PRINTER_PORT FileMan Field Label: 'PAGE LENGTH' FileMan Field Number: '3' This is the number of usable lines on the output device. %Library.Numeric 7 PAGE_LENGTH FileMan Field Label: 'PERIOD' FileMan Field Number: '137' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the '1' key on the keypad. %Library.String 163 PERIOD FileMan Field Label: 'PF1' FileMan Field Number: '130' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'PF1' key on the keypad. %Library.String 156 PF1 FileMan Field Label: 'PF2' FileMan Field Number: '131' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'PF2' key on the keypad. %Library.String 157 PF2 FileMan Field Label: 'PF3' FileMan Field Number: '132' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'PF3' key on the keypad. %Library.String 158 PF3 FileMan Field Label: 'PF4' FileMan Field Number: '133' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'PF4' key on the keypad. %Library.String 159 PF4 FileMan Field Label: 'PREV SCREEN' FileMan Field Number: '144' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'PREV SCRN' key on the keyboard. %Library.String 168 PREV_SCREEN FileMan Field Label: 'PRINT SCREEN' FileMan Field Number: '112' The argument of a MUMPS write statement used to print the screen display onto a slaved printer. %Library.String 145 PRINT_SCREEN FileMan Field Label: 'PROPORTIONAL SPACING' FileMan Field Number: '26' The argument of a MUMPS WRITE statement that will turn on proportional spacing for a printer. %Library.String 52 PROPORTIONAL_SPACING FileMan Field Label: 'QUALITY 0' FileMan Field Number: '12.2' The argument of a MUMPS WRITE statement that will turn on a specific letter quality mode of a printer. %Library.String 35 QUALITY_0 FileMan Field Label: 'QUALITY 1' FileMan Field Number: '12.3' The argument of a MUMPS WRITE statement that will turn on a specific letter quality mode of a printer. %Library.String 36 QUALITY_1 FileMan Field Label: 'QUALITY 2' FileMan Field Number: '12.4' The argument of a MUMPS WRITE statement that will turn on a specific letter quality mode of a printer. %Library.String 37 QUALITY_2 FileMan Field Label: 'REMOVE' FileMan Field Number: '143' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'REMOVE' key on the keyboard. %Library.String 167 REMOVE FileMan Field Label: 'REPLACE MODE' FileMan Field Number: '31' This is the argument of a MUMPS WRITE statement that will indicate replace mode. %Library.String 57 REPLACE_MODE FileMan Field Label: 'RESERVED' FileMan Field Number: '62' This field is reserved for additional bar code specifications. %Library.String 1 86 s {RESERVED}=$e({NODE_BARX},1,245) 1 RESERVED FileMan Field Label: 'RESET' FileMan Field Number: '20' The argument of a MUMPS WRITE statement that will RESET the device. %Library.String 45 RESET FileMan Field Label: 'RESTORE CURSOR' FileMan Field Number: '73' This is the argument of a MUMPS WRITE statement that will restore the cursor position. %Library.String 121 RESTORE_CURSOR FileMan Field Label: 'REVERSE INDEX' FileMan Field Number: '71' This is the argument of a MUMPS WRITE statement that will cause the active position to move up by one. If the cursor is at the top of the screen, a scroll down is performed. %Library.String 119 REVERSE_INDEX FileMan Field Label: 'REVERSE LINE FEED' FileMan Field Number: '25' The argument of a MUMPS WRITE statement that will set the terminal to reverse line feed mode. %Library.String 51 REVERSE_LINE_FEED FileMan Field Label: 'REVERSE VIDEO OFF' FileMan Field Number: '15' The argument of a MUMPS WRITE statement that will turn OFF reverse video on a CRT. %Library.String 40 REVERSE_VIDEO_OFF FileMan Field Label: 'REVERSE VIDEO ON' FileMan Field Number: '14' The argument of a MUMPS WRITE statement that will turn ON reverse video on a CRT. %Library.String 39 REVERSE_VIDEO_ON FileMan Field Label: 'RIGHT MARGIN' FileMan Field Number: '1' This is the number of characters wide this device is. %Library.Numeric 5 RIGHT_MARGIN FileMan Field Label: 'RIGHT T' FileMan Field Number: '69.6' The argument of a MUMPS WRITE statement used to produce the perpendicular intersection of lines at the RIGHT middle of a four box window. %Library.String 115 RIGHT_T FileMan Field Label: 'SAVE CURSOR' FileMan Field Number: '72' This is the argument of a MUMPS WRITE statement that will save the current cursor position. %Library.String 120 SAVE_CURSOR FileMan Field Label: 'SELECT' FileMan Field Number: '141' The argument of a MUMPS WRITE statment used to generate the same escape sequences produced by depressing the 'SELECT' key on the keyboard. %Library.String 165 SELECT141 FileMan Field Label: 'SELECTABLE AT SIGN-ON' FileMan Field Number: '.02' This field is used to screan the choices that can be made at the DEVICE TYPE question during sign-on. %Library.EnumString 4 SELECTABLE_AT_SIGNON %Library.String 132 SET_TOP__BOTTOM_MARGINS FileMan Field Label: 'SGR ATTRIBUTES OFF' FileMan Field Number: '20.5' This is an argument of a MUMPS WRITE statement that will turn off all attributes of SELECT GRAPHIC RENDITION. Some of the attributes of SELECT GRAPHIC RENDITION are o Bold or increased intensity o Underscore o Blink o Negative(reverse) image %Library.String 46 SGR_ATTRIBUTES_OFF FileMan Field Label: 'SIMPLEX' FileMan Field Number: '1001' The argument of a MUMPS WRITE command used to set a printer into SIMPLEX, or printing only on the first side of the page. This field is only applicable for terminal types with a duplex printing feature such as the HP LaserJet 4 Si printers purchased by MCCR for print of encounter forms. %Library.String 190 SIMPLEX FileMan Field Label: 'SINGLE HIGH DOUBLE WIDE' FileMan Field Number: '87' This is the argument of a MUMPS WRITE statement that will display each character on the current line at a character size of double wide. %Library.String 135 SINGLE_HIGH_DOUBLE_WIDE FileMan Field Label: 'SINGLE HIGH SINGLE WIDE' FileMan Field Number: '88' This is the argument of a MUMPS WRITE statement to restore the display of characters to the normal width on a single line. %Library.String 136 SINGLE_HIGH_SINGLE_WIDE FileMan Field Label: 'SUBSCRIPT OFF' FileMan Field Number: '65.1' The argument of a MUMPS WRITE statement that will turn off SUBSCRIPT on the printer %Library.String 1 90 s {SUBSCRIPT_OFF}=$e({NODE_SUB0},1,245) 1 SUBSCRIPT_OFF FileMan Field Label: 'SUBSCRIPT ON' FileMan Field Number: '65' The argument of a MUMPS WRITE statement that will turn on SUBSCRIPT on the printer %Library.String 1 88 s {SUBSCRIPT_ON}=$e({NODE_SUB1},1,245) 1 SUBSCRIPT_ON Relationship for Sub-File/Multiple to file name CONTROL CODES child VALIP.prosthetic.fm2cw.SUBCONTROLCODES32055 children TERMINALTYPE32 1 SUB_CONTROL_CODES_3_2055 FileMan Field Label: 'SUPERSCRIPT OFF' FileMan Field Number: '65.3' The argument of a MUMPS WRITE statement used to turn off SUPERSCRIPT on the printer. %Library.String 1 94 s {SUPERSCRIPT_OFF}=$e({NODE_SPR0},1,245) 1 SUPERSCRIPT_OFF FileMan Field Label: 'SUPERSCRIPT ON' FileMan Field Number: '65.2' The argument of a MUMPS WRITE statement used to turn on SUPERSCRIPT on the printer. %Library.String 1 92 s {SUPERSCRIPT_ON}=$e({NODE_SPR1},1,245) 1 SUPERSCRIPT_ON FileMan Field Label: 'SYNONYM' FileMan Field Number: '1925' This is a synonym for the name of this type of terminal. %Library.String 193 SYNONYM FileMan Field Label: 'TAB CLEAR' FileMan Field Number: '81' This is the argument of a MUMPS WRITE statement that will clear the settings of tabs. %Library.String 130 TAB_CLEAR FileMan Field Label: 'TAB SET' FileMan Field Number: '80' This is the argument of a MUMPS WRITE statement that will set a value for the tab function. %Library.String 129 TAB_SET FileMan Field Label: 'TOP LEFT CORNER' FileMan Field Number: '69.11' The argument of a MUMPS WRITE statement used to produce the TOP LEFT CORNER part of a window in graphics mode. %Library.String 107 TOP_LEFT_CORNER FileMan Field Label: 'TOP RIGHT CORNER' FileMan Field Number: '69.13' The argument of a MUMPS WRITE statement used to produce the TOP RIGHT CORNER of a window in graphics mode. %Library.String 109 TOP_RIGHT_CORNER FileMan Field Label: 'TOP T' FileMan Field Number: '69.3' The argument of a MUMPS WRITE statement used to produce the perpendicular intersection of lines at the TOP middle of a four box window. %Library.String 112 TOP_T FileMan Field Label: 'UNDERLINE OFF' FileMan Field Number: '24' The argument of a MUMPS WRITE statement that will turn OFF underlining. %Library.String 50 UNDERLINE_OFF FileMan Field Label: 'UNDERLINE ON' FileMan Field Number: '23' The argument of a MUMPS WRITE statement that will turn ON underlineing. %Library.String 49 UNDERLINE_ON SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 194 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERTICAL LINE' FileMan Field Number: '69.7' The argument of a MUMPS WRITE statement used to that produce the VERTICAL LINE in graphics mode. %Library.String 116 VERTICAL_LINE FileMan Field Label: 'XY CRT' FileMan Field Number: '5.2' This is the Xecutable MUMPS code which places the cursor at a XY location. %Library.String 1 11 s {XY_CRT}=$e({NODE_XY},1,245) 1 XY_CRT FileMan Field Label: 'X LINES PER INCH' FileMan Field Number: '12.16' The argument of a MUMPS WRITE statement that will use the value in the variable X to set the lines per inch. %Library.String 1 34 s {X_LINES_PER_INCH}=$e({NODE_12_16},1,245) 1 X_LINES_PER_INCH FileMan Field Label: 'X PITCH' FileMan Field Number: '12.12' The argument of a MUMPS WRITE statement that will use the value in the variable X to set the characters per inch display of a printer. %Library.String 1 26 s {X_PITCH}=$e({NODE_12_12},1,245) 1 X_PITCH BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^%ZIS(2," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(3.2,"+1,",.01)={"NAME"} set:{SELECTABLE_AT_SIGNON}'="" FDA(3.2,"+1,",.02)={"SELECTABLE_AT_SIGNON"} set:{RIGHT_MARGIN}'="" FDA(3.2,"+1,",1)={"RIGHT_MARGIN"} set:{FORM_FEED}'="" FDA(3.2,"+1,",2)={"FORM_FEED"} set:{PAGE_LENGTH}'="" FDA(3.2,"+1,",3)={"PAGE_LENGTH"} set:{BACK_SPACE}'="" FDA(3.2,"+1,",4)={"BACK_SPACE"} set:{OLD_XY_CRT}'="" FDA(3.2,"+1,",5)={"OLD_XY_CRT"} set:{f10_PITCH}'="" FDA(3.2,"+1,",10)={"f10_PITCH"} set:{f12_PITCH}'="" FDA(3.2,"+1,",12)={"f12_PITCH"} set:{QUALITY_0}'="" FDA(3.2,"+1,",12.2)={"QUALITY_0"} set:{QUALITY_1}'="" FDA(3.2,"+1,",12.3)={"QUALITY_1"} set:{QUALITY_2}'="" FDA(3.2,"+1,",12.4)={"QUALITY_2"} set:{HOME_CURSOR}'="" FDA(3.2,"+1,",13)={"HOME_CURSOR"} set:{REVERSE_VIDEO_ON}'="" FDA(3.2,"+1,",14)={"REVERSE_VIDEO_ON"} set:{REVERSE_VIDEO_OFF}'="" FDA(3.2,"+1,",15)={"REVERSE_VIDEO_OFF"} set:{ERASE_TO_END_OF_LINE}'="" FDA(3.2,"+1,",16)={"ERASE_TO_END_OF_LINE"} set:{ERASE_TO_END_OF_PAGE}'="" FDA(3.2,"+1,",17)={"ERASE_TO_END_OF_PAGE"} set:{BLINK_ON}'="" FDA(3.2,"+1,",18)={"BLINK_ON"} set:{BLINK_OFF}'="" FDA(3.2,"+1,",19)={"BLINK_OFF"} set:{RESET}'="" FDA(3.2,"+1,",20)={"RESET"} set:{SGR_ATTRIBUTES_OFF}'="" FDA(3.2,"+1,",20.5)={"SGR_ATTRIBUTES_OFF"} set:{HALF_UP}'="" FDA(3.2,"+1,",21)={"HALF_UP"} set:{HALF_DOWN}'="" FDA(3.2,"+1,",22)={"HALF_DOWN"} set:{UNDERLINE_ON}'="" FDA(3.2,"+1,",23)={"UNDERLINE_ON"} set:{UNDERLINE_OFF}'="" FDA(3.2,"+1,",24)={"UNDERLINE_OFF"} set:{REVERSE_LINE_FEED}'="" FDA(3.2,"+1,",25)={"REVERSE_LINE_FEED"} set:{PROPORTIONAL_SPACING}'="" FDA(3.2,"+1,",26)={"PROPORTIONAL_SPACING"} set:{HIGH_INTENSITY_BOLD}'="" FDA(3.2,"+1,",27)={"HIGH_INTENSITY_BOLD"} set:{LOW_INTENSITY_UNBOLD}'="" FDA(3.2,"+1,",28)={"LOW_INTENSITY_UNBOLD"} set:{NORMAL_INTENSITY_RESET}'="" FDA(3.2,"+1,",29)={"NORMAL_INTENSITY_RESET"} set:{INSERT_MODE}'="" FDA(3.2,"+1,",30)={"INSERT_MODE"} set:{REPLACE_MODE}'="" FDA(3.2,"+1,",31)={"REPLACE_MODE"} set:{ERASE_FROM_BEG_OF_PAGE}'="" FDA(3.2,"+1,",32)={"ERASE_FROM_BEG_OF_PAGE"} set:{ERASE_ENTIRE_PAGE}'="" FDA(3.2,"+1,",33)={"ERASE_ENTIRE_PAGE"} set:{ERASE_FROM_BEG_OF_LINE}'="" FDA(3.2,"+1,",34)={"ERASE_FROM_BEG_OF_LINE"} set:{ERASE_ENTIRE_LINE}'="" FDA(3.2,"+1,",35)={"ERASE_ENTIRE_LINE"} set:{ERASE_CHARACTER}'="" FDA(3.2,"+1,",36)={"ERASE_CHARACTER"} set:{ERASE_FIELD}'="" FDA(3.2,"+1,",37)={"ERASE_FIELD"} set:{CURSOR_UP}'="" FDA(3.2,"+1,",40)={"CURSOR_UP"} set:{CURSOR_DOWN}'="" FDA(3.2,"+1,",41)={"CURSOR_DOWN"} set:{CURSOR_RIGHT}'="" FDA(3.2,"+1,",42)={"CURSOR_RIGHT"} set:{CURSOR_LEFT}'="" FDA(3.2,"+1,",43)={"CURSOR_LEFT"} set:{ARROW_KEY_STRING_LENGTH}'="" FDA(3.2,"+1,",44)={"ARROW_KEY_STRING_LENGTH"} set:{DELETE_LINE}'="" FDA(3.2,"+1,",45)={"DELETE_LINE"} set:{INSERT_LINE}'="" FDA(3.2,"+1,",46)={"INSERT_LINE"} set:{DELETE_CHAR_}'="" FDA(3.2,"+1,",47)={"DELETE_CHAR_"} set:{INSERT_CHAR_}'="" FDA(3.2,"+1,",48)={"INSERT_CHAR_"} set:{CURSOR_ON}'="" FDA(3.2,"+1,",49)={"CURSOR_ON"} set:{CURSOR_OFF}'="" FDA(3.2,"+1,",49.1)={"CURSOR_OFF"} set:{TOP_LEFT_CORNER}'="" FDA(3.2,"+1,",69.11)={"TOP_LEFT_CORNER"} set:{BOTTOM_LEFT_CORNER}'="" FDA(3.2,"+1,",69.12)={"BOTTOM_LEFT_CORNER"} set:{TOP_RIGHT_CORNER}'="" FDA(3.2,"+1,",69.13)={"TOP_RIGHT_CORNER"} set:{BOTTOM_RIGHT_CORNER}'="" FDA(3.2,"+1,",69.14)={"BOTTOM_RIGHT_CORNER"} set:{MIDDLE_T}'="" FDA(3.2,"+1,",69.2)={"MIDDLE_T"} set:{TOP_T}'="" FDA(3.2,"+1,",69.3)={"TOP_T"} set:{BOTTOM_T}'="" FDA(3.2,"+1,",69.4)={"BOTTOM_T"} set:{LEFT_T}'="" FDA(3.2,"+1,",69.5)={"LEFT_T"} set:{RIGHT_T}'="" FDA(3.2,"+1,",69.6)={"RIGHT_T"} set:{VERTICAL_LINE}'="" FDA(3.2,"+1,",69.7)={"VERTICAL_LINE"} set:{HORIZONTAL_LINE}'="" FDA(3.2,"+1,",69.8)={"HORIZONTAL_LINE"} set:{INDEX}'="" FDA(3.2,"+1,",70)={"INDEX"} set:{REVERSE_INDEX}'="" FDA(3.2,"+1,",71)={"REVERSE_INDEX"} set:{SAVE_CURSOR}'="" FDA(3.2,"+1,",72)={"SAVE_CURSOR"} set:{RESTORE_CURSOR}'="" FDA(3.2,"+1,",73)={"RESTORE_CURSOR"} set:{NEXT_LINE}'="" FDA(3.2,"+1,",74)={"NEXT_LINE"} set:{AUTO_WRAP_ON}'="" FDA(3.2,"+1,",75)={"AUTO_WRAP_ON"} set:{AUTO_WRAP_OFF}'="" FDA(3.2,"+1,",76)={"AUTO_WRAP_OFF"} set:{AUTO_REPEAT_ON}'="" FDA(3.2,"+1,",77)={"AUTO_REPEAT_ON"} set:{AUTO_REPEAT_OFF}'="" FDA(3.2,"+1,",78)={"AUTO_REPEAT_OFF"} set:{KEYPAD_APPLICATION_MODE}'="" FDA(3.2,"+1,",79)={"KEYPAD_APPLICATION_MODE"} set:{KEYPAD_NUMERIC_MODE}'="" FDA(3.2,"+1,",79.1)={"KEYPAD_NUMERIC_MODE"} set:{TAB_SET}'="" FDA(3.2,"+1,",80)={"TAB_SET"} set:{TAB_CLEAR}'="" FDA(3.2,"+1,",81)={"TAB_CLEAR"} set:{CLEAR_ALL_TABS}'="" FDA(3.2,"+1,",82)={"CLEAR_ALL_TABS"} set:{SET_TOP__BOTTOM_MARGINS}'="" FDA(3.2,"+1,",83)={"SET_TOP__BOTTOM_MARGINS"} set:{DOUBLE_HIGH_DOUBLE_WIDE_TOP}'="" FDA(3.2,"+1,",85)={"DOUBLE_HIGH_DOUBLE_WIDE_TOP"} set:{DOUBLE_HIGH_DOUBLE_WIDE_BOTTOM}'="" FDA(3.2,"+1,",86)={"DOUBLE_HIGH_DOUBLE_WIDE_BOTTOM"} set:{SINGLE_HIGH_DOUBLE_WIDE}'="" FDA(3.2,"+1,",87)={"SINGLE_HIGH_DOUBLE_WIDE"} set:{SINGLE_HIGH_SINGLE_WIDE}'="" FDA(3.2,"+1,",88)={"SINGLE_HIGH_SINGLE_WIDE"} set:{DESCRIPTION}'="" FDA(3.2,"+1,",99)={"DESCRIPTION"} set:{PRINT_SCREEN}'="" FDA(3.2,"+1,",112)={"PRINT_SCREEN"} set:{KP0}'="" FDA(3.2,"+1,",120)={"KP0"} set:{KP1}'="" FDA(3.2,"+1,",121)={"KP1"} set:{KP2}'="" FDA(3.2,"+1,",122)={"KP2"} set:{KP3}'="" FDA(3.2,"+1,",123)={"KP3"} set:{KP4}'="" FDA(3.2,"+1,",124)={"KP4"} set:{KP5}'="" FDA(3.2,"+1,",125)={"KP5"} set:{KP6}'="" FDA(3.2,"+1,",126)={"KP6"} set:{KP7}'="" FDA(3.2,"+1,",127)={"KP7"} set:{KP8}'="" FDA(3.2,"+1,",128)={"KP8"} set:{KP9}'="" FDA(3.2,"+1,",129)={"KP9"} set:{PF1}'="" FDA(3.2,"+1,",130)={"PF1"} set:{PF2}'="" FDA(3.2,"+1,",131)={"PF2"} set:{PF3}'="" FDA(3.2,"+1,",132)={"PF3"} set:{PF4}'="" FDA(3.2,"+1,",133)={"PF4"} set:{MINUS}'="" FDA(3.2,"+1,",134)={"MINUS"} set:{COMMA}'="" FDA(3.2,"+1,",135)={"COMMA"} set:{ENTER}'="" FDA(3.2,"+1,",136)={"ENTER"} set:{PERIOD}'="" FDA(3.2,"+1,",137)={"PERIOD"} set:{FIND}'="" FDA(3.2,"+1,",140)={"FIND"} set:{SELECT141}'="" FDA(3.2,"+1,",141)={"SELECT141"} set:{INSERT_HERE}'="" FDA(3.2,"+1,",142)={"INSERT_HERE"} set:{REMOVE}'="" FDA(3.2,"+1,",143)={"REMOVE"} set:{PREV_SCREEN}'="" FDA(3.2,"+1,",144)={"PREV_SCREEN"} set:{NEXT_SCREEN}'="" FDA(3.2,"+1,",145)={"NEXT_SCREEN"} set:{HELP}'="" FDA(3.2,"+1,",146)={"HELP"} set:{DO}'="" FDA(3.2,"+1,",147)={"DO"} set:{DEFAULT_FONT_TITLE}'="" FDA(3.2,"+1,",200)={"DEFAULT_FONT_TITLE"} set:{FONT_NUMBER_1_TITLE}'="" FDA(3.2,"+1,",202)={"FONT_NUMBER_1_TITLE"} set:{FONT_NUMBER_2_TITLE}'="" FDA(3.2,"+1,",204)={"FONT_NUMBER_2_TITLE"} set:{FONT_NUMBER_3_TITLE}'="" FDA(3.2,"+1,",206)={"FONT_NUMBER_3_TITLE"} set:{FONT_NUMBER_4_TITLE}'="" FDA(3.2,"+1,",208)={"FONT_NUMBER_4_TITLE"} set:{FONT_NUMBER_5_TITLE}'="" FDA(3.2,"+1,",210)={"FONT_NUMBER_5_TITLE"} set:{SIMPLEX}'="" FDA(3.2,"+1,",1001)={"SIMPLEX"} set:{DUPLEX_LONG_EDGE_BINDING}'="" FDA(3.2,"+1,",1002)={"DUPLEX_LONG_EDGE_BINDING"} set:{DUPLEX_SHORT_EDGE_BINDING}'="" FDA(3.2,"+1,",1003)={"DUPLEX_SHORT_EDGE_BINDING"} set:{SYNONYM}'="" FDA(3.2,"+1,",1925)={"SYNONYM"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(3.2)") set %SkipFiling=1 if $d(%FMERR(3.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OPEN_EXECUTE_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({OPEN_EXECUTE_DESCRIPTION},$c(13,10)) { set wp(i)=$p({OPEN_EXECUTE_DESCRIPTION},$c(13,10),i) } do WP^DIE(3.2,{RowId},6.1,,"wp","%FMERR(3.2)") if $d(%FMERR(3.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OPEN_PRINTER_DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({OPEN_PRINTER_DESCRIPTION},$c(13,10)) { set wp(i)=$p({OPEN_PRINTER_DESCRIPTION},$c(13,10),i) } do WP^DIE(3.2,{RowId},110.1,,"wp","%FMERR(3.2)") if $d(%FMERR(3.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(3.2,IENS,.01)={NAME} set:{SELECTABLE_AT_SIGNON*C} FDA(3.2,IENS,.02)={SELECTABLE_AT_SIGNON} set:{RIGHT_MARGIN*C} FDA(3.2,IENS,1)={RIGHT_MARGIN} set:{FORM_FEED*C} FDA(3.2,IENS,2)={FORM_FEED} set:{PAGE_LENGTH*C} FDA(3.2,IENS,3)={PAGE_LENGTH} set:{BACK_SPACE*C} FDA(3.2,IENS,4)={BACK_SPACE} set:{OLD_XY_CRT*C} FDA(3.2,IENS,5)={OLD_XY_CRT} set:{f10_PITCH*C} FDA(3.2,IENS,10)={f10_PITCH} set:{f12_PITCH*C} FDA(3.2,IENS,12)={f12_PITCH} set:{QUALITY_0*C} FDA(3.2,IENS,12.2)={QUALITY_0} set:{QUALITY_1*C} FDA(3.2,IENS,12.3)={QUALITY_1} set:{QUALITY_2*C} FDA(3.2,IENS,12.4)={QUALITY_2} set:{HOME_CURSOR*C} FDA(3.2,IENS,13)={HOME_CURSOR} set:{REVERSE_VIDEO_ON*C} FDA(3.2,IENS,14)={REVERSE_VIDEO_ON} set:{REVERSE_VIDEO_OFF*C} FDA(3.2,IENS,15)={REVERSE_VIDEO_OFF} set:{ERASE_TO_END_OF_LINE*C} FDA(3.2,IENS,16)={ERASE_TO_END_OF_LINE} set:{ERASE_TO_END_OF_PAGE*C} FDA(3.2,IENS,17)={ERASE_TO_END_OF_PAGE} set:{BLINK_ON*C} FDA(3.2,IENS,18)={BLINK_ON} set:{BLINK_OFF*C} FDA(3.2,IENS,19)={BLINK_OFF} set:{RESET*C} FDA(3.2,IENS,20)={RESET} set:{SGR_ATTRIBUTES_OFF*C} FDA(3.2,IENS,20.5)={SGR_ATTRIBUTES_OFF} set:{HALF_UP*C} FDA(3.2,IENS,21)={HALF_UP} set:{HALF_DOWN*C} FDA(3.2,IENS,22)={HALF_DOWN} set:{UNDERLINE_ON*C} FDA(3.2,IENS,23)={UNDERLINE_ON} set:{UNDERLINE_OFF*C} FDA(3.2,IENS,24)={UNDERLINE_OFF} set:{REVERSE_LINE_FEED*C} FDA(3.2,IENS,25)={REVERSE_LINE_FEED} set:{PROPORTIONAL_SPACING*C} FDA(3.2,IENS,26)={PROPORTIONAL_SPACING} set:{HIGH_INTENSITY_BOLD*C} FDA(3.2,IENS,27)={HIGH_INTENSITY_BOLD} set:{LOW_INTENSITY_UNBOLD*C} FDA(3.2,IENS,28)={LOW_INTENSITY_UNBOLD} set:{NORMAL_INTENSITY_RESET*C} FDA(3.2,IENS,29)={NORMAL_INTENSITY_RESET} set:{INSERT_MODE*C} FDA(3.2,IENS,30)={INSERT_MODE} set:{REPLACE_MODE*C} FDA(3.2,IENS,31)={REPLACE_MODE} set:{ERASE_FROM_BEG_OF_PAGE*C} FDA(3.2,IENS,32)={ERASE_FROM_BEG_OF_PAGE} set:{ERASE_ENTIRE_PAGE*C} FDA(3.2,IENS,33)={ERASE_ENTIRE_PAGE} set:{ERASE_FROM_BEG_OF_LINE*C} FDA(3.2,IENS,34)={ERASE_FROM_BEG_OF_LINE} set:{ERASE_ENTIRE_LINE*C} FDA(3.2,IENS,35)={ERASE_ENTIRE_LINE} set:{ERASE_CHARACTER*C} FDA(3.2,IENS,36)={ERASE_CHARACTER} set:{ERASE_FIELD*C} FDA(3.2,IENS,37)={ERASE_FIELD} set:{CURSOR_UP*C} FDA(3.2,IENS,40)={CURSOR_UP} set:{CURSOR_DOWN*C} FDA(3.2,IENS,41)={CURSOR_DOWN} set:{CURSOR_RIGHT*C} FDA(3.2,IENS,42)={CURSOR_RIGHT} set:{CURSOR_LEFT*C} FDA(3.2,IENS,43)={CURSOR_LEFT} set:{ARROW_KEY_STRING_LENGTH*C} FDA(3.2,IENS,44)={ARROW_KEY_STRING_LENGTH} set:{DELETE_LINE*C} FDA(3.2,IENS,45)={DELETE_LINE} set:{INSERT_LINE*C} FDA(3.2,IENS,46)={INSERT_LINE} set:{DELETE_CHAR_*C} FDA(3.2,IENS,47)={DELETE_CHAR_} set:{INSERT_CHAR_*C} FDA(3.2,IENS,48)={INSERT_CHAR_} set:{CURSOR_ON*C} FDA(3.2,IENS,49)={CURSOR_ON} set:{CURSOR_OFF*C} FDA(3.2,IENS,49.1)={CURSOR_OFF} set:{TOP_LEFT_CORNER*C} FDA(3.2,IENS,69.11)={TOP_LEFT_CORNER} set:{BOTTOM_LEFT_CORNER*C} FDA(3.2,IENS,69.12)={BOTTOM_LEFT_CORNER} set:{TOP_RIGHT_CORNER*C} FDA(3.2,IENS,69.13)={TOP_RIGHT_CORNER} set:{BOTTOM_RIGHT_CORNER*C} FDA(3.2,IENS,69.14)={BOTTOM_RIGHT_CORNER} set:{MIDDLE_T*C} FDA(3.2,IENS,69.2)={MIDDLE_T} set:{TOP_T*C} FDA(3.2,IENS,69.3)={TOP_T} set:{BOTTOM_T*C} FDA(3.2,IENS,69.4)={BOTTOM_T} set:{LEFT_T*C} FDA(3.2,IENS,69.5)={LEFT_T} set:{RIGHT_T*C} FDA(3.2,IENS,69.6)={RIGHT_T} set:{VERTICAL_LINE*C} FDA(3.2,IENS,69.7)={VERTICAL_LINE} set:{HORIZONTAL_LINE*C} FDA(3.2,IENS,69.8)={HORIZONTAL_LINE} set:{INDEX*C} FDA(3.2,IENS,70)={INDEX} set:{REVERSE_INDEX*C} FDA(3.2,IENS,71)={REVERSE_INDEX} set:{SAVE_CURSOR*C} FDA(3.2,IENS,72)={SAVE_CURSOR} set:{RESTORE_CURSOR*C} FDA(3.2,IENS,73)={RESTORE_CURSOR} set:{NEXT_LINE*C} FDA(3.2,IENS,74)={NEXT_LINE} set:{AUTO_WRAP_ON*C} FDA(3.2,IENS,75)={AUTO_WRAP_ON} set:{AUTO_WRAP_OFF*C} FDA(3.2,IENS,76)={AUTO_WRAP_OFF} set:{AUTO_REPEAT_ON*C} FDA(3.2,IENS,77)={AUTO_REPEAT_ON} set:{AUTO_REPEAT_OFF*C} FDA(3.2,IENS,78)={AUTO_REPEAT_OFF} set:{KEYPAD_APPLICATION_MODE*C} FDA(3.2,IENS,79)={KEYPAD_APPLICATION_MODE} set:{KEYPAD_NUMERIC_MODE*C} FDA(3.2,IENS,79.1)={KEYPAD_NUMERIC_MODE} set:{TAB_SET*C} FDA(3.2,IENS,80)={TAB_SET} set:{TAB_CLEAR*C} FDA(3.2,IENS,81)={TAB_CLEAR} set:{CLEAR_ALL_TABS*C} FDA(3.2,IENS,82)={CLEAR_ALL_TABS} set:{SET_TOP__BOTTOM_MARGINS*C} FDA(3.2,IENS,83)={SET_TOP__BOTTOM_MARGINS} set:{DOUBLE_HIGH_DOUBLE_WIDE_TOP*C} FDA(3.2,IENS,85)={DOUBLE_HIGH_DOUBLE_WIDE_TOP} set:{DOUBLE_HIGH_DOUBLE_WIDE_BOTTOM*C} FDA(3.2,IENS,86)={DOUBLE_HIGH_DOUBLE_WIDE_BOTTOM} set:{SINGLE_HIGH_DOUBLE_WIDE*C} FDA(3.2,IENS,87)={SINGLE_HIGH_DOUBLE_WIDE} set:{SINGLE_HIGH_SINGLE_WIDE*C} FDA(3.2,IENS,88)={SINGLE_HIGH_SINGLE_WIDE} set:{DESCRIPTION*C} FDA(3.2,IENS,99)={DESCRIPTION} set:{PRINT_SCREEN*C} FDA(3.2,IENS,112)={PRINT_SCREEN} set:{KP0*C} FDA(3.2,IENS,120)={KP0} set:{KP1*C} FDA(3.2,IENS,121)={KP1} set:{KP2*C} FDA(3.2,IENS,122)={KP2} set:{KP3*C} FDA(3.2,IENS,123)={KP3} set:{KP4*C} FDA(3.2,IENS,124)={KP4} set:{KP5*C} FDA(3.2,IENS,125)={KP5} set:{KP6*C} FDA(3.2,IENS,126)={KP6} set:{KP7*C} FDA(3.2,IENS,127)={KP7} set:{KP8*C} FDA(3.2,IENS,128)={KP8} set:{KP9*C} FDA(3.2,IENS,129)={KP9} set:{PF1*C} FDA(3.2,IENS,130)={PF1} set:{PF2*C} FDA(3.2,IENS,131)={PF2} set:{PF3*C} FDA(3.2,IENS,132)={PF3} set:{PF4*C} FDA(3.2,IENS,133)={PF4} set:{MINUS*C} FDA(3.2,IENS,134)={MINUS} set:{COMMA*C} FDA(3.2,IENS,135)={COMMA} set:{ENTER*C} FDA(3.2,IENS,136)={ENTER} set:{PERIOD*C} FDA(3.2,IENS,137)={PERIOD} set:{FIND*C} FDA(3.2,IENS,140)={FIND} set:{SELECT141*C} FDA(3.2,IENS,141)={SELECT141} set:{INSERT_HERE*C} FDA(3.2,IENS,142)={INSERT_HERE} set:{REMOVE*C} FDA(3.2,IENS,143)={REMOVE} set:{PREV_SCREEN*C} FDA(3.2,IENS,144)={PREV_SCREEN} set:{NEXT_SCREEN*C} FDA(3.2,IENS,145)={NEXT_SCREEN} set:{HELP*C} FDA(3.2,IENS,146)={HELP} set:{DO*C} FDA(3.2,IENS,147)={DO} set:{DEFAULT_FONT_TITLE*C} FDA(3.2,IENS,200)={DEFAULT_FONT_TITLE} set:{FONT_NUMBER_1_TITLE*C} FDA(3.2,IENS,202)={FONT_NUMBER_1_TITLE} set:{FONT_NUMBER_2_TITLE*C} FDA(3.2,IENS,204)={FONT_NUMBER_2_TITLE} set:{FONT_NUMBER_3_TITLE*C} FDA(3.2,IENS,206)={FONT_NUMBER_3_TITLE} set:{FONT_NUMBER_4_TITLE*C} FDA(3.2,IENS,208)={FONT_NUMBER_4_TITLE} set:{FONT_NUMBER_5_TITLE*C} FDA(3.2,IENS,210)={FONT_NUMBER_5_TITLE} set:{SIMPLEX*C} FDA(3.2,IENS,1001)={SIMPLEX} set:{DUPLEX_LONG_EDGE_BINDING*C} FDA(3.2,IENS,1002)={DUPLEX_LONG_EDGE_BINDING} set:{DUPLEX_SHORT_EDGE_BINDING*C} FDA(3.2,IENS,1003)={DUPLEX_SHORT_EDGE_BINDING} set:{SYNONYM*C} FDA(3.2,IENS,1925)={SYNONYM} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(3.2)") set %SkipFiling=1 if $d(%FMERR(3.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {OPEN_EXECUTE_DESCRIPTION*C} { set D0={RowId} kill wp if {OPEN_EXECUTE_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({OPEN_EXECUTE_DESCRIPTION},$c(13,10)) { set wp(i)=$p({OPEN_EXECUTE_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(3.2,{RowId},6.1,,wproot,"%FMERR(3.2)") if $d(%FMERR(3.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {OPEN_PRINTER_DESCRIPTION*C} { set D0={RowId} kill wp if {OPEN_PRINTER_DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({OPEN_PRINTER_DESCRIPTION},$c(13,10)) { set wp(i)=$p({OPEN_PRINTER_DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(3.2,{RowId},110.1,,wproot,"%FMERR(3.2)") if $d(%FMERR(3.2,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.2)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.TERMINALTYPE32S index ^%ZIS nonnull 2 "B" {NAME} {IEN} 0]]> data ^%ZIS 2 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 8 5 "^" 15 4 "^" 15 3 "^" 15 2 "^" 15 1 "^" 1 4 "^" 5 9 "^" 5 8 "^" "G" 2 "^" "G" 4 "^" "G" 7 "^" 16 3 "^" 19 6 "^" 8 2 "^" 8 4 "^" 8.1 2 "^" 8.1 1 "^" 8 3 "^" 8 1 "^" 200 1 "^" 8 8 "^" 8 6 "^" 9 1 "^" 21 2 "^" 17 2 "^" 17 1 "^" 1001 2 "^" 1001 3 "^" 19 7 "^" 13 5 "^" 13 4 "^" 13 2 "^" 13 6 "^" 13 3 "^" 13 1 "^" 5 6 "^" 5 7 "^" 20 1 "^" 202 1 "^" 204 1 "^" 206 1 "^" 208 1 "^" 210 1 "^" 1 2 "^" 6 3 "^" 6 2 "^" 21 1 "^" 7 1 "^" 5 3 "^" "G" 11 "^" 14 1 "^" 8 9 "^" 20 3 "^" 8 7 "^" 7 4 "^" 15 5 "^" 15 6 "^" 18 1 "^" 18 2 "^" 18 3 "^" 18 4 "^" 18 5 "^" 18 6 "^" 18 7 "^" 18 8 "^" 18 9 "^" 18 10 "^" "G" 8 "^" 7 2 "^" "G" 5 "^" 19 5 "^" 0 1 "^" 14 5 "^" 20 6 "^" 7 3 "^" 1 5 "W6" new data,i,node set {OPEN_EXECUTE_DESCRIPTION}="" merge data=^%ZIS(2,{S2},"W6") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OPEN_EXECUTE_DESCRIPTION}={OPEN_EXECUTE_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "W110" new data,i,node set {OPEN_PRINTER_DESCRIPTION}="" merge data=^%ZIS(2,{S2},"W110") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {OPEN_PRINTER_DESCRIPTION}={OPEN_PRINTER_DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 1 3 "^" 19 8 "^" 19 1 "^" 19 2 "^" 19 3 "^" 19 4 "^" 20 5 "^" "PRT" 1 "^" 6 7 "^" 12.2 1 "^" 12.2 2 "^" 12.2 3 "^" 20 4 "^" 7 5 "^" 6 1 "^" 14 4 "^" 14 2 "^" 6 6 "^" 5 5 "^" 5 4 "^" 1 1 "^" "G" 9 "^" 14 3 "^" 20 2 "^" 0 2 "^" 16 4 "^" 6 8 "^" 1001 1 "^" 17 3 "^" 17 4 "^" "SY" 1 "^" 16 2 "^" 16 1 "^" "G" 1 "^" "G" 3 "^" "G" 6 "^" 6 5 "^" 6 4 "^" "G" 10 "^" 5 1 "^" 5 2 Generated class for FileMan File Number: '3.1' File Name: 'TITLE' Class generated by %fm2class version 2.56 This file may be used to indicate a user's title. It is pointed to by the NEW PERSON. It is only cross-referenced by name. It is not distributed with data. persistent _PUBLIC 0 RowId TITLE_3_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.736485791 67178,44736.243688304 right TITLE 3.1 2.56 12/04/2024 12:25:36 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(3.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' %Library.String 1 3 NAME FileMan Field Label: 'SERIES' FileMan Field Number: '1' %Library.String 4 SERIES SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(3.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(3.1,"+1,",.01)={"NAME"} set:{SERIES}'="" FDA(3.1,"+1,",1)={"SERIES"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(3.1)") set %SkipFiling=1 if $d(%FMERR(3.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(3.1,IENS,.01)={NAME} set:{SERIES*C} FDA(3.1,IENS,1)={SERIES} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(3.1)") set %SkipFiling=1 if $d(%FMERR(3.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(3.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic.f7939.TITLE31S index ^DIC nonnull 3.1 "B" {NAME} {IEN} 0]]> data ^DIC 3.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 "^" 0 2 Generated class for FileMan File Number: '8925' File Name: 'TIU DOCUMENT' Class generated by %fm2class version 2.56 This file stores textual information for the clinical record database. Though it is designed to initially accommodate Progress Notes, Consult Reports, and Discharge Summaries, it is intended to be sufficiently flexible to accommodate textual reports or provider narrative of any length or type, and to potentially accommodate such data transmitted from remote sites, which may be excluded from the corresponding local DHCP Package databases (e.g., Operative Reports, Radiology Reports, Pathology Reports, etc.) to avoid confusion with local workload. persistent _PUBLIC 0 RowId TIU_DOCUMENT_8925 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.824229552 67178,44736.289924969 right TIU DOCUMENT 8925 2.56 12/04/2024 12:25:36 1 1 IEN 1 NEW_PERSON_200]]> AMENDEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_AMENDED_BY NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN NEW_PERSON_200]]> AUTHORDICTATOR VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_AUTHORDICTATOR CLINIC_STOP_40_7]]> CLINIC VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_CLINIC NEW_PERSON_200]]> COSIGNEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_COSIGNED_BY NEW_PERSON_200]]> DELETEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_DELETED_BY INSTITUTION_4]]> DIVISION VALIP.prosthetic.fm2cw.INSTITUTION4 FKey_DIVISION TIU_DOCUMENT_DEFINITION_8925_1]]> DOCUMENTTYPE VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 FKey_DOCUMENT_TYPE NEW_PERSON_200]]> ENTEREDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ENTERED_BY NEW_PERSON_200]]> EXPECTEDCOSIGNER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_EXPECTED_COSIGNER NEW_PERSON_200]]> EXPECTEDSIGNER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_EXPECTED_SIGNER HOSPITAL_LOCATION_44]]> HOSPITALLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_HOSPITAL_LOCATION TIU_DOCUMENT_8925]]> IDPARENT VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_ID_PARENT INCOMPLETE_RECORDS_393]]> IRTRECORD VALIP.prosthetic.fm2cw.INCOMPLETERECORDS393 FKey_IRT_RECORD NEW_PERSON_200]]> MARKEDCOSIGNEDONCHARTBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_MARKED_COSIGNED_ON_CHART_BY NEW_PERSON_200]]> MARKEDSIGNEDONCHARTBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_MARKED_SIGNED_ON_CHART_BY ORDER_100]]> ORDERNUMBER VALIP.prosthetic.fm2cw.ORDER100 FKey_ORDER_NUMBER TIU_DOCUMENT_8925]]> PARENT VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_PARENT TIU_DOCUMENT_DEFINITION_8925_1]]> PARENTDOCUMENTTYPE VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 FKey_PARENT_DOCUMENT_TYPE PATIENTIHS_9000001]]> PATIENT VALIP.prosthetic.fm2cw.PATIENTIHS9000001 FKey_PATIENT PATIENT_MOVEMENT_405]]> PATIENTMOVEMENTRECORD VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 FKey_PATIENT_MOVEMENT_RECORD Foreign Key constraint for Variable Pointer reference field REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST REQUESTINGPACKAGEREFERENCESELECTCONSULTATIONREQUEST VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST Foreign Key constraint for Variable Pointer reference field REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE REQUESTINGPACKAGEREFERENCESELECTSURGICALCASE VALIP.prosthetic.fm2cw.SURGERY130 FKey_REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE TIU_DOCUMENT_8925]]> RETRACTEDORIGINAL VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 FKey_RETRACTED_ORIGINAL VISIT_9000010]]> SECONDARYVISIT VALIP.prosthetic.fm2cw.VISIT9000010 FKey_SECONDARY_VISIT SERVICESECTION_49]]> SERVICE VALIP.prosthetic.fm2cw.SERVICESECTION49 FKey_SERVICE CLINIC_STOP_40_7]]> SERVICECREDITSTOP VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_SERVICE_CREDIT_STOP NEW_PERSON_200]]> SIGNEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_SIGNED_BY TIU_STATUS_8925_6]]> STATUS VALIP.prosthetic.fm2cw.TIUSTATUS89256 FKey_STATUS FACILITY_TREATING_SPECIALTY_45_7]]> TREATINGSPECIALTY VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 FKey_TREATING_SPECIALTY NEW_PERSON_200]]> VERIFIEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_VERIFIED_BY VISIT_9000010]]> VISIT VALIP.prosthetic.fm2cw.VISIT9000010 FKey_VISIT HOSPITAL_LOCATION_44]]> VISITLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_VISIT_LOCATION FileMan Field Label: 'ADMINISTRATIVE CLOSURE DATE' FileMan Field Number: '1606' %Library.FilemanTimeStamp 66 ADMINISTRATIVE_CLOSURE_DATE FileMan Field Label: 'ADMINISTRATIVE CLOSURE MODE' FileMan Field Number: '1613' This indicates whether the document was closed manually by an administrative person (in order to satisfy authentication requirements), or automatically by scanning a paper document bearing the signature of the patient (e.g., Consents, Advanced Directives, etc.) and not requiring the signature of an author. %Library.EnumString 73 ADMINISTRATIVE_CLOSURE_MODE FileMan Field Label: 'ADMIN CLOSURE SIG BLOCK NAME' FileMan Field Number: '1607' %Library.String 67 ADMIN_CLOSURE_SIG_BLOCK_NAME FileMan Field Label: 'ADMIN CLOSURE SIG BLOCK TITLE' FileMan Field Number: '1608' %Library.String 68 ADMIN_CLOSURE_SIG_BLOCK_TITLE FileMan Field Label: 'AMENDED BY' FileMan Field Number: '1602' VALIP.prosthetic.fm2cw.NEWPERSON200 62 AMENDED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {AMENDED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AMENDED_BY_NAME 1 FileMan Field Label: 'AMENDMENT DATE/TIME' FileMan Field Number: '1601' %Library.FilemanTimeStamp 61 AMENDMENT_DATETIME FileMan Field Label: 'AMENDMENT SIGNED' FileMan Field Number: '1603' %Library.FilemanTimeStamp 63 AMENDMENT_SIGNED FileMan Field Label: 'AMENDMENT SIGN BLOCK NAME' FileMan Field Number: '1604' This is the signature block name of the person who amended the document. %Library.String 64 AMENDMENT_SIGN_BLOCK_NAME FileMan Field Label: 'AMENDMENT SIGN BLOCK TITLE' FileMan Field Number: '1605' %Library.String 65 AMENDMENT_SIGN_BLOCK_TITLE FileMan Field Label: 'ARCHIVE/PURGE DATE/TIME' FileMan Field Number: '1609' %Library.FilemanTimeStamp 69 ARCHIVEPURGE_DATETIME FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '1209' VALIP.prosthetic.fm2cw.NEWPERSON200 26 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'AUTHOR/DICTATOR' FileMan Field Number: '1202' AUTHOR OF NOTE This is the person who composed or dictated the document. VALIP.prosthetic.fm2cw.NEWPERSON200 19 AUTHORDICTATOR NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {AUTHORDICTATOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 AUTHORDICTATOR_NAME 1 FileMan Field Label: 'CAPTURE METHOD' FileMan Field Number: '1303' %Library.EnumString 32 CAPTURE_METHOD FileMan Field Label: 'CLINIC' FileMan Field Number: '1203' This is the stop code to which the document is to be credited (e.g., if the document is a progress note documenting an encounter which took place in the Admitting/Screening Clinic, then select the corresponding stop code, etc.). VALIP.prosthetic.fm2cw.CLINICSTOP407 20 CLINIC NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {CLINIC_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLINIC_NAME 1 FileMan Field Label: 'COSIGNATURE BLOCK NAME' FileMan Field Number: '1509' %Library.String 56 COSIGNATURE_BLOCK_NAME FileMan Field Label: 'COSIGNATURE BLOCK TITLE' FileMan Field Number: '1510' %Library.String 57 COSIGNATURE_BLOCK_TITLE FileMan Field Label: 'COSIGNATURE DATE/TIME' FileMan Field Number: '1507' This is the date/time at which cosignature was obtained. %Library.FilemanTimeStamp 54 COSIGNATURE_DATETIME FileMan Field Label: 'COSIGNATURE MODE' FileMan Field Number: '1511' %Library.EnumString 58 COSIGNATURE_MODE FileMan Field Label: 'COSIGNATURE NEEDED' FileMan Field Number: '1506' This boolean flag indicates to the system whether or not a cosignature is needed. %Library.EnumString 53 COSIGNATURE_NEEDED FileMan Field Label: 'COSIGNED BY' FileMan Field Number: '1508' VALIP.prosthetic.fm2cw.NEWPERSON200 55 COSIGNED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {COSIGNED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 COSIGNED_BY_NAME 1 FileMan Field Label: 'CREDIT STOP CODE ON COMPLETION' FileMan Field Number: '.11' This boolean field indicates whether the stop code associated with a new visit should be credited when the note is completed. %Library.EnumString 13 CREDIT_STOP_CODE_ON_COMPLETION FileMan Field Label: 'DATE/TIME PERFORMED' FileMan Field Number: '70202' This field contains the Date/Time when the procedure was performed. %Library.FilemanTimeStamp 79 DATETIME_PERFORMED FileMan Field Label: 'DELETED BY' FileMan Field Number: '1610' This is the person who deleted the document per the Privacy Act. VALIP.prosthetic.fm2cw.NEWPERSON200 70 DELETED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {DELETED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DELETED_BY_NAME 1 FileMan Field Label: 'DELETION DATE' FileMan Field Number: '1611' This is the date/(time optional) at which the document was deleted per the Privacy Act. %Library.FilemanTimeStamp 71 DELETION_DATE FileMan Field Label: 'DICTATION DATE' FileMan Field Number: '1307' This is the date (and time) on which the document was dictated by its author. In the event that a document originates by dictation, we recommend that the REFERENCE DATE for the document be defaulted to dictation date, as the author will be able to identify the document by the date on which s/he dictated it. %Library.FilemanTimeStamp 36 DICTATION_DATE FileMan Field Label: 'DIVISION' FileMan Field Number: '1212' This field contains the institution associated with the document. It is extracted from the document's hospital location if known; otherwise it is extracted from the user's log-on division. VALIP.prosthetic.fm2cw.INSTITUTION4 29 DIVISION NAME INSTITUTION NAME This is the name of the institution with out modifiers like state or type.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {DIVISION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DIVISION_NAME 1 FileMan Field Label: 'DOCUMENT TYPE' FileMan Field Number: '.01' This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior. VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 1 3 DOCUMENT_TYPE NAME The name of a Document Definition entry (.01 field) must be between 3 and 60 characters long and may not begin with a punctuation character. Although names can be entered in any case, they are transformed to upper case before being stored. It functions as the Technical Name of the entry. Some sites have put KWIC cross references on it to get, say, all Titles from a given Service. Name can be used when entering documents as the name of the Title being entered. Print Name and Abbreviation will also be accepted. Since it is the Technical, .01 Name, the Document Definition Utility (TIUF) uses this name throughout. The .01 name differs from the Print Name, which appears in lists of documents and functions as the Title of the document. It also differs from Item Menu Text (1-20 characters), which is used when selecting documents from 3-COLUMN MENUS. The ORDER of names in TIUF options Edit Document Definitions and Create Document Definitions is by Item Sequence under the parent. Order is alphabetic by Menu Text if an Item has no Item Sequence. When a new entry is added to file 8925.1, the Document Definition Utility (TIUF) enters the Name as the default Print Name. The Print Name can be edited if a different Print Name is desired. File 8925.1 permits more than 1 entry with the same name as long as they don't have the same Type. In that sense, NAMES are reusable. However, ENTRIES are NOT reusable (except specially marked Components): an entry is NOT allowed to be an item under more than one parent unless it is a Shared Component. (See Type Component.) Name is a BASIC Field. OBJECT Name Object Names, like any other names are 3-60 characters, not starting with punctuation. Sites may want to namespace object names, use the object Print Name as a more familiar name, and use object Abbreviation as a short name to embed in boilerplate text. Unlike other Types, Object Abbreviation and Print Name as well as Name must be uppercase. Object Name, Abbreviation, or Print Name can be embedded in boilerplate text. Since TIU must be able to determine from this which object is intended, object Names, Abbreviations, and Print Names must be unique. In fact, an object Name must differ not only from every other object name, but also from every other object Abbreviation and from every other object Print Name. Same for Abbreviations and Print Names. For example, if some object has abbreviation 'CND', then 'CND' cannot be used for any other object Name, Abbreviation, or Print Name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {DOCUMENT_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DOCUMENT_TYPE_NAME 1 FileMan Field Label: 'EDIT TEXT BUFFER' FileMan Field Number: '3' This field provides a temporary holding place for the body of a report to prevent inadvertant record deletion or corruption in a manner independent of the user's preferred editor. %Library.String 17 EDIT_TEXT_BUFFER FileMan Field Label: 'ENTERED BY' FileMan Field Number: '1302' VALIP.prosthetic.fm2cw.NEWPERSON200 31 ENTERED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {ENTERED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ENTERED_BY_NAME 1 FileMan Field Label: 'ENTRY DATE/TIME' FileMan Field Number: '1201' This is the date/time at which the document was originally entered into the database. %Library.FilemanTimeStamp 18 ENTRY_DATETIME FileMan Field Label: 'EPISODE BEGIN DATE/TIME' FileMan Field Number: '.07' This is the date/time at which the treatment episode associated with this document was initiated (e.g., Amission date/time for a discharge summary, Visit date/time for a clinic note, Transfer date/time for an interim summary). Time is optional. %Library.FilemanTimeStamp 9 EPISODE_BEGIN_DATETIME FileMan Field Label: 'EPISODE END DATE/TIME' FileMan Field Number: '.08' This is the ending date/time for the treatment episode associated with this document (e.g., . Time is optional. %Library.FilemanTimeStamp 10 EPISODE_END_DATETIME FileMan Field Label: 'EXPECTED COSIGNER' FileMan Field Number: '1208' VALIP.prosthetic.fm2cw.NEWPERSON200 25 EXPECTED_COSIGNER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {EXPECTED_COSIGNER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EXPECTED_COSIGNER_NAME 1 FileMan Field Label: 'EXPECTED SIGNER' FileMan Field Number: '1204' This is the person who is expected to enter the first-line signature for the document. Ordinarily, this would be the author. One case in which this would differ would be in the case of a Discharge Summary, when the author's signature is NOT required. Then, the attending physician would be the expected signer. VALIP.prosthetic.fm2cw.NEWPERSON200 21 EXPECTED_SIGNER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {EXPECTED_SIGNER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 EXPECTED_SIGNER_NAME 1 FileMan Field Label: 'HOSPITAL LOCATION' FileMan Field Number: '1205' PATIENT LOCATION This is the location (WARD or CLINIC) associated with the document. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 22 HOSPITAL_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {HOSPITAL_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOSPITAL_LOCATION_NAME 1 FileMan Field Label: 'ID PARENT' FileMan Field Number: '2101' Applies to ID (interdisciplinary) notes only. The ID PARENT is the note this note is attached to, making this note an entry in an ID note. A note with an ID PARENT is referred to as an ID child note. ID parent notes and ID child notes are both file entries in file 8925. The entries of an interdisciplinary note consist of the first entry, which is also the ID PARENT of the ID note, followed by the ID children. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 76 ID_PARENT DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {ID_PARENT_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 ID_PARENT_DOCUMENT_TYPE 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^TIU(8925,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IRT RECORD' FileMan Field Number: '1403' VALIP.prosthetic.fm2cw.INCOMPLETERECORDS393 40 IRT_RECORD PATIENT Enter the patient for which this summary or op report has been recorded.]]> %Library.String 1 PATIENT into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {IRT_RECORD_PATIENT}=$select(SQLCODE=0:val,1:"")]]> 1 IRT_RECORD_PATIENT 1 FileMan Field Label: 'LINE COUNT' FileMan Field Number: '.1' This is the number of characters in the document (blank lines excluded), divided by the CHARACTERS PER LINE parameter defined by your site. %Library.String 12 LINE_COUNT FileMan Field Label: 'MARKED COSIGNED ON CHART BY' FileMan Field Number: '1513' This is the user who marked a given document as 'cosigned on chart.' VALIP.prosthetic.fm2cw.NEWPERSON200 60 MARKED_COSIGNED_ON_CHART_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {MARKED_COSIGNED_ON_CHART_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MARKED_COSIGNED_ON_CHART_BY_NAME 1 FileMan Field Label: 'MARKED SIGNED ON CHART BY' FileMan Field Number: '1512' This is the identity of the person who marked a given document 'signed on chart,' indicating that a 'wet' signature of the chart copy had been obtained. VALIP.prosthetic.fm2cw.NEWPERSON200 59 MARKED_SIGNED_ON_CHART_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {MARKED_SIGNED_ON_CHART_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MARKED_SIGNED_ON_CHART_BY_NAME 1 FileMan Field Label: 'MARK DISCH DT FOR CORRECTION' FileMan Field Number: '.12' This boolean field identfies those discharge summaries which were filed prior to actual discharge of the patient for the nightly background process to back-fill with corrected discharge dates. %Library.EnumString 14 MARK_DISCH_DT_FOR_CORRECTION FileMan Field Label: 'ORDER NUMBER' FileMan Field Number: '1210' This is the Order which was acted on to produce the result reported in the current document. VALIP.prosthetic.fm2cw.ORDER100 27 ORDER_NUMBER ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {ORDER_NUMBER_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORDER_NUMBER_ORDER_ 1 FileMan Field Label: 'PARENT' FileMan Field Number: '.06' In the event that the current report is an addendum or replacement, or is a component of a report, this field points to the original report. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 8 PARENT FileMan Field Label: 'PARENT DOCUMENT TYPE' FileMan Field Number: '.04' This field points to the immediate parent class or document type to which the current record belongs. For example, when the current document has the type SOAP - GENERAL NOTE, this field will point to PROGRESS NOTE, as the parent class to which SOAP Notes belong, whereas, if the current record is a SUBJECTIVE component, then this field will point to SOAP - GENERAL NOTE as the parent document type to which the component belongs. VALIP.prosthetic.fm2cw.TIUDOCUMENTDEFINITION89251 6 PARENT_DOCUMENT_TYPE DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {PARENT_DOCUMENT_TYPE0}=$select(SQLCODE=0:val,1:"")]]> 1 PARENT_DOCUMENT_TYPE0 1 NAME The name of a Document Definition entry (.01 field) must be between 3 and 60 characters long and may not begin with a punctuation character. Although names can be entered in any case, they are transformed to upper case before being stored. It functions as the Technical Name of the entry. Some sites have put KWIC cross references on it to get, say, all Titles from a given Service. Name can be used when entering documents as the name of the Title being entered. Print Name and Abbreviation will also be accepted. Since it is the Technical, .01 Name, the Document Definition Utility (TIUF) uses this name throughout. The .01 name differs from the Print Name, which appears in lists of documents and functions as the Title of the document. It also differs from Item Menu Text (1-20 characters), which is used when selecting documents from 3-COLUMN MENUS. The ORDER of names in TIUF options Edit Document Definitions and Create Document Definitions is by Item Sequence under the parent. Order is alphabetic by Menu Text if an Item has no Item Sequence. When a new entry is added to file 8925.1, the Document Definition Utility (TIUF) enters the Name as the default Print Name. The Print Name can be edited if a different Print Name is desired. File 8925.1 permits more than 1 entry with the same name as long as they don't have the same Type. In that sense, NAMES are reusable. However, ENTRIES are NOT reusable (except specially marked Components): an entry is NOT allowed to be an item under more than one parent unless it is a Shared Component. (See Type Component.) Name is a BASIC Field. OBJECT Name Object Names, like any other names are 3-60 characters, not starting with punctuation. Sites may want to namespace object names, use the object Print Name as a more familiar name, and use object Abbreviation as a short name to embed in boilerplate text. Unlike other Types, Object Abbreviation and Print Name as well as Name must be uppercase. Object Name, Abbreviation, or Print Name can be embedded in boilerplate text. Since TIU must be able to determine from this which object is intended, object Names, Abbreviations, and Print Names must be unique. In fact, an object Name must differ not only from every other object name, but also from every other object Abbreviation and from every other object Print Name. Same for Abbreviations and Print Names. For example, if some object has abbreviation 'CND', then 'CND' cannot be used for any other object Name, Abbreviation, or Print Name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {PARENT_DOCUMENT_TYPE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PARENT_DOCUMENT_TYPE_NAME 1 FileMan Field Label: 'PATIENT' FileMan Field Number: '.02' This field contains a pointer to the patient file. VALIP.prosthetic.fm2cw.PATIENTIHS9000001 4 PATIENT FileMan Field Label: 'PATIENT MOVEMENT RECORD' FileMan Field Number: '1401' VALIP.prosthetic.fm2cw.PATIENTMOVEMENT405 38 PATIENT_MOVEMENT_RECORD DATE/TIME MOVEMENT DATE/TIME Enter in this field the date/time of the movement (admission, transfer, discharge, treating specialty transfer, lodger check-in, or lodger check- out). Time must be included.]]> %Library.FilemanTimeStamp 1 DATETIME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {PATIENT_MOVEMENT_RECORD_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_MOVEMENT_RECORD_DATETIME 1 NAME This field points to the Patient file (#2) and has the same internal number as that file. Thus, the patient's name is the Patient file (#2) name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME 1 FileMan Field Label: 'PRF FLAG ACTION' FileMan Field Number: '1407' LINKED PATIENT RECORD FLAG ACTION PRF FLAG ACTION applies only to Patient Record Flag (PRF) notes. When a new flag is assigned to a given patient, or, after review, another action such as CONTINUE is taken on an existing flag assignment, a note must be written to document the clinical reasons for the action. Upon entry, the note is linked to the action it documents. Field PRF FLAG ACTION refers to this linked action. The field contains the Date of the Action followed by the Name of the Action. Example: 3/3/05 CONTINUE If the PRF note is not linked to a flag action or the linked action date or name cannot be found, the field has value "?". If the note is not a PRF note (a note with a title under Document Class PATIENT RECORD FLAG CAT I or PATIENT RECORD FLAG CAT II), the field has value NA for non-applicable. Technical Note: Flag Actions and their linked note entry numbers are stored in the PRF ASSIGNMENT HISTORY FILE (#26.14). The Date and Action are attributes of the Assignment History entry the note is linked to. %Library.String 1 47 set U="^",D0=$piece({RowId},"||",1) S X=$S($L($T(CFLDACT^TIUPRFL)):$$CFLDACT^TIUPRFL(D0),1:"?") set {PRF_FLAG_ACTION}=X 1 PRF_FLAG_ACTION FileMan Field Label: 'PROCEDURE SUMMARY CODE' FileMan Field Number: '70201' This field contains the summary code for this procedure once it is complete. 'Machine Resulted' is the initial, default code. %Library.EnumString 78 PROCEDURE_SUMMARY_CODE FileMan Field Label: 'REASON FOR DELETION' FileMan Field Number: '1612' This is the reason for which the document was deleted, either: Privacy Act, as invoked by the patient; or Administrative Action, where the note needed to be removed, following signature, for administrative reasons. %Library.EnumString 72 REASON_FOR_DELETION FileMan Field Label: 'REFERENCE DATE' FileMan Field Number: '1301' DATE/TIME OF NOTE This is the Date (and time) by which the clinician will reference the document. For Progress Notes, this will likely be the date of the provider's encounter with the patient. For Discharge Summaries, it will correspond to the Discharge Date of the Admission referenced in the document. (If there is no Discharge Date when dictated, it will correspond to the dictation date of the record instead.) In all cases, this is the date by which the document will be referenced and sorted. %Library.FilemanTimeStamp 30 REFERENCE_DATE FileMan Field Label: 'RELEASE DATE/TIME' FileMan Field Number: '1304' %Library.FilemanTimeStamp 33 RELEASE_DATETIME FileMan Field Label: 'REPORT TEXT' FileMan Field Number: '2' This is a word processing field that contains the report text. %Library.String 16 REPORT_TEXT FileMan Field Label: 'REQUESTING PACKAGE REFERENCE' FileMan Field Number: '1405' CONSULT NUMBER This field allows a linkage to be maintained between the TIU Document and the DHCP Package for which it was generated. %Library.String 42 1 REQUESTINGPACKAGEREFERENCESELECTCONSULTATIONREQUEST,REQUESTINGPACKAGEREFERENCESELECTSURGICALCASE REQUESTING_PACKAGE_REFERENCE Variable Pointer Reference Field for Pointer field Select_CONSULTATION_REQUEST 'REQUEST/CONSULTATION' VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 43 1 REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST_FILE_ENTRY_DATE 1 Variable Pointer Reference Field for Pointer field Select_SURGICAL_CASE 'SURGERY' VALIP.prosthetic.fm2cw.SURGERY130 44 1 REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE PATIENT Patient's Name This is the name of the patient. ]]> %Library.String 1 PATIENT into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE_PATIENT}=$select(SQLCODE=0:val,1:"")]]> 1 REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE_PATIENT 1 Variable Pointer Value Field for Pointer field REQUESTING_PACKAGE_REFERENCE %Library.String 1 45 if {REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST_FILE_ENTRY_DATE}'="" { set {*}={REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST_FILE_ENTRY_DATE} quit } if {REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE_PATIENT}'="" { set {*}={REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE_PATIENT} quit } set {*}="" 1 REQUESTING_PACKAGE_REFERENCE_VALUE FileMan Field Label: 'RETRACTED ORIGINAL' FileMan Field Number: '1406' This self-refering pointer identifies the original document which was retracted in error to produce this record. VALIP.prosthetic.fm2cw.TIUDOCUMENT8925 46 RETRACTED_ORIGINAL DOCUMENT TYPE This field points to the Tiu Document Definition file, whose entry defines the components of the document and various parameters for the document's behavior.]]> %Library.String 1 DOCUMENT_TYPE into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {RETRACTED_ORIGINAL_DOCUMENT_TYPE}=$select(SQLCODE=0:val,1:"")]]> 1 RETRACTED_ORIGINAL_DOCUMENT_TYPE 1 FileMan Field Label: 'SECONDARY VISIT' FileMan Field Number: '1207' VALIP.prosthetic.fm2cw.VISIT9000010 24 SECONDARY_VISIT VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {SECONDARY_VISIT_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 SECONDARY_VISIT_VISITADMIT_DATETIME 1 FileMan Field Label: 'SERVICE' FileMan Field Number: '1404' VALIP.prosthetic.fm2cw.SERVICESECTION49 41 SERVICE FileMan Field Label: 'SERVICE CREDIT STOP' FileMan Field Number: '1206' This is the attending physician of record, who is ultimately responsible for the care of the patient, and the accurate documentation of the care episode. VALIP.prosthetic.fm2cw.CLINICSTOP407 23 SERVICE_CREDIT_STOP NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {SERVICE_CREDIT_STOP_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_CREDIT_STOP_NAME 1 NAME Enter Service or Section name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {SERVICE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICE_NAME 1 FileMan Field Label: 'SIGNATURE BLOCK NAME' FileMan Field Number: '1503' %Library.String 50 SIGNATURE_BLOCK_NAME FileMan Field Label: 'SIGNATURE BLOCK TITLE' FileMan Field Number: '1504' This is the encrypted signature block title of the person who signed the document. %Library.String 51 SIGNATURE_BLOCK_TITLE FileMan Field Label: 'SIGNATURE DATE/TIME' FileMan Field Number: '1501' %Library.FilemanTimeStamp 48 SIGNATURE_DATETIME FileMan Field Label: 'SIGNATURE MODE' FileMan Field Number: '1505' This is the mode by which the signature was obtained (i.e., either electronic or chart). %Library.EnumString 52 SIGNATURE_MODE FileMan Field Label: 'SIGNED BY' FileMan Field Number: '1502' VALIP.prosthetic.fm2cw.NEWPERSON200 49 SIGNED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {SIGNED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SIGNED_BY_NAME 1 FileMan Field Label: 'STATUS' FileMan Field Number: '.05' This field is intended to accommodate the status of a given report. VALIP.prosthetic.fm2cw.TIUSTATUS89256 7 STATUS NAME This is the status name used in selecting or displaying the status of the document.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {STATUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATUS_NAME 1 FileMan Field Label: 'SUBJECT (OPTIONAL description)' FileMan Field Number: '1701' This freetext field is used to help you find documents by subject (i.e., consider the subject a "key word" of sorts. %Library.String 74 SUBJECT_OPTIONAL_DESCRIPTION FileMan Field Label: 'SUSPENSE DATE/TIME' FileMan Field Number: '1308' This is the date (and time) on which the document will be removed from public view. It is currently used only for Patient Postings, although it may be generalized for use with other document types, if appropriate. %Library.FilemanTimeStamp 37 SUSPENSE_DATETIME FileMan Field Label: 'TREATING SPECIALTY' FileMan Field Number: '1402' VALIP.prosthetic.fm2cw.FACILITYTREATINGSPECIALTY457 39 TREATING_SPECIALTY NAME Contains the name of the facility treating specialty. Types of treating specialties may vary between facilities.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {TREATING_SPECIALTY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 TREATING_SPECIALTY_NAME 1 FileMan Field Label: 'URGENCY' FileMan Field Number: '.09' This is the urgency with which the report should be completed. %Library.EnumString 11 URGENCY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 81 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VBC LINE COUNT' FileMan Field Number: '1801' A VBC Line is defined as the total number of characters you can see with the naked eye, divided by 65. It includes any character contained within a header or footer. Spaces, carriage returns, and hidden format instructions, such as bold, underline, text boxes, printer configurations, spell check, etc., are not counted in the total character count. A VBC Line is calculated by counting all visual characters and simply dividing the total number of characters by 65 to arrive at the number of defined lines. %Library.Numeric 75 VBC_LINE_COUNT FileMan Field Label: 'VERIFICATION DATE/TIME' FileMan Field Number: '1305' %Library.FilemanTimeStamp 34 VERIFICATION_DATETIME FileMan Field Label: 'VERIFIED BY' FileMan Field Number: '1306' VALIP.prosthetic.fm2cw.NEWPERSON200 35 VERIFIED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {VERIFIED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VERIFIED_BY_NAME 1 FileMan Field Label: 'VHA ENTERPRISE STANDARD TITLE' FileMan Field Number: '89261' This computed field allows calls to FileMan Utilities (e.g. DIQ) to resolve the VHA ENTERPRISE STANDARD TITLE to which the local title is mapped. %Library.String 1 80 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) X ^DD(8925,89261,9.2) S Y(8925,89261,101)=$S($D(^TIU(8925.1,D0,15)):^(15),1:"") S X=$P($G(^TIU(8926.1,+$P(Y(8925,89261,101),U,1),0)),U) S D0=Y(8925,89261,80) set {VHA_ENTERPRISE_STANDARD_TITLE}=X 1 VHA_ENTERPRISE_STANDARD_TITLE FileMan Field Label: 'VISIT' FileMan Field Number: '.03' VALIP.prosthetic.fm2cw.VISIT9000010 5 VISIT FileMan Field Label: 'VISIT ID' FileMan Field Number: '15001' Unique Visit Identifier for use by CIRN. The value of this field should ONLY be modified by virtue of a change to the Visit (.03) field. %Library.String 77 VISIT_ID FileMan Field Label: 'VISIT LOCATION' FileMan Field Number: '1211' This is the location at which the visit/admission occurred. As distinct from the HOSPITAL LOCATION field, which represents the location at the time the document was written, this is the location for the visit/admission with which the note is associated. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 28 VISIT_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {VISIT_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 VISIT_LOCATION_NAME 1 FileMan Field Label: 'VISIT TYPE' FileMan Field Number: '.13' This field is used to identify the type of visit information related to the current document. The value is determined during processing and is entered by the program. It is used in the generation of a cross-reference to identify available documents for specified visits. %Library.String 15 VISIT_TYPE VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_8925 where %ID=:id) set {VISIT_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 VISIT_VISITADMIT_DATETIME 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^TIU(8925," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DOCUMENT_TYPE}'="" FDA(8925,"+1,",.01)={"DOCUMENT_TYPE"} set:{PATIENT}'="" FDA(8925,"+1,",.02)={"PATIENT"} set:{VISIT}'="" FDA(8925,"+1,",.03)={"VISIT"} set:{PARENT_DOCUMENT_TYPE}'="" FDA(8925,"+1,",.04)={"PARENT_DOCUMENT_TYPE"} set:{STATUS}'="" FDA(8925,"+1,",.05)={"STATUS"} set:{PARENT}'="" FDA(8925,"+1,",.06)={"PARENT"} set:{EPISODE_BEGIN_DATETIME}'="" FDA(8925,"+1,",.07)={"EPISODE_BEGIN_DATETIME"} set:{EPISODE_END_DATETIME}'="" FDA(8925,"+1,",.08)={"EPISODE_END_DATETIME"} set:{URGENCY}'="" FDA(8925,"+1,",.09)={"URGENCY"} set:{LINE_COUNT}'="" FDA(8925,"+1,",.1)={"LINE_COUNT"} set:{CREDIT_STOP_CODE_ON_COMPLETION}'="" FDA(8925,"+1,",.11)={"CREDIT_STOP_CODE_ON_COMPLETION"} set:{MARK_DISCH_DT_FOR_CORRECTION}'="" FDA(8925,"+1,",.12)={"MARK_DISCH_DT_FOR_CORRECTION"} set:{VISIT_TYPE}'="" FDA(8925,"+1,",.13)={"VISIT_TYPE"} set:{ENTRY_DATETIME}'="" FDA(8925,"+1,",1201)={"ENTRY_DATETIME"} set:{AUTHORDICTATOR}'="" FDA(8925,"+1,",1202)={"AUTHORDICTATOR"} set:{CLINIC}'="" FDA(8925,"+1,",1203)={"CLINIC"} set:{EXPECTED_SIGNER}'="" FDA(8925,"+1,",1204)={"EXPECTED_SIGNER"} set:{HOSPITAL_LOCATION}'="" FDA(8925,"+1,",1205)={"HOSPITAL_LOCATION"} set:{SERVICE_CREDIT_STOP}'="" FDA(8925,"+1,",1206)={"SERVICE_CREDIT_STOP"} set:{SECONDARY_VISIT}'="" FDA(8925,"+1,",1207)={"SECONDARY_VISIT"} set:{EXPECTED_COSIGNER}'="" FDA(8925,"+1,",1208)={"EXPECTED_COSIGNER"} set:{ATTENDING_PHYSICIAN}'="" FDA(8925,"+1,",1209)={"ATTENDING_PHYSICIAN"} set:{ORDER_NUMBER}'="" FDA(8925,"+1,",1210)={"ORDER_NUMBER"} set:{VISIT_LOCATION}'="" FDA(8925,"+1,",1211)={"VISIT_LOCATION"} set:{DIVISION}'="" FDA(8925,"+1,",1212)={"DIVISION"} set:{REFERENCE_DATE}'="" FDA(8925,"+1,",1301)={"REFERENCE_DATE"} set:{ENTERED_BY}'="" FDA(8925,"+1,",1302)={"ENTERED_BY"} set:{CAPTURE_METHOD}'="" FDA(8925,"+1,",1303)={"CAPTURE_METHOD"} set:{RELEASE_DATETIME}'="" FDA(8925,"+1,",1304)={"RELEASE_DATETIME"} set:{VERIFICATION_DATETIME}'="" FDA(8925,"+1,",1305)={"VERIFICATION_DATETIME"} set:{VERIFIED_BY}'="" FDA(8925,"+1,",1306)={"VERIFIED_BY"} set:{DICTATION_DATE}'="" FDA(8925,"+1,",1307)={"DICTATION_DATE"} set:{SUSPENSE_DATETIME}'="" FDA(8925,"+1,",1308)={"SUSPENSE_DATETIME"} set:{PATIENT_MOVEMENT_RECORD}'="" FDA(8925,"+1,",1401)={"PATIENT_MOVEMENT_RECORD"} set:{TREATING_SPECIALTY}'="" FDA(8925,"+1,",1402)={"TREATING_SPECIALTY"} set:{IRT_RECORD}'="" FDA(8925,"+1,",1403)={"IRT_RECORD"} set:{SERVICE}'="" FDA(8925,"+1,",1404)={"SERVICE"} set:{REQUESTING_PACKAGE_REFERENCE}'="" FDA(8925,"+1,",1405)={"REQUESTING_PACKAGE_REFERENCE"} set:{RETRACTED_ORIGINAL}'="" FDA(8925,"+1,",1406)={"RETRACTED_ORIGINAL"} set:{SIGNATURE_DATETIME}'="" FDA(8925,"+1,",1501)={"SIGNATURE_DATETIME"} set:{SIGNED_BY}'="" FDA(8925,"+1,",1502)={"SIGNED_BY"} set:{SIGNATURE_BLOCK_NAME}'="" FDA(8925,"+1,",1503)={"SIGNATURE_BLOCK_NAME"} set:{SIGNATURE_BLOCK_TITLE}'="" FDA(8925,"+1,",1504)={"SIGNATURE_BLOCK_TITLE"} set:{SIGNATURE_MODE}'="" FDA(8925,"+1,",1505)={"SIGNATURE_MODE"} set:{COSIGNATURE_NEEDED}'="" FDA(8925,"+1,",1506)={"COSIGNATURE_NEEDED"} set:{COSIGNATURE_DATETIME}'="" FDA(8925,"+1,",1507)={"COSIGNATURE_DATETIME"} set:{COSIGNED_BY}'="" FDA(8925,"+1,",1508)={"COSIGNED_BY"} set:{COSIGNATURE_BLOCK_NAME}'="" FDA(8925,"+1,",1509)={"COSIGNATURE_BLOCK_NAME"} set:{COSIGNATURE_BLOCK_TITLE}'="" FDA(8925,"+1,",1510)={"COSIGNATURE_BLOCK_TITLE"} set:{COSIGNATURE_MODE}'="" FDA(8925,"+1,",1511)={"COSIGNATURE_MODE"} set:{MARKED_SIGNED_ON_CHART_BY}'="" FDA(8925,"+1,",1512)={"MARKED_SIGNED_ON_CHART_BY"} set:{MARKED_COSIGNED_ON_CHART_BY}'="" FDA(8925,"+1,",1513)={"MARKED_COSIGNED_ON_CHART_BY"} set:{AMENDMENT_DATETIME}'="" FDA(8925,"+1,",1601)={"AMENDMENT_DATETIME"} set:{AMENDED_BY}'="" FDA(8925,"+1,",1602)={"AMENDED_BY"} set:{AMENDMENT_SIGNED}'="" FDA(8925,"+1,",1603)={"AMENDMENT_SIGNED"} set:{AMENDMENT_SIGN_BLOCK_NAME}'="" FDA(8925,"+1,",1604)={"AMENDMENT_SIGN_BLOCK_NAME"} set:{AMENDMENT_SIGN_BLOCK_TITLE}'="" FDA(8925,"+1,",1605)={"AMENDMENT_SIGN_BLOCK_TITLE"} set:{ADMINISTRATIVE_CLOSURE_DATE}'="" FDA(8925,"+1,",1606)={"ADMINISTRATIVE_CLOSURE_DATE"} set:{ADMIN_CLOSURE_SIG_BLOCK_NAME}'="" FDA(8925,"+1,",1607)={"ADMIN_CLOSURE_SIG_BLOCK_NAME"} set:{ADMIN_CLOSURE_SIG_BLOCK_TITLE}'="" FDA(8925,"+1,",1608)={"ADMIN_CLOSURE_SIG_BLOCK_TITLE"} set:{ARCHIVEPURGE_DATETIME}'="" FDA(8925,"+1,",1609)={"ARCHIVEPURGE_DATETIME"} set:{DELETED_BY}'="" FDA(8925,"+1,",1610)={"DELETED_BY"} set:{DELETION_DATE}'="" FDA(8925,"+1,",1611)={"DELETION_DATE"} set:{REASON_FOR_DELETION}'="" FDA(8925,"+1,",1612)={"REASON_FOR_DELETION"} set:{ADMINISTRATIVE_CLOSURE_MODE}'="" FDA(8925,"+1,",1613)={"ADMINISTRATIVE_CLOSURE_MODE"} set:{SUBJECT_OPTIONAL_DESCRIPTION}'="" FDA(8925,"+1,",1701)={"SUBJECT_OPTIONAL_DESCRIPTION"} set:{VBC_LINE_COUNT}'="" FDA(8925,"+1,",1801)={"VBC_LINE_COUNT"} set:{ID_PARENT}'="" FDA(8925,"+1,",2101)={"ID_PARENT"} set:{VISIT_ID}'="" FDA(8925,"+1,",15001)={"VISIT_ID"} set:{PROCEDURE_SUMMARY_CODE}'="" FDA(8925,"+1,",70201)={"PROCEDURE_SUMMARY_CODE"} set:{DATETIME_PERFORMED}'="" FDA(8925,"+1,",70202)={"DATETIME_PERFORMED"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8925)") set %SkipFiling=1 if $d(%FMERR(8925,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REPORT_TEXT}'="" { set D0={RowId} for i=1:1:$l({REPORT_TEXT},$c(13,10)) { set wp(i)=$p({REPORT_TEXT},$c(13,10),i) } do WP^DIE(8925,{RowId},2,,"wp","%FMERR(8925)") if $d(%FMERR(8925,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {EDIT_TEXT_BUFFER}'="" { set D0={RowId} for i=1:1:$l({EDIT_TEXT_BUFFER},$c(13,10)) { set wp(i)=$p({EDIT_TEXT_BUFFER},$c(13,10),i) } do WP^DIE(8925,{RowId},3,,"wp","%FMERR(8925)") if $d(%FMERR(8925,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DOCUMENT_TYPE*C} FDA(8925,IENS,.01)={DOCUMENT_TYPE} set:{PATIENT*C} FDA(8925,IENS,.02)={PATIENT} set:{VISIT*C} FDA(8925,IENS,.03)={VISIT} set:{PARENT_DOCUMENT_TYPE*C} FDA(8925,IENS,.04)={PARENT_DOCUMENT_TYPE} set:{STATUS*C} FDA(8925,IENS,.05)={STATUS} set:{PARENT*C} FDA(8925,IENS,.06)={PARENT} set:{EPISODE_BEGIN_DATETIME*C} FDA(8925,IENS,.07)={EPISODE_BEGIN_DATETIME} set:{EPISODE_END_DATETIME*C} FDA(8925,IENS,.08)={EPISODE_END_DATETIME} set:{URGENCY*C} FDA(8925,IENS,.09)={URGENCY} set:{LINE_COUNT*C} FDA(8925,IENS,.1)={LINE_COUNT} set:{CREDIT_STOP_CODE_ON_COMPLETION*C} FDA(8925,IENS,.11)={CREDIT_STOP_CODE_ON_COMPLETION} set:{MARK_DISCH_DT_FOR_CORRECTION*C} FDA(8925,IENS,.12)={MARK_DISCH_DT_FOR_CORRECTION} set:{VISIT_TYPE*C} FDA(8925,IENS,.13)={VISIT_TYPE} set:{ENTRY_DATETIME*C} FDA(8925,IENS,1201)={ENTRY_DATETIME} set:{AUTHORDICTATOR*C} FDA(8925,IENS,1202)={AUTHORDICTATOR} set:{CLINIC*C} FDA(8925,IENS,1203)={CLINIC} set:{EXPECTED_SIGNER*C} FDA(8925,IENS,1204)={EXPECTED_SIGNER} set:{HOSPITAL_LOCATION*C} FDA(8925,IENS,1205)={HOSPITAL_LOCATION} set:{SERVICE_CREDIT_STOP*C} FDA(8925,IENS,1206)={SERVICE_CREDIT_STOP} set:{SECONDARY_VISIT*C} FDA(8925,IENS,1207)={SECONDARY_VISIT} set:{EXPECTED_COSIGNER*C} FDA(8925,IENS,1208)={EXPECTED_COSIGNER} set:{ATTENDING_PHYSICIAN*C} FDA(8925,IENS,1209)={ATTENDING_PHYSICIAN} set:{ORDER_NUMBER*C} FDA(8925,IENS,1210)={ORDER_NUMBER} set:{VISIT_LOCATION*C} FDA(8925,IENS,1211)={VISIT_LOCATION} set:{DIVISION*C} FDA(8925,IENS,1212)={DIVISION} set:{REFERENCE_DATE*C} FDA(8925,IENS,1301)={REFERENCE_DATE} set:{ENTERED_BY*C} FDA(8925,IENS,1302)={ENTERED_BY} set:{CAPTURE_METHOD*C} FDA(8925,IENS,1303)={CAPTURE_METHOD} set:{RELEASE_DATETIME*C} FDA(8925,IENS,1304)={RELEASE_DATETIME} set:{VERIFICATION_DATETIME*C} FDA(8925,IENS,1305)={VERIFICATION_DATETIME} set:{VERIFIED_BY*C} FDA(8925,IENS,1306)={VERIFIED_BY} set:{DICTATION_DATE*C} FDA(8925,IENS,1307)={DICTATION_DATE} set:{SUSPENSE_DATETIME*C} FDA(8925,IENS,1308)={SUSPENSE_DATETIME} set:{PATIENT_MOVEMENT_RECORD*C} FDA(8925,IENS,1401)={PATIENT_MOVEMENT_RECORD} set:{TREATING_SPECIALTY*C} FDA(8925,IENS,1402)={TREATING_SPECIALTY} set:{IRT_RECORD*C} FDA(8925,IENS,1403)={IRT_RECORD} set:{SERVICE*C} FDA(8925,IENS,1404)={SERVICE} set:{REQUESTING_PACKAGE_REFERENCE*C} FDA(8925,IENS,1405)={REQUESTING_PACKAGE_REFERENCE} set:{RETRACTED_ORIGINAL*C} FDA(8925,IENS,1406)={RETRACTED_ORIGINAL} set:{SIGNATURE_DATETIME*C} FDA(8925,IENS,1501)={SIGNATURE_DATETIME} set:{SIGNED_BY*C} FDA(8925,IENS,1502)={SIGNED_BY} set:{SIGNATURE_BLOCK_NAME*C} FDA(8925,IENS,1503)={SIGNATURE_BLOCK_NAME} set:{SIGNATURE_BLOCK_TITLE*C} FDA(8925,IENS,1504)={SIGNATURE_BLOCK_TITLE} set:{SIGNATURE_MODE*C} FDA(8925,IENS,1505)={SIGNATURE_MODE} set:{COSIGNATURE_NEEDED*C} FDA(8925,IENS,1506)={COSIGNATURE_NEEDED} set:{COSIGNATURE_DATETIME*C} FDA(8925,IENS,1507)={COSIGNATURE_DATETIME} set:{COSIGNED_BY*C} FDA(8925,IENS,1508)={COSIGNED_BY} set:{COSIGNATURE_BLOCK_NAME*C} FDA(8925,IENS,1509)={COSIGNATURE_BLOCK_NAME} set:{COSIGNATURE_BLOCK_TITLE*C} FDA(8925,IENS,1510)={COSIGNATURE_BLOCK_TITLE} set:{COSIGNATURE_MODE*C} FDA(8925,IENS,1511)={COSIGNATURE_MODE} set:{MARKED_SIGNED_ON_CHART_BY*C} FDA(8925,IENS,1512)={MARKED_SIGNED_ON_CHART_BY} set:{MARKED_COSIGNED_ON_CHART_BY*C} FDA(8925,IENS,1513)={MARKED_COSIGNED_ON_CHART_BY} set:{AMENDMENT_DATETIME*C} FDA(8925,IENS,1601)={AMENDMENT_DATETIME} set:{AMENDED_BY*C} FDA(8925,IENS,1602)={AMENDED_BY} set:{AMENDMENT_SIGNED*C} FDA(8925,IENS,1603)={AMENDMENT_SIGNED} set:{AMENDMENT_SIGN_BLOCK_NAME*C} FDA(8925,IENS,1604)={AMENDMENT_SIGN_BLOCK_NAME} set:{AMENDMENT_SIGN_BLOCK_TITLE*C} FDA(8925,IENS,1605)={AMENDMENT_SIGN_BLOCK_TITLE} set:{ADMINISTRATIVE_CLOSURE_DATE*C} FDA(8925,IENS,1606)={ADMINISTRATIVE_CLOSURE_DATE} set:{ADMIN_CLOSURE_SIG_BLOCK_NAME*C} FDA(8925,IENS,1607)={ADMIN_CLOSURE_SIG_BLOCK_NAME} set:{ADMIN_CLOSURE_SIG_BLOCK_TITLE*C} FDA(8925,IENS,1608)={ADMIN_CLOSURE_SIG_BLOCK_TITLE} set:{ARCHIVEPURGE_DATETIME*C} FDA(8925,IENS,1609)={ARCHIVEPURGE_DATETIME} set:{DELETED_BY*C} FDA(8925,IENS,1610)={DELETED_BY} set:{DELETION_DATE*C} FDA(8925,IENS,1611)={DELETION_DATE} set:{REASON_FOR_DELETION*C} FDA(8925,IENS,1612)={REASON_FOR_DELETION} set:{ADMINISTRATIVE_CLOSURE_MODE*C} FDA(8925,IENS,1613)={ADMINISTRATIVE_CLOSURE_MODE} set:{SUBJECT_OPTIONAL_DESCRIPTION*C} FDA(8925,IENS,1701)={SUBJECT_OPTIONAL_DESCRIPTION} set:{VBC_LINE_COUNT*C} FDA(8925,IENS,1801)={VBC_LINE_COUNT} set:{ID_PARENT*C} FDA(8925,IENS,2101)={ID_PARENT} set:{VISIT_ID*C} FDA(8925,IENS,15001)={VISIT_ID} set:{PROCEDURE_SUMMARY_CODE*C} FDA(8925,IENS,70201)={PROCEDURE_SUMMARY_CODE} set:{DATETIME_PERFORMED*C} FDA(8925,IENS,70202)={DATETIME_PERFORMED} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925)") set %SkipFiling=1 if $d(%FMERR(8925,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REPORT_TEXT*C} { set D0={RowId} kill wp if {REPORT_TEXT}'="" { set wproot="wp" for i=1:1:$l({REPORT_TEXT},$c(13,10)) { set wp(i)=$p({REPORT_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(8925,{RowId},2,,wproot,"%FMERR(8925)") if $d(%FMERR(8925,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} if {EDIT_TEXT_BUFFER*C} { set D0={RowId} kill wp if {EDIT_TEXT_BUFFER}'="" { set wproot="wp" for i=1:1:$l({EDIT_TEXT_BUFFER},$c(13,10)) { set wp(i)=$p({EDIT_TEXT_BUFFER},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(8925,{RowId},3,,wproot,"%FMERR(8925)") if $d(%FMERR(8925,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.TIUDOCUMENT1B93S index ^TIU nonnull 8925 "B" {DOCUMENT_TYPE} {IEN} 0]]> index ^TIU nonnull 8925 "CA" {AUTHORDICTATOR} {IEN} 0]]> index ^TIU nonnull 8925 "C" {PATIENT} {IEN} 0]]> index ^TIU nonnull 8925 "CS" {EXPECTED_COSIGNER} {IEN} 0]]> index ^TIU nonnull 8925 "DAD" {PARENT} {IEN} 0]]> index ^TIU nonnull 8925 "D" {REFERENCE_DATE} {IEN} 0]]> index ^TIU nonnull 8925 "E" {RELEASE_DATETIME} {IEN} 0]]> index ^TIU nonnull 8925 "F" {ENTRY_DATETIME} {IEN} 0]]> index ^TIU nonnull 8925 "FIX" {MARK_DISCH_DT_FOR_CORRECTION} {IEN} 0]]> index {REQUESTING_PACKAGE_REFERENCE}'="" 1 ^TIU conditional 8925 "G" $$TRUNCATE({REQUESTING_PACKAGE_REFERENCE},30)) {IEN} 0]]> index ^TIU nonnull 8925 "GDAD" {ID_PARENT} {IEN} 0]]> index ^TIU nonnull 8925 "H" {REFERENCE_DATE} {IEN} 0]]> index ^TIU nonnull 8925 "SVC" {SERVICE} {IEN} 0]]> index ^TIU nonnull 8925 "TC" {ENTERED_BY} {IEN} 0]]> data ^TIU 8925 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 16 6 "^" 16 13 "^" 16 7 "^" 16 8 "^" 16 2 "^" 16 1 "^" 16 3 "^" 16 4 "^" 16 5 "^" 16 9 "^" 12 9 "^" 12 2 "^" 13 3 "^" 12 3 "^" 15 9 "^" 15 10 "^" 15 7 "^" 15 11 "^" 15 6 "^" 15 8 "^" 0 11 "^" 702 2 "^" 16 10 "^" 16 11 "^" 13 7 "^" 12 12 "^" 0 1 "TEMP" new data,i,node set {EDIT_TEXT_BUFFER}="" merge data=^TIU(8925,{S2},"TEMP") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {EDIT_TEXT_BUFFER}={EDIT_TEXT_BUFFER}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 13 2 "^" 12 1 "^" 0 7 "^" 0 8 "^" 12 8 "^" 12 4 "^" 12 5 "^" 21 1 "^" 14 3 "^" 0 10 "^" 15 13 "^" 15 12 "^" 0 12 "^" 12 10 "^" 0 6 "^" 0 4 "^" 0 2 "^" 14 1 "^" 702 1 "^" 16 12 "^" 13 1 "^" 13 4 "TEXT" new data,i,node set {REPORT_TEXT}="" merge data=^TIU(8925,{S2},"TEXT") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REPORT_TEXT}={REPORT_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 14 5 If $p($p($g(^TIU({S1},{S2},14)),"^",5),";",2,999)'="GMR(123," s {REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST}="" Quit s {REQUESTING_PACKAGE_REFERENCE_SELECT_CONSULTATION_REQUEST}=$p($p($g(^TIU({S1},{S2},14)),"^",5),";") If $p($p($g(^TIU({S1},{S2},14)),"^",5),";",2,999)'="SRF(" s {REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE}="" Quit s {REQUESTING_PACKAGE_REFERENCE_SELECT_SURGICAL_CASE}=$p($p($g(^TIU({S1},{S2},14)),"^",5),";") "^" 14 6 "^" 12 7 "^" 14 4 "^" 12 6 "^" 15 3 "^" 15 4 "^" 15 1 "^" 15 5 "^" 15 2 "^" 0 5 "^" 17 1 "^" 13 8 "^" 14 2 "^" 0 9 "^" 18 1 "^" 13 5 "^" 13 6 "^" 0 3 "^" 150 1 "^" 12 11 "^" 0 13 index ^TIU nonnull 8925 "TS" {TREATING_SPECIALTY} {IEN} 0]]> index {ENTRY_DATETIME}'="" 1 ^TIU conditional 8925 "VBC" $$TRUNCATE({ENTRY_DATETIME},14)) $$TRUNCATE({VBC_LINE_COUNT},6)) {IEN} 0]]> index ^TIU nonnull 8925 "V" {VISIT} {IEN} 0]]> index ^TIU nonnull 8925 "VID" {VISIT_ID} {IEN} 0]]> index ^TIU nonnull 8925 "VS" {SECONDARY_VISIT} {IEN} 0]]> index ^TIU nonnull 8925 "VS" {SECONDARY_VISIT} {IEN} 0]]> Generated class for FileMan File Number: '8925.1' File Name: 'TIU DOCUMENT DEFINITION' Class generated by %fm2class version 2.56 This file stores Document Definitions, which identify and define behavior for documents stored in the TIU DOCUMENTS FILE (#8925). For consistency with the V-file schema, it may be viewed as the "Attribute Dictionary" for the Text Integration Utilities. It also stores Objects, which can be embedded in a Document Definition's Boilerplate Text (Overprint). Objects contain M code which gets a piece of data and inserts it in the document's Boilerplate Text when a document is entered. Warning: objects embedded in boilerplate text are looked up by multiple index (i.e. DIC(0) contains 'M'). Current code (see routine CHECK^TIUFLF3) checks all present indexes to make sure object names, abbreviations and print names are not ambiguous for this lookup. If new indexes are added, this code MUST BE UPDATED to check the new index as well. Some entries in this file are developed Nationally and exported across the country. Others are created by local sites. Entries in the first category are marked National Standard and are not editable by sites. This file does NOT allow multiple entries OF THE SAME TYPE with the same name. That is, within a given Type, there are no duplicate names. (This refers to the .01 field, the Technical name of the entry.) This file does not allow a parent to have items with the same name, even if the items have different internal file numbers (i.e. are different file entries). Again, this refers to the .01 Technical name of the entry. Because of ownership considerations, the file does NOT allow an entry to be an item under more than 1 parent. If the same item is desired under more than 1 parent, the item must be copied into a new entry. There is one exception: Document Definitions of Type Component which have been marked Shared may have more than one parent. The Document Definition Utility TIUF categorizes certain fields as Basic, Technical, or Upload, and displays these fields together as a group when user edits or views a Document Definition. BASIC fields include Name, Abbreviation, Print Name, Type, Personal Owner, Class Owner, Status, In Use, Shared, Orphan, Has Boiltxt, National Standard, OK to Distribute, and Suppress Visit Selection. TECHNICAL fields include Entry Action, Exit Action, Edit Template, Print Method, Print Form Header, Print Form Number, Print Group, Allow Custom Form Headers, Visit Linkage Method, Validation Method, and Object Method. UPLOAD fields include Upload Target File, Laygo Allowed, Target Text Field Subscript, Upload Look-up Method, Upload Post-Filing Code, Upload Filing Error Code, and multiples Upload Captioned ASCII Header and Upload Delimited ASCII Header. The Document Definition file contains extensive, detailed field descriptions. Likewise, some protocols (File 101) used in TIU have extensive and careful descriptions in the Protocol file. Many of these descriptions are used in TIU for online help. If it becomes necessary for a national programmer to edit these descriptions, the programmer should check to make sure all online help is still displayed properly. Users are expected to use the Document Definition Utility TIUF to enter, edit, and delete file entries. In fact, the file prohibits the deletion of entries through generic Fileman Options. It also prohibits the edit through generic Fileman of a few critical fields: Type, Status, Shared, and National Standard. Adding and Deleting (but not editing) Items is also prohibited through generic Fileman options. Abbreviation and Print Name of OBJECTS cannot be edited through generic Fileman Options. This does NOT imply that it is SAFE to use generic Fileman to edit other fields. Users are cautioned that edit through generic Fileman bypasses many safeguards built in to the Document Definition Utility and can create havoc unless the user THOROUGHLY UNDERSTANDS the File and its uses. If users find needs which are not met through TIUF, please communicate them to the TIU development team. ***************** WARNING: Using generic Fileman options to edit entries can cause SERIOUS database problems. **************** persistent _PUBLIC 0 RowId TIU_DOCUMENT_DEFINITION_8925_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.81043779 67178,44736.378548235 right TIU DOCUMENT DEFINITION 8925.1 2.56 12/04/2024 12:25:36 1 1 IEN 1 USR_CLASS_8930]]> CLASSOWNER VALIP.prosthetic.fm2cw.USRCLASS8930 FKey_CLASS_OWNER NEW_PERSON_200]]> MAPATTEMPTEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_MAP_ATTEMPTED_BY NEW_PERSON_200]]> PERSONALOWNER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PERSONAL_OWNER TIU_STATUS_8925_6]]> STATUS VALIP.prosthetic.fm2cw.TIUSTATUS89256 FKey_STATUS FILE_1]]> UPLOADTARGETFILE VALIP.prosthetic.fm2cw.FILE1 FKey_UPLOAD_TARGET_FILE TIU_VHA_ENTERPRISE_STANDARD_TITLE_8926_1]]> VHAENTERPRISESTANDARDTITLE VALIP.prosthetic.fm2cw.TIUVHAENTERPRISESTANDARDTITLE89261 FKey_VHA_ENTERPRISE_STANDARD_TITLE FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '.02' Abbreviation can be entered at the Title: prompt when entering a document. Since all Titles with that abbreviation will then be listed, Abbreviation can serve to group Titles. BASIC Field. For Objects, see NAME. %Library.String 4 ABBREVIATION FileMan Field Label: 'ALLOW CUSTOM FORM HEADERS' FileMan Field Number: '6.14' ALLOW CUSTOM FORM HEADERS/NUMBERS AT LOWER LEVELS Allow Custom Form Headers may be set for entries of Type Class or Document Class and affects DESCENDANTS of the entry for which it is set. Information on Form Headers, Form Numbers, Print Group, and Allow Custom Form Headers: Some clinical documents use Forms with Form Headers and Form Numbers, for example, Progress Note Forms have Header 'Progress Notes' and Number 'Vice SF 509.' The Owner of a Document Definition must decide whether all documents descending from the entry will have the SAME Header/Number, or whether to allow CUSTOM (varying) Headers/Numbers at lower levels. Allow Custom Headers holds the decision: If the field has value 0 for NO, then ALL descendant documents use a COMMON Header/Number (or perhaps they all use NO Header/Number); they also collate together in printouts. For example, Class Progress Notes does NOT Allow Custom Form Headers. This means that ALL Progress Note Titles have the same header and the same form number. For Class Progress Notes, Field Print Form Header holds the header 'Progress Notes', Field Print Form Number holds Form Number 'Vice SF 509', and Field Print Group holds '2'. Since Class Progress Notes does not Allow Custom Form Headers, these field values apply for ALL Progress Note Titles. That is, all Progress Notes have header 'Progress Notes', Form Number 'Vice SF 509', and collate together in printouts. Field Allow Custom Field Headers also determines whether or not related Fields Print Form Header, Print Form Number, Print Group, (and even Allow Custom Field Headers) are applicable at lower levels. If an entry at a particular level DOES allow Custom Form Headers, then these related fields DO APPLY to descendants at the next lower level. If an entry at a particular level DOES NOT allow Custom Form Headers, then ALL LOWER LEVELS inherit the the prohibition, and the related fields DO NOT APPLY at ANY lower levels. Example: Since Class Progress Notes does NOT Allow Custom Form Headers, fields Print Form Header, Print Form Number, Print Group, and Allow Custom Field Headers DO NOT APPLY to Document Classes or Titles under Progress Notes. This means that Document Definitions for documents requiring different Form Headers/Numbers must be placed under a separate line of descent in the hierarchy; they cannot be under Progress Notes. Example: Class Clinical Documents, the Mother of all Document Definitions, does not want to REQUIRE all Document Definitions under it to use one common Header. So Clinical Documents DOES Allow Custom Form Headers. Classes/Document Classes UNDER CLinical Documents can decide for themselves whether or not to Allow Custom Headers for their own Items. Example: Class DISCHARGE SUMMARY has only one Form Header and Number which is used by all Discharge Summary documents. So Class Discharge Summary does NOT Allow Custom Headers. Example: Class FORMS might contain miscellaneous documents, each using a different Form with its own Form Header and Form Number. So Class Forms would Allow Custom Headers. Field Allow Custom Form Headers may be set for Document Definitions of Type Class or Document Class only, and affects the DESCENDANTS of the entry for which it is set. If a DOCUMENT CLASS Allows Custom Form Headers, then TIUF, the Document Definition Utility, does not permit a descendant Title to be activated unless fields Print Form Header, Print Form Number, and Print Group have a value (of their own or inherited). If NO Header, or Number is desired, enter 'NONE'. If NO Print Group is desired, enter '0'. For information on editing heritable fields, see Technical field Edit Template. %Library.EnumString 53 ALLOW_CUSTOM_FORM_HEADERS FileMan Field Label: 'BOILERPLATE ON UPLOAD ENABLED' FileMan Field Number: '1.04' This field determines whether the filer will attempt to execute boilerplate logic for uploaded documents. Not used in version 1. %Library.EnumString 20 BOILERPLATE_ON_UPLOAD_ENABLED FileMan Field Label: 'BOILERPLATE TEXT' FileMan Field Number: '3' %Library.String 21 BOILERPLATE_TEXT FileMan Field Label: 'CLASS OWNER' FileMan Field Number: '.06' Document Definition Ownership has nothing to do with who can USE the entry to enter a document. It determines responsibility for the Document Definition itself. An entry can be EDITED by its owner. (The Manager menu permits override of ownership so that ownership can be assigned to a clinician (person with Clinician Menu) who can then fill in boilerplate text, while the manager can still edit the entry, since there are many fields the clinician does not have access to.) Exception: the Manager menu does NOT override ownership of Objects or of Shared Components. These can ONLY be edited by an owner, regardless of menu. If a Title owner edits the boilerplate text of the Title, that person can edit the boilerplate text of all components of the title as well, without regard to component ownership. However, the user must own the component in order to edit it individually, permitting separate ownership of components. A Class Owner is a User Class from the USR CLASS file whose members may edit the entry. An entry may have a Personal OR a Class Owner (not both). The Document Definition Utility TIUF does not prompt for Class Owner if the entry has a Personal Owner. To change to Class Owner, first delete the Personal Owner by entering '@' at the Personal Owner prompt. For new entries, users are prompted to enter the Class Owner Clinical Coordinator as the default. To enter a different Class Owner, enter the appropriate class after the //'s. If there are no //'s and the Replace...with editor is being used, enter ... to replace the whole class and then enter the appropriate class. Class Owner is a BASIC field. VALIP.prosthetic.fm2cw.USRCLASS8930 8 CLASS_OWNER NAME This is the name of the user class (e.g., Transcriptionist, Medical Record Technician, MIS Manager, Medical Student, Nurse, Resident, etc.).]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_DEFINITION_8925_1 where %ID=:id) set {CLASS_OWNER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CLASS_OWNER_NAME 1 FileMan Field Label: 'COMMIT ACTION' FileMan Field Number: '4.1' This M-Code is executed when the TIU document is "committed" to the database (i.e., when the document is saved, and prior to release, verification, or signature). Heritable. TECHNICAL field. %Library.String 1 27 s {COMMIT_ACTION}=$e({NODE_4_1},1,245) 1 COMMIT_ACTION FileMan Field Label: 'DELETE ACTION' FileMan Field Number: '4.4' This M-Code is executed upon Deletion of the document. Heritable. TECHNICAL field. %Library.String 1 33 s {DELETE_ACTION}=$e({NODE_4_4},1,245) 1 DELETE_ACTION FileMan Field Label: 'EDIT TEMPLATE' FileMan Field Number: '5' Applies to Classes, Document Classes, Titles. This is the Input Template for Entering/Editing documents defined by this entry. Template includes fixed field information such as Patient, etc. Enter Edit Template in Format [TEMPLATE NAME], or as a "field-string" (e.g., .01;1;3;5). Heritable. TECHNICAL field. NOTE on editing heritable fields: When editing heritable fields, the user is presented with the EFFECTIVE value of the field as the default (e.g. NO//). This is the same as the value shown in the display and is the field's own value if it has one, the inherited value if the field does not have its own value, or the default for the field if the field has neither its own nor an inherited value. If the user accepts this default by pressing return, the value is made explicit, i.e., entered into the field. If a user does NOT want to make the value explicit, the user should enter @, which leaves a blank field blank. If the user want to delete an explicit value, the user should enter @, which deletes the field value, leaving TIU to use the effective value for the field. %Library.String 1 47 s {EDIT_TEMPLATE}=$e({NODE_5},1,245) 1 EDIT_TEMPLATE FileMan Field Label: 'ENTRY ACTION' FileMan Field Number: '4.6' This M-Code is executed during the Entry/Editing of a document, after selection of the Title, and prior to selection of the Patient. It may be used to set up environmental variables, etc. Heritable. TECHNICAL field. %Library.String 1 39 s {ENTRY_ACTION}=$e({NODE_4_6},1,245) 1 ENTRY_ACTION FileMan Field Label: 'EXIT ACTION' FileMan Field Number: '4.7' This M-Code is executed just prior to Exit from the entry/edit process for a document. It may be used to send alerts or bulletins, clean up temporary global variables, etc. Heritable. TECHNICAL field. %Library.String 1 41 s {EXIT_ACTION}=$e({NODE_4_7},1,245) 1 EXIT_ACTION FileMan Field Label: 'HAS BOILTXT' FileMan Field Number: '.12' HAS BOILERPLATE TEXT Applies to Types Title and Component only. Cannot be edited since value is automatic. A Document Definition Has Boiltxt if it or its descendant Components have Boilerplate Text (Field 3). BASIC field. %Library.String 1 13 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) S TIUFBTXT=$S($L($T(^TIUFLF)):$$HASBOIL^TIUFLF(D0,^TIU(8925.1,D0,0)),1:"UNKNOWN"),X=$S(TIUFBTXT:"YES",TIUFBTXT=0:"NO",1:TIUFBTXT) K TIUFBTXT set {HAS_BOILTXT}=X 1 HAS_BOILTXT Internal Entry Number %Library.String $$next^%apiSQL("$p(^TIU(8925.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IN USE' FileMan Field Number: '.08' IN USE applies to all entries except those of Type Object. It cannot be edited since it gets its value automatically. IN USE may have values 'Yes', 'No', or '?'. A Document Definition of Type Title or Component is In Use (Yes) if there are entries IN THE TIU DOCUMENT file which store it as their Document Definition. If not, it is NOT used (No). NOTE: It is possible for Document Definitions to be used by documents in files other than the TIU Document file and still be NOT In Use since In Use means in use by documents in the TIU Document Definition file. See Warning, below. A Document Definition of Type Class or Document Class is In Use (Yes) if it has children of Type Title which are In Use. That is, it is Used by Documents (Yes) if there are entries in the TIU Document file which inherit behavior from it. If not, it is NOT used (No). IN USE has value '?' for a Document Definition File entry if routine TIUFLF is missing or if the program encounters a nonexistent item and the entry is not In Use so far as the check has been able to go. Note: Since Shared Components can be items of more than one Title, a Shared Component may be In Use even when a particular parent Title is NOT In Use. This simply means that it is also a Component of another Title which IS In Use. If IN USE has the explicit value 'No' for a particular Document Definition entry, the entry can be deleted by the Owner without harming documents IN TIU DOCUMENT FILE 8925. Deleting it will, however, orphan any descendant Document Definitions. WARNING: If a site is using TIU to upload documents into a file other than the TIU Document file, it may create Document Definition entries to store upload information. For example, it may create an Operative Reports title containing instructions for uploading documents into the Surgery file. These document definitions will be orphans and will be NOT In Use, since documents using them are not stored in the TIU Document file. They must NOT be deleted from the Document Definition file. Note: Deleting Objects will not harm existing documents, but WILL HARM future documents if the Object is embedded in existing Document Definition Boilerplate Text. If IN USE has value 'Yes' or '?', the Document Definition Utility TIUF does not permit the entry to be deleted. Deleting the entry would cause documents in file 8925 not to function. This is true even if the entry has status 'Inactive' and documents are no longer being written on the entry. Technical Note: A Document Definition of Type Title or Component is IN USE if and only if it appears in file 8925's 'B' Cross Reference. In Use is a BASIC field. %Library.String 1 10 set U="^",D0=$piece({RowId},"||",1) S X=$S($L($T(^TIUFLF)):$$DDEFUSED^TIUFLF(D0),1:"?") set {IN_USE}=X 1 IN_USE FileMan Field Label: 'LAYGO ALLOWED' FileMan Field Number: '1.02' This field indicates whether or not a new entry can be created in the TARGET FILE for documents defined by this Document Definition. %Library.EnumString 18 LAYGO_ALLOWED FileMan Field Label: 'MAP ATTEMPTED' FileMan Field Number: '1502' This is the date/time at which the user attempted to map the Local Title to a VHA Enterprise Title. %Library.FilemanTimeStamp 66 MAP_ATTEMPTED FileMan Field Label: 'MAP ATTEMPTED BY' FileMan Field Number: '1503' This is the person who attempted to map the Local Title to a VHA Enterprise Title. VALIP.prosthetic.fm2cw.NEWPERSON200 67 MAP_ATTEMPTED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_DEFINITION_8925_1 where %ID=:id) set {MAP_ATTEMPTED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MAP_ATTEMPTED_BY_NAME 1 FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of a Document Definition entry (.01 field) must be between 3 and 60 characters long and may not begin with a punctuation character. Although names can be entered in any case, they are transformed to upper case before being stored. It functions as the Technical Name of the entry. Some sites have put KWIC cross references on it to get, say, all Titles from a given Service. Name can be used when entering documents as the name of the Title being entered. Print Name and Abbreviation will also be accepted. Since it is the Technical, .01 Name, the Document Definition Utility (TIUF) uses this name throughout. The .01 name differs from the Print Name, which appears in lists of documents and functions as the Title of the document. It also differs from Item Menu Text (1-20 characters), which is used when selecting documents from 3-COLUMN MENUS. The ORDER of names in TIUF options Edit Document Definitions and Create Document Definitions is by Item Sequence under the parent. Order is alphabetic by Menu Text if an Item has no Item Sequence. When a new entry is added to file 8925.1, the Document Definition Utility (TIUF) enters the Name as the default Print Name. The Print Name can be edited if a different Print Name is desired. File 8925.1 permits more than 1 entry with the same name as long as they don't have the same Type. In that sense, NAMES are reusable. However, ENTRIES are NOT reusable (except specially marked Components): an entry is NOT allowed to be an item under more than one parent unless it is a Shared Component. (See Type Component.) Name is a BASIC Field. OBJECT Name Object Names, like any other names are 3-60 characters, not starting with punctuation. Sites may want to namespace object names, use the object Print Name as a more familiar name, and use object Abbreviation as a short name to embed in boilerplate text. Unlike other Types, Object Abbreviation and Print Name as well as Name must be uppercase. Object Name, Abbreviation, or Print Name can be embedded in boilerplate text. Since TIU must be able to determine from this which object is intended, object Names, Abbreviations, and Print Names must be unique. In fact, an object Name must differ not only from every other object name, but also from every other object Abbreviation and from every other object Print Name. Same for Abbreviations and Print Names. For example, if some object has abbreviation 'CND', then 'CND' cannot be used for any other object Name, Abbreviation, or Print Name. %Library.String 1 3 NAME FileMan Field Label: 'NATIONAL STANDARD' FileMan Field Number: '.13' Some Document Definitions, for example, CWAD's, are developed nationally and sent out as standardized entries across the nation. TIU and other packages depend on their standard definition, and they must not be edited by sites but only by the persons who are nationally responsible for them. Such entries are marked NATIONAL STANDARD (field has value 1 for YES), which generally prevents sites from editing the entry. In two cases, sites are permitted to edit National Standard entries. The first case concerns Titles. Sites can edit Status and Abbreviation for National Titles. Status INACTIVE for a National Title prevents manual and upload entry of documents for the Title, while continuing to permit automatic entry for the Title via the TIU application interface for new notes. (Example: Adverse Reaction/Allergy notes are automatically entered by the Allergy package.) Editing Abbreviation gives sites a means of grouping national titles with other National and non-National Titles as they please. The second case where edit of National entries is permitted concerns the Item Multiple: If a National Standard entry has Type Class or Document Class, sites can add/delete Nonnational items as they please, and can edit ALL items AS ITEMS (e.g. Item Sequence, etc.). Sites CANNOT add/delete National items. If a National Standard entry has Type Title or Component, sites cannot add or delete items, but can still edit items AS ITEMS. Sites cannot add National Standard entries as Items to parents. There is one exception: Sites can add National Shared Components to (nonnational) Titles if they wish. Sites can delete National Standard Items from nonnational parents. (Unless there has been a mistake, such items will be limited to Shared Components only.) Field is NOT heritable. If field has no value for an entry, value is 0 by default. This means that entries created by sites are NOT National Standard. Technical Note: National entries (except for Shared Components) must have National ancestors: if a National entry has a nonNational ancestor, the Document Definition Utility TIUF does not permit it to be activated. (Shared Components need not have National ancestors, and do not have a Status.) National Standard is a BASIC field. %Library.EnumString 14 NATIONAL_STANDARD Computed Field For Node 4 %Library.String 1 24 s {NODE_4}=$g(^TIU(8925.1,{IEN},4)) 1 NODE_4 Computed Field For Node 4.1 %Library.String 1 26 s {NODE_4_1}=$g(^TIU(8925.1,{IEN},4.1)) 1 NODE_4_1 Computed Field For Node 4.2 %Library.String 1 28 s {NODE_4_2}=$g(^TIU(8925.1,{IEN},4.2)) 1 NODE_4_2 Computed Field For Node 4.3 %Library.String 1 30 s {NODE_4_3}=$g(^TIU(8925.1,{IEN},4.3)) 1 NODE_4_3 Computed Field For Node 4.4 %Library.String 1 32 s {NODE_4_4}=$g(^TIU(8925.1,{IEN},4.4)) 1 NODE_4_4 Computed Field For Node 4.45 %Library.String 1 34 s {NODE_4_45}=$g(^TIU(8925.1,{IEN},4.45)) 1 NODE_4_45 Computed Field For Node 4.5 %Library.String 1 36 s {NODE_4_5}=$g(^TIU(8925.1,{IEN},4.5)) 1 NODE_4_5 Computed Field For Node 4.6 %Library.String 1 38 s {NODE_4_6}=$g(^TIU(8925.1,{IEN},4.6)) 1 NODE_4_6 Computed Field For Node 4.7 %Library.String 1 40 s {NODE_4_7}=$g(^TIU(8925.1,{IEN},4.7)) 1 NODE_4_7 Computed Field For Node 4.8 %Library.String 1 42 s {NODE_4_8}=$g(^TIU(8925.1,{IEN},4.8)) 1 NODE_4_8 Computed Field For Node 4.9 %Library.String 1 44 s {NODE_4_9}=$g(^TIU(8925.1,{IEN},4.9)) 1 NODE_4_9 Computed Field For Node 5 %Library.String 1 46 s {NODE_5}=$g(^TIU(8925.1,{IEN},5)) 1 NODE_5 Computed Field For Node 6 %Library.String 1 48 s {NODE_6}=$g(^TIU(8925.1,{IEN},6)) 1 NODE_6 Computed Field For Node 6.5 %Library.String 1 54 s {NODE_6_5}=$g(^TIU(8925.1,{IEN},6.5)) 1 NODE_6_5 Computed Field For Node 6.51 %Library.String 1 56 s {NODE_6_51}=$g(^TIU(8925.1,{IEN},6.51)) 1 NODE_6_51 Computed Field For Node 7 %Library.String 1 58 s {NODE_7}=$g(^TIU(8925.1,{IEN},7)) 1 NODE_7 Computed Field For Node 8 %Library.String 1 60 s {NODE_8}=$g(^TIU(8925.1,{IEN},8)) 1 NODE_8 Computed Field For Node 9 %Library.String 1 62 s {NODE_9}=$g(^TIU(8925.1,{IEN},9)) 1 NODE_9 FileMan Field Label: 'OBJECT METHOD' FileMan Field Number: '9' Applies to Objects. This M-Code is invoked when a document is entered whose boilerplate text contains the object. Extracted data are inserted into document text. Author then edits/adds to text. TECHNICAL field. %Library.String 1 63 s {OBJECT_METHOD}=$e({NODE_9},1,245) 1 OBJECT_METHOD FileMan Field Label: 'OK TO DISTRIBUTE' FileMan Field Number: '3.02' Presently applies only to National Programmers; does not appear on Manager or Clinician Menus. If field is 1 for YES, then entry should be included for export. If field has no value or has value 0, entry should not be included for export. Since TIU is hierarchical, the entry's behavior depends on entries above it in the hierarchy. It is the responsibility of the exporter to make sure all ancestors which are necessary for the proper behavior of an exported entry are also exported with it (or are already present at sites receiving the exported entries). Field is NOT heritable. BASIC field. %Library.EnumString 22 OK_TO_DISTRIBUTE FileMan Field Label: 'ON BROWSE EVENT' FileMan Field Number: '6.5' This is MUMPS code which is invoked on browsing a document to fetch data from the Requesting Package that will be included in the display. %Library.String 1 55 s {ON_BROWSE_EVENT}=$e({NODE_6_5},1,245) 1 ON_BROWSE_EVENT FileMan Field Label: 'ON RETRACT EVENT' FileMan Field Number: '6.51' This is MUMPS code which is invoked on retraction of a document to perform any processing task that the Requesting Package may require. %Library.String 1 57 s {ON_RETRACT_EVENT}=$e({NODE_6_51},1,245) 1 ON_RETRACT_EVENT FileMan Field Label: 'ORPHAN' FileMan Field Number: '.11' Orphan applies to Document Definitions of all Types except Objects and Shared Components. Orphan is not editable since it gets its value automatically. Document Definitions are Orphans if they do not belong to the Clinical Documents Hierarchy, i.e., they cannot trace their ancestry all the way back to the Class Clinical Documents. If an Orphan is not In Use, it may be "dead wood" which should be deleted from the file. Orphans not In Use which SHOULD NOT BE DELETED include those being kept for later possible use, those temporarily orphaned in order to move them around in the hierarchy, and those used for uploading documents into files other than the TIU Document file. (Orphan does not apply to Objects since they don't ever belong to the hierarchy. Orphan does not apply to Shared Components since they may have more than one line of ancestry.) Warning: The DOCUMENT DEFINITION file may contain orphan entries which are not used by documents in the TIU Document file but which contain upload instructions for storing documents somewhere else. For example, if a site is uploading Operative Reports into the Surgery file, there may be an orphan Operative Report Document Definition in the DOCUMENT DEFINITION file. These should NOT be deleted just because they are orphans. Such entries can be identified by edit/viewing them through the Sort Option and looking for Upload fields. NOTE: Orphan as used in the Document Definition Utility TIUF does NOT mean having no parents. For example, suppose Exceptional Day Pass Note has parent Day Pass Note. If Day Pass Note has no parent, then Exceptional Day Pass Note cannot trace its ancestry back to Clinical Documents and is an Orphan even though it has a parent. Orphans are invisible to TIU users and cannot be used to enter documents. When an item under a non-orphan is deleted as an item, it becomes an orphan along with all of its descendants. TIUF, the Document Definition Utility, does not permit non-orphan Titles to become orphaned if they are In Use. Titles already used but being retired from further use should be Inactivated, NOT orphaned. Components are a different story; components being retired from further use can and should be orphaned (deleted as items from the Title). Reason: Titles inherit attributes and therefore require a complete ancestry in order to process existing documents. Since components, on the other hand, do not inherit attributes, they do NOT require a complete ancestry to process existing documents (although they must remain in the file.) Since Orphans do not belong to the Hierarchy, they do NOT appear on the Edit Document Definitions Option. They can be accessed through the Sort Document Definitions Option. The field Orphan may have values 'Yes', 'No', or '?'. Orphan has value '?' if there are technical errors making its value unknown. Orphan is a BASIC field. %Library.String 1 12 set U="^",D0=$piece({RowId},"||",1) S X=$S($L($T(^TIUFLF4)):$$ORPHAN^TIUFLF4(D0,^TIU(8925.1,D0,0)),1:"?") set {ORPHAN}=X 1 ORPHAN FileMan Field Label: 'PACKAGE REASSIGNMENT ACTION' FileMan Field Number: '4.45' This M-Code is executed when a document with a link to a client application is Reassigned. Heritable. TECHNICAL field. %Library.String 1 35 s {PACKAGE_REASSIGNMENT_ACTION}=$e({NODE_4_45},1,245) 1 PACKAGE_REASSIGNMENT_ACTION FileMan Field Label: 'PERSONAL OWNER' FileMan Field Number: '.05' Document Definition Ownership has nothing to do with who can USE the entry to enter a document. It determines responsibilty for the Document Definition itself. An entry can be EDITED by its owner. (The Manager menu permits override of ownership so that Ownership can be assigned to a clinician who can then fill in boilerplate text with the Clinician menu, while the Manager can still edit the entry, since there are many fields the clinician does not have access to.) Exception: the Manager menu does NOT override ownership of Objects or of Shared Components. Only owners can edit Objects and Shared Components, regardless of menu. If Title owner edits the boilerplate text of the Title, that person can edit the boilerplate text of all components of the Title as well, without regard to component ownership. In order to edit components individually, however, the user must own the component. This allows users to assign ownership of components to different people, for example, for (future) multidisciplinary documents. A PERSONAL OWNER is a person who uniquely owns the entry. An entry may have a Personal Owner OR a Class Owner but not both. When entering a Personal Owner, be sure to delete any existing Class Owner. The Document Definition Utility TIUF uses the term 'Individual Owner'. Someone is an Individual Owner of an entry if s/he is the personal owner OR, if the entry is CLASS Owned, if s/he belongs to the Owner Class. The Document Definition Utility TIUF enters the user as the Personal Owner if a user enters a new entry without assigning ownership. This person can then reassign ownership if they choose. If the person responsible for an entry plays a role corresponding to a User Class, e.g. Clinical Coordinator, it may be more efficient to assign ownership to the class rather than to the person. Owners are then automatically updated as the class is updated. Editing privilege is affected not only by Owner but also by Status, by Shared, by In Use, and by menu. Manager menus, for example, provide fuller editing capabilities than Clinician menus. Personal Owner is a BASIC field. VALIP.prosthetic.fm2cw.NEWPERSON200 7 PERSONAL_OWNER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_DEFINITION_8925_1 where %ID=:id) set {PERSONAL_OWNER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PERSONAL_OWNER_NAME 1 FileMan Field Label: 'POSTING INDICATOR' FileMan Field Number: '.14' This field is used to help identify indicators of the Patient Posting Type to which the Document Definition should be ascribed. %Library.EnumString 15 POSTING_INDICATOR FileMan Field Label: 'POST-SIGNATURE CODE' FileMan Field Number: '4.9' This M-Code is executed following Signature (or Cosignature) of a TIU document. Heritable. TECHNICAL field. %Library.String 1 45 s {POSTSIGNATURE_CODE}=$e({NODE_4_9},1,245) 1 POSTSIGNATURE_CODE FileMan Field Label: 'PRF FLAG' FileMan Field Number: '.15' ASSOCIATED PATIENT RECORD FLAG PRF FLAG applies only to PRF titles. The PRF FLAG of a PRF title is the name of the Patient Record Flag associated with the title. (Notes cannot be written using a PRF title unless the title is associated with a flag and that flag is assigned to the given patient.) If the title is not associated with a flag or the associated flag cannot be found, the field has value "?". If the Document Definition is not a title under Document Class PATIENT RECORD FLAG CAT I or PATIENT RECORD FLAG CAT II, the field has value NA for non-applicable. Technical Note: Flags and their associations with titles are stored in file PRF LOCAL FLAG (#26.11) or in file PRF NATIONAL FLAG (#26.15). PRF FLAG is a BASIC field. %Library.String 1 16 set U="^",D0=$piece({RowId},"||",1) S X=$S($L($T(CFLDFLAG^TIUPRFL)):$$CFLDFLAG^TIUPRFL(D0),1:"?") set {PRF_FLAG}=X 1 PRF_FLAG FileMan Field Label: 'PRINT FORM HEADER' FileMan Field Number: '6.1' For basic information on Print Form Header see Technical field Allow Custom Form Headers. The Print Form Header is the official medical record title of the document which has been approved by the Medical Record Committee based on national guidelines. Examples: Progress Notes, Physical Examination, History - Part 1, etc. This field is heritable with lower level values overriding higher ones AS LONG AS the field is applicable. See Allow Custom Form Headers. Print Form Header is a TECHNICAL field. %Library.String 50 PRINT_FORM_HEADER FileMan Field Label: 'PRINT FORM NUMBER' FileMan Field Number: '6.12' For basic information on Print Form Number see Technical field Allow Custom Form Headers. The Print Form Number is the official medical record form number of the document which has been approved by the Medical Record Committee based on national guidelines. Example: Progress Note - Vice SF 509, Consult - SF 513, Physicial Examination - SF 506. Field is heritable with lower level values overriding higher ones AS LONG AS the field is applicable. See field Allow Custom Form Headers. Print Form Header is a TECHNICAL field. %Library.String 51 PRINT_FORM_NUMBER %Library.Numeric 52 PRINT_GROUP FileMan Field Label: 'PRINT METHOD' FileMan Field Number: '6' Applies to Types Class, Document Class, Title. This M-Code is executed when a document is Printed from the TIU List Manager screen (as opposed to a separate print option which may have its own code.) Heritable. TECHNICAL field. For more information on editing heritable fields, see Technical field Edit Template. %Library.String 1 49 s {PRINT_METHOD}=$e({NODE_6},1,245) 1 PRINT_METHOD FileMan Field Label: 'PRINT NAME' FileMan Field Number: '.03' Print Name is the name used in lists of documents. For entries of Type Title, Print Name is used as the document Title in the Patient Chart. BASIC field. For Objects, see NAME. %Library.String 5 PRINT_NAME FileMan Field Label: 'RELEASE ACTION' FileMan Field Number: '4.2' This M-Code is executed upon Release of the document. Heritable. TECHNICAL field. %Library.String 1 29 s {RELEASE_ACTION}=$e({NODE_4_2},1,245) 1 RELEASE_ACTION FileMan Field Label: 'SHARED' FileMan Field Number: '.1' SHARED COMPONENT Applies to entries of Type Component only. Document Definitions of Type Component may be designated SHARED by Owners who have the Manager menu. This means the Component can be an item under multiple parents, and any user who owns a Title can add it as an item. Shared Components are the ONLY members of the Document Definition hierarchy which can appear in more than one place in the hierarchy. (Objects can be used in multiple entries, but are not members of the hierarchy.) Shared Components are intended for broad use across the site. An example might be a Privacy Act Component. Since a Shared Component may be used in many different Document Definitions, its Owner is essentially caretaker for it, hospital wide, and must take into account all users before editing it. Users who disagree with a proposed change can opt to create and use their own copy instead of using the Shared Component. Parents of a Shared Component are listed in the Detailed Display Screen. Shared Field values are 1 for YES and 0 for NO, with a default value of 0 for NO if the field is empty. An entry may not be designated Shared unless it is of Type Component. Only a Manager (person with Manager menu) and only an Owner can designate a Component as Shared. Only an OWNER can edit it. (Normally Managers can override ownership and edit entries. Manager Options do NOT override Ownership for editing Shared Components). Shared Components can only be edited from the Sort Document Definitions Option. Shared Components cannot be deleted. If they do not have multiple parents, they can, however, be edited to NOT shared and THEN deleted, assuming they are not In Use by documents and the parent is Inactive. Shared Components do NOT HAVE a Status. They can be edited only if all parent Titles are Inactive. This ensures that parent Titles are offline for entering documents while their components are being edited. Parents are listed on the Detailed Display Screen. If a Shared Component has subcomponents, they are automatically Shared, since they, with their parents, can be used in more than one place in the hierarchy. Sharing of Document Definitions other than Components is not permitted because it unduly restricts the owner's right to edit/delete the Document Definition and adds undue complexity to the Hierarchy. Shared is a BASIC field. %Library.EnumString 11 SHARED FileMan Field Label: 'STATUS' FileMan Field Number: '.07' Status provides a way of making Document Definitions 'Offline' to documents. Document Definitions need to be 'Offline' if they are new and not ready for use, if they are being edited, or if they are retired from further use. Status is limited to those Statuses in the Status File which apply to Document Definitions: Inactive, Test, and Active. The Document Definition Utility TIUF further limits Statuses to those appropriate for the entry Type (see below), limits the Status of entries with Inactive ancestors to Inactive, and limits the Status of faulty entries to Inactive. Status applies to all Document Definitions, but its meaning and possible values vary somewhat with the Document Definition Type. Exception: Shared Components: See COMPONENT STATUS, below. Status is a BASIC field. TITLE STATUS Status has its most basic meaning for Titles [Document Definitions of Type Title]: A Title can have Status Inactive, Test, or Active. If it has Status Inactive, it cannot be used to enter documents (EXCEPT through the Try Action, which deletes the document when done). If it has Status Test, it can be used to enter documents only by its Owner. Titles should be tested (and Tried) using TEST PATIENTS ONLY. If a Title has Status Active, it can be used to enter documents by any one with access and authorization. *************** NOTE on Availability of Titles for entering documents: Although Status affects availability for entering documents, there are other factors which also affect availability: A Document Definition is not available to a given user for entering documents (excepting the Document Definition Utility Try Action) unless all of the following 3 criteria are met: 1) It is a Document Definition of Type Title. 2) It has Status Active or Test. If it has Status Test, the user entering a document must own the Title. 3) If authorization for using the Title to enter documents is restricted by Business Rules, the user must be a member of the authorized user class. Unless these criteria are all met, users trying to enter documents will not SEE the Document Definition. Therefore it is wise to warn users when taking definitions offline for edit, and/or to do so at nonpeak hours for entering documents. The above description applies to document entry BOTH manually through menu options AND via upload. It does NOT apply to autoentry of documents via the TIU application interface. Adverse Reaction/Allergy notes entered by the Allergy package are an example of such autoentry. The TIU application interface for autoentering documents disregards Title status and Business Rules. ******************* When being upgraded to Status Active or Test, a Title is examined for rudimentary completeness and must be judged OK before the upgrade takes place. If desired, users can perform the same examination themselves by selecting action TRY. For Titles, Action TRY also permits the user to enter a document on the entry. The document is deleted immediately after the trial. Availability for entering documents is the central meaning of Status. However, Status also controls edit/deletion of Document Definitions: A Title can be edited ONLY if it has Status Inactive, ensuring that no one is using it to enter a document while its behavior is changing. Titles can be deleted only with Status Inactive. NOTE: Although Status affects Editing ability, it is not the only factor affecting editing: If an entry is already IN USE by documents, editing/deletion is restricted to aspects which will not harm existing TIU documents. Components under a Title have the same status as the Title: When a Title's status is changed, the statuses of its descendant Components are automatically changed with it. (Shared Components are an exception: see COMPONENT STATUS, below.) CLASS/DOCUMENT CLASS STATUS A Document Definition of Type Class or Document Class can have Status Inactive or Active. Basics for a Class or Document Class cannot be edited (except for Owner and Status) unless it is Inactive. Since Inactivating a Class/Document Class automatically inactivates its descendants, this ensures that all Titles which inherit behavior from it are neither Active nor Test, and are thus 'Offline' while inherited behavior is edited. In contrast to Basics, the ability to add/edit ITEMS of a Class/Document Class depends on the Status of the item, not the parent: it is NOT necessary to Inactivate a Class such as Progress Notes in order to edit/add items. Activating a Class/Document Class differs from Inactivating the Class/Document Class: When a Class/Document Class is ACTIVATED, its descendants may have any Status which their Type permits: they are not REQUIRED to be Active. Hence, they are not automatically Activated when the parent is Activated. COMPONENT STATUS A Document Definition of Type Component has the same status as its parent: Its status can be changed only by changing the Status of its Parent, if it has one. Components without parents are always Inactive. NOTE: The above implies that Test or Active Titles cannot have Inactive Components. In other words, Inactivating a Component is NOT a way of retiring it. If a Component is no longer a useful section of a Title, it should be edited so as to make it useful, or it should be deleted AS AN ITEM from the Title of which it is a part. As with all retired Document Definitions, it should NOT be deleted FROM THE FILE if it has been used by documents. Components can be edited only if they have status Inactive. This ensures that all Titles using them are offline while the components are being edited. Shared Components are a special case since they can have multiple parents. They DO NOT HAVE A STATUS. They can be edited only when all parent Titles have Status Inactive. (The Detailed Display screen shows parents.) This ensures that all parent Titles of Shared Components are offline while the component is being edited. Edit of Shared Components is permitted only through the Option Sort Document Definitions. Edit of Shared Components is severely restricted by Ownership, since they may be used multiple times and across the site. Even an Inactive Status does not permit a manager (person with Manager menu) to override ownership and edit a Shared Component they don't own. See Shared Components, under Description of Type. See Description of Shared. OBJECT STATUS Document Definitions of Type Object have Status Inactive or Active. Only ACTIVE objects function. That is, if a user enters a document on a Title with boilerplate text containing an inactive object, the object doesn't do anything; the user sees the name of the object and an error message in place of the object data. Only ACTIVE objects should be embedded in boilerplate text. Exception: owners who are creating/editing objects. Others should NOT embed inactive objects in boilerplate text since they may not be ready for use and since they do not function when users enter documents against them. Titles whose boilerplate text contains inactive objects cannot be activated. (This does NOT imply that active titles never have inactive objects embedded in them since users can, after a warning, inactivate objects even when they are embedded in active titles.) Only INACTIVE objects can be edited (and only by an owner). Only an owner can activate/inactivate an object. (Exception: if a user owns an object and edits the owner to someone else, the user is not prevented from going on to edit the status in the same edit session since they WERE the owner a few seconds ago.) Active objects are assumed to be ready for use in any boilerplate text. Since the owner is essentially caretaker of the object for the entire site, the owner should consult with all who use it before editing it. An object can be tested by embedding it in the boilerplate text of a Title and selecting action Try for the Title. It need not have status Active for this testing (and SHOULD not have status Active until testing is complete). Owners who inactivate objects for editing should make SURE to reactivate them if they are being used. Sites should either inactivate relevant Titles before editing objects or edit objects only when users are not likely to be ENTERING documents since Inactive objects do not function. If a site changes the name or behavior of an Object, it is up to the SITE to change the name wherever it has already been embedded in Boilerplate Text, and to inform users of the change. An object which is no longer wanted for future documents can be removed from the boilerplate text of all Titles and Components and then deleted from file 8925.1. Only an owner can delete it. All of the documents that used it have already got it in hard words so there is no need to keep it for their sake. Old Objects should be edited so they are useful or deleted, not kept around forever as Inactive. VALIP.prosthetic.fm2cw.TIUSTATUS89256 9 STATUS NAME This is the status name used in selecting or displaying the status of the document.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_DEFINITION_8925_1 where %ID=:id) set {STATUS_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 STATUS_NAME 1 Relationship for Sub-File/Multiple to file name DIALOG child VALIP.prosthetic.fm2cw.SUBDIALOG8925114 children TIUDOCUMENTDEFINITION89251 1 SUB_DIALOG_8925_114 Relationship for Sub-File/Multiple to file name ITEM child VALIP.prosthetic.fm2cw.SUBITEM892514 children TIUDOCUMENTDEFINITION89251 1 SUB_ITEM_8925_14 Relationship for Sub-File/Multiple to file name PROCESSING STEPS child VALIP.prosthetic.fm2cw.SUBPROCESSINGSTEPS8925113 children TIUDOCUMENTDEFINITION89251 1 SUB_PROCESSING_STEPS_8925_113 Relationship for Sub-File/Multiple to file name ROUTINE AUTO PRINT EVENT child VALIP.prosthetic.fm2cw.SUBROUTINEAUTOPRINTEVENT8925112 children TIUDOCUMENTDEFINITION89251 1 SUB_ROUTINE_AUTO_PRINT_EVENT_8925_112 Relationship for Sub-File/Multiple to file name STAT AUTO PRINT EVENT child VALIP.prosthetic.fm2cw.SUBSTATAUTOPRINTEVENT8925111 children TIUDOCUMENTDEFINITION89251 1 SUB_STAT_AUTO_PRINT_EVENT_8925_111 Relationship for Sub-File/Multiple to file name UPLOAD CAPTIONED ASCII HEADER child VALIP.prosthetic.fm2cw.SUBUPLOADCAPTIONEDASCIIHEADER892512 children TIUDOCUMENTDEFINITION89251 1 SUB_UPLOAD_CAPTIONED_ASCII_HEADER_8925_12 Relationship for Sub-File/Multiple to file name UPLOAD DELIMITED ASCII HEADER child VALIP.prosthetic.fm2cw.SUBUPLOADDELIMITEDASCIIHEADER892511 children TIUDOCUMENTDEFINITION89251 1 SUB_UPLOAD_DELIMITED_ASCII_HEADER_8925_11 FileMan Field Label: 'SUPPRESS VISIT SELECTION' FileMan Field Number: '3.03' Applies to entries of Type Class, Document Class, and Title. For most documents it is very important that the user entering a document select the appropriate visit to link the document with. However, certain administrative documents for outpatients have no particular visit that they should be linked with. For example, a clinician could have a chance encounter with a patient in the corridor and want to document the discussion, or a clinician could simply want to remind him/herself of something for a given patient. Documents for such purposes can be set to automatically create their own historical visit when they are entered, so that the user is not asked to select a visit. Warning: Such documents DO NOT GIVE WORKLOAD CREDIT. Heritable. BASIC field. If field has no value and there is no value to inherit, default value is NO. For information on editing heritable fields, see Technical Field Edit Template. %Library.EnumString 23 SUPPRESS_VISIT_SELECTION FileMan Field Label: 'TARGET TEXT FIELD SUBSCRIPT' FileMan Field Number: '1.03' This is the subscript of the word-processing field in the TARGET FILE, in which the body of the narrative report will be stored. %Library.String 19 TARGET_TEXT_FIELD_SUBSCRIPT FileMan Field Label: 'TIMESTAMP' FileMan Field Number: '99' %Library.String 64 TIMESTAMP FileMan Field Label: 'TYPE' FileMan Field Number: '.04' Type determines the nature of the entry and what sort of items the entry may have. There are 5 possible types: CL CLASS: Classes group documents. Example: "Progress Notes" is a class with many kinds of progress notes under it. Classes may themselves be subdivided into items of Type Class or may have items of Type Document Class if no further Class subdivisions are desired. If a hierarchy deeper than Class-Document Class-Title is desired, Class is the place to insert another level into the hierarchy: Class-Class-Document Class-Title. Besides grouping documents, Classes also store behavior which is then inherited by lower level entries. DC DOCUMENT CLASS: Document Classes group documents. Document Class is the lowest level of class, and has items of Type Title under it. Example: "Day Pass Note" could be a Document Class under class Progress Note. Document Classes also store behavior which is then inherited by lower entries. TL TITLE: Titles are used to enter documents. They store the behavior of the documents which use them. Titles may have predefined boilerplate ("Overprint") text. They may have Components as items. Boilerplate Text can have objects in it. Examples: "Routine Day Pass Note" could be a Title under document class Day Pass Note. Another example might be "Exceptional Circumstances Day Pass Note." Titles store their own behavior. They also inherit behavior from higher levels of the hierarchy. However, behavior stored in the Title itself overrides inherited behavior. CO COMPONENT: Components are "sections" or "pieces" of documents. In the Hierarchy, Components are hung as items from Titles. Examples: "Reason for Pass" could be a component of Routine Day Pass Note. Subjective is a component of a SOAP Note. Components may have (sub)Components as items. They may have Boilerplate Text. Components may be designated Shared (see Field Description for Shared). Shared Components are shown in Document Definition Utility Displays as Type: 'CO S'. There are advantages and disadvantages in splitting a document up into separate components (rather than writing sections into the Boilerplate Text of the Title): Since Components are stored as separate file entries, they are inherently accessable and even 'moveable'. Using Fileman, sites can access components of documents the same way they can access documents for reports, etc.. Also, in the future, TIU may have options to move/copy certain components from one document into another. The disadvantage is speed: Components make the structure more complex and therefore slow down processing. O OBJECT: Objects are names which may be embedded in the predefined boilerplate text of Titles. Example: 'PATIENT AGE'. Objects are typed into the boilerplate text of a Title, enclosed by '|'s. For example, suppose a Title has boilerplate text: Patient is a healthy |PATIENT AGE| year old male ... Then a user who enters such a note for a patient known by the system to be 56 years old would be presented with the text: Patient is a healthy 56 year old male ... The user can then add to the text and or edit the text, including the age (56) of the patient. From this point on, the patient age (56) is regular text and is not updated in this note. Objects must always have uppercase names, abbreviations, and print names. When embedding objects in boilerplate text, users may embed any of these three (name, abbreviation, print name) in boilerplate text, enclosed by '|'s. Objects must always be embedded in uppercase. Objects are stored in the Document Definition File, but are not part of the Hierarchy. They are accessible through the Option Create Objects. (They are also accessible through the Option Sort Document Definitions, by selecting Sort by Type and selecting Type Object.) TIU exports a small library of objects. Sites can also create their own. Only an owner can edit an object and should do so only after consulting with others who use it. The object must be inactive for editing. It should be thoroughly tested. See Object Status, under Status. Entries of type Object cannot be changed to any other type. Entries of type Class, Document Class, Title, or Component cannot be changed to type Object. Type is a BASIC field. %Library.EnumString 6 TYPE FileMan Field Label: 'UPLOAD FILING ERROR CODE' FileMan Field Number: '4.8' UPLOAD FILING ERROR RESOLUTION CODE This MUMPS-type field specifies the code to be executed when the user attempts to resolve a filing error. Filing Errors may be resolved either by responding to a Filing Error Alert or through the option to Review Upload Events. Typically, the code will offer the user an opportunity to look up online information necessary to resolve the error (e.g., demographic, or case-related information). %Library.String 1 43 s {UPLOAD_FILING_ERROR_CODE}=$e({NODE_4_8},1,245) 1 UPLOAD_FILING_ERROR_CODE FileMan Field Label: 'UPLOAD LOOK-UP METHOD' FileMan Field Number: '4' Sometimes when an entry is uploaded into the target file, a new entry is created for it. However, in other cases such as for Operative Reports, or for an addendum, the file entry already exists and must be looked-up and edited. Look-Up Method is the MUMPS code invoked to perform such a look-up on the target file. If a look-up is necessary and this field is blank, a regular DIC lookup is performed. If the regular DIC lookup is not sufficient to locate the appropriate entry, this field should contain the lookup. It should expect any look-up special variables named in the header fields as input variables, and should return the variable Y in DIC-compatible format (i.e., IEN^EXTERNAL VALUE[^1]). %Library.String 1 25 s {UPLOAD_LOOKUP_METHOD}=$e({NODE_4},1,245) 1 UPLOAD_LOOKUP_METHOD FileMan Field Label: 'UPLOAD POST-FILING CODE' FileMan Field Number: '4.5' This field specifies code to be executed following the successful filing of an uploaded record. It may be used to send bulletins or alerts, evaluate expected signers/cosigners, trigger events, update statuses, or whatever the designer of the application deems appropriate. %Library.String 1 37 s {UPLOAD_POSTFILING_CODE}=$e({NODE_4_5},1,245) 1 UPLOAD_POSTFILING_CODE FileMan Field Label: 'UPLOAD TARGET FILE' FileMan Field Number: '1.01' ------------- NOTE ON UPLOAD: Upload fields (Upload Target File, Laygo Allowed, Target Text Field Subscript, Upload Look-Up Method, Upload Post-Filing Code, Upload Filing Error Code, and multiple fields Upload Delimited ASCII Header and Upload Captioned ASCII Header) apply to Document Definitions of Type Class, Document Class, and Title. Multiple fields Upload Delimited ASCII Header and Upload Captioned ASCII Header are heritable AS A GROUP. Do NOT set partial information at a lower level; if you set ANY information at a lower level, it should be COMPLETE. For information on editing heritable fields, see Technical field: Edit Template. TIUF, the Document Definition Utility does NOT display inherited Upload information. To see/edit existing upload information, edit/view at the level it is set. -------------- The UPLOAD TARGET FILE is the VA FileMan file in which fixed-field header information and associated text will be stored. Only files which include the TIU Application Group may be selected. VALIP.prosthetic.fm2cw.FILE1 17 UPLOAD_TARGET_FILE NAME]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_DEFINITION_8925_1 where %ID=:id) set {UPLOAD_TARGET_FILE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 UPLOAD_TARGET_FILE_NAME 1 FileMan Field Label: 'VALIDATION METHOD' FileMan Field Number: '8' Applies to Types Class, Document Class, Title. This is the M-Code to be invoked when Validating the visit and other fixed field information on a record during entry/edit. User is asked to OK or to correct the information. Heritable. TECHNICAL field. For information on editing heritable fields, see Technical field Edit Template. %Library.String 1 61 s {VALIDATION_METHOD}=$e({NODE_8},1,245) 1 VALIDATION_METHOD SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 68 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFICATION ACTION' FileMan Field Number: '4.3' This M-Code is executed upon Verification of the document. Heritable. TECHNICAL field. %Library.String 1 31 s {VERIFICATION_ACTION}=$e({NODE_4_3},1,245) 1 VERIFICATION_ACTION FileMan Field Label: 'VHA ENTERPRISE STANDARD TITLE' FileMan Field Number: '1501' This reference to the VHA ENTERPRISE STANDARD TITLE FILE provides for the mapping of local titles to the Enterprise Standard Titles. VALIP.prosthetic.fm2cw.TIUVHAENTERPRISESTANDARDTITLE89261 65 VHA_ENTERPRISE_STANDARD_TITLE STANDARD TITLE VHA ENTERPRISE NAME This is the VHA Enterprise Standard Title, which is created by concatenating the Subject Matter Domain (SMD), Role, Setting, Service, & Document Type axes, in that order (e.g., Cardiology Attending Inpatient Initial Evaluation Note).]]> %Library.String 1 STANDARD_TITLE into :val from VALIP_prosthetic_fm2cw.TIU_DOCUMENT_DEFINITION_8925_1 where %ID=:id) set {VHA_ENTERPRISE_STANDARD_TITLE_STANDARD_TITLE}=$select(SQLCODE=0:val,1:"")]]> 1 VHA_ENTERPRISE_STANDARD_TITLE_STANDARD_TITLE 1 FileMan Field Label: 'VISIT LINKAGE METHOD' FileMan Field Number: '7' Applies to Types Class, Document Class, Title. This M-Code is executed to establish Visit Linkage, usually displaying appropriate visits and prompting the user to select the correct one. Heritable. TECHNICAL Field. For information on editing heritable fields, see Technical Field Edit Template. %Library.String 1 59 s {VISIT_LINKAGE_METHOD}=$e({NODE_7},1,245) 1 VISIT_LINKAGE_METHOD BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^TIU(8925.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(8925.1,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(8925.1,"+1,",.02)={"ABBREVIATION"} set:{PRINT_NAME}'="" FDA(8925.1,"+1,",.03)={"PRINT_NAME"} set:{TYPE}'="" FDA(8925.1,"+1,",.04)={"TYPE"} set:{PERSONAL_OWNER}'="" FDA(8925.1,"+1,",.05)={"PERSONAL_OWNER"} set:{CLASS_OWNER}'="" FDA(8925.1,"+1,",.06)={"CLASS_OWNER"} set:{STATUS}'="" FDA(8925.1,"+1,",.07)={"STATUS"} set:{SHARED}'="" FDA(8925.1,"+1,",.1)={"SHARED"} set:{NATIONAL_STANDARD}'="" FDA(8925.1,"+1,",.13)={"NATIONAL_STANDARD"} set:{POSTING_INDICATOR}'="" FDA(8925.1,"+1,",.14)={"POSTING_INDICATOR"} set:{UPLOAD_TARGET_FILE}'="" FDA(8925.1,"+1,",1.01)={"UPLOAD_TARGET_FILE"} set:{LAYGO_ALLOWED}'="" FDA(8925.1,"+1,",1.02)={"LAYGO_ALLOWED"} set:{TARGET_TEXT_FIELD_SUBSCRIPT}'="" FDA(8925.1,"+1,",1.03)={"TARGET_TEXT_FIELD_SUBSCRIPT"} set:{BOILERPLATE_ON_UPLOAD_ENABLED}'="" FDA(8925.1,"+1,",1.04)={"BOILERPLATE_ON_UPLOAD_ENABLED"} set:{OK_TO_DISTRIBUTE}'="" FDA(8925.1,"+1,",3.02)={"OK_TO_DISTRIBUTE"} set:{SUPPRESS_VISIT_SELECTION}'="" FDA(8925.1,"+1,",3.03)={"SUPPRESS_VISIT_SELECTION"} set:{PRINT_FORM_HEADER}'="" FDA(8925.1,"+1,",6.1)={"PRINT_FORM_HEADER"} set:{PRINT_FORM_NUMBER}'="" FDA(8925.1,"+1,",6.12)={"PRINT_FORM_NUMBER"} set:{PRINT_GROUP}'="" FDA(8925.1,"+1,",6.13)={"PRINT_GROUP"} set:{ALLOW_CUSTOM_FORM_HEADERS}'="" FDA(8925.1,"+1,",6.14)={"ALLOW_CUSTOM_FORM_HEADERS"} set:{TIMESTAMP}'="" FDA(8925.1,"+1,",99)={"TIMESTAMP"} set:{VHA_ENTERPRISE_STANDARD_TITLE}'="" FDA(8925.1,"+1,",1501)={"VHA_ENTERPRISE_STANDARD_TITLE"} set:{MAP_ATTEMPTED}'="" FDA(8925.1,"+1,",1502)={"MAP_ATTEMPTED"} set:{MAP_ATTEMPTED_BY}'="" FDA(8925.1,"+1,",1503)={"MAP_ATTEMPTED_BY"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8925.1)") set %SkipFiling=1 if $d(%FMERR(8925.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {BOILERPLATE_TEXT}'="" { set D0={RowId} for i=1:1:$l({BOILERPLATE_TEXT},$c(13,10)) { set wp(i)=$p({BOILERPLATE_TEXT},$c(13,10),i) } do WP^DIE(8925.1,{RowId},3,,"wp","%FMERR(8925.1)") if $d(%FMERR(8925.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(8925.1,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(8925.1,IENS,.02)={ABBREVIATION} set:{PRINT_NAME*C} FDA(8925.1,IENS,.03)={PRINT_NAME} set:{TYPE*C} FDA(8925.1,IENS,.04)={TYPE} set:{PERSONAL_OWNER*C} FDA(8925.1,IENS,.05)={PERSONAL_OWNER} set:{CLASS_OWNER*C} FDA(8925.1,IENS,.06)={CLASS_OWNER} set:{STATUS*C} FDA(8925.1,IENS,.07)={STATUS} set:{SHARED*C} FDA(8925.1,IENS,.1)={SHARED} set:{NATIONAL_STANDARD*C} FDA(8925.1,IENS,.13)={NATIONAL_STANDARD} set:{POSTING_INDICATOR*C} FDA(8925.1,IENS,.14)={POSTING_INDICATOR} set:{UPLOAD_TARGET_FILE*C} FDA(8925.1,IENS,1.01)={UPLOAD_TARGET_FILE} set:{LAYGO_ALLOWED*C} FDA(8925.1,IENS,1.02)={LAYGO_ALLOWED} set:{TARGET_TEXT_FIELD_SUBSCRIPT*C} FDA(8925.1,IENS,1.03)={TARGET_TEXT_FIELD_SUBSCRIPT} set:{BOILERPLATE_ON_UPLOAD_ENABLED*C} FDA(8925.1,IENS,1.04)={BOILERPLATE_ON_UPLOAD_ENABLED} set:{OK_TO_DISTRIBUTE*C} FDA(8925.1,IENS,3.02)={OK_TO_DISTRIBUTE} set:{SUPPRESS_VISIT_SELECTION*C} FDA(8925.1,IENS,3.03)={SUPPRESS_VISIT_SELECTION} set:{PRINT_FORM_HEADER*C} FDA(8925.1,IENS,6.1)={PRINT_FORM_HEADER} set:{PRINT_FORM_NUMBER*C} FDA(8925.1,IENS,6.12)={PRINT_FORM_NUMBER} set:{PRINT_GROUP*C} FDA(8925.1,IENS,6.13)={PRINT_GROUP} set:{ALLOW_CUSTOM_FORM_HEADERS*C} FDA(8925.1,IENS,6.14)={ALLOW_CUSTOM_FORM_HEADERS} set:{TIMESTAMP*C} FDA(8925.1,IENS,99)={TIMESTAMP} set:{VHA_ENTERPRISE_STANDARD_TITLE*C} FDA(8925.1,IENS,1501)={VHA_ENTERPRISE_STANDARD_TITLE} set:{MAP_ATTEMPTED*C} FDA(8925.1,IENS,1502)={MAP_ATTEMPTED} set:{MAP_ATTEMPTED_BY*C} FDA(8925.1,IENS,1503)={MAP_ATTEMPTED_BY} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.1)") set %SkipFiling=1 if $d(%FMERR(8925.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {BOILERPLATE_TEXT*C} { set D0={RowId} kill wp if {BOILERPLATE_TEXT}'="" { set wproot="wp" for i=1:1:$l({BOILERPLATE_TEXT},$c(13,10)) { set wp(i)=$p({BOILERPLATE_TEXT},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(8925.1,{RowId},3,,wproot,"%FMERR(8925.1)") if $d(%FMERR(8925.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.TIUDOCUMENTD3B1S index ^TIU nonnull 8925.1 "AC" {CLASS_OWNER} {IEN} 0]]> index ^TIU nonnull 8925.1 "ALOINC" {VHA_ENTERPRISE_STANDARD_TITLE} {IEN} 0]]> index ^TIU nonnull 8925.1 "AP" {PERSONAL_OWNER} {IEN} 0]]> index ^TIU nonnull 8925.1 "APOST" {POSTING_INDICATOR} {IEN} 0]]> index ^TIU nonnull 8925.1 "AS" {STATUS} {IEN} 0]]> index ^TIU nonnull 8925.1 "AT" {TYPE} {IEN} 0]]> index ^TIU nonnull 8925.1 "B" {NAME} {IEN} 0]]> index ^TIU nonnull 8925.1 "C" {ABBREVIATION} {IEN} 0]]> index {PRINT_NAME}'="" 1 ^TIU conditional 8925.1 "D" $$TRUNCATE({PRINT_NAME},30)) {IEN} 0]]> data ^TIU 8925.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 6.1 4 "^" 1 4 "DFLT" new data,i,node set {BOILERPLATE_TEXT}="" merge data=^TIU(8925.1,{S2},"DFLT") set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {BOILERPLATE_TEXT}={BOILERPLATE_TEXT}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 6 "^" 1 2 "^" 15 2 "^" 15 3 "^" 0 1 "^" 0 13 "^" 3 2 "^" 0 5 "^" 0 14 "^" 6.1 1 "^" 6.1 2 "^" 6.1 3 "^" 0 3 "^" 0 10 "^" 0 7 "^" 3 3 "^" 1 3 "^" 99 1 "^" 0 4 "^" 1 1 "^" 15 1 Generated class for FileMan File Number: '8925.6' File Name: 'TIU STATUS' Class generated by %fm2class version 2.56 Per VHA Directive 2005-044, this file has been "locked down" by Data Standardization (DS). The file definition (i.e. data dictionary) shall not be modified. All additions, changes and deletions to entries in the file shall be done by Enterprise Reference Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS). Creating and/or editing locally defined fields in the file are not permitted. Use of locally defined fields that were created prior to the VHA Directive's 2005-044 effective date shall not be supported. This file contains the allowable statuses which may be applied to a TIU document during its path through the system. persistent _PUBLIC 0 RowId TIU_STATUS_8925_6 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.945775523 67178,44736.451700488 right TIU STATUS 8925.6 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'APPLIES TO' FileMan Field Number: '.04' %Library.EnumString 6 APPLIES_TO FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' %Library.String 7 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^TIU(8925.6,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MASTER ENTRY FOR VUID' FileMan Field Number: '99.98' This field identifies the Master entry for a VUID associated with a Term/Concept. %Library.EnumString 8 MASTER_ENTRY_FOR_VUID FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the status name used in selecting or displaying the status of the document. %Library.String 1 3 NAME FileMan Field Label: 'SEQUENCE' FileMan Field Number: '.03' %Library.Numeric 5 SEQUENCE Relationship for Sub-File/Multiple to file name EFFECTIVE DATE/TIME child VALIP.prosthetic.fm2cw.SUBEFFECTIVEDATETIME8925699 children TIUSTATUS89256 1 SUB_EFFECTIVE_DATETIME_8925_699 FileMan Field Label: 'SYMBOL' FileMan Field Number: '.02' This is the symbol to be displayed in some applications, which corresponds to the status of the document (e.g., $ may indicate unsigned, etc.). %Library.String 4 SYMBOL SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VUID' FileMan Field Number: '99.99' VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide. %Library.String 9 VUID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^TIU(8925.6," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(8925.6,"+1,",.01)={"NAME"} set:{SYMBOL}'="" FDA(8925.6,"+1,",.02)={"SYMBOL"} set:{SEQUENCE}'="" FDA(8925.6,"+1,",.03)={"SEQUENCE"} set:{APPLIES_TO}'="" FDA(8925.6,"+1,",.04)={"APPLIES_TO"} set:{MASTER_ENTRY_FOR_VUID}'="" FDA(8925.6,"+1,",99.98)={"MASTER_ENTRY_FOR_VUID"} set:{VUID}'="" FDA(8925.6,"+1,",99.99)={"VUID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8925.6)") set %SkipFiling=1 if $d(%FMERR(8925.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION}'="" { set D0={RowId} for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) } do WP^DIE(8925.6,{RowId},1,,"wp","%FMERR(8925.6)") if $d(%FMERR(8925.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(8925.6,IENS,.01)={NAME} set:{SYMBOL*C} FDA(8925.6,IENS,.02)={SYMBOL} set:{SEQUENCE*C} FDA(8925.6,IENS,.03)={SEQUENCE} set:{APPLIES_TO*C} FDA(8925.6,IENS,.04)={APPLIES_TO} set:{MASTER_ENTRY_FOR_VUID*C} FDA(8925.6,IENS,99.98)={MASTER_ENTRY_FOR_VUID} set:{VUID*C} FDA(8925.6,IENS,99.99)={VUID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8925.6)") set %SkipFiling=1 if $d(%FMERR(8925.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {DESCRIPTION*C} { set D0={RowId} kill wp if {DESCRIPTION}'="" { set wproot="wp" for i=1:1:$l({DESCRIPTION},$c(13,10)) { set wp(i)=$p({DESCRIPTION},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(8925.6,{RowId},1,,wproot,"%FMERR(8925.6)") if $d(%FMERR(8925.6,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8925.6)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.TIUSTATUS89256S index ^TIU nonnull 8925.6 "AMASTERVUID" {VUID} {MASTER_ENTRY_FOR_VUID} {IEN} 0]]> index ^TIU nonnull 8925.6 "AVUID" {VUID} {IEN} 0]]> index ^TIU nonnull 8925.6 "B" {NAME} {IEN} 0]]> index ^TIU nonnull 8925.6 "C" {SEQUENCE} {IEN} 0]]> data ^TIU 8925.6 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 4 1 new data,i,node set {DESCRIPTION}="" merge data=^TIU(8925.6,{S2},1) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {DESCRIPTION}={DESCRIPTION}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" "VUID" 2 "^" 0 1 "^" 0 3 "^" 0 2 "^" "VUID" 1 Generated class for FileMan File Number: '8926.1' File Name: 'TIU VHA ENTERPRISE STANDARD TITLE' Class generated by %fm2class version 2.56 Per VHA Directive 2005-044, this file has been "locked down" by Data Standardization (DS). The file definition (i.e. data dictionary) shall not be modified. All additions, changes and deletions to entries in the file shall be done by Enterprise Reference Terminology (ERT) using the Master File Server (MFS), provided by Common Services (CS). Creating and/or editing locally defined fields in the file are not permitted. Use of locally defined fields that were created prior to the VHA Directive's 2005-044 effective date shall not be supported. persistent _PUBLIC 0 RowId TIU_VHA_ENTERPRISE_STANDARD_TITLE_8926_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.982681994 67178,44736.502764676 right TIU VHA ENTERPRISE STANDARD TITLE 8926.1 2.56 12/04/2024 12:25:36 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^TIU(8926.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MASTER ENTRY FOR VUID' FileMan Field Number: '99.98' This field identifies the Master entry for a VUID associated with a Term/Concept. %Library.EnumString 4 MASTER_ENTRY_FOR_VUID %Library.String 1 3 STANDARD_TITLE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VUID' FileMan Field Number: '99.99' VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide. %Library.String 5 VUID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^TIU(8926.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{STANDARD_TITLE}'="" FDA(8926.1,"+1,",.01)={"STANDARD_TITLE"} set:{MASTER_ENTRY_FOR_VUID}'="" FDA(8926.1,"+1,",99.98)={"MASTER_ENTRY_FOR_VUID"} set:{VUID}'="" FDA(8926.1,"+1,",99.99)={"VUID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8926.1)") set %SkipFiling=1 if $d(%FMERR(8926.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8926.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{STANDARD_TITLE*C} FDA(8926.1,IENS,.01)={STANDARD_TITLE} set:{MASTER_ENTRY_FOR_VUID*C} FDA(8926.1,IENS,99.98)={MASTER_ENTRY_FOR_VUID} set:{VUID*C} FDA(8926.1,IENS,99.99)={VUID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8926.1)") set %SkipFiling=1 if $d(%FMERR(8926.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8926.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.TIUVHAENTER71CES index ^TIU nonnull 8926.1 "AMASTERVUID" {VUID} {MASTER_ENTRY_FOR_VUID} {IEN} 0]]> index ^TIU nonnull 8926.1 "AVUID" {VUID} {IEN} 0]]> index ^TIU nonnull 8926.1 "B" {STANDARD_TITLE} {IEN} 0]]> data ^TIU 8926.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "VUID" 2 "^" 0 1 "^" "VUID" 1 Generated class for FileMan File Number: '61' File Name: 'TOPOGRAPHY FIELD' Class generated by %fm2class version 2.56 This is the TOPOGRAPHY file of SNOMED persistent _PUBLIC 0 RowId TOPOGRAPHY_FIELD_61 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44741.997192998 67178,44736.562426192 right TOPOGRAPHY FIELD 61 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '6' This must be a 1,2, or 3 character abbreviation of the specimen. %Library.String 9 ABBREVIATION FileMan Field Label: 'HL7 CODE' FileMan Field Number: '.08' %Library.String 5 HL7_CODE FileMan Field Label: 'ICDO CODE' FileMan Field Number: '.07' The appropriate ICD0 code associated with this specimen or source. %Library.String 4 ICDO_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(61,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INACTIVE DATE' FileMan Field Number: '64.9103' This is the date on or after which the entry will no longer be active. Inactive entries will not be available for selection in CPRS nor be able to be associated with a test in the LABORATORY TEST file (#60). %Library.FilemanDate 13 INACTIVE_DATE FileMan Field Label: 'NAME' FileMan Field Number: '.01' The name of the specimen or source. %Library.String 1 3 NAME FileMan Field Label: '*NEGATIVE BACTERIOLOGY COMMENT' FileMan Field Number: '63.05' This comment facilitates batch entry of microbiology results. The text contained in this field is the default comment for the named specimen. %Library.String 12 NEGATIVE_BACTERIOLOGY_COMMENT FileMan Field Label: 'SCT CODE STATUS' FileMan Field Number: '21' This field indicate the status or disposition of this entry. P = SNOMED Preferred term S = SNOMED Synonym term L = Local spelling of a SNOMED term (miss-spelled) R = Referred to national coders to determine if acceptable X = No applicable mapping LN = New term pending LEXICON release/update. RN = STS Request New Code E = Error encountered when applying STS disposition to file entry. %Library.EnumString 11 SCT_CODE_STATUS FileMan Field Label: 'SEX SPECIFIC' FileMan Field Number: '2.5' If this specimen is specific to one sex only, enter F for female or M for male. %Library.EnumString 7 SEX_SPECIFIC FileMan Field Label: 'SNOMED CODE' FileMan Field Number: '2' ENTER CHARACTERS FOLLOWING 'T-' IN SNOMED REFERENCE BOOK The code consists of the characters following "T-" in the SNOMED reference book. %Library.String 6 SNOMED_CODE FileMan Field Label: 'SNOMED CT ID' FileMan Field Number: '20' This is the SNOMED CT concept identifier for this entry. If this entry is null then the entry is either unmapped or no valid SNOMED concept term exists to map this term. This field is not editable except by the Lab software. %Library.String 10 SNOMED_CT_ID SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 14 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WEIGH' FileMan Field Number: '4' WEIGH is a YES/NO question. Answer YES if you want this specimen to be weighed for surgical pathology. A null answer equals NO. %Library.EnumString 8 WEIGH BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(61," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(61,"+1,",.01)={"NAME"} set:{ICDO_CODE}'="" FDA(61,"+1,",.07)={"ICDO_CODE"} set:{HL7_CODE}'="" FDA(61,"+1,",.08)={"HL7_CODE"} set:{SNOMED_CODE}'="" FDA(61,"+1,",2)={"SNOMED_CODE"} set:{SEX_SPECIFIC}'="" FDA(61,"+1,",2.5)={"SEX_SPECIFIC"} set:{WEIGH}'="" FDA(61,"+1,",4)={"WEIGH"} set:{ABBREVIATION}'="" FDA(61,"+1,",6)={"ABBREVIATION"} set:{SNOMED_CT_ID}'="" FDA(61,"+1,",20)={"SNOMED_CT_ID"} set:{SCT_CODE_STATUS}'="" FDA(61,"+1,",21)={"SCT_CODE_STATUS"} set:{NEGATIVE_BACTERIOLOGY_COMMENT}'="" FDA(61,"+1,",63.05)={"NEGATIVE_BACTERIOLOGY_COMMENT"} set:{INACTIVE_DATE}'="" FDA(61,"+1,",64.9103)={"INACTIVE_DATE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(61)") set %SkipFiling=1 if $d(%FMERR(61,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(61,IENS,.01)={NAME} set:{ICDO_CODE*C} FDA(61,IENS,.07)={ICDO_CODE} set:{HL7_CODE*C} FDA(61,IENS,.08)={HL7_CODE} set:{SNOMED_CODE*C} FDA(61,IENS,2)={SNOMED_CODE} set:{SEX_SPECIFIC*C} FDA(61,IENS,2.5)={SEX_SPECIFIC} set:{WEIGH*C} FDA(61,IENS,4)={WEIGH} set:{ABBREVIATION*C} FDA(61,IENS,6)={ABBREVIATION} set:{SNOMED_CT_ID*C} FDA(61,IENS,20)={SNOMED_CT_ID} set:{SCT_CODE_STATUS*C} FDA(61,IENS,21)={SCT_CODE_STATUS} set:{NEGATIVE_BACTERIOLOGY_COMMENT*C} FDA(61,IENS,63.05)={NEGATIVE_BACTERIOLOGY_COMMENT} set:{INACTIVE_DATE*C} FDA(61,IENS,64.9103)={INACTIVE_DATE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(61)") set %SkipFiling=1 if $d(%FMERR(61,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(61)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.TOPOGRAPHYF6D7DS index {SCT_CODE_STATUS}'="" 1 ^LAB conditional 61 "AC" $$TRUNCATE({SCT_CODE_STATUS},30)) {IEN} 0]]> index ^LAB nonnull 61 "B" {NAME} {IEN} 0]]> index ^LAB nonnull 61 "C" {SNOMED_CODE} {IEN} 0]]> index ^LAB nonnull 61 "E" {ABBREVIATION} {IEN} 0]]> index ^LAB nonnull 61 "F" {SNOMED_CT_ID} {IEN} 0]]> data ^LAB 61 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 5 "^" 0 8 "^" 0 7 "^" 64.91 3 "^" 0 1 "^" 5 1 "^" "SCT" 2 "^" 0 3 "^" 0 2 "^" "SCT" 1 "^" 0 4 Generated class for FileMan File Number: '25' File Name: 'TYPE OF DISCHARGE' Class generated by %fm2class version 2.56 This file contains the various types of discharge a person who served in military service may have been given from that military service. This file is maintained by the MAS software package as directed by MAS VACO. This file should not be altered in any way. persistent _PUBLIC 0 RowId TYPE_OF_DISCHARGE_25 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.007500338 67178,44736.613029434 right TYPE OF DISCHARGE 25 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '1' This field contains an abbreviate for this military discharge type. On outputs or displays where the full name of the discharge may not fit, this abbreviation will be displayed instead. %Library.String 5 ABBREVIATION Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(25,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the name of all allowable military discharge types as determined by VACO. This information is maintained by the MAS software package through frequent releases and should not be edited at the site level. %Library.String 1 4 NAME FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' This field contains the internal entry number of this type of discharge as determined by VA FileMan and the MAS software package. This number may be used by various software modules throughout DHCP. It must not be altered nor should entries be added or removed from this file. %Library.String 1 3 Set {*}={IEN} 1 NUMBER SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(25," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(25,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(25,"+1,",1)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(25)") set %SkipFiling=1 if $d(%FMERR(25,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(25)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(25,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(25,IENS,1)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(25)") set %SkipFiling=1 if $d(%FMERR(25,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(25)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.TYPEOFDISCHE8E3S index ^DIC nonnull 25 "B" {NAME} {IEN} 0]]> data ^DIC 25 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '391' File Name: 'TYPE OF PATIENT' Class generated by %fm2class version 2.56 This file contains the various types of patient which might be seen at a VA facility. The file is pointed to by the TYPE field of the PATIENT file and every patient added to the system must have a TYPE specified. Using the 'Patient Type Update' option of ADT the user should specify the parameters concerning which screens should be displayed during the registration process for these patient types and what data elements on those screens are editable. persistent _PUBLIC 0 RowId TYPE_OF_PATIENT_391 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.045745869 67178,44736.659760677 right TYPE OF PATIENT 391 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: '*EDIT AGENT ORANGE DATA?' FileMan Field Number: '65' Enter yes if you want users to be able to edit agent orange exposure data for patients of this type. This data includes the dates of test for AO exposure. If you respond no, this data will appear on the screen, but will be uneditable. %Library.EnumString 23 EDIT_AGENT_ORANGE_DATA FileMan Field Label: '*EDIT APPLICANT EMPLOYER?' FileMan Field Number: '41' EDIT APPLICANT EMPLOYER? Respond yes if you want users to be able to edit the employer data for the applicant (veteran). If you say no, this information will appear on the screen display, but will not be editable. %Library.EnumString 17 EDIT_APPLICANT_EMPLOYER FileMan Field Label: '*EDIT COMBAT DATA?' FileMan Field Number: '63' Enter yes if you want the users to be able to edit combat data for patients of this type. This data includes combat from/to dates as well as where the combat occurred. If you respond no, this data will appear on the screen, but will not be editable. %Library.EnumString 21 EDIT_COMBAT_DATA FileMan Field Label: '*EDIT DENTAL HISTORY DATA?' FileMan Field Number: '68' Enter yes if you want users to be able to edit data relating to dental history in service if the patient is of this type. If you respond no, the data element will appear on the screen, but will not be editable. %Library.EnumString 26 EDIT_DENTAL_HISTORY_DATA FileMan Field Label: '*EDIT INELIGIBLE DATA?' FileMan Field Number: '91' EDIT INELIGIBLE DATA? Enter yes if you want users to be allowed to edit data about a patients eligibility for patients of this patient type. If you respond no, the question will appear on the screen, but it will not be editable. %Library.EnumString 31 EDIT_INELIGIBLE_DATA FileMan Field Label: 'EDIT INELIGIBLE DATA?' FileMan Field Number: '101' If, when editing data for patients of this type, you want users to be able edit data about a patient's ineligibility for care, respond yes here. If you respond no, the data will display on the screen, but will not be editable by the users. %Library.EnumString 33 EDIT_INELIGIBLE_DATA0 FileMan Field Label: '*EDIT MILITARY DISABILITY DATA' FileMan Field Number: '67' Enter yes if you want the users to be able to edit data relating to military disability for patients of this type. If you respond no, the data element will appear on the screen, but will not be editable. %Library.EnumString 25 EDIT_MILITARY_DISABILITY_DATA FileMan Field Label: '*EDIT MISSING DATA?' FileMan Field Number: '92' EDIT MISSING DATA? Enter yes if you want the user to be allowed to edit data on missing veterans for patients of this patient type. If you respond no, the question will appear on the screen, but will not be editable. %Library.EnumString 32 EDIT_MISSING_DATA FileMan Field Label: 'EDIT MISSING DATA?' FileMan Field Number: '102' If, for patients of the specified patient type, you want users to be able to edit data about missing veterans, answer yes. If you respond no, the user will see the screen, but will not be able to edit the missing data. %Library.EnumString 34 EDIT_MISSING_DATA0 FileMan Field Label: '*EDIT OTHER MONETARY BENEFITS?' FileMan Field Number: '72' EDIT OTHER MONETARY BENEFITS? This field is no longer used by the MAS package and will be removed in a future version. %Library.EnumString 28 EDIT_OTHER_MONETARY_BENEFITS FileMan Field Label: '*EDIT PRISONER OF WAR DATA?' FileMan Field Number: '62' Enter yes if you wish to allow users to edit the prisoner of war data (from/to dates, where imprisoned, etc.) for this type of patient. If you say no, this information will appear on the screen display, but will not be editable. %Library.EnumString 20 EDIT_PRISONER_OF_WAR_DATA FileMan Field Label: '*EDIT RADIATION EXPOSURE DATA?' FileMan Field Number: '66' Enter yes if you want to be able to edit radiation exposure data for patients with this patient type. This data includes dates of test for radiation. If you respond no, this data will appear on the screen, but will be uneditable. %Library.EnumString 24 EDIT_RADIATION_EXPOSURE_DATA FileMan Field Label: 'EDIT SC CONDITIONS PER PT?' FileMan Field Number: '74' If the user should be allowed to edit SC conditions as stated by the applicant for patients of this patient type, answer yes here. Otherwise respond no. This data appears on registration screen 7 (Eligibility Status Data). %Library.EnumString 29 EDIT_SC_CONDITIONS_PER_PT FileMan Field Label: '*EDIT SC CONDITIONS PER PT?' FileMan Field Number: '83' EDIT SC CONDITIONS PER PT? Respond yes if you want to give users the ability to edit service conditions as stated by the patient for patients of this patient type. If you respond no, the question will appear on the screen, but it will not be editable. Note: Due to a change in screen numbering, this field is being *'d for deletion and will no longer be used (affective with installation of this version). A new field 73 has been added which is the same prompt. This is in keeping with the present field numbering sequence. %Library.EnumString 30 EDIT_SC_CONDITIONS_PER_PT0 FileMan Field Label: '*EDIT SERVICE HISTORY?' FileMan Field Number: '61' Enter yes if you wish to allow users to edit the service history data for this type of patient. If you say no, this information will appear on the screen display, but will not be editable. %Library.EnumString 19 EDIT_SERVICE_HISTORY FileMan Field Label: '*EDIT SPOUSE'S EMPLOYER?' FileMan Field Number: '42' EDIT SPOUSE'S EMPLOYER Respond yes if you want users to be able to edit the spouse's employer information for this type of patient. If you say no, this information will appear on the screen display, but will not be editable. %Library.EnumString 18 EDIT_SPOUSES_EMPLOYER FileMan Field Label: '*EDIT VA MONETARY BENEFITS?' FileMan Field Number: '71' EDIT VA MONETARY BENEFITS? This field is no longer used by the MAS package and will be removed in a future version. %Library.EnumString 27 EDIT_VA_MONETARY_BENEFITS FileMan Field Label: '*EDIT VIETNAM SERVICE DATA?' FileMan Field Number: '64' Enter yes if you want users to be able to edit Vietnam service data for patients of this type. This data includes the dates from and to which the veteran served in Vietnam. If you respond no, this data will appear on the screen, but will be uneditable. %Library.EnumString 22 EDIT_VIETNAM_SERVICE_DATA Internal Entry Number %Library.String $$next^%apiSQL("$p(^DG(391,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IGNORE VETERAN CHECKS?' FileMan Field Number: '.02' If this particular type of patient is non-veteran, but the patient can respond to questions meant for veterans, respond yes. An example would be MILITARY RETIREE. These patients are seen as non-veterans, but may have veteran periods of service, prisoner of war dates, etc. %Library.EnumString 4 IGNORE_VETERAN_CHECKS FileMan Field Label: '*INFO TO ASK' FileMan Field Number: '.03' INFO TO ASK This field is no longer used by the MAS package. It will be removed in a future release. %Library.String 5 INFO_TO_ASK FileMan Field Label: 'MAKE RECORD SENSITIVE?' FileMan Field Number: '.04' If it is desirable to automatically make a record sensitive if the patient has this patient type, answer yes here. An example would be EMPLOYEE. Any record for a patient added to your system with a patient type of EMPLOYEE will automatically be recorded as sensitive in the security system. %Library.EnumString 6 MAKE_RECORD_SENSITIVE FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field contains the names of the various types of patients seen at VA facilities. This file should not be added to or altered or it could affect daily operations of the MAS software. %Library.String 1 3 NAME FileMan Field Label: 'NEW PATIENT INPUT DR' FileMan Field Number: '200' This field contains a line of code which sets the variable DR for use in a filemanager enter/edit (DIE) call. In order to add to this field or edit what is in it, you must have programmer mode. This DR string should contain a listing of the fields you wish to ask whenever a patient of this patient type is added to the system. These fields would be in addition to the prompts normally given for NAME, SSN, DOB, VET?, etc. If blank, only the standard questions will be asked. %Library.String 1 36 s {NEW_PATIENT_INPUT_DR}=$e({NODE_DR},1,240) 1 NEW_PATIENT_INPUT_DR Computed Field For Node DR %Library.String 1 35 s {NODE_DR}=$g(^DG(391,{IEN},"DR")) 1 NODE_DR FileMan Field Label: 'SHOW CONTACT SCREEN?' FileMan Field Number: '3' Answer yes if you would like to have the contact screen displayed for any patient of this patient type. This screen contains names and addresses of next of kin, emergency contacts, and designees. %Library.EnumString 8 SHOW_CONTACT_SCREEN FileMan Field Label: '*SHOW EMPLOYMENT SCREEN?' FileMan Field Number: '4' SHOW EMPLOYMENT SCREEN? This field is no longer used by the MAS package. Due to the increased need for employment data due to billing, the employment screen can no longer be turned off. This field will be removed in a future release of the MAS package. %Library.EnumString 9 SHOW_EMPLOYMENT_SCREEN FileMan Field Label: 'SHOW FAMILY INFO SCREEN' FileMan Field Number: '8' To display the family demographic screen during registration (screen 8), respond yes here. You must answer yes for NSC patients as income screening is required for all non-service connected veterans. You may chose to show this screen for service connected patients or non-veterans. The family demographic screen holds the name, SSN, date of birth, and sex for all dependents of the patient. %Library.EnumString 13 SHOW_FAMILY_INFO_SCREEN FileMan Field Label: 'SHOW INCOME SCREENING SCREEN' FileMan Field Number: '9' Enter yes if the income screening screen should be displayed for this type of patient. Answer no otherwise. You will be unable to edit this question if the VETERAN? prompt (field .05) is answered yes. This data must be collected for all veterans seen. This screen will contain information on a patient's income for the previous calendar year. It will also contain information on the patient's spouse and dependents. This data will, in turn, be used for IRS matching. %Library.EnumString 14 SHOW_INCOME_SCREENING_SCREEN FileMan Field Label: 'SHOW INELIGIBLE SCREEN' FileMan Field Number: '10' Enter yes if you wish the ineligible data screen to show for all patients of this patient type. This screen contains information on the a patient's ineligibility for care and data on missing patients. %Library.EnumString 15 SHOW_INELIGIBLE_SCREEN FileMan Field Label: '*SHOW INSURANCE SCREEN?' FileMan Field Number: '5' SHOW INSURANCE SCREEN? This field is no longer used by the MAS package (the insurance screen is now displayed for ALL patients). It will be removed in a future release. %Library.EnumString 10 SHOW_INSURANCE_SCREEN FileMan Field Label: '*SHOW MONETARY SCREEN?' FileMan Field Number: '7' SHOW MONETARY SCREEN? This field is no longer used by the MAS package. It will be removed in a future version of MAS. %Library.EnumString 12 SHOW_MONETARY_SCREEN FileMan Field Label: 'SHOW SERVICE SCREEN?' FileMan Field Number: '6' Answer yes if you would like the service screen to display for all patients added to your system with this patient type. The service record screen contains data about service history, prisoner of war status, combat, Vietnam service, agent orange and ionizing radiation exposure, military retirement/disability, and service dental history. For non-veterans, you may choose not to display this screen. %Library.EnumString 11 SHOW_SERVICE_SCREEN FileMan Field Label: 'SHOW VERIFICATION SCREEN?' FileMan Field Number: '11' Enter yes if you wish the service verification screen to show for all patients of this patient type. This screen contains information on the verification of eligility and service record data. It also contains data on VA rated disabilities. %Library.EnumString 16 SHOW_VERIFICATION_SCREEN SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 37 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VETERAN?' FileMan Field Number: '.05' Enter YES (or 1) at this prompt if patients of this patient type are veterans. Respond NO otherwise. This information is necessary to determine whether certain screens may be turned off. If this is a non-veteran patient type, but patients with this patient type COULD be veterans, respond YES to the IGNORE VETERAN CHECKS? prompt (field .02). %Library.EnumString 7 VETERAN BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DG(391," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(391,"+1,",.01)={"NAME"} set:{IGNORE_VETERAN_CHECKS}'="" FDA(391,"+1,",.02)={"IGNORE_VETERAN_CHECKS"} set:{INFO_TO_ASK}'="" FDA(391,"+1,",.03)={"INFO_TO_ASK"} set:{MAKE_RECORD_SENSITIVE}'="" FDA(391,"+1,",.04)={"MAKE_RECORD_SENSITIVE"} set:{VETERAN}'="" FDA(391,"+1,",.05)={"VETERAN"} set:{SHOW_CONTACT_SCREEN}'="" FDA(391,"+1,",3)={"SHOW_CONTACT_SCREEN"} set:{SHOW_EMPLOYMENT_SCREEN}'="" FDA(391,"+1,",4)={"SHOW_EMPLOYMENT_SCREEN"} set:{SHOW_INSURANCE_SCREEN}'="" FDA(391,"+1,",5)={"SHOW_INSURANCE_SCREEN"} set:{SHOW_SERVICE_SCREEN}'="" FDA(391,"+1,",6)={"SHOW_SERVICE_SCREEN"} set:{SHOW_MONETARY_SCREEN}'="" FDA(391,"+1,",7)={"SHOW_MONETARY_SCREEN"} set:{SHOW_FAMILY_INFO_SCREEN}'="" FDA(391,"+1,",8)={"SHOW_FAMILY_INFO_SCREEN"} set:{SHOW_INCOME_SCREENING_SCREEN}'="" FDA(391,"+1,",9)={"SHOW_INCOME_SCREENING_SCREEN"} set:{SHOW_INELIGIBLE_SCREEN}'="" FDA(391,"+1,",10)={"SHOW_INELIGIBLE_SCREEN"} set:{SHOW_VERIFICATION_SCREEN}'="" FDA(391,"+1,",11)={"SHOW_VERIFICATION_SCREEN"} set:{EDIT_APPLICANT_EMPLOYER}'="" FDA(391,"+1,",41)={"EDIT_APPLICANT_EMPLOYER"} set:{EDIT_SPOUSES_EMPLOYER}'="" FDA(391,"+1,",42)={"EDIT_SPOUSES_EMPLOYER"} set:{EDIT_SERVICE_HISTORY}'="" FDA(391,"+1,",61)={"EDIT_SERVICE_HISTORY"} set:{EDIT_PRISONER_OF_WAR_DATA}'="" FDA(391,"+1,",62)={"EDIT_PRISONER_OF_WAR_DATA"} set:{EDIT_COMBAT_DATA}'="" FDA(391,"+1,",63)={"EDIT_COMBAT_DATA"} set:{EDIT_VIETNAM_SERVICE_DATA}'="" FDA(391,"+1,",64)={"EDIT_VIETNAM_SERVICE_DATA"} set:{EDIT_AGENT_ORANGE_DATA}'="" FDA(391,"+1,",65)={"EDIT_AGENT_ORANGE_DATA"} set:{EDIT_RADIATION_EXPOSURE_DATA}'="" FDA(391,"+1,",66)={"EDIT_RADIATION_EXPOSURE_DATA"} set:{EDIT_MILITARY_DISABILITY_DATA}'="" FDA(391,"+1,",67)={"EDIT_MILITARY_DISABILITY_DATA"} set:{EDIT_DENTAL_HISTORY_DATA}'="" FDA(391,"+1,",68)={"EDIT_DENTAL_HISTORY_DATA"} set:{EDIT_VA_MONETARY_BENEFITS}'="" FDA(391,"+1,",71)={"EDIT_VA_MONETARY_BENEFITS"} set:{EDIT_OTHER_MONETARY_BENEFITS}'="" FDA(391,"+1,",72)={"EDIT_OTHER_MONETARY_BENEFITS"} set:{EDIT_SC_CONDITIONS_PER_PT}'="" FDA(391,"+1,",74)={"EDIT_SC_CONDITIONS_PER_PT"} set:{EDIT_SC_CONDITIONS_PER_PT0}'="" FDA(391,"+1,",83)={"EDIT_SC_CONDITIONS_PER_PT0"} set:{EDIT_INELIGIBLE_DATA}'="" FDA(391,"+1,",91)={"EDIT_INELIGIBLE_DATA"} set:{EDIT_MISSING_DATA}'="" FDA(391,"+1,",92)={"EDIT_MISSING_DATA"} set:{EDIT_INELIGIBLE_DATA0}'="" FDA(391,"+1,",101)={"EDIT_INELIGIBLE_DATA0"} set:{EDIT_MISSING_DATA0}'="" FDA(391,"+1,",102)={"EDIT_MISSING_DATA0"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(391)") set %SkipFiling=1 if $d(%FMERR(391,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(391)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(391,IENS,.01)={NAME} set:{IGNORE_VETERAN_CHECKS*C} FDA(391,IENS,.02)={IGNORE_VETERAN_CHECKS} set:{INFO_TO_ASK*C} FDA(391,IENS,.03)={INFO_TO_ASK} set:{MAKE_RECORD_SENSITIVE*C} FDA(391,IENS,.04)={MAKE_RECORD_SENSITIVE} set:{VETERAN*C} FDA(391,IENS,.05)={VETERAN} set:{SHOW_CONTACT_SCREEN*C} FDA(391,IENS,3)={SHOW_CONTACT_SCREEN} set:{SHOW_EMPLOYMENT_SCREEN*C} FDA(391,IENS,4)={SHOW_EMPLOYMENT_SCREEN} set:{SHOW_INSURANCE_SCREEN*C} FDA(391,IENS,5)={SHOW_INSURANCE_SCREEN} set:{SHOW_SERVICE_SCREEN*C} FDA(391,IENS,6)={SHOW_SERVICE_SCREEN} set:{SHOW_MONETARY_SCREEN*C} FDA(391,IENS,7)={SHOW_MONETARY_SCREEN} set:{SHOW_FAMILY_INFO_SCREEN*C} FDA(391,IENS,8)={SHOW_FAMILY_INFO_SCREEN} set:{SHOW_INCOME_SCREENING_SCREEN*C} FDA(391,IENS,9)={SHOW_INCOME_SCREENING_SCREEN} set:{SHOW_INELIGIBLE_SCREEN*C} FDA(391,IENS,10)={SHOW_INELIGIBLE_SCREEN} set:{SHOW_VERIFICATION_SCREEN*C} FDA(391,IENS,11)={SHOW_VERIFICATION_SCREEN} set:{EDIT_APPLICANT_EMPLOYER*C} FDA(391,IENS,41)={EDIT_APPLICANT_EMPLOYER} set:{EDIT_SPOUSES_EMPLOYER*C} FDA(391,IENS,42)={EDIT_SPOUSES_EMPLOYER} set:{EDIT_SERVICE_HISTORY*C} FDA(391,IENS,61)={EDIT_SERVICE_HISTORY} set:{EDIT_PRISONER_OF_WAR_DATA*C} FDA(391,IENS,62)={EDIT_PRISONER_OF_WAR_DATA} set:{EDIT_COMBAT_DATA*C} FDA(391,IENS,63)={EDIT_COMBAT_DATA} set:{EDIT_VIETNAM_SERVICE_DATA*C} FDA(391,IENS,64)={EDIT_VIETNAM_SERVICE_DATA} set:{EDIT_AGENT_ORANGE_DATA*C} FDA(391,IENS,65)={EDIT_AGENT_ORANGE_DATA} set:{EDIT_RADIATION_EXPOSURE_DATA*C} FDA(391,IENS,66)={EDIT_RADIATION_EXPOSURE_DATA} set:{EDIT_MILITARY_DISABILITY_DATA*C} FDA(391,IENS,67)={EDIT_MILITARY_DISABILITY_DATA} set:{EDIT_DENTAL_HISTORY_DATA*C} FDA(391,IENS,68)={EDIT_DENTAL_HISTORY_DATA} set:{EDIT_VA_MONETARY_BENEFITS*C} FDA(391,IENS,71)={EDIT_VA_MONETARY_BENEFITS} set:{EDIT_OTHER_MONETARY_BENEFITS*C} FDA(391,IENS,72)={EDIT_OTHER_MONETARY_BENEFITS} set:{EDIT_SC_CONDITIONS_PER_PT*C} FDA(391,IENS,74)={EDIT_SC_CONDITIONS_PER_PT} set:{EDIT_SC_CONDITIONS_PER_PT0*C} FDA(391,IENS,83)={EDIT_SC_CONDITIONS_PER_PT0} set:{EDIT_INELIGIBLE_DATA*C} FDA(391,IENS,91)={EDIT_INELIGIBLE_DATA} set:{EDIT_MISSING_DATA*C} FDA(391,IENS,92)={EDIT_MISSING_DATA} set:{EDIT_INELIGIBLE_DATA0*C} FDA(391,IENS,101)={EDIT_INELIGIBLE_DATA0} set:{EDIT_MISSING_DATA0*C} FDA(391,IENS,102)={EDIT_MISSING_DATA0} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(391)") set %SkipFiling=1 if $d(%FMERR(391,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(391)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.TYPEOFPATIENBEDS index ^DG nonnull 391 "B" {NAME} {IEN} 0]]> data ^DG 391 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" "E" 65 "^" "E" 41 "^" "E" 63 "^" "E" 68 "^" "E" 91 "^" "E10" 1 "^" "E" 67 "^" "E" 92 "^" "E10" 2 "^" "E" 72 "^" "E" 62 "^" "E" 66 "^" "E" 74 "^" "E" 83 "^" "E" 61 "^" "E" 42 "^" "E" 71 "^" "E" 64 "^" 0 2 "^" 0 3 "^" 0 4 "^" 0 1 "^" "S" 3 "^" "S" 4 "^" "S" 8 "^" "S" 9 "^" "S" 10 "^" "S" 5 "^" "S" 7 "^" "S" 6 "^" "S" 11 "^" 0 5 Generated class for FileMan File Number: '420.5' File Name: 'UNIT OF ISSUE' Class generated by %fm2class version 2.56 This file contains a set of codes designating standard packaging units used in both procurement and distribution of goods. persistent _PUBLIC 0 RowId UNIT_OF_ISSUE_420_5 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44769.447844963 67178,44736.72866855 right UNIT OF ISSUE 420.5 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'DLA UNIT OF ISSUE CODE' FileMan Field Number: '2' This is the Defense Logistics Agency (DLA) Unit of issue code, associated with the IFCAP unit (for code sheets). %Library.String 5 DLA_UNIT_OF_ISSUE_CODE FileMan Field Label: 'FULL NAME' FileMan Field Number: '1' This is the full name of the unit of issue. %Library.String 4 FULL_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRCD(420.5,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the unit of the item. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRCD(420.5," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(420.5,"+1,",.01)={"NAME"} set:{FULL_NAME}'="" FDA(420.5,"+1,",1)={"FULL_NAME"} set:{DLA_UNIT_OF_ISSUE_CODE}'="" FDA(420.5,"+1,",2)={"DLA_UNIT_OF_ISSUE_CODE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(420.5)") set %SkipFiling=1 if $d(%FMERR(420.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(420.5,IENS,.01)={NAME} set:{FULL_NAME*C} FDA(420.5,IENS,1)={FULL_NAME} set:{DLA_UNIT_OF_ISSUE_CODE*C} FDA(420.5,IENS,2)={DLA_UNIT_OF_ISSUE_CODE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(420.5)") set %SkipFiling=1 if $d(%FMERR(420.5,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(420.5)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.UNITOFISSUEF449S index ^PRCD nonnull 420.5 "B" {NAME} {IEN} 0]]> index ^PRCD nonnull 420.5 "C" {FULL_NAME} {IEN} 0]]> data ^PRCD 420.5 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 3 "^" 0 2 "^" 0 1 Generated class for FileMan File Number: '62.05' File Name: 'URGENCY' Class generated by %fm2class version 2.56 An urgency status is defined as the priority given to each laboratory test, or how quickly that test must be performed by laboratory personnel, based on site-specific criteria. This file contains eight pre-supplied urgencies: STAT,ASAP,PRE-OP,CALL RESULT,ADMIT,OUTPATIENT,PURPLE TRIANGLE (or service-connected disability) and ROUTINE, each assigned a numerical priority, with '1' for 'STAT' being highest priority, and '9' for 'ROUTINE' being the lowest priority. persistent _PUBLIC 0 RowId URGENCY_62_05 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.035896555 67178,44736.787340729 right URGENCY 62.05 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '6' Abbreviation used when printing this urgency on labels. %Library.String 9 ABBREVIATION FileMan Field Label: 'CAN LAB COLLECT?' FileMan Field Number: '1' If the Lab may collect a sample with this urgency, this field must contain a YES entry. %Library.EnumString 5 CAN_LAB_COLLECT FileMan Field Label: 'HL7 CODE' FileMan Field Number: '3' This is the corresponding Health Level Seven (HL7) Table of Priority entry that most closely matches the VistA Lab urgency. This field will be used in HL7 messages to describe the laboratory test urgency. %Library.EnumString 7 HL7_CODE Internal Entry Number %Library.String $$next^%apiSQL("$p(^LAB(62.05,0),""^"",3)") 1 2 IEN FileMan Field Label: 'LABEL PRINT' FileMan Field Number: '5' Determines if urgency's abbreviation is to be printed on labels. If "YES, REVERSE FIELD" is selected and label printer supports reverse field printing, then abbreviation will be printed with white letters on a black background. %Library.EnumString 8 LABEL_PRINT FileMan Field Label: 'NUMBER' FileMan Field Number: '.001' The internal number associated with the URGENCY NAME. %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'URGENCY' FileMan Field Number: '.01' The name of the urgency status. %Library.String 1 4 URGENCY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 10 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'WORKLOAD ONLY' FileMan Field Number: '2' This field should only be set to yes for workload (WKL) urgency. This urgency is used only with workload module. Only internal file number 50 and greater should have this field set to yes. Internal file number of 49 and below should be set to no if they exist. %Library.EnumString 6 WORKLOAD_ONLY BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^LAB(62.05," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{URGENCY}'="" FDA(62.05,"+1,",.01)={"URGENCY"} set:{CAN_LAB_COLLECT}'="" FDA(62.05,"+1,",1)={"CAN_LAB_COLLECT"} set:{WORKLOAD_ONLY}'="" FDA(62.05,"+1,",2)={"WORKLOAD_ONLY"} set:{HL7_CODE}'="" FDA(62.05,"+1,",3)={"HL7_CODE"} set:{LABEL_PRINT}'="" FDA(62.05,"+1,",5)={"LABEL_PRINT"} set:{ABBREVIATION}'="" FDA(62.05,"+1,",6)={"ABBREVIATION"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(62.05)") set %SkipFiling=1 if $d(%FMERR(62.05,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62.05)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{URGENCY*C} FDA(62.05,IENS,.01)={URGENCY} set:{CAN_LAB_COLLECT*C} FDA(62.05,IENS,1)={CAN_LAB_COLLECT} set:{WORKLOAD_ONLY*C} FDA(62.05,IENS,2)={WORKLOAD_ONLY} set:{HL7_CODE*C} FDA(62.05,IENS,3)={HL7_CODE} set:{LABEL_PRINT*C} FDA(62.05,IENS,5)={LABEL_PRINT} set:{ABBREVIATION*C} FDA(62.05,IENS,6)={ABBREVIATION} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(62.05)") set %SkipFiling=1 if $d(%FMERR(62.05,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(62.05)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthet7939.URGENCY6205S index ^LAB nonnull 62.05 "B" {URGENCY} {IEN} 0]]> data ^LAB 62.05 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 7 "^" 0 2 "^" 0 4 "^" 0 6 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '201' File Name: 'USER CLASS' Class generated by %fm2class version 2.56 USER CLASS is to be used for identifying the kinds of all other entries in the NEW PERSON file #200 that are not providers identified with PERSON CLASS. persistent _PUBLIC 0 RowId USER_CLASS_201 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.060121557 67178,44736.83635838 right USER CLASS 201 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'DESCRIPTION' FileMan Field Number: '1' %Library.String 4 DESCRIPTION Internal Entry Number %Library.String $$next^%apiSQL("$p(^VA(201,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This field is User Class that is to be used for identifying users. %Library.String 1 3 NAME SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 6 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VUID' FileMan Field Number: '99.99' %Library.String 5 VUID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^VA(201," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(201,"+1,",.01)={"NAME"} set:{DESCRIPTION}'="" FDA(201,"+1,",1)={"DESCRIPTION"} set:{VUID}'="" FDA(201,"+1,",99.99)={"VUID"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(201)") set %SkipFiling=1 if $d(%FMERR(201,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(201)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(201,IENS,.01)={NAME} set:{DESCRIPTION*C} FDA(201,IENS,1)={DESCRIPTION} set:{VUID*C} FDA(201,IENS,99.99)={VUID} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(201)") set %SkipFiling=1 if $d(%FMERR(201,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(201)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.USERCLASS201S index ^VA nonnull 201 "B" {NAME} {IEN} 0]]> data ^VA 201 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 "^" 0 3 Generated class for FileMan File Number: '8930' File Name: 'USR CLASS' Class generated by %fm2class version 2.56 This file is intended to allow the definition of user classes in such a way that they are useful across packages. It will undoubtedly evolve with more experience in this area. These user classes are then used to support part of the the "authorization" concept - who may do what to a document, order, etc. They are also used to support part of the "subscription" concept - who should receive something, e.g. a notification that a document needs signature. The User Authorization/Subscription file points to the User Class file to allocate authorizations/subscriptions to appropriate user classes. The User Class Membership file links users in the New Person file to User Classes. This file supports an infinite hierarchy of subclasses, with each entry having as many subclasses as desired. Subclasses are contained in the same file, as entries in their own right. A class automatically contains as members all members of its subclasses, as well as explicit members of the class itself. persistent _PUBLIC 0 RowId USR_CLASS_8930 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.068293765 67178,44736.88697306 right USR CLASS 8930 2.56 12/04/2024 12:25:36 1 1 IEN 1 FileMan Field Label: 'ABBREVIATION' FileMan Field Number: '.02' %Library.String 4 ABBREVIATION FileMan Field Label: 'ACTIVE' FileMan Field Number: '.03' %Library.EnumString 5 ACTIVE FileMan Field Label: 'DISPLAY NAME' FileMan Field Number: '.04' %Library.String 6 DISPLAY_NAME Internal Entry Number %Library.String $$next^%apiSQL("$p(^USR(8930,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the user class (e.g., Transcriptionist, Medical Record Technician, MIS Manager, Medical Student, Nurse, Resident, etc.). %Library.String 1 3 NAME FileMan Field Label: 'OK TO DISTRIBUTE' FileMan Field Number: '2' Answer "YES" if this individual User Class is to be distributed nationally. Answer "NO" if not. %Library.EnumString 7 OK_TO_DISTRIBUTE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 8 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^USR(8930," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(8930,"+1,",.01)={"NAME"} set:{ABBREVIATION}'="" FDA(8930,"+1,",.02)={"ABBREVIATION"} set:{ACTIVE}'="" FDA(8930,"+1,",.03)={"ACTIVE"} set:{DISPLAY_NAME}'="" FDA(8930,"+1,",.04)={"DISPLAY_NAME"} set:{OK_TO_DISTRIBUTE}'="" FDA(8930,"+1,",2)={"OK_TO_DISTRIBUTE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(8930)") set %SkipFiling=1 if $d(%FMERR(8930,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8930)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(8930,IENS,.01)={NAME} set:{ABBREVIATION*C} FDA(8930,IENS,.02)={ABBREVIATION} set:{ACTIVE*C} FDA(8930,IENS,.03)={ACTIVE} set:{DISPLAY_NAME*C} FDA(8930,IENS,.04)={DISPLAY_NAME} set:{OK_TO_DISTRIBUTE*C} FDA(8930,IENS,2)={OK_TO_DISTRIBUTE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(8930)") set %SkipFiling=1 if $d(%FMERR(8930,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(8930)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.USRCLASS8930S index {NAME}'="" 1 ^USR conditional 8930 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> index ^USR nonnull 8930 "C" {ABBREVIATION} {IEN} 0]]> index ^USR nonnull 8930 "D" {ACTIVE} {IEN} 0]]> index {DISPLAY_NAME}'="" 1 ^USR conditional 8930 "DNAME" $$TRUNCATE({DISPLAY_NAME},30)) {IEN} 0]]> data ^USR 8930 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 3 "^" 0 4 "^" 0 1 "^" 2 1 Generated class for FileMan File Number: '440' File Name: 'VENDOR' Class generated by %fm2class version 2.56 This file contains the listing of Vendors used by the facility. The data includes the name, address, contact person, contract number and FPDS data used when entering a request and purchase order. persistent _PUBLIC 0 RowId VENDOR_440 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.129654346 67178,44736.934686879 right VENDOR 440 2.56 12/04/2024 12:25:36 1 1 IEN 1 STATE_5]]> BILLINGSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_BILLING_STATE NEW_PERSON_200]]> CREATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CREATED_BY SOURCE_CODE_420_8]]> FEDERALSOURCE VALIP.prosthetic.fm2cw.SOURCECODE4208 FKey_FEDERAL_SOURCE NEW_PERSON_200]]> INACTIVATEDBY VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_INACTIVATED_BY STATE_5]]> ORDERINGSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_ORDERING_STATE STATE_5]]> PAYMENTSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_PAYMENT_STATE VENDOR_440]]> REPLACEMENTVENDOR VALIP.prosthetic.fm2cw.VENDOR440 FKey_REPLACEMENT_VENDOR STATE_5]]> SERVICERETURNSTATE VALIP.prosthetic.fm2cw.STATE5 FKey_SERVICERETURN_STATE FileMan Field Label: 'ACCOUNT NO.' FileMan Field Number: '5.1' This is the vendor account number. %Library.String 19 ACCOUNT_NO_ FileMan Field Label: 'ALT-ADDR-IND' FileMan Field Number: '35' This field allows one VENDOR to have many payment addresses. %Library.String 67 ALTADDRIND FileMan Field Label: 'AUSTIN DELETED?' FileMan Field Number: '12.4' This indicates whether or not the vendor has been deleted from the Austin DPC vendor file. %Library.EnumString 25 AUSTIN_DELETED FileMan Field Label: 'BILLING ADDRESS1' FileMan Field Number: '22.1' This is the billing address 1. %Library.String 53 BILLING_ADDRESS1 FileMan Field Label: 'BILLING ADDRESS2' FileMan Field Number: '22.2' This is the billing address 2. %Library.String 54 BILLING_ADDRESS2 FileMan Field Label: 'BILLING ADDRESS3' FileMan Field Number: '22.3' This is the billing address 3. %Library.String 55 BILLING_ADDRESS3 FileMan Field Label: 'BILLING CITY' FileMan Field Number: '22.4' This is the city of the billing address. %Library.String 56 BILLING_CITY FileMan Field Label: 'BILLING PHONE NUMBER' FileMan Field Number: '22.7' This is the phone number of the billing address. %Library.String 59 BILLING_PHONE_NUMBER FileMan Field Label: 'BILLING STATE' FileMan Field Number: '22.5' This is the state of the billing address. VALIP.prosthetic.fm2cw.STATE5 57 BILLING_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {BILLING_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 BILLING_STATE_NAME 1 FileMan Field Label: 'BILLING ZIP CODE' FileMan Field Number: '22.6' This is the zip code of the billing address. %Library.String 58 BILLING_ZIP_CODE FileMan Field Label: 'BUSINESS TYPE (FPDS)' FileMan Field Number: '8.3' This is the type of business for FY89 FPDS reporting purposes. %Library.EnumString 23 BUSINESS_TYPE_FPDS FileMan Field Label: 'BUSINESS TYPE (FPDS-88)' FileMan Field Number: '8.2' This is the type of business for FY88 FPDS reporting purposes. %Library.EnumString 22 BUSINESS_TYPE_FPDS88 FileMan Field Label: 'CALM ID NUMBER' FileMan Field Number: '18' This is the CALM identification number. %Library.String 48 CALM_ID_NUMBER FileMan Field Label: 'CALM STUB NAME' FileMan Field Number: '18.2' This is the CALM stub name. %Library.String 49 CALM_STUB_NAME FileMan Field Label: 'CENTRAL REMIT' FileMan Field Number: '43' Should all payments for this vendor be sent to one place? %Library.EnumString 74 CENTRAL_REMIT FileMan Field Label: 'COUNTY' FileMan Field Number: '4.7' This is the appropriate county for the given state of the vendor ordering address. %Library.String 16 COUNTY FileMan Field Label: 'CREATED BY' FileMan Field Number: '31' This is the person who created the vendor. VALIP.prosthetic.fm2cw.NEWPERSON200 61 CREATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {CREATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREATED_BY_NAME 1 FileMan Field Label: 'DATE INACTIVATED' FileMan Field Number: '32' This is the date the vendor was made inactive. %Library.FilemanDate 63 DATE_INACTIVATED FileMan Field Label: 'DATE OF SF129' FileMan Field Number: '14' This is the date of the Standard Form 129. %Library.FilemanDate 28 DATE_OF_SF129 FileMan Field Label: 'DATE VENDOR CREATED' FileMan Field Number: '30' This is the date the vendor was created, or the date the vendor name changed. %Library.FilemanDate 60 DATE_VENDOR_CREATED %Library.String 50 DUN__BRADSTREET_ FileMan Field Label: 'EDI VENDOR?' FileMan Field Number: '.2' This field identifies those vendors who are prepared to receive purchase orders electronically through the EDI system in AUSTIN. Don't enter anything in this field unless directed to do so from the EDI group in Austin, Texas. %Library.EnumString 7 EDI_VENDOR FileMan Field Label: '1099 VENDOR INDICATOR' FileMan Field Number: '41' Is a 1099 form filled out for this vendor? %Library.EnumString 72 f1099_VENDOR_INDICATOR FileMan Field Label: 'FAX #' FileMan Field Number: '46' This is the vendor's FAX phone number. %Library.String 77 FAX_ FileMan Field Label: 'FEDERAL SOURCE' FileMan Field Number: '.06' This is the federal source. VALIP.prosthetic.fm2cw.SOURCECODE4208 6 FEDERAL_SOURCE CODE This is the code identifying the procurement source for goods. The code is used to update centralized reporting for procurement and define either specific government sources (i.e., Depot, GSA), or methods of procuring goods from external sources (i.e., goods procured via government contract).]]> %Library.String 1 CODE into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {FEDERAL_SOURCE_CODE}=$select(SQLCODE=0:val,1:"")]]> 1 FEDERAL_SOURCE_CODE 1 FileMan Field Label: 'FEE VENDOR' FileMan Field Number: '12.5' This indicates whether or not this vendor is a fee basis vendor. %Library.EnumString 26 FEE_VENDOR FileMan Field Label: 'FMS VENDOR CODE' FileMan Field Number: '34' This is the code that FMS uses to identify a vendor. It comes from the SSN/TAX ID NUMBER field in this file. %Library.String 65 FMS_VENDOR_CODE FileMan Field Label: 'FMS VENDOR NAME' FileMan Field Number: '34.5' This is the FMS Vendor Name which is entered in the FMS system. %Library.String 66 FMS_VENDOR_NAME FileMan Field Label: 'GUARANTEED DELIVERY VENDOR?' FileMan Field Number: '5.2' Enter YES if there is a guaranteed delivery agreement for this vendor. %Library.EnumString 20 GUARANTEED_DELIVERY_VENDOR Internal Entry Number %Library.String $$next^%apiSQL("$p(^PRC(440,0),""^"",3)") 1 2 IEN FileMan Field Label: 'IFAMS VENDOR ID' FileMan Field Number: '19' This is the vendor identifier assigned by the iFAMS system. %Library.String 51 IFAMS_VENDOR_ID FileMan Field Label: 'INACTIVATED BY' FileMan Field Number: '33' This is the person who made the vendor inactive. VALIP.prosthetic.fm2cw.NEWPERSON200 64 INACTIVATED_BY NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {INACTIVATED_BY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 INACTIVATED_BY_NAME 1 FileMan Field Label: 'INACTIVATED VENDOR' FileMan Field Number: '31.5' This field is set automatically by the option used to inactivate a vendor. %Library.EnumString 62 INACTIVATED_VENDOR FileMan Field Label: 'IS A SF129 ON FILE?' FileMan Field Number: '13' This indicates whether or not a Standard Form 129 is on file. %Library.EnumString 27 IS_A_SF129_ON_FILE FileMan Field Label: 'LABOR SURPLUS AREA?' FileMan Field Number: '8' This indicates whether or not the vendor is located in a labor surplus. %Library.EnumString 21 LABOR_SURPLUS_AREA FileMan Field Label: 'MTI ACTION' FileMan Field Number: '45' This is a set of conditions telling IFCAP what to do with the FMS VENDOR UPDATE. This field is never changed by IFCAP users. %Library.EnumString 76 MTI_ACTION FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the vendor name. %Library.String 1 4 NAME FileMan Field Label: 'NON-RECURRING/RECURRING VENDOR' FileMan Field Number: '36' This field having a 'N' will represent that this vendor will be used only one time. %Library.EnumString 68 NONRECURRINGRECURRING_VENDOR %Library.String 1 3 Set {*}={IEN} 1 NUMBER FileMan Field Label: 'ORDERING ADDRESS1' FileMan Field Number: '1' This is the vendor ordering address line 1. %Library.String 9 ORDERING_ADDRESS1 FileMan Field Label: 'ORDERING ADDRESS2' FileMan Field Number: '2' This is the vendor ordering address line 2. %Library.String 10 ORDERING_ADDRESS2 FileMan Field Label: 'ORDERING ADDRESS3' FileMan Field Number: '3' This is the vendor ordering address line 3. %Library.String 11 ORDERING_ADDRESS3 FileMan Field Label: 'ORDERING ADDRESS4' FileMan Field Number: '4' This is the vendor ordering address line 4. %Library.String 12 ORDERING_ADDRESS4 FileMan Field Label: 'ORDERING CITY' FileMan Field Number: '4.2' This is the city of the vendor ordering address. %Library.String 13 ORDERING_CITY FileMan Field Label: 'ORDERING STATE' FileMan Field Number: '4.4' This is the state for the vendor ordering address. VALIP.prosthetic.fm2cw.STATE5 14 ORDERING_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {ORDERING_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ORDERING_STATE_NAME 1 FileMan Field Label: 'ORDERING ZIP CODE' FileMan Field Number: '4.6' This is the zip code of the ordering address. %Library.String 15 ORDERING_ZIP_CODE FileMan Field Label: 'PAYMENT ADDRESS1' FileMan Field Number: '17.3' This is the mailing address, where payment of bill will be sent to. %Library.String 41 PAYMENT_ADDRESS1 FileMan Field Label: 'PAYMENT ADDRESS2' FileMan Field Number: '17.4' This is the mailing address, where payment of bill will be sent to. %Library.String 42 PAYMENT_ADDRESS2 FileMan Field Label: 'PAYMENT ADDRESS3' FileMan Field Number: '17.5' This is the mailing address, where payment of bill will be sent to. %Library.String 43 PAYMENT_ADDRESS3 FileMan Field Label: 'PAYMENT ADDRESS4' FileMan Field Number: '17.6' This is the mailing address, where payment of bill will be sent to. %Library.String 44 PAYMENT_ADDRESS4 FileMan Field Label: 'PAYMENT CITY' FileMan Field Number: '17.7' This is the city of payment address. %Library.String 45 PAYMENT_CITY FileMan Field Label: 'PAYMENT CONTACT PERSON' FileMan Field Number: '17' This is the payment contact person. %Library.String 39 PAYMENT_CONTACT_PERSON FileMan Field Label: 'PAYMENT HOLD INDICATOR' FileMan Field Number: '40' Is payment for this vendor placed on hold? Do we pay this vendor or don't we. %Library.EnumString 71 PAYMENT_HOLD_INDICATOR FileMan Field Label: 'PAYMENT PHONE NO.' FileMan Field Number: '17.2' This is the phone number for the payment contact person. %Library.String 40 PAYMENT_PHONE_NO_ FileMan Field Label: 'PAYMENT STATE' FileMan Field Number: '17.8' This is the state of the payment address. VALIP.prosthetic.fm2cw.STATE5 46 PAYMENT_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {PAYMENT_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PAYMENT_STATE_NAME 1 FileMan Field Label: 'PAYMENT ZIP CODE' FileMan Field Number: '17.9' This is the zip code for the payment address. %Library.String 47 PAYMENT_ZIP_CODE FileMan Field Label: 'PENDING FLAG' FileMan Field Number: '42' Internal IFCAP flag used to state what is being done with this vendor and FMS. When a vendor request is sent to FMS other requests should wait until there is a FMS VENDOR UPDATE. Actually no other requests can be created until the update comes back. %Library.EnumString 73 PENDING_FLAG FileMan Field Label: 'PROCUREMENT CONTACT PERSON' FileMan Field Number: '4.8' This is the name of the procurement contact person. %Library.String 17 PROCUREMENT_CONTACT_PERSON FileMan Field Label: 'REMARKS' FileMan Field Number: '21' These are remarks about the vendor. %Library.String 52 REMARKS FileMan Field Label: 'REPLACEMENT VENDOR' FileMan Field Number: '15' This is the replacement vendor. VALIP.prosthetic.fm2cw.VENDOR440 29 REPLACEMENT_VENDOR NAME This is the vendor name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {REPLACEMENT_VENDOR_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 REPLACEMENT_VENDOR_NAME 1 FileMan Field Label: 'SERVICE/RETURN ADDRESS1' FileMan Field Number: '16' This is the service/return address 1. %Library.String 30 SERVICERETURN_ADDRESS1 FileMan Field Label: 'SERVICE/RETURN ADDRESS2' FileMan Field Number: '16.1' This is the service/return address 2. %Library.String 31 SERVICERETURN_ADDRESS2 FileMan Field Label: 'SERVICE/RETURN ADDRESS3' FileMan Field Number: '16.2' This is the service/return address 3. %Library.String 32 SERVICERETURN_ADDRESS3 FileMan Field Label: 'SERVICE/RETURN ADDRESS4' FileMan Field Number: '16.3' This is the service/return address 4 %Library.String 33 SERVICERETURN_ADDRESS4 FileMan Field Label: 'SERVICE/RETURN CITY' FileMan Field Number: '16.4' This is the city of the service/return address. %Library.String 34 SERVICERETURN_CITY FileMan Field Label: 'SERVICE/RETURN STATE' FileMan Field Number: '16.5' This is the state of the service/return address. VALIP.prosthetic.fm2cw.STATE5 35 SERVICERETURN_STATE NAME This field contains the name of the state (or outlying area) as issued by the Department of Veterans Affairs and issued in M-1, Part I Appendix B. These entries should remain as distributed and should not be edited or updated unless done via a software upgrade or under direction of VA Central Office.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VENDOR_440 where %ID=:id) set {SERVICERETURN_STATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 SERVICERETURN_STATE_NAME 1 FileMan Field Label: 'SERVICE/RETURN ZIP CODE' FileMan Field Number: '16.6' This is the zip code of the service/return address. %Library.String 36 SERVICERETURN_ZIP_CODE FileMan Field Label: 'SERVICE CONTACT PERSON' FileMan Field Number: '16.7' This is the service contact person. %Library.String 37 SERVICE_CONTACT_PERSON FileMan Field Label: 'SERVICE PHONE NO.' FileMan Field Number: '16.8' This is the phone number for the service/return contact person. %Library.String 38 SERVICE_PHONE_NO_ FileMan Field Label: 'SPECIAL FACTORS' FileMan Field Number: '11' These are the special factors to be considered when ordering from this vendor. %Library.String 24 SPECIAL_FACTORS FileMan Field Label: 'SSN/TAX ID INDICATOR' FileMan Field Number: '39' This field identifies what the TAX ID/SSN field is. %Library.EnumString 70 SSNTAX_ID_INDICATOR Relationship for Sub-File/Multiple to file name CONTRACT/BOA NUMBER child VALIP.prosthetic.fm2cw.SUBCONTRACTBOANUMBER44003 children VENDOR440 1 SUB_CONTRACTBOA_NUMBER_440_03 Relationship for Sub-File/Multiple to file name SOCIOECONOMIC GROUP (FPDS) child VALIP.prosthetic.fm2cw.SUBSOCIOECONOMICGROUPFPDS44005 children VENDOR440 1 SUB_SOCIOECONOMIC_GROUP_FPDS_440_05 Relationship for Sub-File/Multiple to file name SYNONYM child VALIP.prosthetic.fm2cw.SUBSYNONYM44002 children VENDOR440 1 SUB_SYNONYM_440_02 Relationship for Sub-File/Multiple to file name TYPE OF OWNERSHIP (FY88) child VALIP.prosthetic.fm2cw.SUBTYPEOFOWNERSHIPFY8844001 children VENDOR440 1 SUB_TYPE_OF_OWNERSHIP_FY88_440_01 FileMan Field Label: 'SUPPLY WHSE. INDICATOR' FileMan Field Number: '.05' This is the set of codes for supply warehouse indicator. Only one source can be designated as the supply warehouse. %Library.EnumString 5 SUPPLY_WHSE__INDICATOR FileMan Field Label: 'TAX ID/SSN' FileMan Field Number: '38' This field will send FMS information that will be used as the FMS VENDOR CODE. FMS might use a different FMS VENDOR CODE but that is normally not done. %Library.String 69 TAX_IDSSN FileMan Field Label: 'UEI' FileMan Field Number: '55' This field holds the Unique Entity Identifier (UEI) which is the alphanumeric value used as the primary key for vendors in GSA's System of Award Management (SAM). Value does not contain letters 'O' or 'I'. %Library.String 78 UEI SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 79 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VENDOR ID NUMBER' FileMan Field Number: '.4' This field uniquely identifies a vendor to the EDI system. Don't enter anything in this field unless directed to do so from the EDI group in Austin, Texas. %Library.String 8 VENDOR_ID_NUMBER FileMan Field Label: 'VENDOR PHONE NUMBER' FileMan Field Number: '5' This is the phone number of the vendor contact person. %Library.String 18 VENDOR_PHONE_NUMBER FileMan Field Label: 'VENDOR TYPE' FileMan Field Number: '44' %Library.EnumString 75 VENDOR_TYPE BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^PRC(440," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(440,"+1,",.01)={"NAME"} set:{SUPPLY_WHSE__INDICATOR}'="" FDA(440,"+1,",.05)={"SUPPLY_WHSE__INDICATOR"} set:{FEDERAL_SOURCE}'="" FDA(440,"+1,",.06)={"FEDERAL_SOURCE"} set:{EDI_VENDOR}'="" FDA(440,"+1,",.2)={"EDI_VENDOR"} set:{VENDOR_ID_NUMBER}'="" FDA(440,"+1,",.4)={"VENDOR_ID_NUMBER"} set:{ORDERING_ADDRESS1}'="" FDA(440,"+1,",1)={"ORDERING_ADDRESS1"} set:{ORDERING_ADDRESS2}'="" FDA(440,"+1,",2)={"ORDERING_ADDRESS2"} set:{ORDERING_ADDRESS3}'="" FDA(440,"+1,",3)={"ORDERING_ADDRESS3"} set:{ORDERING_ADDRESS4}'="" FDA(440,"+1,",4)={"ORDERING_ADDRESS4"} set:{ORDERING_CITY}'="" FDA(440,"+1,",4.2)={"ORDERING_CITY"} set:{ORDERING_STATE}'="" FDA(440,"+1,",4.4)={"ORDERING_STATE"} set:{ORDERING_ZIP_CODE}'="" FDA(440,"+1,",4.6)={"ORDERING_ZIP_CODE"} set:{COUNTY}'="" FDA(440,"+1,",4.7)={"COUNTY"} set:{PROCUREMENT_CONTACT_PERSON}'="" FDA(440,"+1,",4.8)={"PROCUREMENT_CONTACT_PERSON"} set:{VENDOR_PHONE_NUMBER}'="" FDA(440,"+1,",5)={"VENDOR_PHONE_NUMBER"} set:{ACCOUNT_NO_}'="" FDA(440,"+1,",5.1)={"ACCOUNT_NO_"} set:{GUARANTEED_DELIVERY_VENDOR}'="" FDA(440,"+1,",5.2)={"GUARANTEED_DELIVERY_VENDOR"} set:{LABOR_SURPLUS_AREA}'="" FDA(440,"+1,",8)={"LABOR_SURPLUS_AREA"} set:{BUSINESS_TYPE_FPDS88}'="" FDA(440,"+1,",8.2)={"BUSINESS_TYPE_FPDS88"} set:{BUSINESS_TYPE_FPDS}'="" FDA(440,"+1,",8.3)={"BUSINESS_TYPE_FPDS"} set:{SPECIAL_FACTORS}'="" FDA(440,"+1,",11)={"SPECIAL_FACTORS"} set:{AUSTIN_DELETED}'="" FDA(440,"+1,",12.4)={"AUSTIN_DELETED"} set:{FEE_VENDOR}'="" FDA(440,"+1,",12.5)={"FEE_VENDOR"} set:{IS_A_SF129_ON_FILE}'="" FDA(440,"+1,",13)={"IS_A_SF129_ON_FILE"} set:{DATE_OF_SF129}'="" FDA(440,"+1,",14)={"DATE_OF_SF129"} set:{REPLACEMENT_VENDOR}'="" FDA(440,"+1,",15)={"REPLACEMENT_VENDOR"} set:{SERVICERETURN_ADDRESS1}'="" FDA(440,"+1,",16)={"SERVICERETURN_ADDRESS1"} set:{SERVICERETURN_ADDRESS2}'="" FDA(440,"+1,",16.1)={"SERVICERETURN_ADDRESS2"} set:{SERVICERETURN_ADDRESS3}'="" FDA(440,"+1,",16.2)={"SERVICERETURN_ADDRESS3"} set:{SERVICERETURN_ADDRESS4}'="" FDA(440,"+1,",16.3)={"SERVICERETURN_ADDRESS4"} set:{SERVICERETURN_CITY}'="" FDA(440,"+1,",16.4)={"SERVICERETURN_CITY"} set:{SERVICERETURN_STATE}'="" FDA(440,"+1,",16.5)={"SERVICERETURN_STATE"} set:{SERVICERETURN_ZIP_CODE}'="" FDA(440,"+1,",16.6)={"SERVICERETURN_ZIP_CODE"} set:{SERVICE_CONTACT_PERSON}'="" FDA(440,"+1,",16.7)={"SERVICE_CONTACT_PERSON"} set:{SERVICE_PHONE_NO_}'="" FDA(440,"+1,",16.8)={"SERVICE_PHONE_NO_"} set:{PAYMENT_CONTACT_PERSON}'="" FDA(440,"+1,",17)={"PAYMENT_CONTACT_PERSON"} set:{PAYMENT_PHONE_NO_}'="" FDA(440,"+1,",17.2)={"PAYMENT_PHONE_NO_"} set:{PAYMENT_ADDRESS1}'="" FDA(440,"+1,",17.3)={"PAYMENT_ADDRESS1"} set:{PAYMENT_ADDRESS2}'="" FDA(440,"+1,",17.4)={"PAYMENT_ADDRESS2"} set:{PAYMENT_ADDRESS3}'="" FDA(440,"+1,",17.5)={"PAYMENT_ADDRESS3"} set:{PAYMENT_ADDRESS4}'="" FDA(440,"+1,",17.6)={"PAYMENT_ADDRESS4"} set:{PAYMENT_CITY}'="" FDA(440,"+1,",17.7)={"PAYMENT_CITY"} set:{PAYMENT_STATE}'="" FDA(440,"+1,",17.8)={"PAYMENT_STATE"} set:{PAYMENT_ZIP_CODE}'="" FDA(440,"+1,",17.9)={"PAYMENT_ZIP_CODE"} set:{CALM_ID_NUMBER}'="" FDA(440,"+1,",18)={"CALM_ID_NUMBER"} set:{CALM_STUB_NAME}'="" FDA(440,"+1,",18.2)={"CALM_STUB_NAME"} set:{DUN__BRADSTREET_}'="" FDA(440,"+1,",18.3)={"DUN__BRADSTREET_"} set:{IFAMS_VENDOR_ID}'="" FDA(440,"+1,",19)={"IFAMS_VENDOR_ID"} set:{BILLING_ADDRESS1}'="" FDA(440,"+1,",22.1)={"BILLING_ADDRESS1"} set:{BILLING_ADDRESS2}'="" FDA(440,"+1,",22.2)={"BILLING_ADDRESS2"} set:{BILLING_ADDRESS3}'="" FDA(440,"+1,",22.3)={"BILLING_ADDRESS3"} set:{BILLING_CITY}'="" FDA(440,"+1,",22.4)={"BILLING_CITY"} set:{BILLING_STATE}'="" FDA(440,"+1,",22.5)={"BILLING_STATE"} set:{BILLING_ZIP_CODE}'="" FDA(440,"+1,",22.6)={"BILLING_ZIP_CODE"} set:{BILLING_PHONE_NUMBER}'="" FDA(440,"+1,",22.7)={"BILLING_PHONE_NUMBER"} set:{DATE_VENDOR_CREATED}'="" FDA(440,"+1,",30)={"DATE_VENDOR_CREATED"} set:{CREATED_BY}'="" FDA(440,"+1,",31)={"CREATED_BY"} set:{INACTIVATED_VENDOR}'="" FDA(440,"+1,",31.5)={"INACTIVATED_VENDOR"} set:{DATE_INACTIVATED}'="" FDA(440,"+1,",32)={"DATE_INACTIVATED"} set:{INACTIVATED_BY}'="" FDA(440,"+1,",33)={"INACTIVATED_BY"} set:{FMS_VENDOR_CODE}'="" FDA(440,"+1,",34)={"FMS_VENDOR_CODE"} set:{FMS_VENDOR_NAME}'="" FDA(440,"+1,",34.5)={"FMS_VENDOR_NAME"} set:{ALTADDRIND}'="" FDA(440,"+1,",35)={"ALTADDRIND"} set:{NONRECURRINGRECURRING_VENDOR}'="" FDA(440,"+1,",36)={"NONRECURRINGRECURRING_VENDOR"} set:{TAX_IDSSN}'="" FDA(440,"+1,",38)={"TAX_IDSSN"} set:{SSNTAX_ID_INDICATOR}'="" FDA(440,"+1,",39)={"SSNTAX_ID_INDICATOR"} set:{PAYMENT_HOLD_INDICATOR}'="" FDA(440,"+1,",40)={"PAYMENT_HOLD_INDICATOR"} set:{f1099_VENDOR_INDICATOR}'="" FDA(440,"+1,",41)={"f1099_VENDOR_INDICATOR"} set:{PENDING_FLAG}'="" FDA(440,"+1,",42)={"PENDING_FLAG"} set:{CENTRAL_REMIT}'="" FDA(440,"+1,",43)={"CENTRAL_REMIT"} set:{VENDOR_TYPE}'="" FDA(440,"+1,",44)={"VENDOR_TYPE"} set:{MTI_ACTION}'="" FDA(440,"+1,",45)={"MTI_ACTION"} set:{FAX_}'="" FDA(440,"+1,",46)={"FAX_"} set:{UEI}'="" FDA(440,"+1,",55)={"UEI"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(440)") set %SkipFiling=1 if $d(%FMERR(440,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REMARKS}'="" { set D0={RowId} for i=1:1:$l({REMARKS},$c(13,10)) { set wp(i)=$p({REMARKS},$c(13,10),i) } do WP^DIE(440,{RowId},21,,"wp","%FMERR(440)") if $d(%FMERR(440,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(440,IENS,.01)={NAME} set:{SUPPLY_WHSE__INDICATOR*C} FDA(440,IENS,.05)={SUPPLY_WHSE__INDICATOR} set:{FEDERAL_SOURCE*C} FDA(440,IENS,.06)={FEDERAL_SOURCE} set:{EDI_VENDOR*C} FDA(440,IENS,.2)={EDI_VENDOR} set:{VENDOR_ID_NUMBER*C} FDA(440,IENS,.4)={VENDOR_ID_NUMBER} set:{ORDERING_ADDRESS1*C} FDA(440,IENS,1)={ORDERING_ADDRESS1} set:{ORDERING_ADDRESS2*C} FDA(440,IENS,2)={ORDERING_ADDRESS2} set:{ORDERING_ADDRESS3*C} FDA(440,IENS,3)={ORDERING_ADDRESS3} set:{ORDERING_ADDRESS4*C} FDA(440,IENS,4)={ORDERING_ADDRESS4} set:{ORDERING_CITY*C} FDA(440,IENS,4.2)={ORDERING_CITY} set:{ORDERING_STATE*C} FDA(440,IENS,4.4)={ORDERING_STATE} set:{ORDERING_ZIP_CODE*C} FDA(440,IENS,4.6)={ORDERING_ZIP_CODE} set:{COUNTY*C} FDA(440,IENS,4.7)={COUNTY} set:{PROCUREMENT_CONTACT_PERSON*C} FDA(440,IENS,4.8)={PROCUREMENT_CONTACT_PERSON} set:{VENDOR_PHONE_NUMBER*C} FDA(440,IENS,5)={VENDOR_PHONE_NUMBER} set:{ACCOUNT_NO_*C} FDA(440,IENS,5.1)={ACCOUNT_NO_} set:{GUARANTEED_DELIVERY_VENDOR*C} FDA(440,IENS,5.2)={GUARANTEED_DELIVERY_VENDOR} set:{LABOR_SURPLUS_AREA*C} FDA(440,IENS,8)={LABOR_SURPLUS_AREA} set:{BUSINESS_TYPE_FPDS88*C} FDA(440,IENS,8.2)={BUSINESS_TYPE_FPDS88} set:{BUSINESS_TYPE_FPDS*C} FDA(440,IENS,8.3)={BUSINESS_TYPE_FPDS} set:{SPECIAL_FACTORS*C} FDA(440,IENS,11)={SPECIAL_FACTORS} set:{AUSTIN_DELETED*C} FDA(440,IENS,12.4)={AUSTIN_DELETED} set:{FEE_VENDOR*C} FDA(440,IENS,12.5)={FEE_VENDOR} set:{IS_A_SF129_ON_FILE*C} FDA(440,IENS,13)={IS_A_SF129_ON_FILE} set:{DATE_OF_SF129*C} FDA(440,IENS,14)={DATE_OF_SF129} set:{REPLACEMENT_VENDOR*C} FDA(440,IENS,15)={REPLACEMENT_VENDOR} set:{SERVICERETURN_ADDRESS1*C} FDA(440,IENS,16)={SERVICERETURN_ADDRESS1} set:{SERVICERETURN_ADDRESS2*C} FDA(440,IENS,16.1)={SERVICERETURN_ADDRESS2} set:{SERVICERETURN_ADDRESS3*C} FDA(440,IENS,16.2)={SERVICERETURN_ADDRESS3} set:{SERVICERETURN_ADDRESS4*C} FDA(440,IENS,16.3)={SERVICERETURN_ADDRESS4} set:{SERVICERETURN_CITY*C} FDA(440,IENS,16.4)={SERVICERETURN_CITY} set:{SERVICERETURN_STATE*C} FDA(440,IENS,16.5)={SERVICERETURN_STATE} set:{SERVICERETURN_ZIP_CODE*C} FDA(440,IENS,16.6)={SERVICERETURN_ZIP_CODE} set:{SERVICE_CONTACT_PERSON*C} FDA(440,IENS,16.7)={SERVICE_CONTACT_PERSON} set:{SERVICE_PHONE_NO_*C} FDA(440,IENS,16.8)={SERVICE_PHONE_NO_} set:{PAYMENT_CONTACT_PERSON*C} FDA(440,IENS,17)={PAYMENT_CONTACT_PERSON} set:{PAYMENT_PHONE_NO_*C} FDA(440,IENS,17.2)={PAYMENT_PHONE_NO_} set:{PAYMENT_ADDRESS1*C} FDA(440,IENS,17.3)={PAYMENT_ADDRESS1} set:{PAYMENT_ADDRESS2*C} FDA(440,IENS,17.4)={PAYMENT_ADDRESS2} set:{PAYMENT_ADDRESS3*C} FDA(440,IENS,17.5)={PAYMENT_ADDRESS3} set:{PAYMENT_ADDRESS4*C} FDA(440,IENS,17.6)={PAYMENT_ADDRESS4} set:{PAYMENT_CITY*C} FDA(440,IENS,17.7)={PAYMENT_CITY} set:{PAYMENT_STATE*C} FDA(440,IENS,17.8)={PAYMENT_STATE} set:{PAYMENT_ZIP_CODE*C} FDA(440,IENS,17.9)={PAYMENT_ZIP_CODE} set:{CALM_ID_NUMBER*C} FDA(440,IENS,18)={CALM_ID_NUMBER} set:{CALM_STUB_NAME*C} FDA(440,IENS,18.2)={CALM_STUB_NAME} set:{DUN__BRADSTREET_*C} FDA(440,IENS,18.3)={DUN__BRADSTREET_} set:{IFAMS_VENDOR_ID*C} FDA(440,IENS,19)={IFAMS_VENDOR_ID} set:{BILLING_ADDRESS1*C} FDA(440,IENS,22.1)={BILLING_ADDRESS1} set:{BILLING_ADDRESS2*C} FDA(440,IENS,22.2)={BILLING_ADDRESS2} set:{BILLING_ADDRESS3*C} FDA(440,IENS,22.3)={BILLING_ADDRESS3} set:{BILLING_CITY*C} FDA(440,IENS,22.4)={BILLING_CITY} set:{BILLING_STATE*C} FDA(440,IENS,22.5)={BILLING_STATE} set:{BILLING_ZIP_CODE*C} FDA(440,IENS,22.6)={BILLING_ZIP_CODE} set:{BILLING_PHONE_NUMBER*C} FDA(440,IENS,22.7)={BILLING_PHONE_NUMBER} set:{DATE_VENDOR_CREATED*C} FDA(440,IENS,30)={DATE_VENDOR_CREATED} set:{CREATED_BY*C} FDA(440,IENS,31)={CREATED_BY} set:{INACTIVATED_VENDOR*C} FDA(440,IENS,31.5)={INACTIVATED_VENDOR} set:{DATE_INACTIVATED*C} FDA(440,IENS,32)={DATE_INACTIVATED} set:{INACTIVATED_BY*C} FDA(440,IENS,33)={INACTIVATED_BY} set:{FMS_VENDOR_CODE*C} FDA(440,IENS,34)={FMS_VENDOR_CODE} set:{FMS_VENDOR_NAME*C} FDA(440,IENS,34.5)={FMS_VENDOR_NAME} set:{ALTADDRIND*C} FDA(440,IENS,35)={ALTADDRIND} set:{NONRECURRINGRECURRING_VENDOR*C} FDA(440,IENS,36)={NONRECURRINGRECURRING_VENDOR} set:{TAX_IDSSN*C} FDA(440,IENS,38)={TAX_IDSSN} set:{SSNTAX_ID_INDICATOR*C} FDA(440,IENS,39)={SSNTAX_ID_INDICATOR} set:{PAYMENT_HOLD_INDICATOR*C} FDA(440,IENS,40)={PAYMENT_HOLD_INDICATOR} set:{f1099_VENDOR_INDICATOR*C} FDA(440,IENS,41)={f1099_VENDOR_INDICATOR} set:{PENDING_FLAG*C} FDA(440,IENS,42)={PENDING_FLAG} set:{CENTRAL_REMIT*C} FDA(440,IENS,43)={CENTRAL_REMIT} set:{VENDOR_TYPE*C} FDA(440,IENS,44)={VENDOR_TYPE} set:{MTI_ACTION*C} FDA(440,IENS,45)={MTI_ACTION} set:{FAX_*C} FDA(440,IENS,46)={FAX_} set:{UEI*C} FDA(440,IENS,55)={UEI} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(440)") set %SkipFiling=1 if $d(%FMERR(440,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {REMARKS*C} { set D0={RowId} kill wp if {REMARKS}'="" { set wproot="wp" for i=1:1:$l({REMARKS},$c(13,10)) { set wp(i)=$p({REMARKS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(440,{RowId},21,,wproot,"%FMERR(440)") if $d(%FMERR(440,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(440)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthetic7939.VENDOR440S index ^PRC nonnull 440 "AF" {CALM_ID_NUMBER} {IEN} 0]]> index ^PRC nonnull 440 "AG" {VENDOR_ID_NUMBER} {IEN} 0]]> index ^PRC nonnull 440 "D" {FMS_VENDOR_CODE} {IEN} 0]]> index {UEI}'="" 1 ^PRC conditional 440 "E" $$TRUNCATE({UEI},30)) {IEN} 0]]> index ^PRC nonnull 440 "F" {IFAMS_VENDOR_ID} {IEN} 0]]> data ^PRC 440 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 2 1 "^" 3 5 "^" 2 9 "^" .11 1 "^" .11 2 "^" .11 3 "^" .11 4 "^" .11 7 "^" .11 5 "^" .11 6 "^" 2 3 "^" 2 6 "^" 7 10 "^" 7 11 "^" 3 13 "^" 2 4 "^" 10 2 "^" 10 3 "^" 2 8 "^" 10 1 "^" 7 12 "^" 3 2 "^" 10 6 "^" 2 2 "^" 2 10 "^" 3 4 "^" 3 7 "^" 2 11 "^" 9 2 "^" 10 4 "^" 10 5 "^" 2 7 "^" 2 5 "^" 3 15 "^" 0 1 "^" 3 6 "^" 0 2 "^" 0 3 "^" 0 4 "^" 0 5 "^" 0 6 "^" 0 7 "^" 0 8 "^" 7 3 "^" 7 4 "^" 7 5 "^" 7 6 "^" 7 7 "^" 7 1 "^" 3 10 "^" 7 2 "^" 7 8 "^" 7 9 "^" 3 12 "^" 0 9 8 new data,i,node set {REMARKS}="" merge data=^PRC(440,{S2},8) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {REMARKS}={REMARKS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 9 1 "^" 6 1 "^" 6 2 "^" 6 3 "^" 6 4 "^" 6 5 "^" 6 6 "^" 6 7 "^" 6 8 "^" 6 9 "^" 3 1 "^" 3 9 "^" 0 11 "^" 3 8 "^" 3 16 "^" 3 3 "^" 0 10 "^" 3 14 "^" 3 11 Generated class for FileMan File Number: '9000010' File Name: 'VISIT' Class generated by %fm2class version 2.56 This file contains a record of all patient visits at health care facilities or by health care providers, including direct outpatient and clinic visits, as well as inpatient encounters with providers of care. All other visit related files, such as purpose of visit (diagnoses), operative procedures, immunizations, examinations, etc., will point to a visit in this file. The records are maintained by date/time of visit, and the patient name field is a pointer to the IHS Patient file, where the patient must exist before data can be added here. persistent _PUBLIC 0 RowId VISIT_9000010 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.124649387 67178,44737.021068304 right VISIT 9000010 2.56 12/04/2024 12:25:37 1 1 IEN 1 NEW_PERSON_200]]> CREATEDBYUSER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_CREATED_BY_USER PCE_DATA_SOURCE_839_7]]> DATASOURCE VALIP.prosthetic.fm2cw.PCEDATASOURCE8397 FKey_DATA_SOURCE CLINIC_STOP_40_7]]> DSSID VALIP.prosthetic.fm2cw.CLINICSTOP407 FKey_DSS_ID ELIGIBILITY_CODE_8]]> ELIGIBILITY VALIP.prosthetic.fm2cw.ELIGIBILITYCODE8 FKey_ELIGIBILITY HOSPITAL_LOCATION_44]]> HOSPITALLOCATION VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 FKey_HOSPITAL_LOCATION LOCATION_9999999_06]]> LOCOFENCOUNTER VALIP.prosthetic.fm2cw.LOCATION999999906 FKey_LOC__OF_ENCOUNTER OPTION_19]]> OPTIONUSEDTOCREATE VALIP.prosthetic.fm2cw.OPTION19 FKey_OPTION_USED_TO_CREATE PACKAGE_9_4]]> PACKAGE VALIP.prosthetic.fm2cw.PACKAGE94 FKey_PACKAGE VISIT_9000010]]> PARENTVISITLINK VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PARENT_VISIT_LINK PATIENTIHS_9000001]]> PATIENTNAME VALIP.prosthetic.fm2cw.PATIENTIHS9000001 FKey_PATIENT_NAME PFSS_ACCOUNT_375]]> PFSSACCOUNTREFERENCE VALIP.prosthetic.fm2cw.PFSSACCOUNT375 FKey_PFSS_ACCOUNT_REFERENCE PROTOCOL_101]]> PROTOCOL VALIP.prosthetic.fm2cw.PROTOCOL101 FKey_PROTOCOL FileMan Field Label: 'AGENT ORANGE EDIT FLAG' FileMan Field Number: '80012' This field is used to determine if the Agent Orange Classification for the Visit can be edited by the user. %Library.EnumString 34 AGENT_ORANGE_EDIT_FLAG FileMan Field Label: 'AGENT ORANGE EXPOSURE' FileMan Field Number: '80002' This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Agent Orange Exposure. %Library.EnumString 26 AGENT_ORANGE_EXPOSURE %Library.FilemanTimeStamp 14 CHECK_OUT_DATETIME FileMan Field Label: 'COMBAT VETERAN' FileMan Field Number: '80007' This field is used to indicate that the visit represents treatment of a VA patient for a problem that is related to combat. %Library.EnumString 31 COMBAT_VETERAN FileMan Field Label: 'COMBAT VETERAN EDIT FLAG' FileMan Field Number: '80017' This field is used to determine if the Combat Veteran classification can be edited by the user. %Library.EnumString 39 COMBAT_VETERAN_EDIT_FLAG FileMan Field Label: 'COMMENTS' FileMan Field Number: '81101' A field to add comments as they pertain to a visit. %Library.String 41 COMMENTS FileMan Field Label: 'CREATED BY USER' FileMan Field Number: '.23' This field contains the USER passed in by the application calling the PCE API ($$DATA2PCE^PXAPI) to create or update the visit. If USER is not defined DUZ will be used. If something other than $$DATA2PCE^PXAPI is used to create or update the entry then DUZ will be used. VALIP.prosthetic.fm2cw.NEWPERSON200 17 CREATED_BY_USER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {CREATED_BY_USER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 CREATED_BY_USER_NAME 1 FileMan Field Label: 'DATA SOURCE' FileMan Field Number: '81203' This is a pointer to the PCE Data Source file and is the source that wanted the visit created. VALIP.prosthetic.fm2cw.PCEDATASOURCE8397 43 DATA_SOURCE SOURCE NAME A unique data source identifier. The working rule is that there will be one entry in this file for each unique -tuple.]]> %Library.String 1 SOURCE_NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {DATA_SOURCE_SOURCE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DATA_SOURCE_SOURCE_NAME 1 FileMan Field Label: 'DATE LAST MODIFIED' FileMan Field Number: '.13' Date and time when the visit was last modified. Any time a field in the visit file or a V-File is added or deleted, this field is automatically updated with the current date and time. This field is set automatically. %Library.FilemanDate 13 DATE_LAST_MODIFIED FileMan Field Label: 'DATE VISIT CREATED' FileMan Field Number: '.02' The date and time when a new visit is added. It is generated automatically and set to NOW. %Library.FilemanDate 4 DATE_VISIT_CREATED FileMan Field Label: 'DELETE FLAG' FileMan Field Number: '.11' Flag set to signify that the visit has been deleted. %Library.EnumString 11 DELETE_FLAG FileMan Field Label: 'DEPENDENT ENTRY COUNT' FileMan Field Number: '.09' This is a count of how many "V" file entries are pointing to this visit. If the count is zero, the visit should be deleted. This field is updated by a cross-reference in each "V" file that calls routine ADD^AUPNVSIT or SUB^AUPNVSIT. This field should never be edited by hand. %Library.Numeric 10 DEPENDENT_ENTRY_COUNT FileMan Field Label: 'DSS ID' FileMan Field Number: '.08' This is a pointer to the Clinic Stop file. It is the clinic in which this visit took place. VALIP.prosthetic.fm2cw.CLINICSTOP407 9 DSS_ID NAME This field contains the name of the clinic stop code.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {DSS_ID_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 DSS_ID_NAME 1 FileMan Field Label: 'ELIGIBILITY' FileMan Field Number: '.21' Defines the patient's eligibility for this visit. VALIP.prosthetic.fm2cw.ELIGIBILITYCODE8 15 ELIGIBILITY NAME This field contains the site specific name for the eligibility. In most cases the name will be the same as the MAS ELIGIBILITY CODE pointed to by the MAS ELIGIBILITY CODE field of this file.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {ELIGIBILITY_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ELIGIBILITY_NAME 1 FileMan Field Label: 'ENCOUNTER TYPE' FileMan Field Number: '15003' This field notes the encounter type. %Library.EnumString 24 ENCOUNTER_TYPE FileMan Field Label: 'HEAD AND/OR NECK CANCER' FileMan Field Number: '80006' This field is used to indicate that the visit represents treatment of a VA patient for a problem that is related to Head and/or Neck Cancer. %Library.EnumString 30 HEAD_ANDOR_NECK_CANCER FileMan Field Label: 'HEAD AND NECK CANCER EDIT FLAG' FileMan Field Number: '80016' This field is used to determine if the Head and/or Neck Cancer classification can be edited by the user. %Library.EnumString 38 HEAD_AND_NECK_CANCER_EDIT_FLAG FileMan Field Label: 'HOSPITAL LOCATION' FileMan Field Number: '.22' The hospital location where this visit occurred. VALIP.prosthetic.fm2cw.HOSPITALLOCATION44 16 HOSPITAL_LOCATION NAME Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {HOSPITAL_LOCATION_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 HOSPITAL_LOCATION_NAME 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^AUPNVSIT(0),""^"",3)") 1 2 IEN FileMan Field Label: 'IONIZING RADIATION EDIT FLAG' FileMan Field Number: '80013' This field is used to determine if the Ionizing Radiation classification for the Visit can be edited by the user. %Library.EnumString 35 IONIZING_RADIATION_EDIT_FLAG FileMan Field Label: 'IONIZING RADIATION EXPOSURE' FileMan Field Number: '80003' This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Ionizing Radiation Exposure. %Library.EnumString 27 IONIZING_RADIATION_EXPOSURE FileMan Field Label: 'LOC. OF ENCOUNTER' FileMan Field Number: '.06' Pointer to the Location file, location where the visit took place. In the VA, the Location file entries will be based on the current entries in the Institution file, so this field represents the institution. VALIP.prosthetic.fm2cw.LOCATION999999906 7 LOC__OF_ENCOUNTER NAME This field points to the Institution file (#4) and has the same internal number as that file. Thus, the location has the same name as the Institution file (#4). The location is also referred to as the Facility.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {LOC__OF_ENCOUNTER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 LOC__OF_ENCOUNTER_NAME 1 FileMan Field Label: 'MILITARY SEXUAL TRAUMA' FileMan Field Number: '80005' Indicates whether the patient's visit was related to Military Sexual Trauma. %Library.EnumString 29 MILITARY_SEXUAL_TRAUMA FileMan Field Label: 'MST EDIT FLAG' FileMan Field Number: '80015' This field is used to determine if the Military Sexual Trauma classification for the Visit can be edited by the user. %Library.EnumString 37 MST_EDIT_FLAG FileMan Field Label: 'OPTION USED TO CREATE' FileMan Field Number: '.24' If known, the option under which this visit was created. VALIP.prosthetic.fm2cw.OPTION19 18 OPTION_USED_TO_CREATE NAME A unique name, which is preceded by the package abbreviation The formal name of an option, prefaced with the package name. Each option must be preceded by its package prefix (a 2-4 character) code specified in the PACKAGE file, or the letter "Z" or "A".]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {OPTION_USED_TO_CREATE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 OPTION_USED_TO_CREATE_NAME 1 FileMan Field Label: 'OUTSIDE LOCATION' FileMan Field Number: '2101' Free text location of service. %Library.String 21 OUTSIDE_LOCATION FileMan Field Label: 'PACKAGE' FileMan Field Number: '81202' This is a pointer to the Package that wanted the visit created. VALIP.prosthetic.fm2cw.PACKAGE94 42 PACKAGE NAME The name of this Package.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {PACKAGE_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PACKAGE_NAME 1 FileMan Field Label: 'PARENT VISIT LINK' FileMan Field Number: '.12' The Parent Visit Link field points back to the Visit file. VALIP.prosthetic.fm2cw.VISIT9000010 12 PARENT_VISIT_LINK VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {PARENT_VISIT_LINK_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PARENT_VISIT_LINK_VISITADMIT_DATETIME 1 FileMan Field Label: 'PATIENT NAME' FileMan Field Number: '.05' PATIENT/IHS Pointer to the Patient file. VALIP.prosthetic.fm2cw.PATIENTIHS9000001 1 6 PATIENT_NAME NAME This field points to the Patient file (#2) and has the same internal number as that file. Thus, the patient's name is the Patient file (#2) name.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {PATIENT_NAME_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PATIENT_NAME_NAME 1 FileMan Field Label: 'PATIENT STATUS IN/OUT' FileMan Field Number: '15002' This is an indicator of the patient's status at the time of the visit. It is set automatically using the API $$IP^VSITCK1. %Library.EnumString 23 PATIENT_STATUS_INOUT FileMan Field Label: 'PFSS ACCOUNT REFERENCE' FileMan Field Number: '.26' The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing. VALIP.prosthetic.fm2cw.PFSSACCOUNT375 20 PFSS_ACCOUNT_REFERENCE ACCOUNT REFERENCE The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing.]]> %Library.Numeric 1 ACCOUNT_REFERENCE into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE}=$select(SQLCODE=0:val,1:"")]]> 1 PFSS_ACCOUNT_REFERENCE_ACCOUNT_REFERENCE 1 FileMan Field Label: 'PROJ 112/SHAD' FileMan Field Number: '80008' Project 112/SHAD was the name of the overall program for both shipboard and land-based biological and chemical testing that was conducted by the United States (U.S.) military between 1962 and 1973. Project SHAD (Shipboard Hazard and Defense) was the shipboard portion of these tests. %Library.EnumString 32 PROJ_112SHAD FileMan Field Label: 'PROJ 112/SHAD EDIT FLAG' FileMan Field Number: '80018' This field is used to determine if the PROJ 112/SHAD classification can be edited by the user. %Library.EnumString 40 PROJ_112SHAD_EDIT_FLAG FileMan Field Label: 'PROTOCOL' FileMan Field Number: '.25' This is the protocol which was used to create this visit. This field is set automatically. VALIP.prosthetic.fm2cw.PROTOCOL101 19 PROTOCOL NAME A unique name, which is preceded by the package namespace.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.VISIT_9000010 where %ID=:id) set {PROTOCOL_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PROTOCOL_NAME 1 FileMan Field Label: 'SERVICE CATEGORY' FileMan Field Number: '.07' Service Category represents what kind of service was provided. The population of this field is dependent upon entries provided by applications as well as default values and calculated codes. %Library.EnumString 8 SERVICE_CATEGORY FileMan Field Label: 'SERVICE CONNECTED' FileMan Field Number: '80001' This field will be used to indicate if this visit was for treating a VA patient based on a service connected problem. %Library.EnumString 25 SERVICE_CONNECTED FileMan Field Label: 'SERVICE CONNECTION EDIT FLAG' FileMan Field Number: '80011' This field is used to determine if the Service Connection Classification for the Visit can be edited by the user. %Library.EnumString 33 SERVICE_CONNECTION_EDIT_FLAG FileMan Field Label: 'SW ASIA CONDITIONS' FileMan Field Number: '80004' This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Southwest Asia Conditions Exposure. %Library.EnumString 28 SW_ASIA_CONDITIONS FileMan Field Label: 'SW ASIA CONDITIONS EDIT FLAG' FileMan Field Number: '80014' This field is used to determine if the Southwest Asia Conditions classification for the Visit can be edited by the user. %Library.EnumString 36 SW_ASIA_CONDITIONS_EDIT_FLAG FileMan Field Label: 'TYPE' FileMan Field Number: '.03' The type of visit. The purpose is to differentiate between various categories of visits, such as a visit provided by contract care funds versus a regular VA visit. This field is set automatically. %Library.EnumString 5 TYPE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 44 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 %Library.FilemanTimeStamp 1 3 VISITADMIT_DATETIME FileMan Field Label: 'VISIT ID' FileMan Field Number: '15001' This is the unique visit ID, it is set by Visit Tracking and cannot be changed. %Library.String 1 22 VISIT_ID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^AUPNVSIT(" set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{VISITADMIT_DATETIME}'="" FDA(9000010,"+1,",.01)={"VISITADMIT_DATETIME"} set:{DATE_VISIT_CREATED}'="" FDA(9000010,"+1,",.02)={"DATE_VISIT_CREATED"} set:{TYPE}'="" FDA(9000010,"+1,",.03)={"TYPE"} set:{PATIENT_NAME}'="" FDA(9000010,"+1,",.05)={"PATIENT_NAME"} set:{LOC__OF_ENCOUNTER}'="" FDA(9000010,"+1,",.06)={"LOC__OF_ENCOUNTER"} set:{SERVICE_CATEGORY}'="" FDA(9000010,"+1,",.07)={"SERVICE_CATEGORY"} set:{DSS_ID}'="" FDA(9000010,"+1,",.08)={"DSS_ID"} set:{DEPENDENT_ENTRY_COUNT}'="" FDA(9000010,"+1,",.09)={"DEPENDENT_ENTRY_COUNT"} set:{DELETE_FLAG}'="" FDA(9000010,"+1,",.11)={"DELETE_FLAG"} set:{PARENT_VISIT_LINK}'="" FDA(9000010,"+1,",.12)={"PARENT_VISIT_LINK"} set:{DATE_LAST_MODIFIED}'="" FDA(9000010,"+1,",.13)={"DATE_LAST_MODIFIED"} set:{CHECK_OUT_DATETIME}'="" FDA(9000010,"+1,",.18)={"CHECK_OUT_DATETIME"} set:{ELIGIBILITY}'="" FDA(9000010,"+1,",.21)={"ELIGIBILITY"} set:{HOSPITAL_LOCATION}'="" FDA(9000010,"+1,",.22)={"HOSPITAL_LOCATION"} set:{CREATED_BY_USER}'="" FDA(9000010,"+1,",.23)={"CREATED_BY_USER"} set:{OPTION_USED_TO_CREATE}'="" FDA(9000010,"+1,",.24)={"OPTION_USED_TO_CREATE"} set:{PROTOCOL}'="" FDA(9000010,"+1,",.25)={"PROTOCOL"} set:{PFSS_ACCOUNT_REFERENCE}'="" FDA(9000010,"+1,",.26)={"PFSS_ACCOUNT_REFERENCE"} set:{OUTSIDE_LOCATION}'="" FDA(9000010,"+1,",2101)={"OUTSIDE_LOCATION"} set:{VISIT_ID}'="" FDA(9000010,"+1,",15001)={"VISIT_ID"} set:{PATIENT_STATUS_INOUT}'="" FDA(9000010,"+1,",15002)={"PATIENT_STATUS_INOUT"} set:{ENCOUNTER_TYPE}'="" FDA(9000010,"+1,",15003)={"ENCOUNTER_TYPE"} set:{SERVICE_CONNECTED}'="" FDA(9000010,"+1,",80001)={"SERVICE_CONNECTED"} set:{AGENT_ORANGE_EXPOSURE}'="" FDA(9000010,"+1,",80002)={"AGENT_ORANGE_EXPOSURE"} set:{IONIZING_RADIATION_EXPOSURE}'="" FDA(9000010,"+1,",80003)={"IONIZING_RADIATION_EXPOSURE"} set:{SW_ASIA_CONDITIONS}'="" FDA(9000010,"+1,",80004)={"SW_ASIA_CONDITIONS"} set:{MILITARY_SEXUAL_TRAUMA}'="" FDA(9000010,"+1,",80005)={"MILITARY_SEXUAL_TRAUMA"} set:{HEAD_ANDOR_NECK_CANCER}'="" FDA(9000010,"+1,",80006)={"HEAD_ANDOR_NECK_CANCER"} set:{COMBAT_VETERAN}'="" FDA(9000010,"+1,",80007)={"COMBAT_VETERAN"} set:{PROJ_112SHAD}'="" FDA(9000010,"+1,",80008)={"PROJ_112SHAD"} set:{SERVICE_CONNECTION_EDIT_FLAG}'="" FDA(9000010,"+1,",80011)={"SERVICE_CONNECTION_EDIT_FLAG"} set:{AGENT_ORANGE_EDIT_FLAG}'="" FDA(9000010,"+1,",80012)={"AGENT_ORANGE_EDIT_FLAG"} set:{IONIZING_RADIATION_EDIT_FLAG}'="" FDA(9000010,"+1,",80013)={"IONIZING_RADIATION_EDIT_FLAG"} set:{SW_ASIA_CONDITIONS_EDIT_FLAG}'="" FDA(9000010,"+1,",80014)={"SW_ASIA_CONDITIONS_EDIT_FLAG"} set:{MST_EDIT_FLAG}'="" FDA(9000010,"+1,",80015)={"MST_EDIT_FLAG"} set:{HEAD_AND_NECK_CANCER_EDIT_FLAG}'="" FDA(9000010,"+1,",80016)={"HEAD_AND_NECK_CANCER_EDIT_FLAG"} set:{COMBAT_VETERAN_EDIT_FLAG}'="" FDA(9000010,"+1,",80017)={"COMBAT_VETERAN_EDIT_FLAG"} set:{PROJ_112SHAD_EDIT_FLAG}'="" FDA(9000010,"+1,",80018)={"PROJ_112SHAD_EDIT_FLAG"} set:{COMMENTS}'="" FDA(9000010,"+1,",81101)={"COMMENTS"} set:{PACKAGE}'="" FDA(9000010,"+1,",81202)={"PACKAGE"} set:{DATA_SOURCE}'="" FDA(9000010,"+1,",81203)={"DATA_SOURCE"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(9000010)") set %SkipFiling=1 if $d(%FMERR(9000010,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9000010)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{VISITADMIT_DATETIME*C} FDA(9000010,IENS,.01)={VISITADMIT_DATETIME} set:{DATE_VISIT_CREATED*C} FDA(9000010,IENS,.02)={DATE_VISIT_CREATED} set:{TYPE*C} FDA(9000010,IENS,.03)={TYPE} set:{PATIENT_NAME*C} FDA(9000010,IENS,.05)={PATIENT_NAME} set:{LOC__OF_ENCOUNTER*C} FDA(9000010,IENS,.06)={LOC__OF_ENCOUNTER} set:{SERVICE_CATEGORY*C} FDA(9000010,IENS,.07)={SERVICE_CATEGORY} set:{DSS_ID*C} FDA(9000010,IENS,.08)={DSS_ID} set:{DEPENDENT_ENTRY_COUNT*C} FDA(9000010,IENS,.09)={DEPENDENT_ENTRY_COUNT} set:{DELETE_FLAG*C} FDA(9000010,IENS,.11)={DELETE_FLAG} set:{PARENT_VISIT_LINK*C} FDA(9000010,IENS,.12)={PARENT_VISIT_LINK} set:{DATE_LAST_MODIFIED*C} FDA(9000010,IENS,.13)={DATE_LAST_MODIFIED} set:{CHECK_OUT_DATETIME*C} FDA(9000010,IENS,.18)={CHECK_OUT_DATETIME} set:{ELIGIBILITY*C} FDA(9000010,IENS,.21)={ELIGIBILITY} set:{HOSPITAL_LOCATION*C} FDA(9000010,IENS,.22)={HOSPITAL_LOCATION} set:{CREATED_BY_USER*C} FDA(9000010,IENS,.23)={CREATED_BY_USER} set:{OPTION_USED_TO_CREATE*C} FDA(9000010,IENS,.24)={OPTION_USED_TO_CREATE} set:{PROTOCOL*C} FDA(9000010,IENS,.25)={PROTOCOL} set:{PFSS_ACCOUNT_REFERENCE*C} FDA(9000010,IENS,.26)={PFSS_ACCOUNT_REFERENCE} set:{OUTSIDE_LOCATION*C} FDA(9000010,IENS,2101)={OUTSIDE_LOCATION} set:{VISIT_ID*C} FDA(9000010,IENS,15001)={VISIT_ID} set:{PATIENT_STATUS_INOUT*C} FDA(9000010,IENS,15002)={PATIENT_STATUS_INOUT} set:{ENCOUNTER_TYPE*C} FDA(9000010,IENS,15003)={ENCOUNTER_TYPE} set:{SERVICE_CONNECTED*C} FDA(9000010,IENS,80001)={SERVICE_CONNECTED} set:{AGENT_ORANGE_EXPOSURE*C} FDA(9000010,IENS,80002)={AGENT_ORANGE_EXPOSURE} set:{IONIZING_RADIATION_EXPOSURE*C} FDA(9000010,IENS,80003)={IONIZING_RADIATION_EXPOSURE} set:{SW_ASIA_CONDITIONS*C} FDA(9000010,IENS,80004)={SW_ASIA_CONDITIONS} set:{MILITARY_SEXUAL_TRAUMA*C} FDA(9000010,IENS,80005)={MILITARY_SEXUAL_TRAUMA} set:{HEAD_ANDOR_NECK_CANCER*C} FDA(9000010,IENS,80006)={HEAD_ANDOR_NECK_CANCER} set:{COMBAT_VETERAN*C} FDA(9000010,IENS,80007)={COMBAT_VETERAN} set:{PROJ_112SHAD*C} FDA(9000010,IENS,80008)={PROJ_112SHAD} set:{SERVICE_CONNECTION_EDIT_FLAG*C} FDA(9000010,IENS,80011)={SERVICE_CONNECTION_EDIT_FLAG} set:{AGENT_ORANGE_EDIT_FLAG*C} FDA(9000010,IENS,80012)={AGENT_ORANGE_EDIT_FLAG} set:{IONIZING_RADIATION_EDIT_FLAG*C} FDA(9000010,IENS,80013)={IONIZING_RADIATION_EDIT_FLAG} set:{SW_ASIA_CONDITIONS_EDIT_FLAG*C} FDA(9000010,IENS,80014)={SW_ASIA_CONDITIONS_EDIT_FLAG} set:{MST_EDIT_FLAG*C} FDA(9000010,IENS,80015)={MST_EDIT_FLAG} set:{HEAD_AND_NECK_CANCER_EDIT_FLAG*C} FDA(9000010,IENS,80016)={HEAD_AND_NECK_CANCER_EDIT_FLAG} set:{COMBAT_VETERAN_EDIT_FLAG*C} FDA(9000010,IENS,80017)={COMBAT_VETERAN_EDIT_FLAG} set:{PROJ_112SHAD_EDIT_FLAG*C} FDA(9000010,IENS,80018)={PROJ_112SHAD_EDIT_FLAG} set:{COMMENTS*C} FDA(9000010,IENS,81101)={COMMENTS} set:{PACKAGE*C} FDA(9000010,IENS,81202)={PACKAGE} set:{DATA_SOURCE*C} FDA(9000010,IENS,81203)={DATA_SOURCE} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(9000010)") set %SkipFiling=1 if $d(%FMERR(9000010,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(9000010)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prosthe7939.VISIT9000010S index ^AUPNVSIT nonnull "AD" {PARENT_VISIT_LINK} {IEN} 0]]> index ^AUPNVSIT nonnull "B" {VISITADMIT_DATETIME} {IEN} 0]]> index ^AUPNVSIT nonnull "C" {PATIENT_NAME} {IEN} 0]]> index ^AUPNVSIT nonnull "VID" {VISIT_ID} {IEN} 0]]> data ^AUPNVSIT {IEN} set:{L1}="" {L1}=0 set {L1}=$o(^({L1})) set:'{L1} {L1}="" ;PREV set:{L1}="" {L1}=$c(0) set {L1}=$o(^({L1}),-1) set:'{L1} {L1}="" 0]]> "^" 800 12 "^" 800 2 "^" 0 18 "^" 800 7 "^" 800 17 "^" 811 1 "^" 0 23 "^" 812 3 "^" 0 13 "^" 0 2 "^" 0 11 "^" 0 9 "^" 0 8 "^" 0 21 "^" 150 3 "^" 800 6 "^" 800 16 "^" 0 22 "^" 800 13 "^" 800 3 "^" 0 6 "^" 800 5 "^" 800 15 "^" 0 24 "^" 21 1 "^" 812 2 "^" 0 12 "^" 0 5 "^" 150 2 "^" 0 26 "^" 800 8 "^" 800 18 "^" 0 25 "^" 0 7 "^" 800 1 "^" 800 11 "^" 800 4 "^" 800 14 "^" 0 3 "^" 0 1 "^" 150 1 Generated class for FileMan File Number: '698.1' File Name: 'V LEAD IMPLANT' Class generated by %fm2class version 2.56 This holds the V Lead Implant/Explant information for Pacemaker. persistent _PUBLIC 0 RowId V_LEAD_IMPLANT_698_1 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.12443099 67178,44737.096812605 right V LEAD IMPLANT 698.1 2.56 12/04/2024 12:25:37 1 1 IEN 1 NEW_PERSON_200]]> ATTENDINGPHYSICIAN VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_ATTENDING_PHYSICIAN NEW_PERSON_200]]> FELLOW1ST VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW1ST NEW_PERSON_200]]> FELLOW2ND VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_FELLOW2ND REQUESTCONSULTATION_123]]> GMRCO VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 FKey_GMRCO MEDICAL_PATIENT_690]]> MEDICALPATIENT VALIP.prosthetic.fm2cw.MEDICALPATIENT690 FKey_MEDICAL_PATIENT ORDER_100]]> ORIFN VALIP.prosthetic.fm2cw.ORDER100 FKey_ORIFN VISIT_9000010]]> PCCPOINTER VALIP.prosthetic.fm2cw.VISIT9000010 FKey_PCC_POINTER NEW_PERSON_200]]> PRIMARYPROVIDER VALIP.prosthetic.fm2cw.NEWPERSON200 FKey_PRIMARY_PROVIDER REASON_MEDICINE_695_8]]> VLEADEXPLANTREASON VALIP.prosthetic.fm2cw.REASONMEDICINE6958 FKey_V_LEAD_EXPLANT_REASON PACEMAKER_MANUFACTURER_698_6]]> VLEADMANUFACTURER VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 FKey_V_LEAD_MANUFACTURER PACEMAKER_EQUIPMENT_698_4]]> VLEADMODEL VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 FKey_V_LEAD_MODEL PACEMAKER_EQUIPMENT_698_4]]> VLEADPSAUSED VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 FKey_V_LEAD_PSA_USED FileMan Field Label: 'ATTENDING PHYSICIAN' FileMan Field Number: '300' This field identifies the name of the Attending Physician for this V-Lead Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 15 ATTENDING_PHYSICIAN NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {ATTENDING_PHYSICIAN_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 ATTENDING_PHYSICIAN_NAME 1 FileMan Field Label: 'COMMENTS' FileMan Field Number: '500' This field identifies the comment field for this procedure. %Library.String 18 COMMENTS FileMan Field Label: 'DATE/TIME OF IMPLANT' FileMan Field Number: '.01' This field is the date/time that the procedure was entered into the database. %Library.FilemanTimeStamp 1 3 DATETIME_OF_IMPLANT FileMan Field Label: 'EXPLANT DATE' FileMan Field Number: '56' This field identifies the explant date. %Library.FilemanTimeStamp 13 EXPLANT_DATE FileMan Field Label: 'FELLOW-1st' FileMan Field Number: '301' This field identifies the name of a Cardiology Fellow for this V-Lead Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 16 FELLOW1ST NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {FELLOW1ST_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW1ST_NAME 1 FileMan Field Label: 'FELLOW-2nd' FileMan Field Number: '302' This field identifies the name of a Second Cardiology Fellow for this V-Lead Implant. VALIP.prosthetic.fm2cw.NEWPERSON200 17 FELLOW2ND NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {FELLOW2ND_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 FELLOW2ND_NAME 1 FileMan Field Label: 'GMRCO' FileMan Field Number: '1001' This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.REQUESTCONSULTATION123 24 GMRCO FILE ENTRY DATE Date of actual entry of consultation request into the file. Transparent to user.]]> %Library.FilemanTimeStamp 1 FILE_ENTRY_DATE into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {GMRCO_FILE_ENTRY_DATE}=$select(SQLCODE=0:val,1:"")]]> 1 GMRCO_FILE_ENTRY_DATE 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^MCAR(698.1,0),""^"",3)") 1 2 IEN FileMan Field Label: 'MEDICAL PATIENT' FileMan Field Number: '1' This field identifies the field which identifies the patient. VALIP.prosthetic.fm2cw.MEDICALPATIENT690 1 4 MEDICAL_PATIENT NAME This field identifies the medical patient's name followed by his/her first name followed by a space and his/her middle initial and a period.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {MEDICAL_PATIENT_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 MEDICAL_PATIENT_NAME 1 FileMan Field Label: 'ORIFN' FileMan Field Number: '1000' This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package. VALIP.prosthetic.fm2cw.ORDER100 23 ORIFN ORDER # This is the internal order number of the file.]]> %Library.Numeric 1 ORDER_ into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {ORIFN_ORDER_}=$select(SQLCODE=0:val,1:"")]]> 1 ORIFN_ORDER_ 1 FileMan Field Label: 'PCC POINTER' FileMan Field Number: '900' This field is used to link the Medicine package results with the PCC Visit File for use by Queryman. VALIP.prosthetic.fm2cw.VISIT9000010 22 PCC_POINTER VISIT/ADMIT DATE&TIME VISIT DATE & TIME VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time. ]]> %Library.FilemanTimeStamp 1 VISITADMIT_DATETIME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {PCC_POINTER_VISITADMIT_DATETIME}=$select(SQLCODE=0:val,1:"")]]> 1 PCC_POINTER_VISITADMIT_DATETIME 1 FileMan Field Label: 'PRIMARY PROVIDER' FileMan Field Number: '701' This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC. VALIP.prosthetic.fm2cw.NEWPERSON200 21 PRIMARY_PROVIDER NAME Enter only data that is actually part of the person's name. Do not include extra titles, identification, flags, local information, etc. Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-35 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other characters and parenthetical text will be removed.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {PRIMARY_PROVIDER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 PRIMARY_PROVIDER_NAME 1 FileMan Field Label: 'PROCEDURE SUMMARY' FileMan Field Number: '600' This 1-79 character field is for display on the medicine procedure summary report. %Library.String 19 PROCEDURE_SUMMARY FileMan Field Label: 'R WAVE AMPLITUDE (mV)' FileMan Field Number: '14' This field identifies the R wave amplitude. %Library.Numeric 11 R_WAVE_AMPLITUDE_MV Relationship for Sub-File/Multiple to file name ICD DIAGNOSIS child VALIP.prosthetic.fm2cw.SUBICDDIAGNOSIS69812 children VLEADIMPLANT6981 1 SUB_ICD_DIAGNOSIS_698_12 FileMan Field Label: 'SUMMARY' FileMan Field Number: '601' This field identifies the procedure summary. %Library.EnumString 20 SUMMARY SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 25 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'V LEAD EXPLANT REASON' FileMan Field Number: '57' This field identifies the V lead explant rationale. VALIP.prosthetic.fm2cw.REASONMEDICINE6958 14 V_LEAD_EXPLANT_REASON NAME This field holds a list of Medical reasons for various areas of Medicine. Examples: Explain reasons for Pacemaker, Reason for stopping for PFT, etc.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {V_LEAD_EXPLANT_REASON_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 V_LEAD_EXPLANT_REASON_NAME 1 FileMan Field Label: 'V LEAD MANUFACTURER' FileMan Field Number: '3' This field identifies the V Lead Manufacturer. VALIP.prosthetic.fm2cw.PACEMAKERMANUFACTURER6986 6 V_LEAD_MANUFACTURER NAME This field identifies the name of the manufacturer.]]> %Library.String 1 NAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {V_LEAD_MANUFACTURER_NAME}=$select(SQLCODE=0:val,1:"")]]> 1 V_LEAD_MANUFACTURER_NAME 1 FileMan Field Label: 'V LEAD MODEL' FileMan Field Number: '2' This field identifies the V Lead Model. VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 5 V_LEAD_MODEL MODEL NUMBER/NAME This field identifies the model identifier.]]> %Library.String 1 MODEL_NUMBERNAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {V_LEAD_MODEL_MODEL_NUMBERNAME}=$select(SQLCODE=0:val,1:"")]]> 1 V_LEAD_MODEL_MODEL_NUMBERNAME 1 FileMan Field Label: 'V LEAD PSA USED' FileMan Field Number: '15' This field identifies the V Lead PSA used. VALIP.prosthetic.fm2cw.PACEMAKEREQUIPMENT6984 12 V_LEAD_PSA_USED MODEL NUMBER/NAME This field identifies the model identifier.]]> %Library.String 1 MODEL_NUMBERNAME into :val from VALIP_prosthetic_fm2cw.V_LEAD_IMPLANT_698_1 where %ID=:id) set {V_LEAD_PSA_USED_MODEL_NUMBERNAME}=$select(SQLCODE=0:val,1:"")]]> 1 V_LEAD_PSA_USED_MODEL_NUMBERNAME 1 FileMan Field Label: 'V LEAD RESISTANCE (OHMS) AT 5V' FileMan Field Number: '13' This field identifies the V lead resistance. %Library.Numeric 10 V_LEAD_RESISTANCE_OHMS_AT_5V FileMan Field Label: 'V LEAD SERIAL NUMBER' FileMan Field Number: '4' This field identifies the V Lead Serial number. %Library.String 7 V_LEAD_SERIAL_NUMBER FileMan Field Label: 'V LEAD THRESHOLD IN mA'S AT .5' FileMan Field Number: '12' This field identifies the V lead threshold. %Library.Numeric 9 V_LEAD_THRESHOLD_IN_MAS_AT__5 FileMan Field Label: 'V LEAD THRESHOLD IN VOLTS' FileMan Field Number: '11' This field identifies the V Lead threshold in Volts. %Library.Numeric 8 V_LEAD_THRESHOLD_IN_VOLTS BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^MCAR(698.1," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{DATETIME_OF_IMPLANT}'="" FDA(698.1,"+1,",.01)={"DATETIME_OF_IMPLANT"} set:{MEDICAL_PATIENT}'="" FDA(698.1,"+1,",1)={"MEDICAL_PATIENT"} set:{V_LEAD_MODEL}'="" FDA(698.1,"+1,",2)={"V_LEAD_MODEL"} set:{V_LEAD_MANUFACTURER}'="" FDA(698.1,"+1,",3)={"V_LEAD_MANUFACTURER"} set:{V_LEAD_SERIAL_NUMBER}'="" FDA(698.1,"+1,",4)={"V_LEAD_SERIAL_NUMBER"} set:{V_LEAD_THRESHOLD_IN_VOLTS}'="" FDA(698.1,"+1,",11)={"V_LEAD_THRESHOLD_IN_VOLTS"} set:{V_LEAD_THRESHOLD_IN_MAS_AT__5}'="" FDA(698.1,"+1,",12)={"V_LEAD_THRESHOLD_IN_MAS_AT__5"} set:{V_LEAD_RESISTANCE_OHMS_AT_5V}'="" FDA(698.1,"+1,",13)={"V_LEAD_RESISTANCE_OHMS_AT_5V"} set:{R_WAVE_AMPLITUDE_MV}'="" FDA(698.1,"+1,",14)={"R_WAVE_AMPLITUDE_MV"} set:{V_LEAD_PSA_USED}'="" FDA(698.1,"+1,",15)={"V_LEAD_PSA_USED"} set:{EXPLANT_DATE}'="" FDA(698.1,"+1,",56)={"EXPLANT_DATE"} set:{V_LEAD_EXPLANT_REASON}'="" FDA(698.1,"+1,",57)={"V_LEAD_EXPLANT_REASON"} set:{ATTENDING_PHYSICIAN}'="" FDA(698.1,"+1,",300)={"ATTENDING_PHYSICIAN"} set:{FELLOW1ST}'="" FDA(698.1,"+1,",301)={"FELLOW1ST"} set:{FELLOW2ND}'="" FDA(698.1,"+1,",302)={"FELLOW2ND"} set:{PROCEDURE_SUMMARY}'="" FDA(698.1,"+1,",600)={"PROCEDURE_SUMMARY"} set:{SUMMARY}'="" FDA(698.1,"+1,",601)={"SUMMARY"} set:{PRIMARY_PROVIDER}'="" FDA(698.1,"+1,",701)={"PRIMARY_PROVIDER"} set:{PCC_POINTER}'="" FDA(698.1,"+1,",900)={"PCC_POINTER"} set:{ORIFN}'="" FDA(698.1,"+1,",1000)={"ORIFN"} set:{GMRCO}'="" FDA(698.1,"+1,",1001)={"GMRCO"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(698.1)") set %SkipFiling=1 if $d(%FMERR(698.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS}'="" { set D0={RowId} for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) } do WP^DIE(698.1,{RowId},500,,"wp","%FMERR(698.1)") if $d(%FMERR(698.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{DATETIME_OF_IMPLANT*C} FDA(698.1,IENS,.01)={DATETIME_OF_IMPLANT} set:{MEDICAL_PATIENT*C} FDA(698.1,IENS,1)={MEDICAL_PATIENT} set:{V_LEAD_MODEL*C} FDA(698.1,IENS,2)={V_LEAD_MODEL} set:{V_LEAD_MANUFACTURER*C} FDA(698.1,IENS,3)={V_LEAD_MANUFACTURER} set:{V_LEAD_SERIAL_NUMBER*C} FDA(698.1,IENS,4)={V_LEAD_SERIAL_NUMBER} set:{V_LEAD_THRESHOLD_IN_VOLTS*C} FDA(698.1,IENS,11)={V_LEAD_THRESHOLD_IN_VOLTS} set:{V_LEAD_THRESHOLD_IN_MAS_AT__5*C} FDA(698.1,IENS,12)={V_LEAD_THRESHOLD_IN_MAS_AT__5} set:{V_LEAD_RESISTANCE_OHMS_AT_5V*C} FDA(698.1,IENS,13)={V_LEAD_RESISTANCE_OHMS_AT_5V} set:{R_WAVE_AMPLITUDE_MV*C} FDA(698.1,IENS,14)={R_WAVE_AMPLITUDE_MV} set:{V_LEAD_PSA_USED*C} FDA(698.1,IENS,15)={V_LEAD_PSA_USED} set:{EXPLANT_DATE*C} FDA(698.1,IENS,56)={EXPLANT_DATE} set:{V_LEAD_EXPLANT_REASON*C} FDA(698.1,IENS,57)={V_LEAD_EXPLANT_REASON} set:{ATTENDING_PHYSICIAN*C} FDA(698.1,IENS,300)={ATTENDING_PHYSICIAN} set:{FELLOW1ST*C} FDA(698.1,IENS,301)={FELLOW1ST} set:{FELLOW2ND*C} FDA(698.1,IENS,302)={FELLOW2ND} set:{PROCEDURE_SUMMARY*C} FDA(698.1,IENS,600)={PROCEDURE_SUMMARY} set:{SUMMARY*C} FDA(698.1,IENS,601)={SUMMARY} set:{PRIMARY_PROVIDER*C} FDA(698.1,IENS,701)={PRIMARY_PROVIDER} set:{PCC_POINTER*C} FDA(698.1,IENS,900)={PCC_POINTER} set:{ORIFN*C} FDA(698.1,IENS,1000)={ORIFN} set:{GMRCO*C} FDA(698.1,IENS,1001)={GMRCO} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(698.1)") set %SkipFiling=1 if $d(%FMERR(698.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS*C} { set D0={RowId} kill wp if {COMMENTS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(698.1,{RowId},500,,wproot,"%FMERR(698.1)") if $d(%FMERR(698.1,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(698.1)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.VLEADIMPLAN3DC9S index ^MCAR nonnull 698.1 "APCE" {PCC_POINTER} {IEN} 0]]> index ^MCAR nonnull 698.1 "B" {DATETIME_OF_IMPLANT} {IEN} 0]]> index ^MCAR nonnull 698.1 "C" {MEDICAL_PATIENT} {IEN} 0]]> data ^MCAR 698.1 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 3 1 10 new data,i,node set {COMMENTS}="" merge data=^MCAR(698.1,{S2},10) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS}={COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 0 1 "^" 1 1 "^" 3 2 "^" 3 3 "^" "OR" 2 "^" 0 2 "^" "OR" 1 "^" "PCC" 1 "^" "PROV" 1 "^" .2 2 "^" 0 9 "^" .2 1 "^" 1 2 "^" 0 4 "^" 0 3 "^" 0 10 "^" 0 8 "^" 0 5 "^" 0 7 "^" 0 6 Generated class for FileMan File Number: '42' File Name: 'WARD LOCATION' Class generated by %fm2class version 2.56 This file contains all the facility ward locations and their related data, i.e., Operating Beds, Bedsection, etc. The wards are created/edited using the WARD DEFINITION option of the ADT module. persistent _PUBLIC 0 RowId WARD_LOCATION_42 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.204682995 67178,44737.155175994 right WARD LOCATION 42 2.56 12/04/2024 12:25:37 1 1 IEN 1 FileMan Field Label: '*ACUITY CLASS' FileMan Field Number: '1490' %Library.String 1 20 set U="^",D0=$piece({RowId},"||",1) S X=$P(^DIC(42,D0,0),U,2),X=$S(X["CU":1,X["GA":2,1:3) set {ACUITY_CLASS}=X 1 ACUITY_CLASS FileMan Field Label: 'AUTHORIZED BEDS' FileMan Field Number: '.22' This computed field will display the number of beds that are currently authorized by CO to be utilized on this ward. %Library.Numeric 1 15 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D AUTH^DGPMDDCF set {AUTHORIZED_BEDS}=X 1 AUTHORIZED_BEDS FileMan Field Label: 'BEDSECTION' FileMan Field Number: '.02' Enter 2-10 characters describing the bedsection of this ward. %Library.String 4 BEDSECTION FileMan Field Label: 'BEDS OUT-OF-SERVICE' FileMan Field Number: '.21' This computed field will display the number of beds on this ward that are currently listed as out-of-service. %Library.Numeric 1 14 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D BOS^DGPMDDCF set {BEDS_OUTOFSERVICE}=X 1 BEDS_OUTOFSERVICE FileMan Field Label: 'CURRENTLY OUT-OF-SERVICE?' FileMan Field Number: '.2' This is a computed field to determine whether this ward is currently out of service. A 1 will be returned if it is, otherwise, 0 will be returned. %Library.String 1 13 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D WIN^DGPMDDCF set {CURRENTLY_OUTOFSERVICE}=X 1 CURRENTLY_OUTOFSERVICE FileMan Field Label: 'FY TARGET' FileMan Field Number: '.07' Enter the target number of patients to be deen during a particular fiscal year. %Library.Numeric 8 FY_TARGET %Library.String 1 19 s {GL_HEADER}=$e({NODE_HEADER},1,89) 1 GL_HEADER %Library.Numeric 17 GL_ORDER Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIC(42,0),""^"",3)") 1 2 IEN FileMan Field Label: 'INTERMEDIATE MEDICINE - LTC' FileMan Field Number: '.17' Intermediate Medicine Service can provide both acute care and long term care. The long term care wards must utilize the RAI/MDS tool. Therefore, this field is needed to distinguish between the acute care and long term care wards. This field only applies to those wards that have a service of "INTERMEDIATE MED". When this field contains a "1" representing "Yes", the business rules that apply to a nursing home patient will be followed for patients in this ward. For example, a patient in this ward requiring acute care will need to be sent Absent Sick In Hospital (ASIH) for no longer than 30 days. Patient will be discharged from this ward if he exceeds the 30 day timeframe. %Library.EnumString 12 INTERMEDIATE_MEDICINE__LTC FileMan Field Label: 'NAME' FileMan Field Number: '.01' Enter in this field the name of the ward location as selectable using bed control options in MAS. Mixing ward names that are pure numbers (4,5,6...) with ward names that are alphabetic (A,B,C...) or with ward names that combine numbers with alphas (4A, 4B, 5C...) may yield unexpected results when printing output sorted by ward. %Library.String 1 3 NAME Computed Field For Node HEADER %Library.String 1 18 s {NODE_HEADER}=$g(^DIC(42,{IEN},"HEADER")) 1 NODE_HEADER FileMan Field Label: '*NSERV' FileMan Field Number: '1491' Enter the nursing service associated with this ward. %Library.EnumString 21 NSERV FileMan Field Label: 'OPERATING BEDS' FileMan Field Number: '.23' This computed field will display the number of operating beds currently existing on this ward. Operating beds = Authorized beds - Out-of-service beds. %Library.Numeric 1 16 set U="^",X=$zd($h),%DT="X" do ^%DT set DT=Y for i=1:1:$l({RowId},"||") set @("D"_(i-1))=$p({RowId},"||",i) D OPER^DGPMDDCF set {OPERATING_BEDS}=X 1 OPERATING_BEDS FileMan Field Label: 'PRIMARY LOCATION' FileMan Field Number: '.15' If this field is left blank, the primary location on the Bed Status Report will be 'UNKNOWN'. You may group different wards together for a 'mini' Bed Status Report, examples of what you might want to group are wards in the same physical location or wards of the same treating specialty, etc. %Library.String 11 PRIMARY_LOCATION FileMan Field Label: 'PRINT WARD ON WRISTBAND' FileMan Field Number: '.04' This field determines if the ward location is printed on the patient's wristband. If it is answered 'NO', it will not print, otherwise it will. %Library.EnumString 7 PRINT_WARD_ON_WRISTBAND FileMan Field Label: 'RAI/MDS WARD' FileMan Field Number: '.035' This field provides a parameter to determine whether HL7 messages should be generated and sent for patients in this ward to the RAI/MDS COTS system. %Library.EnumString 6 RAIMDS_WARD FileMan Field Label: 'SERIOUSLY ILL' FileMan Field Number: '.09' If patients seen on this ward are typically seriously ill, enter yes here. When admitting or transferring patients to this ward their status will be changed to seriously ill (unless the users chooses otherwise). %Library.EnumString 9 SERIOUSLY_ILL FileMan Field Label: 'SERVICE' FileMan Field Number: '.03' Enter the service of the ward. Choose from the available list. This service is used by various MAS reports to determine how inpatient stays on this ward should be counted. This should be answered carefully. %Library.EnumString 5 SERVICE FileMan Field Label: 'TERMINAL' FileMan Field Number: '.1' Enter the device number ($I value) on which inpatient reports for this ward should print. %Library.Numeric 10 TERMINAL SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 22 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIC(42," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(42,"+1,",.01)={"NAME"} set:{BEDSECTION}'="" FDA(42,"+1,",.02)={"BEDSECTION"} set:{SERVICE}'="" FDA(42,"+1,",.03)={"SERVICE"} set:{RAIMDS_WARD}'="" FDA(42,"+1,",.035)={"RAIMDS_WARD"} set:{PRINT_WARD_ON_WRISTBAND}'="" FDA(42,"+1,",.04)={"PRINT_WARD_ON_WRISTBAND"} set:{FY_TARGET}'="" FDA(42,"+1,",.07)={"FY_TARGET"} set:{SERIOUSLY_ILL}'="" FDA(42,"+1,",.09)={"SERIOUSLY_ILL"} set:{TERMINAL}'="" FDA(42,"+1,",.1)={"TERMINAL"} set:{PRIMARY_LOCATION}'="" FDA(42,"+1,",.15)={"PRIMARY_LOCATION"} set:{INTERMEDIATE_MEDICINE__LTC}'="" FDA(42,"+1,",.17)={"INTERMEDIATE_MEDICINE__LTC"} set:{GL_ORDER}'="" FDA(42,"+1,",400)={"GL_ORDER"} set:{NSERV}'="" FDA(42,"+1,",1491)={"NSERV"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(42)") set %SkipFiling=1 if $d(%FMERR(42,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(42)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(42,IENS,.01)={NAME} set:{BEDSECTION*C} FDA(42,IENS,.02)={BEDSECTION} set:{SERVICE*C} FDA(42,IENS,.03)={SERVICE} set:{RAIMDS_WARD*C} FDA(42,IENS,.035)={RAIMDS_WARD} set:{PRINT_WARD_ON_WRISTBAND*C} FDA(42,IENS,.04)={PRINT_WARD_ON_WRISTBAND} set:{FY_TARGET*C} FDA(42,IENS,.07)={FY_TARGET} set:{SERIOUSLY_ILL*C} FDA(42,IENS,.09)={SERIOUSLY_ILL} set:{TERMINAL*C} FDA(42,IENS,.1)={TERMINAL} set:{PRIMARY_LOCATION*C} FDA(42,IENS,.15)={PRIMARY_LOCATION} set:{INTERMEDIATE_MEDICINE__LTC*C} FDA(42,IENS,.17)={INTERMEDIATE_MEDICINE__LTC} set:{GL_ORDER*C} FDA(42,IENS,400)={GL_ORDER} set:{NSERV*C} FDA(42,IENS,1491)={NSERV} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(42)") set %SkipFiling=1 if $d(%FMERR(42,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(42)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.prost7939.WARDLOCATION42S index ^DIC nonnull 42 "AGL" {GL_ORDER} {IEN} 0]]> index ^DIC nonnull 42 "B" {NAME} {IEN} 0]]> index ^DIC nonnull 42 "D" {SERVICE} {IEN} 0]]> index ^DIC nonnull 42 "E" {NSERV} {IEN} 0]]> data ^DIC 42 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 9 "^" "ORDER" 1 "^" 0 17 "^" 0 1 "^" 0 7 "^" 0 15 "^" 0 4 "^" 0 16 "^" 0 14 "^" 0 3 "^" 0 10 Generated class for FileMan File Number: '1.71' File Name: 'WORLD TIMEZONES' Class generated by %fm2class version 2.56 This file denotes time zone designations used throughout the world. persistent _PUBLIC 0 RowId WORLD_TIMEZONES_1_71 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.220584247 67178,44737.208167766 right WORLD TIMEZONES 1.71 2.56 12/04/2024 12:25:37 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^DIT(1.71,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NAME' FileMan Field Number: '.01' This is the name of the timezone. %Library.String 1 3 NAME Relationship for Sub-File/Multiple to file name TIMEFRAME child VALIP.prosthetic.fm2cw.SUBTIMEFRAME1711 children WORLDTIMEZONES171 1 SUB_TIMEFRAME_1_711 SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 4 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^DIT(1.71," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{NAME}'="" FDA(1.71,"+1,",.01)={"NAME"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(1.71)") set %SkipFiling=1 if $d(%FMERR(1.71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1.71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{NAME*C} FDA(1.71,IENS,.01)={NAME} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(1.71)") set %SkipFiling=1 if $d(%FMERR(1.71,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(1.71)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.WORLDTIMEZOF72CS index {NAME}'="" 1 ^DIT conditional 1.71 "B" $$TRUNCATE({NAME},30)) {IEN} 0]]> data ^DIT 1.71 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 1 Generated class for FileMan File Number: '712' File Name: '1010EZ HOLDING' Class generated by %fm2class version 2.56 Each record in this file holds the contents of an On-Line 10-10EZ Application as received via e-mail at this site. As the 10-10EZ Application is processed by the user, processing audit information is also stored here. This file may not be directly edited through FileMan. persistent _PUBLIC 0 RowId f1010EZ_HOLDING_712 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.258120425 67178,44708.996772418 right 1010EZ HOLDING 712 2.56 12/04/2024 12:25:08 1 1 IEN 1 FileMan Field Label: 'APPLICANT E-MAIL' FileMan Field Number: '4.3' This is the internet e-mail address supplied by the Applicant in the On-Line 10-10EZ. %Library.String 17 APPLICANT_EMAIL FileMan Field Label: 'APPLICANT NAME' FileMan Field Number: '1' The Applicant's name as entered in the On-Line 10-10EZ. %Library.String 6 APPLICANT_NAME %Library.String 7 APPLICANT_SSNDOB FileMan Field Label: 'APPLICATION #' FileMan Field Number: '.01' A unique sequential identifier assigned by the 1010EZ module to each Application. %Library.Numeric 1 3 APPLICATION_ FileMan Field Label: 'APPLYING TO' FileMan Field Number: '4.5' The Station Number for the facility to which the Applicant has directed the Application. This would indicate the Preferred Facility for Enrollment. %Library.String 19 APPLYING_TO FileMan Field Label: 'APPOINTMENT REQUESTED' FileMan Field Number: '4.4' This field indicates whether or not the Applicant wishes to request an appointment at the medical center. %Library.EnumString 18 APPOINTMENT_REQUESTED FileMan Field Label: 'CLOSE DATE' FileMan Field Number: '9.1' The date in this field is the date the user inactivated this 10-10EZ Application. Data is entered into this field when the user takes the "Inactivate 1010EZ (IZ)" action within the EAS EZ 1010EZ PROCESSING option. %Library.FilemanDate 25 CLOSE_DATE FileMan Field Label: 'COMMENTS' FileMan Field Number: '13' This word-processing field holds whatever the Applicant entered in the On-Line 10-10EZ in the Comments section of the Application. %Library.String 28 COMMENTS FileMan Field Label: 'DATE SIGNED BY APPLICANT' FileMan Field Number: '4' The date in this field is the date the user verified receipt of a signed 10-10EZ from the Applicant. Data is entered into this field when the user takes the "Verify Signature (VZ)" action within the EAS EZ 1010EZ PROCESSING option. %Library.FilemanDate 15 DATE_SIGNED_BY_APPLICANT FileMan Field Label: 'ENTRY DATE' FileMan Field Number: '3' This is the date that the incoming 10-10EZ Application was received and entered into this holding file record. %Library.FilemanDate 8 ENTRY_DATE FileMan Field Label: 'EXPECT COPY FROM VET' FileMan Field Number: '3.7' When completing the On-Line 10-10EZ, the Applicant must indicate whether or not he will print the 10-10EZ from the web application in order to sign and send to the VHA site. If this field holds a "YES", then the site should expect a signed copy of the 10-10EZ via surface mail from the Applicant. If this fields holds a "NO", then site personnel should begin processing of the 10-10EZ, generate a print-out and send it to the Applicant for signature. %Library.EnumString 13 EXPECT_COPY_FROM_VET FileMan Field Label: 'FILING DATE' FileMan Field Number: '7.1' The date in this field is the date the user filed the Application data to the site's Patient database. Data is entered into this field when the user takes the "File 1010EZ (FZ)" action within the EAS EZ 1010EZ PROCESSING option. %Library.FilemanDate 23 FILING_DATE FileMan Field Label: 'FILING TASK' FileMan Field Number: '9.3' Contains the identity of the background task which will file the data from the 10-10EZ Holding file to other VistA files. This is set from the ZTSK variable returned by the call to ^%ZTLOAD. %Library.String 26 FILING_TASK FileMan Field Label: 'FINANCIAL DISCLOSURE' FileMan Field Number: '3.8' Applicant's with certain Veteran Type indicators such as "NSC", must indicate during the On-Line 10-10EZ process whether or not they intend to disclose financial information. The "YES" or "NO" in this field indicates whether the Applicant has agreed to provide financial information. %Library.EnumString 14 FINANCIAL_DISCLOSURE Internal Entry Number %Library.String $$next^%apiSQL("$p(^EAS(712,0),""^"",3)") 1 2 IEN FileMan Field Label: 'NEW PATIENT' FileMan Field Number: '3.5' If the user created a new record in the PATIENT file (#2) when "Link to Patient File (LZ)" action was performed, then this field will contain a "1". Otherwise, it is null. %Library.EnumString 11 NEW_PATIENT FileMan Field Label: 'PRINT DATE' FileMan Field Number: '6.1' The date in this field is the date that the user first printed this 10-10EZ Application. Data is entered into this field when the user takes the "Print 1010EZ (PZ)" action within the EAS EZ 1010EZ PROCESSING option. The Application may be printed any number of times, but only the first print data is recorded. %Library.FilemanDate 22 PRINT_DATE FileMan Field Label: 'RELATED MESSAGE #' FileMan Field Number: '.2' This is the internal entry number of the VistA MailMan message that contains the 10-10EZ Application. The message was processed by the EAS EZ SERVER into this file. %Library.String 5 RELATED_MESSAGE_ FileMan Field Label: 'REVIEW DATE' FileMan Field Number: '5.1' The date in this field is the date the user linked the Applicant to the site's Patient database. Data is entered into this field when the user takes the "Link to Patient File (LZ)" action within the EAS EZ 1010EZ PROCESSING option. %Library.FilemanDate 21 REVIEW_DATE FileMan Field Label: 'SERVICES REQUESTED' FileMan Field Number: '12' This free text field holds whatever the Applicant entered in the On-Line 10-10EZ to indicate the VA services in which he is interested. %Library.String 27 SERVICES_REQUESTED FileMan Field Label: 'SIG. REMOVAL DATE' FileMan Field Number: '4.6' This is the date on which Signature Verification was removed by a user. This is done through the EAS EZ REMOVE SIGNATURE option. %Library.FilemanDate 20 SIG__REMOVAL_DATE FileMan Field Label: 'SOURCE' FileMan Field Number: '3.2' The data in this field indicates the source of the 10-10EZ Application. By default, all Applications have a source of "Web". %Library.EnumString 9 SOURCE FileMan Field Label: 'UPDATE DATE' FileMan Field Number: '8.1' The date in this field is the date that the user first updated (i.e., directly edited) any 10-10EZ Application data. Data is entered into this field the first time the user takes the "Update Field (UF)" action within the EAS EZ 1010EZ PROCESSING option. %Library.FilemanDate 24 UPDATE_DATE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 29 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 FileMan Field Label: 'VERIFY DATE' FileMan Field Number: '4.1' The date in this field is the date the user verified receipt of a signed 10-10EZ from the Applicant. Data is entered into this field when the user takes the "Verify Signature (VZ)" action within the EAS EZ 1010EZ PROCESSING option. %Library.FilemanDate 16 VERIFY_DATE FileMan Field Label: 'VERSION #' FileMan Field Number: '3.6' The version number of the On-Line 10-10EZ software which transmitted the 10-10EZ to VistA. %Library.String 12 VERSION_ %Library.EnumString 10 VETERAN_TYPE FileMan Field Label: 'WEB SUBMISSION ID' FileMan Field Number: '.1' The unique identifier assigned by the On-Line 10-10EZ software to each submitted Application. %Library.String 4 WEB_SUBMISSION_ID BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^EAS(712," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{APPLICATION_}'="" FDA(712,"+1,",.01)={"APPLICATION_"} set:{WEB_SUBMISSION_ID}'="" FDA(712,"+1,",.1)={"WEB_SUBMISSION_ID"} set:{RELATED_MESSAGE_}'="" FDA(712,"+1,",.2)={"RELATED_MESSAGE_"} set:{APPLICANT_NAME}'="" FDA(712,"+1,",1)={"APPLICANT_NAME"} set:{APPLICANT_SSNDOB}'="" FDA(712,"+1,",2)={"APPLICANT_SSNDOB"} set:{ENTRY_DATE}'="" FDA(712,"+1,",3)={"ENTRY_DATE"} set:{SOURCE}'="" FDA(712,"+1,",3.2)={"SOURCE"} set:{VETERAN_TYPE}'="" FDA(712,"+1,",3.3)={"VETERAN_TYPE"} set:{NEW_PATIENT}'="" FDA(712,"+1,",3.5)={"NEW_PATIENT"} set:{VERSION_}'="" FDA(712,"+1,",3.6)={"VERSION_"} set:{EXPECT_COPY_FROM_VET}'="" FDA(712,"+1,",3.7)={"EXPECT_COPY_FROM_VET"} set:{FINANCIAL_DISCLOSURE}'="" FDA(712,"+1,",3.8)={"FINANCIAL_DISCLOSURE"} set:{DATE_SIGNED_BY_APPLICANT}'="" FDA(712,"+1,",4)={"DATE_SIGNED_BY_APPLICANT"} set:{VERIFY_DATE}'="" FDA(712,"+1,",4.1)={"VERIFY_DATE"} set:{APPLICANT_EMAIL}'="" FDA(712,"+1,",4.3)={"APPLICANT_EMAIL"} set:{APPOINTMENT_REQUESTED}'="" FDA(712,"+1,",4.4)={"APPOINTMENT_REQUESTED"} set:{APPLYING_TO}'="" FDA(712,"+1,",4.5)={"APPLYING_TO"} set:{SIG__REMOVAL_DATE}'="" FDA(712,"+1,",4.6)={"SIG__REMOVAL_DATE"} set:{REVIEW_DATE}'="" FDA(712,"+1,",5.1)={"REVIEW_DATE"} set:{PRINT_DATE}'="" FDA(712,"+1,",6.1)={"PRINT_DATE"} set:{FILING_DATE}'="" FDA(712,"+1,",7.1)={"FILING_DATE"} set:{UPDATE_DATE}'="" FDA(712,"+1,",8.1)={"UPDATE_DATE"} set:{CLOSE_DATE}'="" FDA(712,"+1,",9.1)={"CLOSE_DATE"} set:{FILING_TASK}'="" FDA(712,"+1,",9.3)={"FILING_TASK"} set:{SERVICES_REQUESTED}'="" FDA(712,"+1,",12)={"SERVICES_REQUESTED"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(712)") set %SkipFiling=1 if $d(%FMERR(712,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(712)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS}'="" { set D0={RowId} for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) } do WP^DIE(712,{RowId},13,,"wp","%FMERR(712)") if $d(%FMERR(712,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(712)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{APPLICATION_*C} FDA(712,IENS,.01)={APPLICATION_} set:{WEB_SUBMISSION_ID*C} FDA(712,IENS,.1)={WEB_SUBMISSION_ID} set:{RELATED_MESSAGE_*C} FDA(712,IENS,.2)={RELATED_MESSAGE_} set:{APPLICANT_NAME*C} FDA(712,IENS,1)={APPLICANT_NAME} set:{APPLICANT_SSNDOB*C} FDA(712,IENS,2)={APPLICANT_SSNDOB} set:{ENTRY_DATE*C} FDA(712,IENS,3)={ENTRY_DATE} set:{SOURCE*C} FDA(712,IENS,3.2)={SOURCE} set:{VETERAN_TYPE*C} FDA(712,IENS,3.3)={VETERAN_TYPE} set:{NEW_PATIENT*C} FDA(712,IENS,3.5)={NEW_PATIENT} set:{VERSION_*C} FDA(712,IENS,3.6)={VERSION_} set:{EXPECT_COPY_FROM_VET*C} FDA(712,IENS,3.7)={EXPECT_COPY_FROM_VET} set:{FINANCIAL_DISCLOSURE*C} FDA(712,IENS,3.8)={FINANCIAL_DISCLOSURE} set:{DATE_SIGNED_BY_APPLICANT*C} FDA(712,IENS,4)={DATE_SIGNED_BY_APPLICANT} set:{VERIFY_DATE*C} FDA(712,IENS,4.1)={VERIFY_DATE} set:{APPLICANT_EMAIL*C} FDA(712,IENS,4.3)={APPLICANT_EMAIL} set:{APPOINTMENT_REQUESTED*C} FDA(712,IENS,4.4)={APPOINTMENT_REQUESTED} set:{APPLYING_TO*C} FDA(712,IENS,4.5)={APPLYING_TO} set:{SIG__REMOVAL_DATE*C} FDA(712,IENS,4.6)={SIG__REMOVAL_DATE} set:{REVIEW_DATE*C} FDA(712,IENS,5.1)={REVIEW_DATE} set:{PRINT_DATE*C} FDA(712,IENS,6.1)={PRINT_DATE} set:{FILING_DATE*C} FDA(712,IENS,7.1)={FILING_DATE} set:{UPDATE_DATE*C} FDA(712,IENS,8.1)={UPDATE_DATE} set:{CLOSE_DATE*C} FDA(712,IENS,9.1)={CLOSE_DATE} set:{FILING_TASK*C} FDA(712,IENS,9.3)={FILING_TASK} set:{SERVICES_REQUESTED*C} FDA(712,IENS,12)={SERVICES_REQUESTED} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(712)") set %SkipFiling=1 if $d(%FMERR(712,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(712)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } if {COMMENTS*C} { set D0={RowId} kill wp if {COMMENTS}'="" { set wproot="wp" for i=1:1:$l({COMMENTS},$c(13,10)) { set wp(i)=$p({COMMENTS},$c(13,10),i) }} else { set wproot="@" } do WP^DIE(712,{RowId},13,,wproot,"%FMERR(712)") if $d(%FMERR(712,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(712)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN }} RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.f1010EZHOLDC0D6S index ^EAS nonnull 712 "B" {APPLICATION_} {IEN} 0]]> index {APPLICANT_NAME}'="" 1 ^EAS conditional 712 "C" $$TRUNCATE({APPLICANT_NAME},30)) {IEN} 0]]> index ^EAS nonnull 712 "D" {APPLICANT_SSNDOB} {IEN} 0]]> index ^EAS nonnull 712 "W" {WEB_SUBMISSION_ID} {IEN} 0]]> data ^EAS 712 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 1 4 "^" 0 4 "^" 0 5 "^" 0 1 "^" 1 6 "^" 1 5 "^" 2 9 4 new data,i,node set {COMMENTS}="" merge data=^EAS(712,{S2},4) set node=0 for i=1:1 { set node=$o(data(node)) quit:'node set {COMMENTS}={COMMENTS}_$s(i=1:"",1:$c(32,13,10))_$g(data(node,0))} "^" 1 1 "^" 0 6 "^" 0 13 "^" 2 5 "^" 2 11 "^" 0 14 "^" 0 11 "^" 2 3 "^" 0 3 "^" 2 1 "^" 3 1 "^" 1 7 "^" 0 8 "^" 2 7 "^" 1 2 "^" 0 12 "^" 0 9 "^" 0 2 Generated class for FileMan File Number: '19908.61' File Name: '3M APC CLAIM TYPE' Class generated by %fm2class version 2.56 persistent _PUBLIC 0 RowId f3M_APC_CLAIM_TYPE_19908_61 SQLStorage %Library.Persistent,%XML.Adaptor,%JSON.Adaptor 67178,44742.260313613 67178,44709.067565707 right 3M APC CLAIM TYPE 19908.61 2.56 12/04/2024 12:25:09 1 1 IEN 1 Internal Entry Number %Library.String $$next^%apiSQL("$p(^VEPE3M(19908.61,0),""^"",3)") 1 2 IEN FileMan Field Label: 'TEXT' FileMan Field Number: '2' This is the text of the numeric value which describes what the claim value means. %Library.String 4 TEXT FileMan Field Label: 'VALUE' FileMan Field Number: '.01' This field is a numeric value representing the APC claim type. This value is passed back by 3M. %Library.String 1 3 VALUE SqlComputed field that computes the VA_SITE for this table's File %Library.String 1 1 5 if $g(%ISCFM2ClassSVASiteID($namespace))="" { new X set X="NOW" do ^%DT set DT=Y set ({*},%ISCFM2ClassSVASiteID($namespace))=$p($$SITE^VASITE,"^",3) } else { set {*}=%ISCFM2ClassSVASiteID($namespace) } 1 VA_SITE 1 BEFORE Trigger to perform filing new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y do DTNOLF^DICRW set DIK="^VEPE3M(19908.61," set DA={%%ID} do ^DIK set %SkipFiling=1 RETURN DELETE BeforeDeleteFiling BEFORE INSERT Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,FDAIEN,i,IO,U,wp set FDAIEN(1)={IEN} set:{VALUE}'="" FDA(19908.61,"+1,",.01)={"VALUE"} set:{TEXT}'="" FDA(19908.61,"+1,",2)={"TEXT"} do UPDATE^DIE("","FDA","FDAIEN","%FMERR(19908.61)") set %SkipFiling=1 if $d(%FMERR(19908.61,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19908.61)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN INSERT BeforeInsertFiling BEFORE UPDATE Trigger to perform filing new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new D0,FDA,i,IENS,IO,U,wp,wproot s IENS={IEN}_"," set:{VALUE*C} FDA(19908.61,IENS,.01)={VALUE} set:{TEXT*C} FDA(19908.61,IENS,2)={TEXT} d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(19908.61)") set %SkipFiling=1 if $d(%FMERR(19908.61,"DIERR")) { new err set U="^" do MSG^DIALOG("AT",.err,32768,,"%FMERR(19908.61)") set %ok=0 for err=1:1:err { set $p(%msg,$c(13,10),err)=$g(err(err)) } RETURN } RETURN UPDATE BeforeUpdateFiling SQLStorage defined by FM2Class mapper %Storage.SQL ^VALIP.pros7939.f3MAPCCLAIMC430S index ^VEPE3M nonnull 19908.61 "B" {VALUE} {IEN} 0]]> data ^VEPE3M 19908.61 {IEN} set:{L2}="" {L2}=0 set {L2}=$o(^({L2})) set:'{L2} {L2}="" ;PREV set:{L2}="" {L2}=$c(0) set {L2}=$o(^({L2}),-1) set:'{L2} {L2}="" 0]]> "^" 0 2 "^" 0 1 1 %REST.Impl 67151,83877.656605981 67151,83877.655133116 Process request SwaggerSpec /_spec 1 %Status Service implemntation for post /orders 1 messageRequest:VALIP.prosthetic.requests.ordersPOST %Status 1 1 %JSON.Adaptor,%RegisteredObject 67151,83877.633624432 67151,83877.631519625 left File 123 Field 3. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .151. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .01. %String The Consult File 123 ien. %String The Patient File 2 associated with the medical care. VALIP.prosthetic.model.GetOrdersResponsepatient File 123 Field 20 REASON FOR REQUEST. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .151. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .01. %String File 123 Field 1 TO SERVICE pointer to Request Services subfile 123.5 Field .01. %String File 123 Field .07 ROUTING FACILITY pointer to Institution File 4 Field 99. Not the path param. %String The Record of Prosthetic Appliance/Repair File 660. The main File of record for prosthetic purchasing transactions. VALIP.prosthetic.model.GetOrdersResponsetransaction 1 %JSON.Adaptor,%RegisteredObject 67151,83877.636523537 67151,83877.635405119 left File 123 Field 20 REASON FOR REQUEST line 1 (123.01 1st entry). Used to describe the consult prosthetics. For example, EYEGLASSES AND FRAME. %String File 123.5 Field .01 SERVICE NAME. The type of prosthetics service. Normally EYEGLASSES. %String File 123 Field 3 DATE OF REQUEST. The starting date used to limit the query search. YYYYMMDD %String The status of the order. %String 1 1 %JSON.Adaptor,%RegisteredObject 67151,83877.628442001 67151,83877.628003085 left Consult File 123. VALIP.prosthetic.model.GetOrdersResponseorders list 1 %JSON.Adaptor,%RegisteredObject 67151,83877.646597086 67151,83877.644395777 left File 123 Field 3. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .151. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 4 WHO ENTERED ACTIVITY pointer to File 200 Field .01. %String The Consult File 123 ien. %String The Patient File 2 associated with the medical care. VALIP.prosthetic.model.GetOrdersResponsepatient File 123 Field 20 REASON FOR REQUEST. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .151. %String File 123 Field 40 REQUEST PROCESSING ACTIVITY subfile 123.02 Field 3 WHO'S RESPONSIBLE FOR ACTIVITY pointer to File 200 Field .01. %String File 123 Field 1 TO SERVICE pointer to Request Services subfile 123.5 Field .01. %String File 123 Field .07 ROUTING FACILITY pointer to Institution File 4 Field 99. Not the path param. %String The Record of Prosthetic Appliance/Repair File 660. The main File of record for prosthetic purchasing transactions. VALIP.prosthetic.model.GetOrdersResponsetransaction 1 %JSON.Adaptor,%RegisteredObject 67151,83877.641888076 67151,83877.64000136 left The Patient File 2 Field .111. %String The Patient File 2 Field .112. %String The Patient File 2 Field .113. %String The Patient File 2 Field .114. %String The Patient File 2 ien. %String The Patient File 2 Field .01. The name of the patient. %String The Patient File 2 Field .09. The social security number of the patient. %String The Patient File 2 Field .115. %String The Patient File 2 Field .116. %String 1 %JSON.Adaptor,%RegisteredObject 67151,83877.644093875 67151,83877.643148977 left File 660 Field 39. %String The Appliance Repair File 660 ien. %String The Prosthetic Suspense File 668. VALIP.prosthetic.model.GetOrdersResponsetransactionsuspense 1 %JSON.Adaptor,%RegisteredObject 67151,83877.642881917 67151,83877.642350238 left File 668 Field 11 multiple pointer to subfile 668.011 Field 1 ACTION NOTE. %String 1 %JSON.Adaptor,%RegisteredObject 67151,83877.627731009 67151,83877.627035002 left The HTTP Status Code for the request. Used primarily for batch responses. %Integer Message explaining why something went wrong, or success if request processed without error. %String 1 %JSON.Adaptor,%RegisteredObject 67151,83877.630360231 67151,83877.628698078 left The Patient File 2 Field .111. %String The Patient File 2 Field .112. %String The Patient File 2 Field .113. %String The Patient File 2 Field .114. %String The Patient File 2 ien. %String The Patient File 2 Field .01. The name of the patient. %String The Patient File 2 Field .09. The social security number of the patient. %String The Patient File 2 Field .115. %String The Patient File 2 Field .116. %String 1 %JSON.Adaptor,%RegisteredObject 67151,83877.631253741 67151,83877.630732106 left File 668 Field 11 multiple pointer to subfile 668.011 Field 1 ACTION NOTE. %String 1 %JSON.Adaptor,%RegisteredObject 67151,83877.63497669 67151,83877.634047741 left File 660 Field 39. %String The Appliance Repair File 660 ien. %String The Prosthetic Suspense File 668. VALIP.prosthetic.model.GetOrdersResponsetransactionsuspense 1 %JSON.Adaptor,%RegisteredObject 67151,83877.638800925 67151,83877.638283602 left Consult File 123. VALIP.prosthetic.model.GetOrdersResponseorders list 1 %JSON.Adaptor,%RegisteredObject 67151,83877.639726459 67151,83877.639049084 left The HTTP Status Code for the request. Used primarily for batch responses. %Integer Message explaining why something went wrong, or success if request processed without error. %String 1 %JSON.Adaptor,%RegisteredObject 67778,56580.238929896 67151,83877.636859383 left File 123 Field 20 REASON FOR REQUEST line 1 (123.01 1st entry). Used to describe the consult prosthetics. For example, EYEGLASSES AND FRAME. %String File 123.5 Field .01 SERVICE NAME. The type of prosthetics service. Normally EYEGLASSES. %String File 123 Field 3 DATE OF REQUEST. The starting date used to limit the query search. YYYYMMDD %String The status of the order. %String 1 1 %RegisteredObject 67151,63142.0645516 67151,83877.647171519 %String %String %String ..#URL Authorization: SAML TokenString %String Use this property for body content with content-type = application/json. VALIP.prosthetic.model.ordersbody Load object properties from %CSP.Request object. request:%CSP.Request=%request %Status Load object properties from %CSP.Request object. %Status post /orders VALIP.prosthetic.Macros IService,%RegisteredObject 66989,50976.001169188 66989,50976.001169188 VALIP.prosthetic.service.llservice.authenticator.IAuthenticator authenticator:VALIP.prosthetic.service.llservice.authenticator.IAuthenticator %Status params:%DynamicObject %Status VALIP.prosthetic.Macros IService,%RegisteredObject 67698,40636.806063368 66989,50977.1026267 VALIP.prosthetic.service.llservice.dbmgr.IDBMgr dbMgr:VALIP.prosthetic.service.llservice.dbmgr.IDBMgr %Status params:%DynamicObject,*result:%DynamicObject %Status 1 67697,59613.667887084 66989,50975.878316215 1 params:%DynamicObject,*result:%DynamicObject %Status VALIP.prosthetic.Macros IService,%RegisteredObject 67704,57372.189234619 67150,56846.822956767 VALIP.prosthetic.service.llservice.dbmgr.IDBMgr dbMgr:VALIP.prosthetic.service.llservice.dbmgr.IDBMgr %Status params:%DynamicObject,*result:%DynamicObject %Status VALIP.prosthetic.Macros IAuthenticator,%RegisteredObject 67012,38693.13883611 66989,50976.313242611 params:%DynamicObject 0 %Status 5)!(timeDiff < -5) { Return $$$InvalidTimestamp } Do USER^XUS(DUZ) Set checkValid = $$UVALID^XUS If (checkValid > 0) { Return $$$InvalidUser } } Catch ex { Return ex.AsStatus() } Return $$$OK ]]> 1 66989,50976.312098684 66989,50976.312098684 1 params:%DynamicObject %Status VALIP.prosthetic.Macros IDBMgr,%RegisteredObject 67778,56642.782626174 66989,50975.83503915 1 1 params:VALIP.prosthetic.model.ordersbody,*result:%DynamicObject %Status 1 prostheticType:%String,startDate:%String,endDate:%String,consultDescriptor:%String,*result:%DynamicObject %Status IEN ,S123.PATIENT_NAME->NAME ,S123.PATIENT_NAME->SOCIAL_SECURITY_NUMBER ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_1 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_2 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_3 ,S123.PATIENT_NAME->CITY ,S123.PATIENT_NAME->STATE->NAME ,S123.PATIENT_NAME->ZIP_CODE ,S123.ORDERING_FACILITY ,S123.TO_SERVICE->SERVICE_NAME ,S123.DATE_OF_REQUEST ,S123.REASON_FOR_REQUEST ,VALIP_prosthetic_sql.SqlProc_EBSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_EBSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_GetComment(S123.IEN) INTO :ien123, :ien2, :name2, :ssn2, :address12, :address22, :address32, :city2, :state2, :zip2, :stationNumber4, :serviceName, :dateOfRequest123, :reason123, :enteredByStaffName200, :enteredByStaffEmail200, :responsibleStaffName200, :responsibleStaffEmail200, :latestComment123 FROM VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 S123 WHERE S123.DATE_OF_REQUEST >=:startDate AND CPRS_STATUS > 4 AND CPRS_STATUS < 7 AND TO_SERVICE->SERVICE_NAME = :prostheticType AND REASON_FOR_REQUEST LIKE :consultDescriptor ) &sql(OPEN C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Open C1: " _ SQLCODE _ " " _ %msg) } &sql(FETCH C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Fetch C1:" _ SQLCODE _ " " _ %msg) } Set prostheticRequests = [] While (SQLCODE = 0) { Set prostheticRequest = {} Do prostheticRequest.%Set("consult_ien-123",ien123,"number") Do prostheticRequest.%Set("patient_ien-123_p02-2", ien2, "number") Do prostheticRequest.%Set("patient_name-123_p02-2_p01",name2, "string") Do prostheticRequest.%Set("patient_ssn-123_p02-2_p09", ssn2, "string") Do prostheticRequest.%Set("patient_address_1-123_p02-2_p111", address12, "string") Do prostheticRequest.%Set("patient_address_2-123_p02-2_p112", address22, "string") Do prostheticRequest.%Set("patient_address_3-123_p02-2_p113", address32, "string") Do prostheticRequest.%Set("patient_city-123_p02-2_p114", city2, "string") Do prostheticRequest.%Set("patient_state-123_p02-2_p115", state2, "string") Do prostheticRequest.%Set("patient_zip-123_p02-2_p116", zip2, "string") Do prostheticRequest.%Set("station_number-123_p05-4_99", stationNumber4, "string") Do prostheticRequest.%Set("service_name-123_1-123p5_p01", serviceName, "string") Do prostheticRequest.%Set("date_of_request-123_3", dateOfRequest123+17000000, "string") //convert to hl7 date format Do prostheticRequest.%Set("reason-123_20", reason123, "string") Do prostheticRequest.%Set("entered_by_staff_name-123_40-123p02_4-200_p01", enteredByStaffName200, "string") Do prostheticRequest.%Set("entered_by_staff_email-123_40-123p02_4-200_p151", enteredByStaffEmail200, "string") Do prostheticRequest.%Set("responsible_staff_name-123_40-123p02_3-200_p01", responsibleStaffName200, "string") Do prostheticRequest.%Set("responsible_staff_email-123_40-123p02_3-200_p151", responsibleStaffEmail200, "string") Do prostheticRequest.%Set("comment-123_02_5",latestComment123, "string") Do prostheticRequests.%Push(prostheticRequest) &sql(FETCH C1) } &sql(CLOSE C1) Do result.%Set($$$ProstheticRequestsKey, prostheticRequests) /* W !,"prostheticType: "_prostheticType W !,"startDate : "_startDate W !," endDate: "_ endDate W !,"consultDescriptor: "_consultDescriptor W !,"status: open",! */ Return $$$OK ]]> 1 prostheticType:%String,startDate:%String,endDate:%String,consultDescriptor:%String,*result:%DynamicObject %Status IEN ,S123.PATIENT_NAME->NAME ,S123.PATIENT_NAME->SOCIAL_SECURITY_NUMBER ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_1 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_2 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_3 ,S123.PATIENT_NAME->CITY ,S123.PATIENT_NAME->STATE->NAME ,S123.PATIENT_NAME->ZIP_CODE ,S123.ORDERING_FACILITY ,S123.TO_SERVICE->SERVICE_NAME ,S123.DATE_OF_REQUEST ,S123.REASON_FOR_REQUEST ,VALIP_prosthetic_sql.SqlProc_EBSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_EBSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSEmail(S123.IEN) ,P660.IEN ,P660.DATE_OF_SERVICE ,VALIP_prosthetic_sql.SqlProc_GetCompletionNote(P660.IEN) ,VALIP_prosthetic_sql.SqlProc_GetComment(S123.IEN) INTO :ien123, :ien2, :name2, :ssn2, :address12, :address22, :address32, :city2, :state2, :zip2, :stationNumber4, :serviceName, :dateOfRequest123, :reason123, :enteredByStaffName200, :enteredByStaffEmail200, :responsibleStaffName200, :responsibleStaffEmail200, :ien660, :dateOfService660, :latestComment668, :latestComment123 FROM VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 P660 INNER JOIN VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 S123 ON P660.CONSULT = S123.IEN WHERE P660.ENTRY_DATE >=:startDate AND P660.DATE_OF_SERVICE IS NOT NULL AND CONVERT(float,P660.TOTAL_COST) <= 0 AND S123.TO_SERVICE->SERVICE_NAME = :prostheticType AND S123.REASON_FOR_REQUEST LIKE :consultDescriptor AND P660.TYPE_OF_TRANSACTION <> 'X' ) &sql(OPEN C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Open C1: " _ SQLCODE _ " " _ %msg) } &sql(FETCH C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Fetch C1:" _ SQLCODE _ " " _ %msg) } Set prostheticRequests = [] While (SQLCODE = 0) { Set prostheticRequest = {} Do prostheticRequest.%Set("consult_ien-123",ien123,"number") Do prostheticRequest.%Set("patient_ien-123_p02-2", ien2, "number") Do prostheticRequest.%Set("patient_name-123_p02-2_p01",name2, "string") Do prostheticRequest.%Set("patient_ssn-123_p02-2_p09", ssn2, "string") Do prostheticRequest.%Set("patient_address_1-123_p02-2_p111", address12, "string") Do prostheticRequest.%Set("patient_address_2-123_p02-2_p112", address22, "string") Do prostheticRequest.%Set("patient_address_3-123_p02-2_p113", address32, "string") Do prostheticRequest.%Set("patient_city-123_p02-2_p114", city2, "string") Do prostheticRequest.%Set("patient_state-123_p02-2_p115", state2, "string") Do prostheticRequest.%Set("patient_zip-123_p02-2_p116", zip2, "string") Do prostheticRequest.%Set("station_number-123_p05-4_99", stationNumber4, "string") Do prostheticRequest.%Set("service_name-123_1-123p5_p01", serviceName, "string") Do prostheticRequest.%Set("date_of_request-123_3", dateOfRequest123+17000000, "string") //convert to hl7 date format Do prostheticRequest.%Set("reason-123_20", reason123, "string") Do prostheticRequest.%Set("entered_by_staff_name-123_40-123p02_4-200_p01", enteredByStaffName200, "string") Do prostheticRequest.%Set("entered_by_staff_email-123_40-123p02_4-200_p151", enteredByStaffEmail200, "string") Do prostheticRequest.%Set("responsible_staff_name-123_40-123p02_3-200_p01", responsibleStaffName200, "string") Do prostheticRequest.%Set("responsible_staff_email-123_40-123p02_3-200_p151", responsibleStaffEmail200, "string") Do prostheticRequest.%Set("appliance_repair_ien-660", ien660, "string") Do prostheticRequest.%Set("date_of_service-660_39", dateOfService660, "string") Do prostheticRequest.%Set("latest_comment-668_11-m668p011_1",latestComment668, "string") Do prostheticRequest.%Set("comment-123_02_5",latestComment123, "string") Do prostheticRequests.%Push(prostheticRequest) &sql(FETCH C1) } &sql(CLOSE C1) Do result.%Set($$$ProstheticRequestsKey, prostheticRequests) /* W !,"prostheticType: "_prostheticType W !,"startDate : "_startDate W !," endDate: "_ endDate W !,"consultDescriptor: "_consultDescriptor W !,"status: pending",! */ Return $$$OK ]]> 1 prostheticType:%String,startDate:%String,endDate:%String,consultDescriptor:%String,*result:%DynamicObject %Status IEN ,S123.PATIENT_NAME->NAME ,S123.PATIENT_NAME->SOCIAL_SECURITY_NUMBER ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_1 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_2 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_3 ,S123.PATIENT_NAME->CITY ,S123.PATIENT_NAME->STATE->NAME ,S123.PATIENT_NAME->ZIP_CODE ,S123.ORDERING_FACILITY ,S123.TO_SERVICE->SERVICE_NAME ,S123.DATE_OF_REQUEST ,S123.REASON_FOR_REQUEST ,VALIP_prosthetic_sql.SqlProc_EBSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_EBSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSEmail(S123.IEN) ,P660.IEN ,P660.DATE_OF_SERVICE ,VALIP_prosthetic_sql.SqlProc_GetCompletionNote(P660.IEN) INTO :ien123, :ien2, :name2, :ssn2, :address12, :address22, :address32, :city2, :state2, :zip2, :stationNumber4, :serviceName, :dateOfRequest123, :reason123, :enteredByStaffName200, :enteredByStaffEmail200, :responsibleStaffName200, :responsibleStaffEmail200, :ien660, :dateOfService660, :latestComment668 FROM VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 P660 INNER JOIN VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 S123 ON P660.CONSULT = S123.IEN WHERE P660.ENTRY_DATE >=:startDate AND P660.DATE_OF_SERVICE IS NOT NULL AND CONVERT(float,P660.TOTAL_COST) <= 0 AND S123.TO_SERVICE->SERVICE_NAME = :prostheticType AND S123.REASON_FOR_REQUEST LIKE :consultDescriptor ) &sql(OPEN C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Open C1: " _ SQLCODE _ " " _ %msg) } &sql(FETCH C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Fetch C1:" _ SQLCODE _ " " _ %msg) } Set prostheticRequests = [] While (SQLCODE = 0) { Set prostheticRequest = {} Do prostheticRequest.%Set("consult_ien-123",ien123,"number") Do prostheticRequest.%Set("patient_ien-123_p02-2", ien2, "number") Do prostheticRequest.%Set("patient_name-123_p02-2_p01",name2, "string") Do prostheticRequest.%Set("patient_ssn-123_p02-2_p09", ssn2, "string") Do prostheticRequest.%Set("patient_address_1-123_p02-2_p111", address12, "string") Do prostheticRequest.%Set("patient_address_2-123_p02-2_p112", address22, "string") Do prostheticRequest.%Set("patient_address_3-123_p02-2_p113", address32, "string") Do prostheticRequest.%Set("patient_city-123_p02-2_p114", city2, "string") Do prostheticRequest.%Set("patient_state-123_p02-2_p115", state2, "string") Do prostheticRequest.%Set("patient_zip-123_p02-2_p116", zip2, "string") Do prostheticRequest.%Set("station_number-123_p05-4_99", stationNumber4, "string") Do prostheticRequest.%Set("service_name-123_1-123p5_p01", serviceName, "string") Do prostheticRequest.%Set("date_of_request-123_3", dateOfRequest123+17000000, "string") //convert to hl7 date format Do prostheticRequest.%Set("reason-123_20", reason123, "string") Do prostheticRequests.%Push(prostheticRequest) Do prostheticRequest.%Set("entered_by_staff_name-123_40-123p02_4-200_p01", enteredByStaffName200, "string") Do prostheticRequest.%Set("entered_by_staff_email-123_40-123p02_4-200_p151", enteredByStaffEmail200, "string") Do prostheticRequest.%Set("responsible_staff_name-123_40-123p02_3-200_p01", responsibleStaffName200, "string") Do prostheticRequest.%Set("responsible_staff_email-123_40-123p02_3-200_p151", responsibleStaffEmail200, "string") Do prostheticRequest.%Set("appliance_repair_ien-660", ien660, "string") Do prostheticRequest.%Set("date_of_service-660_39", dateOfService660, "string") Do prostheticRequest.%Set("latest_comment-668_11-m668p011_1",latestComment668, "string") &sql(FETCH C1) } &sql(CLOSE C1) Do result.%Set("orders", prostheticRequests) //change to orders /* W !,"prostheticType: "_prostheticType W !,"startDate : "_startDate W !," endDate: "_ endDate W !,"consultDescriptor: "_consultDescriptor W !,"status: completed",! */ Return $$$OK ]]> 1 prostheticType:%String,startDate:%String,endDate:%String,*result:%DynamicObject %Status IEN ,S123.PATIENT_NAME->NAME ,S123.PATIENT_NAME->SOCIAL_SECURITY_NUMBER ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_1 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_2 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_3 ,S123.PATIENT_NAME->CITY ,S123.PATIENT_NAME->STATE->NAME ,S123.PATIENT_NAME->ZIP_CODE ,S123.ORDERING_FACILITY ,S123.TO_SERVICE->SERVICE_NAME ,S123.DATE_OF_REQUEST ,S123.REASON_FOR_REQUEST ,VALIP_prosthetic_sql.SqlProc_EBSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_EBSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_GetComment(S123.IEN) INTO :ien123, :ien2, :name2, :ssn2, :address12, :address22, :address32, :city2, :state2, :zip2, :stationNumber4, :serviceName, :dateOfRequest123, :reason123, :enteredByStaffName200, :enteredByStaffEmail200, :responsibleStaffName200, :responsibleStaffEmail200, :latestComment123 FROM VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 S123 WHERE S123.DATE_OF_REQUEST >=:startDate AND CPRS_STATUS > 4 AND CPRS_STATUS < 7 AND TO_SERVICE->SERVICE_NAME = :prostheticType ) &sql(OPEN C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Open C1: " _ SQLCODE _ " " _ %msg) } &sql(FETCH C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Fetch C1:" _ SQLCODE _ " " _ %msg) } Set prostheticRequests = [] While (SQLCODE = 0) { Set prostheticRequest = {} Do prostheticRequest.%Set("consult_ien-123",ien123,"number") Do prostheticRequest.%Set("patient_ien-123_p02-2", ien2, "number") Do prostheticRequest.%Set("patient_name-123_p02-2_p01",name2, "string") Do prostheticRequest.%Set("patient_ssn-123_p02-2_p09", ssn2, "string") Do prostheticRequest.%Set("patient_address_1-123_p02-2_p111", address12, "string") Do prostheticRequest.%Set("patient_address_2-123_p02-2_p112", address22, "string") Do prostheticRequest.%Set("patient_address_3-123_p02-2_p113", address32, "string") Do prostheticRequest.%Set("patient_city-123_p02-2_p114", city2, "string") Do prostheticRequest.%Set("patient_state-123_p02-2_p115", state2, "string") Do prostheticRequest.%Set("patient_zip-123_p02-2_p116", zip2, "string") Do prostheticRequest.%Set("station_number-123_p05-4_99", stationNumber4, "string") Do prostheticRequest.%Set("service_name-123_1-123p5_p01", serviceName, "string") Do prostheticRequest.%Set("date_of_request-123_3", dateOfRequest123+17000000, "string") //convert to hl7 date format Do prostheticRequest.%Set("reason-123_20", reason123, "string") Do prostheticRequest.%Set("entered_by_staff_name-123_40-123p02_4-200_p01", enteredByStaffName200, "string") Do prostheticRequest.%Set("entered_by_staff_email-123_40-123p02_4-200_p151", enteredByStaffEmail200, "string") Do prostheticRequest.%Set("responsible_staff_name-123_40-123p02_3-200_p01", responsibleStaffName200, "string") Do prostheticRequest.%Set("responsible_staff_email-123_40-123p02_3-200_p151", responsibleStaffEmail200, "string") Do prostheticRequest.%Set("comment-123_02_5",latestComment123, "string") Do prostheticRequests.%Push(prostheticRequest) &sql(FETCH C1) } &sql(CLOSE C1) Do result.%Set($$$ProstheticRequestsKey, prostheticRequests) /* W !,"prostheticType: "_prostheticType W !,"startDate : "_startDate W !," endDate: "_ endDate W !,"status: open",! */ Return $$$OK ]]> 1 prostheticType:%String,startDate:%String,endDate:%String,*result:%DynamicObject %Status IEN ,S123.PATIENT_NAME->NAME ,S123.PATIENT_NAME->SOCIAL_SECURITY_NUMBER ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_1 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_2 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_3 ,S123.PATIENT_NAME->CITY ,S123.PATIENT_NAME->STATE->NAME ,S123.PATIENT_NAME->ZIP_CODE ,S123.ORDERING_FACILITY ,S123.TO_SERVICE->SERVICE_NAME ,S123.DATE_OF_REQUEST ,S123.REASON_FOR_REQUEST ,VALIP_prosthetic_sql.SqlProc_EBSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_EBSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSEmail(S123.IEN) ,P660.IEN ,P660.DATE_OF_SERVICE ,VALIP_prosthetic_sql.SqlProc_GetCompletionNote(P660.IEN) ,VALIP_prosthetic_sql.SqlProc_GetComment(S123.IEN) INTO :ien123, :ien2, :name2, :ssn2, :address12, :address22, :address32, :city2, :state2, :zip2, :stationNumber4, :serviceName, :dateOfRequest123, :reason123, :enteredByStaffName200, :enteredByStaffEmail200, :responsibleStaffName200, :responsibleStaffEmail200, :ien660, :dateOfService660, :latestComment668, :latestComment123 FROM VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 P660 INNER JOIN VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 S123 ON P660.CONSULT = S123.IEN WHERE P660.ENTRY_DATE >=:startDate AND P660.DATE_OF_SERVICE IS NOT NULL AND CONVERT(float,P660.TOTAL_COST) <= 0 AND S123.TO_SERVICE->SERVICE_NAME = :prostheticType AND P660.TYPE_OF_TRANSACTION <> 'X' ) &sql(OPEN C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Open C1: " _ SQLCODE _ " " _ %msg) } &sql(FETCH C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Fetch C1:" _ SQLCODE _ " " _ %msg) } Set prostheticRequests = [] While (SQLCODE = 0) { Set prostheticRequest = {} Do prostheticRequest.%Set("consult_ien-123",ien123,"number") Do prostheticRequest.%Set("patient_ien-123_p02-2", ien2, "number") Do prostheticRequest.%Set("patient_name-123_p02-2_p01",name2, "string") Do prostheticRequest.%Set("patient_ssn-123_p02-2_p09", ssn2, "string") Do prostheticRequest.%Set("patient_address_1-123_p02-2_p111", address12, "string") Do prostheticRequest.%Set("patient_address_2-123_p02-2_p112", address22, "string") Do prostheticRequest.%Set("patient_address_3-123_p02-2_p113", address32, "string") Do prostheticRequest.%Set("patient_city-123_p02-2_p114", city2, "string") Do prostheticRequest.%Set("patient_state-123_p02-2_p115", state2, "string") Do prostheticRequest.%Set("patient_zip-123_p02-2_p116", zip2, "string") Do prostheticRequest.%Set("station_number-123_p05-4_99", stationNumber4, "string") Do prostheticRequest.%Set("service_name-123_1-123p5_p01", serviceName, "string") Do prostheticRequest.%Set("date_of_request-123_3", dateOfRequest123+17000000, "string") //convert to hl7 date format Do prostheticRequest.%Set("reason-123_20", reason123, "string") Do prostheticRequest.%Set("entered_by_staff_name-123_40-123p02_4-200_p01", enteredByStaffName200, "string") Do prostheticRequest.%Set("entered_by_staff_email-123_40-123p02_4-200_p151", enteredByStaffEmail200, "string") Do prostheticRequest.%Set("responsible_staff_name-123_40-123p02_3-200_p01", responsibleStaffName200, "string") Do prostheticRequest.%Set("responsible_staff_email-123_40-123p02_3-200_p151", responsibleStaffEmail200, "string") Do prostheticRequest.%Set("appliance_repair_ien-660", ien660, "string") Do prostheticRequest.%Set("date_of_service-660_39", dateOfService660, "string") Do prostheticRequest.%Set("latest_comment-668_11-m668p011_1",latestComment668, "string") Do prostheticRequest.%Set("comment-123_02_5",latestComment123, "string") Do prostheticRequests.%Push(prostheticRequest) &sql(FETCH C1) } &sql(CLOSE C1) Do result.%Set($$$ProstheticRequestsKey, prostheticRequests) /* W !,"prostheticType: "_prostheticType W !,"startDate : "_startDate W !," endDate: "_ endDate W !,"status: pending",! */ Return $$$OK ]]> 1 prostheticType:%String,startDate:%String,endDate:%String,*result:%DynamicObject %Status IEN ,S123.PATIENT_NAME->NAME ,S123.PATIENT_NAME->SOCIAL_SECURITY_NUMBER ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_1 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_2 ,S123.PATIENT_NAME->STREET_ADDRESS_LINE_3 ,S123.PATIENT_NAME->CITY ,S123.PATIENT_NAME->STATE->NAME ,S123.PATIENT_NAME->ZIP_CODE ,S123.ORDERING_FACILITY ,S123.TO_SERVICE->SERVICE_NAME ,S123.DATE_OF_REQUEST ,S123.REASON_FOR_REQUEST ,VALIP_prosthetic_sql.SqlProc_EBSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_EBSEmail(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSName(S123.IEN) ,VALIP_prosthetic_sql.SqlProc_RSEmail(S123.IEN) ,P660.IEN ,P660.DATE_OF_SERVICE ,VALIP_prosthetic_sql.SqlProc_GetCompletionNote(P660.IEN) INTO :ien123, :ien2, :name2, :ssn2, :address12, :address22, :address32, :city2, :state2, :zip2, :stationNumber4, :serviceName, :dateOfRequest123, :reason123, :enteredByStaffName200, :enteredByStaffEmail200, :responsibleStaffName200, :responsibleStaffEmail200, :ien660, :dateOfService660, :latestComment668 FROM VALIP_prosthetic_fm2cw.RECORD_OF_PROS_APPLIANCEREPAIR_660 P660 INNER JOIN VALIP_prosthetic_fm2cw.REQUESTCONSULTATION_123 S123 ON P660.CONSULT = S123.IEN WHERE P660.ENTRY_DATE >=:startDate AND P660.DATE_OF_SERVICE IS NOT NULL AND CONVERT(float,P660.TOTAL_COST) <= 0 AND S123.TO_SERVICE->SERVICE_NAME = :prostheticType ) &sql(OPEN C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Open C1: " _ SQLCODE _ " " _ %msg) } &sql(FETCH C1) If (SQLCODE < 0) { Return $$$ServerError("Failed To Fetch C1:" _ SQLCODE _ " " _ %msg) } Set prostheticRequests = [] While (SQLCODE = 0) { Set prostheticRequest = {} Do prostheticRequest.%Set("consult_ien-123",ien123,"number") Do prostheticRequest.%Set("patient_ien-123_p02-2", ien2, "number") Do prostheticRequest.%Set("patient_name-123_p02-2_p01",name2, "string") Do prostheticRequest.%Set("patient_ssn-123_p02-2_p09", ssn2, "string") Do prostheticRequest.%Set("patient_address_1-123_p02-2_p111", address12, "string") Do prostheticRequest.%Set("patient_address_2-123_p02-2_p112", address22, "string") Do prostheticRequest.%Set("patient_address_3-123_p02-2_p113", address32, "string") Do prostheticRequest.%Set("patient_city-123_p02-2_p114", city2, "string") Do prostheticRequest.%Set("patient_state-123_p02-2_p115", state2, "string") Do prostheticRequest.%Set("patient_zip-123_p02-2_p116", zip2, "string") Do prostheticRequest.%Set("station_number-123_p05-4_99", stationNumber4, "string") Do prostheticRequest.%Set("service_name-123_1-123p5_p01", serviceName, "string") Do prostheticRequest.%Set("date_of_request-123_3", dateOfRequest123+17000000, "string") //convert to hl7 date format Do prostheticRequest.%Set("reason-123_20", reason123, "string") Do prostheticRequests.%Push(prostheticRequest) Do prostheticRequest.%Set("entered_by_staff_name-123_40-123p02_4-200_p01", enteredByStaffName200, "string") Do prostheticRequest.%Set("entered_by_staff_email-123_40-123p02_4-200_p151", enteredByStaffEmail200, "string") Do prostheticRequest.%Set("responsible_staff_name-123_40-123p02_3-200_p01", responsibleStaffName200, "string") Do prostheticRequest.%Set("responsible_staff_email-123_40-123p02_3-200_p151", responsibleStaffEmail200, "string") Do prostheticRequest.%Set("appliance_repair_ien-660", ien660, "string") Do prostheticRequest.%Set("date_of_service-660_39", dateOfService660, "string") Do prostheticRequest.%Set("latest_comment-668_11-m668p011_1",latestComment668, "string") &sql(FETCH C1) } &sql(CLOSE C1) Do result.%Set("orders", prostheticRequests) //change to orders /* W !,"prostheticType: "_prostheticType W !,"startDate : "_startDate W !," endDate: "_ endDate W !,"status: completed",! */ Return $$$OK ]]> 1 66989,50975.519209267 66989,50975.519209267 1 params:%DynamicObject,*result:%DynamicObject %Status VALIP.prosthetic.ClassMacros,VALIP.prosthetic.Macros 67171,48265.775828971 67150,26334.126498791 1 %Status 1 SIEN:%String,AIEN:%String,CIEN:%String,PSSN:%String,COMMENT:%String,*RESULT:%String 0 %String 0 I $P(^RMPR(668,R68,10,RI,0),U,1) D .S RM660=$P(^RMPR(668,R68,10,RI,0),U,1) .I $G(RM660),$D(^RMPR(660,RM660,10)) D ..S RMINDT=$P(^RMPR(668,R68,0),U,9) ..S RMCODT=$P(^RMPR(668,R68,0),U,5) ..S RMDAT(660,RM660_",",8.3)=RMINDT ..S RMDAT(660,RM660_",",8.4)=RMCODT ..D FILE^DIE("","RMDAT","RMERROR") ..I $D(RMERROR) Q ; Continue processing but, failed to update dates in 660 file ; Adapted and continued from [CLNT^RMPRPCEL] - Cleanup and save the comment from the 668 file S DA=SIEN L -^RMPR(668,DA) K RMPREODT S GMRCO=$P(^RMPR(668,DA,0),U,15) I GMRCO="" S RESULT="Suspense records does not have a related consult entry" Return RESULT S RMPRCOM=0 F S RMPRCOM=$O(^RMPR(668,DA,4,RMPRCOM)) Q:RMPRCOM="" D .S GMRCOM(RMPRCOM)=^RMPR(668,DA,4,RMPRCOM,0) I $G(GMRCOM)="" S GMRCOM="not noted" S GMRCSF="U" S GMRCA=10 S GMRCALF="N" S GMRCATO="" S (GMRCORNP,GMRCDUZ)=DUZ ; Creates a completion note in the consult entry related to the suspense entry ; The completetion note will be identical to the note in the suspense file entry S BDC=$$SFILE^GMRCGUIB(.GMRCO,.GMRCA,.GMRCSF,.GMRCORNP,.GMRCDUZ,.GMRCOM,.GMRCALF,.GMRCATO,.GMRCAD) I +BDC=1 S RESULT="Consult update error: "_$P(BDC,U,2) Return RESULT ; return error set in $P(BDC,U,2) K GMRCO,GMRCA,GMRCSF,GMRCORNP,GMRCDUZ,GMRCOM,GMRCALF,GMRCATO,GMRCAD S RESULT="" Return "" ]]> %RegisteredObject 67171,48136.657268254 67156,63126.899545259 %Numeric 0 %String %String %String %String %String %String %Status suspenseIEN:%String,applianceIEN:%String,consultIEN:%String,patientSSN:%String,Comment:%String,*result:%String 0 %Status %Persistent 67317,34258.21499911 66989,50976.264699978 1 pID:%Integer %String 1 1 pID:%Integer %String 1 1 pID:%Integer %String 1 1 pID:%Integer %String 1 1 ien660:%Integer %String 1 1 ien123:%Integer %String 1 1 ien123:%Integer %String 1 1 ien660:%Integer %String 1 %Storage.Persistent ^VALIP.prosthetic.sql.SqlProcD SqlProcDefaultData ^VALIP.prosthetic.sql.SqlProcD ^VALIP.prosthetic.sql.SqlProcI ^VALIP.prosthetic.sql.SqlProcS %%CLASSNAME