Routine: TIUPXAPM

Information

TIUPXAPM ;SLC/RMO - CPT Modifier API(s) ;03/06/03@1500

Source file <TIUPXAPM.m>

Package	Total	Call Graph
VA Fileman	2	EN^DDIOL ^DIR
DRG Grouper	1	$$CODM^ICPTCOD

Package	Total	Caller Graph
Text Integration Utility	2	TIUPXAPC TIUPXAPI

Name	Comments	DBIA/ICR reference
MODQ
MOD(CPT,TIUI,TIUVDT)	;Select CPT Modifiers for CPT Code ; Input -- CPT CPT Selection Array ; TIUI Item Number in CPT Selection Array ; TIUVDT Encounter Date ; Output -- CPT CPT Selection Array
DISMOD(CPT,TIUI,TIUSELF)	;Display Selected CPT Modifiers ; Input -- CPT CPT Selection Array ; TIUI Item Number in CPT Selection Array ; TIUSELF Selection Process Flag (Optional) ; 1=Selection Process ; Output -- None
ASKMOD(CPTIEN,MOD,MODCNT,MODATA,TIUVDT)	;Ask CPT Modifier ; Input -- CPTIEN CPT file (#81) IEN ; MOD CPT Modifier Selection Array ; MODCNT Number of Modifiers Selected ; TIUVDT Encounter Date ; Output -- 1=Successful and 0=Failure ; MODATA Modifier Data from Modifier file (#81.3) ; 1st Piece=IEN ; 2nd Piece=Modifier field (#.01) ; 3rd Piece=Name field (#.02)
CHKMOD(MOD,MODIEN)	;Check Selected CPT Modifier ; Input -- MOD CPT Modifier Selection Array ; MODIEN Modifier file (#81.3) IEN ; Output -- 1=Successful and 0=Failure

Name	Line Occurrences
Function Call: WRITE	Prompt: !?12,"-",$P(MODATA,U,2),?19,$P(MODATA,U,3) Line Location: DISMOD+17
Routine Call	DIR Line Location: ASKMOD+15

Name	Field # of Occurrence
CAP	DISMOD+6~, DISMOD+10, DISMOD+12, DISMOD+16
CPT	MOD~, MOD+19, DISMOD~
CPT(	MOD+6, MOD+14, MOD+16, MOD+27*, DISMOD+14, DISMOD+15
CPTIEN	MOD+5~, MOD+6*, MOD+10, MOD+24, ASKMOD~
DIR	ASKMOD+10~
DIR("A"	ASKMOD+12*
DIR("S"	ASKMOD+14*
DIR(0	ASKMOD+11*
DTOUT	ASKMOD+10~
DUOUT	ASKMOD+10~
I	MOD+5~, MOD+13, MOD+14
MOD	MOD+5~, MOD+24, ASKMOD~, CHKMOD~
MOD(	MOD+16, MOD+25, CHKMOD+7
MODATA	MOD+5~, MOD+24, MOD+25, MOD+27, MOD+28, ASKMOD~, ASKMOD+16, ASKMOD+17, DISMOD+6~, DISMOD+15* , DISMOD+17
MODCNT	MOD+5~, MOD+13, MOD+15, MOD+16, MOD+22, MOD+24, MOD+26, MOD+27, ASKMOD~, ASKMOD+12 , DISMOD+6~, DISMOD+13, DISMOD+14, DISMOD+15, DISMOD+16
MODIEN	CHKMOD~, CHKMOD+7
TC	DISMOD+6~, DISMOD+10, DISMOD+12, DISMOD+16
TIUI	MOD~, MOD+6, MOD+14, MOD+16, MOD+19, MOD+27, DISMOD~, DISMOD+14, DISMOD+15
TIUSELF	DISMOD~, DISMOD+9
TIUVDT	MOD~, MOD+10, MOD+24, ASKMOD~
U	ASKMOD+16, DISMOD+17
Y	ASKMOD+10~, ASKMOD+16, CHKMOD+4~, CHKMOD+5, CHKMOD+7, CHKMOD+8
Y(0	ASKMOD+16