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

Package: Outpatient Pharmacy

Routine: PSOCPD


Information

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

Source Information

Source file <PSOCPD.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "PRESCRIPTION(s): "
  • Variable: PSX
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • Line Location: SELECT3+1
Function Call: WRITE
  • Prompt: $C(7),!!,J," is an invalid selection. Please try again.",!
  • Line Location: CHKCAN+2

FileMan Files Accessed Via FileMan Db Call

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