PSOPFSU1 ;BIR/LE,AM - PFSS Charge Message & Utilities ;08/09/93
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 |
| 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 |
|---|---|---|
| CHRG(PSORXN,PSOREF,PSOCHTYP,PSOPFS) | ;ENTRY POINT:
|
|
| CHRGOF | ;Retrieve charge fields for orig fills
|
|
| CHRGRF | ;Retrieve charge fields for refills
|
|
| GOC | ;Called from CHRGOF, CHRGRF. Parse OP classifications and ICD's. Don't send null values.
|
|
| 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# |
|
| LF(PSODA) | ;return last fill number;CALLED from PSOCPB
|
|
| 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)
|
|
| PFS | ;;Called from PSOCPB; PSOCPB is too large to hold more code. Processes copay cancels for PFS only.
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | CHRG+38 |
| GETS^DIQ | CHRG+32, CHRGOF+1, CHRGRF+1, GOC+1 |
| $$CHARGE^IBBAPI | CHRG+43 |
| $$GETCHGID^IBBAPI | CHRG+24 |
| $$SWSTAT^IBBAPI | PFSA+3 |
| ACTLOG^PSOCPA | PFS+19 |
| MSG^PSOCPB | PFS+19, PFS+20 |
| MSGNOCAN^PSOCPB | PFS+15 |
| $$NDC^PSOHDR | CHRG+33 |
| $$CHLOC^PSOPFSU0 | CHRG+11 |
| $$GACT^PSOPFSU0 | CHRG+17 |
| DATA^PSS50 | CHRG+35 |
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GETS^DIQ |
| 52.1 | GETS^DIQ |
| ^PS(53 - [#53] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSRX - [#52] | CHRG+25*, CHRG+26*, LF+2, PFSI+1, PFSI+2 |
| ^TMP($J | CHRG+37, CHRG+39, CHRG+40, CHRG+45! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CANTYPE | PFS+15, PFS+19, PFS+20 |
| CLDIV | CHRG+6~, CHRG+11*, CHRG+12 |
| I | CHRG+6~, 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+6~ |
| J | CHRG+6~, 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+6~, CHRG+43* |
| PSOCHID | CHRG+6~, CHRG+22*, CHRG+24*, CHRG+25, CHRG+26, CHRG+27, CHRG+43 |
| PSOCHTYP | CHRG~, CHRG+37, CHRG+43 |
| PSODA | LF~, LF+2, PFSI~, PFSI+1, PFSI+2, PFSA~, PFSA+4, PFS+9, PFS+12, PFS+19 |
| PSODFN | CHRG+6~, CHRG+34*, CHRG+43 |
| PSODG | CHRG+6~, CHRG+43, GOC+6* |
| PSODG( | GOC+3* |
| PSODRG | CHRG+6~, CHRG+34*, CHRG+35, CHRG+37, CHRG+39, CHRG+40 |
| PSODRUG | CHRG+6~ |
| PSOFD | CHRG+6~, CHRGOF+2*, CHRGOF+3, CHRGRF+2*, CHRGRF+3 |
| PSOFLD | CHRG+6~, CHRGOF+3*, CHRGRF+3* |
| PSOFT | CHRG+6~, CHRG+29*, CHRGOF+3, CHRGRF+3 |
| PSOFT1 | CHRG+6~, CHRG+43 |
| PSOFT1( | CHRGOF+3*, CHRGRF+3* |
| PSOFT1(10 | CHRGOF+5, CHRGRF+5 |
| PSOFT1(13 | CHRG+37* |
| PSOFT1(18 | CHRG+38* |
| PSOFT1(22 | CHRG+39* |
| PSOFT1(29 | CHRG+33*, CHRG+39* |
| PSOFT1(31 | CHRG+34* |
| PSOFT1(6 | CHRG+37* |
| PSOFT1(7 | CHRG+37* |
| PSONW | PFS+3~ |
| PSOOLD | PFS+3~ |
| PSOPFS | CHRG~, CHRG+8, CHRG+15, CHRG+16, CHRG+22, PFSI+1*, PFSI+2*, PFSA+3*, PFSA+7*, PFS+19* |
| PSOPFSA | CHRG+6~, CHRG+15*, CHRG+16*, CHRG+17*, CHRG+18, CHRG+43, CHRGOF+4*, CHRGRF+4*, PFS+21* |
| PSOREF | CHRG~, CHRG+16, CHRG+17, CHRG+25, CHRG+26, CHRG+29, CHRG+30, CHRG+33, CHRG+40, 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+6~ |
| PSORX( | CHRGRF+3, CHRGRF+4, CHRGRF+5, GOC+2, GOC+3, GOC+4, GOC+5 |
| PSORX(52 | CHRG+34, CHRG+38, CHRGOF+3, CHRGOF+4, CHRGOF+5 |
| PSORXE | CHRG+6~, CHRG+43 |
| PSORXE(1 | CHRGOF+5*, CHRGRF+5* |
| PSORXE(15 | CHRG+42* |
| PSORXE(17 | CHRG+40* |
| PSORXE(18 | CHRG+41*, CHRGOF+4*, CHRGRF+4* |
| PSORXE(31 | CHRG+40* |
| PSORXN | CHRG~, CHRG+16, CHRG+17, CHRG+25, CHRG+26, CHRG+32, CHRG+33, CHRG+34, CHRG+38, CHRG+42 , 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+6~, CHRG+43, GOC+6* |
| PSOZCL( | GOC+5* |
| >> RELDT | CHRG+41 |
| WR | PFSA~, PFSA+2, PFSA+7 |
| X | PFS+3~, PFS+15 |
| X( | PFS+14*, PFS+19 |
| X(0 | PFS+11* |
