|
Last change
on this file since 1039 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
369 bytes
|
| Line | |
|---|
| 1 | SDCAN ;ALB/LDB - CREATE INDIVIDUALLY CANCELLED APPT. NODES ;25-NOV-88@14:00
|
|---|
| 2 | ;;5.3;Scheduling;**487**;Aug 13, 1993
|
|---|
| 3 | K Q8 F Q7=0:0 S Q7=$O(^SC($P(^DPT(DA(1),"S",DA,0),"^"),"S",DA,1,Q7)) Q:Q7'>0 I $P(^(Q7,0),"^")=DA(1),$P(^(0),"^",9)["C" S Q8="" Q
|
|---|
| 4 | I '$D(Q8) S ^DPT("ASDCN",$P(^DPT(DA(1),"S",DA,0),"^"),DA,DA(1))=$S($P(^DPT(DA(1),"S",DA,0),"^",2)["P":1,1:"")
|
|---|
| 5 | K Q7,Q8 Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
