©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
PSONEW ;BIR/SAB-new rx order main driver ;05-Jun-2013 15:42;DU
Source file <PSONEW.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 12 | ^PSOBUILD EN^PSOHLSN1 HLDHDR^PSOLMUTL EN^PSON52 ^PSONEW1 ^PSONEW2 (AUTO,CHECK)^PSONRXN LOCK^PSOORCPY RV^PSOORFL BLD^PSOORUT1 NPSOSD^PSOUTIL CLEAN^PSOVER1 |
| VA Fileman | 3 | ^DIE $$GET1^DIQ ^DIR |
| Order Entry Results Reporting | 2 | ($$NA,NA)^ORX1 (LK,ULK)^ORX2 |
| IHS Changes To Pharmacy | 1 | EN^APSPPCC1 |
| Pharmacy Data Management | 1 | ($$L,UL)^PSSLOCK |
| Registration | 1 | FULL^VALM1 |
| Text Integration Utility | 1 | MAIN^TIUEDIT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AGAIN | ||
| PRONTE | ||
| DIRX | ||
| END | ||
| OERR | ;backdoor new rx for v7
|
|
| EOJ | ;
|
|
| NOORX | ||
| DEL | ;
|
|
| NOOR | ;asks nature of order
|
|
| NOORE(PSONEW) | ;entry point for renew
|
|
| DIR | ;ask nature of order
|
|
| COUN | ;patient counseling
|
| Name | Field # of Occurrence |
|---|---|
| EN^APSPPCC1 | AGAIN+10 |
| ^DIE | DEL+7 |
| $$GET1^DIQ | DIR+4 |
| ^DIR | END+1, COUN+4, COUN+6, PRONTE+2, DIR+10 |
| $$NA^ORX1 | DIR+4 |
| NA^ORX1 | DIR+1 |
| LK^ORX2 | OERR+3 |
| ULK^ORX2 | END+2 |
| ^PSOBUILD | END+2 |
| EN^PSOHLSN1 | EOJ+6, EOJ+7 |
| HLDHDR^PSOLMUTL | AGAIN |
| EN^PSON52 | AGAIN+9 |
| ^PSONEW1 | AGAIN+1 |
| ^PSONEW2 | AGAIN+7 |
| AUTO^PSONRXN | AGAIN+4 |
| CHECK^PSONRXN | AGAIN+4 |
| LOCK^PSOORCPY | OERR+2 |
| RV^PSOORFL | END+3 |
| BLD^PSOORUT1 | END+2 |
| NPSOSD^PSOUTIL | AGAIN+13 |
| CLEAN^PSOVER1 | EOJ+3 |
| $$L^PSSLOCK | OERR+2 |
| UL^PSSLOCK | OERR+3, END+2 |
| MAIN^TIUEDIT | EOJ+9, PRONTE+1 |
| FULL^VALM1 | AGAIN+1, EOJ+9 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ORD(100.02 - [#100.02] | GET1^DIQ |
| ^PS(59 - [#59] | Classic Fileman Calls |
| ^APSPCTRL - [#9009033] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DILOCKTM" | DEL+5 |
| ^PS(59 - [#59] | DEL+5, DEL+7, DEL+8 |
| ^PSRX - [#52] | AGAIN+11*, AGAIN+12*, EOJ+7 |
| ^PSRX("B" | EOJ+1 |
| ^TMP("PSORXDC" | EOJ+4! |
| ^TMP("PSORXN" | EOJ+5, EOJ+6, EOJ+8! |
| ^VA(200 - [#200] | DIR+4, DIR+9 |
| ^XUSEC("PSORPH" | NOOR+4, NOOR+7, NOOR+11 |
| Name | Line Occurrences |
|---|---|
| AGAIN | END+1 |
| COUN | NOOR+4, NOOR+7 |
| DEL | AGAIN+5, AGAIN+6, AGAIN+7 |
| DIR | NOOR+6, NOOR+9 |
| END | AGAIN+2, AGAIN+3, AGAIN+5, AGAIN+6, AGAIN+7, AGAIN+8 |
| EOJ | END |
| NOOR | AGAIN+6, NOORE+1 |
| NOORX | NOOR+3, NOOR+11, COUN+1 |
| PRONTE | COUN+3, COUN+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACNT | EOJ+4! |
| ACOM | EOJ+4! |
| ANQDATA | EOJ+2! |
| >> APSP("CM" | AGAIN+11 |
| C | EOJ+2! |
| COPY | OERR+1! |
| CRIT | EOJ+4! |
| DA | DEL+3*, NOOR+10! |
| DEF | EOJ+4! |
| DF | DIR+7*, DIR+10! |
| DIE | DEL+3*, DEL+7!, NOOR+10! |
| DIK | NOOR+10! |
| DIR | END+1!, NOOR+7!, NOOR+10!, COUN+1!, COUN+6!, PRONTE!, PRONTE+1!, PRONTE+2!, NOORX!, DIR+1! , DIR+8! |
| DIR("A" | END+1*, PRONTE+2*, DIR+8* |
| DIR("B" | END+1*, COUN+4*, COUN+6*, PRONTE+2*, DIR+8* |
| DIR(0 | END+1*, COUN+4*, COUN+6*, PRONTE+2*, DIR+9* |
| DIRUT | END+1!, NOOR+6, NOOR+7!, NOOR+9, NOOR+10!, COUN+1!, COUN+5, COUN+6!, PRONTE!, PRONTE+1! , NOORX!, DIR+1!, DIR+6*, DIR+8!, DIR+10, NOORE+1 |
| DR | DEL+6*, NOOR+10! |
| DRET | OERR+1!, EOJ+4! |
| DTOUT | END+1!, NOOR+7!, NOOR+10!, COUN+1!, COUN+6!, NOORX!, DIR+1!, DIR+8! |
| DUOUT | END+1!, NOOR+10!, COUN+1!, COUN+6!, PRONTE!, PRONTE+1!, NOORX! |
| DUR | OERR+1!, EOJ+4! |
| DUZ | NOOR+4, NOOR+7, NOOR+11, DIR+4, DIR+9 |
| DUZ("AG" | COUN+3 |
| F1 | EOJ+4! |
| GG | EOJ+4! |
| I1 | EOJ+4! |
| IEN | EOJ+4! |
| INDT | EOJ+4! |
| LAST | EOJ+4! |
| LSI | EOJ+2! |
| MAX | EOJ+2! |
| MIN | EOJ+2! |
| MSG | EOJ+4! |
| NDF | EOJ+2! |
| NIEN | EOJ+4! |
| >> OR0 | NOOR+3, NOOR+4 |
| ORD | AGAIN+1!, END+1! |
| >> P(99 | AGAIN+12 |
| >> POERR | AGAIN+3, AGAIN+5, AGAIN+7 |
| >> POERR("DFLG" | AGAIN+3*, AGAIN+5*, AGAIN+7* |
| PSDRUG | END+1! |
| PSOCOU | AGAIN!, EOJ+2!, COUN+3*, COUN+4*, COUN+5, COUN+6 |
| PSOCOUU | AGAIN!, EOJ+2!, COUN+3*, COUN+5*, COUN+6!* |
| >> PSODFN | OERR+2, OERR+3, AGAIN+10, END+2, EOJ+9 |
| PSODRUG | AGAIN!, EOJ+2! |
| PSODRUG("OI" | NOOR+4 |
| PSOEDIT | OERR+1! |
| PSOFLAG | EOJ+2! |
| >> PSOFROM | AGAIN* |
| PSOHI | EOJ+2! |
| PSOI | NOOR+4*, NOOR+10! |
| PSOLO | EOJ+2! |
| PSONEW | AGAIN+9, AGAIN+13, END+1!, EOJ+2!, NOORE~ |
| PSONEW("DFLG" | AGAIN*, AGAIN+3, AGAIN+5, AGAIN+6, AGAIN+7, NOOR+6*, NOOR+9*, NOORE+1* |
| PSONEW("IRXN" | AGAIN+10, AGAIN+11, AGAIN+12 |
| PSONEW("NOO" | NOORE+2* |
| PSONEW("OLD L | AST RX#" , DEL+3, DEL+4 |
| PSONEW("QFLG" | AGAIN*, AGAIN+2, AGAIN+5 |
| PSONEW("RX #" | , AGAIN+4, EOJ+1 |
| >> PSONOBCK | DIR+4 |
| PSONODF | DIR+7*, DIR+8, DIR+10! |
| PSONOEDT | AGAIN*, EOJ+2! |
| PSONOODF | NOOR+1~, NOOR+2*, NOOR+5*, DIR+4 |
| PSONOOR | AGAIN!, EOJ+2!, NOOR+4*, NOOR+7*, NOOR+10*, DIR+4*, DIR+5*, DIR+6!, DIR+7, DIR+8 , DIR+10*, NOORE+2 |
| PSONOTE | EOJ+9, EOJ+10!, PRONTE!, PRONTE+3* |
| >> PSOPAR | AGAIN+4, DEL+2 |
| PSOPLCK | OERR+2*!, OERR+3! |
| PSOPRC | EOJ+4! |
| PSOREEDT | OERR+1! |
| >> PSORX("EDIT" | EOJ+2!, COUN+1 |
| >> PSORX("FN" | AGAIN!, AGAIN+8, END+1, END+4! |
| >> PSORX("NAME" | END+1 |
| >> PSOSIGFL | NOOR+4, COUN+1 |
| >> PSOSITE | DEL+3, DEL+5, DEL+7, DEL+8, DIR+4 |
| PSOX | AGAIN+4*, DEL+4*, DEL+6, DEL+7, DEL+9! |
| PSOY | DEL+3*, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, DEL+9! |
| REF | EOJ+2! |
| RORD | EOJ+4! |
| RXN | EOJ+5*, EOJ+6, EOJ+7, EOJ+8! |
| RXN1 | EOJ+6*, EOJ+8! |
| SER | EOJ+2! |
| SIG | EOJ+2! |
| SPEED | OERR+1!, COUN+5, PRONTE+1 |
| STA | EOJ+4! |
| >> TIUDA | EOJ+9 |
| >> VALMBCK | OERR+2*, OERR+3*, AGAIN+3*, AGAIN+5*, AGAIN+7*, AGAIN+14*, END+4* |
| VALMCNT | AGAIN~ |
| >> VALMSG | OERR+2*, OERR+3* |
| X | OERR+3*, END+2*, DEL+7!, NOORX! |
| Y | OERR+3, END+1, DEL+7!, NOOR+7, NOOR+10, COUN+4, COUN+6, PRONTE+3, NOORX!, DIR+5* , DIR+10 |
| Name | Field # of Occurrence |
|---|---|
| $T(MAIN^TIUEDIT | PRONTE+1 |
| $T(NA^ORX1 | DIR+1 |