|
Last change
on this file since 724 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.
