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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMTSPST2

Package: Health Summary

Routine: GMTSPST2


Information

GMTSPST2 ;BIR/RMS - MED RECON TOOL #2 (MEDICATION WORKSHEET) ;05/23/17 20:53

Source Information

Source file <GMTSPST2.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Order Entry Results Reporting 5 ($$PTR,GETDLG,GETORDER)^ORCD  $$VALUE^ORCSAVE2  TEXT^ORQ12  COVER^ORWPS  $$OI^ORX8  
Outpatient Pharmacy 2 RX^PSO52API  PSS^PSO59  
Registration 2 (4,KVA)^VADPT  $$SITE^VASITE  
VA FileMan 2 $$GET1^DIQ  ^DIWP  
Health Summary 1 CKP^GMTSUP  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
National Drug File 1 $$PROD2^PSNAPIS  
Pharmacy Data Management 1 (DATA,NDF)^PSS50  

Entry Points

Name Comments DBIA/ICR reference
TOOL2
SHOW(DFN) ;
NVA ;
GETOPORD(ORDLIST) ;
IPORD(LISTNODE) ;
CKSTATUS(LISTNODE) ;
GETRXDAT(RXS) ;
DRUGNAME(RXIEN) ;
GETPEND(RXSIEN) ;
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()

External References

Name Field # of Occurrence
$$GET1^DIQ PSOSITE+6
^DIWP GETRXDAT+15
CKP^GMTSUP TOOL2+27, NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, NVA+24, NVA+25
, NVA+26, NVA+27
$$PTR^ORCD STATE+2
GETDLG^ORCD STATE+2
GETORDER^ORCD STATE+2
$$VALUE^ORCSAVE2 GETPEND+4
TEXT^ORQ12 GETPEND+8
COVER^ORWPS SHOW+2
$$OI^ORX8 GETPEND+3
$$PROD2^PSNAPIS DRUGNAME+9
RX^PSO52API DRUGNAME+2
PSS^PSO59 PSOSITE+2, HD+2
DATA^PSS50 GETPEND+6, GETTYPE+4
NDF^PSS50 DRUGNAME+6
4^VADPT HD+1
KVA^VADPT HD+12
$$SITE^VASITE PSOSITE+8
$$FMTE^XLFDT TOOL2+9, GETRXDAT+22
$$NOW^XLFDT TOOL2+9

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
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("ORWORD" STATE+6, STATE+9
^TMP($J GETRXDAT+13, GETRXDAT+14, GETRXDAT+21, GETRXDAT+22, GETRXDAT+23!, DRUGNAME+3, DRUGNAME+4, DRUGNAME+5, DRUGNAME+7, DRUGNAME+8
, DRUGNAME+10!, GETPEND+7, GETPEND+15!, GETTYPE+3, GETTYPE+5, GETTYPE+6!, PSOSITE+1!, PSOSITE+9, GETDIV+4, GETDIV+5
, GETDIV+6, HD+6, HD+7, HD+9, HD+10, HD+13!
^UTILITY($J GETRXDAT+11!, GETRXDAT+16, GETRXDAT+17, GETRXDAT+23!

Label References

Name Line Occurrences
$$CKSTATUS GETOPORD+5
$$DRUGNAME GETRXDAT+7
$$GETDIV PSOSITE+7, PSOSITE+8
$$GETTYPE GETRXDAT+9
$$IPORD GETOPORD+4
$$PSOSITE TOOL2+6
ADD STATE+9
GETOPORD SHOW+3
GETPEND GETRXDAT+4
GETRXDAT SHOW+4
HD TOOL2+28, SHOW+17, SHOW+23, NVA+11
SHOW TOOL2+28
STATE GETPEND+10

Naked Globals

Name Field # of Occurrence
^(0 STATE+6, STATE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A GETPEND+1~, GETPEND+9*, GETPEND+10, GETPEND+11, GETPEND+12
BLNKLN TOOL2+2~, TOOL2+13*, TOOL2+14, TOOL2+17, TOOL2+19, TOOL2+25, SHOW+11, SHOW+26, SHOW+30, NVA+5
, NVA+12
CLASS GETTYPE+1~, GETTYPE+5*, GETTYPE+7, GETTYPE+8
DAYSEP TOOL2~, TOOL2+15*, TOOL2+18, TOOL2+24
DFN TOOL2+28, SHOW~, SHOW+2, GETRXDAT+13, GETRXDAT+14, GETRXDAT+21, GETRXDAT+22, DRUGNAME+2, DRUGNAME+3, DRUGNAME+4
, DRUGNAME+5, GETTYPE+3
DIV GETDIV+2~, GETDIV+3*, GETDIV+4*, GETDIV+5, GETDIV+6
DIWF GETRXDAT+10~, GETRXDAT+12*
DIWL GETRXDAT+10~, GETRXDAT+12*
DLG STATE+1~, STATE+2*
DRUG GETTYPE+1~, GETTYPE+3*, GETTYPE+4, GETTYPE+5
DRUGHDR1 TOOL2~, TOOL2+16*, TOOL2+17*, HD+11
DRUGHDR2 TOOL2~, TOOL2+18*, TOOL2+19*
DRUGIEN DRUGNAME+1~, DRUGNAME+4*, DRUGNAME+6, DRUGNAME+7, DRUGNAME+8
DRUGNAME GETRXDAT+1~, GETRXDAT+7*, GETRXDAT+8*, GETRXDAT+18, GETRXDAT+20, GETRXDAT+22
DRUGND1 DRUGNAME+1~, DRUGNAME+7*, DRUGNAME+9
DRUGND3 DRUGNAME+1~, DRUGNAME+8*, DRUGNAME+9
DRUGNM DRUGNAME+1~, DRUGNAME+5*, DRUGNAME+12
DRUGSEP TOOL2~, TOOL2+20*, TOOL2+21*, SHOW+9, SHOW+17, SHOW+23, SHOW+24, NVA+3, NVA+11
DRUGVAPN DRUGNAME+1~, DRUGNAME+9*, DRUGNAME+11
DUZ(2 PSOSITE+5, PSOSITE+6
EMPTYLN TOOL2+1~, TOOL2+14*, SHOW+10, SHOW+24, NVA+4, NVA+6
FSIG GETRXDAT+1~, GETRXDAT+6!, GETRXDAT+18
FSIG( GETRXDAT+17*
GETDIV GETDIV+2~, GETDIV+3*, GETDIV+5*, GETDIV+6*, GETDIV+7
GMTS59 TOOL2+3~, TOOL2+6*, PSOSITE+3~, PSOSITE+4*, PSOSITE+7*, PSOSITE+8*, PSOSITE+9*, PSOSITE+10, HD+2, HD+6
, HD+7, HD+9, HD+10
GMTSPST2 GETPEND+1~, GETPEND+8, STATE+6*, STATE+8*, ADD+1, ADD+2*, ADD+3, ADD+4, ADD+5*, ADD+6*
GMTSPST2( GETPEND+11, GETPEND+14, STATE+4!, STATE+6*, ADD+1, ADD+2*, ADD+3*, ADD+4*, ADD+5*
GMTSPST2(" " STATE+4
GMTSPST2(":" GETPEND+11, GETPEND+14
GMTSPST2(2 GETPEND+13
>> GMTSQIT TOOL2+27, NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, NVA+24, NVA+25
, NVA+26, NVA+27
I ADD+1~, ADD+4*
IDRUG TOOL2+2~, SHOW+18*, SHOW+19*, SHOW+21, SHOW+25, SHOW+29, SHOW+30
INSTSEP1 TOOL2~, TOOL2+22*, TOOL2+23*, SHOW+31, NVA+14, HD+11
INSTSEP2 TOOL2~, TOOL2+24*, TOOL2+25*, SHOW+31
IOF SHOW+17, SHOW+23, NVA+11
IOM TOOL2+7
IOSL TOOL2+7
ISIG TOOL2+2~, SHOW+28*, SHOW+29*, SHOW+30
ITYPE TOOL2+2~, SHOW+6*, SHOW+7*, SHOW+8, SHOW+12, SHOW+13, SHOW+15, SHOW+19, SHOW+21, SHOW+29
, SHOW+30
J STATE+1~, STATE+5*, STATE+6*, STATE+8*, STATE+9*
K STATE+1~, STATE+6*, STATE+9*
KILLORD GETOPORD+1~, GETOPORD+4*, GETOPORD+5*, GETOPORD+6
LIST SHOW+1~, SHOW+2, SHOW+3, SHOW+4
LIST( SHOW+7, SHOW+15, SHOW+19, SHOW+21, SHOW+29, SHOW+30
LISTIEN GETOPORD+1~, GETOPORD+2*, GETOPORD+3*, GETOPORD+4, GETOPORD+5, GETOPORD+6
LISTNODE IPORD~, IPORD+3, CKSTATUS~, CKSTATUS+3, CKSTATUS+4
NVA TOOL2+3~, SHOW+1~, NVA+1
NVA( NVA+9
NVACNT NVA+2~, NVA+7*, NVA+10*, NVA+11, NVA+13!
NVADRUG NVA+2~, NVA+8*, NVA+9*, NVA+12, NVA+13!
ORDIALOG STATE+1~
ORDIALOG("B" STATE+3, STATE+7
ORDLIST GETOPORD~
ORDLIST( GETOPORD+3, GETOPORD+4, GETOPORD+5, GETOPORD+6!
ORIFN GETPEND+1~, GETPEND+9*, STATE+2
PAGE TOOL2+3~, TOOL2+26*, HD+4, HD+5*
PDRUG TOOL2+2~, SHOW+25*, SHOW+26
PGLENGTH TOOL2+3~, TOOL2+7*, SHOW+17, SHOW+23, NVA+11
PGWIDTH TOOL2+3~, TOOL2+7*, TOOL2+8, TOOL2+10, TOOL2+11, TOOL2+12, TOOL2+13, TOOL2+14, TOOL2+17, TOOL2+19
, TOOL2+20, TOOL2+22, TOOL2+25, SHOW+11, SHOW+26, SHOW+30, NVA+5, NVA+12, GETRXDAT+12
PKG IPORD+1~, IPORD+3*, IPORD+4
PRETYPE TOOL2+1~, SHOW+5*, SHOW+8, SHOW+12*
PSOQ100 GETPEND+1~, GETPEND+2*, GETPEND+3, GETPEND+4, GETPEND+8
PSOQDIND GETPEND+1~, GETPEND+4*, GETPEND+5, GETPEND+6, GETPEND+7
PSOQPDN GETPEND+1~, GETPEND+3*, GETPEND+7*, GETPEND+11, GETPEND+13, GETPEND+14
PSOQPEND TOOL2+1~, NVA+16, GETRXDAT+4*
PSOQSCT GETPEND+1~, GETPEND+11*, GETPEND+14*, STATE+4*
PSOQSUB GETRXDAT+19~, GETRXDAT+20*, GETRXDAT+22
PTR STATE+1~, STATE+3*, STATE+6, STATE+7*, STATE+9
REFILLS GETRXDAT+19~, GETRXDAT+21*, GETRXDAT+22, GETRXDAT+23!
RETURN IPORD+1~, IPORD+2*, IPORD+4*, IPORD+8, CKSTATUS+1~, CKSTATUS+2*, CKSTATUS+3*, CKSTATUS+4*, CKSTATUS+5, GETTYPE+1~
, GETTYPE+2*, GETTYPE+7*, GETTYPE+8*, GETTYPE+9
RPTDATE TOOL2+5~, TOOL2+9*, HD+3
RXIEN TOOL2+4~, CKSTATUS+1~, GETRXDAT+5*, GETRXDAT+7, GETRXDAT+9, GETRXDAT+13, GETRXDAT+14, GETRXDAT+21, GETRXDAT+22, DRUGNAME~
, DRUGNAME+2, DRUGNAME+3, DRUGNAME+4, DRUGNAME+5, GETTYPE~, GETTYPE+3
RXS GETRXDAT~
RXS( GETRXDAT+3, GETRXDAT+4, GETRXDAT+5, GETRXDAT+8, GETRXDAT+18*, GETRXDAT+20, GETRXDAT+22*, GETPEND+2, GETPEND+9
RXS("D" GETPEND+11*, GETPEND+13*, GETPEND+14*
RXSIEN GETRXDAT+1~, GETRXDAT+2*, GETRXDAT+3*, GETRXDAT+4, GETRXDAT+5, GETRXDAT+8, GETPEND~, GETPEND+2, GETPEND+9
RXTYPE GETRXDAT+1~, GETRXDAT+9*, GETRXDAT+18, GETRXDAT+20, GETRXDAT+22
SIGCNT TOOL2+4~, SHOW+20*, SHOW+22*, SHOW+23
SIGLINE GETRXDAT+10~, GETRXDAT+13*, GETRXDAT+14, GETRXDAT+16*, GETRXDAT+17
SIGPOS TOOL2+4~, SHOW+20*, SHOW+21*
STANUM PSOSITE+3~, PSOSITE+6*, PSOSITE+7
START STATE+1~
STIN GETDIV~, GETDIV+1, GETDIV+5, GETDIV+6
SUPCNT TOOL2+5~, SHOW+14*, SHOW+16*, SHOW+17
SUPDRUG TOOL2+5~, SHOW+14*, SHOW+15*
SUPTYPE TOOL2+1~, SHOW+5*, SHOW+13, SHOW+14*, SHOW+24, SHOW+27
TYPE GETDIV~, GETDIV+5, GETDIV+6
U GETRXDAT+8, DRUGNAME+5, DRUGNAME+9, GETPEND+2, GETPEND+3, HD+6
VADM TOOL2+5~
VADM(1 HD+8
X GETRXDAT+10~, GETRXDAT+14*, STATE+9*, ADD+2*, ADD+3, ADD+4
XPOS1 TOOL2+4~, TOOL2+10*, HD+3
XPOS2 TOOL2+4~, TOOL2+11*, HD+4
XPOS4 TOOL2+4~, TOOL2+12*, HD+6, HD+7
Y ADD+1~*, ADD+2*, ADD+3, ADD+4*, ADD+5*, ADD+6*
Z ADD+1~, ADD+4*, ADD+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All