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

Package: Health Summary

Routine: GMTSPST1


Information

GMTSPST1 ;BIR/RMS - MED RECON TOOL #1 (MED REC PROFILE) ; Feb 8, 2023@12:51:30

Source Information

Source file <GMTSPST1.m>

Entry Points

Name Comments DBIA/ICR reference
TOOL1 ;ENTRY POINT FOR HEALTH SUMMARY
ADDREM ;USES RDI - REMOTE DATA INTEROPERABILITY TO INCORPORATE OUTSIDE MEDS
HEADER ;
TEXTPRNT(TEXTLOC) ;PRINT LINES OF TEXT FROM A LINE LABEL, ENDS WITH $$END
OUTPUT
INPDISP ;Display an Inpatient or Clinic Meds Entry
OPTDISP ;Display an Outpatient Prescription Entry
ISSUPPLY(DRUG,DRUGNAME) ;
; Function returns '1' if drug is a SUPPLY, '0' otherwise
RDIDISP ;Display a Remote Meds Entry
NVADISP ;Display a Non-VA Medication Entry
FOOTER ;Report footer for older medication entries
OPTFOOT ;Actual display for outpatient footer
NVADT() ;Replaces call previously in ^PSOQCF04
LSIG(SIG) ;Expand a SIG
LRD(PACKREF) ;Calculate LAST RELEASE DATE as latest of original + refill relDates
CKP
HEADTXT1 ;;
HEADTXT2 ;;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TOOL1+18
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM-8)
  • Line Location: TOOL1+19
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("SUPPLIES",IOM-8)
  • Line Location: TOOL1+20
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM-8)
  • Line Location: TOOL1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: TOOL1+22
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+19
Function Call: WRITE
  • Prompt: !,"Non-VA Meds Last Documented On: "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: $S(+NVADT:$$FMTE^XLFDT(NVADT,"D"),1:"** Data not found **")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",IOM-8)
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM-8)
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,LINETEXT
  • Line Location: TEXTPRNT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+10
Function Call: WRITE
  • Prompt: !,$S(ORY:"CLIN ",1:"INPT ")_DRUGDISP_" (Status="_STATUS_")"
  • Line Location: INPDISP+10
Function Call: WRITE
  • Prompt: !?DIWL,$G(^UTILITY($J,"W",DIWL,WLINE,0))
  • Line Location: INPDISP+22
Function Call: WRITE
  • Prompt: !?IND1,$$BCMALG^PSJUTL2(DFN,ORDNUM)
  • Line Location: INPDISP+26
Function Call: WRITE
  • Prompt: !,"OUTPT "_DRUGNM_" (Status = Pending)"
  • Line Location: OPTDISP+8
Function Call: WRITE
  • Prompt: !?IND1,GMTSPSTP(ORQLN)
  • Line Location: OPTDISP+15
Function Call: WRITE
  • Prompt: !?10,"Renewed from Rx# "_ORIGRX
  • Line Location: OPTDISP+20
Function Call: WRITE
  • Prompt: ?50,"Qty/Days Supply: "_$G(^TMP($J,"GMTSPST1",DFN,+PACKREF,12))_"/"_$G(^TMP($J,"GMTSPST1",DFN,+PACKREF,101))
  • Line Location: OPTDISP+22
Function Call: WRITE
  • Prompt: !?10,"Login Date: "_$$FMTE^XLFDT(+$G(^TMP($J,"GMTSPST1",DFN,+PACKREF,15)),"2D")
  • Line Location: OPTDISP+25
Function Call: WRITE
  • Prompt: ?50,"Qty/Days Supply: "_$G(^TMP($J,"GMTSPST1",DFN,+PACKREF,12))_"/"_$G(^TMP($J,"GMTSPST1",DFN,+PACKREF,101))
  • Line Location: OPTDISP+28
Function Call: WRITE
  • Prompt: ?50,"Refills Ordered: "_$G(^TMP($J,"GMTSPST1",DFN,+PACKREF,13))
  • Line Location: OPTDISP+30
Function Call: WRITE
  • Prompt: !,"OUTPT "_DRUGNM_" (Status = "_STATUS_")"
  • Line Location: OPTDISP+43
Function Call: WRITE
  • Prompt: !?DIWL,$G(^UTILITY($J,"W",DIWL,WLINE,0))
  • Line Location: OPTDISP+49
Function Call: WRITE
  • Prompt: !?10,"Rx# "_$G(^TMP($J,"GMTSPST1",DFN,PACKREF,.01))_" Last Released: "_$$FMTE^XLFDT(LASTREL,"2D"),?50,"Qty/Days Supply: "_$G(^TMP($J,"GMTSPST1",DFN,PACKREF,7))_"/"_$G(^TMP($J,"GMTSPST1",DFN,PACKREF,8))
  • Line Location: OPTDISP+52
Function Call: WRITE
  • Prompt: !?10,"Rx Expiration Date: ",$$FMTE^XLFDT(EXPDT,"2D"),?50,"Refills Remaining: ",REFILLS
  • Line Location: OPTDISP+53
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTDISP+55
Function Call: WRITE
  • Prompt: !,"Remote ",?IND1,DRUGNM
  • Line Location: RDIDISP+2
Function Call: WRITE
  • Prompt: !?DIWL,$G(^UTILITY($J,"W",DIWL,WLINE,0))
  • Line Location: RDIDISP+9
Function Call: WRITE
  • Prompt: !?10,"Last Filled: "_$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,9,0))_" ("_STATUS_" at "_$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,1,0))_") "
  • Line Location: RDIDISP+13
Function Call: WRITE
  • Prompt: !?10,"Rx Expiration Date: ",$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,7,0)),?55,"Days Supply: "_$P($P($G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,6,0)),";",2),"D",2)
  • Line Location: RDIDISP+14
Function Call: WRITE
  • Prompt: !,"Non-VA "_DRUGNM
  • Line Location: NVADISP+4
Function Call: WRITE
  • Prompt: !?DIWL,$G(^UTILITY($J,"W",DIWL,WLINE,0))
  • Line Location: NVADISP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NVADISP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: !,"OPT "_DRUGNM
  • Line Location: OPTFOOT+8
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR(FOOTTXT,74)
  • Line Location: OPTFOOT+13
Function Call: WRITE
  • Prompt: !?IND1,$G(^TMP($J,"GMTSPST1",DFN,PACKREF,"M",SIGLINE,0))
  • Line Location: OPTFOOT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.1 - [#53.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call