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

Call Graph Total: 15

Package Total Call Graph
Outpatient Pharmacy 8 ACTLOG^PSOCPA  (EXEMCHK,SETSUMM)^PSOCPC  ASKCAN^PSOCPD  ICN^PSODPT  ^PSOLSET  (CHKPAG,DISSCD)^PSOMLLD2  ($$LF,PFS,PFSA)^PSOPFSU1  SCP^PSORN52D  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Integrated Billing 2 ($$STATUS,CANCEL,CANIBAM,STATUS,XTYPE)^IBARX  $$SWSTAT^IBBAPI  
List Manager 1 FULL^VALM1  
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: 8

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

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC COPAY2+5, COPAY2+12
^DIC RESET+3, RESET+15, RESET+23, BILL2+3
^DIR ASK+13, ASK+17, 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
$$CPTIER^PSNAPIS COPAY2+12
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
CHKPAG^PSOMLLD2 COPAY+10
DISSCD^PSOMLLD2 COPAY+10
$$LF^PSOPFSU1 RESET+9
PFS^PSOPFSU1 BILL2+6
PFSA^PSOPFSU1 RESET+9
SCP^PSORN52D COPAY+4
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+17
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
  • Formatting: !
  • Prompt: "ENTER a REASON now? (Y/N) "
  • Variable: X
  • Timeout: DTIME
  • 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+13
    • ASK+17
    • 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*
^XTMP("PSOTIEREFTST" COPAY2+8

Label References

Name Line Occurrences
ASKCAN RESET+12, RESET+20
BILL2 ENDMSG+3
BILL2END BILL2+6, BILL2+9
COPAY2 COPAY+6, ASK+17
COPAY21 COPAY2+10
CP CP+3
CP1 CP+1
ENDMSG BILL2+3, ENDMSG+2
EXIT ASK+21, COPAY2+13
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
>> % COPAY2+7
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
CPDATE COPAY2+12~*!
>> 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+17!, EXIT+2!, RESET+13!, RESET+21!
DIR("?" ASK+8*
DIR("A" ASK+7*, ASK+17*, RESET+13*, RESET+21*
DIR("B" ASK+9*, ASK+10*, ASK+11, ASK+12!, RESET+13*, RESET+21*
DIR(0 ASK+7*, ASK+17*, RESET+13*, RESET+21*
DIRUT ASK+3!, EXIT+2!
DTIME ENDMSG+1
DTOUT ASK+3!, ASK+15, EXIT+2!
DUOUT ASK+3!, ASK+15, 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+14*, ASK+20*
>> PSOANSQD("SC" ASK+10, ASK+14*
PSOANSR ASK+17*, ASK+22, 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
>> PSOCHG COPAY2+13*
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+17*, ASK+22*, COPAY21COPAY21+2, EXIT+1*, SETCP+4*, CP+2*, CP1+1
CP1+2
PSOCPT COPAY2+12~*, COPAY2+13
>> PSOCPZ("DFLG" ASK+2!, ASK+15*, ASK+21
PSODA RESET+3*, RESET+4, RESET+5, RESET+6, RESET+7, RESET+9, RESET+11, RESET+12, RESET+18, RESET+20
RESET+26, 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+19
>> PSODRUG("IEN" COPAY2+12
>> PSOFLAG ASK+10, ASK+14, ASK+15, ASK+17, ASK+21
>> PSOIBQ RESET+11*, RESET+12
PSOLFIL RESET+1!, RESET+9*
>> PSOMESFI COPAY+9*
>> PSOMESOI COPAY+8*
>> PSONEW("NEWCOPAY" ASK+2!, COPAY2+13!, COPAY21+2*
>> PSONEWFF ASK+10, ASK+14
>> 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~*, COPAY21+2, RESET+1!, BILL2+6
PSOPFSA RESET+1!
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+9
PSORSN RESET+15*, RESET+23*, RESETE!, EXT!, BILL2+3*, BILL2+11, POTBILL2+4, REFILL+2, REFILL+3, REFILL+4
PREVCAN+2
>> PSORX( ASK+9
>> PSORX("SC" ASK+4, ASK+5, ASK+9
>> 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+6*
>> PSOSCP COPAY+4, ASK+5, ASK+19
PSOSUMM RESET+1!, ASKCAN+1, PRTSUMM+1, PRTSUMM+5!
PSOSUMM( PRTSUMM+4
PSOTIERE COPAY2+5~, COPAY2+6*, COPAY2+7*, COPAY2+8*, COPAY2+10
PSOUFLAG ASK+1~*, ASK+11*, ASK+17, ASK+18, ASK+20
SAVX BILL2+5*, BILL2END!, POTBILL2+2
X COPAY2+12~!, 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+14, ASK+15, ASK+16*, ASK+17, 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