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

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

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