PSJORP2 ;BIR/JCH-CALCULATE FIRST DOSE FOR OE/RR 3.0 ;27 Feb 03 / 9:40 AM
Source file <PSJORP2.m>
Package | Total | Call Graph |
---|---|---|
Inpatient Medications | 4 | $$EN^PSGCT EN^PSGORS0 $$DOW^PSIVUTL ADMIN^PSJORPOE |
Kernel | 1 | $$FMADD^XLFDT |
VA Fileman | 1 | (,C,DW,NOW)^%DTC |
Name | Comments | DBIA/ICR reference |
---|---|---|
LAST | ; find expected last dose
|
|
TS(X) | ;
|
|
PRT(PSGTS) | ; order info
|
|
LASTAT(PSGP,INFO) | ;
|
|
OS(PSGP,PSGST) | ; order record set
|
|
DTS(SCHEDULE) | ;
|
|
ENQ(PSGP,INFO) | ; start
; INFO (piece 1) = START DATE/TIME ; INFO (piece 2) = STOP DATE/TIME ; INFO (piece 3) = SCHEDULE ; INFO (piece 4) = SCHEDULE TYPE ; INFO (piece 5) = ORDERABLE ITEM ; INFO (piece 6) = ADMIN TIMES |
|
FIRST | ; find expected first dose
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(59.6 - [#59.6] | ENQ+27 |
Name | Line Occurrences |
---|---|
$$ENQ | LASTAT+1 |
DTS | OS+4 |
FIRST | PRT+2 |
LAST | PRT+2 |
OS | ENQ+23 |
PRT | ENQ+25 |
TS | PRT+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ENQ+22 |
ADMIN | FIRST+1~, FIRST+4*, FIRST+5, LAST+1~, LAST+4*, LAST+5 |
AM | DTS+6*, DTS+7! |
D | ENQ+14~ |
DA | ENQ+14~ |
DCAL | ENQ+17*, ENQ+18~* |
>> FD | OS+2*, OS+5, DTS+4, DTS+6 |
FIRST | ENQ+8~, ENQ+10*, ENQ+26*, ENQ+27*, ENQ+29, FIRST+1*, FIRST+4, FIRST+6* |
>> HX | ENQ+21* |
INFO | ENQ~, ENQ+9, ENQ+12, ENQ+14, LASTAT~, LASTAT+1, LASTAT+2 |
>> LAST | ENQ+25*, LAST+1*, LAST+4, LAST+6* |
>> LASTAT | LASTAT+1*, LASTAT+2*, LASTAT+4 |
LSTDT | LASTAT+1~ |
>> P(9 | FIRST+2*, LAST+2* |
PSGAT | ENQ+14~ |
PSGD | ENQ+21!, ENQ+24, ENQ+28!, LASTAT+3! |
PSGD( | ENQ+21*, OS+4, OS+5, DTS+2, FIRST+4, FIRST+6, LAST+4, LAST+6 |
PSGDF | ENQ+8~, ENQ+20*, ENQ+21 |
PSGDT | ENQ+14~, ENQ+22* |
>> PSGDW | ENQ+21* |
PSGED | ENQ+8~, ENQ+23* |
PSGFD | ENQ+8~, ENQ+9*, ENQ+15*, ENQ+25, DTS+4, DTS+6, FIRST+6, LAST+6 |
PSGGD | ENQ+28!, PRT+1*, FIRST+2~*, FIRST+6, LAST+2~*, LAST+6, LASTAT+3! |
PSGLFFD | FIRST+2~*, LAST+2~* |
PSGNEFD | ENQ+8~, ENQ+9*, ENQ+15*, ENQ+20, OS+1, OS+2 |
PSGNESD | ENQ+8~, ENQ+9*, ENQ+20, OS+1, OS+6 |
>> PSGOC | PRT+3* |
PSGOES | ENQ+14~* |
PSGP | ENQ~, ENQ+23, OS~, LASTAT~, LASTAT+1 |
PSGS | ENQ+8~, ENQ+19*, OS+1, DTS+6*, DTS+7! |
PSGS0XT | ENQ+8~, ENQ+10*, ENQ+13, ENQ+15, OS+2, OS+6 |
PSGS0Y | ENQ+8~, ENQ+9*, ENQ+12*, ENQ+14~, ENQ+16*, ENQ+18*, ENQ+27, OS+6*, OS+7 |
PSGSCH | ENQ+8~, ENQ+9*, ENQ+11, ENQ+13, ENQ+16, OS+1, OS+3, OS+4 |
PSGSD | ENQ+8~, ENQ+9*, ENQ+11, ENQ+15, ENQ+16, ENQ+17, ENQ+18, ENQ+21, ENQ+23, ENQ+26 , ENQ+27, DTS+3, DTS+5, FIRST+6, LAST+6 |
PSGST | ENQ+8~, ENQ+9*, ENQ+10*, ENQ+14~, ENQ+16, ENQ+19, ENQ+23, OS~, DTS+1 |
PSGT | DTS+3*, DTS+4, DTS+5!*, DTS+6, DTS+7! |
PSGTS | PRT~, PRT+1*, PRT+2, FIRST+3, LAST+3 |
PSGX | DTS+6*, DTS+7! |
PSJLSTAT | ENQ+13, ENQ+15, ENQ+25, PRT+2, LASTAT+1~* |
PSJNSS | ENQ+14~ |
>> PSJPSTO | PRT+1* |
PSJPWD | ENQ+14~, ENQ+27 |
>> PSJSYSW0 | ENQ+16 |
PST | ENQ+8~, ENQ+9*, ENQ+23*, OS+3, PRT+1, FIRST+2, LAST+2 |
Q | ENQ+21*, ENQ+28!, DTS+2*, FIRST+4*, FIRST+5, FIRST+6, LAST+4*, LAST+5, LAST+6, TS+1* , LASTAT+3! |
ENQ+28!, OS+4*, OS+5*, OS+7, DTS+2*, DTS+4*, LASTAT+3! | |
QST | ENQ+28!, OS+3*, OS+4, OS+7, LASTAT+3! |
QTS | FIRST+1~, FIRST+5*, FIRST+6, LAST+1~, LAST+5*, LAST+6 |
S | ENQ+28!, OS+5, DTS+1!*, DTS+2*, DTS+4*, DTS+6*, LASTAT+3! |
S( | OS+5, DTS+2*, DTS+4*, DTS+6* |
SCHEDULE | DTS~, DTS+1, DTS+3 |
SCHFREQ | ENQ+8~ |
>> SD | OS+1*, OS+4*, OS+5, DTS+3*, DTS+4, DTS+5 |
ST | DTS+5*, DTS+6*, DTS+7! |
>> T | OS+2*, DTS+3, DTS+5 |
TEST | ENQ+14~ |
TS | ENQ+28!, FIRST+3, LAST+3, TS+1!*, LASTAT+3! |
TS( | FIRST+4, FIRST+5, LAST+4, LAST+5, TS+1* |
U | ENQ+9, ENQ+21, OS+5, OS+7, DTS+2 |
VALMBCK | ENQ+14~ |
>> WD | DTS+1*, DTS+2, DTS+3*, DTS+4, DTS+6 |
X | ENQ+11*, ENQ+14~*, ENQ+15, ENQ+20, ENQ+21*, ENQ+25, ENQ+28!, OS+4*, OS+5, OS+7* , DTS+3*, DTS+4, DTS+5, DTS+6*, TS~, TS+1, LASTAT+3! |
>> X1 | ENQ+15*, ENQ+20*, ENQ+21*, DTS+4*, DTS+5* |
>> X2 | ENQ+15*, ENQ+20*, ENQ+21*, DTS+4*, DTS+5* |