Routine: GMTSPXOP

Information

GMTSPXOP ; SLC/SBW,KER - PCE Outpatient Encounter comp ;07/19/13 11:48

Name	Comments	DBIA/ICR reference
PURPOSE	; Encounters with ICD9 and providers
OUTPT	; Encounters with ICD9, CPT, and providers
MAIN	; Entry for Purpose of Visit and Outpatient Encounters
DSPPOV	; Display Purpose of visit
DSPCPT	; Display Procedures performed during the visit
DCPT	; Display CPT Comments
DMOD	; Display CPT Modifier Comments
DSPPROV	; Display Providers for visit
DSPVIS	; Display outpatient visit data
HDR	; Display header
FORMAT	; Formats Diagnosis/Procedure line of text
FCM(X)	; Format CPT Modifier comment
LINE	; Writes formatted lines
LINE2	; Writes indented formatted lines

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+49
Function Call: WRITE	Prompt: ?3,"Diagnosis:" Line Location: DSPPOV+4
Function Call: WRITE	Prompt: ?GMTSICL+$S(GMTSX>1:GMTAB,1:0),$G(^UTILITY($J,"W",DIWL,GMTSX,0)),! Line Location: DSPPOV+22
Function Call: WRITE	Prompt: ?3,"Procedure:" Line Location: DSPCPT+3
Function Call: WRITE	Prompt: ?GMTSICL+$S(GMTSX>1:GMTAB,1:0) Line Location: DCPT+4
Function Call: WRITE	Prompt: $G(^UTILITY($J,"W",DIWL,GMTSX,0)) Line Location: DCPT+5
Function Call: WRITE	Prompt: ! Line Location: DCPT+6
Function Call: WRITE	Prompt: !,?10,"Comments:" Line Location: DCPT+11
Function Call: WRITE	Prompt: ! Line Location: DMOD+2
Function Call: WRITE	Prompt: ?3," Provider:" Line Location: DSPPROV+4
Function Call: WRITE	Prompt: ?60,GMPROV(GMCNT) Line Location: DSPPROV+10
Function Call: WRITE	Prompt: ! Line Location: DSPPROV+12
Function Call: WRITE	Prompt: GMTSDAT,?14,GMTSITE,?29,GMTSLOC,?61,GMTSELIG Line Location: DSPVIS+2
Function Call: WRITE	Prompt: ! Line Location: DSPVIS+3
Function Call: WRITE	Prompt: ?3,"Date",?14,"Facility",?29,"Hospital Location",?61,"Encounter Elig.",!! Line Location: HDR+1
Function Call: WRITE	Prompt: ?20,^UTILITY($J,"W",DIWL,GMTSLN,0),! Line Location: LINE+1
Function Call: WRITE	Prompt: ?GMTST,^UTILITY($J,"W",DIWL,GMTSLN,0),! Line Location: LINE2+1