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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: TIUPXAPI

Package: Text Integration Utility

Routine: TIUPXAPI


Information

TIUPXAPI ; SLC/JER - Interface w/PCE/Visit Tracking ;11/02/23 11:00

Source Information

Source file <TIUPXAPI.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Text Integration Utility 7 ($$PERSNAME,$$PTNAME)^TIULC1  ($$PROVIDER,QUE)^TIUPXAP1  $$PICK^TIUPXAP2  (CPT,GETCPT)^TIUPXAPC  DISMOD^TIUPXAPM  SCASK^TIUPXAPS  $$READ^TIUU  
Lexicon Utility 2 CONFIG^LEXSET  $$IMPDATE^LEXU  
VA FileMan 2 (,NOW)^%DTC  ^DIC  
Automated Information Collection System 1 GETLST^IBDF18A  
DRG Grouper 1 ($$CODECS,$$ICDDX)^ICDEX  
Kernel 1 $$UP^XLFSTR  
PCE Patient Care Encounter 1 PRV^PXBUTL2  

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: 4

Package Total Caller Graph
Text Integration Utility 4 TIUPXAP1  TIUPXAP2  TIUSRVP1  TIUVSIT  

Entry Points

Name Comments DBIA/ICR reference
CREDIT(DFN,TIU,VSIT) ; Get Dx, CPT, (& SC) for the CMD's mandate
REENTER
ICDCALL
CPTCALL
INSUFF
POST
CONFIRM(TIUAICD,TIUCPT,TIUSC) ; Show user and confirm
GETICD(TIULOC,TIUICDAR,TIUVDT) ; Get ICD-9 or 10 codes for clinic
ICD(TIUAICD,TIUICDAR,TIUVDT,CSYSINFO) ; Select Dx's
ASKPRMRY(TIUAICD) ; Which Dx is Primary
PRMAGN
ICDOUT(TIUAICD,TIUI,TIUVDT,CSYSINFO) ; Go off-list for Dx
PROVLIST(PROVLIST) ; Identify primary provider
ASKPR
ASKDOC(DFLT) ; Call ^DIC to look-up provider
DFLTDOC(HLOC) ; Get the default Provider
CSYSINFO(DATE) ;Function: Coding system Information
; DATE is date of interest; defaults to today
; Returns CodesystemIENin757.3^AppNamespacein757.2^ImpDateofICD-10

External References

Name Field # of Occurrence
^%DTC CSYSINFO+7
NOW^%DTC CSYSINFO+4
^DIC ICDOUT+15, ICDOUT+34, ASKDOC+4
GETLST^IBDF18A GETICD+4
$$CODECS^ICDEX CONFIRM+6
$$ICDDX^ICDEX ICD+20, ICDOUT+19, ICDOUT+38
CONFIG^LEXSET ICDOUT+4, ICDOUT+7, ICDOUT+26, ICDOUT+28
$$IMPDATE^LEXU CSYSINFO+6
PRV^PXBUTL2 DFLTDOC+2
$$PERSNAME^TIULC1 PROVLIST+7
$$PTNAME^TIULC1 ICD+2
$$PROVIDER^TIUPXAP1 PROVLIST+7, ASKPR+2
QUE^TIUPXAP1 CREDIT+3, POST+2
$$PICK^TIUPXAP2 ICD+12, ICD+15, PRMAGN+3, PRMAGN+5
CPT^TIUPXAPC CPTCALL
GETCPT^TIUPXAPC ICDCALL+4
DISMOD^TIUPXAPM CONFIRM+17
SCASK^TIUPXAPS CPTCALL+3
$$READ^TIUU CONFIRM+26, ICDOUT+10, ICDOUT+31
$$UP^XLFSTR GETICD+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"For ",$G(TIU("PNM"))," ",$G(TIU("PID"))," Visit on "
  • Line Location: REENTER+1
Function Call: WRITE
  • Prompt: $P($G(TIU("EDT")),U,2),"..."
  • Line Location: REENTER+2
Function Call: WRITE
  • Prompt: !!,$C(7),"You MUST enter one or more Diagnoses."
  • Line Location: ICDCALL+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You MUST enter one or more Procedures."
  • Line Location: CPTCALL+1
Function Call: WRITE
  • Prompt: !,$C(7),"Insufficient information for Workload Credit."
  • Line Location: INSUFF+1
Function Call: WRITE
  • Prompt: !,"Missing information will have to be captured by another method."
  • Line Location: INSUFF+2
Function Call: WRITE
  • Prompt: !!,"Changes Discarded. Please Enter Corrected Workload Data..."
  • Line Location: INSUFF+5
Function Call: WRITE
  • Prompt: !!,"Posting Workload Credit..."
  • Line Location: INSUFF+8
Function Call: WRITE
  • Prompt: !!,"You have indicated the following data apply to this visit:",!
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: !,"DIAGNOSES:"
  • Line Location: CONFIRM+3
Function Call: WRITE
  • Prompt: !?3,CODSYSNO
  • Line Location: CONFIRM+7
Function Call: WRITE
  • Prompt: ?22,$P(TIUAICD(TIUI),U,3)_" <<< PRIMARY"
  • Line Location: CONFIRM+9
Function Call: WRITE
  • Prompt: ?22,$E($P(TIUAICD(TIUI),U,3),1,57),!,?7,"<<< PRIMARY"
  • Line Location: CONFIRM+10
Function Call: WRITE
  • Prompt: ?22,$E($P(TIUAICD(TIUI),U,3),1,57)
  • Line Location: CONFIRM+11
Function Call: WRITE
  • Prompt: !!,"PROCEDURES:"
  • Line Location: CONFIRM+12
Function Call: WRITE
  • Prompt: !?3,$P(TIUCPT(TIUI),U,4),?12,$E($P(TIUCPT(TIUI),U,2),1,67)
  • Line Location: CONFIRM+15
Function Call: WRITE
  • Prompt: !!,"SERVICE CONNECTION:"
  • Line Location: CONFIRM+19
Function Call: WRITE
  • Prompt: !?3,"Service Connected? ",$S(+$G(TIUSC("SC")):"YES",1:"NO")
  • Line Location: CONFIRM+20
Function Call: WRITE
  • Prompt: !?3,"Agent Orange? ",$S($G(TIUSC("AO"))]"":$P($G(TIUSC("AO")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+21
Function Call: WRITE
  • Prompt: !?3,"Ionizing Radiation? ",$S($G(TIUSC("IR"))]"":$P($G(TIUSC("IR")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+22
Function Call: WRITE
  • Prompt: !?3,"Environmental Contaminants? ",$S($G(TIUSC("EC"))]"":$P($G(TIUSC("EC")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+23
Function Call: WRITE
  • Prompt: !?3,"MST? ",$S($G(TIUSC("MST"))]"":$P($G(TIUSC("MST")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+24
Function Call: WRITE
  • Prompt: !?3,"Head and/or Neck Cancer? ",$S($G(TIUSC("HNC"))]"":$P($G(TIUSC("HNC")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+25
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFIRM+26
Function Call: WRITE
  • Prompt: !!,"Please Indicate the Diagnoses for which "_TIUPNM_" was Seen:"
  • Line Location: ICD+3
Function Call: WRITE
  • Prompt: ?((J-1)*25)
  • Line Location: ICD+9
Function Call: WRITE
  • Prompt: $J($P(TIUICDAR(TIUI,J),U),2)_" "
  • Condition for execution: +$P(TIUICDAR(TIUI,J),U)
  • Line Location: ICD+9
Function Call: WRITE
  • Prompt: $E($P(TIUICDAR(TIUI,J),U,3),1,20)
  • Line Location: ICD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD+12
Function Call: WRITE
  • Prompt: !!,"Please indicate which of the Diagnoses is the Primary Diagnosis:",!
  • Line Location: PRMAGN+0
Function Call: WRITE
  • Prompt: !!?3,$C(7),"You must specify a Primary Diagnosis."
  • Line Location: PRMAGN+6
Function Call: WRITE
  • Prompt: !,$C(7),"You must install LEXICON UTILITY v2.0 for this function to work...Contact IRM.",!
  • Line Location: ICDOUT+9
Function Call: WRITE
  • Prompt: !,$C(7),"ICD CODE NOT FOUND FOR EXPRESSION."
  • Line Location: ICDOUT+20
Function Call: WRITE
  • Prompt: $C(7),!!,"Nothing found for ",X,"..."
  • Line Location: ICDOUT+23
Function Call: WRITE
  • Prompt: !,$C(7),"You must install LEXICON UTILITY v2.0 for this function to work...Contact IRM.",!
  • Line Location: ICDOUT+30
Function Call: WRITE
  • Prompt: $C(7),!!,"Nothing found for ",X,"..."
  • Line Location: ICDOUT+41
Function Call: WRITE
  • Prompt: !
  • Line Location: PROVLIST+2
Function Call: WRITE
  • Prompt: !,$C(7)," Selected user is not a known PROVIDER. Please choose another..."
  • Line Location: ASKPR+3
Routine Call
  • DIC
  • Line Location:
    • ICDOUT+15
    • ICDOUT+34
    • ASKDOC+4

Label References

Name Line Occurrences
$$ASKDOC ASKPR
$$CONFIRM INSUFF+3
$$CSYSINFO REENTER+5
$$DFLTDOC PROVLIST+4
ASKPR ASKPR+2
ASKPRMRY ICD+27
CPTCALL CPTCALL+1
GETICD REENTER+7
ICD ICDCALL
ICDCALL ICDCALL+1
ICDOUT ICD+23, ICD+26
INSUFF ICDCALL, CPTCALL
POST INSUFF
PRMAGN PRMAGN+6
PROVLIST REENTER+3
REENTER INSUFF+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRY2 GETICD+1~
ARRY2( GETICD+6, GETICD+7, GETICD+9, GETICD+10!, GETICD+12, GETICD+14!
ARRY2(0 GETICD+17, GETICD+21
CODE ICDOUT+1~, ICDOUT+17*, ICDOUT+18, ICDOUT+19, ICDOUT+22, ICDOUT+36*, ICDOUT+37, ICDOUT+38, ICDOUT+40
CODENO CONFIRM+1~, CONFIRM+6*, CONFIRM+7
CODSYSNO CONFIRM+1~, CONFIRM+7*
CPT POST~, POST+1*
CSIEN CSYSINFO+3~
CSYS CONFIRM+1~, CONFIRM+6*, CONFIRM+7
CSYSIEN ICDOUT+1~, ICDOUT+2*, ICDOUT+19, ICDOUT+38
CSYSINFO CREDIT+1~, REENTER+5*, ICDCALL, ICD~, ICD+20, ICD+23, ICD+26, ICDOUT~, ICDOUT+2, ICDOUT+6
DATE CSYSINFO~, CSYSINFO+5*, CSYSINFO+6
DFLT PROVLIST+1~*, PROVLIST+4*, PROVLIST+5, PROVLIST+6*, PROVLIST+7*, ASKPR, ASKDOC~, ASKDOC+3
DFN CREDIT~, CPTCALL+3, ICD+2
DIC ICDOUT+1~, ASKDOC+1~, ASKDOC+2*
DIC("A" ICDOUT+13*, ICDOUT+33*, ASKDOC+2*
DIC("B" ICDOUT+14!, ASKDOC+3*
DIC(0 ICDOUT+12*, ASKDOC+2*
DT PROVLIST+7, ASKPR+2
DTOUT CREDIT+1~, ICDCALL, ICDCALL+1, CPTCALL, CPTCALL+1, INSUFF, POST+3, ICD+7, ICD+14, ICD+17
, ICD+24, ICD+28, ICDOUT+16, ICDOUT+35
DUOUT ICDOUT+16, ICDOUT+35, PROVLIST+1~
DUZ PROVLIST+5, PROVLIST+7, ASKPR+4, ASKPR+5
HLOC DFLTDOC~, DFLTDOC+2
ICD POST~, POST+1*
IMPDT CSYSINFO+3~, CSYSINFO+6*, CSYSINFO+7, CSYSINFO+8
INTFACE GETICD+1~, GETICD+3*, GETICD+4
ITEM ICD+17~, ICD+18*, ICD+19, ICD+20, ICD+21
J ICD+1~, ICD+6*, ICD+8*, ICD+9, ICD+10
L ICD+1~, ICD+6*, ICD+13*, ICD+15, ASKPRMRY+1~, PRMAGN+1*, PRMAGN+4*, PRMAGN+5
NOW CSYSINFO+3~, CSYSINFO+4*, CSYSINFO+5
NSID ICDOUT+1~, ICDOUT+2*, ICDOUT+6*, ICDOUT+7, ICDOUT+17, ICDOUT+28, ICDOUT+36
PRIMARY PROVLIST+1~, ASKPR*, ASKPR+1, ASKPR+2, ASKPR+5, ASKPR+6
PROVLIST PROVLIST~
PROVLIST(1 PROVLIST+5*, ASKPR+4*, ASKPR+5*, ASKPR+6*
PROVLIST(2 ASKPR+6*
PXBPMT DFLTDOC+1~
PXBPMT("DEF" DFLTDOC+3
SC POST~, POST+1*
SSID ICDOUT+1~, ICDOUT+2*, ICDOUT+6*, ICDOUT+7, ICDOUT+28
TIU CREDIT~, CPTCALL+3
TIU("EDT" REENTER+2
TIU("LOC" REENTER+7, ICDCALL+4
TIU("PID" REENTER+1
TIU("PNM" REENTER, REENTER+1, ICD+2
TIU("VLOC" PROVLIST+4
TIU("VSTR" CREDIT+3, CREDIT+5, REENTER+4
TIUAICD CREDIT+1~, ICDCALL, ICDCALL+1, INSUFF+3, INSUFF+6!, POST+1, CONFIRM~, ICD~, ICD+23, ICD+26
, ICD+27, ASKPRMRY~, ICDOUT~
TIUAICD( CONFIRM+5, CONFIRM+6, CONFIRM+8, CONFIRM+9, CONFIRM+10, CONFIRM+11, ICD+21*, PRMAGN+1, PRMAGN+2, PRMAGN+7*
, ICDOUT+21, ICDOUT+22*, ICDOUT+39, ICDOUT+40*
TIUAICD(0 INSUFF
TIUAICD(1 ICD+27, ICD+29*
TIUCAT GETICD+1~*, GETICD+9, GETICD+10, GETICD+12*, GETICD+13
TIUCOL GETICD+1~, GETICD+5*, GETICD+9, GETICD+13, GETICD+15, GETICD+16*, GETICD+19, GETICD+22, GETICD+23*
TIUCPT CREDIT+1~, CPTCALL, CPTCALL+1, INSUFF+3, INSUFF+6!, POST+1, CONFIRM~, CONFIRM+17
TIUCPT( CONFIRM+14, CONFIRM+15
TIUCPT(0 INSUFF
TIUCPTAR CREDIT+1~, ICDCALL+4, CPTCALL, CPTCALL+2!, INSUFF+6!, INSUFF+7!
TIUI CONFIRM+1~, CONFIRM+4*, CONFIRM+5*, CONFIRM+6, CONFIRM+8, CONFIRM+9, CONFIRM+10, CONFIRM+11, CONFIRM+13*, CONFIRM+14*
, CONFIRM+15, CONFIRM+17, GETICD+1~, GETICD+5*, GETICD+6*, GETICD+7, GETICD+9, GETICD+10, GETICD+12, GETICD+14
, ICD+1~, ICD+6*, ICD+7*, ICD+8, ICD+9, ICD+10, ICD+12, ICD+13, ICD+17~*, ICD+18
, ICD+21, ICD+23, ASKPRMRY+1~, PRMAGN+1*, PRMAGN+2, PRMAGN+3, PRMAGN+4, ICDOUT~, ICDOUT+21*, ICDOUT+22
, ICDOUT+39*, ICDOUT+40
TIUICD ICD+1~, ICD+20*, ICD+21, ICDOUT+1~, ICDOUT+19*, ICDOUT+20, ICDOUT+22, ICDOUT+38*, ICDOUT+40
TIUICDAR CREDIT+1~, REENTER+7, ICDCALL, ICDCALL+2!, INSUFF+6!, INSUFF+7!, GETICD~, ICD~, ICDOUT+13
TIUICDAR( GETICD+9*, GETICD+13*, GETICD+19*, ICD+7, ICD+8, ICD+9, ICD+10
TIUICDAR("INDEX" GETICD+10*, GETICD+20*, ICD+16, ICD+19, ICD+20, ICD+21
TIUICDAR(0 GETICD+21*, ICD+4, ICD+5, ICDOUT+13
TIUICNT ICD+1~, ICD+5*, ICD+6
TIUITM GETICD+1~, GETICD+5*, GETICD+8*, GETICD+9, GETICD+10, GETICD+18*, GETICD+19, GETICD+20, ICD+1~, ICD+10*
, ICD+11, ICD+13
TIULITM ICD+1~, ICD+11*, ICD+12, ICD+13*, ICD+15
TIULOC GETICD~, GETICD+4
TIUOK CREDIT+1~, INSUFF+3*, INSUFF+4
TIUOUT ICDOUT+1~, ICDOUT+3, ICDOUT+11*, ICDOUT+16*, ICDOUT+24, ICDOUT+32*, ICDOUT+35*
TIUPAGE GETICD+1~, GETICD+5*, GETICD+15*, GETICD+16, GETICD+21, GETICD+22*, GETICD+23
TIUPG ICD+1~, ICD+6*, ICD+12*
TIUPGS ICD+1~, ICD+5*, ICD+12
TIUPNM ICD+1~, ICD+2*, ICD+3, DFLTDOC+1~, DFLTDOC+3*
TIUPRLST CREDIT+1~, REENTER+3
>> TIUPRM0 PROVLIST+3, PROVLIST+4
TIUROW GETICD+1~, GETICD+5*, GETICD+8*, GETICD+9, GETICD+12*, GETICD+13, GETICD+15, GETICD+16*, GETICD+18*, GETICD+19
, GETICD+21, GETICD+22, GETICD+23*
TIUSC CREDIT+1~, CPTCALL+3, INSUFF+3, INSUFF+6!, POST+1, CONFIRM~, CONFIRM+18
TIUSC("AO" CONFIRM+21
TIUSC("EC" CONFIRM+23
TIUSC("HNC" CONFIRM+25
TIUSC("IR" CONFIRM+22
TIUSC("MST" CONFIRM+24
TIUSC("SC" CONFIRM+20, CONFIRM+21, CONFIRM+22, CONFIRM+23
TIUSC(0 INSUFF
TIUVDT REENTER+4~*, REENTER+5, REENTER+7, ICDCALL, ICDCALL+4, CPTCALL, GETICD~, GETICD+4, ICD~, ICD+20
, ICD+23, ICD+26, ICDOUT~, ICDOUT+7, ICDOUT+19, ICDOUT+28, ICDOUT+38
TIUY CONFIRM+1~*, CONFIRM+26*, CONFIRM+27
U REENTER+2, CONFIRM+6, CONFIRM+9, CONFIRM+10, CONFIRM+11, CONFIRM+15, CONFIRM+21, CONFIRM+22, CONFIRM+23, CONFIRM+24
, CONFIRM+25, GETICD+7, GETICD+9, GETICD+10, GETICD+12, GETICD+13, GETICD+21, ICD+5, ICD+9, ICD+12
, ICD+15, ICD+16, ICD+19, ICD+20, ICD+21, PRMAGN+2, PRMAGN+3, PRMAGN+5, ICDOUT+2, ICDOUT+6
, ICDOUT+22, ICDOUT+40, PROVLIST+3, PROVLIST+4, PROVLIST+6, DFLTDOC+3
>> VALMAR REENTER
VSIT CREDIT~
X ICDOUT+1~, ICDOUT+14~, ICDOUT+16, ICDOUT+23, ICDOUT+25~, ICDOUT+35, ICDOUT+41, ASKDOC+1~, CSYSINFO+3~, CSYSINFO+4!
, CSYSINFO+7
X1 CSYSINFO+3~, CSYSINFO+6*
X2 CSYSINFO+3~, CSYSINFO+6*
Y ICD+1~, ICD+6*, ICD+12*, ICD+15*, ICD+16, ICD+17, ICD+18, ASKPRMRY+1~, PRMAGN+1*, PRMAGN+3*
, PRMAGN+5*, PRMAGN+6, PRMAGN+7, ICDOUT+1~, ICDOUT+22, ICDOUT+24, ICDOUT+40, ASKDOC+1~, ASKDOC+5, DFLTDOC+1~*
, DFLTDOC+3*, DFLTDOC+4
Y(1 ICDOUT+17, ICDOUT+36
Y(30 ICDOUT+17, ICDOUT+36

Marked Items

Name Field # of Occurrence
$T(CONFIG^LEXSET ICDOUT+4, ICDOUT+26
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All