©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
PSOPFSU1 ;BIR/LE,AM - PFSS Charge Message & Utilities ;29-May-2012 15:04;PLS
Source file <PSOPFSU1.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 4 | ACTLOG^PSOCPA (MSG,MSGNOCAN)^PSOCPB $$NDC^PSOHDR ($$CHLOC,$$GACT)^PSOPFSU0 |
| Integrated Billing | 1 | ($$CHARGE,$$GETCHGID,$$SWSTAT)^IBBAPI |
| Pharmacy Data Management | 1 | DATA^PSS50 |
| VA Fileman | 1 | ($$GET1,GETS)^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PFSI(PSODA,PSOREF) | ;get PFSS Acct Ref and Charge ID and store in PSOPFS; Called from multiple places in this routine
|
|
| PFSA(PSODA,PSOREF,WR) | ;called from PSOCP (WR=2) and PSOCPB (WR=3)
|
|
| CHRG(PSORXN,PSOREF,PSOCHTYP,PSOPFS) | ;ENTRY POINT:
|
|
| CHRGRF | ;Retrieve charge fields for refills
|
|
| CG | ;Called from PSOCPB; for the last fill, send chrg message if released; PSOCPB too large for more code.
; this is used for SC/EI changes when no charges are cancelled. Expects to have PSODA = RXIEN and PSOLFIL= fill# |
|
| GOC | ;Called from CHRGOF, CHRGRF. Parse OP classifications and ICD's. Don't send null values.
|
|
| LF(PSODA) | ;return last fill number;CALLED from PSOCPB
|
|
| PFS | ;;Called from PSOCPB; PSOCPB is too large to hold more code. Processes copay cancels for PFS only.
|
|
| CHRGOF | ;Retrieve charge fields for orig fills
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | CHRG+39 |
| GETS^DIQ | CHRG+33, CHRGOF+1, CHRGRF+1, GOC+1 |
| $$CHARGE^IBBAPI | CHRG+44 |
| $$GETCHGID^IBBAPI | CHRG+25 |
| $$SWSTAT^IBBAPI | PFSA+3 |
| ACTLOG^PSOCPA | PFS+19 |
| MSG^PSOCPB | PFS+19, PFS+20 |
| MSGNOCAN^PSOCPB | PFS+15 |
| $$NDC^PSOHDR | CHRG+34 |
| $$CHLOC^PSOPFSU0 | CHRG+12 |
| $$GACT^PSOPFSU0 | CHRG+18 |
| DATA^PSS50 | CHRG+36 |
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GETS^DIQ |
| 52.1 | GETS^DIQ |
| ^PS(53 - [#53] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSRX - [#52] | CHRG+26*, CHRG+27*, LF+2, PFSI+1, PFSI+2 |
| ^TMP($J | CHRG+38, CHRG+40, CHRG+41, CHRG+46! |
| Name | Line Occurrences |
|---|---|
| CHRG | PFS+19 |
| CHRGOF | CHRG+30 |
| CHRGRF | CHRG+31 |
| GOC | CHRGOF+6, CHRGRF+6 |
| PFSI | CHRG+17, PFSA+4, PFS+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CANTYPE | PFS+15, PFS+19, PFS+20 |
| CLDIV | CHRG+7~, CHRG+12*, CHRG+13 |
| I | CHRG+7~, CHRGOF+3*, CHRGRF+3*, GOC+2*, GOC+3, GOC+4, GOC+5, PFS+3~, PFS+8*, PFS+9 , PFS+10, PFS+11, PFS+12, PFS+13, PFS+14 |
| IFN | CHRG+7~ |
| J | CHRG+7~, GOC+4*, GOC+5 |
| LF | LF+1~, LF+2* |
| PREA | PFS+3~, PFS+18* |
| >> PSOCAN | PFS+20 |
| >> PSOCAN( | PFS+8, PFS+9, PFS+10!, PFS+11!, PFS+12, PFS+13!, PFS+14! |
| PSOCHG | CHRG+7~, CHRG+44* |
| PSOCHID | CHRG+7~, CHRG+23*, CHRG+25*, CHRG+26, CHRG+27, CHRG+28, CHRG+44 |
| PSOCHTYP | CHRG~, CHRG+38, CHRG+44 |
| PSODA | LF~, LF+2, PFSI~, PFSI+1, PFSI+2, PFSA~, PFSA+4, PFS+9, PFS+12, PFS+19 |
| PSODFN | CHRG+7~, CHRG+35*, CHRG+44 |
| PSODG | CHRG+7~, CHRG+44, GOC+6* |
| PSODG( | GOC+3* |
| PSODRG | CHRG+7~, CHRG+35*, CHRG+36, CHRG+38, CHRG+40, CHRG+41 |
| PSODRUG | CHRG+7~ |
| PSOFD | CHRG+7~, CHRGOF+2*, CHRGOF+3, CHRGRF+2*, CHRGRF+3 |
| PSOFLD | CHRG+7~, CHRGOF+3*, CHRGRF+3* |
| PSOFT | CHRG+7~, CHRG+30*, CHRGOF+3, CHRGRF+3 |
| PSOFT1 | CHRG+7~, CHRG+44 |
| PSOFT1( | CHRGOF+3*, CHRGRF+3* |
| PSOFT1(10 | CHRGOF+5, CHRGRF+5 |
| PSOFT1(13 | CHRG+38* |
| PSOFT1(18 | CHRG+39* |
| PSOFT1(22 | CHRG+40* |
| PSOFT1(29 | CHRG+34*, CHRG+40* |
| PSOFT1(31 | CHRG+35* |
| PSOFT1(6 | CHRG+38* |
| PSOFT1(7 | CHRG+38* |
| PSONW | PFS+3~ |
| PSOOLD | PFS+3~ |
| PSOPFS | CHRG~, CHRG+9, CHRG+16, CHRG+17, CHRG+23, PFSI+1*, PFSI+2*, PFSA+3*, PFSA+7*, PFS+19* |
| PSOPFSA | CHRG+7~, CHRG+16*, CHRG+17*, CHRG+18*, CHRG+19, CHRG+44, CHRGOF+4*, CHRGRF+4*, PFS+21* |
| PSOREF | CHRG~, CHRG+17, CHRG+18, CHRG+26, CHRG+27, CHRG+30, CHRG+31, CHRG+34, CHRG+41, CHRGRF+1 , CHRGRF+3, CHRGRF+4, CHRGRF+5, PFSI~, PFSI+1, PFSI+2, PFSA~, PFSA+4, PFS+3~, PFS+8* , PFS+9, PFS+12, PFS+14, PFS+18*, PFS+19* |
| >> PSORSN | PFS+11, PFS+14 |
| PSORX | CHRG+7~ |
| PSORX( | CHRGRF+3, CHRGRF+4, CHRGRF+5, GOC+2, GOC+3, GOC+4, GOC+5 |
| PSORX(52 | CHRG+35, CHRG+39, CHRGOF+3, CHRGOF+4, CHRGOF+5 |
| PSORXE | CHRG+7~, CHRG+44 |
| PSORXE(1 | CHRGOF+5*, CHRGRF+5* |
| PSORXE(15 | CHRG+43* |
| PSORXE(17 | CHRG+41* |
| PSORXE(18 | CHRG+42*, CHRGOF+4*, CHRGRF+4* |
| PSORXE(31 | CHRG+41* |
| PSORXN | CHRG~, CHRG+17, CHRG+18, CHRG+26, CHRG+27, CHRG+33, CHRG+34, CHRG+35, CHRG+39, CHRG+43 , CHRGOF+1, CHRGOF+3, CHRGOF+4, CHRGOF+5, CHRGRF+1, CHRGRF+3, CHRGRF+4, CHRGRF+5, GOC+1, GOC+2 , GOC+3, GOC+4, GOC+5 |
| PSOZCL | CHRG+7~, CHRG+44, GOC+6* |
| PSOZCL( | GOC+5* |
| >> RELDT | CHRG+42 |
| WR | PFSA~, PFSA+2, PFSA+7 |
| X | PFS+3~, PFS+15 |
| X( | PFS+14*, PFS+19 |
| X(0 | PFS+11* |