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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSOQUAP2

Package: Outpatient Pharmacy

Routine: PSOQUAP2


Information

PSOQUAP2 ;HINES/RMS - UNIFIED PROFILE BASED ON PORTLAND IDEA ; 30 Nov 2007 7:58 AM

Source Information

Source file <PSOQUAP2.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 3 (RMDEV,SAVDEV,USE)^%ZISUTL  $$FMTE^XLFDT  ($$REPEAT,$$UP)^XLFSTR  
Outpatient Pharmacy 3 ($$DAYSSUPP,$$EXPDATE,$$LRDFUNC,$$REFILLS)^PSOQ0076  NVADT^PSOQCF04  ($$LSIG,WRAPTEXT)^PSOQUTIL  
Order Entry Results Reporting 2 ($$GET,$$HAVEHDR)^ORRDI1  COVER^ORWPS  
VA Fileman 2 C^%DTC  ($$GET1,Y)^DIQ  
Health Summary 1 CKP^GMTSUP  
Inpatient Medications 1 $$BCMALG^PSJUTL2  
Toolkit 1 $$GET^XPAR  

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT FOR HEALTH SUMMARY
NVADISP
FOOTER
OPTFOOT
HEADER
OUTPUT
INPDISP
ADDREM ;6-21-07 ADD ACTIVE MEDS VIA REMOTE DATA INTEROPERABILITY
OPTDISP
RDIDISP

External References

Name Field # of Occurrence
C^%DTC OPTFOOT+2
RMDEV^%ZISUTL ADDREM+13
SAVDEV^%ZISUTL ADDREM+10
USE^%ZISUTL ADDREM+12
$$GET1^DIQ OPTFOOT+7
Y^DIQ OPTDISP+11
CKP^GMTSUP HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, ADDREM+6, ADDREM+8, ADDREM+15
, ADDREM+17, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9, OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6
, OPTDISP+1, OPTDISP+15, OPTDISP+16, OPTDISP+17, OPTDISP+18, RDIDISP, RDIDISP+1, RDIDISP+5, RDIDISP+11, RDIDISP+13
, RDIDISP+14, NVADISP, NVADISP+1, NVADISP+4, NVADISP+5
$$GET^ORRDI1 ADDREM+11
$$HAVEHDR^ORRDI1 ADDREM+2
COVER^ORWPS EN+2
$$BCMALG^PSJUTL2 INPDISP+5
$$DAYSSUPP^PSOQ0076 OPTFOOT+7, OPTDISP+16
$$EXPDATE^PSOQ0076 OPTDISP+4
$$LRDFUNC^PSOQ0076 OPTFOOT+3, OPTDISP+3
$$REFILLS^PSOQ0076 OPTDISP+5
NVADT^PSOQCF04 HEADER+1
$$LSIG^PSOQUTIL INPDISP+4
WRAPTEXT^PSOQUTIL INPDISP+4, RDIDISP+4, NVADISP+4
$$FMTE^XLFDT HEADER+8, OPTFOOT+7, OPTDISP+16, OPTDISP+17
$$REPEAT^XLFSTR HEADER+3, HEADER+10, FOOTER+2
$$UP^XLFSTR EN+6
$$GET^XPAR ADDREM+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",IOM),!,"Alphabetized list of outpatient Rx's, inpatient orders, remote and Non-VA meds"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Legend: OPT = VA issued outpatient prescription, INP = VA issued inpatient order"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"Non-VA Meds Last Documented On: "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: $S(+ADATE:$$FMTE^XLFDT(ADATE,"D"),1:"** Data not found **")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,BLINE,!,"Other medications previously dispensed in the last year:",!
  • Line Location: FOOTER+3
Function Call: WRITE
  • Prompt: !,"WARNING: Connection to Remote Data Currently Down",!
  • Line Location: ADDREM+7
Function Call: WRITE
  • Prompt: !,"WARNING: Connection to Remote Data Not Available",!
  • Line Location: ADDREM+16
Function Call: WRITE
  • Prompt: !,"OPT "_DRUGNM_" ("_$$GET1^DIQ(52,+PACKREF,100,"E")_"/"_$$DAYSSUPP^PSOQ0076(PACKREF)_" Days Supply Last Released: "_$$FMTE^XLFDT(PSOQLRD,"2D")_")"
  • Line Location: OPTFOOT+7
Function Call: WRITE
  • Prompt: !?5,$G(^PSRX(PACKREF,"SIG1",SIGLINE,0))
  • Line Location: OPTFOOT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTFOOT+10
Function Call: WRITE
  • Prompt: !,"INP "_DRUGNM
  • Line Location: INPDISP+1
Function Call: WRITE
  • Prompt: !?5,$$BCMALG^PSJUTL2(DFN,ORDNUM)
  • Line Location: INPDISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INPDISP+6
Function Call: WRITE
  • Prompt: !,"OPT "_DRUGNM_" (Status = "_PSOQSTA_")"
  • Line Location: OPTDISP+13
Function Call: WRITE
  • Prompt: !?5,$G(^PSRX(PACKREF,"SIG1",SIGLINE,0))
  • Line Location: OPTDISP+15
Function Call: WRITE
  • Prompt: !?10,"Last Released: "_$$FMTE^XLFDT(PSOQLRD,"2D"),?55,"Days Supply: "_$$DAYSSUPP^PSOQ0076(PACKREF)
  • Line Location: OPTDISP+16
Function Call: WRITE
  • Prompt: !?10,"Rx Expiration Date: ",$$FMTE^XLFDT(PSOQEXP,"2D"),?55,"Refills Remaining: ",PSOQREF
  • Line Location: OPTDISP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTDISP+18
Function Call: WRITE
  • Prompt: !,"Remote "_DRUGNM
  • Line Location: RDIDISP+1
Function Call: WRITE
  • Prompt: !?10,"Last Filled: "_$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,9,0))_" ("_PSOQSTAT_" at "_$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,1,0))_") "
  • Line Location: RDIDISP+8
Function Call: WRITE
  • Prompt: ?55,"Days Supply: "_$P($P($G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,6,0)),";",2),"D",2)
  • Line Location: RDIDISP+10
Function Call: WRITE
  • Prompt: !?10,"Rx Expiration Date: ",$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,7,0)),?55,"Refills Remaining: ",$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,10,0))
  • Line Location: RDIDISP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: RDIDISP+14
Function Call: WRITE
  • Prompt: !,"Non VA "_DRUGNM
  • Line Location: NVADISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NVADISP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(52 OPTDISP+10
^OR(100 - [#100] OPTFOOT+1, INPDISP+2, INPDISP+3, INPDISP+4, OPTDISP+2, NVADISP+2, NVADISP+3, NVADISP+4
^PSRX - [#52] OPTFOOT+8, OPTFOOT+9, OPTDISP+9, OPTDISP+14, OPTDISP+15
^XTMP("ORRDI" ADDREM+4, ADDREM+5, ADDREM+18, ADDREM+19, ADDREM+20, ADDREM+23, ADDREM+24, RDIDISP+3, RDIDISP+6, RDIDISP+8
, RDIDISP+10, RDIDISP+12

Label References

Name Line Occurrences
ADDREM EN+12
FOOTER EN+15
HEADER EN+13
INPDISP OUTPUT+7
NVADISP OPTDISP+6
OPTDISP OUTPUT+8
OPTFOOT FOOTER+11
OUTPUT EN+14
RDIDISP OUTPUT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADATE HEADER~, HEADER+1, HEADER+8
ALPHA EN+1~
ALPHA( EN+11*, OUTPUT+3, OUTPUT+4, OUTPUT+5, ADDREM+26*
ATEST HEADER~, HEADER+1
ATEXT HEADER~, HEADER+1
AVALUE HEADER~, HEADER+1
BLINE FOOTER+1~, FOOTER+2*, FOOTER+3
C OPTDISP+8~, OPTDISP+10*
>> DFN EN+2, HEADER+1, ADDREM+11, ADDREM+18, ADDREM+19, ADDREM+20, ADDREM+23, ADDREM+24, INPDISP+5, RDIDISP+3
, RDIDISP+6, RDIDISP+8, RDIDISP+10, RDIDISP+12
DRUGNM EN+1~, EN+6*, EN+8, EN+9, EN+11, OUTPUT~, OUTPUT+3*, OUTPUT+4, OUTPUT+5, FOOTER+5~
, FOOTER+7*, FOOTER+8, FOOTER+9, OPTFOOT+7, INPDISP+1, OPTDISP+13, RDIDISP+1, NVADISP+1
DT OPTFOOT+2
>> GMTSQIT HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, ADDREM+6, ADDREM+8, ADDREM+15
, ADDREM+17, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9, OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6
, OPTDISP+1, OPTDISP+15, OPTDISP+16, OPTDISP+17, OPTDISP+18, RDIDISP, RDIDISP+1, RDIDISP+5, RDIDISP+11, RDIDISP+13
, RDIDISP+14, NVADISP, NVADISP+1, NVADISP+4, NVADISP+5
IOM HEADER+3, HEADER+10, FOOTER+2
LASTACT OUTPUT+2~, INPDISP+2*, INPDISP+3, INPDISP+4, NVADISP+2*, NVADISP+3, NVADISP+4
ORDER EN+1~, EN+7*, EN+8, EN+9, EN+11, OUTPUT~, OUTPUT+4*, OUTPUT+5, FOOTER+5~, FOOTER+8*
, FOOTER+9, OPTFOOT+1, INPDISP+2, INPDISP+3, INPDISP+4, OPTDISP+2, NVADISP+2, NVADISP+3, NVADISP+4
ORDNUM OUTPUT+1~, OUTPUT+6*, INPDISP+5, RDIDISP+3, RDIDISP+6, RDIDISP+8, RDIDISP+10, RDIDISP+12
OTLINE OUTPUT+2~, INPDISP+3*, INPDISP+4, NVADISP+3*, NVADISP+4
PACK OUTPUT+1~, OUTPUT+6*, OUTPUT+7, OUTPUT+8, OUTPUT+9, FOOTER+6~, FOOTER+10*, FOOTER+11
PACKREF OUTPUT+1~, FOOTER+6~, OPTFOOT+1*, OPTFOOT+3, OPTFOOT+7, OPTFOOT+8, OPTFOOT+9, OPTDISP+2*, OPTDISP+3, OPTDISP+4
, OPTDISP+5, OPTDISP+9, OPTDISP+14, OPTDISP+15, OPTDISP+16
PSNUM EN+1~, EN+5*, EN+8, EN+9, EN+11, OUTPUT~, OUTPUT+5*, OUTPUT+6, FOOTER+5~, FOOTER+9*
, FOOTER+10, OPTFOOT+6, OPTDISP+6
PSOQDOWN ADDREM+1~, ADDREM+3, ADDREM+5*
PSOQEXP OPTDISP~, OPTDISP+4*, OPTDISP+17
PSOQLRD OPTFOOT~, OPTFOOT+3*, OPTFOOT+5, OPTFOOT+7, OPTDISP+3*, OPTDISP+16
PSOQMED ADDREM+1~, ADDREM+19*, ADDREM+20, ADDREM+23, ADDREM+24, ADDREM+26
PSOQRDI ADDREM+1~, ADDREM+11*, ADDREM+14
PSOQREF OPTDISP~, OPTDISP+5*, OPTDISP+17
PSOQRNAM ADDREM+1~, ADDREM+23*, ADDREM+25, ADDREM+26
PSOQRNUM ADDREM+1~, ADDREM+24*, ADDREM+25, ADDREM+26
PSOQSIG RDIDISP+2~, RDIDISP+3*, RDIDISP+4
PSOQSTA OPTDISP~, OPTDISP+12*, OPTDISP+13
PSOQSTAT ADDREM+1~, ADDREM+20*, ADDREM+21, ADDREM+22, RDIDISP+2~, RDIDISP+6*, RDIDISP+7*, RDIDISP+8
PSOQYEAR OPTFOOT~, OPTFOOT+2*, OPTFOOT+5
RPC EN+1~, EN+2
RPC( EN+3, EN+4
RPCNODE EN+1~, EN+4*, EN+5, EN+6, EN+7, EN+10
RPCT EN+1~, EN+3*, EN+4
SAVE EN+1~
SAVE( EN+9!*, OUTPUT+3!, FOOTER+7, FOOTER+8, FOOTER+9
SIGLINE OUTPUT+1~, FOOTER+6~, OPTFOOT+8*, OPTFOOT+9, OPTDISP+14*, OPTDISP+15
U OPTDISP+10
>> X OPTFOOT+2
>> X1 OPTFOOT+2*
>> X2 OPTFOOT+2*
Y OPTDISP+8~, OPTDISP+9*, OPTDISP+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All