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

Package: Text Integration Utility

Routine: TIURC1


Information

TIURC1 ; SLC/JER - Additional Review screen actions ;04-Jun-2012 16:26;DU

Source Information

Source file <TIURC1.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Text Integration Utility 15 ($$GETLMETH,$$GETVMETH,MERGTEXT)^TIUEDI1  $$GETRECNW^TIUEDI3  DOCSPICK^TIULA2  ($$NOW,$$STATUS)^TIULC  ($$CLINDOC,$$ISADDNDM,$$PNAME,$$SUPPVSIT,DOCPRM)^TIULC1  ($$CANDO,$$CANENTR,$$CANPICK,$$REQCOSIG)^TIULP  $$DOCRES^TIULRR  $$UPPER^TIULS  
$$WORKOK^TIUPXAP1  ADDELMNT^TIUR2  EDIT1^TIURA  UPRBLD^TIURL  VMSG^TIURS1  EVENT^TIUSRVP1  $$READ^TIUU  
Registration 3 EN^VALM  FULL^VALM1  EN^VALM2  
Order Entry Results Reporting 1 PATIENT^ORU1  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Text Integration Utility 3 TIURC  TIURD2  TIUSROI  

Entry Points

Name Comments DBIA/ICR reference
AGAIN() ; Ask again?
COPY0(DA,TIUD0,TIU) ; Copy 0-node
COPYTEXT(TIUDA,DA) ; Copy text
COPY17(DA,TIUD17) ; Copy Subject
COPY1 ; Copy a document
CHKTITLE(TIUTYP) ; Title Status
COPY12(DA,TIUD0,TIUD12,TIU) ; Copy 12-node
COPY13(DA,TIUD13,TIU) ; Copy 13-node
COPY14(DA,TIUD14,TIU) ; Copy 14-node
COPY ; Copy

External References

Name Field # of Occurrence
^DIE COPY1+67, COPY0+4, COPY12+6, COPY13+3, COPY14+3, COPY17+3
PATIENT^ORU1 COPY1+33
$$GETLMETH^TIUEDI1 COPY1+43
$$GETVMETH^TIUEDI1 COPY1+52
MERGTEXT^TIUEDI1 COPY1+66
$$GETRECNW^TIUEDI3 COPY1+59
DOCSPICK^TIULA2 COPY1+23
$$NOW^TIULC COPY12+2, COPY13+2
$$STATUS^TIULC COPY1+62, COPY1+67
$$CLINDOC^TIULC1 COPY1+22
$$ISADDNDM^TIULC1 COPY1+4, COPYTEXT+5
$$PNAME^TIULC1 COPY1+29, COPY1+46, COPY1+55
$$SUPPVSIT^TIULC1 COPY1+41
DOCPRM^TIULC1 COPY1+28
$$CANDO^TIULP COPY+12, COPY1+7
$$CANENTR^TIULP CHKTITLE+3
$$CANPICK^TIULP CHKTITLE+2
$$REQCOSIG^TIULP COPY12+4
$$DOCRES^TIULRR COPY+8
$$UPPER^TIULS COPY1+62, COPY1+67
$$WORKOK^TIUPXAP1 COPY0+3
ADDELMNT^TIUR2 COPY+28
EDIT1^TIURA COPY1+69
UPRBLD^TIURL COPY+31
VMSG^TIURS1 COPY+33
EVENT^TIUSRVP1 COPY1+50
$$READ^TIUU COPY+11, COPY+15, COPY1+6, COPY1+10, COPY1+36, COPY1+47, COPY1+63, AGAIN+2
EN^VALM COPY+19
FULL^VALM1 COPY1+14
EN^VALM2 COPY+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: COPY+10
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUVIEW,U,2),!
  • Line Location: COPY+14
Function Call: WRITE
  • Prompt: !,$C(7),"ADDENDA may not be copied."
  • Line Location: COPY1+5
Function Call: WRITE
  • Prompt: ""
  • Line Location: COPY1+6
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUCOPY,U,2),!
  • Line Location: COPY1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY1+18
Function Call: WRITE
  • Prompt: !,$C(7),$P(TIUDOC0,U,3)," is an inactive title."
  • Line Location: COPY1+20
Function Call: WRITE
  • Prompt: !,"You must now select a new, active title BEFORE the note is copied:",!
  • Line Location: COPY1+21
Function Call: WRITE
  • Prompt: !!,"Please Choose One or More Patients for whom the document should be copied:",!
  • Line Location: COPY1+31
Function Call: WRITE
  • Prompt: !,$C(7),"No patient(s) selected..."
  • Line Location: COPY1+35
Function Call: WRITE
  • Prompt: !
  • Line Location: COPY1+36
Function Call: WRITE
  • Prompt: !,$C(7),"No Visit Linkage Method defined for "
  • Line Location: COPY1+45
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..."
  • Line Location: COPY1+46
Function Call: WRITE
  • Prompt: ""
  • Line Location: COPY1+47
Function Call: WRITE
  • Prompt: !!,"For Patient ",TIUPATNM
  • Line Location: COPY1+48
Function Call: WRITE
  • Prompt: !,$C(7),"Patient & Visit required."
  • Line Location: COPY1+51
Function Call: WRITE
  • Prompt: !,$C(7),"No Validation Method defined for "
  • Line Location: COPY1+54
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..."
  • Line Location: COPY1+55
Function Call: WRITE
  • Prompt: !!,$C(7),"A ",$P(TIUTYP(1),U,3)," already exists for this visit."
  • Line Location: COPY1+61
Function Call: WRITE
  • Prompt: !,"You may not use the copy function to overwrite an existing ",!,$$UPPER^TIULS($$STATUS^TIULC(DA))," ",$P(TIUTYP(1),U,3),".",!
  • Line Location: COPY1+62
Function Call: WRITE
  • Prompt: ""
  • Line Location: COPY1+63
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+1
Routine Call
  • VALM
  • Line Location:
    • COPY+19
Routine Call
  • DIE
  • Line Location:
    • COPY1+67
    • COPY0+4
    • COPY12+6
    • COPY13+3
    • COPY14+3
    • COPY17+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] COPY1+11, COPY1+12, COPY1+66!, COPY1+68, COPY0+3, COPYTEXT+2*, COPYTEXT+3, COPYTEXT+4, COPYTEXT+6, COPYTEXT+8*
, COPYTEXT+9*
^TIU(8925.1 - [#8925.1] COPY1+17
^TMP("TIUR" COPY+27
^TMP("TIURIDX" COPY+7
^TMP("TIUVIEW" COPY+20!

Label References

Name Line Occurrences
$$AGAIN COPY1+72
$$CHKTITLE COPY1+15, COPY1+27
COPY0 COPY1+64
COPY12 COPY1+64
COPY13 COPY1+64
COPY14 COPY1+65
COPY17 COPY1+65
COPYTEXT COPY1+65

Naked Globals

Name Field # of Occurrence
^(12 COPY1+11
^(13 COPY1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BTIURPT COPY+31
DA COPY+1~, COPY1+39~, COPY1+58~, COPY1+59*, COPY1+62, COPY1+64, COPY1+65, COPY1+66, COPY1+67, COPY1+68
, COPY1+69, COPY1+70, COPY1+71, COPY0~, COPY0+3, COPY12~, COPY12+4, COPY13~, COPY14~, COPY17~
, COPYTEXT~, COPYTEXT+2, COPYTEXT+3, COPYTEXT+8, COPYTEXT+9
DFN COPY1+39~, COPY1+40*, COPY1+50, COPY1+59, COPY0+2
DIE COPY+1~, COPY1+58~, COPY1+67*, COPY0+1~*, COPY12+1~*, COPY13+1~*, COPY14+1~*, COPY17+1~*
DIROUT COPY+1~, COPY+5, COPY1+2~
DR COPY+1~, COPY1+39~, COPY1+58~, COPY1+67*, COPY0+1~, COPY0+2*, COPY0+3*, COPY12+1~, COPY12+2*, COPY12+3*
, COPY12+4*, COPY12+5*, COPY13+1~, COPY13+2*, COPY14+1~, COPY14+2*, COPY17+1~, COPY17+3*
DT COPYTEXT+9
DTOUT COPY1+2~
DUOUT COPY1+2~
DUZ COPY12+2, COPY12+4, COPY13+2
OLDNREC COPY+2~, COPY+16*, COPY+21
RSTRCTD COPY+6~, COPY+8*, COPY+9
TIU COPY+1~, COPY+6~, COPY1+39~, COPY1+50, COPY1+57, COPY1+59, COPY1+64, COPY1+65, COPY1+66, COPY0~
, COPY12~, COPY13~, COPY14~
TIU("AD#" COPY14+2
TIU("EDT" COPY0+2
TIU("INST" COPY12+5
TIU("LDT" COPY0+2
TIU("LOC" COPY12+2
TIU("TS" COPY14+2
TIU("VISIT" COPY0+2
TIU("VLOC" COPY12+5
TIU("VSTR" COPY1+51
TIUASK COPY1+2~, COPY1+57
TIUBAD CHKTITLE+1~*, CHKTITLE+2*, CHKTITLE+3*, CHKTITLE+4
TIUC COPYTEXT+1~, COPYTEXT+3*, COPYTEXT+4*, COPYTEXT+5, COPYTEXT+6, COPYTEXT+8
TIUCHNG COPY+1~, COPY+31, COPY1+37*, COPY1+71*
TIUCHNG("REFRESH" COPY+29*
TIUCOPY COPY1+2~, COPY1+7*, COPY1+8, COPY1+9
TIUCPYNG COPY1+69~*
TIUD0 COPY0~, COPY0+2, COPY12~, COPY12+4
TIUD12 COPY12~, COPY12+2, COPY12+3, COPY12+4, COPY12+5
TIUD13 COPY1+1~, COPY1+11*, COPY1+64, COPY13~, COPY13+2
TIUD14 COPY14~, COPY14+2
TIUD17 COPY17~, COPY17+2
TIUDA COPY+8*, COPY+12, COPY+22, COPY1+4, COPY1+7, COPY1+11, COPY1+12, COPY1+22, COPY1+28, COPY1+65
, COPY1+69~*, COPYTEXT~, COPYTEXT+2, COPYTEXT+4
TIUDAARY COPY+2~, COPY+33
TIUDAARY( COPY+22*
TIUDATA COPY+1~, COPY+7*, COPY+8
TIUDCLS COPY1+16~, COPY1+22*, COPY1+23
TIUDOC0 COPY1+16~, COPY1+17*, COPY1+19, COPY1+20
TIUDPRM COPY1+2~, COPY1+28, COPY1+59
TIUDPRM(0 COPY0+3
TIUI COPY+1~, COPY+4*, COPY+5*, COPY+7, COPY+22, COPY+23, COPY+25~, COPY+26*, COPY+27, COPY1+1~
, COPY1+38*, COPY1+40, COPYTEXT+1~, COPYTEXT+6*, COPYTEXT+8
TIUITEM COPY+25~, COPY+27*, COPY+28, COPY1+58~
TIUJ COPYTEXT+1~, COPYTEXT+3*, COPYTEXT+7*, COPYTEXT+8, COPYTEXT+9
TIULINE COPYTEXT+1~, COPYTEXT+3*
TIULMETH COPY1+39~, COPY1+43*, COPY1+44, COPY1+49
TIULST COPY+2~, COPY+23*, COPY+33
TIUNDA COPY+25~, COPY+27*, COPY+28
TIUNEW COPY1+58~, COPY1+59, COPY1+60
TIUNREC COPY+2~, COPY+16, COPY+21, COPY+24, COPY+26, COPY+27, COPY1+71*
TIUOD0 COPY1+1~, COPY1+11*, COPY1+13, COPY1+64
TIUOD12 COPY1+1~, COPY1+11*, COPY1+64
TIUOD14 COPY1+1~, COPY1+12*, COPY1+65
TIUOD17 COPY1+1~, COPY1+12*, COPY1+65
>> TIUOUT COPY1+15, COPY1+24*, COPY1+27*, COPY1+44*, COPY1+53*
TIUPAT COPY1+1~, COPY1+33, COPY1+34
TIUPAT( COPY1+38, COPY1+40
TIUPATNM COPY1+39~, COPY1+40*, COPY1+48
TIUPOP COPY1+2~, COPY1+3*, COPY1+32, COPY1+37*, COPY1+72*
TIUTNM COPY1+1~, COPY1+29*, COPY1+30
TIUTYP COPY1+1~, COPY1+13*, COPY1+15, COPY1+17, COPY1+22*, COPY1+23, COPY1+24, COPY1+26*, COPY1+27, COPY1+28
, COPY1+29, COPY1+30, COPY1+41, COPY1+43, COPY1+46, COPY1+52, COPY1+55, CHKTITLE~, CHKTITLE+2, CHKTITLE+3
TIUTYP(1 COPY1+26, COPY1+30*, COPY1+59, COPY1+61, COPY1+62
TIUVIEW COPY+2~, COPY+12*, COPY+13, COPY+14
TIUVMETH COPY1+39~, COPY1+52*, COPY1+53, COPY1+56
TIUVSUPP COPY1+2~, COPY1+41*, COPY1+42
TIUY COPY+1~, AGAIN+1~, AGAIN+2*, AGAIN+3
U COPY+8, COPY+14, COPY1+9, COPY1+19, COPY1+20, COPY1+26, COPY1+30, COPY1+40, COPY1+61, COPY1+62
, COPY0+2, COPY0+3, COPY12+2, COPY12+3, COPY12+4, COPY12+5, COPY13+2, COPY14+2, COPYTEXT+3
>> VALMBCK COPY+32*
VALMY COPY+3, COPY+31!
VALMY( COPY+5
>> XQORNOD(0 COPY+3
Y COPY+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All