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

Package: Outpatient Pharmacy

Routine: PSOQUAP


Information

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

Source Information

Source file <PSOQUAP.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT FOR HEALTH SUMMARY
NVADISP
FOOTER
OPTFOOT
HEADER
INPDISP
OUTPUT
OPTDISP

External References

Name Field # of Occurrence
C^%DTC OPTFOOT+2
$$GET1^DIQ OPTFOOT+7
CKP^GMTSUP HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9
, OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6, OPTDISP+1, OPTDISP+9, OPTDISP+10, OPTDISP+11
, OPTDISP+12, NVADISP, NVADISP+1, NVADISP+4, NVADISP+5
COVER^ORWPS EN+2
$$BCMALG^PSJUTL2 INPDISP+5
$$DAYSSUPP^PSOQ0076 OPTFOOT+7, OPTDISP+10
$$EXPDATE^PSOQ0076 OPTDISP+4
$$LRDFUNC^PSOQ0076 OPTFOOT+3, OPTDISP+3
$$REFILLS^PSOQ0076 OPTDISP+5
NVADT^PSOQCF04 HEADER+1
$$LSIG^PSOQUTIL INPDISP+4
$$FMTE^XLFDT HEADER+8, OPTFOOT+7, OPTDISP+10, OPTDISP+11
$$REPEAT^XLFSTR HEADER+3, HEADER+10, FOOTER+2
$$UP^XLFSTR EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",IOM),!,"Alphabetical list of all prescriptions, inpatient orders 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: !,"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,$$LSIG^PSOQUTIL($G(^OR(100,+ORDER,8,LASTACT,.1,OTLINE,0)))
  • Line Location: INPDISP+4
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
  • Line Location: OPTDISP+7
Function Call: WRITE
  • Prompt: !?5,$G(^PSRX(PACKREF,"SIG1",SIGLINE,0))
  • Line Location: OPTDISP+9
Function Call: WRITE
  • Prompt: !?15,"Last Released: "_$$FMTE^XLFDT(PSOQLRD,"2D"),?55,"Days Supply: "_$$DAYSSUPP^PSOQ0076(PACKREF)
  • Line Location: OPTDISP+10
Function Call: WRITE
  • Prompt: !?15,"Rx Expiration Date: ",$$FMTE^XLFDT(PSOQEXP,"2D"),?55,"Refills Remaining: ",PSOQREF
  • Line Location: OPTDISP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTDISP+12
Function Call: WRITE
  • Prompt: !,"Non VA "_DRUGNM
  • Line Location: NVADISP+1
Function Call: WRITE
  • Prompt: !?5,$G(^OR(100,ORDER,8,LASTACT,.1,OTLINE,0))
  • Line Location: NVADISP+4
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)
^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+8, OPTDISP+9

Label References

Name Line Occurrences
FOOTER EN+13
HEADER EN+11
INPDISP OUTPUT+7
NVADISP OPTDISP+6
OPTDISP OUTPUT+8
OPTFOOT FOOTER+11
OUTPUT EN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADATE HEADER~, HEADER+1, HEADER+8
ALPHA EN+1~
ALPHA( EN+10*, OUTPUT+3, OUTPUT+4, OUTPUT+5
ATEST HEADER~, HEADER+1
ATEXT HEADER~, HEADER+1
AVALUE HEADER~, HEADER+1
BLINE FOOTER+1~, FOOTER+2*, FOOTER+3
>> DFN EN+2, HEADER+1, INPDISP+5
DRUGNM EN+1~, EN+6*, EN+8, EN+10, OUTPUT~, OUTPUT+3*, OUTPUT+4, OUTPUT+5, FOOTER+5~, FOOTER+7*
, FOOTER+8, FOOTER+9, OPTFOOT+7, INPDISP+1, OPTDISP+7, NVADISP+1
DT OPTFOOT+2
>> GMTSQIT HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9
, OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6, OPTDISP+1, OPTDISP+9, OPTDISP+10, OPTDISP+11
, OPTDISP+12, 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+10, 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
OTLINE OUTPUT+2~, INPDISP+3*, INPDISP+4, NVADISP+3*, NVADISP+4
PACK OUTPUT+1~, OUTPUT+6*, OUTPUT+7, OUTPUT+8, 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+8, OPTDISP+9, OPTDISP+10
PSNUM EN+1~, EN+5*, EN+8, EN+10, OUTPUT~, OUTPUT+5*, OUTPUT+6, FOOTER+5~, FOOTER+9*, FOOTER+10
, OPTFOOT+6, OPTDISP+6
PSOQEXP OPTDISP~, OPTDISP+4*, OPTDISP+11
PSOQLRD OPTFOOT~, OPTFOOT+3*, OPTFOOT+5, OPTFOOT+7, OPTDISP+3*, OPTDISP+10
PSOQREF OPTDISP~, OPTDISP+5*, OPTDISP+11
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+9
RPCT EN+1~, EN+3*, EN+4
SAVE EN+1~
SAVE( EN+8!*, OUTPUT+3!, FOOTER+7, FOOTER+8, FOOTER+9
SIGLINE OUTPUT+1~, FOOTER+6~, OPTFOOT+8*, OPTFOOT+9, OPTDISP+8*, OPTDISP+9
>> X OPTFOOT+2
>> X1 OPTFOOT+2*
>> X2 OPTFOOT+2*
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