- 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 Mar 13, 2025@22:07:11 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
