Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOCPTRI

Package: Outpatient Pharmacy

Routine: PSOCPTRI


Information

PSOCPTRI ;BHAM ISC/CPM,RTR - SUPPORT FOR CHAMPUS RX BILLING ;14-AUG-96

Source Information

Source file <PSOCPTRI.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 4 DEVBAR^PSOBMST  EN^PSOHLSN1  DQ^PSOLBL  ^PSOLSET  
VA Fileman 4 NOW^%DTC  ^DIC  DT^DICRW  ^DIE  
Kernel 3 ^%ZIS  ^%ZISC  $$DT^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSOBBC  PSOCP CHAMPUS EXEMPTION  PSORXL  

Entry Points

Name Comments DBIA/ICR reference
RESDIR ;Reset DIR just in case
TRANSQ
DEVA
EXM ;Edit Champus Billing Exemption field
CHKQ
DEV ;Get devices
LABEL(RX,PSOLAP,PSOSITE,DUZ,PSOTRAMT) ; Print the label.
; Input: RX -- Pointer to the prescription in file #52
; PSOLAP -- Label printer
; PSOSITE -- Pointer to the Pharmacy in file #59
; DUZ -- Pointer to the use in file #200
; PSOTRAMT -- Amount to be paid
  • ICR #2029
    • Status: Active
    • Usage: Private
    IO
    TRANS(ORIG,REF,PSOV) ; Extract Rx information for transmission to FI
    ; Input: ORIG -- Pointer to the rx in file #52
    ; REF -- Pointer to the refill in file #52.1
    ; (This is 0 if we are billing the original fill)
    ; PSOV -- Passed by reference. This array will be used
    ; to return the output (described below).
    ; Output: PSOE -- This is normally 1, or -1 if the NDC cannot
    ; be determined.
  • ICR #2029
    • Status: Active
    • Usage: Private
    CHK(ORIG,REF) ; Should this rx be billed to the CHAMPUS Fiscal Intermediary?
    ; Input: ORIG -- Pointer to the rx in file #52
    ; REF -- Pointer to the refill in file #52.1, or
    ; 0 for the original fill
    ; Output: PSOB -- 0 => The rx should not be billed
    ; 1 => The rx may be billed.
  • ICR #2029
    • Status: Active
    • Usage: Private
    EXMQ

    External References

    Name Field # of Occurrence
    NOW^%DTC LABEL+20
    ^%ZIS IO, DEVA
    ^%ZISC IO+8, DEVA+4
    ^DIC EXM+2
    DT^DICRW LABEL+12
    ^DIE LABEL+17, EXM+3
    DEVBAR^PSOBMST IO+1, DEVA+2
    EN^PSOHLSN1 LABEL+18
    DQ^PSOLBL IO+7
    ^PSOLSET EXM+1
    $$DT^XLFDT LABEL+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Label Printer device must be selected!",!
    • Line Location: DEVA+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXM+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXM+3
    Routine Call
    • DIE
    • Line Location:
      • LABEL+17
      • EXM+3
    Routine Call
    • DIC
    • Line Location:
      • EXM+2
    Routine Call
    • %ZIS
    • Line Location:
      • IO
      • DEVA

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] Classic Fileman Calls
    ^PS(53 - [#53] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(53 - [#53] CHK+10
    ^PS(59 - [#59] LABEL+10, IO+2, IO+3
    ^PSDRUG - [#50] TRANS+33, TRANS+46
    ^PSRX - [#52] TRANS+27, TRANS+28, LABEL+9, LABEL+14, LABEL+15, LABEL+16, LABEL+17, LABEL+19*, LABEL+21, LABEL+22*
    , LABEL+23*, CHK+10
    ^PSRX("AH" LABEL+19!
    ^VA(200 - [#200] TRANS+48

    Label References

    Name Line Occurrences
    CHKQ CHK+10
    DEVA DEVA
    EXM EXM+1
    EXMQ EXM+2
    IO IO
    TRANSQ TRANS+29, TRANS+34

    Naked Globals

    Name Field # of Occurrence
    ^(2 TRANS+27
    ^(3 TRANS+27

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % LABEL+20
    >> %ZIS IO*, DEVA*
    >> %ZIS("A" DEVA*
    >> %ZIS("B" DEVA*
    CT LABEL+11~, LABEL+21*
    >> DA LABEL+17*, LABEL+19, EXM+3*
    DIC EXM+2!*, EXMQ!
    DIC(0 EXM+2*
    DIE LABEL+17!*, EXM+3!*, EXMQ!
    DIQUIET LABEL+11~, LABEL+12*
    >> DIR("?" RESDIR+2*, RESDIR+3*, RESDIR+4*
    >> DIR("A" RESDIR+1*
    >> DR LABEL+17*, EXM+3*
    DT LABEL+13*, LABEL+17
    >> DTOUT EXM+2
    >> DUOUT EXM+2
    DUZ LABEL~, LABEL+23, IO+3
    II LABEL+11~, LABEL+16*
    III LABEL+11~, LABEL+21*, LABEL+22*, LABEL+23
    ION DEV+2, DEV+3, DEVA+1, DEVA+4*
    >> IOP IO*
    >> IOS IO+1, DEVA+2
    IOST DEVA
    NOW LABEL+11~, LABEL+20*, LABEL+23
    ORIG TRANS~, TRANS+27, TRANS+28, CHK~, CHK+10
    PDUZ LABEL+11~, IO+3*
    >> POP IO, DEVA
    >> PPL IO+4*
    PSHRX LABEL+11~, LABEL+18*
    PSOB CHK+7~, CHK+12*, CHKQ
    PSOBAR0 LABEL+11~, IO+6, DEVA+3
    PSOBAR1 LABEL+11~, IO+6, DEVA+3
    PSOBARS LABEL+11~, IO+6*, DEVA+3*
    PSOCHAMP LABEL+11~, IO+5*
    PSOE TRANS+25~*, TRANS+29*, TRANS+34*, TRANSQ
    PSOIOS IO+1~*, DEVA+2~*
    PSOLAP LABEL~, LABEL+8, IO, DEV+3, DEVA+1*
    PSOPAR LABEL+11~, IO+3*, IO+6, DEVA+3, EXM+1, RESDIR+1, RESDIR+4
    PSORX TRANS+25~
    PSORX("REF" TRANS+28*, TRANS+37, TRANS+38, TRANS+41, TRANS+42
    PSORX(0 TRANS+27*, TRANS+29, TRANS+31, TRANS+33, TRANS+41, TRANS+42, TRANS+43, TRANS+44, TRANS+46, TRANS+48
    PSORX(2 TRANS+27*, TRANS+37, TRANS+38, TRANS+39
    PSORX(3 TRANS+27*, TRANS+39
    PSOSITE LABEL~, LABEL+10, IO+2, IO+3
    PSOSYS LABEL+11~, IO+2*
    PSOTRAMT LABEL~
    PSOTRION DEV+1~, DEV+2*, DEVA+4
    PSOV TRANS~
    PSOV("#REF" TRANS+44*
    PSOV("COMP" TRANS+46*
    PSOV("DEA" TRANS+48*
    PSOV("DIV" TRANS+37*
    PSOV("FDT" TRANS+38*, TRANS+39*
    PSOV("ISS" TRANS+43*
    PSOV("NDC" TRANS+33*, TRANS+34
    PSOV("QTY" TRANS+41*
    PSOV("RX#" TRANS+31*
    PSOV("SUP" TRANS+42*
    PSOX TRANS+46~*
    REF TRANS~, TRANS+28, TRANS+38, CHK~
    REPRINT LABEL+11~, LABEL+14*
    RX LABEL~, LABEL+9, LABEL+14, LABEL+15, LABEL+16, LABEL+17, LABEL+18*, LABEL+19, LABEL+21, LABEL+22
    , LABEL+23, IO+4
    RXFF LABEL+11~, LABEL+16*, LABEL+17, LABEL+23
    X LABEL+11~
    Y LABEL+11~, EXM+2, EXM+3, EXMQ!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All