©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
PSJIPST2 ;BIR/LDT-CONVERSION UTILITY TO CHANGE PICK LIST FROM PRIMARY DRUG TO ORDERABLE ITEM ; 15 May 98 / 9:28 AM
Source file <PSJIPST2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENPVNV | ; Entry point to begin conversion process to change PV FLAG and NV FLAG
; fields from "" to 0. |
|
| ACTPK | ; activate Pick List options
|
|
| DEQPL | ;Convert Existing Pick Lists
|
|
| MAILPVNV | ;Send mail msg. when UNIT DOSE VERIFICATION DATA has completed.
|
|
| DEQPVNV | ; Update NV FLAG and PV FLAG fields so they contain 0 instead of ""
; for use by APV and ANV xrefs added on these fields. This only affects ; orders for the current admission. |
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | DEQPVNV+4, DEQPVNV+5 |
| NOW^%DTC | DEQPL+18, DEQPVNV+4, DEQPVNV+5, MAILPVNV+5 |
| ^%ZTLOAD | ENPVNV+3 |
| ^DIE | DEQPL+10, ACTPK+3 |
| EN1^DIK | DEQPL+2 |
| $$LOCK^PSGPLUTL | DEQPL+3 |
| UNLOCK^PSGPLUTL | DEQPL+11 |
| $$WGNM^PSGVBWU | DEQPVNV+6 |
| ^XMD | DEQPL+16, MAILPVNV+3 |
| MES^XPDUTL | ENPVNV+5, ENPVNV+6, ENPVNV+8 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(19 - [#19] | Classic Fileman Calls |
| ^PS(53.5 - [#53.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(19 - [#19] | ACTPK+2 |
| ^DPT("CN" | DEQPVNV+6 |
| ^PS(53.5 - [#53.5] | DEQPL+2, DEQPL+4!, DEQPL+5, DEQPL+6, DEQPL+7, DEQPL+8, DEQPL+9, DEQPL+10* |
| ^PS(55 - [#55] | DEQPL+9, DEQPVNV+10, DEQPVNV+11, DEQPVNV+12, DEQPVNV+13* |
| ^PS(59.7 - [#59.7] | DEQPL+18*, MAILPVNV+5* |
| ^PSDRUG - [#50] | DEQPL+9 |
| ^XTMP("PSJPVNV" | DEQPVNV+4!*, MAILPVNV+4! |
| Name | Field # of Occurrence |
|---|---|
| ^(4 | DEQPVNV+12* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DEQPL+18, DEQPVNV+5, MAILPVNV+5 |
| CNT | DEQPL+1~, DEQPL+2*, DEQPL+11*, DEQPL+15 |
| DA | DEQPL+2*, DEQPL+10!*, ACTPK+2*, ACTPK+3, ACTPK+4! |
| DA(1 | DEQPL+10* |
| >> DFN | DEQPVNV+6*, DEQPVNV+10, DEQPVNV+11, DEQPVNV+12, DEQPVNV+13 |
| DIE | DEQPL+10!*, ACTPK+2*, ACTPK+4! |
| DIFROM | DEQPL+16~, MAILPVNV+3~ |
| >> DIK | DEQPL+2* |
| >> DIK(1 | DEQPL+2* |
| DR | DEQPL+10*, ACTPK+3*, ACTPK+4! |
| DUZ | DEQPL+14, MAILPVNV+1 |
| >> ND | DEQPL+7*, DEQPL+9, DEQPL+10* |
| >> OIDA | DEQPL+9*, DEQPL+10 |
| ON | DEQPL+1~ |
| PSG | DEQPL+14!, DEQPL+17!, MAILPVNV+1!, MAILPVNV+4! |
| PSG(1 | DEQPL+15*, MAILPVNV+2* |
| PSG(2 | DEQPL+15*, MAILPVNV+2* |
| PSG(3 | DEQPL+15* |
| >> PSGDT | DEQPVNV+5* |
| >> PSGFD | DEQPVNV+10*, DEQPVNV+11 |
| >> PSGODT | DEQPVNV+5*, DEQPVNV+10 |
| >> PSGORD | DEQPVNV+11*, DEQPVNV+12, DEQPVNV+13 |
| >> PSJMESSG | ENPVNV+6*, ENPVNV+8* |
| PSJPKLST | ACTPK+1*, ACTPK+2, ACTPK+4! |
| >> PSJST | DEQPVNV+10*, DEQPVNV+11 |
| >> PSJWD | DEQPVNV+6* |
| >> PSJWG | DEQPVNV+6* |
| S1 | DEQPL+1~, DEQPL+2*, DEQPL+3, DEQPL+4, DEQPL+5, DEQPL+6, DEQPL+7, DEQPL+8, DEQPL+9, DEQPL+10 , DEQPL+11 |
| S2 | DEQPL+1~, DEQPL+5*, DEQPL+6, DEQPL+7, DEQPL+8, DEQPL+9, DEQPL+10 |
| S3 | DEQPL+1~, DEQPL+6*, DEQPL+7, DEQPL+8, DEQPL+9, DEQPL+10 |
| S4 | DEQPL+1~, DEQPL+8*, DEQPL+9 |
| U | DEQPL+7, DEQPL+9, DEQPL+10, DEQPL+18, DEQPVNV+12, DEQPVNV+13, MAILPVNV+5 |
| X | DEQPL+1~, DEQPL+9*, DEQPVNV+4, DEQPVNV+5, DEQPVNV+12*, DEQPVNV+13 |
| >> X1 | DEQPVNV+4*, DEQPVNV+5* |
| >> X2 | DEQPVNV+4*, DEQPVNV+5* |
| XMDUZ | DEQPL+14*, DEQPL+17!, MAILPVNV+1*, MAILPVNV+4! |
| XMSUB | DEQPL+14*, DEQPL+17!, MAILPVNV+1*, MAILPVNV+4! |
| XMTEXT | DEQPL+14*, DEQPL+17!, MAILPVNV+1*, MAILPVNV+4! |
| XMY | DEQPL+14!, DEQPL+17!, MAILPVNV+1!, MAILPVNV+4! |
| XMY( | DEQPL+14*, MAILPVNV+1* |
| >> ZTDESC | ENPVNV+3* |
| >> ZTDTH | ENPVNV+3* |
| >> ZTIO | ENPVNV+3* |
| >> ZTRTN | ENPVNV+3* |
| ZTSAVE | ENPVNV+3! |
| ZTSK | ENPVNV+3!, ENPVNV+6, ENPVNV+8 |