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

Package: Outpatient Pharmacy

Routine: PSOTPCAN


Information

PSOTPCAN ;BIR/RTR - TPB Utility routine ;08/23/03

Source Information

Source file <PSOTPCAN.m>

Entry Points

Name Comments DBIA/ICR reference
CAN(PSOTPRCX) ;
MARK ;Mark Rx as TPB Rx if applicable
MARKV ;Mark from Verify action
RXPAT ;Sets Rx patient status to null
SET(PSOTPPST) ;Pass in DFN on a hard set of INACTIVATION OF BENEFIT DATE
PCAP(PSOPAPPT) ;Find nearest Primary Care appointment
PDIR(PSOTPEX) ;
VOPN ;
VOPNX ;
VOPNR ;
NOREN ;
DSPL(PSOTPWRN) ;
EXFLAG(PSOTPPX) ;Exit TPB RX option, reset TPG flag if necessary,
SCH ;DBIA to return TPB patients to Scheduling

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,$C(7),$P($G(^DPT(PSOTPEX,0)),"^")_" ("_$E(PSOTPEXS,1,3)_"-"_$E(PSOTPEXS,4,5)_"-"_$E(PSOTPEXS,6,9)_")"
  • Line Location: PDIR+5
Function Call: WRITE
  • Prompt: !?10,"Patient is eligible for the Transitional Pharmacy Benefit!!"
  • Line Location: PDIR+6
Function Call: WRITE
  • Prompt: !,$G(PSOTPPE5(PSOTPPE8))
  • Line Location: VOPNX+7
Function Call: WRITE
  • Prompt: !!,"This order has an Rx Patient Status of 'NON-VA'!",!
  • Line Location: DSPL+8

FileMan Files Accessed Via FileMan Db Call

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