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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: TIUPRPN7

Package: Text Integration Utility

Routine: TIUPRPN7


Information

TIUPRPN7 ;SLC/MJC - Progress Notes Outpt Batch Prt ;6/26/01

Source Information

Source file <TIUPRPN7.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Text Integration Utility 5 PRINT^TIUPRPN1  (REPLACE,SETUP)^TIUPRPN3  $$DATE^TIUPRPN4  3^TIUPRPN5  $$READ^TIUU  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIU PRINT PN BATCH INTERACTIVE  TIU PRINT PN BATCH SCHEDULED  

Entry Points

Name Comments DBIA/ICR reference
BATCH ;batch print outpatient progress notes sorted by terminal digit
DEV
EXIT
PRINT ;entry point for non-interactive tasked job
TROUBLE ;message to print if no output
LOC(LOC,DIV) ;checks if this location should be batch prted

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS DEV+10
^%ZISC DEV+11
^%ZTLOAD DEV+8
^DIC BATCH+18
PRINT^TIUPRPN1 PRINT+25
REPLACE^TIUPRPN3 PRINT+18
SETUP^TIUPRPN3 BATCH+7
$$DATE^TIUPRPN4 BATCH+22, BATCH+29
3^TIUPRPN5 BATCH+29
$$READ^TIUU BATCH+26
$$FMTE^XLFDT BATCH+25, TROUBLE+2
$$NOW^XLFDT PRINT+9, TROUBLE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Notes will be printed in terminal digit order."
  • Line Location: BATCH+8
Function Call: WRITE
  • Prompt: !!?5,"This option may also be scheduled to run non-interactively"
  • Line Location: BATCH+9
Function Call: WRITE
  • Prompt: !?5,"in file #19.2 OPTION SCHEDULING FILE.",!!
  • Line Location: BATCH+10
Function Call: WRITE
  • Prompt: $C(7),$C(7),!?5,"Before using this option "
  • Line Location: BATCH+12
Function Call: WRITE
  • Prompt: "you must enter the divisions for your site in"
  • Line Location: BATCH+13
Function Call: WRITE
  • Prompt: !?5,"file #8925.94 - TIU DIVISION PRINT PARAMETERS FILE."
  • Line Location: BATCH+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!?5,"You must select a printer for this "
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: "option!!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: !!,"The option [TIU PRINT PN BATCH OUTPT] ran to completion at "
  • Line Location: TROUBLE+1
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($$NOW^XLFDT,"1P")," but did not find any notes."
  • Line Location: TROUBLE+2
Function Call: WRITE
  • Prompt: !!,"If you were expecting notes to print review the following:"
  • Line Location: TROUBLE+3
Function Call: WRITE
  • Prompt: !!,"INTERACTIVE"
  • Line Location: TROUBLE+5
Function Call: WRITE
  • Prompt: !,"-----------"
  • Line Location: TROUBLE+6
Function Call: WRITE
  • Prompt: !,"1. Very little can go wrong- the required criteria is screened"
  • Line Location: TROUBLE+7
Function Call: WRITE
  • Prompt: !,"while the user is manually queueing the job."
  • Line Location: TROUBLE+8
Function Call: WRITE
  • Prompt: !!,"2. This option prints all the outpatient progress notes, in"
  • Line Location: TROUBLE+9
Function Call: WRITE
  • Prompt: !,"terminal digit order, for the selected date range for ALL CLINICS"
  • Line Location: TROUBLE+10
Function Call: WRITE
  • Prompt: !,"for the selected DIVISION. Verify that you have signed progress"
  • Line Location: TROUBLE+11
Function Call: WRITE
  • Prompt: !,"notes satisfying this criteria.",!
  • Line Location: TROUBLE+12
Function Call: WRITE
  • Prompt: !!,"NON-INTERACTIVE (job set to run in OPTION SCHEDULING FILE (#19.2)"
  • Line Location: TROUBLE+14
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------"
  • Line Location: TROUBLE+15
Function Call: WRITE
  • Prompt: !,"1. DIVISION must be defined in file #8925.94 (TIU DIVISION PRINT"
  • Line Location: TROUBLE+16
Function Call: WRITE
  • Prompt: !,"PRINT PARAMETERS FILE)."
  • Line Location: TROUBLE+17
Function Call: WRITE
  • Prompt: !!,"2. The variable TIUDIV must be defined in the VARIABLE NAME "
  • Line Location: TROUBLE+18
Function Call: WRITE
  • Prompt: !,"multiple of the OPTION SCHEDULING FILE (#19.2). TIUDIV should"
  • Line Location: TROUBLE+19
Function Call: WRITE
  • Prompt: !,"be set to the IEN of an entry in the TIU DIVISION PRINT PARAMETERS"
  • Line Location: TROUBLE+20
Function Call: WRITE
  • Prompt: !,"FILE (#8925.94)."
  • Line Location: TROUBLE+21
Function Call: WRITE
  • Prompt: !!,"3. This option must find a valid date in field #1.01 of"
  • Line Location: TROUBLE+22
Function Call: WRITE
  • Prompt: !,"file #8925.94 to start looping on. If a valid date is not "
  • Line Location: TROUBLE+23
Function Call: WRITE
  • Prompt: !,"found, the option will terminate with this message."
  • Line Location: TROUBLE+24
Function Call: WRITE
  • Prompt: !!,"4. To assist in troubleshooting, if no notes are found, the"
  • Line Location: TROUBLE+25
Function Call: WRITE
  • Prompt: !,"DATE/TIME field (#1.01) of file #8925.94 will not be re-set"
  • Line Location: TROUBLE+26
Function Call: WRITE
  • Prompt: !,"to the new value (which is NOW) when the option begins "
  • Line Location: TROUBLE+27
Function Call: WRITE
  • Prompt: "calculating."
  • Line Location: TROUBLE+28
Routine Call
  • %ZIS
  • Line Location:
    • DEV+10
Routine Call
  • DIC
  • Line Location:
    • BATCH+18
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEV
^DG(40.8 - [#40.8] BATCH+17
^DISV( BATCH+17
^DPT - [#2] PRINT+20
^SC - [#44] LOC+3
^TIU("TIUPR" EXIT!
^TIU(8925 - [#8925] PRINT+14, PRINT+16, PRINT+17, PRINT+20
^TIU(8925.93 - [#8925.93] LOC+2, LOC+3
^TIU(8925.94 - [#8925.94] BATCH+12, BATCH+21, DEV, PRINT+10, PRINT+12, PRINT+26*
^TMP("TIULQ" PRINT+8!, EXIT!
^TMP("TIUPR" PRINT+8!, PRINT+23*, PRINT+24
^TMP("TIUREPLACE" PRINT+8!, PRINT+19, PRINT+22, EXIT!

Label References

Name Line Occurrences
$$LOC PRINT+15
DEV DEV+3
EXIT DEV+1, DEV+5, PRINT+6, PRINT+24
PRINT DEV+11
TROUBLE PRINT+6, PRINT+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1*, DEV+9!
%ZIS("B" DEV*
ANS BATCH+6~, BATCH+26*, BATCH+28
DATE PRINT+7~, PRINT+15*, PRINT+16*, PRINT+17, PRINT+18, PRINT+22*, PRINT+23
DFN PRINT+7~, PRINT+20*, PRINT+23
DIC BATCH+16*, BATCH+18!
DIC("A" BATCH+16*
DIC("B" BATCH+17*
DIC(0 BATCH+16*
>> DIRUT BATCH+27
DIV BATCH+6~, PRINT+7~, PRINT+12*, PRINT+15, LOC~, LOC+3
DUZ BATCH+17
IEN LOC+1~, LOC+2*, LOC+3
IFN PRINT+7~, PRINT+17*, PRINT+18, PRINT+19*, PRINT+20, PRINT+22, PRINT+23
IO DEV+11
IO("Q" DEV+5!
IOST DEV+2
LAST BATCH+6~, BATCH+21*, BATCH+22, BATCH+23, BATCH+25, BATCH+28
LOC PRINT+7~, PRINT+13*, PRINT+14*, PRINT+15, PRINT+16, PRINT+17, LOC~, LOC+2, LOC+3
POP DEV+1!
SSN PRINT+7~, PRINT+20*, PRINT+21*, PRINT+23
STOP PRINT+7~, PRINT+9*, PRINT+16, PRINT+26
STSAVE DEV+9!
TIUDIV BATCH+6~, BATCH+19*, BATCH+21, BATCH+24, DEV, DEV+4*, DEV+9!, PRINT+6, PRINT+10, PRINT+12
, PRINT+26
TIUQT BATCH+6~, BATCH+23, BATCH+27*, BATCH+29*
TIUSTART BATCH+6~, BATCH+22*, BATCH+28*, BATCH+29*, DEV+9!, PRINT+10*, PRINT+11, PRINT+15
U BATCH+17, BATCH+19, BATCH+21, BATCH+24, DEV, DEV+4, PRINT+10, PRINT+12, PRINT+20, PRINT+26
, LOC+3
Y BATCH+6~, BATCH+18, BATCH+19
Y(0 BATCH+19
ZTDESC DEV+7*, DEV+9!
ZTDTH DEV+9!
ZTIO DEV+9!
ZTRTN DEV+6*, DEV+9!
>> ZTSAVE("TIUDIV" DEV+6*
>> ZTSAVE("TIUSTART" DEV+6*
ZTSK DEV+8, DEV+9!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All