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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Text Integration Utility 11 ($$HASIDDAD,$$HASIDKID)^TIUGBR  $$PATIENT^TIULA  TITLPICK^TIULA4  ($$HASADDEN,$$PERSNAME,$$PNAME)^TIULC1  ($$PERSDOC,SETPARM)^TIULE  ($$CANDO,$$CANPICK)^TIULP  ($$DATE,$$NAME)^TIULS  $$ISA^TIULX  
$$URGENCY^TIURM  LIST^TIUSRVLL  $$READ^TIUU  
VA Fileman 3 ^DIC  MIX^DIC1  ^DIR  
Authorization Subscription 1 $$ISA^USRLM  

Caller Graph

Caller Graph Total: 23

Package Total Caller Graph
Text Integration Utility 23 TIUAPIOK  TIUBRWS  TIUEDI2  TIUEDI4  TIUEDITR  TIUFIX  TIUGEDIT  TIULA3  
TIUPNAPI  TIUPRD  TIUR2  TIURC1  TIURD1  TIURECL  TIURECL1  TIURECL2  
TIURL1  TIURM1  TIUROR  TIURPTT1  TIURTIT1  TIUSRVLO  TIUUPEDT  

Entry Points

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

External References

Name Field # of Occurrence
^DIC ASKTYP+8
MIX^DIC1 ASKTYP+16
^DIR CHOOSE+4
$$HASIDDAD^TIUGBR PREFIX+6
$$HASIDKID^TIUGBR PREFIX+5
$$PATIENT^TIULA SELPAT+7
TITLPICK^TIULA4 DOCSPICK+8
$$HASADDEN^TIULC1 PREFIX+7
$$PERSNAME^TIULC1 SELPAT+52, AUTHOR+2
$$PNAME^TIULC1 SELPAT+45, SELPAT+46
$$PERSDOC^TIULE ASKTYP+11
SETPARM^TIULE SAMPLE+2
$$CANDO^TIULP SAMPLE+7
$$CANPICK^TIULP ITMCNT+3
$$DATE^TIULS SELPAT+16, SELPAT+17, SELPAT+28, SELPAT+50, SELPAT+53, SELPAT+54
$$NAME^TIULS SELPAT+52
$$ISA^TIULX ASKTYP+12
$$URGENCY^TIURM PREFIX+8
LIST^TIUSRVLL SELPAT+36
$$READ^TIUU SELPAT+10, SELPAT+14, SELPAT+22, SELPAT+29, SELPAT+32, AUTHOR+5
$$ISA^USRLM AUTHOR+2

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
Routine Call
  • DIC
  • Line Location:
    • ASKTYP+8
Routine Call
  • DIR
  • Line Location:
    • CHOOSE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SELPAT+9, SELPAT+13
^TIU(8925 - [#8925] SELPAT+8, SELPAT+42, SELPAT+44, SELPAT+46, SELPAT+69, SAMPLE+4, SAMPLE+6, SAMPLE+8
^TIU(8925.1 - [#8925.1] ASKTYP+4, ASKTYP+5, ASKTYP+7, ITMCNT+2, ITMCNT+3
^TMP("TIULIDX" SELPAT+3!
^TMP("TIULIST" SELPAT+3!
^TMP("TIUYLIST" SELPAT+4!, SELPAT+37, SELPAT+39, SELPAT+42, SELPAT+44, SELPAT+48, SELPAT+58, SELPAT+69, SELPAT+70!

Label References

Name Line Occurrences
$$ASKTYP ASKTYP+6, DOCPICK+3, DOCSPICK+12
$$ITMCNT ASKTYP+2
$$PREFIX SELPAT+48
$$SAMPLE SELPAT+11
ASKTYPX ASKTYP+3
CHOOSE SELPAT+56, SELPAT+62

Naked Globals

Name Field # of Occurrence
^(12 SELPAT+42
^(17 SELPAT+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDSCRN DOCPICK~, DOCPICK+2, DOCSPICK~, DOCSPICK+7, DOCSPICK+10
ATTCHID DOCSPICK+2~, DOCSPICK+7*, DOCSPICK+8
CLASS ITMCNT~, ITMCNT+2, ITMCNT+3, SAMPLE~, SAMPLE+4, SAMPLE+6
D ASKTYP+1~, ASKTYP+15*
DA PREFIX~, PREFIX+5, PREFIX+6, PREFIX+7, PREFIX+8
DFLT ASKTYP~, ASKTYP+6, ASKTYP+11*, ASKTYP+12*, ASKTYP+13, DOCPICK~, DOCPICK+3, DOCSPICK~, DOCSPICK+3*, DOCSPICK+11*
, DOCSPICK+12, AUTHOR+1~, AUTHOR+2*, AUTHOR+5
DFN SELPAT~, SELPAT+7*, SELPAT+8, SELPAT+9, SELPAT+11, SELPAT+13, SELPAT+36, SAMPLE~, SAMPLE+4, SAMPLE+6
DIC ASKTYP+1~, ASKTYP+2*
DIC("A" ASKTYP+10*
DIC("B" ASKTYP+13*
DIC("S" ASKTYP+14*, ASKTYP+16!
DIC(0 ASKTYP+7*, ASKTYP+9*
DIR CHOOSE+1~
DIR("A" CHOOSE+3*
DIR(0 CHOOSE+2*
>> DIROUT CHOOSE+5
DIRUT SELPAT+30, SELPAT+33, CHOOSE+1~
DTOUT CHOOSE+1~, CHOOSE+5
DUOUT CHOOSE+1~, CHOOSE+5
DUZ ASKTYP+11, AUTHOR+2
EARLY SAMPLE+1~, SAMPLE+3*, SAMPLE+11*, SAMPLE+12
HI CHOOSE~, CHOOSE+2
IDKID PREFIX~, PREFIX+6
IDKIDFLG PREFIX+2~, PREFIX+4*, PREFIX+7
ITMCNT ASKTYP+1~, ASKTYP+2*, ASKTYP+3, ASKTYP+5, ASKTYP+7
LATE SAMPLE+1~, SAMPLE+3*, SAMPLE+9*, SAMPLE+12
LO CHOOSE~, CHOOSE+2
NOLOINC ASKTYP~, ASKTYP+15
PARM DOCSPICK~, DOCSPICK+4*, DOCSPICK+8
PAUSE CHOOSE~, CHOOSE+5
PREFIX SELPAT+40~, SELPAT+48*, PREFIX+2~, PREFIX+3*, PREFIX+5*, PREFIX+6*, PREFIX+7*, PREFIX+8*, PREFIX+9*, PREFIX+10
PROMPT ASKTYP~, ASKTYP+6, ASKTYP+10, DOCPICK+1~*, DOCPICK+3, DOCSPICK~, DOCSPICK+9*, DOCSPICK+12, CHOOSE~, CHOOSE+3
SCREEN ASKTYP~, ASKTYP+6, ASKTYP+14, DOCPICK+1~, DOCPICK+2*, DOCPICK+3, DOCSPICK+2~, DOCSPICK+10*, DOCSPICK+12
TERMOK AUTHOR~, AUTHOR+1*
TIUA SELPAT+1~, SELPAT+29*, SELPAT+30, SELPAT+33, SELPAT+34*, SELPAT+36
TIUASK SELPAT~, SELPAT+20
TIUCLASS ASKTYP~, ASKTYP+2*, ASKTYP+4, ASKTYP+5*, ASKTYP+6, ASKTYP+7, ASKTYP+11, ASKTYP+12, DOCPICK~, DOCPICK+1
, DOCPICK+3, DOCSPICK~, DOCSPICK+8, DOCSPICK+9, DOCSPICK+12
TIUCNT ITMCNT+1~*, ITMCNT+4*, ITMCNT+5
TIUCONT SELPAT+2~, SELPAT+20, SELPAT+22*
TIUD0 SELPAT+40~, SELPAT+42*, SELPAT+45, SELPAT+46, SELPAT+49, SELPAT+53, SELPAT+54
TIUD12 SELPAT+40~, SELPAT+42*, SELPAT+52
TIUD13 SELPAT+40~, SELPAT+44*, SELPAT+50
TIUD17 SELPAT+40~, SELPAT+44*, SELPAT+55
TIUDOC SELPAT+40~, SELPAT+45*, SELPAT+46*, SELPAT+48*, SELPAT+49*, SELPAT+51
TIUEDFLT SELPAT+2~, SELPAT+26*, SELPAT+27*, SELPAT+28*, SELPAT+29
TIUEDT SELPAT+1~, SELPAT+16*, SELPAT+18, SELPAT+26, SELPAT+27, SELPAT+29, SELPAT+32
TIUFPRIV ASKTYP+1~*
TIUI ITMCNT+1~*, ITMCNT+2*, ITMCNT+3, ITMCNT+5, SELPAT+1~, SELPAT+39*, SELPAT+42, SELPAT+44, SELPAT+48, SELPAT+50
, SELPAT+56, SELPAT+66*, SELPAT+67, SELPAT+69, SAMPLE+1~, SAMPLE+3*, SAMPLE+4*, SAMPLE+6, SAMPLE+9, SAMPLE+10
TIUJ SELPAT+2~, SELPAT+67*, SELPAT+69, SAMPLE+1~, SAMPLE+5*, SAMPLE+6*, SAMPLE+7, SAMPLE+8, SAMPLE+10
TIUK SELPAT+63~, SELPAT+64*, SELPAT+65*, SELPAT+66
TIUL SAMPLE+1~, SAMPLE+3*, SAMPLE+10*, SAMPLE+11
TIULAST SELPAT+2~, SELPAT+44*, SELPAT+62
TIULDA SAMPLE+1~, SAMPLE+3*, SAMPLE+10*, SAMPLE+13
TIULDT SELPAT+1~, SELPAT+17*, SELPAT+19, SELPAT+29, SELPAT+32
TIULIST SELPAT+2~, SELPAT+61*, SELPAT+62, SELPAT+67
TIULIST( SELPAT+65, SELPAT+66
TIUPNOUN SELPAT+2~, SELPAT+6*, SELPAT+9, SELPAT+13, SELPAT+18, SELPAT+24, SELPAT+25, SELPAT+62
>> TIUPRM0 SAMPLE+2, SAMPLE+7
TIUPRMT SELPAT+1~, SELPAT+21~*, SELPAT+22, SELPAT+25*, SELPAT+29, SELPAT+31*, SELPAT+32, AUTHOR+1~, AUTHOR+3*, AUTHOR+5
TIUQRY SELPAT+1~
TIUREC SELPAT+1~
TIURTN SELPAT~, SELPAT+23*, SELPAT+64*, SELPAT+69*
TIURTN( SELPAT+69*
TIURTN(1 SELPAT+23*, SELPAT+58*
TIURTYP AUTHOR+1~, AUTHOR+3*, AUTHOR+5
TIUSCRN AUTHOR+1~, AUTHOR+4*, AUTHOR+5
TIUSMPL SELPAT+2~, SELPAT+11*, SELPAT+12, SELPAT+15, SELPAT+16, SELPAT+17, SELPAT+23
TIUSTOP SELPAT+1~, SELPAT+39, SELPAT+56, SELPAT+61
TIUTMP SELPAT+2~, SELPAT+34*
TIUTOT SELPAT+1~, SELPAT+15*, SELPAT+19, SELPAT+23
TIUTYP SELPAT~, SELPAT+5*, SELPAT+6, SELPAT+8, SELPAT+11, SELPAT+36, SELPAT+59
TIUY ITMCNT+1~*, ITMCNT+5*, ITMCNT+6, DOCSPICK~, DOCSPICK+8, DOCSPICK+12*, DOCSPICK+13*, SELPAT+2~, SELPAT+36, SELPAT+56
, SELPAT+58, SAMPLE+1~, SAMPLE+12*, SAMPLE+13*, SAMPLE+14, AUTHOR+1~, AUTHOR+5*, AUTHOR+6
TIUY("NODFLT" DOCSPICK+11
TIUY(1 DOCSPICK+13*
TIUZ SELPAT+1~, SELPAT+32*, SELPAT+34*, SELPAT+36
TOTAL SAMPLE+1~, SAMPLE+3*, SAMPLE+10*, SAMPLE+12, SAMPLE+13
U ASKTYP+4, ASKTYP+5, ASKTYP+7, ASKTYP+8, ASKTYP+11, ITMCNT+5, DOCSPICK+13, SELPAT+9, SELPAT+13, SELPAT+15
, SELPAT+16, SELPAT+17, SELPAT+18, SELPAT+19, SELPAT+23, SELPAT+26, SELPAT+27, SELPAT+32, SELPAT+46, SELPAT+49
, SELPAT+52, SELPAT+53, SELPAT+54, SELPAT+56, SAMPLE+7, SAMPLE+12, SAMPLE+13
X ASKTYP+1~, ASKTYP+7*, CHOOSE+1~
Y ASKTYP+1~, ASKTYP+6*, ASKTYP+8*, ASKTYPX, DOCSPICK+2~, CHOOSE~, CHOOSE+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All