Routine: GMTSVS

Package	Total	Call Graph
Health Summary	2	(MTIM,REGDT4)^GMTSU CKP^GMTSUP
General Medical Record - Vitals	1	EN1^GMVHS
Kernel	1	$$VERSION^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
SFMT	; Extract and format second set of vitals
FFMT	; Extract and format first set of vitals
FLOOP	; Loop through first set of vitals by date
FWRT	; Write first set of vitals by date
ENVS	; Set up for Vitals Extraction Routine
KILLVS	; Kill Variables
FN(X,Y)	; Format Number
SLOOP	; Loop through second set of vitals by date
SECOND	; Second Set of Vitals ; 1 2 3 4 5 6 ; Date^CVP^POx^Cir/Gir^Pain^Control
OUTPAT	; Outpatient Vital Signs Main Control
SWRT	; Write second set of vitals by date
FIRST	; First Set of Vitals ; 1 2 3 4 5 6 7 8 ; Date^Temp()^Pulse^Respt^BP^Height()^Weight()^Control

External References

Name	Field # of Occurrence
MTIM^GMTSU	FFMT+2, SFMT+2
REGDT4^GMTSU	FFMT+1, SFMT+2
CKP^GMTSUP	OUTPAT+13, FIRST+5, FIRST+6, FIRST+7, FIRST+9, FIRST+10, FIRST+11, FWRT+2, SECOND+4, SWRT+2
EN1^GMVHS	OUTPAT+9, ENVS+7
$$VERSION^XPDUTL	FIRST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "* No Outpatient measurements *",!! Line Location: OUTPAT+13
Function Call: WRITE	Prompt: "Measurement DT",?20,"TEMP",?29,"PULSE",?36,"RESP",?45,"BP",?55,"HT",?68,"WT",! Line Location: FIRST+5
Function Call: WRITE	Prompt: ?20,"F(C)",?55,"IN(CM)",?68,"LB(KG)",! Line Location: FIRST+6
Function Call: WRITE	Prompt: ?20,"----",?29,"-----",?36,"----",?45,"--",?55,"------",?68,"------",!! Line Location: FIRST+7
Function Call: WRITE	Prompt: "Measurement DT",?18,"TEMP",?30,"PULSE",?36,"RESP",?41,"BP",?53,"HT",?63,"WT",! Line Location: FIRST+9
Function Call: WRITE	Prompt: ?18,"F(C)",?53,"IN(CM)",?63,"LB(KG)[BMI]",! Line Location: FIRST+10
Function Call: WRITE	Prompt: ?18,"----",?30,"-----",?36,"----",?41,"--",?53,"------",?63,"-----------",!! Line Location: FIRST+11
Function Call: WRITE	Prompt: $P(ARRAY,U,1),?18,$P(ARRAY,U,2),?30,$P(ARRAY,U,3),?37,$P(ARRAY,U,4),?42,$P(ARRAY,U,5),?54,$P(ARRAY,U,6),?67,$P(ARRAY,U,7),! Line Location: FWRT+3
Function Call: WRITE	Prompt: $P(ARRAY,U,1),?18,$P(ARRAY,U,2),?30,$P(ARRAY,U,3),?36,$P(ARRAY,U,4),?41,$P(ARRAY,U,5),?53,$P(ARRAY,U,6),?63,$P(ARRAY,U,7),! Line Location: FWRT+4
Function Call: WRITE	Prompt: !,"Measurement DT",?18,"CVP",?32,"POx",?45,"CG" Line Location: SECOND+5
Function Call: WRITE	Prompt: !,?18,"CMH20(MMHG)",?32,"(L/MIN)(%)",?45,"IN(CM)",?73,"Pain",!,?18,"-----------",?32,"----------",?45,"------",?73,"----",!! Line Location: SECOND+6
Function Call: WRITE	Prompt: !,"Measurement DT",?18,"CVP",?34,"POx",?46,"CG" Line Location: SWRT+4
Function Call: WRITE	Prompt: !,?18,"CMH20(MMHG)",?32,"(L/MIN)(%)",?45,"IN(CM)",?73,"Pain",!,?18,"-----------",?32,"----------",?45,"------",?73,"----",!! Line Location: SWRT+5
Function Call: WRITE	Prompt: $P(ARRAY,U,1),?18,$P(ARRAY,U,2),?32,$P(ARRAY,U,3),?45,$P(ARRAY,U,4),?73,$S($P(ARRAY,U,5)?1A.E:$E($P(ARRAY,U,5),1,7),1:$P(ARRAY,U,5)),! Line Location: SWRT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	OUTPAT+3!, OUTPAT+12, ENVS+2!, ENVS+7, FIRST+12, FLOOP+2, FFMT+1, SECOND+7, SLOOP+1, SFMT+1 , KILLVS+2!

Label References

Name	Line Occurrences
$$FN	FFMT+4, FFMT+5, FFMT+6, SFMT+7, SFMT+8
ENVS	OUTPAT+14
FFMT	FLOOP+2
FIRST	OUTPAT+15, ENVS+8
FLOOP	FIRST+12
FWRT	FIRST+12
KILLVS	OUTPAT+15, ENVS+7, ENVS+8
SECOND	OUTPAT+15, ENVS+8
SFMT	SLOOP+1
SLOOP	SECOND+7
SWRT	SECOND+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	OUTPAT+3!, ENVS+2!, FFMT+2, FFMT+4, FFMT+5, FFMT+6, FFMT+7, FFMT+8, FFMT+9, FFMT+10 , FFMT+11, FFMT+13, FFMT+14, FWRT+1, FWRT+3, FWRT+4, FWRT+6!, SFMT+2, SFMT+4, SFMT+5 , SFMT+6, SFMT+7, SFMT+8, SFMT+9, SWRT+1, SWRT+7, SWRT+9!, KILLVS+1!
CNTR	OUTPAT+2, OUTPAT+6, OUTPAT+14, ENVS+1, ENVS+5, FIRST+3, FWRT+5, SECOND+3, SWRT+8, KILLVS+1!
CNTR("HOLDER"	FIRST+3*, SECOND+3
END	OUTPAT+4, ENVS+3, FIRST+12, FWRT+5, SECOND+3, SECOND+7, SWRT+8*, KILLVS+1!
GMRVSTR	OUTPAT+1~, OUTPAT+5, ENVS+4
GMRVSTR("LT"	OUTPAT+7*, ENVS+2!
GMRVSTR(0	OUTPAT+6, ENVS+5
GMT	FIRST+12, FLOOP+2, FFMT+1, SECOND+7, SLOOP+1, SFMT+1, KILLVS+1!
GMTAB	FFMT+3, FFMT+4, FFMT+5, FFMT+6, FFMT+7, FFMT+8, FFMT+9, FFMT+10, FFMT+11, FFMT+13 , FFMT+14, SFMT+3, SFMT+4, SFMT+5, SFMT+6, SFMT+7, SFMT+8, SFMT+9, KILLVS+1!
>> GMTSBEG	OUTPAT+4, ENVS+3
GMTSCCNT	FIRST+3~, FIRST+12, FIRST+13, FWRT+1, SECOND+3~, SECOND+8, SWRT+6
GMTSCTL	FIRST+3~, FLOOP+1, FFMT+14, SECOND+3~, SLOOP+1, SFMT+9
>> GMTSEND	OUTPAT+4, ENVS+3
>> GMTSNDM	OUTPAT+2, ENVS+1
>> GMTSNPG	SWRT+3
>> GMTSQIT	OUTPAT+13, FIRST+4, FIRST+5, FIRST+6, FIRST+7, FIRST+8, FIRST+9, FIRST+10, FIRST+11, FWRT+2 , SECOND+4, SWRT+2
GMTSVMVR	OUTPAT+15, ENVS+8, FIRST+3*, FIRST+4, FIRST+8, FWRT+3, FWRT+4, KILLVS+1!
GMTSVS	FFMT+1, FFMT+2, FFMT+4, FFMT+5, FFMT+6, FFMT+7, FFMT+8, FFMT+9, FFMT+13, SFMT+1 , SFMT+2, SFMT+4, SFMT+5, SFMT+6, SFMT+7, KILLVS+1!
GMTSVT	FLOOP+1, FLOOP+2, FFMT+1, FFMT+3, SLOOP+1*, SFMT+1, SFMT+3, KILLVS+1!
GMW	FIRST+3~, SECOND+3~
IEN	FLOOP+2, FFMT+1, SLOOP+1, SFMT+1, KILLVS+1!
LF	OUTPAT+4, ENVS+3, KILLVS+1!
T1	OUTPAT+4, OUTPAT+6, ENVS+3, ENVS+5, KILLVS+1!
T2	OUTPAT+4, OUTPAT+6, ENVS+3, ENVS+5, KILLVS+1!
TDT	FFMT+1, FFMT+2, SFMT+2*, KILLVS+1!
TI	FFMT+2, SFMT+2, KILLVS+1!
TN	OUTPAT+4, ENVS+3, KILLVS+1!
U	FFMT+1, FFMT+2, FFMT+4, FFMT+5, FFMT+6, FFMT+7, FFMT+8, FFMT+9, FFMT+10, FFMT+11 , FFMT+13, FFMT+14, FWRT+1, FWRT+3, FWRT+4, SFMT+2, SFMT+4, SFMT+5, SFMT+6, SFMT+7 , SFMT+8, SFMT+9, SWRT+1, SWRT+7
VAL	FN+1~*, FN+2
X	FFMT+1, FFMT+2, SFMT+2, KILLVS+1!, FN~, FN+1, FN+2
Y	FN~, FN+1*, FN+2

Customize PDF page

Package: Health Summary

Routine: GMTSVS

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: