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

Package: Outpatient Pharmacy

Routine: PSOQUAP2


Information

PSOQUAP2 ;HINES/RMS - UNIFIED PROFILE BASED ON PORTLAND IDEA ;08/23/17 20:42

Source Information

Source file <PSOQUAP2.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call