Routine: SDWL120

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)

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWL120   2385     printed  Apr 09, 2024@21:54:08                                                                                                                                                                                                     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

SDWL120.m