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 |  Marked Items |  All
Print Page as PDF
Routine: PSOCPB

Package: Outpatient Pharmacy

Routine: PSOCPB


Information

PSOCPB ;BIR/BaB - pharmacy co-pay application cont'd ;1/30/07 9:08am

Source Information

Source file <PSOCPB.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 7 ACTLOG^PSOCPA  (EXEMCHK,SETSUMM)^PSOCPC  ASKCAN^PSOCPD  ICN^PSODPT  ^PSOLSET  ($$LF,CHRG,PFS,PFSA)^PSOPFSU1  SCP^PSORN52D  
Integrated Billing 2 ($$STATUS,CANCEL,CANIBAM,STATUS,XTYPE)^IBARX  $$SWSTAT^IBBAPI  
VA Fileman 2 ^DIC  ^DIR  
Registration 1 FULL^VALM1  
Scheduling 1 DIS^SDROUT2  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Outpatient Pharmacy 7 PSOCP RESET COPAY STATUS  PSOCPD  PSONEW2  PSONEWF  PSONEWG  PSOPFSU1  PSORN52  

Entry Points

Name Comments DBIA/ICR reference
RESET ;RESET COPAY STATUS
INELIG
ASKCAN
ENDMSG
POTMSG ;
MSG ;
BILLED ;Collect IB nums,cancel chrgs,reset flag.
RESETE
ASK ;
BILL2 ;
PRTSUMM ; prt sum of actions in reset/cancel
COPAY ;
COPAY2 ;
PREVCAN ; PREVIEW CANCELS IF "ALL" IS SELECTED
REFILL
CP ;
MSGNOCAN ;
POTBILL2 ;see if any potential charges (entries from file 354.71 -- bills that exceeded cap prev) to be cancelled before cancelling regular charges
EXT
EXIT ;
CP1
SETCP ;IF NOT COPAY MAKE ELIG CALL/SET FLAG FOR FUTURE
BILL2END

External References

Name Field # of Occurrence
^DIC RESET+3, RESET+15, RESET+23, BILL2+3
^DIR ASK+12, ASK+16, RESET+13, RESET+21
$$STATUS^IBARX PREVCAN+3
CANCEL^IBARX BILL2+12
CANIBAM^IBARX POTBILL2+3, POTBILL2+7
STATUS^IBARX PREVCAN+3
XTYPE^IBARX SETCP+2
$$SWSTAT^IBBAPI COPAY2+1
ACTLOG^PSOCPA RESET+16, RESET+24, BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, CP1+5
EXEMCHK^PSOCPC RESET+10
SETSUMM^PSOCPC RESET+17, RESET+25, ASKCAN+1, MSG+2, MSG+4, POTMSG+4, MSGNOCAN+2
ASKCAN^PSOCPD ASKCAN
ICN^PSODPT RESET+5
^PSOLSET RESET+2
$$LF^PSOPFSU1 RESET+9
CHRG^PSOPFSU1 ASKCAN+3
PFS^PSOPFSU1 BILL2+6
PFSA^PSOPFSU1 RESET+9
SCP^PSORN52D COPAY+4
DIS^SDROUT2 COPAY+10
FULL^VALM1 COPAY+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",!
  • Line Location: COPAY+8
Function Call: WRITE
  • Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",!
  • Line Location: COPAY+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+16
Function Call: WRITE
  • Prompt: !
  • Line Location: RESET+3
Function Call: WRITE
  • Prompt: !,?17,"PATIENT: ",$P($G(^DPT($P(^PSRX(PSODA,0),"^",2),0)),"^")
  • Line Location: RESET+4
Function Call: WRITE
  • Prompt: !!,"Rx # ",PSORXN," is a ",$S(+PCOPAY:"Copay",1:"No Copay")," prescription"
  • Line Location: RESET+8
Function Call: WRITE
  • Prompt: !!,"**********Charges are on file for this Rx.**********"
  • Line Location: BILLED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SETCP+1
Function Call: WRITE
  • Prompt: !!,"Error in processing Copay eligibility, no action taken."
  • Line Location: SETCP+3
Function Call: WRITE
  • Prompt: !,"COPAY status on this Rx has been reset.",!,"*** Future refills will be classified as COPAY."
  • Line Location: CP1+3
Function Call: WRITE
  • Prompt: !,"This Rx does not meet patient eligibility requirement for Copay.",!,"****** Status unchanged *******"
  • Line Location: INELIG+0
Function Call: WRITE
  • Prompt: !,"Unable to process CHARGE REMOVAL without REASON for Reset."
  • Line Location: ENDMSG+0
Function Call: READ
  • Prompt: "ENTER a REASON now? (Y/N) "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ENDMSG+1
Function Call: WRITE
  • Prompt: !,"Enter YES to select REASON and RESET STATUS."
  • Line Location: ENDMSG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSUMM+2
Function Call: WRITE
  • Prompt: !,PSOSUMM(PSI)
  • Line Location: PRTSUMM+4
Routine Call
  • DIC
  • Line Location:
    • RESET+3
    • RESET+15
    • RESET+23
    • BILL2+3
Routine Call
  • DIR
  • Line Location:
    • ASK+12
    • ASK+16
    • RESET+13
    • RESET+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.3 - [#350.3] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RESET+4
^PSRX - [#52] RESET+4, RESET+5, RESET+6, RESET+7, RESET+11, RESET+12, RESET+18*, RESET+20, RESET+26*, BILL2+4
, BILL2+16*, BILL2+17*, POTBILL2+8*, POTBILL2+9*, REFILL+1, REFILL+2, REFILL+3, REFILL+4, SETCP+1, CP1+2*

Label References

Name Line Occurrences
ASKCAN RESET+12, RESET+20
BILL2 ENDMSG+3
BILL2END BILL2+6, BILL2+9
COPAY2 COPAY+6, ASK+16
CP CP+3
CP1 CP+1
ENDMSG BILL2+3, ENDMSG+2
EXIT ASK+20
EXT RESET+3
INELIG CP1+1
MSG BILL2+13, BILL2+16, BILL2+17, PREVCAN+5
MSGNOCAN PREVCAN+6
POTBILL2 BILL2+8
POTMSG POTBILL2+8, POTBILL2+9
PREVCAN BILL2+10
PRTSUMM ASKCAN+2
RESET RESET+2, RESETE+1

Naked Globals

Name Field # of Occurrence
^("IB" REFILL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTYP SETCP+4*, CP+1*, CP+2, CP1!
BL SETCP+4*, CP+2*, CP1!
>> CANTYPE BILL2+10, BILL2+11, BILL2+13, BILL2+16, BILL2+17, MSG+2, POTMSG+2
>> DFN COPAY+10*
DIC RESET+3*!, RESET+15*!, RESET+23*!, BILL2+3*!
DIC("A" RESET+15*, RESET+23*, BILL2+3*
DIC("S" RESET+15*, RESET+23*, BILL2+3*
DIC(0 RESET+3*, RESET+15*, RESET+23*, BILL2+3*
DIR ASK+3!, ASK+16!, EXIT+2!, RESET+13!, RESET+21!
DIR("?" ASK+7*
DIR("A" ASK+6*, ASK+16*, RESET+13*, RESET+21*
DIR("B" ASK+8*, ASK+9*, ASK+10, ASK+11!, RESET+13*, RESET+21*
DIR(0 ASK+6*, ASK+16*, RESET+13*, RESET+21*
DIRUT ASK+3!, EXIT+2!
DTIME ENDMSG+1
DTOUT ASK+3!, ASK+14, EXIT+2!
DUOUT ASK+3!, ASK+14, EXIT+2!
DUZ BILL2+4
I BILL2+11*, POTBILL2+1~, POTBILL2+4*, CP+2*, CP1!, PREVCAN+1~, PREVCAN+2*, PREVCAN+3
III BILL2+7~*
PCOPAY RESET+7*, RESET+8, RESETE!, EXT!
PREA RESET+6*, RESET+16*, RESET+24*, RESETE!, EXT!, BILL2+16*, BILL2+17*, POTBILL2+8*, POTBILL2+9*, POTBILL2+10!
, CP1+4*
PSI RESET+17*, RESET+25*, ASKCAN+1*, RESETE!, MSG+1*, POTMSG+1*, MSGNOCAN+1*, PRTSUMM+3*, PRTSUMM+4*
>> PSOANSQ("SC" ASK+13*, ASK+19*
>> PSOANSQD("SC" ASK+9, ASK+13*
PSOANSR ASK+16*, ASK+21, EXIT+2!
PSOBILL COPAY+6, SETCP+4*, CP+2*, CP1+1, PREVCAN+1~, PREVCAN+2, PREVCAN+3*
PSOCAN BILL2+6, BILL2+9, BILL2END!
PSOCAN( BILL2+7, BILL2+11, POTBILL2+4!, PREVCAN+2, PREVCAN+3
PSOCOMM RESET+16*, RESET+17*, RESET+24*, RESET+25*, ASKCAN+1*, RESETE!, POTBILL2+8*, POTBILL2+9*, POTBILL2+10!, MSG+2*!
, MSG+3*, MSG+5!, POTMSG+3*, POTMSG+5!, MSGNOCAN+2*!
PSOCOPAY EXT!
>> PSOCPAY COPAY+3, COPAY+5*, ASK+16*, ASK+21*, COPAY2+2, COPAY2+4, EXIT+1*, SETCP+4*, CP+2*, CP1+1
, CP1+2
>> PSOCPZ("DFLG" ASK+2!, ASK+14*, ASK+20
PSODA RESET+3*, RESET+4, RESET+5, RESET+6, RESET+7, RESET+9, RESET+11, RESET+12, RESET+18, RESET+20
, RESET+26, ASKCAN+3, RESETE!, EXT!, BILL2+4, BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, REFILL+1
, REFILL+2, REFILL+3, REFILL+4, SETCP+1, CP1+2
>> PSODFN COPAY+10
>> PSODRUG("DEA" COPAY+5, ASK+5, ASK+18
>> PSOFLAG ASK+9, ASK+13, ASK+14, ASK+16, ASK+20
>> PSOIBQ RESET+11*, RESET+12
PSOLFIL RESET+1!, RESET+9*, ASKCAN+3
>> PSOMESFI COPAY+9*
>> PSOMESOI COPAY+8*
>> PSONEW("NEWCOPAY" ASK+2!, COPAY2+4*
>> PSONEWFF ASK+9, ASK+13
>> PSONW RESET+16*, RESET+24*, BILL2+16*, BILL2+17*, POTBILL2+8*, POTBILL2+9*, CP1+4*
>> PSOOLD RESET+16*, RESET+24*, BILL2+16*, BILL2+17*, POTBILL2+8*, POTBILL2+9*, CP1+4*
>> PSOPAR RESET+2
>> PSOPAR7 BILL2+4, SETCP+1
PSOPFS COPAY2+1~*, COPAY2+4, RESET+1!, ASKCAN+3, BILL2+6
PSOPFSA RESET+1!, ASKCAN+3
PSOPFSG RESET+1!, BILL2+6, BILL2+7*
PSOPREV BILL2+1~, BILL2+2*, POTBILL2+6*, PREVCAN+5
PSOREF RESETE!, EXT!, BILL2+16*, BILL2+17*, BILL2END!, POTBILL2+8*, POTBILL2+9*, POTBILL2+10!, REFILL*, REFILL+1*
, REFILL+2, REFILL+3, REFILL+4*, MSG+3, POTMSG+3
>> PSORENW("OIRXN" ASK+8
PSORSN RESET+15*, RESET+23*, RESETE!, EXT!, BILL2+3*, BILL2+11, POTBILL2+4, REFILL+2, REFILL+3, REFILL+4
, PREVCAN+2
>> PSORX( ASK+8
>> PSORX("SC" ASK+4, ASK+5, ASK+8
>> PSORXED COPAY+8
PSORXN RESET+6*, RESET+8, RESETE!, EXT!, BILL2+16, POTBILL2+8, MSG+2, MSG+3, POTMSG+3, MSGNOCAN+2
PSOSAVE COPAY+3*, EXIT+1, EXIT+2!
>> PSOSCA COPAY+4, COPAY+6
>> PSOSCOTH ASK+4, ASK+5
>> PSOSCOTX ASK+5*
>> PSOSCP COPAY+4, ASK+5, ASK+18
PSOSUMM RESET+1!, ASKCAN+1, PRTSUMM+1, PRTSUMM+5!
PSOSUMM( PRTSUMM+4
PSOUFLAG ASK+1~*, ASK+10*, ASK+16, ASK+17, ASK+19
SAVX BILL2+5*, BILL2END!, POTBILL2+2
X EXIT+2!, RESETE!, EXT!, BILL2+4*, BILL2+5, BILL2END!, POTBILL2+1~, POTBILL2+2*, SETCP+1*, ENDMSG!
, ENDMSG+1*, ENDMSG+2, ENDMSG+3
X( BILL2+11*, POTBILL2+4*, POTBILL2+8!, POTBILL2+9, REFILL+2*, REFILL+3*, REFILL+4, PREVCAN+2*
X("" BILL2+10, POTBILL2+5, PREVCAN+4
>> XX( REFILL+4*
Y ASK+13, ASK+14, ASK+15*, ASK+16, EXIT+2!, RESET+3, RESET+14, RESET+15, RESET+22, RESET+23
, RESETE!, EXT!, BILL2+3, BILL2+14, BILL2+15, BILL2END!, SETCP+3, INELIG+1*
Y( BILL2+16!, BILL2+17, CP+1, CP+2

Marked Items

Name Field # of Occurrence
$T(CANIBAM^IBARX POTBILL2+3
$T(STATUS^IBARX PREVCAN+3
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 |  Marked Items |  All