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

Package: Text Integration Utility

Routine: TIURA1


Information

TIURA1 ; SLC/JER - Review screen actions ;3/5/01

Source Information

Source file <TIURA1.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Text Integration Utility 12 ADDENDUM^TIUADD  SEND^TIUALRT  DOCPRM^TIULC1  SETPARM^TIULE  $$CANDO^TIULP  $$DOCRES^TIULRR  $$SIGNAME^TIULS  ($$ASKSIGN,XTRASIGN)^TIULX  
EDTENC^TIUPXAP2  UPRBLD^TIURL  VMSG^TIURS1  $$READ^TIUU  
Registration 2 (CLEAR,FULL)^VALM1  EN^VALM2  
VA Fileman 2 ^DIC  ^DIE  
Kernel 1 $$ACTIVE^XUSER  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Text Integration Utility 4 TIUALFUN  TIURA  TIURA2  TIUSRVA  
Consult Request Tracking 1 GMRCTIUE  
IHS Mods To Text Integration Utilities 1 BTIURPT  
Order Entry Results Reporting 1 ORCNOTE  

Entry Points

Name Comments DBIA/ICR reference
MAYCHNG(TIUDA) ; Boolean function - can cosigner be modified?
ENCNTX ; Revise list and cycle back as appropriate
NAME ; Identify signer(s)
ADDEND ; Make addenda
PERSEL(TIUY,TIUDA) ; Select a person
SCREEN(TIUDA,Y) ; Evaluate whether a person may be selected as a signer
ENCNTR ; Enter/edit encounter data on demand
CHNGCSNR(DA) ; Change the expected cosigner
CHARTANY(VALMY) ; Can any of the selected items be printed for the chart?
ADDEND1 ; Single record Addendum
; Receives TIUDA
SIGNER ; Link selected document to additional signers
; Receives TIUDA as pointer to document record
SCREENX
CHARTONE(TIUDA) ; Can this document be printed for the chart?
NAMEX ; Revise list and cycle back as appropriate
CHNGAGN

External References

Name Field # of Occurrence
^DIC SIGNER+24
^DIE SIGNER+17, SIGNER+27, CHNGAGN
ADDENDUM^TIUADD ADDEND1+6
SEND^TIUALRT SIGNER+18, SIGNER+29, CHNGAGN+2
DOCPRM^TIULC1 CHARTONE+3
SETPARM^TIULE ADDEND1+4
$$CANDO^TIULP SIGNER+3
$$DOCRES^TIULRR ADDEND+10, NAME+9, ENCNTR+9
$$SIGNAME^TIULS SIGNER+28
$$ASKSIGN^TIULX SIGNER+16
XTRASIGN^TIULX SIGNER+15
EDTENC^TIUPXAP2 ENCNTR+15
UPRBLD^TIURL ADDEND+23, NAMEX+2, ENCNTX+2
VMSG^TIURS1 ADDEND+25, NAMEX+4, ENCNTX+4
$$READ^TIUU ADDEND+13, NAME+12, SIGNER+7, SIGNER+11, SIGNER+20, PERSEL+6, ENCNTR+12
CLEAR^VALM1 ADDEND+8
FULL^VALM1 NAME+5, ENCNTR+5
EN^VALM2 ADDEND+4, NAME+3, ENCNTR+3
$$ACTIVE^XUSER SCREEN+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Making an addendum for #",+TIUDATA
  • Line Location: ADDEND+8
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: ADDEND+12
Function Call: WRITE
  • Prompt: !,"No Documents selected."
  • Line Location: ADDEND1+5
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: NAME+11
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUCANID,U,2),!
  • Line Location: SIGNER+10
Function Call: WRITE
  • Prompt: !,"This Document Already has Additional Expected Signers."
  • Line Location: SIGNER+14
Function Call: WRITE
  • Prompt: !,$$SIGNAME^TIULS(+TIULIST(TIUI))," Added as expected signer..."
  • Line Location: SIGNER+28
Function Call: WRITE
  • Prompt: !,"You may change the expected cosigner, if you wish...",!
  • Line Location: CHNGCSNR+2
Function Call: WRITE
  • Prompt: !,$C(7)," Response Required."
  • Line Location: CHNGAGN+1
Function Call: WRITE
  • Prompt: !!,"Specify other practitioners whose signatures will be expected:",!
  • Line Location: PERSEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PERSEL+9
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: ENCNTR+11
Routine Call
  • DIE
  • Line Location:
    • SIGNER+17
    • SIGNER+27
    • CHNGAGN
Routine Call
  • DIC
  • Line Location:
    • SIGNER+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] ADDEND+16, MAYCHNG+2, CHNGAGN+1, SCREEN+2, CHARTONE+2
^TIU(8925.7 - [#8925.7] SIGNER+12, SCREEN+12
^TMP("TIURIDX" ADDEND+7, NAME+8, ENCNTR+8, CHARTANY+3

Label References

Name Line Occurrences
$$CHARTONE CHARTANY+5
$$MAYCHNG SIGNER+4
ADDEND1 ADDEND+16
CHNGAGN CHNGAGN+1
CHNGCSNR SIGNER+6
PERSEL SIGNER+21
SCREENX SCREEN+4, SCREEN+6, SCREEN+8, SCREEN+10, SCREEN+12, SCREEN+16
SIGNER NAME+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X ADDEND1+2~
%Y ADDEND1+2~
>> BTIURPT ADDEND+23
C ADDEND1+2~
D ADDEND1+2~
D0 ADDEND1+2~
DA SIGNER+13~, SIGNER+16*, SIGNER+23~, CHNGCSNR~, CHNGAGN+1, CHNGAGN+2
DDWTMP ADDEND1+2~
DFN ADDEND1+2~, NAME+1~, ENCNTR+1~
DI ADDEND1+2~
DIC ADDEND1+2~, SIGNER+23~, SIGNER+24*, SIGNER+25
DIC(0 SIGNER+24*
DIDEL SIGNER+13~, SIGNER+17*
DIE SIGNER+13~, SIGNER+17*, SIGNER+23~, SIGNER+25*, CHNGCSNR+1~, CHNGAGN*
DIROUT ADDEND+1~, ADDEND+5, NAME+1~, NAME+6, ENCNTR+1~, ENCNTR+6
DLAYGO SIGNER+23~, SIGNER+24*
DR SIGNER+13~, SIGNER+17*, SIGNER+23~, SIGNER+26*, CHNGCSNR+1~, CHNGAGN*
DUZ MAYCHNG+5, SCREEN+4
RSTRCTD ADDEND+6~, ADDEND+10*, ADDEND+11, NAME+7~, NAME+9*, NAME+10, ENCNTR+7~, ENCNTR+9*, ENCNTR+10
TIU NAME+1~, NAME+7~, ENCNTR+1~, ENCNTR+7~
TIUADD ADDEND1+2~
TIUAUTH MAYCHNG+1~, MAYCHNG+3*, MAYCHNG+5
TIUCANID SIGNER+2~, SIGNER+3*, SIGNER+7, SIGNER+8, SIGNER+9, SIGNER+10
TIUCHNG ADDEND+1~, ADDEND+15*, ADDEND+17, ADDEND+23, ADDEND1+6, NAME+1~, NAME+14*, NAME+16, NAMEX+2, SIGNER+2*
, SIGNER+6*, SIGNER+18*, SIGNER+30*, ENCNTR+1~, ENCNTR+14*, ENCNTR+15, ENCNTR+16, ENCNTX+2
TIUCHNG("ADDM" ADDEND+20
TIUCHNG("DELETE" ADDEND+20
TIUCHNG("RBLD" ADDEND+20*
TIUCHNG("REFRESH" NAMEX+1*, ENCNTX+1*
TIUCHNG("UPDATE" ADDEND+21*
TIUD0 MAYCHNG+1~, MAYCHNG+2*, MAYCHNG+4, SCREEN+1~, SCREEN+2*
TIUD12 MAYCHNG+1~, MAYCHNG+2*, MAYCHNG+3, SCREEN+1~, SCREEN+2*, SCREEN+6, SCREEN+8, SCREEN+18
TIUDA ADDEND+1~, ADDEND+10*, ADDEND+14, ADDEND+16, ADDEND1+5, ADDEND1+6, NAME+1~, NAME+9*, NAME+13, SIGNER+3
, SIGNER+4, SIGNER+6, SIGNER+12, SIGNER+15, SIGNER+18, SIGNER+21, SIGNER+24, SIGNER+29, MAYCHNG~, MAYCHNG+2
, PERSEL~, SCREEN~, SCREEN+2, SCREEN+12, ENCNTR+1~, ENCNTR+9*, ENCNTR+13, ENCNTR+15, CHARTANY+1~, CHARTANY+4*
, CHARTANY+5, CHARTONE~, CHARTONE+2, CHARTONE+3
TIUDAARY ADDEND+1~, ADDEND+25, NAME+2~, NAMEX+4, ENCNTR+2~, ENCNTX+4
TIUDAARY( ADDEND+14*, NAME+13*, ENCNTR+13*
TIUDATA ADDEND+1~, ADDEND+7*, ADDEND+8, ADDEND+10, NAME+1~, NAME+8*, NAME+9, ENCNTR+1~, ENCNTR+8*, ENCNTR+9
, CHARTANY+1~, CHARTANY+3*, CHARTANY+4
TIUDPRM ADDEND1+3~, CHARTONE+1~, CHARTONE+3
TIUDPRM(0 CHARTONE+4
TIUDTYP CHARTONE+1~, CHARTONE+2*, CHARTONE+3
TIUECSNR MAYCHNG+1~, MAYCHNG+3*, MAYCHNG+4, MAYCHNG+5
TIUEDIT ADDEND1+2~, NAME+1~
TIUESNR MAYCHNG+1~, MAYCHNG+3*, MAYCHNG+5
TIUI ADDEND+1~, ADDEND+2*, ADDEND+5*, ADDEND+7, ADDEND+14, ADDEND+18, NAME+1~, NAME+4*, NAME+6*, NAME+8
, NAME+13, NAME+16, SIGNER+2~*, SIGNER+22*, SIGNER+26, SIGNER+28, SIGNER+30, PERSEL+1~*, PERSEL+4*, PERSEL+8
, SCREEN+1~, SCREEN+13*, SCREEN+14*, SCREEN+15, ENCNTR+1~, ENCNTR+4*, ENCNTR+6*, ENCNTR+8, ENCNTR+13, ENCNTR+16
, CHARTANY+1~*, CHARTANY+2*, CHARTANY+3
TIULIST SIGNER+2~, SIGNER+21
TIULIST( SIGNER+22, SIGNER+26, SIGNER+28, SCREEN+14, SCREEN+15
TIULST ADDEND+1~, ADDEND+18*, ADDEND+25, NAME+1~, NAME+16*, NAMEX+4, ENCNTR+1~, ENCNTR+16*, ENCNTX+4
TIUMORE SIGNER+2~*, SIGNER+4, SIGNER+7*, SIGNER+8*, SIGNER+12, SIGNER+20*
TIUMSG ADDEND1+2~
>> TIUPRM0 ADDEND1+4
>> TIUPRM1 ADDEND1+4
TIUPRMT SIGNER+5~*, SIGNER+7, SIGNER+13~, SIGNER+19*, SIGNER+20, PERSEL+1~, PERSEL+4*, PERSEL+6
TIUPRSN PERSEL+1~, PERSEL+6*, PERSEL+7, PERSEL+8
TIUQUIT ADDEND1+2~, PERSEL+1~*, PERSEL+3, PERSEL+7*
TIUREL ADDEND1+2~
TIUSCRN PERSEL+1~, PERSEL+5*, PERSEL+6
TIUT0 ADDEND1+3~
TIUTYP ADDEND1+3~
TIUY NAME+1~, SIGNER+13~, SIGNER+15, SIGNER+16, MAYCHNG+1~*, MAYCHNG+5*, MAYCHNG+6, PERSEL~, SCREEN+1~*, SCREEN+4*
, SCREEN+6*, SCREEN+8*, SCREEN+10*, SCREEN+12*, SCREEN+14, SCREEN+15*, SCREEN+16, SCREEN+18*, SCREENX, ENCNTR+1~
, CHARTANY+1~*, CHARTANY+2, CHARTANY+5*, CHARTANY+6
TIUY( PERSEL+8*
TIUY(0 SIGNER+15
U ADDEND+10, NAME+9, SIGNER+10, MAYCHNG+3, MAYCHNG+4, CHNGAGN+1, SCREEN+6, SCREEN+8, SCREEN+18, ENCNTR+9
, CHARTANY+4, CHARTONE+4
>> VALMBCK ADDEND+24*, NAMEX+3*, ENCNTX+3*
VALMY ADDEND+4, ADDEND+23!, NAME+3, NAME+7~, NAMEX+2!, ENCNTR+3, ENCNTR+7~, ENCNTX+2!, CHARTANY~
VALMY( ADDEND+5, NAME+6, SIGNER+30!, ENCNTR+6, CHARTANY+2
VALMY(0 NAME+5, ENCNTR+5
X SIGNER+23~, SIGNER+24*, CHNGCSNR+1~
XQORM NAME+7~, ENCNTR+7~
>> XQORNOD(0 ADDEND+4, NAME+3, ENCNTR+3
Y NAME+1~, SIGNER+23~, SIGNER+24, CHNGCSNR+1~, SCREEN~, SCREEN+4, SCREEN+6, SCREEN+8, SCREEN+10, SCREEN+12
, SCREEN+15, SCREEN+18, ENCNTR+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All