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 |  Marked Items  | All
Print Page as PDF
Routine: GMTSPNB

Package: Health Summary

Routine: GMTSPNB


Information

GMTSPNB ; SLC/JER/KER - TIU Brief Progress Notes ; 04/30/2002

Source Information

Source file <GMTSPNB.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Health Summary 2 REGDT4^GMTSU  CKP^GMTSUP  
VA FileMan 2 ^DIC  ^DIWP  
Text Integration Utility 1 (MAIN,VISIT)^TIULAPIC  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Controls branching and execution
HEADER ; Prints header
VARI(GMTSI,GMTSJ) ;Sets variables for display
ADDEND(GMTSI,GMTSJ) ;Addenda date display
WRT ; Writes the component data
FORMAT ; Calls ^DIWP to format Title
EXTIU(DFN,GMTST,GMTS1,GMTS2,GMTSN,GMTSX) ; Extract Patient/Visit VIA TIU

External References

Name Field # of Occurrence
^DIC MAIN+4
^DIWP FORMAT+2
REGDT4^GMTSU VARI+2, ADDEND+5
CKP^GMTSUP HEADER+1, WRT+1, WRT+3
MAIN^TIULAPIC EXTIU+2
VISIT^TIULAPIC EXTIU+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Prog Note DT",?16,"Title",?48,"Author",?64,"Last Corr DT",!!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: PN("DATE"),?16,PN("DOCTYPE"),?48,PN("AUTHOR"),?64,PN("CORRDT"),!
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?16,^UTILITY($J,"W",1,2,0),!
  • Line Location: WRT+3
Routine Call
  • DIC
  • Line Location:
    • MAIN+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("TIU" MAIN+2!, MAIN+5, MAIN+6, MAIN+7, MAIN+9, MAIN+11!, VARI+2, VARI+3, VARI+4, ADDEND+3
, ADDEND+4
^UTILITY($J VARI+5, WRT+3, WRT+4!

Label References

Name Line Occurrences
ADDEND MAIN+9
EXTIU MAIN+5
FORMAT VARI+5
HEADER MAIN+6, WRT+2
VARI MAIN+8
WRT MAIN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN MAIN+5, EXTIU~, EXTIU+1, EXTIU+2
>> DIC MAIN+4*
>> DIC("S" MAIN+4*
>> DIC(0 MAIN+4*
DIWF MAIN+1~, FORMAT+1~, FORMAT+2*
DIWL MAIN+1~, FORMAT+1~, FORMAT+2*
DIWR MAIN+1~, FORMAT+1~, FORMAT+2*
GMTS1 MAIN+5, EXTIU~, EXTIU+1, EXTIU+2
GMTS2 MAIN+5, EXTIU~, EXTIU+1, EXTIU+2
GMTSAD ADDEND+1~, ADDEND+2*, ADDEND+3*, ADDEND+4
>> GMTSCNT VARI+1*
GMTSI MAIN+1~, MAIN+6*, MAIN+7, MAIN+8, MAIN+9, VARI~, VARI+2, VARI+3, VARI+4, ADDEND~
, ADDEND+3, ADDEND+4
GMTSJ MAIN+1~, MAIN+7*, MAIN+8, MAIN+9, VARI~, VARI+2, VARI+3, VARI+4, ADDEND~, ADDEND+3
, ADDEND+4
GMTSN EXTIU~, EXTIU+1, EXTIU+2
>> GMTSNDM MAIN+2
>> GMTSNPG WRT+2
GMTSPV EXTIU+1~*
>> GMTSPXGO EXTIU+1
>> GMTSQIT MAIN+6, MAIN+7, HEADER+1, WRT+1, WRT+3
GMTST EXTIU~, EXTIU+1, EXTIU+2
GMTSX EXTIU~, EXTIU+1, EXTIU+2
MAX MAIN+1~, MAIN+2*, MAIN+5
PN MAIN+1~, WRT+4!
PN("AUTHOR" VARI+3*, WRT+2
PN("CORRDT" VARI+6*, ADDEND+5*, WRT+2
PN("DATE" VARI+2*, WRT+2
PN("DOCTYPE" VARI+4*, VARI+5*, WRT+2, FORMAT+2
TIUFPRIV MAIN+1~, MAIN+3*
TIUSTAT MAIN+1~, MAIN+3*
TIUTYPE MAIN+1~, MAIN+4*, MAIN+5
X MAIN+1~, MAIN+4~*, VARI+2*, ADDEND+4*, ADDEND+5, FORMAT+1~, FORMAT+2*
Y MAIN+4~

Marked Items

Name Field # of Occurrence
$T(VISIT^TIULAPIC EXTIU+1
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 |  Marked Items  | All