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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: TIUP134

Package: Text Integration Utility

Routine: TIUP134


Information

TIUP134 ;SLC/RMO - Post-Install for TIU*1*134 ;6/6/02@09:51:20

Source Information

Source file <TIUP134.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Text Integration Utility 7 $$CLASS^TIUCNSLT  ($$ISADDNDM,DOCPRM)^TIULC1  $$ISA^TIULX  MAIL^TIUP134P  $$WORKOK^TIUPXAP1  ($$CHKWKL,$$UPDVST)^TIUPXAP2  $$READ^TIUU  
Kernel 2 (,$$S)^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
PCE Patient Care Encounter 1 $$GETENC^PXAPI  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to queue a job to automatically link the missing VISIT
ENQ
ASKRNG(BEGDT,ENDT) ;Prompt for date range
; Input -- None
; Output -- 1=Successful and 0=Failure
; BEGDT Begin Date
; ENDT End Date
ASKRNGQ
LNKRNG ;Entry point to automatically link a document to a visit for
LNKRNGQ ;Send bulletin, re-set check point and clean up variables
LNKONE(TIUDA) ;Entry point to automatically link one document to visit
; Input -- TIUDA TIU Document file (#8925) IEN
; Output -- None
CHKDOC(TIUDA) ;Check if document can be auto-linked
; Input -- TIUDA TIU Document file (#8925) IEN
; Output -- 1=Can be linked and 0=Cannot be linked
CHKDOCQ
GETVST(TIUDA,TIUVSIT,TIUMVSTF) ;Get visit to associate with document
; Input -- TIUDA TIU Document file (#8925) IEN
; Output -- TIUVSIT Visit file (#9000010) IEN
; TIUMVSTF Multiple Visit Flag
; 1=Multiple Visits
GETVSTQ
SETXTMP(TIUDA,TIUEX,TIUVSIT) ;Set ^XTMP for entries processed
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUEX Unable to automatically link Exception types: (Optional)
; 1=Multiple Visits
; 2=Entry in Use
; 3=No Matching Visit
; TIUVSIT Visit file (#9000010) IEN (Optional)
; Output -- Set ^XTMP("TIUP134","LNK",TIUDA)=
; 1st piece= 1=Linked and 0=Not Linked
; 2nd piece= Exception type if not linked
; 3rd piece= Visit file (#9000010) IEN if linked
UPDKIDS(TIUDA,TIUVSIT) ;Update visit for kids that are addenda
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUVSIT Visit file (#9000010) IEN
; Output -- None

External References

Name Field # of Occurrence
^%ZTLOAD EN+29
$$S^%ZTLOAD LNKRNG+32
$$GETENC^PXAPI GETVST+25
$$CLASS^TIUCNSLT CHKDOC+26
$$ISADDNDM^TIULC1 GETVST+15, UPDKIDS+7
DOCPRM^TIULC1 CHKDOC+8
$$ISA^TIULX CHKDOC+26
MAIL^TIUP134P LNKRNGQ+4
$$WORKOK^TIUPXAP1 CHKDOC+29
$$CHKWKL^TIUPXAP2 CHKDOC+29
$$UPDVST^TIUPXAP2 LNKONE+11, UPDKIDS+8
$$READ^TIUU ASKRNG+7, ASKRNG+9
$$FMADD^XLFDT LNKRNG+15
$$NOW^XLFDT LNKRNG+21, LNKRNGQ+1, LNKRNGQ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PATCH TIU*1*134"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Automatically Link the missing VISIT field for a date range of documents"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Documents must meet the following criteria to be linked:"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"- Date range cannot be before 10/1/98 or after 7/31/02"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"- Entry Date/Time is within the selected date range"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"- No visit has been associated with the document"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"- A visit exists to be associated with the document"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"- The capture method is direct or remote"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"- The status is uncosigned or completed or amended"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"- The document is under the progress notes class or consults"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"- The document has a signature date/time"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"- Workload data should be collected for the document"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!," Special Note about Parameters:",!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !," The 'ASK DX/CPT ON ALL OPT VISITS' TIU Document parameter"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !," is not date sensitive so collecting workload is based on"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !," the value of this parameter at the time this routine is"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !," invoked rather than at the time the visit was created."
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !!,"A task has been queued in the background and a bulletin will be sent"
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !,"to you upon completion of the task or if the task is stopped."
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !,"Please only run one date range at a time."
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !!,"The task number is "_$G(ZTSK)_"."
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !!,"Please specify a date range:"
  • Line Location: ASKRNG+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] GETVST+22
^PX(815 - [#815] CHKDOC+23
^TIU(8925 - [#8925] LNKRNG+25, LNKRNG+28, LNKONE+6, CHKDOC+7, CHKDOC+11, CHKDOC+17, CHKDOC+23, GETVST+9, GETVST+11, GETVST+16
, GETVST+20, GETVST+21, UPDKIDS+6, UPDKIDS+7
^XTMP("TIUP134" LNKRNG+11, LNKRNG+12, LNKRNG+15*, LNKRNG+16*, LNKRNG+17*, LNKRNG+18*, LNKRNG+19*, LNKRNG+20!, LNKRNG+21*, LNKRNG+30*
, LNKRNGQ+1*, LNKRNGQ+2*, LNKRNGQ+6*, LNKONE+23*, SETXTMP+12*, SETXTMP+13*, SETXTMP+14*, SETXTMP+16*, SETXTMP+17*

Label References

Name Line Occurrences
$$ASKRNG EN+23
$$CHKDOC LNKONE+6
ASKRNGQ ASKRNG+8, ASKRNG+10
CHKDOCQ CHKDOC+11, CHKDOC+14, CHKDOC+17, CHKDOC+20, CHKDOC+23, CHKDOC+26
ENQ EN+23
GETVST LNKONE+8
GETVSTQ GETVST+15, GETVST+20
LNKONE LNKRNG+28
LNKRNGQ LNKRNG+8
SETXTMP LNKONE+13, LNKONE+18, LNKONE+22, UPDKIDS+9, UPDKIDS+11
UPDKIDS LNKONE+15

Naked Globals

Name Field # of Occurrence
^(0 LNKONE+6, GETVST+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT ASKRNG~, ASKRNG+7*, ASKRNG+8, ASKRNG+9
DIRUT ASKRNG+5~, ASKRNG+8, ASKRNG+10
DT LNKRNG+15
DTOUT ASKRNG+5~
DUOUT ASKRNG+5~
ENDT ASKRNG~, ASKRNG+9*, ASKRNG+10
TIUBEGDT EN+2~, EN+23, LNKRNG+8, LNKRNG+19, LNKRNG+24, LNKRNGQ+7!
TIUD0 CHKDOC+3~, CHKDOC+7*, CHKDOC+8, CHKDOC+14, CHKDOC+26, GETVST+6~, GETVST+9*, GETVST+10, GETVST+12, GETVST+16
TIUDA LNKRNG+5~, LNKRNG+27*, LNKRNG+28*, LNKONE~, LNKONE+6, LNKONE+8, LNKONE+11, LNKONE+13, LNKONE+15, LNKONE+18
, LNKONE+22, CHKDOC~, CHKDOC+7, CHKDOC+11, CHKDOC+17, CHKDOC+23, CHKDOC+29, GETVST~, GETVST+9, GETVST+11
, GETVST+15, SETXTMP~, SETXTMP+12, SETXTMP+16, UPDKIDS~, UPDKIDS+6
TIUDFN GETVST+6~, GETVST+10*, GETVST+20, GETVST+21, GETVST+22, GETVST+25
TIUDPRM CHKDOC+3~, CHKDOC+8, CHKDOC+29
TIUDPRM(0 CHKDOC+20
TIUDT LNKRNG+5~, LNKRNG+24*, LNKRNG+25*, LNKRNG+28, LNKRNG+30
TIUEDT GETVST+6~, GETVST+10*, GETVST+12, GETVST+25
TIUENDT EN+2~, EN+23, LNKRNG+8, LNKRNG+19, LNKRNG+25, LNKRNGQ+7!
TIUEX LNKONE+3~, LNKONE+21*, LNKONE+22, SETXTMP~, SETXTMP+11, SETXTMP+12, SETXTMP+13
TIUHL GETVST+6~, GETVST+11*, GETVST+12, GETVST+25
TIUKID UPDKIDS+4~, UPDKIDS+5*, UPDKIDS+6*, UPDKIDS+7, UPDKIDS+8, UPDKIDS+9, UPDKIDS+11
TIUMVSTF LNKONE+3~, LNKONE+8, LNKONE+10, LNKONE+21, GETVST~, GETVST+29*
TIURSTDT LNKRNG+5~, LNKRNG+12*, LNKRNG+24, LNKRNGQ+7!
TIUS LNKRNG+5~, LNKRNG+16*
TIUVSIT LNKONE+3~, LNKONE+8, LNKONE+10, LNKONE+11, LNKONE+13, LNKONE+15, GETVST~, GETVST+16*, GETVST+20, GETVST+21*
, GETVST+22*, GETVST+26*, SETXTMP~, SETXTMP+16, UPDKIDS~, UPDKIDS+8, UPDKIDS+9
TIUVSITS GETVST+6~, GETVST+25*, GETVST+26, GETVST+29
TIUVSTR GETVST+6~, GETVST+12*, GETVST+20, GETVST+21
U LNKRNG+12, LNKRNG+15, LNKRNG+19, LNKRNG+30, LNKONE+6, CHKDOC+11, CHKDOC+14, CHKDOC+20, CHKDOC+23, GETVST+10
, GETVST+11, GETVST+12, GETVST+16, GETVST+22, GETVST+29, SETXTMP+12, SETXTMP+16, UPDKIDS+7
Y ASKRNG+5~, ASKRNG+11*, ASKRNGQ, CHKDOC+3~, CHKDOC+6*, CHKDOC+29*, CHKDOCQ
ZTDESC EN+2~, EN+28*
ZTIO EN+2~, EN+27*
ZTRTN EN+2~, EN+27*
ZTSAVE EN+2~
ZTSAVE("DUZ" EN+27*
ZTSAVE("TIUBEGDT" EN+26*
ZTSAVE("TIUENDT" EN+26*
ZTSK EN+2~, EN+30, EN+34
>> ZTSTOP LNKRNG+25, LNKRNG+32*, LNKRNGQ+1, LNKRNGQ+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All