PSJUTL2 ;BIR/LDT - MISC UTILITIES FOR INPATIENT MEDICATIONS ;18 Aug 98 / 2:48 PM
Source file <PSJUTL2.m>
| Package | Total | Call Graph | 
|---|---|---|
| Inpatient Medications | 2 | $$ENDTC1^PSGMI $$EXPIRED^PSGOER | 
| VA Fileman | 2 | NOW^%DTC $$EXTERNAL^DILFD | 
| Barcode Medication Administration | 1 | $$EN^PSBAPIPM | 
| Kernel | 1 | $$FMADD^XLFDT | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DATE2(PSJDT) | ;Returns date in fileman format with a time in hours and minutes | |
| PREV | ;If the original order has no administration data logged against it then check to see if there is data for the previous order. | |
| BCMALG(PSJX,PSJY) | 
 
 | |
| DATE() | ;Returns date in fileman format with a time in hours and minutes. | |
| RNEWOK(DAD,PSJDFN) | ;Returns 1 or 0 if all in complex order series are active. | 
| FileNo | Call Tags | 
|---|---|
| ^PSB(53.79 - [#53.79] | EXTERNAL^DILFD | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PS(53.1 - [#53.1] | PREV+2 | 
| ^PS(55 - [#55] | BCMALG+2, PREV+2, RNEWOK+2 | 
| Name | Line Occurrences | 
|---|---|
| PREV | BCMALG+5 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | DATE+3, DATE+4, DATE+5 | 
| DAD | RNEWOK~, RNEWOK+2 | 
| F | RNEWOK+1~, RNEWOK+3*, RNEWOK+4 | 
| I | RNEWOK+1~*, RNEWOK+2* | 
| II | RNEWOK+1~*, RNEWOK+2*, RNEWOK+3, RNEWOK+4, RNEWOK+5 | 
| NODE0 | RNEWOK+1~, RNEWOK+4* | 
| PREON | PREV+1~, PREV+2*, PREV+3 | 
| >> PSGDT | DATE+1*, DATE+6*, DATE+7*, DATE+8 | 
| PSJDFN | RNEWOK~, RNEWOK+3, RNEWOK+5 | 
| PSJDT | DATE+6, DATE2~, DATE2+1, DATE2+3, DATE2+4, DATE2+5, DATE2+6*, DATE2+7*, DATE2+8 | 
| >> PSJLACT | BCMALG+1*, BCMALG+4*, BCMALG+6, PREV+4* | 
| PSJLAST | BCMALG+1~, BCMALG+3*, BCMALG+4, BCMALG+5, PREV+3*, PREV+4 | 
| PSJX | BCMALG~, BCMALG+2, BCMALG+3, PREV+2, PREV+3 | 
| PSJY | BCMALG~, BCMALG+2, BCMALG+3, PREV+2 | 
| STAT | RNEWOK+1~, RNEWOK+4* | 
| TIM | DATE+1~, DATE+7*, DATE2+2~, DATE2+7* | 
| X | DATE+1~, DATE+3*, DATE+4*, DATE+5*, DATE+6, DATE2+2~, DATE2+3*, DATE2+4*, DATE2+5*, DATE2+6 | 
| Y | RNEWOK+1~*, RNEWOK+2, RNEWOK+3*, RNEWOK+4*, RNEWOK+5*, RNEWOK+6 |