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

Package: Outpatient Pharmacy

Routine: PSOCPD


Information

PSOCPD ;BHAM ISC/BaB - MULTIPLE COPAY CHARGE REMOVAL ;05/27/92

Source Information

Source file <PSOCPD.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Outpatient Pharmacy 4 ACTLOG^PSOCPA  (BILL2,REFILL)^PSOCPB  SETSUMM^PSOCPC  (,FINAL)^PSOLSET  
VA Fileman 3 ^DIC  GETS^DIQ  ^DIR  
Integrated Billing 1 ($$STATUS,CANCEL,STATUS)^IBARX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOCPB  

Entry Points

Name Comments DBIA/ICR reference
ASKCAN ; if any charges currently, give option to cancel some or all
ENDMSG ;
FILE ;
; File new Bill # in ^PSRX
SPEED1 ;
SELECT ; Choose from list of fills that have charges
ASK
HELP2
ERRBIL
CHKCAN ; SEE IF SELECTION HAS ALREADY BEEN CANCELLED
REASON ;
; Get Cancellation reason
ASKCAN2
CANCEL ;
CR
ASKALL ;PFS - check copay activity log to see if any fills were previously cancelled; mark as cancelled for display
INVALD
SPEED ;
LASTEX ;
PFS
EXIT ;
HELP3
SELECT4
SELECT3
SELECT2 ;

External References

Name Field # of Occurrence
^DIC REASON+2, SPEED+2
GETS^DIQ ASKALL+1
^DIR CANCEL+1, CANCEL+2, SELECT2+4
$$STATUS^IBARX SELECT+8
CANCEL^IBARX CANCEL+11
STATUS^IBARX SELECT+8
ACTLOG^PSOCPA FILE+7
BILL2^PSOCPB ASKALL+11, SELECT4
REFILL^PSOCPB PFS
SETSUMM^PSOCPC CHKCAN+4
^PSOLSET CR
FINAL^PSOLSET LASTEX+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "PRESCRIPTION(s): "
  • Formatting: !
  • Timeout: DTIME
  • Variable: PSX
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,"Enter prescription number(s) for removal of charges. If more than one",!,"separate with commas. Do not exceed 245 characters including commas."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,PSX," is not a valid RX #!!"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Rx # ",$P($G(^PSRX(PSODA,0)),"^")," is NOT a COPAY transaction...NO action taken."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REASON+2
Function Call: WRITE
  • Prompt: !?10,PSOI
  • Line Location: INVALD+1
Function Call: WRITE
  • Prompt: !,"Rx # ",PSORXN," is NOT a COPAY transaction...NO action taken."
  • Line Location: SPEED1+5
Function Call: WRITE
  • Prompt: !!,"No action taken.",!
  • Line Location: CANCEL+1
Function Call: WRITE
  • Prompt: !!,"No action taken.",!
  • Line Location: CANCEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CANCEL+3
Function Call: WRITE
  • Prompt: !,"......No action taken."
  • Line Location: CANCEL+16
Function Call: WRITE
  • Prompt: !!,"No Entry # for Rx # "_$P($G(^PSRX(PSODA,0)),"^")_" ...No action taken."
  • Line Location: ERRBIL+0
Function Call: WRITE
  • Prompt: !!,"Unable to process without REASON entry."
  • Line Location: ENDMSG+1
Function Call: WRITE
  • Prompt: !!,"Do you want to cancel any charges (Y/N)? "
  • Line Location: ASKCAN2+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKCAN2+1
Function Call: WRITE
  • Prompt: !,"Answering YES will allow cancelling of all or selected charges"
  • Line Location: HELP2+0
Function Call: WRITE
  • Prompt: !,"Answering YES will proceed with cancelling selected charges"
  • Line Location: HELP3+0
Function Call: WRITE
  • Prompt: !!,"(A)ll or (S)elect Charges? (A/S): "
  • Line Location: ASKALL+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKALL+8
Function Call: WRITE
  • Prompt: !,"Enter 'A' to cancel all charges or 'S' to select from list of charges"
  • Line Location: ASKALL+10
Function Call: WRITE
  • Prompt: !!,"* Potential charge indicates fill was not billed due to the annual cap."
  • Line Location: SELECT+16
Function Call: WRITE
  • Prompt: !,"If cancelled, this fill will not be considered for future copay billing."
  • Line Location: SELECT+17
Function Call: WRITE
  • Prompt: !!,"Do you wish to continue (Y/N)? "
  • Line Location: SELECT3+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SELECT3+1
Function Call: WRITE
  • Prompt: $C(7),!!,J," is an invalid selection. Please try again.",!
  • Line Location: CHKCAN+2
Routine Call
  • DIC
  • Line Location:
    • REASON+2
    • SPEED+2
Routine Call
  • DIR
  • Line Location:
    • CANCEL+1
    • CANCEL+2
    • SELECT2+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] ASK+5, SPEED1+3, SPEED1+5, SPEED1+6, SPEED1+7, SPEED1+11, SPEED1+12, SPEED1+13, SPEED1+14, CANCEL+7
, CANCEL+9, FILE+3*, FILE+4*, ERRBIL, ASKCAN+1, ASKCAN+5, ASKCAN+6, ASKCAN+7, PFS+2, PFS+3
, SELECT+11
^PSRX("B" ASK+3, ASK+4

Label References

Name Line Occurrences
ASK ASK+1, ASK+3, ASK+4, INVALD, INVALD+3
ASKALL ASKCAN2+1, ASKALL+10
ASKCAN2 ASKCAN2+1
CANCEL SPEED1+11
CR CR
ENDMSG REASON+2
ERRBIL SPEED1+7, SPEED1+13
EXIT ASK+5, SPEED1+5, CANCEL+1, CANCEL+2, CANCEL+16, CANCEL+17, FILE+9
HELP2 ASKCAN2+1
HELP3 SELECT3+3
LASTEX ASK, ASK+6, SPEED+1
REASON ASK+6, SPEED+1
SELECT ASKALL+16
SELECT3 SELECT3+3
SELECT4 SELECT3+2
SPEED ASK+2
SPEED1 ASK+6, SPEED+2

Naked Globals

Name Field # of Occurrence
^("IB" SPEED1+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C EXIT+1!, LASTEX+1!
CANTYPE ASKCAN+2~, ASKALL+14*, ASKALL+15*
DIC REASON+2*!, SPEED+2*!
DIC("A" REASON+2*
DIC("S" REASON+2*
DIC(0 REASON+2*, SPEED+2*
DIR CANCEL+1!, CANCEL+2!, SELECT2+1!, SELECT2+4!
DIR("?" SELECT2+2*
DIR("A" CANCEL+1*, CANCEL+2*
DIR("B" CANCEL+1*, CANCEL+2*
DIR(0 CANCEL+1*, CANCEL+2*, SELECT2+3*
DTIME ASK, ASKCAN2+1, ASKALL+8, SELECT3+1
DUZ CANCEL+7
FOOTNOTE SELECT+1~, SELECT+2!, SELECT+7*, SELECT+15
I ASKALL+2*, ASKALL+3, SELECT+1~, SELECT2+6*, SELECT2+7, SELECT4+1*
J ASKCAN+2~, ASKCAN+4*, ASKCAN+5*, ASKCAN+6*, ASKCAN+7*, PFS+2*, PFS+3*, ASKALL+3*, ASKALL+4*, SELECT+1~
, SELECT+4*, SELECT+6, SELECT+7, SELECT+8, SELECT+9, SELECT+11, SELECT+13, SELECT2+3, CHKCAN+1, CHKCAN+2
, CHKCAN+4
PREA REASON+3*, EXIT+1!, LASTEX+1!
PSI CHKCAN+3*, CHKCAN+5!
PSINV INVALD, INVALD+2!, LASTEX+1!
PSINV( SPEED+2*, INVALD+1
PSO SPEED1+2*, FILE+5, EXIT+1!, LASTEX+1!
PSOBILL SELECT+1~, SELECT+4, SELECT+5*, SELECT+7*, SELECT+8*, SELECT+9*
PSOCAN ASKCAN+2~
PSOCAN( ASKCAN+5*, ASKCAN+6*, ASKCAN+7*, PFS+2*, PFS+3*, ASKALL+4*, SELECT+4, SELECT+6, SELECT+7, SELECT+8*
, SELECT+9, SELECT+11, SELECT+13, SELECT2+8, SELECT4+1!, CHKCAN+1, CHKCAN+4
>> PSOCOMM CHKCAN+4*
PSOCPUN LASTEX+1!
PSODA ASK+4*, ASK+5, SPEED+2*, SPEED1+3, SPEED1+5, SPEED1+6, SPEED1+7, SPEED1+11, SPEED1+12, SPEED1+13
, SPEED1+14, CANCEL+7, CANCEL+9, FILE+3, FILE+4, ERRBIL, EXIT+1!, LASTEX+1!, ASKCAN+1, ASKCAN+5
, ASKCAN+6, ASKCAN+7, PFS+2, PFS+3, ASKALL+1, ASKALL+2, ASKALL+3, ASKALL+4, SELECT+11
PSOFIL ASKALL+1~, ASKALL+3*, ASKALL+4, ASKALL+5!
PSOFLAG SPEED1+1*, LASTEX+1!
PSOI SPEED+2*, INVALD+1*, LASTEX+1!
PSOIB SPEED1+6*, SPEED1+7, SPEED1+14*, CANCEL+8, EXIT+1!, LASTEX+1!
PSOINDPT CR*, LASTEX+2!
PSOJ INVALD+1*, LASTEX+1!
>> PSOPAR CR
>> PSOPAR7 CANCEL+7
PSOPARNT EXIT+1!, LASTEX+1!
PSOPFSD ASKALL+1~, ASKALL+5!
PSOPFSD( ASKALL+2, ASKALL+3
PSOREF SPEED1+10*, SPEED1+12*, SPEED1+13, SPEED1+14, CANCEL+8, CANCEL+9, FILE+3, FILE+4, FILE+5, EXIT+1!
, LASTEX+1!, ASKCAN+2~, PFS+2*, PFS+3*
PSORELDT SELECT+1~, SELECT+4, SELECT+12*, SELECT+13*, SELECT+14*
PSORSN REASON+2*, CANCEL+8, CANCEL+9, LASTEX+1!
PSORXN SPEED1+3*, SPEED1+5, CANCEL+1, CANCEL+8, CANCEL+9, CANCEL+17, FILE+3, FILE+4, FILE+5, EXIT+1!
, LASTEX+1!, ASKCAN+6, ASKCAN+7, CHKCAN+4
>> PSOSLCT SELECT2+7*, SELECT2+8
PSPEED ASK!, SPEED+1*, CANCEL+1, CANCEL+2, LASTEX+1!
PSPEEDA ASK!, CANCEL+2*, LASTEX+1!
PSPOUT ASK!, SPEED+2, CANCEL+2*, LASTEX+1!
PSX ASK*, ASK+1, ASK+2, ASK+3, ASK+4, SPEED+2, LASTEX+1!
PSZ SPEED1+12*, EXIT+1!, LASTEX+1!
RX2 SELECT+10~, SELECT+11*, SELECT+12, SELECT+13, SELECT+14
X SPEED+2*, CANCEL+3!, CANCEL+7*, EXIT+1!, LASTEX+1!, ASKCAN+3!, PFS+1, ASKCAN2+1*, ASKALL+8*, ASKALL+9
, ASKALL+10, ASKALL+11, SELECT+3!, SELECT2+5, SELECT3+1*, SELECT3+2, SELECT3+3
X( CANCEL+8*, CANCEL+9*, ASKCAN+5*, ASKCAN+6*, ASKCAN+7, PFS+2, SELECT2+8*, SELECT4+1
X("" SELECT4
XX ASKCAN+3!, PFS+1
XX( ASKCAN+7*, PFS+3
Y ASK+6, REASON+2, SPEED+1, SPEED+2, CANCEL+1, CANCEL+2, CANCEL+16, EXIT+1!, LASTEX+1!, SELECT2+5
, SELECT2+6, SELECT2+7
Y( CANCEL+17, FILE+3, FILE+4

Marked Items

Name Field # of Occurrence
$T(STATUS^IBARX SELECT+8
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