Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
598 bytes
|
Line | |
---|
1 | YSASCR ;692/DCL-CLOSE ASI RECORD AFTER SIGNATURE ;3/16/98 09:17
|
---|
2 | ;;5.01;MENTAL HEALTH;**24,30,32,38**;Dec 30, 1994
|
---|
3 | Q
|
---|
4 | CR(YSASIEN,YSASDUZ,YSASPNI) ;Close Record - pass IEN and DUZ of e-signature
|
---|
5 | Q:$G(YSASIEN)'>0
|
---|
6 | Q:$G(YSASDUZ)'>0
|
---|
7 | N DIC,DIE,DA,DR,X,Y
|
---|
8 | S DIE="^YSTX(604,",DA=YSASIEN
|
---|
9 | S DR=".125///NOW;.81///@;.51///1;.52///`"_YSASDUZ_";5.5///1"
|
---|
10 | S:$G(YSASPNI)>0 DR=DR_";.53///`"_YSASPNI
|
---|
11 | D ^DIE
|
---|
12 | Q
|
---|
13 | ;
|
---|
14 | CONV(YSASIEN,YSASDUZT) ;Convert person allowed to edit ASI field to_DUZ
|
---|
15 | Q:$G(YSASIEN)'>0
|
---|
16 | Q:$G(YSASDUZT)'>0
|
---|
17 | N DIC,DIE,DA,DR,X,Y
|
---|
18 | S DIE="^YSTX(604,",DA=YSASIEN
|
---|
19 | S DR=".81///`"_YSASDUZT
|
---|
20 | D ^DIE
|
---|
21 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.