VSITFLD.m

VSITFLD ;ISD/MRL,RJP - Visit Tracking file fields array setup ;6/20/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,81,111**;Aug 12, 1996

 ; 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,"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,"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

 ;

VSITFLD   ;ISD/MRL,RJP - Visit Tracking file fields array setup ;6/20/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**76,81,111**;Aug 12, 1996

 +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,"OUT")="OUT;2101;21;1"

 +21       SET ^TMP("VSITDD",$JOB,"VID")="VID;15001;150;1"

 +22       SET ^TMP("VSITDD",$JOB,"IO")="IO;15002;150;2"

 +23       SET ^TMP("VSITDD",$JOB,"PRI")="PRI;15003;150;3"

 +24       SET ^TMP("VSITDD",$JOB,"SC")="SC;80001;800;1"

 +25       SET ^TMP("VSITDD",$JOB,"AO")="AO;80002;800;2"

 +26       SET ^TMP("VSITDD",$JOB,"IR")="IR;80003;800;3"

 +27       SET ^TMP("VSITDD",$JOB,"EC")="EC;80004;800;4"

 +28      ;added 6/17/98 for MST enhancement

           SET ^TMP("VSITDD",$JOB,"MST")="MST;80005;800;5"

 +29      ;PX*1*111 added for HNC enhancement

           SET ^TMP("VSITDD",$JOB,"HNC")="HNC;80006;800;6"

 +30       SET ^TMP("VSITDD",$JOB,"COM")="COM;81101;811;1"

 +31       SET ^TMP("VSITDD",$JOB,"VER")="VER;81201;812;1"

 +32       SET ^TMP("VSITDD",$JOB,"PKG")="PKG;81202;812;2"

 +33       SET ^TMP("VSITDD",$JOB,"SOR")="SOR;81203;812;3"

 +34       QUIT 

 +35      ;