|
Last change
on this file since 1476 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
404 bytes
|
| Line | |
|---|
| 1 | DIP23 ;SFISC/XAK-PRINT TEMPLATE ;5/10/90 1:36 PM
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ED S DA=+Y,DRK=DK K Y
|
|---|
| 5 | S DRK=DK,DIE="^DIPT(",DR=".01;3;6" D ^DIE K DR G Q^DIP:$D(Y)
|
|---|
| 6 | S DC=0,DI=I(0) I $D(DA),'$D(^DIPT(DA,1)) S D9="",DC(0)=DA,DC(1)=-1 D ^DIP22 S DA=DC(0)
|
|---|
| 7 | I $D(DA),$D(^DIPT(DA,1)) D ^DIFGA G Q^DIP:$D(DTOUT),H^DIP3
|
|---|
| 8 | S DALL(1)=1 G ^DIP2
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
