source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSCHPST.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PSSCHPST ;BIR/WRT-CMOP-Host post-install routine ; 09/30/97 14:56
2 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
3 ; POST-INSTALL ROUTINE-CMOP HOST
4VERSION S:'$D(^PS(59.7,1,80)) ^PS(59.7,1,80)="1.0^0"
5 D ^PSSDENT,MR,CLEAN S $P(^PS(59.7,1,80),"^",1)="1.0" D BTEMP,P8 K ^TMP($J,"PSSEXP"),SCH,IEN,OEXP
6 Q
7CLEAN F IFN=0:0 S IFN=$O(^PSDRUG(IFN)) Q:'IFN K:$D(^PSDRUG(IFN,"CH")) ^PSDRUG(IFN,"CH") K:$D(^PSDRUG(IFN,"PS")) ^PSDRUG(IFN,"PS") K:$D(^PSDRUG(IFN,"IV")) ^PSDRUG(IFN,"IV")
8 Q
9P8 S SCH="" F S SCH=$O(^TMP($J,"PSSEXP",SCH)) Q:SCH="" S OEXP=$O(^TMP($J,"PSSEXP",SCH,0)) I $D(^PS(51.1,"AC","PSJ",SCH)) S IEN=$O(^PS(51.1,"AC","PSJ",SCH,0)) S:$P(^PS(51.1,IEN,0),"^",8)="" $P(^PS(51.1,IEN,0),"^",8)=OEXP
10 Q
11BTEMP F GG=0:1 S HH=$P($T(DATA+GG),";",3,20) Q:HH="" S RCD=$P(HH,"^",1),EXP=$P(HH,"^",2) D BTEMP1
12 K GG,HH,RCD,EXP Q
13BTEMP1 S ^TMP($J,"PSSEXP",RCD,EXP)=""
14 Q
15MR N ROOT,I,J,X,LINE
16 S ROOT=$NA(@XPDGREF@("DATA"))
17 F J=1:1 Q:'$D(@ROOT@(J)) S LINE=^(J) D MR1
18 Q
19MR1 I $D(^PS(51.2,"B",$P(LINE,"^",1))) S DA=$O(^PS(51.2,"B",$P(LINE,"^",1),0)) S $P(^PS(51.2,DA,0),"^",2)=$P(LINE,"^",2)
20 Q
21DATA ;;QD^EVERY DAY
22 ;;BID^TWICE A DAY
23 ;;Q4H^EVERY 4 HOURS
24 ;;Q3H^EVERY 3 HOURS
25 ;;Q8H^EVERY 8 HOURS
26 ;;QAM^EVERY MORNING
27 ;;Q6H^EVERY 6 HOURS
28 ;;TID^THREE TIMES A DAY
29 ;;QID^FOUR TIMES A DAY
30 ;;Q12H^EVERY 12 HOURS
31 ;;QOD^EVERY OTHER DAY
32 ;;QHS^AT BEDTIME
33 ;;Q24H^EVERY 24 HOURS
34 ;;Q2H^EVERY 2 HOURS
Note: See TracBrowser for help on using the repository browser.