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

Package: Text Integration Utility

Routine: TIURDIV


Information

TIURDIV ; SLC/JAK - Review unsig/uncosig Documents by DIVISION ;04/27/11 13:14

Source Information

Source file <TIURDIV.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ; Select Division(s), Entry Date Range, Service, Type of Report
DEV ; Device selection
BUILD ; Build list
EXIT ; Clean up and exit
GATHER(TIUIFP,TIUSTDT,TIUENDT,TIUSVCS) ; Find records for the list
; Input -- TIUIFP INSTITUTION file (#4) IEN
; (0 = gather all divisions)
; TIUSTDT Start Date
; TIUENDT End Date
; TIUSVCS Service Selection Array
; Output -- None
ADDELMNT(TIUDA,TIUSTDT,TIUENDT,TIUSVCS) ; Add each element to the list
; Input -- TIUDA TIU DOCUMENT file (#8925) IEN
; TIUSTDT Start Date
; TIUENDT End Date
; TIUSVCS Service Selection Array
; Output -- None
PRINT(TIUSTDT,TIUENDT) ; Display/print the output
; Input -- TIUSTDT Start Date
; TIUENDT End Date
; Output -- None
PRTELMNT(TIUDA,TIUIFP,TIUSVC,TIUAUECS,TIUEDT,TIUSTDT,TIUENDT) ; Print each element
; Input -- TIUDA TIU DOCUMENT file (#8925) IEN
; TIUIFP INSTITUTION file (#4) IEN
; TIUSVC SERVICE/SECTION file (#49) NAME
; TIUAUECS AUTHOR/ExpCos NAME
; TIUEDT Inverse REFERENCE DATE
; TIUSTDT Start Date
; TIUENDT End Date
; Output -- None
ASK ; End of page
HDR(TIUIFP,TIUSTDT,TIUENDT) ; Page (Division) Header
; Input -- TIUIFP INSTITUTION file (#4) IEN
; TIUSTDT Start Date
; TIUENDT End Date
; Output -- None
FHDR(TIUSVC) ; Service Header
; Input -- TIUSVC SERVICE/SECTION file (#49) NAME
; Output -- None
PRNT(TIUDA) ; Does document have a parent?
; Input -- TIUDA TIU Document file (#8925) IEN
; Output -- TIUPRNT Null= TIU Document file (#8925) entry does
; not have a parent
; Exists= TIU Document file (#8925) entry is
; an addendum or ID child.
; Value: Parent TIU Document file
; (#8925) IEN
ASKRNG(STDT,ENDT) ;Prompt for entry date range
; Input -- None
; Output -- 1=Successful and 0=Failure
; STDT Start Date
; ENDT End Date
ASKRNGQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report must be sent to a 132-column device.",!
  • Line Location: BEGIN+22
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"You must select a 132-column device."
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !!,"NO Unsigned/Uncosigned Documents!!"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!," Totals for Service: ",$E(TIUSVC,1,25),"---"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: " UNSIGNED: ",$G(SCT(TIUIFP,TIUSVC,5))
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: " UNCOSIGNED: ",$G(SCT(TIUIFP,TIUSVC,6))
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !!,"Totals for Division: ",$E($P($$NS^XUAF4(TIUIFP),U),1,25),"---"
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: " UNSIGNED: ",$G(ICT(TIUIFP,5))
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: " UNCOSIGNED: ",$G(ICT(TIUIFP,6))
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !!,"GRAND Totals (All Divisions)--- UNSIGNED: ",+$G(GTCT(5))
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: " UNCOSIGNED: ",+$G(GTCT(6))
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !,$G(TIUAUECS)
  • Line Location: PRTELMNT+19
Function Call: WRITE
  • Prompt: ?17,$S(TIUPT:$E($$EXTERNAL^DILFD(8925,.02,"",TIUPT),1,14),1:"UNK")
  • Line Location: PRTELMNT+20
Function Call: WRITE
  • Prompt: ?32,$S(TIULST4]"":$G(TIULST4),1:"UNK")
  • Line Location: PRTELMNT+21
Function Call: WRITE
  • Prompt: ?39,$E($$EXTERNAL^DILFD(8925,.05,"",TIUS),1,10)
  • Line Location: PRTELMNT+22
Function Call: WRITE
  • Prompt: ?50,$S(TIUEDT>0:$$DATE^TIULS(TIUEDT,"MM/DD/YY"),1:"UNK")
  • Line Location: PRTELMNT+24
Function Call: WRITE
  • Prompt: ?60,$G(TIUDA)
  • Line Location: PRTELMNT+26
Function Call: WRITE
  • Prompt: ?74,$S(TIUTP:$E($$EXTERNAL^DILFD(8925,.01,"",TIUTP),1,15),1:"UNK")
  • Line Location: PRTELMNT+27
Function Call: WRITE
  • Prompt: ?91,TIUECS
  • Line Location: PRTELMNT+28
Function Call: WRITE
  • Prompt: ?104,TIUAU
  • Line Location: PRTELMNT+29
Function Call: WRITE
  • Prompt: ?119,$$PRNT(TIUDA)
  • Line Location: PRTELMNT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,?26,"Unsigned and Uncosigned Documents "_TIURNG,?(IOM-10)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "Page ",+$G(TIUPG),!,"PRINTED:",?26,"for ",TIUINST,!,TIUR(0)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: LNE
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"AUTHOR/EXP COS",?17,"PATIENT",?25,"LAST4",?39,"STATUS"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?50,"ENTRY DT",?60,"IEN",?74,"DOC TYPE"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?91,"EXP COSGNR",?104,"AUTHOR",?119,"PARENT IEN",!,LNE
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !!?10,"SERVICE: ",TIUSVC
  • Line Location: FHDR+3
Function Call: WRITE
  • Prompt: !!,"Please specify an Entry Date Range:",!
  • Line Location: ASKRNG+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^TIU(8925 - [#8925] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call