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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOPFSU0

Package: Outpatient Pharmacy

Routine: PSOPFSU0


Information

PSOPFSU0 ;BIR/LE,AM - PFSS Get Account & Utilities ;08/09/93

Source Information

Source file <PSOPFSU0.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Integrated Billing 1 $$GETACCT^IBBAPI  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSON52  PSOPFSU1  PSOR52  PSORN52  
Integrated Billing 1 IBARXMI  

Entry Points

Name Comments DBIA/ICR reference
GACT(PSORXN,PSOREF) ;ENTRY POINT: Called from PSON52; PSOR52, PSORN52. Get a PFSS acct ref
; This routine is only called when the PFSS Switch is on.
GACTOF ;Get orig fill data
GACTRF ;Called from GACT. Get refill data
CHLOC() ;FIND CHARGE LOCATION
GOC ;Called from GACTOF and GACTRF. Parse OP classifications and ICD's. Don't send null values.
RPH(PSORXN,PSOREF) ;API entry point
; Inputs: PSORXN = prescription IEN, PSOREF = fill number
; Outputs: PSORPH = rel pharm IEN ^ user IEN who performed last activity or rel pharm iF no activity entries^
; IB Service Section pointer from file 59
; Returns null values when the Rx is not released or the input values are invalid (i.e. "^^").
  • ICR #4732
    • Status: Active
    • Usage: Controlled Subscription
    CHKRX(PSORX,PSOF) ;validates Rx & fill. 0=not valid, 1=valid, 2=refill not valid
    MCDIV(RX,FILL) ;Get MC DIVISION from the Rx/Fill
    CLOK ;

    External References

    Name Field # of Occurrence
    $$GET1^DIQ GACT+9, CHLOC+2, CHLOC+3, CHLOC+4, RPH+20, MCDIV+3, MCDIV+4, MCDIV+7
    GETS^DIQ GACTOF+1, GACTRF+1, GOC+1, RPH+7, RPH+8
    $$GETACCT^IBBAPI GACT+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ,  GETS^DIQ
    52.1 GET1^DIQ,  GETS^DIQ
    52.3 GET1^DIQ
    ^PS(59 - [#59] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(40.8 - [#40.8] MCDIV+8
    ^PS(59 - [#59] RPH+22, CLOK+1, CLOK+2
    ^PSRX - [#52] GACT+17*, GACT+18*, RPH+19, CHKRX+2, CHKRX+3

    Label References

    Name Line Occurrences
    $$CHKRX RPH+6
    $$CHLOC GACT+11
    $$MCDIV GACT+8
    CLOK CHLOC+5
    GACTOF GACT+5
    GACTRF GACT+6
    GOC GACTOF+3, GACTRF+4

    Naked Globals

    Name Field # of Occurrence
    ^("I" CLOK+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CHLOC CHLOC+1~, CHLOC+4*, CHLOC+5*, CHLOC+6
    CL CHLOC+1~, CHLOC+5*, CLOK+1, CLOK+2*
    DATA RPH+5~
    DATA( RPH+14, RPH+15, RPH+16
    DATA(52 RPH+10, RPH+11, RPH+12
    DIV RPH+5~, RPH+11*, RPH+15*, RPH+22, MCDIV+1~, MCDIV+3*, MCDIV+4*, MCDIV+5, MCDIV+7, MCDIV+8*
    , MCDIV+9
    DT CLOK+2
    FILL MCDIV~, MCDIV+3, MCDIV+4
    I GACT+3~, GOC+2*, GOC+3, GOC+4, GOC+5, RPH+5~, CLOK+1~*, CLOK+2
    IBSS RPH+5~, RPH+22*, RPH+24
    II RPH+5~, RPH+20*
    INST MCDIV+1~, MCDIV+7*, MCDIV+8
    J GACT+3~, GOC+4*, GOC+5
    PDIV CHLOC+1~, CHLOC+2*, CHLOC+3*, CHLOC+4
    PSOA RPH+5~, RPH+19*, RPH+20
    PSODFN GACT+3~, GACT+9*, GACT+14
    PSODG GACT+3~, GACT+14, GOC+6*
    PSODG( GOC+3*
    PSODIV GACT+3~, GACT+8*, GACT+14
    PSOEDPH RPH+5~, RPH+20*, RPH+23*, RPH+24
    PSOF CHKRX~, CHKRX+1, CHKRX+3
    PSOOK RPH+5~, RPH+6*
    PSOPFSAC GACT+3~, GACT+14*, GACT+16, GACT+17, GACT+18, GACT+19
    PSOPV1 GACT+3~, GACT+14
    PSOPV1(2 GACT+10*
    PSOPV1(3 GACT+11*, GACT+12
    PSOPV1(44 GACTOF+2*, GACTRF+3*
    PSOPV1(50 GACT+10*
    PSOPV1(7 GACTOF+2*, GACTRF+2*
    PSOPV2 GACT+3~
    PSORDT RPH+5~, RPH+12*, RPH+16*, RPH+17
    PSOREF GACT~, GACT+5, GACT+6, GACT+8, GACT+17, GACT+18, GACTRF+1, GACTRF+2, GACTRF+3, CHLOC+2
    , CHLOC+3, RPH~, RPH+6, RPH+7, RPH+8, RPH+9, RPH+13, RPH+14, RPH+15, RPH+16
    PSORPH RPH+5~, RPH+10*, RPH+14*, RPH+23, RPH+24*, RPH+25
    PSORX GACT+3~, CHKRX~, CHKRX+1, CHKRX+2, CHKRX+3
    PSORX( GACTRF+2, GACTRF+3, GOC+2, GOC+3, GOC+4, GOC+5
    PSORX(52 GACTOF+2
    PSORXN GACT~, GACT+8, GACT+9, GACT+10, GACT+17, GACT+18, GACTOF+1, GACTOF+2, GACTRF+1, GACTRF+2
    GACTRF+3, CHLOC+2, CHLOC+3, GOC+1, GOC+2, GOC+3, GOC+4, GOC+5, RPH~, RPH+6
    , RPH+7, RPH+8, RPH+10, RPH+11, RPH+12, RPH+14, RPH+15, RPH+16, RPH+19, RPH+20
    PSOZCL GACT+3~, GACT+14, GOC+6*
    PSOZCL( GOC+5*
    RX MCDIV~, MCDIV+3, MCDIV+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All