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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$NS^XUAF4  
Text Integration Utility 5 ($$SELSVC,SELDIV)^TIULA  $$PERSNAME^TIULC1  ($$DATE,$$NAME)^TIULS  $$PROVSVC^TIULV  $$READ^TIUU  
VA FileMan 4 DT^DILF  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIU UNSIGNED/UNCOSIGNED REPORT  

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

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS DEV+11
^%ZISC DEV+12
^%ZTLOAD DEV+9
DT^DILF HDR+7
$$EXTERNAL^DILFD PRTELMNT+20, PRTELMNT+22, PRTELMNT+27, PRTELMNT+28, PRTELMNT+29
$$GET1^DIQ PRTELMNT+16
^DIR BEGIN+21, ASK+2
$$SELSVC^TIULA BEGIN+13
SELDIV^TIULA BEGIN+2
$$PERSNAME^TIULC1 ADDELMNT+18
$$DATE^TIULS PRTELMNT+24
$$NAME^TIULS ADDELMNT+23
$$PROVSVC^TIULV ADDELMNT+15
$$READ^TIUU ASKRNG+7, ASKRNG+9
$$FMTE^XLFDT HDR+8
$$NS^XUAF4 PRINT+28, HDR+9

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+11
Routine Call
  • DIR
  • Line Location:
    • BEGIN+21
    • ASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^TIU(8925 - [#8925] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] BUILD+10, GATHER+9, GATHER+11, GATHER+13, GATHER+15, ADDELMNT+8, ADDELMNT+9, ADDELMNT+10, PRTELMNT+10, PRNT+10
, PRNT+11, PRNT+15, PRNT+16
^TMP("TIUD" BUILD+2!, EXIT+1!, ADDELMNT+24*, PRINT+8, PRINT+9, PRINT+11, PRINT+15, PRINT+17, PRINT+18

Label References

Name Line Occurrences
$$ASKRNG BEGIN+10
$$PRNT PRTELMNT+31
ADDELMNT GATHER+16
ASK PRINT+12, PRINT+22, PRINT+27, PRINT+32, PRTELMNT+14
ASKRNGQ ASKRNG+8, ASKRNG+10
BUILD DEV+12
DEV DEV+2
EXIT DEV+1, DEV+3
FHDR PRINT+13, PRINT+22, PRTELMNT+14
GATHER BUILD+7, BUILD+11
HDR PRINT+9, PRINT+12, PRINT+22, PRINT+27, PRINT+34, PRTELMNT+14
PRINT BUILD+12
PRTELMNT PRINT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1*, DEV+10!
ADDMPRNT PRNT+8~, PRNT+10*, PRNT+11*, PRNT+12, PRNT+13
DIR BEGIN+15~, ASK+2~!
DIR("?" BEGIN+17*, BEGIN+18*, BEGIN+19*, BEGIN+20*
DIR("A" BEGIN+16*
DIR(0 BEGIN+16*, ASK+2*
DIRUT BEGIN+15~, BEGIN+21, ASKRNG+5~, ASKRNG+8, ASKRNG+10
DTOUT BEGIN+15~, ASKRNG+5~
DUOUT BEGIN+15~, ASKRNG+5~
ENDT ASKRNG~, ASKRNG+9*, ASKRNG+10
GTCT PRINT+4~
GTCT(5 PRINT+7*, PRINT+31*, PRINT+35
GTCT(6 PRINT+7*, PRINT+31*, PRINT+36
ICT PRINT+4~
ICT( PRINT+10*, PRINT+29, PRINT+30, PRINT+31, PRTELMNT+12*
IDPRNT PRNT+8~, PRNT+15*, PRNT+16*, PRNT+17, PRNT+18
IO DEV+12, ASK+1
IO("Q" DEV+3
IO(0 ASK+1
IOF HDR+10
IOM DEV+2, HDR+10, HDR+12
IOSL PRINT+12, PRINT+22, PRINT+27, PRTELMNT+14
IOST ASK+1
LNE HDR+5~, HDR+12*, HDR+16
POP DEV+1!
SCT PRINT+4~
SCT( PRINT+14*, PRINT+24, PRINT+25, PRTELMNT+13*
SELDIV BEGIN+2, EXIT+1!
STDT ASKRNG~, ASKRNG+7*, ASKRNG+8, ASKRNG+9
TIUAU ADDELMNT+6~, ADDELMNT+10*, ADDELMNT+11, PRINT+4~, PRTELMNT+17*, PRTELMNT+29*
TIUAUECS ADDELMNT+7~, ADDELMNT+11*, ADDELMNT+15, ADDELMNT+18*, ADDELMNT+23*, ADDELMNT+24, PRINT+6~, PRINT+14*, PRINT+15*, PRINT+17
, PRINT+18, PRINT+19, PRTELMNT~, PRTELMNT+19
TIUD0 ADDELMNT+7~, ADDELMNT+9*, PRTELMNT+9~, PRTELMNT+10*, PRTELMNT+11, PRTELMNT+16, PRTELMNT+17
TIUD12 ADDELMNT+6~, ADDELMNT+10*, ADDELMNT+12, PRTELMNT+9~, PRTELMNT+10*, PRTELMNT+17
TIUDA GATHER+7~, GATHER+14*, GATHER+15*, GATHER+16, ADDELMNT~, ADDELMNT+8, ADDELMNT+9, ADDELMNT+10, ADDELMNT+24, PRINT+4~
, PRINT+18*, PRINT+19, PRTELMNT~, PRTELMNT+10, PRTELMNT+26, PRTELMNT+31, PRNT~, PRNT+10, PRNT+15
TIUDI BEGIN+3, EXIT+1!
TIUDI( BEGIN+4, BUILD+5, BUILD+6
TIUDI("ENTRIES" BEGIN+5*, BEGIN+7*, BUILD+4
TIUDIV DEV+10!
TIUECS ADDELMNT+7~, ADDELMNT+10*, ADDELMNT+11, PRINT+4~, PRTELMNT+17*, PRTELMNT+28*
TIUEDT ADDELMNT+6~, ADDELMNT+12*, ADDELMNT+14, ADDELMNT+24, PRINT+4~, PRINT+16*, PRINT+17*, PRINT+18, PRINT+19, PRTELMNT~
, PRTELMNT+24
TIUENDT BEGIN+1~, BEGIN+10, BUILD+7, BUILD+11, BUILD+12, EXIT+1!, GATHER~, GATHER+16, ADDELMNT~, ADDELMNT+14
, PRINT~, PRINT+9, PRINT+12, PRINT+19, PRINT+22, PRINT+27, PRINT+34, PRTELMNT~, PRTELMNT+14, HDR~
, HDR+8
TIUI BEGIN+1~, BEGIN+4*, BEGIN+5
TIUIFP DEV+10!, BUILD+1~, BUILD+6*, BUILD+7, BUILD+9*, BUILD+10*, BUILD+11, GATHER~, GATHER+9, GATHER+11
, GATHER+13, GATHER+15, ADDELMNT+6~, ADDELMNT+12*, ADDELMNT+24, PRINT+5~, PRINT+7*, PRINT+9*, PRINT+10, PRINT+11
, PRINT+12, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+19, PRINT+22, PRINT+24, PRINT+25, PRINT+27
, PRINT+28, PRINT+29, PRINT+30, PRINT+31, PRINT+34*, PRTELMNT~, PRTELMNT+12, PRTELMNT+13, PRTELMNT+14, HDR~
, HDR+9
TIUINST HDR+5~, HDR+9*, HDR+11
TIUJ GATHER+7~, GATHER+12*, GATHER+13*, GATHER+15
TIUK BUILD+1~, BUILD+5*, BUILD+6
TIULST4 PRINT+5~, PRTELMNT+16*, PRTELMNT+21
TIUOUT PRINT+5~, PRINT+7*, PRINT+9, PRINT+11, PRINT+12, PRINT+15, PRINT+17, PRINT+21, PRINT+22, PRINT+26
, PRINT+27, PRINT+32, PRINT+33, PRTELMNT+14, ASK+3*
TIUPG PRINT+5~, PRINT+7*, HDR+6*, HDR+11
TIUPRNT PRNT+8~, PRNT+9*, PRNT+13*, PRNT+18*, PRNT+19
TIUPT PRINT+5~, PRTELMNT+16*, PRTELMNT+20
TIUR HDR+5~, HDR+7
TIUR(0 HDR+11
TIURNG HDR+5~, HDR+8*, HDR+10
TIURPT BEGIN+15~, BEGIN+21*, BEGIN+22, DEV+2, DEV+10!, PRINT+13, PRINT+22, PRTELMNT+14, PRTELMNT+15, HDR+13
TIUS GATHER+7~, GATHER+10*, GATHER+11*, GATHER+13, GATHER+15, ADDELMNT+7~, ADDELMNT+9*, ADDELMNT+11, PRTELMNT+9~, PRTELMNT+11*
, PRTELMNT+12, PRTELMNT+13, PRTELMNT+22, PRTELMNT+28, PRTELMNT+29
TIUSTDT BEGIN+1~, BEGIN+10, BUILD+7, BUILD+11, BUILD+12, EXIT+1!, GATHER~, GATHER+16, ADDELMNT~, ADDELMNT+14
, PRINT~, PRINT+9, PRINT+12, PRINT+19, PRINT+22, PRINT+27, PRINT+34, PRTELMNT~, PRTELMNT+14, HDR~
, HDR+8
TIUSVC ADDELMNT+6~, ADDELMNT+15*, ADDELMNT+17, ADDELMNT+19, ADDELMNT+20*, ADDELMNT+22*, ADDELMNT+24, PRINT+5~, PRINT+10*, PRINT+11*
, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+19, PRINT+22, PRINT+23, PRINT+24, PRINT+25
, PRTELMNT~, PRTELMNT+13, PRTELMNT+14, FHDR~, FHDR+3
TIUSVCS BEGIN+1~, BEGIN+13, BUILD+7, BUILD+11, EXIT+1!, GATHER~, GATHER+16, ADDELMNT~, ADDELMNT+17
TIUSVCS( ADDELMNT+17
TIUTP GATHER+7~, GATHER+8*, GATHER+9*, GATHER+11, GATHER+13, GATHER+15, PRINT+5~, PRTELMNT+17*, PRTELMNT+27
U ADDELMNT+9, ADDELMNT+10, ADDELMNT+12, ADDELMNT+19, ADDELMNT+20, PRINT+28, PRTELMNT+11, PRTELMNT+16, PRTELMNT+17, HDR+9
, PRNT+10
Y BEGIN+21!, ASK+2~, ASK+3, ASKRNG+5~, ASKRNG+11*, ASKRNGQ
ZTDESC DEV+8*, DEV+10!
>> ZTQUEUED BUILD+3
>> ZTREQ BUILD+3*
ZTRTN DEV+4*, DEV+10!
ZTSAVE DEV+10!
ZTSAVE("TIUDI(" DEV+5*
ZTSAVE("TIUENDT" DEV+6*
ZTSAVE("TIURPT" DEV+5*
ZTSAVE("TIUSTDT" DEV+6*
ZTSAVE("TIUSVCS" DEV+7*
ZTSAVE("TIUSVCS(" DEV+7*
ZTSK DEV+9, DEV+10!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All