Routine: GMTSROB

Information

GMTSROB ; SLC/JER,KER - Surgery Reports Brief ; 06/24/2002

Source file <GMTSROB.m>

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
VA Fileman	2	$$GET1^DIQ ^DIWP

Package	Total	Caller Graph
Order Entry Results Reporting	2	ORDV04A ORWSR

Name	Comments	DBIA/ICR reference
SORT	; Sort surgeries by inverted date
STATUS	; case status	ICR #3969 Status: Active Usage: Controlled Subscription
NONORST	;Obtains status for NON-OR procedures.
ENSR	; Entry point for component
FORMAT	; format surgery name
WRT	; Write surgical case record

Name	Field # of Occurrence
$$GET1^DIQ	SORT+1, WRT+4, WRT+8, WRT+14, STATUS+1, STATUS+2, STATUS+3, STATUS+4, STATUS+5, STATUS+6 , NONORST+2, NONORST+3
^DIWP	FORMAT+2
REGDT4^GMTSU	WRT+4
CKP^GMTSUP	WRT+5, WRT+9, WRT+10, WRT+13

Name	Line Occurrences
Function Call: WRITE	Prompt: GMDT Line Location: WRT+5
Function Call: WRITE	Prompt: ?21,^(0) Condition for execution: $D(^UTILITY($J,"W",1,1,0)) Line Location: WRT+9
Function Call: WRITE	Prompt: ?61,STATUS,! Line Location: WRT+9
Function Call: WRITE	Prompt: ?21,^UTILITY($J,"W",1,GMI,0),! Line Location: WRT+10
Function Call: WRITE	Prompt: ?21,X(GMI),! Line Location: WRT+15

FileNo	Call Tags
^SRF - [#130]	GET1^DIQ
130.16	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	WRT+13, STATUS+2
^SRF("B"	ENSR+1, ENSR+3
^UTILITY($J	WRT+1!, WRT+9, WRT+10, WRT+11!

Name	Field # of Occurrence
^(0	WRT+9

Name	Field # of Occurrence
>> DFN	ENSR+1, ENSR+3
DIWF	FORMAT+1~, FORMAT+2*
DIWL	FORMAT+1~, FORMAT+2*
DIWR	FORMAT+1~, FORMAT+2*
GMCOUNT	ENSR+1~, ENSR+5, WRT+2
GMDT	SORT+1~, SORT+2, SORT+3, SORT+4, WRT+1~, WRT+4*, WRT+5
GMI	WRT+1~, WRT+10, WRT+13, WRT+14, WRT+15
GMIDT	ENSR+1~, ENSR+5*
GMN	ENSR+1~, ENSR+3, ENSR+5, SORT+1, SORT+4, WRT+4, WRT+8, WRT+13, WRT+14, STATUS+1 , STATUS+2, STATUS+3, STATUS+4, STATUS+5, STATUS+6, NONORST+2, NONORST+3
>> GMTSBEG	SORT+2
>> GMTSEND	SORT+2
>> GMTSNDM	ENSR+2
>> GMTSQIT	WRT+5, WRT+9, WRT+10, WRT+13
MAX	ENSR+1~, ENSR+2*, ENSR+5
STATUS	WRT+1~, WRT+6, WRT+9, STATUS+2, STATUS+3, STATUS+4, STATUS+5, STATUS+6, NONORST+1, NONORST+2 , NONORST+3*
SURG	ENSR+1~, ENSR+4
SURG(	ENSR+5
SURG(9999999	SORT+3, SORT+4*
X	WRT+1~, WRT+4, WRT+8
X(	WRT+14*, WRT+15