- SDEC658B ;ALB/SAT/JSM - VISTA SCHEDULING PRE/POST (CONTINUED) ;MAR 15, 2017
- ;;5.3;Scheduling;**658**;Aug 13, 1993;Build 23
- ;
- Q
- ;
- APPT ;
- D AGS
- D AGSC
- D AGSP
- D AGSA
- D AGSB
- D AGC
- D AGCC
- Q
- AGS ;GS IN 409.85
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GS xref in 409.85..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.85
- 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 REQ SERVICE/SPECIALTY ID AND ORIGINATING DATE"
- S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5) and the CREATE DATE field (#1)."
- S SDXR("VAL",1)=8.5
- 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
- AGSC ;GSC IN 409.85
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GSC xref in 409.85..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.85
- 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 REQ SERVICE/SPECIALTY ID AND CID/PREFERRED DATE OF APPT"
- S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5) and the CID/PREFERRED DATE OF APPT field "
- S SDXR("DESCR",3)="(#22)."
- S SDXR("VAL",1)=8.5
- 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
- AGSP ;GSP IN 409.85
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GSP xref in 409.85..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.85
- 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 REQ SERVICE/SPECIALTY, ENROLLMENT PRIORITY, AND CREATE DATE"
- S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), Patient's ENROLLMENT PRIORITY, and the "
- S SDXR("DESCR",3)="CREATE DATE field (#1)."
- S SDXR("DESCR",4)="The Patient's ENROLLMENT PRIORITY comes from the ENROLLMENT PRIORITY "
- S SDXR("DESCR",5)="field (#.07) of the PATIENT ENROLLMENT file (#27.11)."
- S SDXR("DESCR",6)="The CURRENT ENROLLMENT field (#27.01) of the PATIENT file (#2) contains "
- S SDXR("DESCR",7)="the pointer into the PATIENT ENROLLMENT FILE."
- S SDXR("VAL",1)=8.5
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",2)="N DFN,PCE S DFN=$P($G(^SDEC(409.85,DA,0)),U,1),PCE=$P($G(^DPT(+DFN,""ENR"")),U,1),X=+$P($G(^DGEN(27.11,+PCE,0)),U,7)"
- S SDXR("VAL",2,"SUBSCRIPT")=2
- 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
- AGSA ;GSA IN 409.85
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GSA xref in 409.85..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.85
- 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 REQ SERVICE/SPECIALTY, SVC CONNECTED, AND CREATE DATE"
- S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), SERVICE CONNECTED, and the CREATE DATE "
- S SDXR("DESCR",3)="field (#1)."
- S SDXR("DESCR",4)="SERVICE CONNECTED is the SERVICE CONNECTED? field (#.301) in the PATIENT "
- S SDXR("DESCR",5)="file (#2)."
- S SDXR("VAL",1)=8.5
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",2)="N DFN S DFN=$P($G(^SDEC(409.85,DA,0)),U,1) S X=$P($G(^DPT(+DFN,.3)),U,1) S:X="""" X=0"
- S SDXR("VAL",2,"SUBSCRIPT")=2
- 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
- AGSB ;GSB IN 409.85
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GSB xref in 409.85..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.85
- 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 REQ SERVICE/SPECIALTY, SVC CONNECTED PRIORITY, AND CREATE DATE"
- S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), SERVICE CONNECTED PRIORITY field (#15), "
- S SDXR("DESCR",3)="and the CREATE DATE field (#1)."
- S SDXR("VAL",1)=8.5
- S SDXR("VAL",1,"SUBSCRIPT")=1
- S SDXR("VAL",1,"COLLATION")="F"
- S SDXR("VAL",2)=15
- 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
- AGC ;GC IN 409.85
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GC xref in 409.85..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.85
- S SDXR("NAME")="GC"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="R"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC AND ORIGINATING DATE"
- S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ SPECIFIC "
- S SDXR("DESCR",2)="CLINIC field (#8) and the CREATE DATE field (#1)."
- S SDXR("VAL",1)=8
- 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
- AGCC ;GCC IN 409.85
- N Y
- S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
- W !!,"Building new GCC xref in 409.85..."
- W !,Y
- N SDXR,SDRES,SDOUT
- S SDXR("FILE")=409.85
- S SDXR("NAME")="GCC"
- S SDXR("TYPE")="R"
- S SDXR("USE")="LS"
- S SDXR("EXECUTION")="R"
- S SDXR("ACTIVITY")="IR"
- S SDXR("SHORT DESCR")="SORT BY CLINIC AND CID/PREFERRED DATE"
- S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ SPECIFIC "
- S SDXR("DESCR",2)="CLINIC field (#8) and the CID PREFERRED DATE OF APPT field (#22)."
- S SDXR("VAL",1)=8
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDEC658B 6545 printed Jan 18, 2025@03:52:11 Page 2
- SDEC658B ;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 ;
- APPT ;
- +1 DO AGS
- +2 DO AGSC
- +3 DO AGSP
- +4 DO AGSA
- +5 DO AGSB
- +6 DO AGC
- +7 DO AGCC
- +8 QUIT
- AGS ;GS IN 409.85
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GS xref in 409.85..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.85
- +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 REQ SERVICE/SPECIALTY ID AND ORIGINATING DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- +14 SET SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5) and the CREATE DATE field (#1)."
- +15 SET SDXR("VAL",1)=8.5
- +16 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +17 SET SDXR("VAL",1,"COLLATION")="F"
- +18 SET SDXR("VAL",2)=1
- +19 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +20 SET SDXR("VAL",2,"COLLATION")="F"
- +21 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +22 QUIT
- AGSC ;GSC IN 409.85
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GSC xref in 409.85..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.85
- +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 REQ SERVICE/SPECIALTY ID AND CID/PREFERRED DATE OF APPT"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- +14 SET SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5) and the CID/PREFERRED DATE OF APPT field "
- +15 SET SDXR("DESCR",3)="(#22)."
- +16 SET SDXR("VAL",1)=8.5
- +17 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +18 SET SDXR("VAL",1,"COLLATION")="F"
- +19 SET SDXR("VAL",2)=22
- +20 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +21 SET SDXR("VAL",2,"COLLATION")="F"
- +22 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +23 QUIT
- AGSP ;GSP IN 409.85
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GSP xref in 409.85..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.85
- +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 REQ SERVICE/SPECIALTY, ENROLLMENT PRIORITY, AND CREATE DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- +14 SET SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), Patient's ENROLLMENT PRIORITY, and the "
- +15 SET SDXR("DESCR",3)="CREATE DATE field (#1)."
- +16 SET SDXR("DESCR",4)="The Patient's ENROLLMENT PRIORITY comes from the ENROLLMENT PRIORITY "
- +17 SET SDXR("DESCR",5)="field (#.07) of the PATIENT ENROLLMENT file (#27.11)."
- +18 SET SDXR("DESCR",6)="The CURRENT ENROLLMENT field (#27.01) of the PATIENT file (#2) contains "
- +19 SET SDXR("DESCR",7)="the pointer into the PATIENT ENROLLMENT FILE."
- +20 SET SDXR("VAL",1)=8.5
- +21 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +22 SET SDXR("VAL",1,"COLLATION")="F"
- +23 SET SDXR("VAL",2)="N DFN,PCE S DFN=$P($G(^SDEC(409.85,DA,0)),U,1),PCE=$P($G(^DPT(+DFN,""ENR"")),U,1),X=+$P($G(^DGEN(27.11,+PCE,0)),U,7)"
- +24 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +25 SET SDXR("VAL",3)=1
- +26 SET SDXR("VAL",3,"SUBSCRIPT")=3
- +27 SET SDXR("VAL",3,"COLLATION")="F"
- +28 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +29 QUIT
- AGSA ;GSA IN 409.85
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GSA xref in 409.85..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.85
- +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 REQ SERVICE/SPECIALTY, SVC CONNECTED, AND CREATE DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- +14 SET SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), SERVICE CONNECTED, and the CREATE DATE "
- +15 SET SDXR("DESCR",3)="field (#1)."
- +16 SET SDXR("DESCR",4)="SERVICE CONNECTED is the SERVICE CONNECTED? field (#.301) in the PATIENT "
- +17 SET SDXR("DESCR",5)="file (#2)."
- +18 SET SDXR("VAL",1)=8.5
- +19 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +20 SET SDXR("VAL",1,"COLLATION")="F"
- +21 SET SDXR("VAL",2)="N DFN S DFN=$P($G(^SDEC(409.85,DA,0)),U,1) S X=$P($G(^DPT(+DFN,.3)),U,1) S:X="""" X=0"
- +22 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +23 SET SDXR("VAL",3)=1
- +24 SET SDXR("VAL",3,"SUBSCRIPT")=3
- +25 SET SDXR("VAL",3,"COLLATION")="F"
- +26 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +27 QUIT
- AGSB ;GSB IN 409.85
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GSB xref in 409.85..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.85
- +7 SET SDXR("NAME")="GSB"
- +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 REQ SERVICE/SPECIALTY, SVC CONNECTED PRIORITY, AND CREATE DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
- +14 SET SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), SERVICE CONNECTED PRIORITY field (#15), "
- +15 SET SDXR("DESCR",3)="and the CREATE DATE field (#1)."
- +16 SET SDXR("VAL",1)=8.5
- +17 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +18 SET SDXR("VAL",1,"COLLATION")="F"
- +19 SET SDXR("VAL",2)=15
- +20 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +21 SET SDXR("VAL",2,"COLLATION")="F"
- +22 SET SDXR("VAL",3)=1
- +23 SET SDXR("VAL",3,"SUBSCRIPT")=3
- +24 SET SDXR("VAL",3,"COLLATION")="F"
- +25 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +26 QUIT
- AGC ;GC IN 409.85
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GC xref in 409.85..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.85
- +7 SET SDXR("NAME")="GC"
- +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 AND ORIGINATING DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ SPECIFIC "
- +14 SET SDXR("DESCR",2)="CLINIC field (#8) and the CREATE DATE field (#1)."
- +15 SET SDXR("VAL",1)=8
- +16 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +17 SET SDXR("VAL",1,"COLLATION")="F"
- +18 SET SDXR("VAL",2)=1
- +19 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +20 SET SDXR("VAL",2,"COLLATION")="F"
- +21 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +22 QUIT
- AGCC ;GCC IN 409.85
- +1 NEW Y
- +2 SET Y=$$NOW^XLFDT
- SET Y=$$FMTE^XLFDT(Y)
- +3 WRITE !!,"Building new GCC xref in 409.85..."
- +4 WRITE !,Y
- +5 NEW SDXR,SDRES,SDOUT
- +6 SET SDXR("FILE")=409.85
- +7 SET SDXR("NAME")="GCC"
- +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 AND CID/PREFERRED DATE"
- +13 SET SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ SPECIFIC "
- +14 SET SDXR("DESCR",2)="CLINIC field (#8) and the CID PREFERRED DATE OF APPT field (#22)."
- +15 SET SDXR("VAL",1)=8
- +16 SET SDXR("VAL",1,"SUBSCRIPT")=1
- +17 SET SDXR("VAL",1,"COLLATION")="F"
- +18 SET SDXR("VAL",2)=22
- +19 SET SDXR("VAL",2,"SUBSCRIPT")=2
- +20 SET SDXR("VAL",2,"COLLATION")="F"
- +21 DO CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
- +22 QUIT