Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUPXAPC

Package: Text Integration Utility

Routine: TIUPXAPC


Information

TIUPXAPC ; SLC/JER - Get CPT stuff ;5/8/03@10:27

Source Information

Source file <TIUPXAPC.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"CPT(",TIUI,")=",CPT(TIUI),!,"CPT(",TIUI,",""QTY"")="
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: CPT(TIUI,"QTY")
  • Line Location: TEST+7
Function Call: WRITE
  • Prompt: !!,"Please Indicate the Procedure(s) Performed on "_TIUPNM_":"
  • Line Location: CPT+3
Function Call: WRITE
  • Prompt: ?((J-1)*25)
  • Line Location: CPT+9
Function Call: WRITE
  • Prompt: $J($P(CPTARR(I,J),U),2)_" "
  • Condition for execution: +$P(CPTARR(I,J),U)
  • Line Location: CPT+9
Function Call: WRITE
  • Prompt: $E($P(CPTARR(I,J),U,3),1,20)
  • Line Location: CPT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CPT+14
Function Call: WRITE
  • Prompt: !!!,$$UP^XLFSTR($P(CPT(TIUI),U,2)),":",!
  • Line Location: QTY+4
Function Call: WRITE
  • Prompt: !,"Please specify the number of repetitions for this procedure"
  • Line Location: QTYHLP+1
Function Call: WRITE
  • Prompt: !,"performed during this visit with the patient (1-99)."
  • Line Location: QTYHLP+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Nothing found for ",X,"..."
  • Line Location: CPTOUT+17
Function Call: WRITE
  • Prompt: $C(7),!!,"Nothing found for ",X,"..."
  • Line Location: CPTOUT+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call