source:
WorldVistAEHR/tag/Release_6_08/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIP23.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.