Routine: GMTSPXU1

Information

GMTSPXU1 ; SLC/SBW,TC - PCE Utilities sub-routines ;06/25/15 15:51

Name	Comments	DBIA/ICR reference
GETICDDX(GMTSICD,GMTSICF,GMMOD,GMTSDATE,GMTSCSYS)	; Entry point to get ICD data
GETICDOP(GMTSICD,GMTSICF,GMMOD,GMTSDATE,GMTSSHCS)	; Entry point to get ICD data
GETCPT(GMTSCPT)	; Entry point to get CPT data
TXTFMT(GMTSICD,GMTSNARR,GMICL,GMTAB,DIWL,GMTSQTY,GMTSPRIM)	; Formats GMTSICD & GMTSNARR together
ORDERPRO(GMPROV,GMLEN)	; Re-order and format providers for visit
LM	; Entry Point - for GMTS Measurement Panel
DSPLST	; Common code for Health Summary MNX Lists
CONT	; Continue
QUIT	; Quit
GETICDCD(DATE,TYPE)	; ; TYPE is either "PROC" or "DIAG" ; DATE is the date you want to check the coding system for
CODESYS(GMTSCODA,GMTSFILE)	; create coding system and label based on IEN

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO ",$P(@(GMTSLST_"0)"),U),"S DEFINED.",! Line Location: DSPLST+2
Function Call: WRITE	Prompt: @IOF,!!,"Existing ",$P(@(GMTSLST_"0)"),U),"S:",! Line Location: DSPLST+3
Function Call: WRITE	Prompt: !,?5,GMTSCNT Line Location: CONT+2
Function Call: WRITE	Prompt: @IOF Line Location: CONT+3
Function Call: WRITE	Prompt: ! Line Location: CONT+4