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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUCOPR

Package: Text Integration Utility

Routine: TIUCOPR


Information

TIUCOPR ;SLC/TDP - Copy/Paste Report ;Aug 03, 2021@15:08:29

Source Information

Source file <TIUCOPR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Start of Copy/Paste Tracking Report
SDT(SDT,SDTEXT,EXTALL,OSDT) ;Start Date Prompt
EDT(EDT,EDTEXT,EXTALL,SDT,OEDT) ;End Date Prompt
DIV(DIV,DIVEXT,EXTALL) ;Select Division
CLINIC(CLIN,CLINEXT,EXTALL) ;Select clinic to return results
PROVIDER(PROV,PROVEXT,EXTALL) ;Select provider to return results
SOURCE(SRC,SRCEXT,EXTALL) ;Select Source of pasted text
DIVLIST(DIV) ;List previously selected divisions
CLNLIST(CLIN) ;List previously selected hospital locations
PRVLIST(PROV) ;List previously selected providers
PRINT(CLIN,DIV,DUZ,EDT,PROV,SDT,SRC) ;Print the selected report
QUE ;Queue output
NOQUE(CLIN,DIV,DUZ,EDT,PROV,RUNDT,SDT,SRC) ;Directly run report
SCRNHDR ;Report screen header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"YOU MUST BELONG TO A SPECIAL USERCLASS TO ACCESS THIS OPTION.",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+63
Function Call: WRITE
  • Prompt: !!,"Select T, C, O, X, E, or any combination of these as the source."
  • Line Location: SOURCE+3
Function Call: WRITE
  • Prompt: !,"Type ? for more information."
  • Line Location: SOURCE+4
Function Call: WRITE
  • Prompt: !!," No divisions have been selected"
  • Line Location: DIVLIST+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIVLIST+4
Function Call: WRITE
  • Prompt: !!,"Selected Divisions ("_+DIV_"):"
  • Line Location: DIVLIST+7
Function Call: WRITE
  • Prompt: !," "_DIVIEN_$E(" ",1,(12-$L(DIVIEN)))_DIVNM_" ("_$G(DIV("B",DIVNM,DIVIEN))_")"
  • Line Location: DIVLIST+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIVLIST+16
Function Call: WRITE
  • Prompt: !!," No clinics have been selected"
  • Line Location: CLNLIST+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLNLIST+4
Function Call: WRITE
  • Prompt: !!,"Selected Locations ("_+CLIN_"):"
  • Line Location: CLNLIST+7
Function Call: WRITE
  • Prompt: !," "_CLINIEN_$E(" ",1,(12-$L(CLINIEN)))_CLINNM
  • Line Location: CLNLIST+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLNLIST+16
Function Call: WRITE
  • Prompt: !!," No providers have been selected"
  • Line Location: PRVLIST+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRVLIST+4
Function Call: WRITE
  • Prompt: !!,"Selected Providers ("_+PROV_"):"
  • Line Location: PRVLIST+7
Function Call: WRITE
  • Prompt: !," "_PROVIEN_$E(" ",1,(12-$L(PROVIEN)))_PROVNM
  • Line Location: PRVLIST+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRVLIST+16
Function Call: WRITE
  • Prompt: !!,"This report may take a considerable amount of time to complete."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"This report requires 255 character width output."
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued! Task #"_ZTSK_".",1:"Request Cancelled!")
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCRNHDR+4
Function Call: WRITE
  • Prompt: ?(IOM-$L(SCRTTL)/2),SCRTTL,!!!
  • Line Location: SCRNHDR+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call