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 |
CPT HCPCS Codes | 1 | $$CODM^ICPTCOD |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Text Integration Utility | 2 | TIUPXAPC TIUPXAPI |
Name | Comments | DBIA/ICR reference |
---|---|---|
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 |
|
MODQ | ||
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 |
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences |
---|---|
$$ASKMOD | MOD+24 |
DISMOD | MOD+19 |
MODQ | MOD+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |