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 |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 C^%DTC  ^DIE  ^DIR  
Kernel 2 $$DT^XLFDT  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 18

Package Total Caller Graph
Outpatient Pharmacy 17 PSOAUTOC  PSOBBC  PSOCAN3  PSOFUNC  PSOHLDC  PSOHLNEW  PSOORED1  PSOORFIN  
PSOORNE5  PSOORRNW  PSOORUTL  PSOPKIV1  PSORN52C  PSORXEDT  PSOTPRX1  PSOVER  
PSOVERC  
Scheduling 1 SDPBP  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC CAN+13, EXFLAG+8
^DIE CAN+19, EXFLAG+21
^DIR PDIR+7, VOPNX+8, DSPL+8, DSPL+14
$$DT^XLFDT EXFLAG+2
$$UP^XLFSTR MARK+8, MARKV+8, RXPAT+3, SET+2, VOPNX+5, DSPL+6, DSPL+12, EXFLAG+18

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
Routine Call
  • DIE
  • Line Location:
    • CAN+19
    • EXFLAG+21
Routine Call
  • DIR
  • Line Location:
    • PDIR+7
    • VOPNX+8
    • DSPL+8
    • DSPL+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.91 - [#52.91] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PDIR+4, PDIR+5, SCH+6, SCH+7
^PS(52.41 - [#52.41] VOPNR+2, VOPNR+5, VOPNR+6, NOREN+1, DSPL+3, DSPL+4, DSPL+5, DSPL+11
^PS(52.91 - [#52.91] CAN+7, CAN+8, MARK+11, MARK+12, MARKV+11, MARKV+12, SET+2, EXFLAG+4, EXFLAG+5, EXFLAG+6
, SCH+3, SCH+4
^PS(53 - [#53] MARK+8, MARKV+8, RXPAT+3, SET+2, VOPNX+5, DSPL+6, DSPL+12, EXFLAG+18
^PS(55 - [#55] CAN+14, RXPAT+3*, SET+2*, VOPNR+6, DSPL+11, EXFLAG+10
^PSRX - [#52] CAN+4, CAN+6, CAN+10, CAN+15, CAN+16, CAN+18, MARK+3, MARK+6, MARK+14*, MARKV+3
, MARKV+6, MARKV+13*, VOPN+2, VOPN+5, VOPNR+5, DSPL+4, DSPL+5, EXFLAG+11, EXFLAG+12, EXFLAG+13
, EXFLAG+14, EXFLAG+16, EXFLAG+20*
^TMP($J SCH+2!, SCH+7*
^VA(200 - [#200] MARK+9, MARK+10, MARKV+9, MARKV+10, VOPNX+3, VOPNX+4, EXFLAG+19

Label References

Name Line Occurrences
NOREN VOPNR+5
VOPNX NOREN+2

Naked Globals

Name Field # of Occurrence
^( SCH+3
^("TPB" EXFLAG+19
^(0 CAN+8, MARK+12, MARKV+12, SET+2, EXFLAG+16
^(2 CAN+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA CAN+11~, CAN+19!*, RXPAT+3, EXFLAG+7~, EXFLAG+21!*
DIE CAN+11~, CAN+19!*, EXFLAG+7~, EXFLAG+21!*
DIR PDIR+7!, VOPNX+8!, DSPL+1~, DSPL+8!, DSPL+14!
DIR("A" PDIR+7*, VOPNX+8*, DSPL+8*, DSPL+14*
DIR(0 PDIR+7*, VOPNX+8*, DSPL+8*, DSPL+14*
DR CAN+11~, CAN+19!*, EXFLAG+7~, EXFLAG+21!*
DT CAN+8, CAN+13, CAN+18, CAN+19, MARK+12, MARKV+12, RXPAT+2, SET+2, EXFLAG+2*, EXFLAG+5
, EXFLAG+8, EXFLAG+13, SCH+5
>> PSONVLP MARKV+2, MARKV+3, MARKV+6, MARKV+13
PSOPAPPT PCAP~
PSOSCT SCH+1~, SCH+3*, SCH+4, SCH+6, SCH+7
PSOSCTD SCH+1~, SCH+4*, SCH+5
PSOTC1 CAN+11~, CAN+14*
PSOTC2 CAN+11~, CAN+14*, CAN+15, CAN+16, CAN+18
PSOTC3 CAN+11~, CAN+13*, CAN+14
PSOTCXFL CAN+11~, CAN+12*, CAN+14, CAN+18*, CAN+19
>> PSOTPBFG MARK+4, MARKV+4
PSOTPCSS CAN+11~, CAN+16*, CAN+17
PSOTPEX PDIR~, PDIR+1, PDIR+4, PDIR+5
PSOTPEXS PDIR+2~, PDIR+4*, PDIR+5
>> PSOTPEXT PDIR+3*, PDIR+7*
PSOTPODE MARK+1~, MARK+6*, MARK+7, MARK+8, MARK+9, MARK+10, MARK+11, MARK+12
PSOTPPE3 VOPN+3~, VOPN+5*, VOPNX+2, VOPNX+5, VOPNR+3~, VOPNR+5*, VOPNR+6*
PSOTPPE4 VOPN+3~, VOPN+5*, VOPNX+1, VOPNX+3, VOPNX+4, VOPNR+3~, NOREN+1*
PSOTPPE5 VOPN+3~, VOPNR+3~
PSOTPPE5( VOPNX+1*, VOPNX+2*, VOPNX+3*, VOPNX+4*, VOPNX+5*, VOPNX+7
PSOTPPE6 VOPN+3~, VOPN+4*, VOPNX+1*, VOPNX+2*, VOPNX+3*, VOPNX+4*, VOPNX+5*, VOPNR+3~, VOPNR+4*
PSOTPPE7 VOPN+3~, VOPNX+5*, VOPNR+3~
PSOTPPE8 VOPN+3~, VOPNX+7*, VOPNR+3~
>> PSOTPPE9 VOPNX+6
>> PSOTPPEN VOPN+1, VOPN+2, VOPN+5, VOPNR+1, VOPNR+2, VOPNR+5, VOPNR+6, NOREN+1
>> PSOTPPEX VOPNX+1*, VOPNX+2*, VOPNX+3*, VOPNX+4*, VOPNX+5*, VOPNX+6
PSOTPPST SET~, SET+2
PSOTPPX EXFLAG~, EXFLAG+3, EXFLAG+4, EXFLAG+5, EXFLAG+6, EXFLAG+10, EXFLAG+11, EXFLAG+21
PSOTPPX1 EXFLAG+7~, EXFLAG+8*, EXFLAG+10
PSOTPPX2 EXFLAG+7~, EXFLAG+10*
PSOTPPX3 EXFLAG+7~, EXFLAG+10*, EXFLAG+11, EXFLAG+12, EXFLAG+13, EXFLAG+14, EXFLAG+16, EXFLAG+20
PSOTPPX4 EXFLAG+7~, EXFLAG+14*, EXFLAG+15
PSOTPPX5 EXFLAG+7~, EXFLAG+16*, EXFLAG+17, EXFLAG+18
PSOTPPX6 EXFLAG+7~, EXFLAG+16*, EXFLAG+17, EXFLAG+19
PSOTPPX7 EXFLAG+7~, EXFLAG+18*
PSOTPPX9 EXFLAG+7~, EXFLAG+9*, EXFLAG+20*, EXFLAG+21
PSOTPRC CAN+3~, CAN+4*, CAN+5, CAN+7, CAN+8, CAN+10, CAN+14, CAN+15, CAN+19
PSOTPRCX CAN~, CAN+2, CAN+4, CAN+6, CAN+10
PSOTPV1 MARKV+1~, MARKV+6*, MARKV+7, MARKV+8, MARKV+9, MARKV+10, MARKV+11, MARKV+12
PSOTPV2 MARKV+1~, MARKV+8*
PSOTPWR1 DSPL+1~, DSPL+5*, DSPL+6, DSPL+11*, DSPL+12
PSOTPWR2 DSPL+1~, DSPL+6*, DSPL+12*
PSOTPWR3 DSPL+1~, DSPL+6*, DSPL+7, DSPL+12*, DSPL+13
PSOTPWRN DSPL~, DSPL+2, DSPL+3, DSPL+4, DSPL+5, DSPL+11
>> PSOX("IRXN" MARK+2, MARK+3, MARK+6, MARK+14
PSOZTRX MARK+1~, MARK+8*
PSOZXTRX SET+1~, SET+2*
PSOZZTRX RXPAT+1~, RXPAT+3*
>> VALMSG VOPNX+6*
X CAN+11~, CAN+13, RXPAT+2, EXFLAG+7~, EXFLAG+8
X1 CAN+11~, CAN+13*, EXFLAG+7~, EXFLAG+8*
X2 CAN+11~, CAN+13*, EXFLAG+7~, EXFLAG+8*
Y CAN+11~, PDIR+7, EXFLAG+7~
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 |  All