SDWLAPI ;;IOFO BAY PINES/TEH - WAIT LIST API;06/12/2002 ; 20 Aug 2002 2:10 PM
;;5.3;scheduling;**263**;AUG 13 1993
;
;
;
;
;
;
;
;
;
;
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLAPI 878 printed Nov 22, 2024@18:12:05 Page 2
SDWLAPI ;;IOFO BAY PINES/TEH - WAIT LIST API;06/12/2002 ; 20 Aug 2002 2:10 PM
+1 ;;5.3;scheduling;**263**;AUG 13 1993
+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
