SDN2.m

SDN2 ;ALB/CAW - Misc. No-Show Utilities; 4/28/92

 ;;5.3;Scheduling;**445,1015**;Aug 13, 1993;Build 21

 ;

NS ; Cancel inpatient appt when no-showed

 ;

 W !,*7,"Inpatient Appointments cannot reflect No-Show status!"

 Q

 D UPDT(I)

 W !!,"...OK    New Status: ",$P($$STATUS^SDAM1(DFN,I,SC,^DPT(DFN,"S",I,0)),";",3)

 S $P(^DPT(DFN,"S",I,0),U,15)=$O(^SD(409.2,"B","INPATIENT STATUS",0))

 Q

UPDT(SD) ; Event Driver and pattern update

 N DA,DIV,HSI1,I,S,SB1,SCI,SD1,SD17,SDDIF1,SDQ,SDRT,SDNSF,SDATA,SDPL,SDSC,SDSY,SDSX,SDTIME,SDTTM,SI1,SL1,SS,ST,STR

 S S=SD,I=SC,SDNSF=1,STR="#@!$* XXWVUTSRQPONMLKJIHGFEDCBA0123456789jklmnopqrstuvwxyz"

 D STAT^SDM2,CAN^SDM2

 Q

SDN2      ;ALB/CAW - Misc. No-Show Utilities; 4/28/92

 +1       ;;5.3;Scheduling;**445,1015**;Aug 13, 1993;Build 21

 +2       ;

NS        ; Cancel inpatient appt when no-showed

 +1       ;

 +2        WRITE !,*7,"Inpatient Appointments cannot reflect No-Show status!"

 +3        QUIT 

 +4        DO UPDT(I)

 +5        WRITE !!,"...OK    New Status: ",$PIECE($$STATUS^SDAM1(DFN,I,SC,^DPT(DFN,"S",I,0)),";",3)

 +6        SET $PIECE(^DPT(DFN,"S",I,0),U,15)=$ORDER(^SD(409.2,"B","INPATIENT STATUS",0))

 +7        QUIT 

UPDT(SD)  ; Event Driver and pattern update

 +1        NEW DA,DIV,HSI1,I,S,SB1,SCI,SD1,SD17,SDDIF1,SDQ,SDRT,SDNSF,SDATA,SDPL,SDSC,SDSY,SDSX,SDTIME,SDTTM,SI1,SL1,SS,ST,STR

 +2        SET S=SD

           SET I=SC

           SET SDNSF=1

           SET STR="#@!$* XXWVUTSRQPONMLKJIHGFEDCBA0123456789jklmnopqrstuvwxyz"

 +3        DO STAT^SDM2

           DO CAN^SDM2

 +4        QUIT