©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSJ005 ;BIR/RSB-UTILITY ROUTINE FOR PATCH PSJ*5*5 ; 03 Jun 98 / 12:06 PM
Source file <PSJ005.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ^%ZTLOAD MES^XPDUTL |
| VA Fileman | 2 | ^%DT ^DIE |
| Inpatient Medications | 1 | EN1^PSJHL2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IV() | ; is the Orderable Item marked for IV use? if yes - quit
|
|
| EN | ; QUEUE UP CONVERSION FOR UD OUTPATIENT CLEANUP
|
|
| DISC() | ; was the patients last movement a discharge? if not - quit
|
|
| GETDT | ; check date/time for job to run
|
|
| CON(X) | ;
|
|
| DC | ; change the orders status to DISCONTINUED!
|
|
| START | ;
|
|
| START1 | ;
|
|
| BADN | ; called from BADNAMES^PSJIPST3, when main CPRS is finished
|
|
| FIN | ;
; has CPRS main order conversion finished? IF NOT DON'T ASK TIME TO Q |
| FileNo | Call Tags |
|---|---|
| ^PS(53.1 - [#53.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DISC+1 |
| ^PS(50.7 - [#50.7] | IV+2 |
| ^PS(53.1 - [#53.1] | START+2, START+4, IV+1 |
| ^PS(55 - [#55] | START1+2, START1+3, START1+4!, START1+5, START1+6, START1+7! |
| ^PS(59.7 - [#59.7] | FIN+2, EN+1 |
| Name | Line Occurrences |
|---|---|
| $$CON | EN+3, EN+11 |
| $$DISC | START+3 |
| $$IV | START+5 |
| DC | START+6 |
| Name | Field # of Occurrence |
|---|---|
| ^(4 | START1+4*, START1+7* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | GETDT+1~*, CON+1~* |
| >> DA | DC+3* |
| DFN | START1+1~, START1+2*, START1+3, START1+4, START1+5*, START1+6, START1+7 |
| DIE | DC+3*! |
| >> DR | DC+3* |
| OI | IV+1~*, IV+2 |
| PM | EN+7~*, EN+8* |
| PSJ | START+1~, START+2*, START+4, DISC+1, DC+4 |
| PSJ0 | START+1~, START+2*, START+4 |
| PSJ1 | START+1~, START+4*, IV+1, DC+3, DC+4 |
| >> PSJCONV | FIN+2*, EN+1*, EN+2, EN+3, EN+6, EN+11 |
| PSJORD | START1+1~, START1+3*, START1+4, START1+6*, START1+7 |
| U | START1+4, START1+7 |
| X | GETDT+2!, GETDT+3*, CON~ |
| >> XPDQUES("POS | ONE" , EN+3, EN+6, EN+11 |
| Y | GETDT+1~, GETDT+2, GETDT+3, CON+2 |
| >> ZTDESC | EN+4*, EN+12*, BADN+2*, BADN+7* |
| >> ZTDTH | EN+3*, EN+11*, BADN+1*, BADN+6* |
| >> ZTIO | EN+3*, EN+11*, BADN+1*, BADN+6* |
| >> ZTRTN | EN+5*, EN+13*, BADN+3*, BADN+8* |
| >> ZTSK | EN+6 |