Routine: TIUPXAPI

Information

TIUPXAPI ; SLC/JER - Interface w/PCE/Visit Tracking ;23-Jan-2014 17:17;DU

Source Information

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

Customize PDF page

Package: Text Integration Utility

Routine: TIUPXAPI

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Marked Items