- SDEC658A ;ALB/SAT/JSM - VISTA SCHEDULING PRE/POST (CONTINUED) ;MAR 15, 2017
- ;;5.3;Scheduling;**658**;Aug 13, 1993;Build 23
- ;
- Q
- ;
- INDEX ;
- D EWL
- D APPT^SDEC658B
- Q
- EWL ;
- D GS
- D GSC
- D GSP
- D GSA
- D GSB
- D GC
- D GCC
- D C
- Q
- GS ;GS IN 409.3
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GS xref in 409.3..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.3
- S SDXR("NAME")="GS"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="R"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID AND ORIGINATING DATE"
- S SDXR("DESCR",1)="This xref is used to sort/filter Wait List entries by the CLINIC STOP id "
- S SDXR("DESCR",2)="and the ORIGINATING DATE field (#1). The CLINIC STOP id comes from the SD "
- S SDXR("DESCR",3)="WL SERVICE/SPECIALTY file (#409.31). The WL SERVICE/SPECIALTY field (#7) "
- S SDXR("DESCR",4)="in the SD WAIT LIST file (#409.3) contains the pointer to the SD WL "
- S SDXR("DESCR",5)="SERVICE/SPECIALTY file."
- S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",2)=1
- S SDXR("VAL",2,"SUBSCRIPT")=2
- S SDXR("VAL",2,"COLLATION")="F"
- D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- Q
- GSC ;GSC IN 409.3
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GSC xref in 409.3..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.3
- S SDXR("NAME")="GSC"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="R"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID AND CID/PREFERRED DATE"
- S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id and the "
- S SDXR("DESCR",2)="CID/PREFERRED DATE field (#22). The CLINIC STOP id comes from the SD WL "
- S SDXR("DESCR",3)="SERVICE/SPECIALTY file (#409.31). The WL SERVICE/SPECIALTY field (#7) in "
- S SDXR("DESCR",4)="the SD WAIT LIST file (#409.3) contains the pointer to the SD WL "
- S SDXR("DESCR",5)="SERVICE/SPECIALTY file."
- S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",2)=22
- S SDXR("VAL",2,"SUBSCRIPT")=2
- S SDXR("VAL",2,"COLLATION")="F"
- D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- Q
- GSP ;GSP IN 409.3
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GSP xref in 409.3..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.3
- S SDXR("NAME")="GSP"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="R"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID, ENROLLMENT PRIORITY, AND ORIGINATING DATE"
- S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
- S SDXR("DESCR",2)="Patient's ENROLLMENT PRIORITY, and the ORIGINATING DATE field (#1)."
- S SDXR("DESCR",3)="The CLINIC STOP id comes from the SD WL SERVICE/SPECIALTY file (#409.31)."
- S SDXR("DESCR",4)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
- S SDXR("DESCR",5)="contains the pointer to the SD WL SERVICE/SPECIALTY file."
- S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",2)="S X=+$P($G(^DGEN(27.11,+$P($G(^DPT(+$P($G(^SDWL(409.3,DA,0)),U,1),""ENR"")),U,1),0)),U,7)"
- S SDXR("VAL",2,"SUBSCRIPT")=2
- S SDXR("VAL",2,"COLLATION")="F"
- S SDXR("VAL",3)=1
- S SDXR("VAL",3,"SUBSCRIPT")=3
- S SDXR("VAL",3,"COLLATION")="F"
- D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- Q
- GSA ;GSA IN 409.3
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GSA xref in 409.3..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.3
- S SDXR("NAME")="GSA"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="R"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID, SVC CONNECTED, AND ORIGINATING DATE"
- S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
- S SDXR("DESCR",2)="SERVICE CONNECTED, and the ORIGINATING DATE field (#1)."
- S SDXR("DESCR",3)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
- S SDXR("DESCR",4)="contains the pointer to the SD WL SERVICE/SPECIALTY file. The CLINIC STOP "
- S SDXR("DESCR",5)="id is in the SERVICE/SPECIALTY field (#.01) of the SD WL "
- S SDXR("DESCR",6)="SERVICE/SPECIALTY file (#409.31)"
- S SDXR("DESCR",7)="SERVICE CONNECTED is the SERVICE CONNECTED? field (#.301) (a required "
- S SDXR("DESCR",8)="field) in the PATIENT file (#2)."
- S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",2)="S X=$P($G(^DPT(+$P($G(^SDWL(409.3,DA,0)),U,1),.3)),U,1)"
- S SDXR("VAL",2,"SUBSCRIPT")=2
- S SDXR("VAL",2,"COLLATION")="F"
- S SDXR("VAL",3)=1
- S SDXR("VAL",3,"SUBSCRIPT")=3
- S SDXR("VAL",3,"COLLATION")="F"
- D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- Q
- GSB ;GSB IN 409.3
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.3
- S SDXR("NAME")="GSB"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="R"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SVCS) ID, SVC CONNECTED PRIORITY, AND ORIGINATING DATE"
- S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
- S SDXR("DESCR",2)="SERVICE CONNECTED PRIORITY field (#15), and the ORIGINATING DATE field "
- S SDXR("DESCR",3)="(#1)."
- S SDXR("DESCR",4)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
- S SDXR("DESCR",5)="contains the pointer to the SD WL SERVICE/SPECIALTY file. The CLINIC STOP "
- S SDXR("DESCR",6)="id is in the SERVICE/SPECIALTY field (#.01) of the SD WL "
- S SDXR("DESCR",7)="SERVICE/SPECIALTY file (#409.31)."
- S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",3)=1
- S SDXR("VAL",3,"SUBSCRIPT")=3
- S SDXR("VAL",3,"COLLATION")="F"
- S SDXR("VAL",2)=15
- S SDXR("VAL",2,"SUBSCRIPT")=2
- S SDXR("VAL",2,"COLLATION")="F"
- S SDXR("VAL",2,"XFORM FOR STORAGE")="S X=+X"
- D CREIXN^DDMOD(.SDXR,"SW",.SDRES,"SDOUT")
- Q
- GC ;GC IN 409.3
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GC xref in 409.3..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.3
- S SDXR("NAME")="GC"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="F"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC AND ORIGINATING DATE"
- S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the Clinic ID and the "
- S SDXR("DESCR",2)="ORIGINATING DATE field (#1)."
- S SDXR("DESCR",3)="The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC "
- S SDXR("DESCR",4)="LOCATION file (#409.32)."
- S SDXR("DESCR",5)="The SD WL CLINIC LOCATION pointer is in the WL SPECIFIC CLINIC field (#8) "
- S SDXR("DESCR",6)="of the SD WAIT LIST file (#409.3)."
- S SDXR("VAL",1)="S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)"
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",2)=1
- S SDXR("VAL",2,"SUBSCRIPT")=2
- S SDXR("VAL",2,"COLLATION")="F"
- D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- Q
- GCC ;GCC IN 409.3
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GCC xref in 409.3..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.3
- S SDXR("NAME")="GCC"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="F"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC ID AND CID/PREFERRED DATE"
- S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the Clinic ID and the "
- S SDXR("DESCR",2)="CID/PREFERRED DATE field (#22)."
- S SDXR("DESCR",3)="The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC "
- S SDXR("DESCR",4)="LOCATION file (#409.32). The SD WL CLINIC LOCATION pointer is in the WL "
- S SDXR("DESCR",5)="SPECIFIC CLINIC field (#8) of the SD WAIT LIST file (#409.3)."
- S SDXR("VAL",1)="S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)"
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",2)=22
- S SDXR("VAL",2,"SUBSCRIPT")=2
- S SDXR("VAL",2,"COLLATION")="F"
- D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- Q
- C ;C IN 409.831
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new C xref in 409.831..."
- W !,Y
- N DIK
- S DIK="^SDEC(409.831,",DIK(1)=".011^C"
- D ENALL^DIK
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDEC658A 8533 printed Jan 18, 2025@03:52:10 Page 2
- SDEC658A ;ALB/SAT/JSM - VISTA SCHEDULING PRE/POST (CONTINUED) ;MAR 15, 2017
- +1 ;;5.3;Scheduling;**658**;Aug 13, 1993;Build 23
- +2 ;
- +3 QUIT
- +4 ;
- INDEX ;
- +1 DO EWL
- +2 DO APPT^SDEC658B
- +3 QUIT
- EWL ;
- +1 DO GS
- +2 DO GSC
- +3 DO GSP
- +4 DO GSA
- +5 DO GSB
- +6 DO GC
- +7 DO GCC
- +8 DO C
- +9 QUIT
- GS ;GS IN 409.3
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GS xref in 409.3..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.3
- +7 SET SDXR("NAME")="GS"
- +8 SET SDXR("TYPE")="R"
- +9 SET SDXR("USE")="LS"
- +10 SET SDXR("EXECUTION")="R"
- +11 SET SDXR("ACTIVITY")="IR"
- +12 SET SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID AND ORIGINATING DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort/filter Wait List entries by the CLINIC STOP id "
- +14 SET SDXR("DESCR",2)="and the ORIGINATING DATE field (#1). The CLINIC STOP id comes from the SD "
- +15 SET SDXR("DESCR",3)="WL SERVICE/SPECIALTY file (#409.31). The WL SERVICE/SPECIALTY field (#7) "
- +16 SET SDXR("DESCR",4)="in the SD WAIT LIST file (#409.3) contains the pointer to the SD WL "
- +17 SET SDXR("DESCR",5)="SERVICE/SPECIALTY file."
- +18 SET SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- +19 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +20 SET SDXR("VAL",1,"COLLATION")="F"
- +21 SET SDXR("VAL",2)=1
- +22 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +23 SET SDXR("VAL",2,"COLLATION")="F"
- +24 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +25 QUIT
- GSC ;GSC IN 409.3
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GSC xref in 409.3..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.3
- +7 SET SDXR("NAME")="GSC"
- +8 SET SDXR("TYPE")="R"
- +9 SET SDXR("USE")="LS"
- +10 SET SDXR("EXECUTION")="R"
- +11 SET SDXR("ACTIVITY")="IR"
- +12 SET SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID AND CID/PREFERRED DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id and the "
- +14 SET SDXR("DESCR",2)="CID/PREFERRED DATE field (#22). The CLINIC STOP id comes from the SD WL "
- +15 SET SDXR("DESCR",3)="SERVICE/SPECIALTY file (#409.31). The WL SERVICE/SPECIALTY field (#7) in "
- +16 SET SDXR("DESCR",4)="the SD WAIT LIST file (#409.3) contains the pointer to the SD WL "
- +17 SET SDXR("DESCR",5)="SERVICE/SPECIALTY file."
- +18 SET SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- +19 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +20 SET SDXR("VAL",1,"COLLATION")="F"
- +21 SET SDXR("VAL",2)=22
- +22 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +23 SET SDXR("VAL",2,"COLLATION")="F"
- +24 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +25 QUIT
- GSP ;GSP IN 409.3
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GSP xref in 409.3..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.3
- +7 SET SDXR("NAME")="GSP"
- +8 SET SDXR("TYPE")="R"
- +9 SET SDXR("USE")="LS"
- +10 SET SDXR("EXECUTION")="R"
- +11 SET SDXR("ACTIVITY")="IR"
- +12 SET SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID, ENROLLMENT PRIORITY, AND ORIGINATING DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
- +14 SET SDXR("DESCR",2)="Patient's ENROLLMENT PRIORITY, and the ORIGINATING DATE field (#1)."
- +15 SET SDXR("DESCR",3)="The CLINIC STOP id comes from the SD WL SERVICE/SPECIALTY file (#409.31)."
- +16 SET SDXR("DESCR",4)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
- +17 SET SDXR("DESCR",5)="contains the pointer to the SD WL SERVICE/SPECIALTY file."
- +18 SET SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- +19 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +20 SET SDXR("VAL",1,"COLLATION")="F"
- +21 SET SDXR("VAL",2)="S X=+$P($G(^DGEN(27.11,+$P($G(^DPT(+$P($G(^SDWL(409.3,DA,0)),U,1),""ENR"")),U,1),0)),U,7)"
- +22 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +23 SET SDXR("VAL",2,"COLLATION")="F"
- +24 SET SDXR("VAL",3)=1
- +25 SET SDXR("VAL",3,"SUBSCRIPT")=3
- +26 SET SDXR("VAL",3,"COLLATION")="F"
- +27 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +28 QUIT
- GSA ;GSA IN 409.3
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GSA xref in 409.3..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.3
- +7 SET SDXR("NAME")="GSA"
- +8 SET SDXR("TYPE")="R"
- +9 SET SDXR("USE")="LS"
- +10 SET SDXR("EXECUTION")="R"
- +11 SET SDXR("ACTIVITY")="IR"
- +12 SET SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID, SVC CONNECTED, AND ORIGINATING DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
- +14 SET SDXR("DESCR",2)="SERVICE CONNECTED, and the ORIGINATING DATE field (#1)."
- +15 SET SDXR("DESCR",3)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
- +16 SET SDXR("DESCR",4)="contains the pointer to the SD WL SERVICE/SPECIALTY file. The CLINIC STOP "
- +17 SET SDXR("DESCR",5)="id is in the SERVICE/SPECIALTY field (#.01) of the SD WL "
- +18 SET SDXR("DESCR",6)="SERVICE/SPECIALTY file (#409.31)"
- +19 SET SDXR("DESCR",7)="SERVICE CONNECTED is the SERVICE CONNECTED? field (#.301) (a required "
- +20 SET SDXR("DESCR",8)="field) in the PATIENT file (#2)."
- +21 SET SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- +22 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +23 SET SDXR("VAL",1,"COLLATION")="F"
- +24 SET SDXR("VAL",2)="S X=$P($G(^DPT(+$P($G(^SDWL(409.3,DA,0)),U,1),.3)),U,1)"
- +25 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +26 SET SDXR("VAL",2,"COLLATION")="F"
- +27 SET SDXR("VAL",3)=1
- +28 SET SDXR("VAL",3,"SUBSCRIPT")=3
- +29 SET SDXR("VAL",3,"COLLATION")="F"
- +30 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +31 QUIT
- GSB ;GSB IN 409.3
- +1 NEW SDXR,SDRES,SDOUT
- +2 SET SDXR("FILE")=409.3
- +3 SET SDXR("NAME")="GSB"
- +4 SET SDXR("TYPE")="R"
- +5 SET SDXR("USE")="LS"
- +6 SET SDXR("EXECUTION")="R"
- +7 SET SDXR("ACTIVITY")="IR"
- +8 SET SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SVCS) ID, SVC CONNECTED PRIORITY, AND ORIGINATING DATE"
- +9 SET SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
- +10 SET SDXR("DESCR",2)="SERVICE CONNECTED PRIORITY field (#15), and the ORIGINATING DATE field "
- +11 SET SDXR("DESCR",3)="(#1)."
- +12 SET SDXR("DESCR",4)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
- +13 SET SDXR("DESCR",5)="contains the pointer to the SD WL SERVICE/SPECIALTY file. The CLINIC STOP "
- +14 SET SDXR("DESCR",6)="id is in the SERVICE/SPECIALTY field (#.01) of the SD WL "
- +15 SET SDXR("DESCR",7)="SERVICE/SPECIALTY file (#409.31)."
- +16 SET SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
- +17 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +18 SET SDXR("VAL",1,"COLLATION")="F"
- +19 SET SDXR("VAL",3)=1
- +20 SET SDXR("VAL",3,"SUBSCRIPT")=3
- +21 SET SDXR("VAL",3,"COLLATION")="F"
- +22 SET SDXR("VAL",2)=15
- +23 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +24 SET SDXR("VAL",2,"COLLATION")="F"
- +25 SET SDXR("VAL",2,"XFORM FOR STORAGE")="S X=+X"
- +26 DO CREIXN^DDMOD(.SDXR,"SW",.SDRES,"SDOUT")
- +27 QUIT
- GC ;GC IN 409.3
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GC xref in 409.3..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.3
- +7 SET SDXR("NAME")="GC"
- +8 SET SDXR("TYPE")="R"
- +9 SET SDXR("USE")="LS"
- +10 SET SDXR("EXECUTION")="F"
- +11 SET SDXR("ACTIVITY")="IR"
- +12 SET SDXR("SHORT DESCR")="SORT BY CLINIC AND ORIGINATING DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Wait List entries by the Clinic ID and the "
- +14 SET SDXR("DESCR",2)="ORIGINATING DATE field (#1)."
- +15 SET SDXR("DESCR",3)="The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC "
- +16 SET SDXR("DESCR",4)="LOCATION file (#409.32)."
- +17 SET SDXR("DESCR",5)="The SD WL CLINIC LOCATION pointer is in the WL SPECIFIC CLINIC field (#8) "
- +18 SET SDXR("DESCR",6)="of the SD WAIT LIST file (#409.3)."
- +19 SET SDXR("VAL",1)="S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)"
- +20 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +21 SET SDXR("VAL",2)=1
- +22 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +23 SET SDXR("VAL",2,"COLLATION")="F"
- +24 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +25 QUIT
- GCC ;GCC IN 409.3
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GCC xref in 409.3..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.3
- +7 SET SDXR("NAME")="GCC"
- +8 SET SDXR("TYPE")="R"
- +9 SET SDXR("USE")="LS"
- +10 SET SDXR("EXECUTION")="F"
- +11 SET SDXR("ACTIVITY")="IR"
- +12 SET SDXR("SHORT DESCR")="SORT BY CLINIC ID AND CID/PREFERRED DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Wait List entries by the Clinic ID and the "
- +14 SET SDXR("DESCR",2)="CID/PREFERRED DATE field (#22)."
- +15 SET SDXR("DESCR",3)="The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC "
- +16 SET SDXR("DESCR",4)="LOCATION file (#409.32). The SD WL CLINIC LOCATION pointer is in the WL "
- +17 SET SDXR("DESCR",5)="SPECIFIC CLINIC field (#8) of the SD WAIT LIST file (#409.3)."
- +18 SET SDXR("VAL",1)="S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)"
- +19 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +20 SET SDXR("VAL",2)=22
- +21 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +22 SET SDXR("VAL",2,"COLLATION")="F"
- +23 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +24 QUIT
- C ;C IN 409.831
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new C xref in 409.831..."
- +4 WRITE !,Y
- +5 NEW DIK
- +6 SET DIK="^SDEC(409.831,"
- SET DIK(1)=".011^C"
- +7 DO ENALL^DIK
- +8 QUIT