Routine: TIUPS96

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

TIUPS96 ; SLC/JER - Post-Install for TIU*1*96 ; 3-MAY-2001 11:21

Source Information

Source file <TIUPS96.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIK EN^DIU2
Kernel	3	($$FMADD,$$NOW)^XLFDT UPDATE^XPDID (BMES,MES)^XPDUTL
Text Integration Utility	3	$$CHKSUM^TIULC $$DECRYPT^TIULC1 $$STRIP^TIULS

Entry Points

Name	Comments	DBIA/ICR reference
DELPNDB	; -- Remove Progress Notes Globals, DD's, and File of File Entries
REGISTER(TIUDA,GMRDA)	; -- Register activity in the ^XTMP("TIUFIXCS", array
FIND(TIUDA,GMRLINE)	; -- Locate the Cosigner's Comments in converted note
DELFUNC	; -- Remove Discharge Summary FileMan Functions
ESGET(TIUDA,TIUSBLK)	; Get the decrypted /es/-blocks
INSERT(TIUDA,TIULI)	; -- Insert the tag for the Cosigner's Comment
ESPUT(DA,TIUSBLK)	; Re-file the /es/-blocks
DELDSDB	; -- Remove Discharge Summary Globals, DD's, and File of File Entries
MAIN	; Control unit
SETXT0(TIUDA)	; Set the root node of the "TEXT" WP-field
FIXCS	; -- Find/fix Cosigner's Comments

External References

Name	Field # of Occurrence
^DIC	DELFUNC+7
^DIE	ESPUT+6, ESPUT+10
^DIK	DELFUNC+9
EN^DIU2	DELPNDB+6, DELDSDB+6
$$CHKSUM^TIULC	ESGET+3
$$DECRYPT^TIULC1	ESGET+5, ESGET+6, ESGET+8, ESGET+9
$$STRIP^TIULS	FIXCS+13
$$FMADD^XLFDT	FIXCS+6
$$NOW^XLFDT	FIXCS+7, FIXCS+19
UPDATE^XPDID	FIXCS+4, REGISTER+5, DELPNDB+3, DELPNDB+7, DELDSDB+3, DELDSDB+7, DELFUNC+4, DELFUNC+10
BMES^XPDUTL	FIXCS+2, DELPNDB+2, DELDSDB+2, DELFUNC+2
MES^XPDUTL	DELFUNC+3, DELFUNC+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(121	MAIN+1, FIXCS+3, FIXCS+8, FIXCS+10, FIXCS+12, FIXCS+16
^TIU(8925 - [#8925]	FIND+2, FIND+3, INSERT+5, INSERT+6, INSERT+7, INSERT+9, INSERT+10, INSERT+11, ESGET+2, SETXT0+2 , SETXT0+3, SETXT0+4*
^XTMP("TIUFIXCS"	MAIN+1, FIXCS+1, FIXCS+6, FIXCS+7, FIXCS+19, REGISTER+2, REGISTER+3, REGISTER+4

Name	Line Occurrences
$$FIND	FIXCS+17
DELDSDB	MAIN+3
DELFUNC	MAIN+4
DELPNDB	MAIN+2
ESGET	INSERT+3
ESPUT	INSERT+15
FIXCS	MAIN+1
INSERT	FIXCS+18
REGISTER	FIXCS+18
SETXT0	INSERT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ESPUT~, DELFUNC+6~, DELFUNC+9*
DIC	DELFUNC+6~, DELFUNC+7*, DELFUNC+9
DIC(0	DELFUNC+7*
DIDEL	DELFUNC+6~, DELFUNC+9*
DIE	ESPUT+1~, ESPUT+2*
DIK	DELFUNC+6~, DELFUNC+9*
DIU	DELPNDB+5~, DELPNDB+6, DELDSDB+5~, DELDSDB+6
DIU(0	DELPNDB+6, DELDSDB+6
DR	ESPUT+1~, ESPUT+5, ESPUT+9
DT	FIXCS+6, SETXT0+4
GMRDA	FIXCS+1~, FIXCS+8, FIXCS+10, FIXCS+12, FIXCS+16, FIXCS+18, REGISTER~, REGISTER+3, REGISTER+4
GMRLI	FIXCS+9~, FIXCS+10, FIXCS+12
GMRLINE	FIXCS+9~, FIXCS+10, FIXCS+12, FIXCS+13, FIXCS+14, FIXCS+15, FIXCS+17, FIND~, FIND+3
GMRLN	FIXCS+11~, FIXCS+13*, FIXCS+14
TIUC	SETXT0+1~, SETXT0+3, SETXT0+4
TIUCHK	ESGET+1~, ESGET+3*, ESGET+5, ESGET+6, ESGET+8, ESGET+9
TIUCNT	REGISTER+1~, REGISTER+2, REGISTER+5, DELPNDB+1~, DELPNDB+7, DELDSDB+1~, DELDSDB+7, DELFUNC+1~, DELFUNC+10*
TIUD15	ESGET+1~, ESGET+2*, ESGET+4, ESGET+5, ESGET+6, ESGET+7, ESGET+8, ESGET+9
TIUDA	FIXCS+9~, FIXCS+16*, FIXCS+17, FIXCS+18, FIND~, FIND+2, FIND+3, INSERT~, INSERT+3, INSERT+5 , INSERT+6, INSERT+7, INSERT+9, INSERT+10, INSERT+11, INSERT+13, INSERT+15, REGISTER~, REGISTER+4, ESGET~ , ESGET+2, ESGET+3, SETXT0~, SETXT0+2, SETXT0+3, SETXT0+4
TIUHIT	FIND+1~, FIND+2, FIND+3
TIUI	SETXT0+1~, SETXT0+2, SETXT0+3
TIULI	FIXCS+9~, FIXCS+17, FIXCS+18, FIND+1~, FIND+2*, FIND+3, FIND+4, INSERT~, INSERT+5, INSERT+9 , INSERT+10, INSERT+11
TIULINE	INSERT+6~*, INSERT+7
TIULJ	INSERT+1~, INSERT+5, INSERT+6, INSERT+7
TIUS1	DELPNDB+1~, DELPNDB+4, DELPNDB+6, DELDSDB+1~, DELDSDB+4, DELDSDB+6, DELFUNC+1~, DELFUNC+5*, DELFUNC+7
TIUSBLK	INSERT+1~, INSERT+3, INSERT+15, ESGET~, ESPUT~
TIUSBLK(1	ESGET+5, ESGET+6, ESPUT+4
TIUSBLK(2	ESGET+8, ESGET+9, ESPUT+8
U	FIXCS+3, FIXCS+6, ESGET+4, ESGET+5, ESGET+6, ESGET+7, ESGET+8, ESGET+9, SETXT0+4, DELFUNC+8
X	DELFUNC+6~, DELFUNC+7*
XPDIDTOT	FIXCS+1~, FIXCS+3, DELPNDB+1~, DELPNDB+3, DELDSDB+1~, DELDSDB+3, DELFUNC+1~, DELFUNC+4
>> XPDIDVT	FIXCS+3, DELPNDB+1, DELDSDB+1, DELFUNC+1
>> XPDQUES("POS001"	MAIN+2
>> XPDQUES("POS002"	MAIN+3
Y	DELFUNC+6~, DELFUNC+7, DELFUNC+8, DELFUNC+9

Customize PDF page

Package: Text Integration Utility

Routine: TIUPS96

Call Graph Total: 10