Routine: GMTSRO

Package	Total	Call Graph
Health Summary	5	$$WRAP^GMTSORC ($$GL,ONE)^GMTSROE WRT^GMTSRON ($$ED,$$PROK)^GMTSU CKP^GMTSUP
Surgery	1	HS^SROGMTS

Entry Points

Name	Comments	DBIA/ICR reference
ENSRO	; Entry Point for Surgery Only Component
ENSR	; Entry Point for SURGERY REPORT component ; (includes NON-OR procedures)
SORT	; Sort Surgeries by Inverse Date
WRT	; Write Surgical Case Record
NONOP	; Non-Op Procedure ; Quit if Surgery Only
OPER	; Operative Procedure
SS	; Date/Specialty/Surgeon
SPA	; Status/Principal Anesthetist
PREDX	; Principal Pre-Op Diagnosis
OPREDX	; Other Pre-Op Diagnosis
PSTDX	; Post-Op Diagnosis
OPSTDX	; Other Post-Op Diagnosis
OP	; Operative Procedures
OPM	; Operative Procedures (Modifiers)
OOP	; Other Procedures
OOPM
LAB	; Lab Work
RPTDT	; Dates
DICDT	; Dictation Date
TRCDT	; Transcription Time
RPT	; Dictation

External References

Name	Field # of Occurrence
$$WRAP^GMTSORC	SS+3, PREDX+3, OPREDX+3, PSTDX+2, OPSTDX+2, OP+1, OPM+2, OOP+2, OOPM+2
$$GL^GMTSROE	ENSR+2
ONE^GMTSROE	WRT+3
WRT^GMTSRON	NONOP+7
$$ED^GMTSU	SS+2
$$PROK^GMTSU	WRT+2, WRT+3, RPT+3, RPT+4
CKP^GMTSUP	SS+1, SS+5, SPA+1, PREDX+1, PREDX+5, OPREDX+5, PSTDX+1, PSTDX+3, OPSTDX+3, OP+1 , OP+3, OPM+4, OOP+4, OOPM+4, LAB+1, DICDT+2, TRCDT+2, TRCDT+3, RPT+3, RPT+5
HS^SROGMTS	WRT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $G(GMDT),?21,$P($G(GMTSTR),"\|"),?47,"Surgeon:",?56,$G(REC(130,GMN,.14,"E")),! Line Location: SS+4
Function Call: WRITE	Prompt: ?23,$P($G(GMTSTR),"\|",GMI),! Line Location: SS+5
Function Call: WRITE	Prompt: ?13,"Status:",?21,$G(REC(130,GMN,"STATUS")) Line Location: SPA+2
Function Call: WRITE	Prompt: ?44,"Prin Anest:",?56,$G(REC(130,GMN,.31,"E")),! Line Location: SPA+3
Function Call: WRITE	Prompt: ?5,"Pre-op Diag(s):" Line Location: PREDX+1
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ) Line Location: PREDX+5
Function Call: WRITE	Prompt: ! Line Location: PREDX+5
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ) Line Location: OPREDX+5
Function Call: WRITE	Prompt: ! Line Location: OPREDX+5
Function Call: WRITE	Prompt: ?4,"Post-op Diag(s):" Line Location: PSTDX+1
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ) Line Location: PSTDX+3
Function Call: WRITE	Prompt: " ",$G(REC(130,GMN,"VERIFIED")) Condition for execution: GMJ=1&(GMTSTR?1.A.E) Line Location: PSTDX+3
Function Call: WRITE	Prompt: ! Line Location: PSTDX+3
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ) Line Location: OPSTDX+3
Function Call: WRITE	Prompt: " ",$G(REC(130,GMN,"VERIFIED")) Condition for execution: GMJ=1&(GMTSTR?1.A.E) Line Location: OPSTDX+3
Function Call: WRITE	Prompt: ! Line Location: OPSTDX+3
Function Call: WRITE	Prompt: ?2,"Operative Proc(s):" Line Location: OP+1
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ),! Line Location: OP+3
Function Call: WRITE	Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"\|",GMJ),! Line Location: OPM+4
Function Call: WRITE	Prompt: ?$S(GMJ=1:21,1:22),$P(GMTSTR,"\|",GMJ),! Line Location: OOP+5
Function Call: WRITE	Prompt: ?$S(GMJ=1:25,1:26),$P(GMTSTR,"\|",GMJ),! Line Location: OOPM+4
Function Call: WRITE	Prompt: ?11,"Lab Work: ",$G(REC(130,GMN,"LAB")),! Line Location: LAB+1
Function Call: WRITE	Prompt: ?5,"Dictation Time:",?21,GMTSTR Line Location: DICDT+2
Function Call: WRITE	Prompt: ?41,"Transcription Time:",?61,GMTSTR Line Location: TRCDT+2
Function Call: WRITE	Prompt: "Surgeon's Dictation:",! Line Location: RPT+3
Function Call: WRITE	Prompt: ?2,$G(REC(130,GMN,1.15,GMI)),! Line Location: RPT+5

Label References

Name	Line Occurrences
OPER	NONOP+5
SORT	ENSR+4
WRT	ENSR+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	ENSR+2, ENSR+4
GMCOUNT	ENSR+2~, ENSR+5, NONOP+8, RPT+1*
GMDT	SORT+1~, SORT+2, SORT+3, WRT+1~, SS+2*, SS+4
GMI	WRT+1~, SS+5, OPREDX+1, OPREDX+2, OPSTDX+1, OPSTDX+2, OPM+1, OPM+2, OOP+1, OOP+2 , OOPM+1, OOPM+2, RPT+3~, RPT+4, RPT+5
GMIDT	ENSR+2~, ENSR+5*
GMJ	WRT+1~, PREDX+4, PREDX+5, OPREDX+4, OPREDX+5, PSTDX+3, OPSTDX+3, OP+2, OP+3, OPM+3 , OPM+4, OOP+3, OOP+5, OOPM+3, OOPM+4
GMM	OOPM+1~*, OOPM+2
GMN	ENSR+2~, ENSR+4, ENSR+5, SORT+1, SORT+3, WRT+2, WRT+3, NONOP+2, NONOP+5, NONOP+7 , SS+2, SS+3, SS+4, SPA+2, SPA+3, PREDX+2, PREDX+3, OPREDX+1, OPREDX+2, OPREDX+3 , PSTDX+2, PSTDX+3, OPSTDX+1, OPSTDX+2, OPSTDX+3, OP+1, OPM+1, OPM+2, OOP+1, OOP+2 , OOPM+1, OOPM+2, LAB+1, DICDT+1, TRCDT+1, TRCDT+3, RPT+2, RPT+4, RPT+5
>> GMTSBEG	SORT+1
>> GMTSEND	SORT+1
GMTSGL	ENSR+2~*, ENSR+4, SORT+1
GMTSMX	ENSR+2~, ENSR+3*, ENSR+5
>> GMTSNDM	ENSR+3
>> GMTSQIT	ENSR+5, SS+1, SS+5, SPA+1, PREDX+1, PREDX+4, PREDX+5, PREDX+6, OPREDX+4, OPREDX+5 , OPREDX+6, PSTDX+1, PSTDX+3, OPSTDX+3, OP+1, OP+2, OP+3, OP+4, OPM+1, OPM+3 , OPM+4, OPM+5, OOP+3, OOP+4, OOPM+3, OOPM+4, OOPM+5, OOPM+6, LAB+1, DICDT+2 , TRCDT+2, TRCDT+3, RPT+3, RPT+4, RPT+5, RPT+6
GMTSSO	ENSRO+1*, ENSR+6!, NONOP+2, NONOP+7
GMTSTR	WRT+1~, SS+3, SS+4, SS+5, PREDX+2, PREDX+3, PREDX+4, PREDX+5, OPREDX+2, OPREDX+3* , OPREDX+4, OPREDX+5, PSTDX+2, PSTDX+3, OPSTDX+2, OPSTDX+3, OP+1, OP+2, OP+3, OPM+2 , OPM+3, OPM+4, OOP+2, OOP+3, OOP+5, OOPM+2, OOPM+3, OOPM+4, DICDT+1, DICDT+2 , TRCDT+1, TRCDT+2
REC	WRT+1~
REC(130	NONOP+2, NONOP+5, NONOP+7, SS+2, SS+3, SS+4, SPA+2, SPA+3, PREDX+2, PREDX+3 , OPREDX+1, OPREDX+2, OPREDX+3, PSTDX+2, PSTDX+3, OPSTDX+1, OPSTDX+2, OPSTDX+3, OP+1, OPM+1 , OPM+2, OOP+1, OOP+2, OOPM+1, OOPM+2, LAB+1, DICDT+1, TRCDT+1, TRCDT+3, RPT+2 , RPT+4, RPT+5
SURG	ENSR+2~, ENSR+5
SURG(	ENSR+5
SURG(9999999	SORT+2, SORT+3*
U	SORT+1
X	WRT+1~

Customize PDF page

Package: Health Summary

Routine: GMTSRO

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: