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

Package: Outpatient Pharmacy

Routine: PSOCPC


Information

PSOCPC ;BHAM ISC/BAB - PHARMACY CO-PAY APPLICATION ;06/09/92

Source Information

Source file <PSOCPC.m>

Entry Points

Name Comments DBIA/ICR reference
WARN ; Message when attempt is made to delete a refill date on COPAY
ENDW ;
CANCEL ;Check if charge is cancelled for this Refill date
LAST ;find last entry
EXEMCHK ; Allow reset of exemption answers
ASKEXEM ; ASK THE EXEMPTION QUESTIONS
ASKEXEM1
HELPEXEM ; help text for exemption edit question
HELPSC ;
HELPAO ;
HELPIR ;
HELPEC ;
HELPMST ;
HELPHNC ;
HELPCV ;
HELPSHAD ;
SETSUMM ; SET MESSAGE INTO SUMMARY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following exemption flags have been set:"
  • Line Location: EXEMCHK+22
Function Call: WRITE
  • Prompt: !,$S(EXMT="EC":"SWAC",1:EXMT),": ",?6,$S(PSOTG(EXMT)=1:"Yes",PSOTG(EXMT)=0:"No",1:"")
  • Line Location: EXEMCHK+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EXEMCHK+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EXEMCHK+25
Function Call: WRITE
  • Prompt: !,"Editing of exemption flag(s) has resulted in a copay status change.",!,"The status for this Rx will be reset to NO COPAY."
  • Line Location: EXEMCHK+53
Function Call: READ
  • Formatting: !
  • Prompt: " Are you sure you want to delete this answer? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKEXEM1+0
Function Call: WRITE
  • Prompt: !,"Enter 'Y' for Yes if you want to edit any applicable exemption flags such as"
  • Line Location: HELPEXEM+1
Function Call: WRITE
  • Prompt: !,"Service Connected (SC), Combat Veteran(CV), Agent Orange (AO), Ionizing"
  • Line Location: HELPEXEM+2
Function Call: WRITE
  • Prompt: !,"Radiation (IR), Southwest Asia Conditions (SWAC), PROJ 112/SHAD,"
  • Line Location: HELPEXEM+3
Function Call: WRITE
  • Prompt: !,"Military Sexual Trauma (MST), or Head and/or Neck Cancer (HNC)."
  • Line Location: HELPEXEM+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call