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 |