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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: TIUPXAP2

Package: Text Integration Utility

Routine: TIUPXAP2


Information

TIUPXAP2 ; SLC/JER - More code for the workload capture ;12/4/02@07:54:52 [1/18/05 9:27am]

Source Information

Source file <TIUPXAP2.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Text Integration Utility 8 $$PATIENT^TIULA  GETTIU^TIULD  $$WORKOK^TIUPXAP1  (CPT,GETCPT)^TIUPXAPC  ($$CONFIRM,GETICD,ICD)^TIUPXAPI  SCASK^TIUPXAPS  $$READ^TIUU  $$SELLOC^TIUVSIT  
PCE Patient Care Encounter 3 ($$GETENC,$$INTV,$$VST2APPT)^PXAPI  ENCEVENT^PXKENC  $$APPOINT^PXUTL1  
RPC Broker 1 $$BROKER^XWBLIB  
Registration 1 FULL^VALM1  
Scheduling 1 $$SDAPI^SDAMA301  
VA Fileman 1 FILE^DIE  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Text Integration Utility 11 TIUHL7U2  TIUP134  TIUP149  TIUP188  TIUPXAP3  TIUPXAPC  TIUPXAPI  TIURA1  
TIURD3  TIURS  TIUVISIT  
Order Entry Results Reporting 1 ORWPCE2  

Entry Points

Name Comments DBIA/ICR reference
CHKWKL(TIUDA,TIUDPRM) ;Check if workload data should be entered
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUDPRM TIU Document Parameters file (#8925.95) Array
; Output -- 1=Enter Workload and 0=Do Not Enter Workload
PICK(LOW,HIGH,PROMPT,TYPE) ; List selection
CHKAPPT(TIUVSIT,TIUDFN,TIUEDT,TIUHL) ;Check if an appointment is associated with the Visit
; Input -- TIUVSIT Visit file (#9000010) IEN
; TIUDFN Patient file (#2) IEN
; TIUEDT Episode Begin Date/Time
; TIUHL Hospital Location file (#44) IEN
; Output -- 0=Appointment is not associated with the Visit
; 1=Appointment is associated with the Visit
CHKVST(TIUDA) ;Check the visit associated with the document for key workload
CHKVSTQ
CHKWKLQ
UPDVSTQ
CMBLST(EMCODES,CPTCODES) ; Combine E/M and other CPT codes
TEST ; Test the PXAPI Data Capture dialogs
EDTENC(TIUDA,CHNG) ; Edit the encounter for a given note
CPTCALL
UPDVST(TIUDA,TIUVSIT,ERROR) ;Update Visit in TIU Document file #8925
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUVSIT Visit file (#9000010) IEN
; Output -- 1=Successful and 0=Failure
; ERROR Error Message (Optional)

External References

Name Field # of Occurrence
FILE^DIE UPDVST+13
$$GETENC^PXAPI EDTENC+18, CHKVST+18
$$INTV^PXAPI EDTENC+41
$$VST2APPT^PXAPI CHKAPPT+9
ENCEVENT^PXKENC CHKVST+16
$$APPOINT^PXUTL1 CHKAPPT+11
$$SDAPI^SDAMA301 CHKWKL+29
$$PATIENT^TIULA TEST+2
GETTIU^TIULD EDTENC+32
$$WORKOK^TIUPXAP1 EDTENC+11
CPT^TIUPXAPC CPTCALL
GETCPT^TIUPXAPC TEST+6
$$CONFIRM^TIUPXAPI CPTCALL+6
GETICD^TIUPXAPI TEST+4
ICD^TIUPXAPI TEST+5
SCASK^TIUPXAPS CPTCALL+2
$$READ^TIUU PICK+3, EDTENC+30, EDTENC+38, EDTENC+46
$$SELLOC^TIUVSIT TEST+3
FULL^VALM1 EDTENC+5
$$BROKER^XWBLIB CHKWKL+20, CHKAPPT+8

Interaction Calls

Name Line Occurrences
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: CPTCALL+4
Function Call: WRITE
  • Prompt: !,"Missing information will have to be captured by another method."
  • Line Location: CPTCALL+5
Function Call: WRITE
  • Prompt: !!,"Changes Discarded. Please Enter Corrected Workload Data..."
  • Line Location: CPTCALL+8
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: CPTCALL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PICK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDTENC+26
Function Call: WRITE
  • Prompt: !!,"For ",$G(TIU("PNM"))," ",$G(TIU("PID"))," Visit on "
  • Line Location: EDTENC+33
Function Call: WRITE
  • Prompt: $P($G(TIU("EDT")),U,2),"...",!
  • Line Location: EDTENC+34
Function Call: WRITE
  • Prompt: !!,$C(7),"ACRP will not accept data for future Encounters.",!
  • Line Location: EDTENC+36
Function Call: WRITE
  • Prompt: !,"Workload questions won't be asked for this note.",!
  • Line Location: EDTENC+37
Function Call: WRITE
  • Prompt: !!,"Editing Encounter Data...",!
  • Line Location: EDTENC+39
Function Call: WRITE
  • Prompt: !
  • Line Location: EDTENC+46
Routine Call
  • DIE
  • Line Location:
    • UPDVST+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] EDTENC+8
^SD(409.63 - [#409.63] CHKWKL+35
^TIU(8925 - [#8925] EDTENC+6, EDTENC+48, CHKVST+10, CHKVST+12, UPDVST+12, UPDVST+13, CHKWKL+7, CHKWKL+9
^TMP("PXKENC" EDTENC+25!, CHKVST+27, CHKVST+30, CHKVSTQ!
^TMP($J CHKWKL+30!, CHKWKL+31, CHKWKL+32!

Label References

Name Line Occurrences
$$CHKAPPT EDTENC+40, CHKWKL+12
$$UPDVST EDTENC+24, EDTENC+48
CHKVSTQ CHKVST+10, CHKVST+23, CHKVST+27
CHKWKLQ CHKWKL+7, CHKWKL+16, CHKWKL+20
CPTCALL CPTCALL+1
TEST CPTCALL+7
UPDVSTQ UPDVST+8

Naked Globals

Name Field # of Occurrence
^("CPT" CHKVST+27
^("POV" CHKVST+27
^(12 EDTENC+6
^(800 CHKVST+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHNG EDTENC~, EDTENC+49*
CPT TEST+1~, CPTCALL, CPTCALL+1, CPTCALL+6, CPTCALL+9!
CPT(0 CPTCALL+3
CPTARR TEST+1~, TEST+6, CPTCALL, CPTCALL+9!, CPTCALL+10!
CPTCODES CMBLST~, CMBLST+7!, CMBLST+8*
CPTCODES( CMBLST+3, CMBLST+4, CMBLST+6
DA EDTENC+2~
DFN TEST+1~, TEST+2*, CPTCALL+2
DIERR UPDVST+5~, UPDVST+14
DT EDTENC+35
DTOUT TEST+1~, CPTCALL+1, CPTCALL+3
EMCODES CMBLST~, CMBLST+2
EMCODES(0 CMBLST+2
ERROR UPDVST~, UPDVST+14*, UPDVST+15
HIGH PICK~, PICK+3
I CHKVST+7~, CHKVST+31*
ICD TEST+1~, TEST+5, CPTCALL+6, CPTCALL+9!
ICD(0 CPTCALL+3
ICDARR TEST+1~, TEST+4, TEST+5, CPTCALL+9!, CPTCALL+10!
LOW PICK~, PICK+3
OKF UPDVST+5~, UPDVST+15*, UPDVST+17*, UPDVSTQ
PROMPT PICK~, PICK+1*, PICK+3
SC TEST+1~, CPTCALL+2, CPTCALL+6, CPTCALL+9!
SC(0 CPTCALL+3
STATUS CHKWKL+4~, CHKWKL+31*, CHKWKL+35
TIU TEST+1~, CPTCALL+2, EDTENC+32~
TIU("EDT" EDTENC+34
TIU("LOC" TEST+3*, TEST+4, TEST+6
TIU("PID" EDTENC+33
TIU("PNM" EDTENC+33
TIUAPPTF CHKWKL+4~, CHKWKL+12*, CHKWKL+16, CHKAPPT+7~, CHKAPPT+9*, CHKAPPT+11*, CHKAPPT+12
TIUARRAY CHKWKL+4~, CHKWKL+29
TIUARRAY("FLDS" CHKWKL+27*
TIUARRAY("MAX" CHKWKL+28*
TIUARRAY("SORT" CHKWKL+26*
TIUARRAY(1 CHKWKL+23*
TIUARRAY(2 CHKWKL+24*
TIUARRAY(4 CHKWKL+25*
TIUCHKF CHKVST+7~, CHKVST+10*, CHKVST+20*, CHKVST+23, CHKVST+27*, CHKVST+31*, CHKVSTQ+1
TIUCNT CHKWKL+4~, CHKWKL+29*, CHKWKL+30
TIUCONT EDTENC+2~, EDTENC+29, EDTENC+30*
TIUD0 EDTENC+1~, EDTENC+6*, EDTENC+13, EDTENC+35, CHKVST+7~, CHKVST+10*, CHKVST+11, CHKWKL+4~, CHKWKL+7*, CHKWKL+8
TIUD12 EDTENC+1~, EDTENC+6*, EDTENC+7
TIUDA EDTENC~, EDTENC+6, EDTENC+11, EDTENC+24, EDTENC+32, EDTENC+48, CHKVST~, CHKVST+10, CHKVST+12, UPDVST~
, UPDVST+11, UPDVST+12, UPDVST+13, CHKWKL~, CHKWKL+7, CHKWKL+9
TIUDFN EDTENC+1~, EDTENC+13*, EDTENC+18, EDTENC+40, EDTENC+41, CHKVST+7~, CHKVST+11*, CHKVST+18, CHKWKL+4~, CHKWKL+8*
, CHKWKL+12, CHKWKL+25, CHKWKL+31, CHKAPPT~, CHKAPPT+11
TIUDPRM CHKWKL~
TIUDPRM(0 EDTENC+4, EDTENC+29, CHKWKL+20
TIUEDT EDTENC+1~, EDTENC+13*, EDTENC+18, EDTENC+40, EDTENC+41, CHKVST+7~, CHKVST+11*, CHKVST+18, CHKWKL+4~, CHKWKL+8*
, CHKWKL+12, CHKWKL+23, CHKWKL+31, CHKAPPT~, CHKAPPT+11
TIUERR EDTENC+1~, EDTENC+24*, EDTENC+41*, EDTENC+45, EDTENC+48*
TIUFDA UPDVST+5~
TIUFDA(8925 UPDVST+11*
TIUHL EDTENC+1~, EDTENC+7*, EDTENC+8, EDTENC+18, EDTENC+40, EDTENC+41, CHKVST+7~, CHKVST+12*, CHKVST+18, CHKWKL+4~
, CHKWKL+9*, CHKWKL+12, CHKWKL+24, CHKAPPT~, CHKAPPT+11
TIUI CMBLST+1~*, CMBLST+2*, CMBLST+4*, CMBLST+6, EDTENC+1~
TIUINC CHKWKL+4~
TIUJ CMBLST+1~*, CMBLST+3*, CMBLST+4, CMBLST+6
TIUMVSTF EDTENC+14~, EDTENC+21*, EDTENC+23, EDTENC+29
TIUOK TEST+1~, CPTCALL+6*, CPTCALL+7
TIUPAUSE EDTENC+1~, EDTENC+38*, EDTENC+46*
TIURES CHKWKL+4~
TIUVSIT EDTENC+1~, EDTENC+13*, EDTENC+16, EDTENC+19*, EDTENC+23, EDTENC+24, EDTENC+29, EDTENC+40, EDTENC+41, EDTENC+48
, CHKVST+7~, CHKVST+11*, CHKVST+15, CHKVST+16, CHKVST+19*, CHKVST+23, CHKVST+27, CHKVST+30, UPDVST~, UPDVST+8
, UPDVST+11, CHKWKL+4~, CHKWKL+8*, CHKWKL+12, CHKAPPT~, CHKAPPT+8, CHKAPPT+9
TIUVSITS EDTENC+14~, EDTENC+18*, EDTENC+19, EDTENC+21, CHKVST+7~, CHKVST+18*, CHKVST+19, CHKVST+20
TIUWHAT EDTENC+1~, EDTENC+40*, EDTENC+41
TIUWKLF CHKWKL+4~, CHKWKL+16*, CHKWKL+30, CHKWKL+35*, CHKWKLQ
TMPARRY CMBLST+1~, CMBLST+2*, CMBLST+8
TMPARRY( CMBLST+4*, CMBLST+6*
TMPARRY(0 CMBLST+4*
TYPE PICK~, PICK+1*, PICK+3
U PICK+3, EDTENC+4, EDTENC+7, EDTENC+8, EDTENC+13, EDTENC+21, EDTENC+34, EDTENC+35, EDTENC+48, CHKVST+11
, CHKVST+12, CHKVST+20, CHKVST+31, CHKWKL+8, CHKWKL+9, CHKWKL+20, CHKWKL+31
>> VALMAR EDTENC+31, EDTENC+39
X PICK+1~, CHKVST+7~, CHKVST+30*, CHKVST+31
>> XWBOS EDTENC+3
Y PICK+1~, PICK+3*, PICK+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All