Routine: TIUPNCV

Package	Total	Call Graph
Text Integration Utility	7	($$CHKSUM,$$NOW)^TIULC $$ENCRYPT^TIULC1 $$DATE^TIULS SETFIELD^TIUPNCV1 (ERRORLOG,TITLE)^TIUPNCV3 REPORT^TIUPNCV4 ^TIUPNCVX
VA Fileman	3	^DIC ^DIE ^DIK
IHS Patient	1	SUB^AUPNVSIT
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Text Integration Utility	1	TIUPNCV4

Entry Points

Name	Comments	DBIA/ICR reference
RTNODE	;Sets 0 Node for TIU record
COPY	;Writes data from ^GMR(121,GMRPIFN --> ^TIU(8925,TIUIFN
CLEANREC	;Cleans partition after entry of record
TIUFLDS	;Sets TIU variables with PN data
DRIVER	;Entry point; initializes counters
SIGSET	;Sets ^TIU(8925 signature fields
STOP
CLEANUP	;Releases Bulletin & kills variables and scratch files
TEXT	;Copies text
MAIN1	;
WIPEOUT	;Clears ^TIU(8925 if record is found to be incomplete
MAIN	;Main loop for each record
RESTART	;Restarts Progress Note conversion

External References

Name	Field # of Occurrence
SUB^AUPNVSIT	WIPEOUT+3
^DIC	RTNODE+3
^DIE	COPY+4
^DIK	WIPEOUT+1
$$CHKSUM^TIULC	SIGSET+2, SIGSET+3
$$NOW^TIULC	DRIVER+6, RESTART+4, MAIN+2
$$ENCRYPT^TIULC1	SIGSET+2, SIGSET+3
$$DATE^TIULS	DRIVER+6, RESTART+4, MAIN+2
SETFIELD^TIUPNCV1	MAIN1+30
ERRORLOG^TIUPNCV3	MAIN1+19, MAIN1+22
TITLE^TIUPNCV3	MAIN1+26
REPORT^TIUPNCV4	STOP
^TIUPNCVX	MAIN1+36
$$NOW^XLFDT	DRIVER+4, STOP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"*** CONVERSION HAS FINISHED ***",! Line Location: CLEANUP+1
Function Call: WRITE	Prompt: "." Line Location: MAIN1+44
Routine Call	DIE Line Location: COPY+4
Routine Call	DIC Line Location: RTNODE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8925 - [#8925]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MAIN1+6
^GMR(121	RESTART+2, MAIN1+1, MAIN1+2, MAIN1+6, MAIN1+8, MAIN1+10, MAIN1+20, MAIN1+43*, TIUFLDS+7, TIUFLDS+27
^TIU(8925 - [#8925]	COPY+1, COPY+2, COPY+3, TEXT+1, SIGSET+5*
^TIU(8925.97 - [#8925.97]	DRIVER+4, DRIVER+5, STOP+3, STOP+4, STOP+5, MAIN+1, MAIN1+38, MAIN1+39, MAIN1+40, MAIN1+42*
^TMP("TIUBRK"	CLEANREC+3!
^TMP("TIUHOLD"	TEXT+1!
^TMP("TIUIFN"	STOP+2!, WIPEOUT+2!, RTNODE+4*
^TMP("TIUMERGE"	TEXT+1!

Label References

Name	Line Occurrences
CLEANREC	MAIN1+26, MAIN1+28, MAIN1+45, WIPEOUT+4
COPY	MAIN1+33
MAIN	RESTART+3
RTNODE	MAIN1+28
SIGSET	MAIN1+35
STOP	MAIN+2
TEXT	MAIN1+34
TIUFLDS	MAIN1+24
WIPEOUT	MAIN1+30, MAIN1+33

Naked Globals

Name	Field # of Occurrence
^(1	MAIN1+11
^(100	MAIN1+11
^(5	MAIN1+11
^(9	MAIN1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATH	CLEANREC+1!
BADREC	MAIN1+19!, MAIN1+22!, MAIN1+26, MAIN1+30, MAIN1+33, CLEANREC+1!
C1	CLEANREC+1!
C2	CLEANREC+1!
C3	CLEANREC+1!
COSIGN	CLEANREC+2!
>> DA	MAIN1+33, WIPEOUT+1
>> DIC	RTNODE+2*
>> DIC(0	RTNODE+2*
>> DIE	MAIN1+33*
>> DIK	WIPEOUT+1*
>> DLAYGO	RTNODE+2*
>> DR	COPY+4*
>> ERRCTR	DRIVER+2*
ESIG	CLEANREC+1!
>> GMR0	MAIN1+10*, MAIN1+12
>> GMR1	MAIN1+11*, MAIN1+13
>> GMR100	MAIN1+11*, MAIN1+16
>> GMR5	MAIN1+11*, MAIN1+14
>> GMR9	MAIN1+11*, MAIN1+15
GMRPCTR	DRIVER+2, STOP+1!, MAIN+3
>> GMRPFINI	DRIVER+5*, RESTART+2
GMRPFL	STOP+1!
GMRPIFN	RESTART+1, RESTART+2, STOP+1!, MAIN1+1, MAIN1+2, MAIN1+6, MAIN1+8, MAIN1+10, MAIN1+18, MAIN1+21 , MAIN1+38, MAIN1+43, CLEANREC+3, WIPEOUT+2, RTNODE+4, TEXT+1
GMRPST	DRIVER+2*, RESTART+1, STOP+1!
>> I	MAIN1+12, MAIN1+13, MAIN1+14*
P1	CLEANREC+1!
P2	CLEANREC+1!
P3	CLEANREC+1!
P4	CLEANREC+1!
P5	CLEANREC+1!
PN	MAIN+3~, MAIN1+19!, MAIN1+22!, CLEANREC+1!
PN(	MAIN1+12, MAIN1+13, MAIN1+14*, MAIN1+17, TIUFLDS+3, TIUFLDS+8, TIUFLDS+10, TIUFLDS+14, TIUFLDS+15, TIUFLDS+24 , TIUFLDS+25, TIUFLDS+26
PN(1	MAIN1+17, TIUFLDS+29
PN(100	MAIN1+16*, MAIN1+20, MAIN1+21, TIUFLDS+7, TIUFLDS+27
PN(2	MAIN1+17, TIUFLDS+11
PN(3	TIUFLDS+18
PN(4	TIUFLDS+17
PN(5	TIUFLDS+20
PN(6	TIUFLDS+22
PN(7	TIUFLDS+21
PN(9	MAIN1+15*, TIUFLDS+13
PNT	CLEANREC+1!
PROBLEM	MAIN1+18, MAIN1+19!, MAIN1+21, MAIN1+22!
TIU	CLEANREC+1!
TIU(	WIPEOUT+3, TIUFLDS+3, TIUFLDS+7, TIUFLDS+8, TIUFLDS+9, RTNODE+2, COPY+1
TIU("BAD"	MAIN1+28, RTNODE+3*
TIU("COSCHART"	TIUFLDS+25*
TIU("MHCONV"	TIUFLDS+26*
TIU("PARENT"	TIUFLDS+27*
TIU("SIGCHART"	TIUFLDS+24*
TIU("SPECDT"	TIUFLDS+28*
TIU("TITLE"	TIUFLDS+29*
TIU(1201	TIUFLDS+10*, TIUFLDS+28, COPY+2
TIU(1202	TIUFLDS+11*, COPY+2
TIU(1204	TIUFLDS+11*, COPY+2
TIU(1205	TIUFLDS+13*, COPY+2
TIU(1208	TIUFLDS+22*, COPY+2
TIU(1211	TIUFLDS+13*, COPY+2
TIU(1301	TIUFLDS+14*, COPY+3
TIU(1302	TIUFLDS+15*, COPY+3
TIU(1303	TIUFLDS+16*, COPY+3
TIU(1501	TIUFLDS+17*, SIGSET+4
TIU(1502	TIUFLDS+18*, SIGSET+2, SIGSET+4
TIU(1503	TIUFLDS+19, SIGSET+2, SIGSET+4
TIU(1504	TIUFLDS+19, SIGSET+2, SIGSET+4
TIU(1505	TIUFLDS+19*, SIGSET+4
TIU(1506	TIUFLDS+20*, SIGSET+5
TIU(1507	TIUFLDS+21*, SIGSET+5
TIU(1508	TIUFLDS+22*, SIGSET+3, SIGSET+5
TIU(1509	TIUFLDS+23, SIGSET+3, SIGSET+5
TIU(1510	TIUFLDS+23, SIGSET+3, SIGSET+5
TIU(1511	TIUFLDS+23*, SIGSET+5
TIU(1512	TIUFLDS+24*, SIGSET+5
TIU(1513	TIUFLDS+25*, SIGSET+5
TIUCOMPO	CLEANREC+2!
TIUCTR	DRIVER+2, STOP+1!, MAIN1+40, MAIN1+41, MAIN1+42
TIUCTYP	CLEANREC+2!
TIUD	CLEANREC+1!
>> TIUEND	RESTART+4, MAIN+2
TIUFPRIV	DRIVER+1, STOP+1!, RTNODE+1
>> TIUIFN	MAIN1+33, MAIN1+39, MAIN1+40, MAIN1+43, MAIN1+44, WIPEOUT+1, RTNODE+4*, COPY+1, COPY+2, COPY+3 , TEXT+1, SIGSET+2, SIGSET+3, SIGSET+5
TIUNEWTY	COPY+4!
TIUNM	CLEANREC+1!
>> TIUSTRT	DRIVER+6*
TIUT	CLEANREC+1!
TMSG	CLEANREC+2!
TYP	CLEANREC+2!
TYPE	CLEANREC+2!
U	DRIVER+2*, DRIVER+4, DRIVER+5, STOP+3, STOP+4, STOP+5, MAIN+1, MAIN1+1, MAIN1+2, MAIN1+6 , MAIN1+12, MAIN1+13, MAIN1+14, MAIN1+15, MAIN1+16, MAIN1+38, MAIN1+39, MAIN1+40, MAIN1+42, COPY+1 , COPY+2, COPY+3, SIGSET+4, SIGSET+5
X	WIPEOUT+3, RTNODE+2, SIGSET+1~, SIGSET+4*, SIGSET+5
>> Y	RTNODE+3, RTNODE+4

Customize PDF page

Package: Text Integration Utility

Routine: TIUPNCV

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: