source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDWL120.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1SDWL120 ;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 ;
4MESS(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 ;
29MESS2(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
Note: See TracBrowser for help on using the repository browser.