SDEC658B.m

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 ---SDEC658B   6545     printed  Apr 09, 2024@21:51:36                                                                                                                                                                                                    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