Routine: GMTSLOAD

Information

GMTSLOAD ;SLC/JER - Loads Ad Hoc Summary Type ; 02/27/2002

Source Information

Source file <GMTSLOAD.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Health Summary	2	(PURGE,RNMBR)^GMTSRN $$TYPE^GMTSULT
Kernel	1	(BMES,MES)^XPDUTL
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Health Summary	5	GMTS IRM/ADPAC ADHOC LOAD GMTSP13 GMTSP8 GMTSPOST GMTSRM
Problem List	1	GMPLIPST

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	; Loads GMTSEG(GMI)=Sequence ^ Component ^ Occurrence Limit ^ ; Time Limit ^^ Hospital Location ^ ICD Text Displayed ^ ; Provider Narratived Displayed ^ CPT Modifier Displayed ; ; Needs GMTJ Pointer to Component 142.1 ; GMTSTYP Pointer to Type 142 ; GMI Pointer to Structure 142.01 in GMTSEG(GMI)
ENPOST	; Entry point from Post-init ; Call with INCLUDE=0 to exclude DISABLED components ; Call with INCLUDE=1 to include DISABLED components	ICR #288 Status: Active Usage: Private ICR #337 Status: Active Usage: Private ICR #1516 Status: Active Usage: Private ICR #2647 Status: Active Usage: Private
NOFILE	; GMTS HS ADHOC OPTION Summary Type is missing
SETSEG	; Set Segment ; GMTSEG(GMI)
MAIN	; Controls branching and execution
SETSEL	; Sets up selection items ; GMTSEG(GMI,GMSEL)=Selection item

External References

Name	Field # of Occurrence
^DIR	MAIN+5, MAIN+9
PURGE^GMTSRN	ENPOST+10
RNMBR^GMTSRN	ENPOST+12
$$TYPE^GMTSULT	ENPOST+5
BMES^XPDUTL	ENPOST+11, NOFILE+2
MES^XPDUTL	ENPOST+13, NOFILE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option rebuilds the Ad Hoc Health Summary to include ALL components",! Line Location: MAIN+2
Function Call: WRITE	Prompt: "alphabetized by name. If you wish, you may exclude DISABLED components.",! Line Location: MAIN+3
Function Call: WRITE	Prompt: ! Line Location: MAIN+5
Routine Call	DIR Line Location: MAIN+5 MAIN+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	ENPOST+8, ENPOST+10, LOAD+10, LOAD+12, LOAD+14, LOAD+16, LOAD+18, LOAD+20, LOAD+22, SETSEL+3
^GMT(142.1 - [#142.1]	ENPOST+9, LOAD+9, LOAD+12, LOAD+14, LOAD+16, LOAD+18, LOAD+20, LOAD+22, LOAD+25, LOAD+26 , LOAD+27, LOAD+28, LOAD+29, LOAD+30, SETSEG+2

Label References

Name	Line Occurrences
LOAD	ENPOST+9
NOFILE	ENPOST+6
SETSEG	LOAD+31
SETSEL	SETSEG+5

Naked Globals

Name	Field # of Occurrence
^(	ENPOST+9, SETSEL+3
^(0	ENPOST+8*, SETSEG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COMP	LOAD+8~, LOAD+12, LOAD+13, LOAD+14, LOAD+15, LOAD+16, LOAD+17, LOAD+18, LOAD+19, LOAD+20* , LOAD+21, LOAD+22*, LOAD+23
CPTMOD	LOAD+8~, LOAD+23, LOAD+30, SETSEG+4
DIC	MAIN+1~, ENPOST+5*!
DIC(0	ENPOST+5*
DIR	MAIN+1~
DIR("?"	MAIN+4, MAIN+7
DIR("A"	MAIN+4, MAIN+8
DIR("B"	MAIN+4, MAIN+8
DIR(0	MAIN+4*
DIROUT	MAIN+1~, MAIN+6, MAIN+10
DIRUT	MAIN+1~, MAIN+6, MAIN+10
DLAYGO	ENPOST+3~, ENPOST+4*
GMI	MAIN+1~, ENPOST+9, SETSEG+2, SETSEG+4, SETSEL+3
GMITEM	SETSEL+2~, SETSEL+3*
GMSEL	SETSEL+2~, SETSEL+3*
GMSEQ	LOAD+8~, LOAD+10*, LOAD+11, LOAD+12, LOAD+14, LOAD+16, LOAD+18, LOAD+20, LOAD+22, SETSEG+5 , SETSEL+3
GMTJ	MAIN+1~, ENPOST+9*, LOAD+9, LOAD+10, LOAD+12, LOAD+14, LOAD+16, LOAD+18, LOAD+20, LOAD+22 , LOAD+25, LOAD+26, LOAD+27, LOAD+28, LOAD+29, LOAD+30, SETSEG+2, SETSEG+4
GMTNM	MAIN+1~, ENPOST+9*
GMTSEG	MAIN+1~
GMTSEG(	SETSEG+4, SETSEL+3
GMTSFUNC	MAIN+1~
GMTSI	MAIN+1~, ENPOST+10*
GMTSIFN	MAIN+1~, ENPOST+7*, ENPOST+8, ENPOST+10
GMTSTYP	ENPOST+3~, ENPOST+7*, LOAD+10, LOAD+12, LOAD+14, LOAD+16, LOAD+18, LOAD+20, LOAD+22, SETSEL+3
GMTSWHL	MAIN+1~
GMW	MAIN+1~, SETSEL+2~
HOSPLOC	LOAD+8~, LOAD+17, LOAD+27, SETSEG+4
ICDTEXT	LOAD+8~, LOAD+19, LOAD+28, SETSEG+4
INCLUDE	MAIN+1~, MAIN+11*, SETSEG+3
NEWREC	ENPOST+3~, ENPOST+7*, ENPOST+10
OCC	LOAD+8~, LOAD+13, LOAD+25, SETSEG+4
OFF	SETSEG+2~*, SETSEG+3
PROVNARR	LOAD+8~, LOAD+21, LOAD+29, SETSEG+4
S2	MAIN+1~, SETSEL+2~
TIME	LOAD+8~, LOAD+15, LOAD+26, SETSEG+4
TYPE	LOAD+8~, LOAD+12, LOAD+13, LOAD+14, LOAD+15, LOAD+16, LOAD+17, LOAD+18, LOAD+19, LOAD+20* , LOAD+21, LOAD+22*, LOAD+23
U	ENPOST+7, LOAD+12, LOAD+14, LOAD+16, LOAD+18, LOAD+20, LOAD+22, LOAD+25, LOAD+26, LOAD+27 , LOAD+28, LOAD+29, LOAD+30, SETSEG+2, SETSEG+4
X	MAIN+1~, ENPOST+5*
Y	MAIN+1~, MAIN+5, MAIN+11, ENPOST+5*, ENPOST+6, ENPOST+7

Customize PDF page

Package: Health Summary

Routine: GMTSLOAD

Call Graph Total: 4

Caller Graph Total: 6