Call Graph
Call Graph Total: 3
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | ($$RX,DEL)^IBATFILE ($$PPF,$$TPP)^IBATUTL |
| Outpatient Pharmacy | 1 | EN^PSOORDER |
IBATEP ;ALB/BGA - TRANSFER PRICING RX TRACKER ; 09-APRIL-99
Source file <IBATEP.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | ($$RX,DEL)^IBATFILE ($$PPF,$$TPP)^IBATUTL |
| Outpatient Pharmacy | 1 | EN^PSOORDER |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point for Rx Transfer Pricing.
; Required Pharm 7.0 and Patch PSO*7*27 (Give us the new MSG(6) node) ; Only select records that are return to storage or released |
|
| IBDETM(X) | ; Check to see if we have a original or refill
; if original return 0|0 or 1 ^the node ^TMP("PSOR",$J,RXIEN,0) ; if refill return n=refill#|0 or 1^the node ^TMP("PSOR",$J,RXIEN,"REF",n,0) ; piece 1 0|0 means we have a original fill and released from stock ; piece 1 0|1 means we have a original fill and returned to stock ; ========================================== ; If this is a refill return the following: ; piece 1 (n|0 or 1) where "n" is the refill number and ; 0="released from stock" and 1="returned to stock" ; ========================================== ; all other conditions return "Q" ; Note: You need to Invoke EN^PSOORDER first |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBAT(351.61 - [#351.61] | EN+30, EN+31, EN+35, EN+40 |
| ^IBE(350.9 - [#350.9] | EN+3 |
| ^TMP("PSOR" | EN+19, EN+27, IBDETM+14, IBDETM+15, IBDETM+19, IBDETM+20, IBDETM+21, IBDETM+23, IBDETM+28, IBDETM+29 , IBDETM+35, IBDETM+38, IBDETM+41, IBDETM+50, IBDETM+51, IBDETM+52 |
| Name | Line Occurrences |
|---|---|
| $$IBDETM | EN+22 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | EN+27 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACT | IBDETM+13~, IBDETM+20*, IBDETM+21 |
| ACTN | IBDETM+13~, IBDETM+21*, IBDETM+23, IBDETM+26, IBDETM+27, IBDETM+38 |
| ACTON | IBDETM+13~, IBDETM+18*, IBDETM+21*, IBDETM+45, IBDETM+50 |
| D | EN+7~, EN+9*, EN+10, EN+11, EN+12 |
| FND | IBDETM+13~, IBDETM+49*, IBDETM+50, IBDETM+54*, IBDETM+57 |
| >> IBATFILE | EN+37*, EN+42* |
| IBATIEN | EN+7~, EN+31*, EN+32 |
| IBCOST | EN+8~, EN+36*, EN+37, EN+41*, EN+42 |
| IBDETM | EN+7~, IBDETM+14*, IBDETM+15*, IBDETM+23*, IBDETM+36*, IBDETM+37*, IBDETM+41*, IBDETM+42, IBDETM+45, IBDETM+46* , IBDETM+55*, IBDETM+57*, IBDETM+58 |
| IBDFN | EN+7~, EN+12*, EN+15, EN+16, EN+19, EN+37, EN+42 |
| IBDRUG | EN+8~, EN+27*, EN+37, EN+42 |
| IBEDT | EN+8~, EN+36*, EN+37, EN+41*, EN+42 |
| IBIND | EN+7~, EN+25*, EN+26, EN+35, EN+40 |
| IBPREF | EN+7~, EN+16*, EN+37, EN+42 |
| IBQTY | EN+8~, EN+36*, EN+37, EN+41*, EN+42 |
| IBREL | EN+7~, EN+25*, EN+30, EN+35, EN+40 |
| IBRXIEN | EN+7~, EN+10*, EN+19, EN+22, EN+26, EN+27 |
| IBRXSTAT | EN+7~, EN+11* |
| >> IBSEL | EN+22*, EN+25, EN+36, EN+41 |
| IBSOURCE | EN+7~, EN+26*, EN+30, EN+31, EN+35, EN+37, EN+40, EN+42 |
| LASTREF | EN+8~, IBDETM+28*, IBDETM+29, IBDETM+35, IBDETM+36 |
| >> MSG(1 | EN+4, EN+9 |
| >> MSG(2 | EN+4, EN+12 |
| >> MSG(3 | EN+4, EN+9 |
| >> MSG(4 | EN+4, EN+10, EN+11 |
| >> MSG(6 | EN+4, EN+6 |
| REFILL | IBDETM+13~, IBDETM+49*, IBDETM+50*, IBDETM+51, IBDETM+52, IBDETM+55 |
| REFILLN | IBDETM+13~, IBDETM+35*, IBDETM+36, IBDETM+41*, IBDETM+52*, IBDETM+54, IBDETM+55 |
| RTSFILL | IBDETM+13~, IBDETM+18*, IBDETM+23*, IBDETM+27*, IBDETM+29, IBDETM+37, IBDETM+41*, IBDETM+42 |
| RX0 | IBDETM+13~, IBDETM+15*, IBDETM+23, IBDETM+45, IBDETM+46, IBDETM+54 |
| U | EN+10, EN+22, EN+25, EN+27, EN+36, EN+41, IBDETM+15, IBDETM+23, IBDETM+26, IBDETM+27 , IBDETM+38, IBDETM+45, IBDETM+54 |
| X | IBDETM~, IBDETM+14, IBDETM+15, IBDETM+19, IBDETM+20, IBDETM+21, IBDETM+23, IBDETM+28, IBDETM+29, IBDETM+35 , IBDETM+37, IBDETM+38, IBDETM+41, IBDETM+50, IBDETM+51, IBDETM+52, IBDETM+57 |
| Z | IBDETM+13~, IBDETM+51*, IBDETM+52 |
