Routine: GMTSPN1

Package	Total	Call Graph
Health Summary	1	CKP^GMTSUP
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Health Summary	1	GMTSPN

Entry Points

Name	Comments	DBIA/ICR reference
WAIH	; Addendum to Interdisciplinary Note Header
WP(X,I)	; Writes Problems associated with Note
WAH	; Addendum Header
WDH	; Discharge Summary Header
WT(X,I)	; Write Progress Note Text
WIH	; Interdisciplinary Note Header
ST(X)	; Sub-Titles
WDB(X,I)	; Writes Brief Discharge Summary
AM(X,I)	; Write Amendment
WDBH	; Brief Discharge Summary Header
WH	; Note Header

External References

Name	Field # of Occurrence
CKP^GMTSUP	WH+1, WH+3, WH+5, WH+6, WDH+1, WDH+2, WDH+3, WDH+4, WDH+5, WDH+6 , WDBH+1, WAH+1, WAH+3, WAH+5, WAH+6, WAH+7, WAH+8, ST+5, WIH+1, WIH+3 , WIH+6, WIH+7, WIH+8, WIH+9, WAIH+1, WAIH+3, WAIH+5, WAIH+7, WAIH+8, WAIH+9 , WAIH+10, WAIH+11, WT+4, WT+5, WP+4, WP+6, WP+7, AM+3, AM+4, AM+6 , AM+7, AM+9, AM+11, AM+12, WDB+3
$$UP^XLFSTR	WH+2, WAH+2, WIH+2, WAIH+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WH+1
Function Call: WRITE	Prompt: $G(PN("DATE")),?18,"Local Title: ",$$UP^XLFSTR($G(PN("DOCTYPE"))),! Line Location: WH+2
Function Call: WRITE	Prompt: ?15,"Standard Title: ",PN("VHATYPE"),! Line Location: WH+3
Function Call: WRITE	Prompt: ?20,PN("AUTH"),! Line Location: WH+5
Function Call: WRITE	Prompt: ?19,"Subject: ",PN("SUBJ"),! Line Location: WH+6
Function Call: WRITE	Prompt: ! Line Location: WDH+1
Function Call: WRITE	Prompt: ADMIT,?12,"-",?14,DISCHG,?56,"Status: ",STATUS,! Line Location: WDH+2
Function Call: WRITE	Prompt: ?9,"Local Title: ",PN("VHATYPE"),! Line Location: WDH+3
Function Call: WRITE	Prompt: ?6,"Standard Title: ",PN("VHATYPE"),! Line Location: WDH+4
Function Call: WRITE	Prompt: ?3,"Last Tr Specialty: ",TSPEC,?49,"Dict'd By: ",AUTHOR,! Line Location: WDH+5
Function Call: WRITE	Prompt: ?47,"Approved By: ",ATTNDNG,! Line Location: WDH+6
Function Call: WRITE	Prompt: "Admitted",?11,"Disch'd",?23,"Dictated By",?38,"Approved By",?53,"Cosigned",?64,"Status",!! Line Location: WDBH+1
Function Call: WRITE	Prompt: ! Line Location: WAH+1
Function Call: WRITE	Prompt: PN("DATE"),?18,"Local Title: ",$$UP^XLFSTR(PN("DOCTYPE")),! Line Location: WAH+2
Function Call: WRITE	Prompt: ?15,"Standard Title: ",PN("VHATYPE"),! Line Location: WAH+3
Function Call: WRITE	Prompt: ?23,"Ref: ",$E(ATYPE,1,25),?55,"Dated: ",ADATE,! Line Location: WAH+5
Function Call: WRITE	Prompt: ?20,PN("AUTH"),! Line Location: WAH+6
Function Call: WRITE	Prompt: ?19,"Subject: ",PN("SUBJ"),! Line Location: WAH+7
Function Call: WRITE	Prompt: ?19,"Subject: ",$G(ASUB),! Line Location: WAH+8
Function Call: WRITE	Prompt: !,GMTSB Line Location: ST+5
Function Call: WRITE	Prompt: ! Line Location: ST+5
Function Call: WRITE	Prompt: ! Line Location: WIH+1
Function Call: WRITE	Prompt: PN("DATE"),?18,"Local Title: ",$$UP^XLFSTR(PN("DOCTYPE")) Line Location: WIH+2
Function Call: WRITE	Prompt: !?15,"Standard Title: ",PN("VHATYPE"),! Line Location: WIH+3
Function Call: WRITE	Prompt: !,?23,"Ref: ",$E(PTYPE,1,25),?55,"Dated: ",PDATE Line Location: WIH+6
Function Call: WRITE	Prompt: !?20,PN("AUTH") Line Location: WIH+7
Function Call: WRITE	Prompt: !?19,"Subject: ",PN("SUBJ") Line Location: WIH+8
Function Call: WRITE	Prompt: !?19,"Subject: ",$G(PSUB) Line Location: WIH+9
Function Call: WRITE	Prompt: ! Line Location: WAIH+1
Function Call: WRITE	Prompt: PN("DATE"),?18,"Local Title: ",$$UP^XLFSTR(PN("DOCTYPE")) Line Location: WAIH+2
Function Call: WRITE	Prompt: !?15,"Standard Title: ",PN("VHATYPE"),! Line Location: WAIH+3
Function Call: WRITE	Prompt: !,?23,"Ref: ",$E(ATYPE,1,25),?55,"Dated: ",ADATE Line Location: WAIH+5
Function Call: WRITE	Prompt: !,?23,"Ref: ",$E(PTYPE,1,29),?55,"Dated: ",PDATE Line Location: WAIH+7
Function Call: WRITE	Prompt: !?20,PN("AUTH") Line Location: WAIH+8
Function Call: WRITE	Prompt: !?19,"Subject: ",PN("SUBJ") Line Location: WAIH+9
Function Call: WRITE	Prompt: !?19,"Subject: ",$G(ASUB) Line Location: WAIH+10
Function Call: WRITE	Prompt: !?19,"Subject: ",$G(PSUB) Line Location: WAIH+11
Function Call: WRITE	Prompt: !,$G(@(GMTSD_GMTSK_",0)")) Line Location: WT+4
Function Call: WRITE	Prompt: ! Line Location: WT+5
Function Call: WRITE	Prompt: !,"PROBLEM(S): " Line Location: WP+4
Function Call: WRITE	Prompt: !?15,$G(@(GMTSD_GMTSPR_",0)")) Line Location: WP+6
Function Call: WRITE	Prompt: ! Line Location: WP+7
Function Call: WRITE	Prompt: ! Line Location: AM+3
Function Call: WRITE	Prompt: !,$G(@(GMTSD_"1601,""E"")"))," AMENDMENT FILED:" Line Location: AM+4
Function Call: WRITE	Prompt: ! Line Location: AM+6
Function Call: WRITE	Prompt: !?10 Line Location: AM+7
Function Call: WRITE	Prompt: "_" Line Location: AM+7
Function Call: WRITE	Prompt: !?28," /es/ ",$G(@(GMTSD_"1604,""E"")")) Line Location: AM+9
Function Call: WRITE	Prompt: !?34,$G(@(GMTSD_"1605,""E"")")) Line Location: AM+11
Function Call: WRITE	Prompt: ! Line Location: AM+12
Function Call: WRITE	Prompt: $E($G(ADMIT),1,12),?11,$E($G(DISCHG),1,12),?23,$E($G(AUTHOR),1,14),?38,$E($G(ATTNDNG),1,14),?53,$E($G(COSIG),1,10),?64,$G(STATUS),! Line Location: WDB+4

Label References

Name	Line Occurrences
WDBH	WDB+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADATE	WH+4, WAH+4, WAH+5, WIH+4, WAIH+4, WAIH+5
>> ADMIT	WDH+2, WDB+4
>> ASUB	WH+4, WAH+8, WIH+4, WAIH+10, WAIH+11
>> ATTNDNG	WDH+6, WDB+4
>> ATYPE	WH+4, WAH+4, WAH+5, WIH+4, WAIH+4, WAIH+5
>> AUTHOR	WDH+5, WDB+4
>> COSIG	WDB+4
>> DISCHG	WDH+2, WDB+4
GMTS	ST+1~, ST+2*, ST+4
GMTS1	ST+1~, ST+3, ST+4
GMTS2	ST+1~, ST+4*
GMTSA	AM+1~, WDB+1~
GMTSB	ST+1~, ST+4*, ST+5
>> GMTSCNT	WH+1, WDH+1, WAH+1, WIH+1, WAIH+1
GMTSD	WT+1~, WT+2, WT+3, WT+4, WP+2~, WP+3, WP+5, WP+6, AM+1~, AM+2 , AM+3, AM+4, AM+5, AM+7, AM+8, AM+9, AM+10, AM+11, WDB+1~*, WDB+2
GMTSI	AM+1~, AM+7*, WDB+1~
GMTSIEN	WT+1~, WT+2, WP+2~, WP+3, AM+1~, AM+2, AM+3, WDB+1~, WDB+2
GMTSK	WT+3~*, WT+4
>> GMTSNPG	WDB+3
GMTSPR	WP+5~*, WP+6
>> GMTSQIT	WH+1, WH+3, WH+5, WH+6, WDH+1, WDH+2, WDH+3, WDH+4, WDH+5, WDH+6 , WDBH+1, WAH+1, WAH+3, WAH+4, WAH+5, WAH+6, WAH+7, WAH+8, ST+5, WIH+1 , WIH+3, WIH+5, WIH+6, WIH+7, WIH+8, WIH+9, WAIH+1, WAIH+3, WAIH+4, WAIH+5 , WAIH+6, WAIH+7, WAIH+8, WAIH+9, WAIH+10, WAIH+11, WT+3, WT+4, WT+5, WP+4 , WP+5, WP+6, WP+7, AM+1, AM+3, AM+4, AM+5, AM+6, AM+7, AM+8 , AM+9, AM+10, AM+11, AM+12, WDB+1, WDB+3
>> GMTSREF	WAH+5, WIH+6, WAIH+5, WAIH+7
GMTST	ST+1~, ST+2, ST+3, ST+4
I	WT~, WT+1, WP~, WP+2, AM~, AM+1, WDB~, WDB+1
>> PDATE	WH+4*, WIH+5, WIH+6, WAIH+6, WAIH+7
>> PN("AUTH"	WH+5, WAH+6, WIH+7, WAIH+8
>> PN("DATE"	WH+2, WH+4, WAH+2, WIH+2, WIH+4, WAIH+2
>> PN("DOCTYPE"	WH+2, WH+4, WDH+3, WAH+2, WIH+2, WIH+4, WAIH+2
>> PN("SUBJ"	WH+4, WH+6, WAH+7, WAH+8, WIH+4, WIH+8, WIH+9, WAIH+9, WAIH+10, WAIH+11
>> PN("VHATYPE"	WH+3, WDH+3, WDH+4, WAH+3, WIH+3, WAIH+3
>> PSUB	WH+4*, WIH+9, WAIH+11
>> PTYPE	WH+4*, WIH+5, WIH+6, WAIH+6, WAIH+7
>> STATUS	WDH+2, WDB+4
>> TIUNAM	WP+1
>> TSPEC	WDH+5
X	ST~, ST+1, WT~, WT+1, WP~, WP+2, AM~, AM+1, WDB~, WDB+1

Customize PDF page

Package: Health Summary

Routine: GMTSPN1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: