| 1 | SDN2 ;ALB/CAW - Misc. No-Show Utilities; 4/28/92
|
|---|
| 2 | ;;5.3;Scheduling;**445**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | NS ; 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
|
|---|
| 12 | UPDT(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
|
|---|
