- VSITFLD ;ISD/MRL,RJP - Visit Tracking file fields array setup ;6/20/96
- ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,81,111,130,124,164,168**;Aug 12, 1996;Build 14
- ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
- ; the incorporation of the module into PCE. For historical reference,
- ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
- ; patches.
- ;
- ;;2.0;VISIT TRACKING;**4**;Aug 12, 1996;
- ;
- Q
- ;
- FLD ; - Visit file fields; array subscript and field DD number fmt
- ; <visit subscript><field#><node><piece><error message>
- ;
- S ^TMP("VSITDD",$J,"VDT")="VDT;.01;0;1;Invalid Encounter/Admit Date&Time [0;1]"
- S ^TMP("VSITDD",$J,"CDT")="CDT;.02;0;2"
- S ^TMP("VSITDD",$J,"TYP")="TYP;.03;0;3;Invalid Type [0:3]"
- S ^TMP("VSITDD",$J,"PAT")="PAT;.05;0;5;Invalid Patient [0:5]"
- S ^TMP("VSITDD",$J,"INS")="INS;.06;0;6;Invalid Loc of Encounter [0:6]"
- S ^TMP("VSITDD",$J,"SVC")="SVC;.07;0;7;Invalid Service Category [0:7]"
- S ^TMP("VSITDD",$J,"DSS")="DSS;.08;0;8;Invalid DSS ID [0:8]"
- S ^TMP("VSITDD",$J,"CTR")="CTR;.09;0;9"
- S ^TMP("VSITDD",$J,"DEL")="DEL;.11;0;11"
- S ^TMP("VSITDD",$J,"LNK")="LNK;.12;0;12"
- S ^TMP("VSITDD",$J,"MDT")="MDT;.13;0;13"
- S ^TMP("VSITDD",$J,"COD")="COD;.18;0;18"
- S ^TMP("VSITDD",$J,"ELG")="ELG;.21;0;21;Invalid Eligibility [0:21]"
- S ^TMP("VSITDD",$J,"LOC")="LOC;.22;0;22;Invalid Hospital Location [0:22] - The specified Hospital Location was not found defined in the Hospital Location file."
- S ^TMP("VSITDD",$J,"USR")="USR;.23;0;23;Invalid Created by User [0:23]"
- S ^TMP("VSITDD",$J,"OPT")="OPT;.24;0;24"
- S ^TMP("VSITDD",$J,"PRO")="PRO;.25;0;25"
- S ^TMP("VSITDD",$J,"ACT")="ACT;.26;0;26"
- S ^TMP("VSITDD",$J,"OUT")="OUT;2101;21;1"
- S ^TMP("VSITDD",$J,"VID")="VID;15001;150;1"
- S ^TMP("VSITDD",$J,"IO")="IO;15002;150;2"
- S ^TMP("VSITDD",$J,"PRI")="PRI;15003;150;3"
- S ^TMP("VSITDD",$J,"SC")="SC;80001;800;1"
- S ^TMP("VSITDD",$J,"AO")="AO;80002;800;2"
- S ^TMP("VSITDD",$J,"IR")="IR;80003;800;3"
- S ^TMP("VSITDD",$J,"EC")="EC;80004;800;4"
- S ^TMP("VSITDD",$J,"MST")="MST;80005;800;5" ;added 6/17/98 for MST enhancement
- S ^TMP("VSITDD",$J,"HNC")="HNC;80006;800;6" ;PX*1*111 added for HNC enhancement
- S ^TMP("VSITDD",$J,"CV")="CV;80007;800;7" ;PX*1*130 Combat Veteran
- S ^TMP("VSITDD",$J,"SHAD")="SHAD;80008;800;8" ;PX*1*168 Project 112/SHAD
- S ^TMP("VSITDD",$J,"SCEF")="SCED;80011;800;11" ;PX*1*124 SC EDIT FLAG
- S ^TMP("VSITDD",$J,"AOEF")="AOED;80012;800;12" ;PX*1*124 AO EDIT FLAG
- S ^TMP("VSITDD",$J,"IREF")="IRED;80013;800;13" ;PX*1*124 IR EDIT FLAG
- S ^TMP("VSITDD",$J,"ECEF")="ECED;80014;800;14" ;PX*1*124 EC EDIT FLAG
- S ^TMP("VSITDD",$J,"MSTEF")="MSTED;80015;800;15" ;PX*1*124 MST EDIT FLAG
- S ^TMP("VSITDD",$J,"HNCEF")="HNCED;80016;800;16" ;PX*1*124 HNC EDIT FLAG
- S ^TMP("VSITDD",$J,"CVEF")="CVED;80017;800;17" ;PX*1*124 CV EDIT FLAG
- S ^TMP("VSITDD",$J,"SHADEF")="SHADED;80018;800;18" ;PX*1*168 SHAD EDIT FLAG
- S ^TMP("VSITDD",$J,"COM")="COM;81101;811;1"
- S ^TMP("VSITDD",$J,"VER")="VER;81201;812;1"
- S ^TMP("VSITDD",$J,"PKG")="PKG;81202;812;2"
- S ^TMP("VSITDD",$J,"SOR")="SOR;81203;812;3"
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSITFLD 3137 printed Jan 18, 2025@03:33:30 Page 2
- VSITFLD ;ISD/MRL,RJP - Visit Tracking file fields array setup ;6/20/96
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,81,111,130,124,164,168**;Aug 12, 1996;Build 14
- +2 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
- +3 ; the incorporation of the module into PCE. For historical reference,
- +4 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
- +5 ; patches.
- +6 ;
- +7 ;;2.0;VISIT TRACKING;**4**;Aug 12, 1996;
- +8 ;
- +9 QUIT
- +10 ;
- FLD ; - Visit file fields; array subscript and field DD number fmt
- +1 ; <visit subscript><field#><node><piece><error message>
- +2 ;
- +3 SET ^TMP("VSITDD",$JOB,"VDT")="VDT;.01;0;1;Invalid Encounter/Admit Date&Time [0;1]"
- +4 SET ^TMP("VSITDD",$JOB,"CDT")="CDT;.02;0;2"
- +5 SET ^TMP("VSITDD",$JOB,"TYP")="TYP;.03;0;3;Invalid Type [0:3]"
- +6 SET ^TMP("VSITDD",$JOB,"PAT")="PAT;.05;0;5;Invalid Patient [0:5]"
- +7 SET ^TMP("VSITDD",$JOB,"INS")="INS;.06;0;6;Invalid Loc of Encounter [0:6]"
- +8 SET ^TMP("VSITDD",$JOB,"SVC")="SVC;.07;0;7;Invalid Service Category [0:7]"
- +9 SET ^TMP("VSITDD",$JOB,"DSS")="DSS;.08;0;8;Invalid DSS ID [0:8]"
- +10 SET ^TMP("VSITDD",$JOB,"CTR")="CTR;.09;0;9"
- +11 SET ^TMP("VSITDD",$JOB,"DEL")="DEL;.11;0;11"
- +12 SET ^TMP("VSITDD",$JOB,"LNK")="LNK;.12;0;12"
- +13 SET ^TMP("VSITDD",$JOB,"MDT")="MDT;.13;0;13"
- +14 SET ^TMP("VSITDD",$JOB,"COD")="COD;.18;0;18"
- +15 SET ^TMP("VSITDD",$JOB,"ELG")="ELG;.21;0;21;Invalid Eligibility [0:21]"
- +16 SET ^TMP("VSITDD",$JOB,"LOC")="LOC;.22;0;22;Invalid Hospital Location [0:22] - The specified Hospital Location was not found defined in the Hospital Location file."
- +17 SET ^TMP("VSITDD",$JOB,"USR")="USR;.23;0;23;Invalid Created by User [0:23]"
- +18 SET ^TMP("VSITDD",$JOB,"OPT")="OPT;.24;0;24"
- +19 SET ^TMP("VSITDD",$JOB,"PRO")="PRO;.25;0;25"
- +20 SET ^TMP("VSITDD",$JOB,"ACT")="ACT;.26;0;26"
- +21 SET ^TMP("VSITDD",$JOB,"OUT")="OUT;2101;21;1"
- +22 SET ^TMP("VSITDD",$JOB,"VID")="VID;15001;150;1"
- +23 SET ^TMP("VSITDD",$JOB,"IO")="IO;15002;150;2"
- +24 SET ^TMP("VSITDD",$JOB,"PRI")="PRI;15003;150;3"
- +25 SET ^TMP("VSITDD",$JOB,"SC")="SC;80001;800;1"
- +26 SET ^TMP("VSITDD",$JOB,"AO")="AO;80002;800;2"
- +27 SET ^TMP("VSITDD",$JOB,"IR")="IR;80003;800;3"
- +28 SET ^TMP("VSITDD",$JOB,"EC")="EC;80004;800;4"
- +29 ;added 6/17/98 for MST enhancement
- SET ^TMP("VSITDD",$JOB,"MST")="MST;80005;800;5"
- +30 ;PX*1*111 added for HNC enhancement
- SET ^TMP("VSITDD",$JOB,"HNC")="HNC;80006;800;6"
- +31 ;PX*1*130 Combat Veteran
- SET ^TMP("VSITDD",$JOB,"CV")="CV;80007;800;7"
- +32 ;PX*1*168 Project 112/SHAD
- SET ^TMP("VSITDD",$JOB,"SHAD")="SHAD;80008;800;8"
- +33 ;PX*1*124 SC EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"SCEF")="SCED;80011;800;11"
- +34 ;PX*1*124 AO EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"AOEF")="AOED;80012;800;12"
- +35 ;PX*1*124 IR EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"IREF")="IRED;80013;800;13"
- +36 ;PX*1*124 EC EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"ECEF")="ECED;80014;800;14"
- +37 ;PX*1*124 MST EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"MSTEF")="MSTED;80015;800;15"
- +38 ;PX*1*124 HNC EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"HNCEF")="HNCED;80016;800;16"
- +39 ;PX*1*124 CV EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"CVEF")="CVED;80017;800;17"
- +40 ;PX*1*168 SHAD EDIT FLAG
- SET ^TMP("VSITDD",$JOB,"SHADEF")="SHADED;80018;800;18"
- +41 SET ^TMP("VSITDD",$JOB,"COM")="COM;81101;811;1"
- +42 SET ^TMP("VSITDD",$JOB,"VER")="VER;81201;812;1"
- +43 SET ^TMP("VSITDD",$JOB,"PKG")="PKG;81202;812;2"
- +44 SET ^TMP("VSITDD",$JOB,"SOR")="SOR;81203;812;3"
- +45 QUIT
- +46 ;