ASDCLAV.m

ASDCLAV ; IHS/ADC/PDW/ENM - IHS CALLS FROM SDCLAV ; [ 03/25/1999  11:48 AM ]

 ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 ;

CANC ;EP; called to find cancelled appts

 Q:$O(^SC(SDC,"S",SDAP,1,0))

 S SDN1=0

 F  S SDN1=$O(^DPT("ASDCN",SDC,SDAP,SDN1)) Q:SDN1=""  D

 . S SDN2=$P(^DPT(+SDN1,0),U),M1=""

 . S DFN=+SDN1,SDN3=$$HRCN^ASDUT,SDN3=$S(SDN3="":"UNKNOWN",1:SDN3)

 . D NM2^SDCLAV0

 K SDN1

 Q

ASDCLAV   ; IHS/ADC/PDW/ENM - IHS CALLS FROM SDCLAV ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 +2       ;

CANC      ;EP; called to find cancelled appts

 +1        IF $ORDER(^SC(SDC,"S",SDAP,1,0))

               QUIT 

 +2        SET SDN1=0

 +3        FOR 

               SET SDN1=$ORDER(^DPT("ASDCN",SDC,SDAP,SDN1))

               IF SDN1=""

                   QUIT 

               Begin DoDot:1

 +4                SET SDN2=$PIECE(^DPT(+SDN1,0),U)

                   SET M1=""

 +5                SET DFN=+SDN1

                   SET SDN3=$$HRCN^ASDUT

                   SET SDN3=$SELECT(SDN3="":"UNKNOWN",1:SDN3)

 +6                DO NM2^SDCLAV0

               End DoDot:1

 +7        KILL SDN1

 +8        QUIT