Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Text Integration Utility 5 $$PTNAME^TIULC1  ($$PICK,CMBLST)^TIUPXAP2  MOD^TIUPXAPM  $$READ^TIUU  $$SELLOC^TIUVSIT  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Lexicon Utility 2 CONFIG^LEXSET  ($$CPCONE,$$CPTONE)^LEXU  
Automated Information Collection System 1 GETLST^IBDF18A  
Kernel 1 $$UP^XLFSTR  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIUPXAP2  TIUPXAPI  

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

External References

Name Field # of Occurrence
^DIC CPTOUT+10, CPTOUT+25
GETLST^IBDF18A GETCPT+3, GETCPT+4
$$CPT^ICPTCOD CPT+24, LEXC+7
$$MOD^ICPTMOD ADDMOD+25
CONFIG^LEXSET CPTOUT+3, CPTOUT+5, CPTOUT+20, CPTOUT+22
$$CPCONE^LEXU LEXC+3
$$CPTONE^LEXU LEXC+3
$$PTNAME^TIULC1 CPT+2
$$PICK^TIUPXAP2 CPT+14, CPT+16
CMBLST^TIUPXAP2 GETCPT+5
MOD^TIUPXAPM CPT+40, CPT+46
$$READ^TIUU QTY+5
$$SELLOC^TIUVSIT TEST+2
$$UP^XLFSTR GETCPT+19, QTY+4

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
Routine Call
  • DIC
  • Line Location:
    • CPTOUT+10
    • CPTOUT+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls

Label References

Name Line Occurrences
$$LEXC CPTOUT+14, CPTOUT+29
$$QTY CPT+36, CPT+42
ADDMOD GETCPT+15
CPT TEST+4
CPTOUT CPT+31, CPT+32
GETCPT TEST+3
UPDCNT GETCPT+23, GETCPT+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRY2 GETCPT+1~, GETCPT+5, GETCPT+15, ADDMOD~
ARRY2( GETCPT+7, GETCPT+8, GETCPT+11, GETCPT+12, GETCPT+15, GETCPT+16!, GETCPT+19, GETCPT+21!, ADDMOD+21, ADDMOD+22
ARRY2(0 GETCPT+24, GETCPT+28
CPT TEST+1~, TEST+4, CPT~, CPT+31, CPT+32, CPT+36, CPT+40, CPT+42, CPT+46, QTY~
, CPTOUT~
CPT( TEST+5, TEST+6, TEST+7, CPT+21*, CPT+22*, CPT+24*, CPT+25, CPT+26!, CPT+29*, CPT+35
, CPT+36*, CPT+37!, CPT+40, QTY+4, CPTOUT+15, CPTOUT+16*, CPTOUT+30, CPTOUT+31*
CPT(1 CPT+33, CPT+41, CPT+42*, CPT+43!, CPT+46
CPTARR TEST+1~, TEST+3, TEST+4, GETCPT~, GETCPT+15, ADDMOD~, CPT~, CPTOUT+8
CPTARR( GETCPT+11*, GETCPT+20*, GETCPT+26*, ADDMOD+29*, CPT+7, CPT+8, CPT+9, CPT+11, CPT+12
CPTARR("INDEX" GETCPT+12*, GETCPT+27*, ADDMOD+31*, CPT+17, CPT+20, CPT+21, CPT+29
CPTARR(0 GETCPT+28*, CPT+4, CPT+5, CPTOUT+8
>> DFN CPT+2
DIC CPTOUT+1~, CPTOUT+6*, CPTOUT+14, CPTOUT+23*, CPTOUT+29
DIC("A" CPTOUT+8*, CPTOUT+24*
DIC(0 CPTOUT+7*
>> DTOUT CPTOUT+11, CPTOUT+26
>> DUOUT CPTOUT+11, CPTOUT+26
EMARRY GETCPT+1~, GETCPT+5!
HELP QTY+1~, QTY+3*, QTY+5
I CPT+1~, CPT+6*, CPT+7*, CPT+8, CPT+9, CPT+11, CPT+12, CPT+14, CPT+15, CPT+18~*
, CPT+19, CPT+21, CPT+22, CPT+24, CPT+25, CPT+26, CPT+29, CPT+31
ITEM CPT+18~, CPT+19*, CPT+20, CPT+21, CPT+29
J CPT+1~, CPT+6*, CPT+8*, CPT+9, CPT+11, CPT+12
L CPT+1~, CPT+6*, CPT+15*, CPT+16
MODCNT ADDMOD+17~, ADDMOD+20*, ADDMOD+21*, ADDMOD+22, ADDMOD+31
MODIFIER ADDMOD+17~, ADDMOD+22*, ADDMOD+25
MODINFO ADDMOD+17~, ADDMOD+25*, ADDMOD+26, ADDMOD+29, ADDMOD+31
PROMPT QTY+1~, QTY+2*, QTY+5
>> TIU("PNM" CPT+2
TIUC LEXC+1~, LEXC+3*, LEXC+4, LEXC+5, LEXC+7*
TIUCAT GETCPT+1~*, GETCPT+11, GETCPT+12, GETCPT+19*, GETCPT+20
TIUCODE LEXC+1~, LEXC+5*, LEXC+7, LEXC+8
TIUCOL GETCPT+1~, GETCPT+6*, GETCPT+11, GETCPT+15, GETCPT+20, GETCPT+23, GETCPT+26, GETCPT+30, UPDCNT~, UPDCNT+9
, UPDCNT+10*, ADDMOD~, ADDMOD+29
TIUCPT CPT+1~
TIUI TEST+1~, TEST+2*, TEST+5*, TEST+6, TEST+7, GETCPT+1~, GETCPT+6*, GETCPT+7*, GETCPT+8, GETCPT+11
, GETCPT+12, GETCPT+15, GETCPT+16, GETCPT+19, GETCPT+21, ADDMOD~, ADDMOD+21, ADDMOD+22, CPT+34~*, CPT+35*
, CPT+36, CPT+37, CPT+40, QTY~, QTY+4, CPTOUT~, CPTOUT+15*, CPTOUT+16, CPTOUT+30*, CPTOUT+31
TIUICNT CPT+1~, CPT+5*, CPT+6
TIUITM GETCPT+1~, GETCPT+6*, GETCPT+9*, GETCPT+11, GETCPT+12, GETCPT+15, GETCPT+25*, GETCPT+26, GETCPT+27, ADDMOD~
, ADDMOD+31, CPT+1~, CPT+12*, CPT+13, CPT+15
TIULITM CPT+1~, CPT+13*, CPT+14, CPT+15*, CPT+16
TIULOC TEST+1~, TEST+2*, TEST+3, GETCPT~, GETCPT+3, GETCPT+4
TIUOUT CPTOUT+1~, CPTOUT+2, CPTOUT+11*, CPTOUT+18, CPTOUT+26*
TIUPAGE GETCPT+1~, GETCPT+6*, GETCPT+15, GETCPT+23, GETCPT+28, GETCPT+30, UPDCNT~, UPDCNT+9*, UPDCNT+11, ADDMOD~
TIUPG CPT+1~, CPT+6*, CPT+14*
TIUPGS CPT+1~, CPT+5*, CPT+14
TIUPNM CPT+1~, CPT+2*, CPT+3
TIUROW GETCPT+1~, GETCPT+6*, GETCPT+9*, GETCPT+11, GETCPT+15, GETCPT+18*, GETCPT+20, GETCPT+23, GETCPT+25*, GETCPT+26
, GETCPT+28, GETCPT+30, UPDCNT~, UPDCNT+8, UPDCNT+11*, ADDMOD~, ADDMOD+27*, ADDMOD+29
TIUVDT GETCPT~, GETCPT+3, GETCPT+4, GETCPT+15, ADDMOD~, ADDMOD+25, CPT~, CPT+24, CPT+31, CPT+32
, CPT+40, CPT+46, CPTOUT~, CPTOUT+5, CPTOUT+14, CPTOUT+22, CPTOUT+29, LEXC~, LEXC+3, LEXC+7
U GETCPT+8, GETCPT+11, GETCPT+12, GETCPT+19, GETCPT+20, GETCPT+28, ADDMOD+22, ADDMOD+29, ADDMOD+31, CPT+5
, CPT+9, CPT+11, CPT+14, CPT+16, CPT+17, CPT+20, CPT+22, CPT+24, QTY+4, LEXC+4
, LEXC+7
X CPTOUT+1~, CPTOUT+9~, CPTOUT+11, CPTOUT+17, CPTOUT+19~, CPTOUT+26, CPTOUT+32
Y CPT+1~, CPT+6*, CPT+14*, CPT+16*, CPT+17, CPT+18, CPT+19, CPTOUT+1~, CPTOUT+12, CPTOUT+14*
, CPTOUT+16, CPTOUT+18, CPTOUT+27, CPTOUT+29*, CPTOUT+31, LEXC~, LEXC+1*, LEXC+3, LEXC+4*, LEXC+7*
, LEXC+8*, LEXC+9

Marked Items

Name Field # of Occurrence
$T(CONFIG^LEXSET CPTOUT+3, CPTOUT+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All