Routine: GMTSMHPE

Package	Total	Call Graph
Health Summary	2	$$WRAP^GMTSORC CKP^GMTSUP
VA Fileman	1	EN^DIQ1

Entry Points

Name	Comments	DBIA/ICR reference
SHOWOMIT	; Show 'Omits'
MAIN	; Main control	ICR #5727 Status: Pending Usage: Private
SHOWABN	; Show 'Abnormals'
PHYEXAM	; Check for existence of PHYSICAL EXAM data
VS(DFN,GMDATE)	; Show vital signs
OMITABN	; Get PHYSICAL EXAM 'Omits' and 'Abnormals'
SYS(GMHSYST)	; Physical System

External References

Name	Field # of Occurrence
EN^DIQ1	PHYEXAM+8
$$WRAP^GMTSORC	VS+21, SHOWABN+7
CKP^GMTSUP	VS+1, VS+4, VS+14, VS+18, VS+20, VS+22, SHOWOMIT+1, SHOWOMIT+4, SHOWOMIT+6, SHOWABN+1 , SHOWABN+5, SHOWABN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PHYEXAM+15
Function Call: WRITE	Prompt: "VITAL SIGNS DATE: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.01,"E"))]"":^("E"),1:"Unknown") Line Location: VS+2
Function Call: WRITE	Prompt: ?40,"Examiner: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,29,"E"))]"":^("E"),1:"Unknown") Line Location: VS+3
Function Call: WRITE	Prompt: !,"Temp: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.04,"E")):^("E")_"F",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,34,"E")):^("E")_"C",1:"") Line Location: VS+5
Function Call: WRITE	Prompt: ?14,"Pulse: ",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.05,"E")) Line Location: VS+6
Function Call: WRITE	Prompt: ?28,"Resp: ",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.07,"E")) Line Location: VS+7
Function Call: WRITE	Prompt: ?42,"BP: ",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.06,"E")) Line Location: VS+8
Function Call: WRITE	Prompt: ?56,"Ht: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.02,"E")):^("E")_"in",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,32,"E")):^("E")_"cm",1:"") Line Location: VS+9
Function Call: WRITE	Prompt: ?70,"Wt: ",$S($G(^UTILITY("DIQ1",$J,90.01,+GMDATE,.03,"E")):^("E")_"lb",$G(^UTILITY("DIQ1",$J,90.01,+GMDATE,33,"E")):^("E")_"kg",1:""),!! Line Location: VS+10
Function Call: WRITE	Prompt: ! Line Location: VS+11
Function Call: WRITE	Prompt: "Comments:",! Line Location: VS+12
Function Call: WRITE	Prompt: ?4,$G(^MR(+DFN,"PE",+GMDATE,19,GMI,0)),! Line Location: VS+14
Function Call: WRITE	Prompt: ! Line Location: VS+15
Function Call: WRITE	Prompt: "Initial Impression:",! Line Location: VS+16
Function Call: WRITE	Prompt: ?4,$G(^MR(+DFN,"PE",+GMDATE,20,GMI,0)),! Line Location: VS+18
Function Call: WRITE	Prompt: "General Appearance: " Line Location: VS+20
Function Call: WRITE	Prompt: ! Line Location: VS+23
Function Call: WRITE	Prompt: "Omissions: " Line Location: SHOWOMIT+1
Function Call: WRITE	Prompt: " None",!! Line Location: SHOWOMIT+2
Function Call: WRITE	Prompt: !?11 Line Location: SHOWOMIT+4
Function Call: WRITE	Prompt: GMPHY Line Location: SHOWOMIT+5
Function Call: WRITE	Prompt: ", " Condition for execution: +$O(GMDATA("OM",GMYST)) Line Location: SHOWOMIT+5
Function Call: WRITE	Prompt: !! Line Location: SHOWOMIT+6
Function Call: WRITE	Prompt: "Abnormal Findings: " Line Location: SHOWABN+1
Function Call: WRITE	Prompt: " None",!! Line Location: SHOWABN+2
Function Call: WRITE	Prompt: " Abnormal Findings (cont'd):",! Condition for execution: GMTSNPG Line Location: SHOWABN+5
Function Call: WRITE	Prompt: ?(17-$L(GMPHY)),GMPHY,":" Line Location: SHOWABN+5
Function Call: WRITE	Prompt: ! Line Location: SHOWABN+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MR(	MAIN+1, PHYEXAM+2, VS+11, VS+13, VS+14, VS+15, VS+17, VS+18
^UTILITY("DIQ1"	PHYEXAM+4!, PHYEXAM+9, PHYEXAM+16!, VS+2, VS+3, VS+5, VS+6, VS+7, VS+8, VS+9 , VS+10, VS+19, OMITABN+2, OMITABN+4

Label References

Name	Line Occurrences
$$SYS	OMITABN+3, OMITABN+4
OMITABN	PHYEXAM+12
SHOWABN	PHYEXAM+14
SHOWOMIT	PHYEXAM+13
VS	PHYEXAM+11

Naked Globals

Name	Field # of Occurrence
^("E"	VS+2, VS+3, VS+5, VS+9, VS+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PHYEXAM+3~, PHYEXAM+5*
DA(	PHYEXAM+6, PHYEXAM+7
DFN	MAIN+1, PHYEXAM+2, PHYEXAM+5, PHYEXAM+11, VS~, VS+11, VS+13, VS+14, VS+15, VS+17 , VS+18
DIC	PHYEXAM+3~, PHYEXAM+5*
DIQ	PHYEXAM+3~
DIQ(0	PHYEXAM+5*
DR	PHYEXAM+3~, PHYEXAM+5*
DR(	PHYEXAM+6, PHYEXAM+7
GMCKC	MAIN+1~
GMDATA	MAIN+1~, OMITABN+1!
GMDATA("AB"	OMITABN+4*, SHOWABN+2, SHOWABN+3, SHOWABN+4, SHOWABN+6
GMDATA("OM"	OMITABN+3*, SHOWOMIT+2, SHOWOMIT+3, SHOWOMIT+4, SHOWOMIT+5
GMDATE	MAIN+1~, PHYEXAM+1, PHYEXAM+2, PHYEXAM+6, PHYEXAM+11, VS~, VS+2, VS+3, VS+5, VS+6 , VS+7, VS+8, VS+9, VS+10, VS+11, VS+13, VS+14, VS+15, VS+17, VS+18 , VS+19, OMITABN+2, OMITABN+4
GMEND	MAIN+1~, PHYEXAM+1*, PHYEXAM+2
GMFLD	MAIN+1~, OMITABN+1~*, OMITABN+2, OMITABN+3, OMITABN+4
GMHSYST	SYS~, SYS+1*, SYS+2
GMI	MAIN+1~, VS+1~, VS+13, VS+14, VS+16, VS+17, VS+18, VS+22, SHOWABN+1~, SHOWABN+8*
GMIL	MAIN+1~
GMPHY	SHOWOMIT+1~, SHOWOMIT+4, SHOWOMIT+5, SHOWABN+1~, SHOWABN+4, SHOWABN+5
GMTIMES	MAIN+1~, MAIN+4, PHYEXAM+2, PHYEXAM+10
>> GMTS1	MAIN+2
>> GMTS2	MAIN+2
GMTSB	MAIN+1~, MAIN+2*, PHYEXAM+1
GMTSE	MAIN+1~, MAIN+2*, PHYEXAM+1
>> GMTSNDM	MAIN+3
>> GMTSNPG	SHOWABN+5
>> GMTSQIT	PHYEXAM+2, PHYEXAM+11, PHYEXAM+13, PHYEXAM+14, VS+1, VS+4, VS+11, VS+13, VS+14, VS+15 , VS+17, VS+18, VS+20, VS+22, SHOWOMIT+1, SHOWOMIT+3, SHOWOMIT+4, SHOWOMIT+6, SHOWABN+1, SHOWABN+3 , SHOWABN+5, SHOWABN+8
GMTXT	VS+1~, VS+19, VS+21, VS+22, SHOWABN+1~, SHOWABN+6, SHOWABN+7, SHOWABN+8
GMX	MAIN+1~, OMITABN+1~, OMITABN+2*, OMITABN+3, OMITABN+4
GMYST	SHOWOMIT+1~, SHOWOMIT+3, SHOWOMIT+4, SHOWOMIT+5, SHOWABN+1~, SHOWABN+3, SHOWABN+4, SHOWABN+6
IOM	SHOWOMIT+4
MAX	MAIN+1~, MAIN+3*, PHYEXAM+2
U	SYS+1

Customize PDF page

Package: Health Summary

Routine: GMTSMHPE

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: