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

Package: Outpatient Pharmacy

Routine: PSOCPE


Information

PSOCPE ;BIR/BAB - PHARMACY COPAY APPLICATION UTILITIES FOR IB ;10/26/92

Source Information

Source file <PSOCPE.m>

Entry Points

Name Comments DBIA/ICR reference
INV ; Entry point from PSOCP - Prints one copay invoice
DRUG
NAR ; Print narrative from site parameter file
P1
END ;
PRT ;
XMPT ; Entry point for menu option to select copay exemption
QUIT
PAGE ;
WARN ;
WARNX
MAIL ;
MAIL2 ; SEND MAIL TO PHARMACIST, PROVIDER, AND HOLDERS OF PSO COPAY KEY
ELIG
RELSC ;Is this Rx for a Service Connected Condition?;1
RELMST ;Is this Rx related to the treatment of Military Sexual Trauma?;2
RELAO ;Is this Rx for treatment of Vietnam-Era Herbicide (Agent Orange) exposure?;3
RELIR ;Is this Rx for treatment of Ionizing Radiation exposure?;4
RELEC ;Is this Rx for treatment related to service in SW Asia?;5
RELHNC ;Is this Rx related to treatment of Head and/or Neck Cancer?;6
RELCV ;Is this Rx potentially for treatment related to Combat?;7
RELSHAD ;Is this Rx related to treatment of PROJ 112/SHAD?;8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,"PRESCRIPTION COPAYMENT INFORMATION"
  • Line Location: INV+5
Function Call: WRITE
  • Prompt: !!,?54,VADM(1)," ",VA("PID")," ",EDT
  • Line Location: INV+6
Function Call: WRITE
  • Prompt: !,?54,@PSOBAR1,PSOCPBN,@PSOBAR0
  • Line Location: INV+9
Function Call: WRITE
  • Prompt: !
  • Line Location: INV+10
Function Call: WRITE
  • Prompt: !,?54,"The following prescriptions are"
  • Line Location: INV+11
Function Call: WRITE
  • Prompt: !,?54,"eligible for prescription copayment.",!!
  • Line Location: INV+12
Function Call: WRITE
  • Prompt: !
  • Line Location: NAR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: ?54,PSZ2
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?72," ",$P(^TMP($J,"PSOCP",PSOCPN,PSZ2),"^",3)," ","Days Supply",!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?56,$E($P(^TMP($J,"PSOCP",PSOCPN,PSZ2),U,2),1,45),!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: XMPT+3
Function Call: WRITE
  • Prompt: !!,PSORXPNM_" is locked by another user. Try Later!"
  • Line Location: XMPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: XMPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: XMPT+8
Function Call: WRITE
  • Prompt: !!,"All Rx's entered with this Rx Patient Status will be EXEMPT from Copayment.",!
  • Line Location: XMPT+9
Function Call: WRITE
  • Prompt: !!,"All Rx's entered with this Rx Patient Status will NOT be exempt from Copayment.",!
  • Line Location: XMPT+10
Function Call: WRITE
  • Prompt: !!?28,"**** WARNING ****",!
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !,"By setting the Exempt from Copayment for the Rx Patient Status of",!,PSORXPNM," to 'YES', every prescription entered",!,"with this Rx Patient Status will NOT be charged a Copayment.",!
  • Line Location: WARN+3
Function Call: WRITE
  • Prompt: !,"By setting the EXEMPT FROM COPAYMENT for the Rx Patient Status of ",!,PSORXPNM," to 'NO', prescriptions entered with this Rx",!,"Patient Status from this point on will NOT be exempt from Copayment.",!
  • Line Location: WARN+4
Function Call: WRITE
  • Prompt: !,"A mail message will be sent to PSORPH and PSO COPAY Key holders informing",!,"them of your change."
  • Line Location: WARN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+6
Function Call: WRITE
  • Prompt: !!,"Setting ",PSORXPNM," Rx Patient Status to Exempt from Copayment."
  • Line Location: WARN+8
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: WARN+10
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: WARN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WARNX+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53 - [#53] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call