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

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

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
Info |  Source |  Entry Points |  Interaction Calls