ICPTAPIU ;ALB/DEK/KER - CPT UTILITIES FOR APIS ; 04/18/2004
Source file <ICPTAPIU.m>
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CPTDIST() | ; Distribution Date
; Input: none (extrinsic variable) ; Output: returns DISTRIBUTION DATE, date codes effective in Austin |
|
CAT(CAT,DFN) | ; Return CATEGORY NAME given IEN
; Input: CAT = category ien REQUIRED ; DFN - not in use but included in anticipation of future need |
|
CATQ | ||
NUM(Y) | ; Convert CPT/HCPCS Code to Numeric
; Convert HCPCS to $A() of Alpha _ Numeric Portion |
|
COPY | ; API to Print Copyright Information
|
|
STATCHK(CODE,CDT) | ; Check Status of CPT Code or Modifier
; Input: ; CODE - CPT Code/Modifier REQUIRED ; CDT - Date to screen against (FileMan format, default = today) |
|
NEXT(CODE) | ; Next CPT Code or Modifier (active or inactive)
; Input: ; CODE = CPT Code/Modifier REQUIRED |
|
PREV(CODE) | ; Previous CPT Code or Modifier (active or inactive)
; Input: ; CODE = CPT Code/Modifier REQUIRED |
|
HIST(CODE,ARY) | ; Activation History
; Input: ; CODE - CPT Code or Modifier REQUIRED ; .ARY - Array, passed by Reference REQUIRED |
|
PERIOD(CODE,ARY) | ; return Activation/Inactivation Period in ARY
|
|
ACT(ICPTG,ICPTC,ICPTS,ICPTD) | ; return "ACT" root
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(81.1 - [#81.1] | CAT+11, CAT+18 |
^DIC(81.2 - [#81.2] | CPTDIST+3, COPY+3, COPY+5 |
^UTILITY($J | COPY+3! |
Name | Line Occurrences |
---|---|
$$ACT | STATCHK+25, STATCHK+28, STATCHK+34, STATCHK+36, STATCHK+41, STATCHK+47 |
CATQ | CAT+9, CAT+10, CAT+12, CAT+13 |
Name | Field # of Occurrence |
---|---|
^( | COPY+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | HIST~, PERIOD~ |
ARY( | HIST+20*, PERIOD+38*, PERIOD+39*, PERIOD+43*, PERIOD+46*, PERIOD+49*, PERIOD+52*, PERIOD+53* |
ARY("IEN" | HIST+14*, HIST+16! |
ARY(0 | HIST+15*, HIST+16*, HIST+20*, HIST+21, PERIOD+20*, PERIOD+22*, PERIOD+23*, PERIOD+24*, PERIOD+25* |
CAT | CAT~, CAT+9, CAT+10, CAT+11, CAT+15 |
CATN | CAT+7~, CAT+14*, CAT+15, CAT+19 |
CDT | STATCHK~, STATCHK+24 |
CODE | STATCHK~, STATCHK+18, NEXT~, NEXT+8, PREV~, PREV+8, HIST~, HIST+10, HIST+12, HIST+13 , PERIOD~, PERIOD+20, PERIOD+22, PERIOD+23 |
DFN | CAT~ |
DIR | COPY+2~ |
DIWF | COPY+2~, COPY+4* |
DIWL | COPY+2~, COPY+4* |
DIWR | COPY+2~, COPY+4* |
>> ICPT0("B" | HIST+15! |
ICPTA | STATCHK+17~, STATCHK+25*, STATCHK+26, STATCHK+27*, STATCHK+28, STATCHK+35, STATCHK+36, STATCHK+40, STATCHK+46, PERIOD+21~ , PERIOD+26*, PERIOD+30*, PERIOD+31, PERIOD+32, PERIOD+37, PERIOD+38, PERIOD+39, PERIOD+43, PERIOD+46, PERIOD+49 , PERIOD+52, PERIOD+53, PERIOD+54* |
ICPTBA | PERIOD+21~, PERIOD+26*, PERIOD+29, PERIOD+31*, PERIOD+33*, PERIOD+43*, PERIOD+46* |
ICPTBI | PERIOD+21~, PERIOD+38*, PERIOD+40, PERIOD+43*, PERIOD+46*, PERIOD+49*, PERIOD+54* |
ICPTC | STATCHK+17~, STATCHK+18*, STATCHK+21, STATCHK+25, STATCHK+28, STATCHK+34, STATCHK+36, STATCHK+41, STATCHK+47, NEXT+7~ , NEXT+8*, NEXT+9, NEXT+10*, NEXT+11, PREV+7~, PREV+8*, PREV+9, PREV+10*, PREV+11, HIST+11~ , HIST+17*, HIST+20*, PERIOD+21~, PERIOD+23*, PERIOD+24*, PERIOD+26, PERIOD+28, PERIOD+37, PERIOD+51, ACT~ , ACT+1 |
ICPTCA | PERIOD+21~, PERIOD+37*, PERIOD+54* |
ICPTD | STATCHK+17~, STATCHK+24*, STATCHK+25, STATCHK+34, STATCHK+40, HIST+11~, HIST+18*, HIST+20, ACT~, ACT+1 |
ICPTF | HIST+11~, HIST+19*, HIST+20, PERIOD+21~, PERIOD+32*, PERIOD+33, PERIOD+34, PERIOD+44*, PERIOD+46, PERIOD+47 |
ICPTG | STATCHK+17~, STATCHK+21*, STATCHK+25, STATCHK+28, STATCHK+34, STATCHK+36, STATCHK+41, STATCHK+47, NEXT+7~, NEXT+9* , NEXT+10, PREV+7~, PREV+9*, PREV+10, HIST+11~, HIST+12*, HIST+13, HIST+14, PERIOD+21~, PERIOD+22* , PERIOD+23, PERIOD+24, PERIOD+25, PERIOD+26*, PERIOD+28, PERIOD+30, PERIOD+32, PERIOD+34, PERIOD+37, PERIOD+41 , PERIOD+44, PERIOD+47, PERIOD+51, ACT~, ACT+1 |
ICPTI | STATCHK+17~, STATCHK+34*, STATCHK+35, STATCHK+40, STATCHK+41, STATCHK+46, STATCHK+47, HIST+11~, HIST+13*, HIST+14 , HIST+17*, HIST+18, HIST+19, PERIOD+21~, PERIOD+38*, PERIOD+41*, PERIOD+43, PERIOD+44, PERIOD+51, PERIOD+52 , PERIOD+54 |
ICPTIEN | STATCHK+17~, STATCHK+29*, STATCHK+30, STATCHK+36*, STATCHK+37, STATCHK+41*, STATCHK+42, STATCHK+47*, STATCHK+48, STATCHK+50 |
ICPTN | HIST+11~, PERIOD+21~, PERIOD+28*, PERIOD+43, PERIOD+46, PERIOD+49 |
ICPTO | HIST+11~, HIST+14* |
ICPTO( | HIST+17, HIST+18, HIST+19 |
ICPTO(0 | HIST+15 |
ICPTR | STATCHK+17~, STATCHK+25*, STATCHK+27, STATCHK+28*, STATCHK+29, STATCHK+34*, STATCHK+36*, STATCHK+41*, STATCHK+47*, STATCHK+48 |
ICPTS | PERIOD+21~, PERIOD+24*, PERIOD+38, ACT~, ACT+1 |
ICPTST | PERIOD+21~, PERIOD+34*, PERIOD+35, PERIOD+47*, PERIOD+49 |
ICPTV | PERIOD+21~, PERIOD+37*, PERIOD+39, PERIOD+51*, PERIOD+53 |
ICPTZ | PERIOD+21~, PERIOD+24*, PERIOD+25 |
MCATIEN | CAT+7~, CAT+8*, CAT+15*, CAT+17*, CAT+18, CAT+19 |
MCATNM | CAT+7~, CAT+8*, CAT+15*, CAT+18*, CAT+19 |
STR | CAT+7~, CAT+9*, CAT+10*, CAT+11*, CAT+12*, CAT+13*, CAT+14, CAT+15, CAT+16, CAT+17 , CAT+19*, CATQ |
VARR | COPY+2~, COPY+5* |
VAXX | COPY+2~, COPY+5*, COPY+6 |
X | COPY+2~, COPY+5*, STATCHK+17~, STATCHK+26, STATCHK+27*, STATCHK+30*, STATCHK+35, STATCHK+37*, STATCHK+40, STATCHK+42* , STATCHK+46, STATCHK+48* |
Y | NUM~, NUM+16 |