Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDEC658A

SDEC658A.m

Go to the documentation of this file.
  1. SDEC658A ;ALB/SAT/JSM - VISTA SCHEDULING PRE/POST (CONTINUED) ;MAR 15, 2017
  1. ;;5.3;Scheduling;**658**;Aug 13, 1993;Build 23
  1. ;
  1. Q
  1. ;
  1. INDEX ;
  1. D EWL
  1. D APPT^SDEC658B
  1. Q
  1. EWL ;
  1. D GS
  1. D GSC
  1. D GSP
  1. D GSA
  1. D GSB
  1. D GC
  1. D GCC
  1. D C
  1. Q
  1. GS ;GS IN 409.3
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GS xref in 409.3..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.3
  1. S SDXR("NAME")="GS"
  1. S SDXR("TYPE")="R"
  1. S SDXR("USE")="LS"
  1. S SDXR("EXECUTION")="R"
  1. S SDXR("ACTIVITY")="IR"
  1. S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID AND ORIGINATING DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort/filter Wait List entries by the CLINIC STOP id "
  1. S SDXR("DESCR",2)="and the ORIGINATING DATE field (#1). The CLINIC STOP id comes from the SD "
  1. S SDXR("DESCR",3)="WL SERVICE/SPECIALTY file (#409.31). The WL SERVICE/SPECIALTY field (#7) "
  1. S SDXR("DESCR",4)="in the SD WAIT LIST file (#409.3) contains the pointer to the SD WL "
  1. S SDXR("DESCR",5)="SERVICE/SPECIALTY file."
  1. S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"COLLATION")="F"
  1. S SDXR("VAL",2)=1
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  1. S SDXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
  1. Q
  1. GSC ;GSC IN 409.3
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GSC xref in 409.3..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.3
  1. S SDXR("NAME")="GSC"
  1. S SDXR("TYPE")="R"
  1. S SDXR("USE")="LS"
  1. S SDXR("EXECUTION")="R"
  1. S SDXR("ACTIVITY")="IR"
  1. S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID AND CID/PREFERRED DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id and the "
  1. S SDXR("DESCR",2)="CID/PREFERRED DATE field (#22). The CLINIC STOP id comes from the SD WL "
  1. S SDXR("DESCR",3)="SERVICE/SPECIALTY file (#409.31). The WL SERVICE/SPECIALTY field (#7) in "
  1. S SDXR("DESCR",4)="the SD WAIT LIST file (#409.3) contains the pointer to the SD WL "
  1. S SDXR("DESCR",5)="SERVICE/SPECIALTY file."
  1. S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"COLLATION")="F"
  1. S SDXR("VAL",2)=22
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  1. S SDXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
  1. Q
  1. GSP ;GSP IN 409.3
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GSP xref in 409.3..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.3
  1. S SDXR("NAME")="GSP"
  1. S SDXR("TYPE")="R"
  1. S SDXR("USE")="LS"
  1. S SDXR("EXECUTION")="R"
  1. S SDXR("ACTIVITY")="IR"
  1. S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID, ENROLLMENT PRIORITY, AND ORIGINATING DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
  1. S SDXR("DESCR",2)="Patient's ENROLLMENT PRIORITY, and the ORIGINATING DATE field (#1)."
  1. S SDXR("DESCR",3)="The CLINIC STOP id comes from the SD WL SERVICE/SPECIALTY file (#409.31)."
  1. S SDXR("DESCR",4)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
  1. S SDXR("DESCR",5)="contains the pointer to the SD WL SERVICE/SPECIALTY file."
  1. S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"COLLATION")="F"
  1. 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)"
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  1. S SDXR("VAL",2,"COLLATION")="F"
  1. S SDXR("VAL",3)=1
  1. S SDXR("VAL",3,"SUBSCRIPT")=3
  1. S SDXR("VAL",3,"COLLATION")="F"
  1. D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
  1. Q
  1. GSA ;GSA IN 409.3
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GSA xref in 409.3..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.3
  1. S SDXR("NAME")="GSA"
  1. S SDXR("TYPE")="R"
  1. S SDXR("USE")="LS"
  1. S SDXR("EXECUTION")="R"
  1. S SDXR("ACTIVITY")="IR"
  1. S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SERVICES) ID, SVC CONNECTED, AND ORIGINATING DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
  1. S SDXR("DESCR",2)="SERVICE CONNECTED, and the ORIGINATING DATE field (#1)."
  1. S SDXR("DESCR",3)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
  1. S SDXR("DESCR",4)="contains the pointer to the SD WL SERVICE/SPECIALTY file. The CLINIC STOP "
  1. S SDXR("DESCR",5)="id is in the SERVICE/SPECIALTY field (#.01) of the SD WL "
  1. S SDXR("DESCR",6)="SERVICE/SPECIALTY file (#409.31)"
  1. S SDXR("DESCR",7)="SERVICE CONNECTED is the SERVICE CONNECTED? field (#.301) (a required "
  1. S SDXR("DESCR",8)="field) in the PATIENT file (#2)."
  1. S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"COLLATION")="F"
  1. S SDXR("VAL",2)="S X=$P($G(^DPT(+$P($G(^SDWL(409.3,DA,0)),U,1),.3)),U,1)"
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  1. S SDXR("VAL",2,"COLLATION")="F"
  1. S SDXR("VAL",3)=1
  1. S SDXR("VAL",3,"SUBSCRIPT")=3
  1. S SDXR("VAL",3,"COLLATION")="F"
  1. D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
  1. Q
  1. GSB ;GSB IN 409.3
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.3
  1. S SDXR("NAME")="GSB"
  1. S SDXR("TYPE")="R"
  1. S SDXR("USE")="LS"
  1. S SDXR("EXECUTION")="R"
  1. S SDXR("ACTIVITY")="IR"
  1. S SDXR("SHORT DESCR")="SORT BY CLINIC STOP (SVCS) ID, SVC CONNECTED PRIORITY, AND ORIGINATING DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the CLINIC STOP id, "
  1. S SDXR("DESCR",2)="SERVICE CONNECTED PRIORITY field (#15), and the ORIGINATING DATE field "
  1. S SDXR("DESCR",3)="(#1)."
  1. S SDXR("DESCR",4)="The WL SERVICE/SPECIALTY field (#7) in the SD WAIT LIST file (#409.3) "
  1. S SDXR("DESCR",5)="contains the pointer to the SD WL SERVICE/SPECIALTY file. The CLINIC STOP "
  1. S SDXR("DESCR",6)="id is in the SERVICE/SPECIALTY field (#.01) of the SD WL "
  1. S SDXR("DESCR",7)="SERVICE/SPECIALTY file (#409.31)."
  1. S SDXR("VAL",1)="S X=$P($G(^SDWL(409.31,+$P($G(^SDWL(409.3,DA,0)),U,8),0)),U,1)"
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"COLLATION")="F"
  1. S SDXR("VAL",3)=1
  1. S SDXR("VAL",3,"SUBSCRIPT")=3
  1. S SDXR("VAL",3,"COLLATION")="F"
  1. S SDXR("VAL",2)=15
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  1. S SDXR("VAL",2,"COLLATION")="F"
  1. S SDXR("VAL",2,"XFORM FOR STORAGE")="S X=+X"
  1. D CREIXN^DDMOD(.SDXR,"SW",.SDRES,"SDOUT")
  1. Q
  1. GC ;GC IN 409.3
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GC xref in 409.3..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.3
  1. S SDXR("NAME")="GC"
  1. S SDXR("TYPE")="R"
  1. S SDXR("USE")="LS"
  1. S SDXR("EXECUTION")="F"
  1. S SDXR("ACTIVITY")="IR"
  1. S SDXR("SHORT DESCR")="SORT BY CLINIC AND ORIGINATING DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the Clinic ID and the "
  1. S SDXR("DESCR",2)="ORIGINATING DATE field (#1)."
  1. S SDXR("DESCR",3)="The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC "
  1. S SDXR("DESCR",4)="LOCATION file (#409.32)."
  1. S SDXR("DESCR",5)="The SD WL CLINIC LOCATION pointer is in the WL SPECIFIC CLINIC field (#8) "
  1. S SDXR("DESCR",6)="of the SD WAIT LIST file (#409.3)."
  1. S SDXR("VAL",1)="S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)"
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",2)=1
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  1. S SDXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
  1. Q
  1. GCC ;GCC IN 409.3
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GCC xref in 409.3..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.3
  1. S SDXR("NAME")="GCC"
  1. S SDXR("TYPE")="R"
  1. S SDXR("USE")="LS"
  1. S SDXR("EXECUTION")="F"
  1. S SDXR("ACTIVITY")="IR"
  1. S SDXR("SHORT DESCR")="SORT BY CLINIC ID AND CID/PREFERRED DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Wait List entries by the Clinic ID and the "
  1. S SDXR("DESCR",2)="CID/PREFERRED DATE field (#22)."
  1. S SDXR("DESCR",3)="The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC "
  1. S SDXR("DESCR",4)="LOCATION file (#409.32). The SD WL CLINIC LOCATION pointer is in the WL "
  1. S SDXR("DESCR",5)="SPECIFIC CLINIC field (#8) of the SD WAIT LIST file (#409.3)."
  1. S SDXR("VAL",1)="S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)"
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",2)=22
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  1. S SDXR("VAL",2,"COLLATION")="F"
  1. D CREIXN^DDMOD(.SDXR,"S",.SDRES,"SDOUT")
  1. Q
  1. C ;C IN 409.831
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new C xref in 409.831..."
  1. W !,Y
  1. N DIK
  1. S DIK="^SDEC(409.831,",DIK(1)=".011^C"
  1. D ENALL^DIK
  1. Q