Routine: GMTSRAD

Package	Total	Call Graph
Health Summary	3	$$WRAP^GMTSORC (REGDT4,REGDTM4)^GMTSU CKP^GMTSUP
VA Fileman	2	($$GET1,GETS)^DIQ EN^DIQ1
Kernel	1	$$LOW^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; Write column header
GET	; Extract radiology orders	ICR #4333 Status: Active Usage: Controlled Subscription
WRT	; Write record
REG(DA,GMP)	; Registered Order Parent/Differs ; ; If the order has been registered, check to see if the ; procedure ordered is a parent or if the ordered procedure ; differs from the registered procedure. ; ; Input: DA -> ien of the order in file 75.1 ; : GMP -> ien of the ordered procedure
ENRAD	; Entry Point for HS only
REG1(DA,GMDFN,GMDTI,GMCNI,GMP)	; Registered Order Differs ; ; Check if the ordered procedure differs from ; the registered procedure. ; ; Input: DA -> Order (75.1) ien ; GMDFN -> ien of the patient ; GMDTI -> inv. date/time of exam ; GMCNI -> ien of each case ; GMP -> ien of the procedure for the order ; ; Sets: ^TMP("GMTSRAD",$J,inv Req Entered Date/Time, ; order ien,proc ien, ; ; 0)=1 if one of the following conditions exist: ; 1) the procedure ordered is not the procedure ; registered (exam not cancelled) ; 2) the ordered procedure is a parent and the ; descendent procedure(s) have been registered ; (exam not cancelled) ; ; Sets: ^TMP("GMTSRAD",$J,inv Req Entered Date/Time, ; order ien,proc ien,seq #)=Registered Procedure
LOOP	; Loops through ^TMP("GMTSRAD",$J,

External References

Name	Field # of Occurrence
$$GET1^DIQ	REG1+29
GETS^DIQ	REG1+25
EN^DIQ1	GET+6
$$WRAP^GMTSORC	GET+11, REG1+32
REGDT4^GMTSU	WRT+2
REGDTM4^GMTSU	WRT+4
CKP^GMTSUP	HDR+1, HDR+2, WRT+5, WRT+10, WRT+12, WRT+16, WRT+18
$$LOW^XLFSTR	GET+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Req DT",?11,"Status",?22,"Procedure",?48,"Scheduled DT",?66,"Provider",! Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: GMRDT1,?13,GMSTAT Line Location: WRT+7
Function Call: WRITE	Prompt: ?17,"Ord: " Condition for execution: +$G(GMREC(0)) Line Location: WRT+7
Function Call: WRITE	Prompt: ?22,$P(GMPRC,"\|"),?48,GMSDT,?66,GMDOC,! Line Location: WRT+8
Function Call: WRITE	Prompt: ?22,$P(GMPRC,"\|",GMII),! Line Location: WRT+10
Function Call: WRITE	Prompt: ?13,"Actual: " Line Location: WRT+13
Function Call: WRITE	Prompt: ?21,$P(GMPRO,"\|"),! Line Location: WRT+16
Function Call: WRITE	Prompt: ?22,$P(GMPRO,"\|",GMII),! Line Location: WRT+18

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
70.03	GETS^DIQ
^RA(72 - [#72]	GET1^DIQ
^RAO(75.1 - [#75.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RADPT - [#70]	REG+12, REG+18
^RADPT("AO"	REG+8, REG+10, REG+11, REG+14
^RAO(75.1 - [#75.1]	ENRAD+3, GET+2, GET+3
^TMP("GMTSRAD"	ENRAD+1!, ENRAD+4, ENRAD+5!, GET+13, GET+14, LOOP+3, LOOP+5, LOOP+7, LOOP+8, LOOP+9 , WRT+14, WRT+15, REG1+31, REG1+33

Label References

Name	Line Occurrences
GET	ENRAD+3
HDR	LOOP+2, WRT+6, WRT+10, WRT+12, WRT+18
LOOP	ENRAD+4
REG	GET+15
REG1	REG+15, REG+19
WRT	LOOP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	GET+1~, GET+3*, GET+7, GET+9, GET+10, GET+13, GET+14, GET+15, REG~, REG+8 , REG+10, REG+11, REG+14, REG+15, REG+19, REG1~, REG1+31, REG1+33
>> DFN	ENRAD+3, GET+2, GET+3
DIC	GET+1~, GET+5*
DIQ	GET+1~, GET+5*
DIQ(0	GET+5*
DR	GET+1~, GET+5*
GMCNI	REG+9~, REG+14, REG+15, REG+17, REG+18*, REG+19, REG1~, REG1+24
GMCNT	LOOP+1~, LOOP+3, LOOP+5, LOOP+7, LOOP+9
GMDFN	REG+9~, REG+10*, REG+11, REG+12, REG+14, REG+15, REG+18, REG+19, REG1~, REG1+24
GMDOC	GET+1~, GET+10, GET+14, WRT+1~, WRT+4, WRT+8
GMDTI	REG+9~, REG+11*, REG+12, REG+14, REG+15, REG+18, REG+19, REG1~, REG1+24
GMI	GET+1~, GET+2, GET+3, LOOP+1~, LOOP+6, LOOP+7, LOOP+8, LOOP+9, WRT+14, WRT+15
GMIEN	REG1+23~, REG1+24*, REG1+25, REG1+26, REG1+28, REG1+29, REG1+30
GMII	WRT+1~, WRT+9, WRT+10, WRT+17, WRT+18
GMORD	GET+4~, LOOP+1~, LOOP+4, LOOP+5, LOOP+7, LOOP+8, LOOP+9, WRT+14, WRT+15
GMORD(	GET+7, GET+9, GET+10
GMOUT	GET+1~, GET+2, GET+3
GMP	GET+1~, GET+9*, GET+13, GET+14, GET+15, REG~, REG+15, REG+19, REG1~, REG1+30 , REG1+31, REG1+33
GMPRC	GET+1~, GET+9, GET+11, GET+14, WRT+1~, WRT+3*, WRT+8, WRT+9, WRT+10
GMPRO	WRT+1~, WRT+15, WRT+16, WRT+17, WRT+18, REG1+23~, REG1+26, REG1+27, REG1+32*, REG1+33
GMRCNT	WRT+13, WRT+14, WRT+15, REG+9~, REG1+23, REG1+33
GMRDT	GET+1~, GET+7, GET+8, GET+13, GET+14, LOOP+1~, LOOP+3*, LOOP+5, LOOP+7, LOOP+8 , LOOP+9, WRT+14, WRT+15, REG1+31, REG1+33
GMRDT1	WRT+1~, WRT+2*, WRT+7
GMREC	LOOP+1~, LOOP+9*, WRT+2, WRT+3, WRT+4
GMREC(0	LOOP+8*, WRT+7, WRT+11
GMREG	REG+9~, REG1+23~
GMREG(	REG1+26, REG1+28, REG1+29, REG1+30
GMSDT	GET+1~, GET+10, GET+14, WRT+1~, WRT+4, WRT+8
GMSTAT	GET+1~, GET+7, GET+12, GET+14, WRT+1~, WRT+2*, WRT+7
>> GMTSBEG	GET+8
>> GMTSEND	GET+8
>> GMTSNDM	ENRAD+2
>> GMTSNPG	WRT+6, WRT+10, WRT+12, WRT+18
>> GMTSQIT	HDR+1, HDR+2, WRT+5, WRT+10, WRT+12, WRT+16, WRT+18
GMY2	REG+9~, REG+12*, REG+13
MAX	ENRAD+1~, ENRAD+2*, LOOP+3, LOOP+5, LOOP+7
U	GET+14, WRT+2, WRT+3, WRT+4
X	WRT+1~, WRT+2, WRT+4

Customize PDF page

Package: Health Summary

Routine: GMTSRAD

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: