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 ;23-Jan-2014 17:17;DU

Source Information

Source file <TIUPXAPI.m>

Call Graph

Call Graph Total: 12

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  
DRG Grouper 1 $$CODEN^ICDCODE  
Kernel 1 $$UP^XLFSTR  
Lexicon Utility 1 CONFIG^LEXSET  
PCE Patient Care Encounter 1 PRV^PXBUTL2  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Text Integration Utility 4 TIUPXAP1  TIUPXAP2  TIUSRVP1  TIUVSIT  
Care Management 1 ORRCTIU  

Entry Points

Name Comments DBIA/ICR reference
ASKDOC(DFLT) ; Call ^DIC to look-up provider
ICDOUT(TIUAICD,TIUI,TIUVDT) ; Go off-list for Dx
GETICD(TIULOC,TIUICDAR,TIUVDT) ; Get ICD-9 codes for clinic
DFLTDOC(HLOC) ; Get the default Provider
ICD(TIUAICD,TIUICDAR,TIUVDT) ; Select Dx's
PROVLIST(PROVLIST) ; Identify primary provider
CREDIT(DFN,TIU,VSIT) ; Get Dx, CPT, (& SC) for the CMD's mandate
REENTER
ASKPRMRY(TIUAICD) ; Which Dx is Primary
ASKPR
POST
ICDCALL
CPTCALL
PRMAGN
CONFIRM(TIUAICD,TIUCPT,TIUSC) ; Show user and confirm
INSUFF

External References

Name Field # of Occurrence
^DIC ICDOUT+13, ICDOUT+34, ASKDOC+4
$$CODEN^ICDCODE ICD+21, ICDOUT+17, ICDOUT+19, ICDOUT+38
CONFIG^LEXSET ICDOUT+3, ICDOUT+5, ICDOUT+26, ICDOUT+28
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+13
SCASK^TIUPXAPS CPTCALL+3
$$READ^TIUU CONFIRM+22, ICDOUT+8, ICDOUT+31
$$UP^XLFSTR GETICD+13

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,$P(TIUAICD(TIUI),U,2),?12,$E($P(TIUAICD(TIUI),U,3),1,67)
  • Line Location: CONFIRM+6
Function Call: WRITE
  • Prompt: !!,"PROCEDURES:"
  • Line Location: CONFIRM+8
Function Call: WRITE
  • Prompt: !?3,$P(TIUCPT(TIUI),U,4),?12,$E($P(TIUCPT(TIUI),U,2),1,67)
  • Line Location: CONFIRM+11
Function Call: WRITE
  • Prompt: !!,"SERVICE CONNECTION:"
  • Line Location: CONFIRM+15
Function Call: WRITE
  • Prompt: !?3,"Service Connected? ",$S(+$G(TIUSC("SC")):"YES",1:"NO")
  • Line Location: CONFIRM+16
Function Call: WRITE
  • Prompt: !?3,"Agent Orange? ",$S($G(TIUSC("AO"))]"":$P($G(TIUSC("AO")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+17
Function Call: WRITE
  • Prompt: !?3,"Ionizing Radiation? ",$S($G(TIUSC("IR"))]"":$P($G(TIUSC("IR")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+18
Function Call: WRITE
  • Prompt: !?3,"Environmental Contaminants? ",$S($G(TIUSC("EC"))]"":$P($G(TIUSC("EC")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+19
Function Call: WRITE
  • Prompt: !?3,"MST? ",$S($G(TIUSC("MST"))]"":$P($G(TIUSC("MST")),U,2),1:"NOT ANSWERED")
  • Line Location: CONFIRM+20
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+21
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFIRM+22
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+7
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+13
    • ICDOUT+34
    • ASKDOC+4

Label References

Name Line Occurrences
$$ASKDOC ASKPR
$$CONFIRM INSUFF+3
$$DFLTDOC PROVLIST+4
ASKPR ASKPR+2
ASKPRMRY ICD+28
CPTCALL CPTCALL+1
GETICD REENTER+6
ICD ICDCALL
ICDCALL ICDCALL+1
ICDOUT ICD+24, ICD+27
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+7, GETICD+8, GETICD+10, GETICD+11!, GETICD+13, GETICD+15!
ARRY2(0 GETICD+18, GETICD+22
CPT POST~, POST+1*
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+11*, ICDOUT+33*, ASKDOC+2*
DIC("B" ICDOUT+12!, ASKDOC+3*
DIC(0 ICDOUT+10*, 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+25, ICD+29, ICDOUT+14, ICDOUT+35
DUOUT ICDOUT+14, ICDOUT+35, PROVLIST+1~
DUZ PROVLIST+5, PROVLIST+7, ASKPR+4, ASKPR+5
HLOC DFLTDOC~, DFLTDOC+2
ICD POST~, POST+1*
ITEM ICD+17~, ICD+18*, ICD+19, ICD+21, ICD+22
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
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*
TIU CREDIT~, CPTCALL+3
TIU("EDT" REENTER+2
TIU("LOC" REENTER+6, 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+24, ICD+27
, ICD+28, ASKPRMRY~, ICDOUT~
TIUAICD( CONFIRM+5, CONFIRM+6, CONFIRM+7, ICD+22*, PRMAGN+1, PRMAGN+2, PRMAGN+7*, ICDOUT+21, ICDOUT+22*, ICDOUT+39
, ICDOUT+40*
TIUAICD(0 INSUFF
TIUAICD(1 ICD+28, ICD+30*
TIUCAT GETICD+1~*, GETICD+10, GETICD+11, GETICD+13*, GETICD+14
TIUCOL GETICD+1~, GETICD+6*, GETICD+10, GETICD+14, GETICD+16, GETICD+17*, GETICD+20, GETICD+23, GETICD+24*
TIUCPT CREDIT+1~, CPTCALL, CPTCALL+1, INSUFF+3, INSUFF+6!, POST+1, CONFIRM~, CONFIRM+13
TIUCPT( CONFIRM+10, CONFIRM+11
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+7, CONFIRM+9*, CONFIRM+10*, CONFIRM+11, CONFIRM+13, GETICD+1~
, GETICD+6*, GETICD+7*, GETICD+8, GETICD+10, GETICD+11, GETICD+13, GETICD+15, ICD+1~, ICD+6*, ICD+7*
, ICD+8, ICD+9, ICD+10, ICD+12, ICD+13, ICD+17~*, ICD+18, ICD+22, ICD+24, ASKPRMRY+1~
, PRMAGN+1*, PRMAGN+2, PRMAGN+3, PRMAGN+4, ICDOUT~, ICDOUT+21*, ICDOUT+22, ICDOUT+39*, ICDOUT+40
TIUICD ICD+1~, ICD+21*, ICD+22, ICDOUT+1~, ICDOUT+17*, ICDOUT+19*, ICDOUT+20, ICDOUT+22, ICDOUT+38*, ICDOUT+40
TIUICDAR CREDIT+1~, REENTER+6, ICDCALL, ICDCALL+2!, INSUFF+6!, INSUFF+7!, GETICD~, ICD~, ICDOUT+11
TIUICDAR( GETICD+10*, GETICD+14*, GETICD+20*, ICD+7, ICD+8, ICD+9, ICD+10
TIUICDAR("INDEX" GETICD+11*, GETICD+21*, ICD+16, ICD+19, ICD+21, ICD+22
TIUICDAR(0 GETICD+22*, ICD+4, ICD+5, ICDOUT+11
TIUICNT ICD+1~, ICD+5*, ICD+6
TIUITM GETICD+1~, GETICD+6*, GETICD+9*, GETICD+10, GETICD+11, GETICD+19*, GETICD+20, GETICD+21, ICD+1~, ICD+10*
, ICD+11, ICD+13
TIULITM ICD+1~, ICD+11*, ICD+12, ICD+13*, ICD+15
TIULOC GETICD~
TIUOK CREDIT+1~, INSUFF+3*, INSUFF+4
TIUOUT ICDOUT+1~, ICDOUT+2, ICDOUT+9*, ICDOUT+14*, ICDOUT+24, ICDOUT+32*, ICDOUT+35*
TIUPAGE GETICD+1~, GETICD+6*, GETICD+16*, GETICD+17, GETICD+22, GETICD+23*, GETICD+24
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+6*, GETICD+9*, GETICD+10, GETICD+13*, GETICD+14, GETICD+16, GETICD+17*, GETICD+19*, GETICD+20
, GETICD+22, GETICD+23, GETICD+24*
TIUSC CREDIT+1~, CPTCALL+3, INSUFF+3, INSUFF+6!, POST+1, CONFIRM~, CONFIRM+14
TIUSC("AO" CONFIRM+17
TIUSC("EC" CONFIRM+19
TIUSC("HNC" CONFIRM+21
TIUSC("IR" CONFIRM+18
TIUSC("MST" CONFIRM+20
TIUSC("SC" CONFIRM+16, CONFIRM+17, CONFIRM+18, CONFIRM+19
TIUSC(0 INSUFF
TIUVDT REENTER+4~*, REENTER+6, ICDCALL, ICDCALL+4, CPTCALL, GETICD~, ICD~, ICD+24, ICD+27, ICDOUT~
, ICDOUT+5, ICDOUT+28
TIUY CONFIRM+1~*, CONFIRM+22*, CONFIRM+23
U REENTER+2, CONFIRM+6, CONFIRM+11, CONFIRM+17, CONFIRM+18, CONFIRM+19, CONFIRM+20, CONFIRM+21, GETICD+8, GETICD+10
, GETICD+11, GETICD+13, GETICD+14, GETICD+22, ICD+5, ICD+9, ICD+12, ICD+15, ICD+16, ICD+19
, ICD+21, ICD+22, PRMAGN+2, PRMAGN+3, PRMAGN+5, ICDOUT+17, ICDOUT+19, ICDOUT+22, ICDOUT+38, ICDOUT+40
, PROVLIST+3, PROVLIST+4, PROVLIST+6, DFLTDOC+3
>> VALMAR REENTER
VSIT CREDIT~
X ICDOUT+1~, ICDOUT+12~, ICDOUT+14, ICDOUT+23, ICDOUT+25~, ICDOUT+35, ICDOUT+41, ASKDOC+1~
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+15, ICDOUT+17, ICDOUT+19, ICDOUT+22, ICDOUT+36, ICDOUT+38, ICDOUT+40

Marked Items

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