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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOCPIBC

Package: Outpatient Pharmacy

Routine: PSOCPIBC


Information

PSOCPIBC ;BHAM ISC/EJW - PHARMACY CO-PAY APPLICATION UTILITIES FOR IB ;01/15/02

Source Information

Source file <PSOCPIBC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Outpatient Pharmacy 2 ACTLOG^PSOCPA  (,FINAL)^PSOLSET  
VA FileMan 2 NOW^%DTC  ^DIR  
Integrated Billing 1 (NEW,XTYPE)^IBARX  
National Drug File 1 $$CPTIER^PSNAPIS  

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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOCPIBF  

Entry Points

Name Comments DBIA/ICR reference
CP ; Entry point to Check if COPAY - Requires RXP,PSOSITE7
RX ; Determine Original or Refill for RX
IBNEW ; Load ^TMP global for IB call
FILE ; File IB number in ^PSRX
QUIT ;
EN
EN1
EXIT
COPAYREL ; Recheck copay status at release
COPAYRE1 ;
XTYPE ;

External References

Name Field # of Occurrence
NOW^%DTC COPAYREL+19, COPAYREL+26
^DIR EN1
NEW^IBARX IBNEW+9
XTYPE^IBARX XTYPE+8
$$CPTIER^PSNAPIS COPAYREL+26
ACTLOG^PSOCPA RX+10, RX+13, IBNEW+27, IBNEW+32, COPAYREL+27, COPAYREL+28
^PSOLSET CP+1, EN
FINAL^PSOLSET EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,"RE-CHECK PRESCRIPTION NUMBER AND RE-ENTER "
  • Line Location: EN1+0
Routine Call
  • DIR
  • Line Location:
    • EN1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53 - [#53] COPAYREL+3
^PS(59 - [#59] CP+8, EN1+1, XTYPE+6
^PSDRUG - [#50] COPAYREL+6
^PSRX - [#52] CP+4, CP+5, CP+9, RX+2, RX+4, RX+5, RX+10*, RX+14*, RX+15*, RX+19
, RX+23, IBNEW+8, IBNEW+28*, IBNEW+34*, IBNEW+35*, FILE+3*, FILE+4*, FILE+5*, EN1, EN1+2
, COPAYREL+3, COPAYREL+6, XTYPE+3, XTYPE+12
^XTMP("PSOTIEREFTST" COPAYREL+22

Label References

Name Line Occurrences
COPAYRE1 COPAYREL+24
COPAYREL RX+8
CP CP+1, EN1+3
EN1 EN1, EN1+3
EXIT EN1
QUIT RX+4, RX+5, RX+9, RX+11, IBNEW+3, IBNEW+21, IBNEW+25, IBNEW+36
XTYPE COPAYREL+12

Naked Globals

Name Field # of Occurrence
^( XTYPE+6
^("IB" XTYPE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % COPAYREL+21
CPDATE COPAYREL+26~*!
D0 IBNEW+2~
DIR EN1!
DIR("A" EN1*
DIR(0 EN1*
>> DIRUT EN1
DRG COPAYREL+5~, COPAYREL+6*, COPAYREL+26
DRGTYP COPAYREL+5~, COPAYREL+6*, COPAYREL+7, COPAYREL+8, COPAYREL+9
EXMT COPAYREL+11~, COPAYREL+13*, COPAYREL+14, COPAYRE1+4*
I XTYPE+1~, XTYPE+10*
J XTYPE+1~, XTYPE+6*, XTYPE+10*
MAILMSG RX+7~, RX+17, COPAYRE1+4*, COPAYRE1+5
PREA RX+10*, RX+13*, IBNEW+26*, IBNEW+31*, QUIT+1!, COPAYREL+27*, COPAYREL+28*
PSOCHG RX+6*, RX+9, RX+11, RX+13, RX+17, QUIT+1!, COPAYREL+3*, COPAYREL+7*, COPAYREL+8*, COPAYREL+9*
, COPAYREL+13, COPAYREL+14*, COPAYREL+27*, COPAYREL+28*, COPAYRE1+1, COPAYRE1+2, COPAYRE1+5*, XTYPE+11*
PSOCIBQ XTYPE+1~, XTYPE+3*, XTYPE+4, XTYPE+5, XTYPE+12
PSOCOMM RX+13*, IBNEW+27*, IBNEW+30*, QUIT+1!, COPAYREL+3*, COPAYREL+7*, COPAYREL+8*, COPAYREL+9*, COPAYREL+14*, COPAYREL+27*
, COPAYREL+28*, XTYPE+11*
PSOCP CP+2!, CP+5*, CP+6, CP+9, RX+11, RX+16*
PSOCP1 QUIT+1!
PSOCP2 FILE+1*, FILE+2*, FILE+3, FILE+4, FILE+5, QUIT+1!
PSOCPN CP+4*, CP+9, QUIT+1!, XTYPE+8
PSOCPT COPAYREL+26~*, COPAYREL+27, COPAYREL+28
PSOCPUN RX+19*, RX+21, QUIT+1!
>> PSODA RX+10*, RX+13*, IBNEW+27*, IBNEW+32*, COPAYREL+27*, COPAYREL+28*
>> PSODFN EN1+2*
PSOEXMPT COPAYREL+5~, COPAYREL+7*, COPAYREL+8*, COPAYREL+9*, COPAYREL+28, XTYPE+11*
PSONW RX+13*, IBNEW+26*, QUIT+1!, COPAYREL+3*, COPAYREL+7*, COPAYREL+8*, COPAYREL+9*, COPAYREL+27*, COPAYREL+28*, COPAYRE1+2*
PSOOLD RX+13*, IBNEW+26*, QUIT+1!, COPAYREL+3*, COPAYREL+7*, COPAYREL+8*, COPAYREL+9*, COPAYREL+27*, COPAYREL+28*, COPAYRE1+2*
>> PSOPAR CP+1
PSOREF RX+1*, RX+2*, RX+4, RX+5, RX+13, RX+14, RX+21, RX+23, IBNEW+34, QUIT+1!
PSORSN QUIT+1!
PSOSAVE CP+6*, RX+10, RX+13, QUIT+1!
PSOSCMX XTYPE+1~, XTYPE+2*, XTYPE+10*, XTYPE+11, XTYPE+12
>> PSOSITE CP+8, EN1+1
>> PSOSITE7 CP+8*, CP+9, EN1+1*
PSOTG COPAYREL+10!
PSOTG( COPAYREL+13, COPAYREL+14, COPAYRE1+4
PSOTG("SC" COPAYRE1+5, XTYPE+4*, XTYPE+5*, XTYPE+12*
PSOTIERE COPAYREL+19~, COPAYREL+20*, COPAYREL+21*, COPAYREL+22*, COPAYREL+24
QQ QUIT+1!
RXP CP+4, CP+5, CP+9, RX+2, RX+4, RX+5, RX+10, RX+13, RX+14, RX+15
, RX+19, RX+21, RX+23, IBNEW+1, IBNEW+8, IBNEW+27, IBNEW+28, IBNEW+32, IBNEW+34, IBNEW+35
, FILE+3, FILE+4, FILE+5, EN1*, EN1+2, EXIT!, COPAYREL+3, COPAYREL+6, COPAYREL+27, COPAYREL+28
, XTYPE+3, XTYPE+12
SAVY XTYPE+1~, XTYPE+2*, XTYPE+10*, XTYPE+11
U FILE+3, FILE+5
X CP+9*, RX+16*, RX+23*, IBNEW+3, IBNEW+4, IBNEW+8*, QUIT+1!, EN1, COPAYREL+26~!, XTYPE+1~
, XTYPE+2*, XTYPE+6*, XTYPE+7, XTYPE+8*
X(1 RX+21*, IBNEW+4
X2 QUIT+1!
XTMP IBNEW+4*, IBNEW+22*, QUIT+1!
XTMP(1 IBNEW+4*, IBNEW+22*, FILE+2, FILE+3, FILE+5
Y IBNEW+21, IBNEW+22, QUIT+1!, XTYPE+1~, XTYPE+9
Y( XTYPE+10
Y(1 IBNEW+22, IBNEW+25, IBNEW+29, IBNEW+30, IBNEW+33, IBNEW+34, IBNEW+35, IBNEW+36
>> YY RX+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All