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

Package: Text Integration Utility

Routine: TIULA2


Information

TIULA2 ; SLC/JER - More interactive functions ;10/19/06 14:32

Source Information

Source file <TIULA2.m>

Entry Points

Name Comments DBIA/ICR reference
ASKTYP(TIUCLASS,DFLT,SCREEN,PROMPT,NOLOINC) ; Call ^DIC to select single type
ASKTYPX
ITMCNT(CLASS) ; Count the number of members of a class or document class
DOCPICK(TIUCLASS,DFLT,ADDSCRN) ; Ask for document, given a class or document class
DOCSPICK(TIUY,TIUCLASS,PARM,DFLT,PROMPT,ADDSCRN) ; Ask for TITLE(S)
; with pick-list
SELPAT(TIURTN,TIUTYP,DFN,TIUASK) ; Select a patient's document
PREFIX(DA,IDKID) ; Return addendum, urgency, ID indicators.
; I $G(IDKID)=1, include '>' if note is ID kid.
SAMPLE(DFN,CLASS) ; Quick sample for range and count
CHOOSE(Y,PROMPT,LO,HI,PAUSE) ; Call reader for pause or list selection
AUTHOR(TERMOK) ; Get author

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No ",TIUPNOUN," on file for ",$P(^DPT(+DFN,0),U)
  • Line Location: SELPAT+9
Function Call: WRITE
  • Prompt: ""
  • Line Location: SELPAT+10
Function Call: WRITE
  • Prompt: !!,"No ",TIUPNOUN," available for ",$P(^DPT(+DFN,0),U),!
  • Line Location: SELPAT+13
Function Call: WRITE
  • Prompt: ""
  • Line Location: SELPAT+14
Function Call: WRITE
  • Prompt: !!,"Available ",TIUPNOUN,": ",$P(TIUEDT,U,2)
  • Line Location: SELPAT+18
Function Call: WRITE
  • Prompt: " thru ",$P(TIULDT,U,2)," (",TIUTOT,")"
  • Line Location: SELPAT+19
Function Call: WRITE
  • Prompt: !!,"Please specify a date range from which to select ",TIUPNOUN_":"
  • Line Location: SELPAT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPAT+32
Function Call: WRITE
  • Prompt: !,TIUI,?4,$$DATE^TIULS(+TIUD13,"MM/DD/CCYY HR:MIN")
  • Line Location: SELPAT+50
Function Call: WRITE
  • Prompt: ?22,TIUDOC
  • Line Location: SELPAT+51
Function Call: WRITE
  • Prompt: ?60,$E($$NAME^TIULS($$PERSNAME^TIULC1(+$P(TIUD12,U,2)),"LAST,FI"),1,19)
  • Line Location: SELPAT+52
Function Call: WRITE
  • Prompt: !?$S($P(TIUD0,U,13)="H":24,1:22),$S($P(TIUD0,U,13)="H":"Adm: ",1:"Visit: "),$$DATE^TIULS($P(TIUD0,U,7),"MM/DD/CCYY")
  • Line Location: SELPAT+53
Function Call: WRITE
  • Prompt: ?41,"Dis: ",$$DATE^TIULS($P(TIUD0,U,8),"MM/DD/CCYY")
  • Line Location: SELPAT+54
Function Call: WRITE
  • Prompt: !,"SUBJECT: ",$E(TIUD17,1,70)
  • Line Location: SELPAT+55
Function Call: WRITE
  • Prompt: !!,"One ",$S(TIUTYP=3:"note",TIUTYP=244:"summary",1:"document")
  • Line Location: SELPAT+59
Function Call: WRITE
  • Prompt: " found within date range..."
  • Line Location: SELPAT+60
Info |  Source |  Entry Points |  Interaction Calls