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

Package: Text Integration Utility

Routine: TIUPRPN3


Information

TIUPRPN3 ;SLC/MJC-Sort PNs for Prting;;6/26/01

Source Information

Source file <TIUPRPN3.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Text Integration Utility 3 $$CANDO^TIULP  DEVICE^TIUPRPN  $$READ^TIUU  
VA FileMan 2 ^%DT  ^DIC  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Text Integration Utility 13 TIU PRINT PN AUTHOR  TIU PRINT PN LOC  TIU PRINT PN PT  TIUEPRNT  TIULAPIC  TIULAPIS  TIUPRD  TIUPRPN4  
TIUPRPN5  TIUPRPN6  TIUPRPN7  TIURA  TIURS  
Order Entry Results Reporting 1 ORCNOTE  

Entry Points

Name Comments DBIA/ICR reference
LOC ;sorts PNs to prt by location for selected date range
SETUP(TITLE) ;displays centered option hdr
PAGE() ;asks question for CONTIGUOUS vs. SEPARATE PAGE print
PT ;sorts PNs to prt by pt for selected date range
AUTHOR ;sorts PNs to prt by author for selected date range
FISH
REPX
FETCH(TIUXREF,ENTITY,CTR1) ;get available notes, select date range
; Passes back optional CTR1 = # of notes
FLAG() ;asks question for CHART vs. WORK copies
FETCHX ;
HELP1 ; answers the 'ea note on a new page' question
REPLACE(TIUDA,DATTIM,DTFIELD,CKCANVW) ; Populate TMP array
HELP ; answers questions regarding WORK vs. CHART copies

External References

Name Field # of Occurrence
^%DT FISH+3, FISH+5
^DIC PT+6, AUTHOR+7, LOC+7
$$CANDO^TIULP REPLACE+25, REPLACE+37
DEVICE^TIUPRPN PT+13, AUTHOR+13, LOC+13
$$READ^TIUU FLAG+2, PAGE+2
$$FMTE^XLFDT FETCH+9, FETCH+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?(IOM-$L(TITLE)\2),TITLE,!,TIULINE,!
  • Line Location: SETUP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AUTHOR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+7
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(OLD,"D")
  • Line Location: FETCH+9
Function Call: WRITE
  • Prompt: " thru ",$$FMTE^XLFDT(NEW,"D")
  • Line Location: FETCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FISH+1
Function Call: WRITE
  • Prompt: !!,"Searching for the notes"
  • Line Location: FISH+8
Function Call: WRITE
  • Prompt: !!,"No notes found- try again!",!
  • Line Location: FISH+18
Function Call: WRITE
  • Prompt: !,">> "_CTR1_" note"_$S(CTR1>1:"s",1:"")_" found for "_$P(ENTITY,U,2)
  • Line Location: FISH+20
Function Call: WRITE
  • Prompt: !!?5,"The FOOTERS of WORK/CHART copies vary significantly. The WORK"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?5,"FOOTER has the patient's phone number and is clearly marked:"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?5,"'NOT FOR MEDICAL RECORD'. Unless you really intend to file the"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?5,"note(s) in the chart- print a WORK copy."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!?5,"The option selected will produce CHARTABLE contiguous notes."
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !?5,"If you are filling in a chart that has handwritten notes, or,"
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !?5,"you'd prefer to begin each note on a new page; answer 'YES'."
  • Line Location: HELP1+3
Routine Call
  • DIC
  • Line Location:
    • PT+6
    • AUTHOR+7
    • LOC+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] FISH+15
^TIU(8925 - [#8925] FETCH+3, FETCH+6, FETCH+7, FISH+11, FISH+12, FISH+15, REPLACE+20, REPLACE+26, REPLACE+30, REPLACE+51
^TMP("TIUPR" FISH+9!, FISH+17*, FISH+18
^TMP("TIUREPLACE" FISH+9!, FISH+14, FISH+16, FISH+19, FETCHX+1!, REPLACE+19*, REPLACE+26*, REPLACE+33, REPLACE+38*, REPLACE+45*
, REPLACE+46*, REPLACE+47*, REPLACE+48*, REPLACE+54*, REPLACE+55*, REPLACE+56*

Label References

Name Line Occurrences
$$FLAG PT+10, AUTHOR+11, LOC+11
$$PAGE PT+11
FETCH PT+9, AUTHOR+10, LOC+10
FETCHX FISH+1
FISH FISH+18
REPLACE FISH+13
REPX REPLACE+33, REPLACE+36, REPLACE+41, REPLACE+53
SETUP PT+5, AUTHOR+5, LOC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FISH+1!, FISH+2*, FISH+5*
%DT("A" FISH+2*, FISH+4*
%DT(0 FISH+2*
BEG FETCH+2~, FISH*, FISH+4*, FISH+6*, FISH+10
CANDO REPLACE+18~, REPLACE+24, REPLACE+25*, REPLACE+26
CKCANVW REPLACE~, REPLACE+24, REPLACE+36
CTR1 PT+4~, PT+8*, PT+9, PT+11, FETCH~, FISH+19*, FISH+20
DATE FETCH+2~, FISH+10*, FISH+11*, FISH+12, FISH+13, FISH+16*, FISH+17
DATTIM REPLACE~, REPLACE+47, REPLACE+50, REPLACE+55
DFN FETCH+2~, FISH+15*
DIC PT+4~, PT+6*, AUTHOR+4~, AUTHOR+6*, LOC+4~, LOC+6*
DIC("A" AUTHOR+6*
DIC(0 PT+6*, AUTHOR+6*, LOC+6*
DTFIELD REPLACE~, REPLACE+27
DTNODE REPLACE+18~, REPLACE+27*, REPLACE+51, REPLACE+52
>> DTOUT FISH+3, FISH+5
END FETCH+2~, FISH*, FISH+6*, FISH+10*, FISH+11
ENTITY FETCH~, FETCH+3, FETCH+5, FETCH+6, FETCH+7, FISH+11, FISH+12, FISH+20
HOLD FETCH+2~, FISH+6*
IDPRNT REPLACE+18~, REPLACE+20*, REPLACE+30*, REPLACE+33, REPLACE+36, REPLACE+37, REPLACE+38, REPLACE+41, REPLACE+50, REPLACE+51
, REPLACE+53, REPLACE+54, REPLACE+55
IFN FETCH+2~, FISH+12*, FISH+13, FISH+14*, FISH+15, FISH+16, FISH+17
IOF SETUP+3
IOM SETUP+3
NEW FETCH+2~, FETCH+7*, FETCH+8, FETCH+10, FISH
OLD FETCH+2~, FETCH+3*, FETCH+4, FETCH+6*, FETCH+8, FETCH+9, FETCH+10, FISH
PCANDO REPLACE+18~, REPLACE+36, REPLACE+37*, REPLACE+38
PDATTIM REPLACE+18~, REPLACE+51*, REPLACE+52*, REPLACE+55
SORT FETCH+2~, FISH+15*, FISH+17
TITLE SETUP~, SETUP+3
TIUDA REPLACE~, REPLACE+20, REPLACE+25, REPLACE+26, REPLACE+45, REPLACE+46, REPLACE+47, REPLACE+54
TIUDFN PT+4~, PT+8*, PT+9
TIUDUZ AUTHOR+4~, AUTHOR+9*, AUTHOR+10, LOC+4~
TIUFLAG PT+7~, PT+10*, PT+11, PT+13, AUTHOR+8~, AUTHOR+11*, AUTHOR+12, AUTHOR+13, LOC+8~, LOC+11*
, LOC+12, LOC+13, FLAG+2*, FLAG+3*, FLAG+4*, FLAG+5
TIULINE SETUP+1~, SETUP+2*, SETUP+3
>> TIULOC LOC+9*, LOC+10
TIUQT PT+4~, PT+6!, PT+9, AUTHOR+4~, AUTHOR+7!, AUTHOR+10, LOC+4~, LOC+7!, LOC+10, FETCH+4*
, FISH+1, FISH+3*, FISH+5*
TIUSPG PT+7~, PT+11*, PT+12*, PT+13, AUTHOR+8~, AUTHOR+12*, AUTHOR+13, LOC+8~, LOC+12*, LOC+13
, PAGE+2*, PAGE+3*, PAGE+4*, PAGE+5
TIUXREF PT+4~, PT+8*, PT+9, AUTHOR+4~, AUTHOR+9*, AUTHOR+10, LOC+4~, LOC+9*, LOC+10, FETCH~
, FETCH+3, FETCH+6, FETCH+7, FISH+11, FISH+12
U FETCH+5, FISH+15, FISH+20, REPLACE+54, FLAG+4
Y PT+4~, PT+6, PT+8, AUTHOR+4~, AUTHOR+7, AUTHOR+9, LOC+4~, LOC+7, LOC+9, FETCH+2~
, FISH+3, FISH+4, FISH+5, FISH+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All