source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT031.m@ 1742

Last change on this file since 1742 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 381 bytes
Line 
1XUCT031 ; COMPILED XREF FOR FILE #3.081 ; 10/15/04
2 ;
3 S DIKZK=2
4 S DIKZ(0)=$G(^XUSEC(0,DA,0))
5 S X=$P(DIKZ(0),U,11)
6 I X'="" K ^XUSEC(0,"AS1",$P(X,":"),DA)
7 S X=$P(DIKZ(0),U,11)
8 I X'="" N % S %=^XUSEC(0,DA,0) K ^XUSEC(0,"AS3",$P(%,U),$P(X,":"),DA)
9 S X=$P(DIKZ(0),U,12)
10 I X'="" K ^XUSEC(0,"AS2",$P(X,":"),DA)
11 S X=$P(DIKZ(0),U,1)
12 I X'="" K ^XUSEC(0,"CUR",$E(X,1,30),DA)
13END Q
Note: See TracBrowser for help on using the repository browser.