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
Print Page as PDF
Routine: TIUPRPN3

Package: Text Integration Utility

Routine: TIUPRPN3


Information

TIUPRPN3 ;SLC/MJC - Sort PNs for Printing; May 09, 2024@10:32

Source Information

Source file <TIUPRPN3.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls