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

SDEC658B.m

Go to the documentation of this file.
  1. SDEC658B ;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. APPT ;
  1. D AGS
  1. D AGSC
  1. D AGSP
  1. D AGSA
  1. D AGSB
  1. D AGC
  1. D AGCC
  1. Q
  1. AGS ;GS IN 409.85
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GS xref in 409.85..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.85
  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 REQ SERVICE/SPECIALTY ID AND ORIGINATING DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
  1. S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5) and the CREATE DATE field (#1)."
  1. S SDXR("VAL",1)=8.5
  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. AGSC ;GSC IN 409.85
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GSC xref in 409.85..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.85
  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 REQ SERVICE/SPECIALTY ID AND CID/PREFERRED DATE OF APPT"
  1. S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
  1. S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5) and the CID/PREFERRED DATE OF APPT field "
  1. S SDXR("DESCR",3)="(#22)."
  1. S SDXR("VAL",1)=8.5
  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. AGSP ;GSP IN 409.85
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GSP xref in 409.85..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.85
  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 REQ SERVICE/SPECIALTY, ENROLLMENT PRIORITY, AND CREATE DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
  1. S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), Patient's ENROLLMENT PRIORITY, and the "
  1. S SDXR("DESCR",3)="CREATE DATE field (#1)."
  1. S SDXR("DESCR",4)="The Patient's ENROLLMENT PRIORITY comes from the ENROLLMENT PRIORITY "
  1. S SDXR("DESCR",5)="field (#.07) of the PATIENT ENROLLMENT file (#27.11)."
  1. S SDXR("DESCR",6)="The CURRENT ENROLLMENT field (#27.01) of the PATIENT file (#2) contains "
  1. S SDXR("DESCR",7)="the pointer into the PATIENT ENROLLMENT FILE."
  1. S SDXR("VAL",1)=8.5
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"COLLATION")="F"
  1. 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)"
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  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. AGSA ;GSA IN 409.85
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GSA xref in 409.85..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.85
  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 REQ SERVICE/SPECIALTY, SVC CONNECTED, AND CREATE DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
  1. S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), SERVICE CONNECTED, and the CREATE DATE "
  1. S SDXR("DESCR",3)="field (#1)."
  1. S SDXR("DESCR",4)="SERVICE CONNECTED is the SERVICE CONNECTED? field (#.301) in the PATIENT "
  1. S SDXR("DESCR",5)="file (#2)."
  1. S SDXR("VAL",1)=8.5
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"COLLATION")="F"
  1. 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"
  1. S SDXR("VAL",2,"SUBSCRIPT")=2
  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. AGSB ;GSB IN 409.85
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GSB xref in 409.85..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.85
  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 REQ SERVICE/SPECIALTY, SVC CONNECTED PRIORITY, AND CREATE DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ "
  1. S SDXR("DESCR",2)="SERVICE/SPECIALTY field (#8.5), SERVICE CONNECTED PRIORITY field (#15), "
  1. S SDXR("DESCR",3)="and the CREATE DATE field (#1)."
  1. S SDXR("VAL",1)=8.5
  1. S SDXR("VAL",1,"SUBSCRIPT")=1
  1. S SDXR("VAL",1,"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",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. AGC ;GC IN 409.85
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GC xref in 409.85..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.85
  1. S SDXR("NAME")="GC"
  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 AND ORIGINATING DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ SPECIFIC "
  1. S SDXR("DESCR",2)="CLINIC field (#8) and the CREATE DATE field (#1)."
  1. S SDXR("VAL",1)=8
  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. AGCC ;GCC IN 409.85
  1. N Y
  1. S Y=$$NOW^XLFDT,Y=$$FMTE^XLFDT(Y)
  1. W !!,"Building new GCC xref in 409.85..."
  1. W !,Y
  1. N SDXR,SDRES,SDOUT
  1. S SDXR("FILE")=409.85
  1. S SDXR("NAME")="GCC"
  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 AND CID/PREFERRED DATE"
  1. S SDXR("DESCR",1)="This xref is used to sort Appointment Request entries by the REQ SPECIFIC "
  1. S SDXR("DESCR",2)="CLINIC field (#8) and the CID PREFERRED DATE OF APPT field (#22)."
  1. S SDXR("VAL",1)=8
  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