©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
PSOR52 ;IHS/DSD/JCM-files refill entries in prescription file ;23-Sep-2013 16:30;PLS
Source file <PSOR52.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 10 | PROCESSX^PSOBBC ECMESND^PSOBPSU1 ($$STATUS,$$SUBMIT)^PSOBPSUT EN^PSOHDR $$GETNDC^PSONDCUT $$HDLG^PSOREJU1 RETRXF^PSOREJU2 $$FIND^PSOREJUT BBRX^PSORN52C SUS^PSORXL |
| VA Fileman | 3 | (C,NOW)^%DTC (,IX1)^DIK $$GET1^DIQ |
| Pharmacy Data Management | 2 | PSOUL^PSSLOCK SAVNDC^PSSNDCUT |
| Kernel | 1 | (T0,T1)^%ZOSV |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | PSOATRF PSOATRFC PSOREF0 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FINISH | ;
|
|
| END | ||
| DIK | ;
|
|
| EOJ | ;
|
|
| DD | ;rx data nodes
|
|
| FINISHX | ;
|
|
| START | ;
|
|
| INIT | ;
|
|
| FILE | ;
|
|
| EN(PSOX) | ;Entry Point
|
|
| INITX |
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | INIT+5, INIT+8 |
| NOW^%DTC | INIT+4 |
| T0^%ZOSV | START+1 |
| T1^%ZOSV | START+5 |
| ^DIK | EOJ+2 |
| IX1^DIK | DIK+2 |
| $$GET1^DIQ | FINISH+23 |
| PROCESSX^PSOBBC | FINISH+28 |
| ECMESND^PSOBPSU1 | FINISH+19 |
| $$STATUS^PSOBPSUT | FINISH+6, FINISH+22 |
| $$SUBMIT^PSOBPSUT | FINISH+6, FINISH+18 |
| EN^PSOHDR | DIK+4 |
| $$GETNDC^PSONDCUT | FINISH+23 |
| $$HDLG^PSOREJU1 | FINISH+21 |
| RETRXF^PSOREJU2 | FINISH+7 |
| $$FIND^PSOREJUT | FINISH+20 |
| BBRX^PSORN52C | FINISHX+1 |
| SUS^PSORXL | FINISH+3, FINISH+12 |
| PSOUL^PSSLOCK | EOJ+3 |
| SAVNDC^PSSNDCUT | FINISH+23 |
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
| ^PS(52.41 - [#52.41] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.41 - [#52.41] | EOJ+2 |
| ^PSDRUG - [#50] | INIT+3 |
| ^PSRX - [#52] | FILE+2, FILE+3*, FILE+6*, FILE+8*, FILE+9*, FILE+10*, FILE+11*, DIK+3 |
| ^PSRX("ACP" | DIK+3* |
| Name | Line Occurrences |
|---|---|
| DIK | START+4 |
| END | START+2 |
| EOJ | END |
| FILE | START+3 |
| FINISH | START+6 |
| FINISHX | FINISH+1, FINISH+9, FINISH+25, FINISH+33 |
| INIT | START+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | FILE+2*, FILE+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | INIT+4 |
| ACTION | FINISH+16~, FINISH+18, FINISH+19*, FINISH+21* |
| >> APSPPRIO | INIT+19 |
| >> BBFLG | FINISHX+1* |
| >> BINGCRT | FINISHX+1* |
| >> BINGRTE | FINISHX+1* |
| DA | DIK+1!, DIK+2*, DIK+3!, FINISH+2*, FINISH+3!, FINISH+11*, FINISH+12!, EOJ+2*, EOJ+3, EOJ+4! |
| DIK | DIK+1!, DIK+2*!, EOJ+2*, EOJ+4! |
| DT | INIT+12, FILE+11, FINISH+9 |
| DUZ | INIT+16 |
| >> PPL | FINISH+27, FINISH+30*, FINISH+31* |
| PSOERF | FINISH+16~, FINISH+17*, FINISH+18, FINISH+19, FINISH+20, FINISH+21, FINISH+22, FINISH+23 |
| PSOERX | FINISH+16~, FINISH+17*, FINISH+18, FINISH+19, FINISH+20, FINISH+21, FINISH+22, FINISH+23 |
| >> PSOPAR | INIT+12, FINISH+9 |
| PSOR52 | FILE+4*, EOJ+4! |
| PSOR52( | FILE+4*, FILE+6 |
| PSOR52("QFLG" | START+2, INIT+1* |
| PSORFKL | EOJ+3*! |
| >> PSORX("MAIL/WINDOW" | FINISHX+1 |
| >> PSORX("PSOL" | FINISH+33*, FINISH+34, FINISH+35*, FINISH+36* |
| >> PSOSITE | FINISH+23 |
| PSOX | EN~ |
| PSOX("APSPPRIO" | INIT+19* |
| PSOX("CLERK C | ODE" , INIT+16* |
| PSOX("COST" | INIT+3* |
| PSOX("DAYS SU | PPLY" , INIT+2*, INIT+5, INIT+7 |
| PSOX("DISPENS | ED DATE" , INIT+11* |
| PSOX("FILL DA | TE" , INIT+5, INIT+11, INIT+12, FILE+11, FINISH+9, FINISH+19 |
| PSOX("GENERIC | PROVIDER" , INIT+14* |
| PSOX("IRXN" | FILE+2, FILE+3, FILE+4, FILE+6, FILE+8, FILE+9, FILE+10, FILE+11, DIK+2, DIK+4 , FINISH+2, FINISH+6, FINISH+7, FINISH+10, FINISH+11, FINISH+13, FINISH+17, FINISH+27, FINISH+29, FINISH+30 , FINISH+31, FINISH+33, FINISH+35, FINISH+36, FINISH+37, EOJ+2 |
| PSOX("LAST DI | SPENSED DATE" , INIT+11*, FILE+9 |
| PSOX("LAST RE | FILL DATE" , FILE+10 |
| PSOX("LOGIN D | ATE" , INIT+4*, INIT+12, FINISH+9 |
| PSOX("MAIL/WINDOW" | INIT+13*, EOJ+1* |
| PSOX("METHOD | OF PICK-UP" , FILE+11 |
| PSOX("NEXT PO | SSIBLE REFILL" , INIT+9*, FILE+9 |
| PSOX("NUMBER" | INIT+7, FILE+3, FILE+4, FILE+6, DIK+3, FINISH+2, FINISH+6, FINISH+7, FINISH+11, FINISH+17 , FINISH+29, FINISH+33, FINISH+37 |
| PSOX("OLD MAI | L/WINDOW" , INIT+13*, EOJ+1! |
| PSOX("PROVIDER" | INIT+15* |
| PSOX("QS" | FINISH+1, FINISH+25 |
| PSOX("QTY" | INIT+2* |
| PSOX("RX0" | INIT+2, INIT+3, INIT+15 |
| PSOX("RX2" | INIT+6, INIT+14 |
| PSOX("STA" | FILE+8 |
| PSOX1 | INIT+5*, INIT+9, INIT+10!, FILE+4*, FILE+5!, FILE+6*, FILE+7!, FINISH+34*, FINISHX+2! |
| PSOX2 | INIT+8*, INIT+9, INIT+10!, FINISH+34*, FINISH+35, FINISH+36, FINISHX+2! |
| PSOXRXFL | FINISH+10!*, FINISH+13! |
| PSOY | FILE+4!*, FILE+5! |
| RXFL | FINISH+28! |
| RXFL( | FINISH+2*, FINISH+10, FINISH+11*, FINISH+13*, FINISH+29*, FINISH+33*, FINISH+37* |
| X | INIT+5, INIT+8, INIT+10! |
| >> X1 | INIT+5*, INIT+6* |
| >> X2 | INIT+5*, INIT+7* |
| >> XRT0 | START+5 |
| >> XRTL | START+1 |
| >> XRTN | START+5* |
| Name | Field # of Occurrence |
|---|---|
| $T( | START+5 |
| $T(DD+PSOX1 | FILE+4 |
| $T(EN^PSOHDR | DIK+4 |