32 lines
847 B
Mathematica
32 lines
847 B
Mathematica
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
|