TIUPXAPC ; SLC/JER - Get CPT stuff ;5/8/03@10:27
Source file <TIUPXAPC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
TEST | ; Check it out
|
|
GETCPT(TIULOC,CPTARR,TIUVDT) | ; Get CPT codes for clinic
|
|
UPDCNT(TIUROW,TIUCOL,TIUPAGE) | ;Update Counters for CPT Display Array
; Input -- TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter ; Output -- Counters: ; TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter |
|
ADDMOD(TIUITM,TIUI,CPTARR,ARRY2,TIUROW,TIUCOL,TIUPAGE,TIUVDT) | ;Add Pre-selected CPT Modifiers from AICS to CPT Display Array
; Input -- TIUITM Item Number in CPT Display Array ; TIUI Item Number in Combined AICS Selection List Array ; CPTARR CPT Display Array ; ARRY2 Combined AICS Selection List Array ; TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter ; Output -- CPTARR CPT Display Array ; (TIUROW,TIUCOL)= ; ^^^^CPT Modifier^CPT Modifier Name ; ("INDEX",TIUITM,"MODIFIER",MODCNT)= ; CPT Modifier IEN^CPT Modifier^CPT Modifier Name ; TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter ; TIUVDT Encounter Date |
|
CPT(CPT,CPTARR,TIUVDT) | ; Select Procedures
|
|
QTY(CPT,TIUI) | ; How many times was the procedure performed?
|
|
QTYHLP | ; Help for QTY read
|
|
CPTOUT(CPT,TIUI,TIUVDT) | ; Go off-list for Procedure(s)
|
|
LEXC(Y,TIUVDT) | ; Get CPT IEN from Lexicon returned code PCH 24
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ICPT - [#81] | Classic Fileman Calls |