Routine: TIUPS96

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

Label References

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

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: