source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDN2.m@ 1169

Last change on this file since 1169 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 639 bytes
Line 
1SDN2 ;ALB/CAW - Misc. No-Show Utilities; 4/28/92
2 ;;5.3;Scheduling;**445**;Aug 13, 1993
3 ;
4NS ; Cancel inpatient appt when no-showed
5 ;
6 W !,*7,"Inpatient Appointments cannot reflect No-Show status!"
7 Q
8 D UPDT(I)
9 W !!,"...OK New Status: ",$P($$STATUS^SDAM1(DFN,I,SC,^DPT(DFN,"S",I,0)),";",3)
10 S $P(^DPT(DFN,"S",I,0),U,15)=$O(^SD(409.2,"B","INPATIENT STATUS",0))
11 Q
12UPDT(SD) ; Event Driver and pattern update
13 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
14 S S=SD,I=SC,SDNSF=1,STR="#@!$* XXWVUTSRQPONMLKJIHGFEDCBA0123456789jklmnopqrstuvwxyz"
15 D STAT^SDM2,CAN^SDM2
16 Q
Note: See TracBrowser for help on using the repository browser.