Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDN2

SDN2.m

Go to the documentation of this file.
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