Routine: GMTSRON

Information

GMTSRON ; SLC/JER,KER - Surgery Reports ; 06/24/2002 [7/27/04 9:00am]

Source Information

Source file <GMTSRON.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Health Summary	4	$$WRAP^GMTSORC ($$GL,ONE)^GMTSROE ($$ED,$$PROK)^GMTSU CKP^GMTSUP
Surgery	1	HS^SROGMTS
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary	1	GMTSRO

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; Sort surgeries by inverted date
PP	; Principal Procedure
OPP	; Other Procedure Performed
PA	; Principal Anesthetist
ENSR	; Entry point for component
CHK()	; For selected procedures see if you have a match
SP	; Date/Specialty/Provider
PPM	; Principal Procedure (Modifiers)
WRT	; Write surgical case record
NONOR	; NON-OR information
DICT	; Dictation
PD	; Principle Diagnosis
IND	; Indications for Surgery
SA	; Status/Attending
OPPM
FIND	; Findings

External References

Name	Field # of Occurrence
$$GET1^DIQ	CHK+2
$$WRAP^GMTSORC	SP+3, PD+2, PP+4, PPM+2, OPP+2, OPPM+3
$$GL^GMTSROE	ENSR+2
ONE^GMTSROE	WRT+3
$$ED^GMTSU	SP+2
$$PROK^GMTSU	WRT+2, WRT+3
CKP^GMTSUP	SP+1, SP+4, SP+6, SA+1, PA+1, PD+3, PD+4, PP+1, PP+6, PPM+4 , OPP+4, OPPM+5, IND+3, FIND+3, DICT+2, DICT+4
HS^SROGMTS	WRT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: GMDT,?21,$P($G(GMTSTR),"\|"),?47,"Provider: ",?56,$G(REC(130,GMN,123,"E")),! Line Location: SP+5
Function Call: WRITE	Prompt: ?23,$P($G(GMTSTR),"\|",GMI),! Line Location: SP+6
Function Call: WRITE	Prompt: ?13,"Status:",?21,$G(REC(130,GMN,"STATUS")) Line Location: SA+2
Function Call: WRITE	Prompt: ?46,"Attending: ",?56,$G(REC(130,GMN,124,"E")),! Line Location: SA+3
Function Call: WRITE	Prompt: ?45,"Prin Anest: ",?56,$G(REC(130,GMN,.31,"E")),! Line Location: PA+2
Function Call: WRITE	Prompt: ?9,"Princ Diag: ",$P($G(GMTSTR),"\|"),! Line Location: PD+3
Function Call: WRITE	Prompt: ?21,$P($G(GMTSTR),"\|",GMI),! Line Location: PD+4
Function Call: WRITE	Prompt: ?5,"Proc Performed: " Line Location: PP+1
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ),! Line Location: PP+6
Function Call: WRITE	Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"\|",GMJ),! Line Location: PPM+4
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ),! Line Location: OPP+5
Function Call: WRITE	Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"\|",GMJ),! Line Location: OPPM+5
Function Call: WRITE	Prompt: "Indication for Proc:" Condition for execution: GMC=1 Line Location: IND+3
Function Call: WRITE	Prompt: ?21,$G(REC(130,GMN,55,"S",GMI)),! Line Location: IND+3
Function Call: WRITE	Prompt: " Operative Findings:" Condition for execution: GMC=1 Line Location: FIND+3
Function Call: WRITE	Prompt: ?21,$G(REC(130,GMN,59,"S",GMI)),! Line Location: FIND+3
Function Call: WRITE	Prompt: "Surgeon's Dictation:",! Line Location: DICT+2
Function Call: WRITE	Prompt: ?2,$G(REC(130,GMN,1.15,GMI)),! Line Location: DICT+4

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name	Line Occurrences
$$CHK	ENSR+6
SORT	ENSR+4
WRT	ENSR+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	ENSR+2, ENSR+4
GMC	IND+2~, IND+3, FIND+2~, FIND+3
GMCOUNT	ENSR+1~, ENSR+5, WRT+6
GMDT	SORT+1~, SORT+2, SORT+3, WRT+4~, SP+2*, SP+5
GMI	WRT+4~, SP+6, PD+4, PPM+1, PPM+2, OPP+1, OPP+2, OPPM+2, OPPM+3, IND+2~* , IND+3, FIND+2~, FIND+3, DICT+2~, DICT+3, DICT+4
GMIDT	ENSR+1~, ENSR+5*, ENSR+6
GMJ	ENSR+1~, PP+5, PP+6, PPM+3, PPM+4, OPP+3, OPP+5, OPPM+4, OPPM+5
GMM	OPPM+1~, OPPM+2, OPPM+3
GMN	ENSR+1~, ENSR+4, ENSR+6, SORT+1, SORT+3, WRT+1*, WRT+2, WRT+3, WRT+6, SP+2 , SP+3, SP+5, SA+2, SA+3, PA+2, PD+1, PP+2, PP+3, PPM+1, PPM+2 , OPP+1, OPP+2, OPPM+2, OPPM+3, IND+1, IND+2, IND+3, FIND+1, FIND+2, FIND+3 , DICT+1, DICT+3, DICT+4, CHK+2
>> GMTSBEG	SORT+1
GMTSC	CHK+1~, CHK+2*, CHK+3
>> GMTSEG(	CHK+2, CHK+3
>> GMTSEGN	CHK+2, CHK+3
>> GMTSEND	SORT+1
GMTSF	CHK+1~, CHK+3*, CHK+4
GMTSGL	ENSR+1~, ENSR+2*, ENSR+4, SORT+1
GMTSI	CHK+1~, CHK+3*
GMTSMX	ENSR+1~, ENSR+3*, ENSR+5
>> GMTSNDM	ENSR+3
>> GMTSQIT	SP+1, SP+4, SP+6, SA+1, PA+1, PD+3, PD+4, PP+1, PP+5, PP+6 , PP+7, PPM+1, PPM+3, PPM+4, PPM+5, OPP+3, OPP+4, OPPM+4, OPPM+5, OPPM+6 , OPPM+7, IND+1, IND+2, IND+3, FIND+1, FIND+2, FIND+3, DICT+2, DICT+3, DICT+4
GMTSTR	WRT+4~, SP+3, SP+5, SP+6, PD+1, PD+2, PD+3, PD+4, PP+2, PP+3* , PP+4, PP+5, PP+6, PPM+2, PPM+3, PPM+4, OPP+2, OPP+3, OPP+5, OPPM+3 , OPPM+4, OPPM+5
REC	ENSR+1~, ENSR+6!, ENSR+7!
REC(130	WRT+6, SP+2, SP+3, SP+5, SA+2, SA+3, PA+2, PD+1, PP+2, PP+3 , PPM+1, PPM+2, OPP+1, OPP+2, OPPM+2, OPPM+3, IND+1, IND+2, IND+3, FIND+1 , FIND+2, FIND+3, DICT+1, DICT+3, DICT+4
SURG	ENSR+1~, ENSR+5
SURG(	ENSR+5, ENSR+6
SURG(9999999	SORT+2, SORT+3*
U	SORT+1
X	WRT+4~
Y	WRT+4~

Customize PDF page

Package: Health Summary

Routine: GMTSRON

Call Graph Total: 6

Caller Graph Total: 1