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 |