source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDWLAPI.m@ 1641

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

initial load of FOIAVistA 6/30/08 version

File size: 847 bytes
Line 
1SDWLAPI ;;IOFO BAY PINES/TEH - WAIT LIST API;06/12/2002 ; 20 Aug 2002 2:10 PM
2 ;;5.3;scheduling;**263**;AUG 13 1993
3 ;
4 ;
5 ;
6 ;
7 ;
8 ;
9 ;
10 ;
11 ;
12 ;
13 ;
14ASK1 ;Prompt for putting Patient on Waiting List
15 ;
16 ;Check Wait List file for Patient on Wait List.
17 ;
18 S Y=0,DIR(0)="YA0^^" S DIR("A")="Do you want to place this Patient on a Waiting List? No // "
19 D ^DIR K DIR("A"),DIR(0)
20 I 'Y!(Y="")!($D(DUOUT))
21 D NEW^SDWLE(DFN) ;-Call Wait List Enter/Edit Module.
22 Q
23ASK2 ;If appointment is made and the Patient is on the Waiting List for the Clinic/Specialty prompt
24 S DIR(0)="YAO^^"
25 S DIR("A",1)="This Patient is currently on the Waiting List for this Clinic/Specialty."
26 S DIR("A")="Do you wish to remove from List Yes // "
27 D ^DIR K DIR("A"),DIR(0)
28 I 'Y D
29 .S DIE="^SDWL(409.3",DA=SDWLDA,DR="18Reason for Not Dispositioning: "
30 D EDIT^SDWLDISP
31END Q
Note: See TracBrowser for help on using the repository browser.