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* |