SDWL120 ;IOFO BAY PINES/esw- EWL- 120 delay appt message ;1/11/16 10:32am
;;5.3;scheduling;**446,645**;AUG 13, 1993;Build 7
;
MESS(DFN,SDWLDA,SDPR) ;
; SDWLDA - EWL IEN to 409.3
; SDPR - flag indicating creation of 409.32 clinic entry
; 0 - no entry
; 1 - entry created
S ^TMP("SDWL120",$J,.01)="An open Wait List entry was created with a 120 days flag, indicating that it"
S ^TMP("SDWL120",$J,.02)="was not possible to schedule an appointment for the listed clinic within"
; SD*5.3*645 - replaced desired date with CID/Preferred Date
; S ^TMP("SDWL120",$J,.03)="120 days of the desired date."
S ^TMP("SDWL120",$J,.03)="120 days of the CID/Preferred Date."
S ^TMP("SDWL120",$J,.04)=""
N SDAPPT,Y
S ^TMP("SDWL120",$J,.05)="An EWL Entry was created for the following patient,"
S ^TMP("SDWL120",$J,.06)=""
S ^TMP("SDWL120",$J,.07)=$$FORM^SDFORM("PATIENT NAME",23,"SSN",12,"EWL",35)
S ^TMP("SDWL120",$J,.08)="--------------------------------------------------------------------------"
S ^TMP("SDWL120",$J,.09)=$$FORM^SDFORM($E($$GET1^DIQ(2,DFN_",",.01,"I"),1,25),23,$$GET1^DIQ(2,DFN_",",.09,"I"),12,$$GET1^DIQ(409.3,SDWLDA_",",8),35)
S ^TMP("SDWL120",$J,.1)=""
I SDPR S ^TMP("SDWL120",$J,.11)="SD WL CLINIC LOCATION parameter entry created."
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="EWL opened entry with a 120 days flag"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWL120"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWL120",$J)
Q
;
MESS2(SC) ;
; SC - pointer to file 44
S ^TMP("SDWL120",$J,.01)="An attempt has been made to create an EWL Entry after the lack of"
S ^TMP("SDWL120",$J,.02)="any availability on the clinic,"
S ^TMP("SDWL120",$J,.03)=$$GET1^DIQ(44,SC,.01)
; SD*5.3*645 - replaced desired date with CID/Preferred Date
; S ^TMP("SDWL120",$J,.04)="within 120 days of a patient's desired date."
S ^TMP("SDWL120",$J,.04)="within 120 days of a patient's CID/Preferred Date."
S ^TMP("SDWL120",$J,.05)=""
S ^TMP("SDWL120",$J,.06)="The clinic has no linked Institution or Division which are required"
S ^TMP("SDWL120",$J,.07)="to create the association with a Wait List."
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="EWL Location entry could not be created"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWL120"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD
K ^TMP("SDWL120",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWL120 2385 printed Sep 23, 2025@20:38:56 Page 2
SDWL120 ;IOFO BAY PINES/esw- EWL- 120 delay appt message ;1/11/16 10:32am
+1 ;;5.3;scheduling;**446,645**;AUG 13, 1993;Build 7
+2 ;
MESS(DFN,SDWLDA,SDPR) ;
+1 ; SDWLDA - EWL IEN to 409.3
+2 ; SDPR - flag indicating creation of 409.32 clinic entry
+3 ; 0 - no entry
+4 ; 1 - entry created
+5 SET ^TMP("SDWL120",$JOB,.01)="An open Wait List entry was created with a 120 days flag, indicating that it"
+6 SET ^TMP("SDWL120",$JOB,.02)="was not possible to schedule an appointment for the listed clinic within"
+7 ; SD*5.3*645 - replaced desired date with CID/Preferred Date
+8 ; S ^TMP("SDWL120",$J,.03)="120 days of the desired date."
+9 SET ^TMP("SDWL120",$JOB,.03)="120 days of the CID/Preferred Date."
+10 SET ^TMP("SDWL120",$JOB,.04)=""
+11 NEW SDAPPT,Y
+12 SET ^TMP("SDWL120",$JOB,.05)="An EWL Entry was created for the following patient,"
+13 SET ^TMP("SDWL120",$JOB,.06)=""
+14 SET ^TMP("SDWL120",$JOB,.07)=$$FORM^SDFORM("PATIENT NAME",23,"SSN",12,"EWL",35)
+15 SET ^TMP("SDWL120",$JOB,.08)="--------------------------------------------------------------------------"
+16 SET ^TMP("SDWL120",$JOB,.09)=$$FORM^SDFORM($EXTRACT($$GET1^DIQ(2,DFN_",",.01,"I"),1,25),23,$$GET1^DIQ(2,DFN_",",.09,"I"),12,$$GET1^DIQ(409.3,SDWLDA_",",8),35)
+17 SET ^TMP("SDWL120",$JOB,.1)=""
+18 IF SDPR
SET ^TMP("SDWL120",$JOB,.11)="SD WL CLINIC LOCATION parameter entry created."
+19 NEW XMSUB,XMY,XMTEXT,XMDUZ
+20 SET XMSUB="EWL opened entry with a 120 days flag"
+21 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+22 SET XMTEXT="^TMP(""SDWL120"",$J,"
+23 SET XMDUZ="POSTMASTER"
+24 DO ^XMD
KILL ^TMP("SDWL120",$JOB)
+25 QUIT
+26 ;
MESS2(SC) ;
+1 ; SC - pointer to file 44
+2 SET ^TMP("SDWL120",$JOB,.01)="An attempt has been made to create an EWL Entry after the lack of"
+3 SET ^TMP("SDWL120",$JOB,.02)="any availability on the clinic,"
+4 SET ^TMP("SDWL120",$JOB,.03)=$$GET1^DIQ(44,SC,.01)
+5 ; SD*5.3*645 - replaced desired date with CID/Preferred Date
+6 ; S ^TMP("SDWL120",$J,.04)="within 120 days of a patient's desired date."
+7 SET ^TMP("SDWL120",$JOB,.04)="within 120 days of a patient's CID/Preferred Date."
+8 SET ^TMP("SDWL120",$JOB,.05)=""
+9 SET ^TMP("SDWL120",$JOB,.06)="The clinic has no linked Institution or Division which are required"
+10 SET ^TMP("SDWL120",$JOB,.07)="to create the association with a Wait List."
+11 NEW XMSUB,XMY,XMTEXT,XMDUZ
+12 SET XMSUB="EWL Location entry could not be created"
+13 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+14 SET XMTEXT="^TMP(""SDWL120"",$J,"
+15 SET XMDUZ="POSTMASTER"
+16 DO ^XMD
+17 KILL ^TMP("SDWL120",$JOB)
+18 QUIT
