PSOPFSU1 ;BIR/LE,AM - PFSS Charge Message & Utilities ;08/09/93
Source file <PSOPFSU1.m>
| 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.
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GETS^DIQ |
| 52.1 | GETS^DIQ |
| ^PS(53 - [#53] | GET1^DIQ |
