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

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

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