Routine: GMTSRAS

Package	Total	Call Graph
Health Summary	4	$$WRAP^GMTSORC MAIN^GMTSRAE ($$CPT,$$PROK,REGDT4)^GMTSU CKP^GMTSUP
VA Fileman	2	$$GET1^DIQ ^DIWP

Entry Points

Name	Comments	DBIA/ICR reference
CAS	; Case Number 9
CMD	; CPT Modifiers
PSET	; Output for Printsets (GMPSET=1) ; ; Procedure Modifiers, Procedure Status, ; CPT Code, CPT Modifier, Report Status, ; Technologist ;
CPT	; CPT Code 7
PMD	; Procedure Modifiers
LSET	; Last Set/Case in Printset ; ; Interpreting Staff, Interpreting Resident, Report Status, ; Technologist, Report Text ;
ENSRA	; Controls branching
RPT	; Report Text
TXT(X)	; Report Text Lines
PRO	; Procedure 2
TEC	; Technologist 8
RP(X)	; Radiology Patient
DAT	; Date +1
BL	; Report Blank Lines
EST	; Exam Status 3
STT	; Report Status/Technologist 4/8
WRT	; Writes component data
SSET	; Output for Non-Printsets (single exam) (GMPSET=0) ; ; Procedure Modifiers, Procedure Status, ; CPT Code, CPT Modifiers, Interpreting Staff, ; Interpreting Resident, Report Status, ; Technologist, Report Text ;
INR	; Interpreting Resident 5
INS	; Interpreting Staff 6
RST	; Report Status 4
LOOP	; Loops through ^TMP("RAE",$J,

External References

Name	Field # of Occurrence
$$GET1^DIQ	RP+1
^DIWP	TXT+10
$$WRAP^GMTSORC	PRO+2, CMD+9, TXT+13
MAIN^GMTSRAE	ENSRA+2
$$CPT^GMTSU	CMD+2
$$PROK^GMTSU	TXT+2
REGDT4^GMTSU	DAT+2
CKP^GMTSUP	WRT+2, DAT+3, PRO+3, PRO+5, CAS+2, EST+2, RST+2, INR+2, INS+2, CPT+2 , TEC+2, STT+2, CMD+10, CMD+13, PMD+1, PMD+3, TXT+6, TXT+14, TXT+15, TXT+18 , BL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?12,$P(GMTSA,"\|"),! Line Location: PRO+3
Function Call: WRITE	Prompt: ?12,"Exam Case Number:",?33,GMTSA,! Line Location: CAS+3
Function Call: WRITE	Prompt: ?12,"Exam Status:",?33,GMTSA,! Line Location: EST+3
Function Call: WRITE	Prompt: ?12,"Rpt Status: ",GMTSA,! Line Location: RST+3
Function Call: WRITE	Prompt: ?12,"Interpreting Res.:",?33,GMTSA,! Line Location: INR+3
Function Call: WRITE	Prompt: ?12,"Interpreting Staff:",?33,GMTSA,! Line Location: INS+3
Function Call: WRITE	Prompt: ?12,"CPT Code:",?25,GMTSA,! Line Location: CPT+3
Function Call: WRITE	Prompt: ?12," Technologist: ",GMTSA,! Line Location: TEC+3
Function Call: WRITE	Prompt: ?12,"Rpt Status: ",$E($G(GMTSA),1,18) Line Location: STT+3
Function Call: WRITE	Prompt: ?45," Technologist: ",$G(GMTSB),! Line Location: STT+3
Function Call: WRITE	Prompt: ?12,"CPT Modifier:" Condition for execution: GMTSCNT=1 Line Location: CMD+11
Function Call: WRITE	Prompt: ?28,$P(GMTSCT,"\|"),! Line Location: CMD+11
Function Call: WRITE	Prompt: ?33,^TMP("RAE",$J,GMTSIDT,GMTSPN,"M",GMI),! Line Location: PMD+4
Function Call: WRITE	Prompt: ?GMTSIND,$S(GMTST="S":"Reason for Study: ",GMTST="H":"History: ",GMTST="A":"Additional History: ",GMTST="R":"Report: ",GMTST="I":"Impression: ",GMTST="D":"DX Codes: ",1:"Text:"),! Line Location: TXT+7
Function Call: WRITE	Prompt: ?(GMTSIND+2),$P(X,"\|",1),! Line Location: TXT+14
Function Call: WRITE	Prompt: ?(GMTSIND+2),$G(^UTILITY($J,"W",0,GMTSI,0)),! Line Location: TXT+18
Function Call: WRITE	Prompt: ! Line Location: BL+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RADPT - [#70]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("RAE"	ENSRA+2, ENSRA+3!, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, WRT+1 , SSET+7, PSET+6, PSET+7, LSET+5, DAT+4, CMD+4, CMD+5, CMD+6, PMD+1, PMD+2 , PMD+4, TXT+3, TXT+5, TXT+9, TXT+10, TXT+12, TXT+13
^UTILITY($J	TXT+4!, TXT+16, TXT+17, TXT+18, TXT+19!

Label References

Name	Line Occurrences
$$RP	ENSRA+1
BL	LOOP+7, LOOP+8, LSET+5, TXT+5
CAS	SSET+7, LSET+5
CMD	SSET+7, PSET+6
CPT	SSET+7, PSET+6
DAT	WRT+3
EST	SSET+7, LSET+5
INR	SSET+7, LSET+5
INS	SSET+7, LSET+5
LOOP	ENSRA+3
LSET	PSET+7
PMD	SSET+7, PSET+6
PRO	WRT+3
PSET	WRT+3
RPT	SSET+7, LSET+5
SSET	WRT+3
STT	SSET+7, LSET+5
TXT	RPT+1
WRT	LOOP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	ENSRA+1
DIWF	TXT+4~*
DIWL	TXT+4~*
DIWR	TXT+4~*
GMDATA	ENSRA+2~, WRT+1*
GMI	WRT+1~, PMD+2*, PMD+4
GMLN	LOOP+1~
GMPSET	LOOP+1~, LOOP+3*, WRT+3
>> GMPXCMOD	CMD+2
GMTMP	WRT+1~*, DAT+1, DAT+2, PRO+1, CAS+1, EST+1, RST+1, INR+1, INS+1, CPT+1 , TEC+1, STT+1, CMD+3, PMD+1
GMTSA	PRO+1~, PRO+2, PRO+3, PRO+4, PRO+6, CAS+1~, CAS+3, EST+1~, EST+3, RST+1~* , RST+3, INR+1~, INR+3, INS+1~, INS+3, CPT+1~, CPT+3, TEC+1~, TEC+3, STT+1~* , STT+2, STT+3
GMTSB	PRO+1~, PRO+4, PRO+6, STT+1~, STT+2, STT+3
GMTSC	CMD+3~, CMD+4, CMD+5, CMD+6
GMTSCM	CMD+3~, CMD+5*, CMD+7
GMTSCNT	CMD+3~, CMD+8, CMD+11
GMTSCPTM	CMD+1~, CMD+2*, CMD+3
GMTSCT	CMD+3~, CMD+6, CMD+7, CMD+9*, CMD+11, CMD+12, CMD+13
GMTSDT	DAT+2~*, DAT+3, DAT+4
>> GMTSEGN	CMD+2
GMTSI	CMD+3~, CMD+12, CMD+13, TXT+4~, TXT+9, TXT+10, TXT+12, TXT+13, TXT+17*, TXT+18
GMTSIDT	LOOP+1~, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, WRT+1, SSET+7 , PSET+6, PSET+7, LSET+5, DAT+1, DAT+4, CMD+4, CMD+5, CMD+6, PMD+1, PMD+2 , PMD+4, TXT+3, TXT+5, TXT+9, TXT+10, TXT+12, TXT+13
GMTSII	TXT+4~, TXT+14*, TXT+15
GMTSIND	TXT+4~*, TXT+7, TXT+13, TXT+14, TXT+15, TXT+18
GMTSL	RPT+1~*
GMTSORD	LOOP+1~, LOOP+6*
GMTSPN	LOOP+1~, LOOP+5, LOOP+6, LOOP+7, WRT+1, SSET+7, PSET+6, PSET+7, LSET+5~, DAT+1 , DAT+4, CMD+4, CMD+5, CMD+6, PMD+1, PMD+2, PMD+4, TXT+3, TXT+5, TXT+9 , TXT+10, TXT+12, TXT+13
>> GMTSQIT	LOOP+2, LOOP+7, LOOP+8, WRT+1, WRT+2, DAT+3, PRO+3, PRO+4, PRO+5, CAS+2 , EST+2, RST+2, INR+2, INS+2, CPT+2, TEC+2, STT+2, CMD+10, CMD+12, CMD+13 , PMD+1, PMD+3, TXT+6, TXT+9, TXT+12, TXT+14, TXT+15, TXT+17, TXT+18, BL+1
GMTST	TXT+1~*, TXT+2, TXT+3, TXT+5, TXT+7, TXT+8, TXT+9, TXT+10, TXT+11, TXT+12 , TXT+13
GMW	LOOP+1~
GMXSET	LOOP+1~, LOOP+4*, DAT+1, DAT+3, DAT+4
X	WRT+1~, DAT+2~, TXT~, TXT+1, TXT+10, TXT+13, TXT+14, TXT+15, RP~, RP+1
Y	RP+1~*

Customize PDF page

Package: Health Summary

Routine: GMTSRAS

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: