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

Package: Health Summary

Routine: GMTSPST2


Information

GMTSPST2 ;BIR/RMS - MED RECON TOOL #2 (MEDICATION WORKSHEET) ; Oct 10, 2025@12:40

Source Information

Source file <GMTSPST2.m>

Entry Points

Name Comments DBIA/ICR reference
TOOL2
SHOW(DFN) ;
NVA ;
GETOPORD(ORDLIST) ;
IPORD(LISTNODE) ;
CKSTATUS(LISTNODE) ;
GETRXDAT(RXS) ;
DRUGNAME(RXIEN) ;
GETPEND(RXSIEN) ;
GETSTATUS(PSOQ100) ;DM-152
GETTYPE(RXIEN) ;
PSOSITE() ;Determine appropriate 'Outpatient Site' (File #59) Entry
GETDIV(STIN,TYPE) ;
HD ;
STATE ;strip statments from SIG
ADD ; -- Add text X to GMTSPST2()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DRUGSEP
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: @EMPTYLN
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: !,"|","SUPPLY ITEMS:"_$E(BLNKLN,14,PGWIDTH-2)_"|"
  • Line Location: SHOW+11
Function Call: WRITE
  • Prompt: !,DRUGSEP,@IOF
  • Line Location: SHOW+17
Function Call: WRITE
  • Prompt: !,DRUGSEP,@IOF
  • Line Location: SHOW+23
Function Call: WRITE
  • Prompt: !,"|",PDRUG_$E(BLNKLN,$L(PDRUG),PGWIDTH-3)_"|"
  • Line Location: SHOW+26
Function Call: WRITE
  • Prompt: !,"| ",LIST(ITYPE,IDRUG,ISIG),$E(BLNKLN,$L(LIST(ITYPE,IDRUG,ISIG)),PGWIDTH-8),"|"
  • Line Location: SHOW+30
Function Call: WRITE
  • Prompt: !,INSTSEP1,!,INSTSEP2
  • Line Location: SHOW+31
Function Call: WRITE
  • Prompt: !,DRUGSEP
  • Line Location: NVA+3
Function Call: WRITE
  • Prompt: @EMPTYLN
  • Line Location: NVA+4
Function Call: WRITE
  • Prompt: !,"|","NON-VA Medications:"_$E(BLNKLN,20,PGWIDTH-2)_"|"
  • Line Location: NVA+5
Function Call: WRITE
  • Prompt: @EMPTYLN
  • Line Location: NVA+6
Function Call: WRITE
  • Prompt: !,DRUGSEP,@IOF
  • Line Location: NVA+11
Function Call: WRITE
  • Prompt: !,"|",NVADRUG_$E(BLNKLN,$L(NVADRUG),PGWIDTH-3)_"|"
  • Line Location: NVA+12
Function Call: WRITE
  • Prompt: !,INSTSEP1
  • Line Location: NVA+14
Function Call: WRITE
  • Prompt: !!,"Any medication items listed as ""pending"" are those that have just been"
  • Line Location: NVA+17
Function Call: WRITE
  • Prompt: !,"written by your provider(s). These medication orders will be reviewed"
  • Line Location: NVA+18
Function Call: WRITE
  • Prompt: !,"by your pharmacist, prior to the prescription(s) being dispensed. When"
  • Line Location: NVA+19
Function Call: WRITE
  • Prompt: !,"you receive your new prescription(s), by mail or from the pharmacy window,"
  • Line Location: NVA+20
Function Call: WRITE
  • Prompt: !,"be sure to follow the instructions on the prescription label. If you"
  • Line Location: NVA+21
Function Call: WRITE
  • Prompt: !,"have any question about your medication, please call your provider or "
  • Line Location: NVA+22
Function Call: WRITE
  • Prompt: !,"your pharmacist."
  • Line Location: NVA+23
Function Call: WRITE
  • Prompt: !!,"Any medication items listed as ""NON-VA"" are Medications you do not get"
  • Line Location: NVA+24
Function Call: WRITE
  • Prompt: !,"from a VA pharmacy that your provider recorded in your medical record."
  • Line Location: NVA+25
Function Call: WRITE
  • Prompt: !,"This includes medication prescribed by VA or non VA providers, over the"
  • Line Location: NVA+26
Function Call: WRITE
  • Prompt: !,"counter medications, herbals, samples or other medications you take."
  • Line Location: NVA+27
Function Call: WRITE
  • Prompt: !,"Date: ",RPTDATE,?XPOS1,"PATIENT MEDICATION INFORMATION"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?XPOS2,"Page: ",PAGE
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,?XPOS4,"PRINTED BY THE VA MEDICAL CENTER AT: "_$P(^TMP($J,"GMTSSITE",GMTS59,100),U,2)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,?XPOS4,"FOR PRESCRIPTION REFILLS CALL ("_^TMP($J,"GMTSSITE",GMTS59,.03)_") "_^TMP($J,"GMTSSITE",GMTS59,.04)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,"Name: ",$E(VADM(1),1,28)
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: ?30," PHARMACY - "_^TMP($J,"GMTSSITE",GMTS59,.01)_" DIVISION"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: " ("_^TMP($J,"GMTSSITE",GMTS59,.07)_")"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !!,INSTSEP1,!,DRUGHDR1
  • Line Location: HD+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call