- SDWLAPI ;;IOFO BAY PINES/TEH - WAIT LIST API;06/12/2002 ; 20 Aug 2002 2:10 PM
- ;;5.3;scheduling;**263,1015**;AUG 13 1993;Build 21
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ASK1 ;Prompt for putting Patient on Waiting List
- ;
- ;Check Wait List file for Patient on Wait List.
- ;
- S Y=0,DIR(0)="YA0^^" S DIR("A")="Do you want to place this Patient on a Waiting List? No // "
- D ^DIR K DIR("A"),DIR(0)
- I 'Y!(Y="")!($D(DUOUT))
- D NEW^SDWLE(DFN) ;-Call Wait List Enter/Edit Module.
- Q
- ASK2 ;If appointment is made and the Patient is on the Waiting List for the Clinic/Specialty prompt
- S DIR(0)="YAO^^"
- S DIR("A",1)="This Patient is currently on the Waiting List for this Clinic/Specialty."
- S DIR("A")="Do you wish to remove from List Yes // "
- D ^DIR K DIR("A"),DIR(0)
- I 'Y D
- .S DIE="^SDWL(409.3",DA=SDWLDA,DR="18Reason for Not Dispositioning: "
- D EDIT^SDWLDISP
- END Q
- SDWLAPI ;;IOFO BAY PINES/TEH - WAIT LIST API;06/12/2002 ; 20 Aug 2002 2:10 PM
- +1 ;;5.3;scheduling;**263,1015**;AUG 13 1993;Build 21
- +2 ;
- +3 ;
- +4 ;
- +5 ;
- +6 ;
- +7 ;
- +8 ;
- +9 ;
- +10 ;
- +11 ;
- +12 ;
- ASK1 ;Prompt for putting Patient on Waiting List
- +1 ;
- +2 ;Check Wait List file for Patient on Wait List.
- +3 ;
- +4 SET Y=0
- SET DIR(0)="YA0^^"
- SET DIR("A")="Do you want to place this Patient on a Waiting List? No // "
- +5 DO ^DIR
- KILL DIR("A"),DIR(0)
- +6 IF 'Y!(Y="")!($DATA(DUOUT))
- +7 ;-Call Wait List Enter/Edit Module.
- DO NEW^SDWLE(DFN)
- +8 QUIT
- ASK2 ;If appointment is made and the Patient is on the Waiting List for the Clinic/Specialty prompt
- +1 SET DIR(0)="YAO^^"
- +2 SET DIR("A",1)="This Patient is currently on the Waiting List for this Clinic/Specialty."
- +3 SET DIR("A")="Do you wish to remove from List Yes // "
- +4 DO ^DIR
- KILL DIR("A"),DIR(0)
- +5 IF 'Y
- Begin DoDot:1
- +6 SET DIE="^SDWL(409.3"
- SET DA=SDWLDA
- SET DR="18Reason for Not Dispositioning: "
- End DoDot:1
- +7 DO EDIT^SDWLDISP
- END QUIT