source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSJXR17.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 722 bytes
Line 
1PSSJXR17 ; COMPILED XREF FOR FILE #55 ; 01/17/08
2 ;
3 S DIKZK=1
4 S DIKZ(0)=$G(^PS(55,DA,0))
5 S X=$P(DIKZ(0),U,1)
6 I X'="" S ^PS(55,"B",$E(X,1,30),DA)=""
7 S X=$P(DIKZ(0),U,1)
8 I X'="" I '$D(PSGINITF) S ^PS(55,"ALCNVRT")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
9 S X=$P(DIKZ(0),U,1)
10 I X'="" I '$D(PSGINITF) S ^PS(55,"AUDDD")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
11 S X=$P(DIKZ(0),U,1)
12 I X'="" I '$D(PSGINITF) S ^PS(55,"AUDAPM")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
13 S X=$P(DIKZ(0),U,4)
14 I X'="" S ^PS(55,"ADIA",$E(X,1,30),DA)=""
15 S DIKZ("SAND")=$G(^PS(55,DA,"SAND"))
16 S X=$P(DIKZ("SAND"),U,1)
17 I X'="" S ^PS(55,"ASAND",DA)=""
18 S X=$P(DIKZ("SAND"),U,1)
19 I X'="" S ^PS(55,"ASAND1",$E(X,1,30),DA)=""
20END G ^PSSJXR18
Note: See TracBrowser for help on using the repository browser.