SDWLAPI.m

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