source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSVX64.m@ 1806

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

initial load of FOIAVistA 6/30/08 version

File size: 912 bytes
Line 
1PSSVX64 ; COMPILED XREF FOR FILE #52.6 ; 03/08/06
2 ;
3 S DIKZK=1
4 S DIKZ(0)=$G(^PS(52.6,DA,0))
5 S X=$P(DIKZ(0),U,1)
6 I X'="" S ^PS(52.6,"B",$E(X,1,30),DA)=""
7 S X=$P(DIKZ(0),U,2)
8 I X'="" S ^PS(52.6,"AC",$E(X,1,30),DA)=""
9 S X=$P(DIKZ(0),U,2)
10 I X'="" I $P($G(^PSDRUG(X,2)),"^",3)'["I" S PSIUDA=X,PSIUX="I" D ENS^PSSGIU
11 S X=$P(DIKZ(0),U,2)
12 I X'="" D
13 .N DIK,DIV,DIU,DIN
14 .K DIV S (DIV,X)=$P($G(^PSDRUG(X,2)),U,6) I DIV S DIU=$P($G(^PS(52.6,DA,0)),U,12) I DIV'=DIU S $P(^(0),U,12)=DIV I $O(^DD(52.6,16,1,0)) S (D0,DIV(0))=DA,DIH=52.6,DIG=16 D ^DICR
15 S X=$P(DIKZ(0),U,2)
16 I X'="" D S526^PSSPOID1
17 S DIKZ("I")=$G(^PS(52.6,DA,"I"))
18 S X=$P(DIKZ("I"),U,1)
19 I X'="" X ^DD(52.6,12,1,1,1)
20 S DIKZ(0)=$G(^PS(52.6,DA,0))
21 S X=$P(DIKZ(0),U,11)
22 I X'="" S ^PS(52.6,"AOI",$E(X,1,30),DA)=""
23 S X=$P(DIKZ(0),U,12)
24 I X'="" S ^PS(52.6,"APD",$E(X,1,30),DA)=""
25 S X=$P(DIKZ(0),U,13)
26 I X'="" X ^DD(52.6,17,1,1,1)
27END G ^PSSVX65
Note: See TracBrowser for help on using the repository browser.