Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.3 - [#350.3] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call