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

Package: Text Integration Utility

Routine: TIUPRF1


Information

TIUPRF1 ; SLC/JMH - Modules for Patient Record Flags ; 1/9/06

Source Information

Source file <TIUPRF1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Text Integration Utility 4 $$DATE^TIULS  ($$LINK,$$SELECT,UNLINK)^TIUPRF1  ($$AVAILACT,$$FNDFLAG,$$ISPFTTL)^TIUPRFL  $$READ^TIUU  
Registration 2 $$GETHTIU^DGPFAPI1  ($$DELTIU,$$STOTIU)^DGPFAPI2  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Text Integration Utility 9 TIUPFFIX  TIUPRF1  TIUPRF2  TIUPUTPF  TIURB  TIURB2  TIURS1  TIUSRVP  
^TIU(8925.1  

Entry Points

Name Comments DBIA/ICR reference
SELECT(TIUTTL,DFN,TIUDA) ; Select flag action for VISTA
SELECTQ
BREAK(LINENO,LINKBL,TIUER,LINEOK) ; Handle prompting
BREAK1 ;
WRITE(LINENO) ; write the selectable item
; Uses LKBLARR
LINK(TIUDA,ASSGNDA,ACTDA,DFN) ;links a note to a flag assignment action
UNLINK(TIUDA) ;removes any link the note TIUDA might have
RELINK(TIUDA,DFN) ; removes old link for TIUDA and links to new PRF assignment for patient DFN
; returns 1 if successful otherwise 0^"error message"
CHANGE(TIUDA) ; removes old link for TIUDA and links to new PRF assignment for TIUDA's patient
PRFCT(TIUOTTL,TIUNTTL,TIUDA) ; handles changing title situations for PRF notes in LM
GETLINK(TIUTYP,DFN,TIUDA) ; Ask user for link for NEW note and link it. Return success or failure

External References

Name Field # of Occurrence
$$GETHTIU^DGPFAPI1 SELECT+20
$$DELTIU^DGPFAPI2 UNLINK+4
$$STOTIU^DGPFAPI2 LINK+8
$$DATE^TIULS WRITE+8
$$LINK^TIUPRF1 RELINK+8, PRFCT+14, PRFCT+26, GETLINK+4
$$SELECT^TIUPRF1 PRFCT+11, PRFCT+23, GETLINK+2
UNLINK^TIUPRF1 PRFCT+25, PRFCT+35
$$AVAILACT^TIUPRFL SELECT+26
$$FNDFLAG^TIUPRFL SELECT+17
$$ISPFTTL^TIUPRFL PRFCT+3, PRFCT+4
$$READ^TIUU SELECT+25, SELECT+30, PRFCT+10, PRFCT+21, PRFCT+34
$$FMTE^XLFDT WRITE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This Note must be linked to Patient Record Flag:",!," ",FLAGNM,!," Checking for available Flag Actions...",!
  • Line Location: SELECT+22
Function Call: WRITE
  • Prompt: !,$P(TIUDG,U,2),"!",!
  • Line Location: SELECT+24
Function Call: WRITE
  • Prompt: !,"All linkable Flag actions for this Patient and Title are already linked!",!
  • Line Location: SELECT+29
Function Call: WRITE
  • Prompt: " ?? This action already has a note linked to it.",!
  • Line Location: SELECT+31
Function Call: WRITE
  • Prompt: " ?? The note is already linked to this action.",!
  • Line Location: SELECT+32
Function Call: WRITE
  • Prompt: !,"Please select a Patient Record Flag Assignment Action: "
  • Line Location: SELECT+39
Function Call: WRITE
  • Prompt: !,?7,"Date",?27,"Action",?52,"Note"
  • Line Location: SELECT+40
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",LINENO
  • Line Location: BREAK1+1
Function Call: WRITE
  • Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT"
  • Line Location: BREAK1+2
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK1+3
Function Call: WRITE
  • Prompt: !!,$C(7),"INVALID RESPONSE",!
  • Line Location: BREAK1+6
Function Call: WRITE
  • Prompt: !,?2,LINENO,">",?7,$$FMTE^XLFDT(TIUX,"2D")
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?27,$P(@LKBLARR@("HISTORY",LINENO,"ACTION"),U,2),?52
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: REFDT
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !,"You must select an action ... Nothing (re)-linked."
  • Line Location: CHANGE+5
Function Call: WRITE
  • Prompt: !,"The Title you selected is a PRF Title."
  • Line Location: PRFCT+7
Function Call: WRITE
  • Prompt: !," PRF Notes must be linked to Patient Record Flags.",!
  • Line Location: PRFCT+8
Function Call: WRITE
  • Prompt: !,"Do you want to continue with this Change Title Action?"
  • Line Location: PRFCT+9
Function Call: WRITE
  • Prompt: !,"Title not changed."
  • Line Location: PRFCT+10
Function Call: WRITE
  • Prompt: !,"Title not changed."
  • Line Location: PRFCT+12
Function Call: WRITE
  • Prompt: !,"This document is already attached to a Patient Record"
  • Line Location: PRFCT+17
Function Call: WRITE
  • Prompt: !," Flag. It will be unlinked from the current flag"
  • Line Location: PRFCT+18
Function Call: WRITE
  • Prompt: !," and linked to a new flag.",!
  • Line Location: PRFCT+19
Function Call: WRITE
  • Prompt: !,"Do you want to continue with this Change Title Action?"
  • Line Location: PRFCT+20
Function Call: WRITE
  • Prompt: !,"Title not changed."
  • Line Location: PRFCT+21
Function Call: WRITE
  • Prompt: !,"Title not changed."
  • Line Location: PRFCT+24
Function Call: WRITE
  • Prompt: !,"The Title you selected is not a PRF Title."
  • Line Location: PRFCT+29
Function Call: WRITE
  • Prompt: !," The note is currently linked to a Patient Record Flag,"
  • Line Location: PRFCT+30
Function Call: WRITE
  • Prompt: !," but will be unlinked when the title is changed"
  • Line Location: PRFCT+31
Function Call: WRITE
  • Prompt: !," to a non-PRF Title.",!
  • Line Location: PRFCT+32
Function Call: WRITE
  • Prompt: !,"Do you want to continue with this Change Title Action?"
  • Line Location: PRFCT+33
Function Call: WRITE
  • Prompt: !,"Title not changed."
  • Line Location: PRFCT+34
Function Call: WRITE
  • Prompt: !,"Patient Record Flag Notes must be linked to Flag Actions.",!
  • Line Location: GETLINK+3
Function Call: WRITE
  • Prompt: !,$P(TIUPRFL,U,2),!
  • Line Location: GETLINK+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] WRITE+8, LINK+4, UNLINK+2, RELINK+3, CHANGE+2, CHANGE+3, PRFCT+2
^TMP("TIUPRFH" SELECT+36, SELECT+48, SELECTQ!
^TMP("TIUPRFLKBL" SELECT+36*, SELECTQ!

Label References

Name Line Occurrences
$$LINK CHANGE+8
$$SELECT RELINK+4, CHANGE+4
BREAK SELECT+44, SELECT+45
BREAK1 BREAK1+6
UNLINK RELINK+7, CHANGE+7
WRITE SELECT+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTDA LINK~, LINK+8
ASSGNDA LINK~, LINK+8
AVAIL SELECT+15~, SELECT+26*, SELECT+27
DFN SELECT~, SELECT+20, LINK~, LINK+8, RELINK~, RELINK+4, RELINK+8, CHANGE+1~, CHANGE+2*, CHANGE+4
, CHANGE+8, PRFCT+1~, PRFCT+2*, PRFCT+11, PRFCT+14, PRFCT+23, PRFCT+26, GETLINK~, GETLINK+2, GETLINK+4
DTIME BREAK1+3
FLAGNM SELECT+15~, SELECT+17*, SELECT+18, SELECT+19*, SELECT+22
HASFLAG SELECT+15~, SELECT+16*, SELECT+18*, SELECT+19
LINENO SELECT+43*, SELECT+44, SELECT+45, BREAK~, BREAK+2, BREAK1+1, WRITE~, WRITE+3, WRITE+4, WRITE+5
, WRITE+6, WRITE+7
LINEOK SELECT+41*, SELECT+43, SELECT+44, SELECT+45, SELECT+48, SELECT+50, SELECT+51, BREAK~, BREAK1+7*
LINKBL SELECT+15~, SELECT+26, SELECT+36, SELECT+43, SELECT+44, SELECT+45, BREAK~, BREAK+2
LKBLARR SELECT+14~, SELECT+35*, SELECT+37*, SELECT+48, SELECT+50, SELECT+51, BREAK1+6, WRITE+3, WRITE+5, WRITE+6
, WRITE+7
MORE BREAK+1~, BREAK+2*, BREAK1+2, BREAK1+4
NEWISPRF PRFCT+1~, PRFCT+3*, PRFCT+6, PRFCT+16, PRFCT+28
OLDISPRF PRFCT+1~, PRFCT+4*, PRFCT+6, PRFCT+16, PRFCT+28
REFDT WRITE+2~, WRITE+8*
TIUACT RELINK+2~, RELINK+6*, RELINK+8, CHANGE+6*, CHANGE+8
TIUAGN SELECT+14~, SELECT+16*, SELECT+21, SELECT+22, SELECT+31*, SELECT+32*, SELECT+50*, SELECT+51*
TIUAHIST WRITE+2~, WRITE+7*
TIUASS RELINK+2~, RELINK+6*, RELINK+8, CHANGE+6*, CHANGE+8
TIUDA SELECT~, SELECT+50, LINK~, LINK+4, LINK+8, UNLINK~, UNLINK+2, UNLINK+4, RELINK~, RELINK+3
, RELINK+4, RELINK+7, RELINK+8, CHANGE~, CHANGE+2, CHANGE+3, CHANGE+4, CHANGE+7, CHANGE+8, PRFCT~
, PRFCT+2, PRFCT+14, PRFCT+25, PRFCT+26, PRFCT+35, GETLINK~, GETLINK+4
TIUDG SELECT+14~, SELECT+20*, SELECT+23, SELECT+24
TIUER SELECT+14~, SELECT+41*, SELECT+43, SELECT+44, SELECT+45, SELECT+47, BREAK~, BREAK1+4*
TIUIEN WRITE+2~, WRITE+6*, WRITE+8
TIUJ SELECT+15~, SELECT+36*
TIULINK PRFCT+1~, PRFCT+11*, PRFCT+12, PRFCT+14, PRFCT+23*, PRFCT+24, PRFCT+26
TIULINKC PRFCT+1~, PRFCT+14*, PRFCT+26*
TIUNTTL PRFCT~, PRFCT+3, PRFCT+11, PRFCT+23
TIUOTTL PRFCT~, PRFCT+4
>> TIUPOP CHANGE+5*, CHANGE+9*
TIUPRF RELINK+2~, RELINK+4*, RELINK+5, RELINK+6, CHANGE+1~, CHANGE+4*, CHANGE+5, CHANGE+6, CHANGE+8*, CHANGE+9
, GETLINK+1~, GETLINK+2*, GETLINK+3, GETLINK+4
TIUPRFL GETLINK+1~, GETLINK+4*, GETLINK+5
>> TIUQUIT PRFCT+10*, PRFCT+12*, PRFCT+21*, PRFCT+24*, PRFCT+34*
TIURES LINK+8*, LINK+9, UNLINK+4*, RELINK+2~, RELINK+8*
TIURET SELECT+14~, SELECT+23*, SELECT+28*, SELECT+47*, SELECT+48*, SELECTQ+1
TIUTTL SELECT~, SELECT+17, SELECT+20, LINK+3~, LINK+4*, LINK+5, UNLINK+1~, UNLINK+2*, UNLINK+3, RELINK+2~
, RELINK+3*, RELINK+4, CHANGE+1~, CHANGE+3*, CHANGE+4
TIUTYP GETLINK~, GETLINK+2
TIUX BREAK+1~, BREAK1+3*, BREAK1+4, BREAK1+5, BREAK1+6, BREAK1+7, WRITE+2~, WRITE+3*, WRITE+4
U SELECT+19, SELECT+23, SELECT+24, SELECT+48, WRITE+3, WRITE+5, RELINK+6, CHANGE+2, CHANGE+6, PRFCT+2
, PRFCT+14, PRFCT+26, GETLINK+4, GETLINK+5
UNLINKBL SELECT+15~, SELECT+26, SELECT+35, SELECT+36, SELECT+37
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All