| 1 | SDWL120 ;IOFO BAY PINES/esw- EWL- 120 delay appt message;05/28/2006 ; Compiled April 9, 2007 14:19:00
|
|---|
| 2 | ;;5.3;scheduling;**446**;AUG 13, 1993;Build 77
|
|---|
| 3 | ;
|
|---|
| 4 | MESS(DFN,SDWLDA,SDPR) ;
|
|---|
| 5 | ; SDWLDA - EWL IEN to 409.3
|
|---|
| 6 | ; SDPR - flag indicating creation of 409.32 clinic entry
|
|---|
| 7 | ; 0 - no entry
|
|---|
| 8 | ; 1 - entry created
|
|---|
| 9 | S ^TMP("SDWL120",$J,.01)="An open Wait List entry was created with a 120 days flag, indicating that it"
|
|---|
| 10 | S ^TMP("SDWL120",$J,.02)="was not possible to schedule an appointment for the listed clinic within"
|
|---|
| 11 | S ^TMP("SDWL120",$J,.03)="120 days of the desired date."
|
|---|
| 12 | S ^TMP("SDWL120",$J,.04)=""
|
|---|
| 13 | N SDAPPT,Y
|
|---|
| 14 | S ^TMP("SDWL120",$J,.05)="An EWL Entry was created for the following patient,"
|
|---|
| 15 | S ^TMP("SDWL120",$J,.06)=""
|
|---|
| 16 | S ^TMP("SDWL120",$J,.07)=$$FORM^SDFORM("PATIENT NAME",23,"SSN",12,"EWL",35)
|
|---|
| 17 | S ^TMP("SDWL120",$J,.08)="--------------------------------------------------------------------------"
|
|---|
| 18 | 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)
|
|---|
| 19 | S ^TMP("SDWL120",$J,.1)=""
|
|---|
| 20 | I SDPR S ^TMP("SDWL120",$J,.11)="SD WL CLINIC LOCATION parameter entry created."
|
|---|
| 21 | N XMSUB,XMY,XMTEXT,XMDUZ
|
|---|
| 22 | S XMSUB="EWL opened entry with a 120 days flag"
|
|---|
| 23 | S XMY("G.SD EWL BACKGROUND UPDATE")=""
|
|---|
| 24 | S XMTEXT="^TMP(""SDWL120"",$J,"
|
|---|
| 25 | S XMDUZ="POSTMASTER"
|
|---|
| 26 | D ^XMD K ^TMP("SDWL120",$J)
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | MESS2(SC) ;
|
|---|
| 30 | ; SC - pointer to file 44
|
|---|
| 31 | S ^TMP("SDWL120",$J,.01)="An attempt has been made to create an EWL Entry after the lack of"
|
|---|
| 32 | S ^TMP("SDWL120",$J,.02)="any availability on the clinic,"
|
|---|
| 33 | S ^TMP("SDWL120",$J,.03)=$$GET1^DIQ(44,SC,.01)
|
|---|
| 34 | S ^TMP("SDWL120",$J,.04)="within 120 days of a patient's desired date."
|
|---|
| 35 | S ^TMP("SDWL120",$J,.05)=""
|
|---|
| 36 | S ^TMP("SDWL120",$J,.06)="The clinic has no linked Institution or Division which are required"
|
|---|
| 37 | S ^TMP("SDWL120",$J,.07)="to create the association with a Wait List."
|
|---|
| 38 | N XMSUB,XMY,XMTEXT,XMDUZ
|
|---|
| 39 | S XMSUB="EWL Location entry could not be created"
|
|---|
| 40 | S XMY("G.SD EWL BACKGROUND UPDATE")=""
|
|---|
| 41 | S XMTEXT="^TMP(""SDWL120"",$J,"
|
|---|
| 42 | S XMDUZ="POSTMASTER"
|
|---|
| 43 | D ^XMD
|
|---|
| 44 | K ^TMP("SDWL120",$J)
|
|---|
| 45 | Q
|
|---|
