Routine: TIUPNCV3

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIK ^DIR

Package	Total	Caller Graph
Text Integration Utility	4	TIUPNCV TIUPNCV1 TIUPNCV2 TIUPNCV8

Entry Points

Name	Comments	DBIA/ICR reference
HELP10	;Help text for ROLLBACK prompt
BEDSEC(TIUBS)	;Resolves D/C Bedsection ptr from the Final Discharge Note
TITLE	;Defines variables required for Document Definition look-up ; PNT=^GMR(121.2,TIU("TITLE")),0) ; (1)=TITLE * (2)=TYPE * (3) TYPE NARRATIVE ; (4)=INACTIVE * (5) TIU TITLE IEN
ROLLEM	;Rolls back ^GMR(121 entries in ^TIU(8925
ERRORLOG	;Captures information on records that are NOT converted.
TITLESET	;Sets pointers for Document Definition ; .01 DOCUMENT TYPE * .04 PARENT DOCUMENT TYPE ; 1506 COSIGNATURE REQUIRED * 1701 SUBJECT (description)
STATUS(TIUSTAT)	;Returns DOCUMENT STATUS pointer
DXLS(TIUDX)	;Resolves variable DXLS ptr from Final Discharge Note

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ROLLEM+1
Function Call: WRITE	Prompt: !!?16,"**** ROLL BACK ****" Line Location: ROLLEM+1
Function Call: WRITE	Prompt: !!?5,"This option will delete all progress notes entered" Line Location: ROLLEM+2
Function Call: WRITE	Prompt: !?5,"into ^TIU(8925 from the GMRPN/TIU Conversion. The" Line Location: ROLLEM+3
Function Call: WRITE	Prompt: !?5,"option uses ^DIK to roll back the file. Run time is" Line Location: ROLLEM+4
Function Call: WRITE	Prompt: !?5,"dependent upon the number of entries made during the" Line Location: ROLLEM+5
Function Call: WRITE	Prompt: !?5,"conversion." Line Location: ROLLEM+6
Function Call: WRITE	Prompt: !! Line Location: ROLLEM+7
Function Call: WRITE	Prompt: !!?5,"BEGINNING ROLL BACK...",! Line Location: ROLLEM+9
Function Call: WRITE	Prompt: !!,"ROLLBACK COMPLETED",! Line Location: ROLLEM+14
Function Call: WRITE	Prompt: !!?5,"Press <ret> to continue with roll back of Progress Notes" Line Location: HELP10+1
Function Call: WRITE	Prompt: !?5,"entered during the conversion. The rollback will begin and" Line Location: HELP10+2
Function Call: WRITE	Prompt: !?5,"based on rollback fields in ^TIU(8925.97, TIU Conversions." Line Location: HELP10+3
Function Call: WRITE	Prompt: !!?5,"Enter NO or ""^"" to stop this option." Line Location: HELP10+4
Routine Call	DIC Line Location: TITLE+10 STATUS+3
Routine Call	DIR Line Location: ROLLEM+8

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	BEDSEC+2
^GMR(121	ERRORLOG+3*
^GMR(121.2	TITLE+4, TITLE+6
^TIU(8925 - [#8925]	ROLLEM+13
^TIU(8925.1 - [#8925.1]	TITLE+13, TITLESET+3, TITLESET+4
^TIU(8925.97 - [#8925.97]	ERRORLOG+2*, ROLLEM+10

Name	Line Occurrences
ERRORLOG	TITLE+5, TITLE+7, TITLE+9, TITLE+11, TITLE+13
TITLESET	TITLE+14, TITLE+15

Name	Field # of Occurrence
>> BADREC	ERRORLOG+1*
DA	ROLLEM+13*, ROLLEM+15!
DIC	TITLE+10!, TITLESET+5!, STATUS+1~, STATUS+3
DIC(0	TITLE+10, STATUS+3
DIK	ROLLEM+11*, ROLLEM+15!
DIR	ROLLEM+1!
DIR("?"	ROLLEM+8*
DIR("A"	ROLLEM+7*
DIR("B"	ROLLEM+7*
DIR(0	ROLLEM+7*
>> DIRUT	ROLLEM+8
>> ERRCTR	ERRORLOG+1, ERRORLOG+2
>> GMRPIFN	ERRORLOG+3, TITLE+5, TITLE+7, TITLE+9, TITLE+11
IOF	ROLLEM+1
LST	ROLLEM+10*, ROLLEM+12, ROLLEM+13, ROLLEM+15!
>> P1	DXLS+2*, DXLS+4, DXLS+5, DXLS+6, DXLS+8, DXLS+13
>> P2	DXLS+3*, DXLS+4, DXLS+5
>> P3	DXLS+4, DXLS+7, DXLS+11, DXLS+12, DXLS+14
>> P4	DXLS+5, DXLS+9, DXLS+10
>> P5	DXLS+1, DXLS+6, DXLS+7, DXLS+10, DXLS+12, DXLS+14*, DXLS+15
>> PNT	TITLE+4*, TITLE+5, TITLE+8
>> PNT(1	TITLE+8*, TITLE+9, TITLE+14
>> PNT(2	TITLE+8*, TITLE+9, TITLE+10, TITLE+14
>> PNT(3	TITLE+12*, TITLE+13
>> PNT(4	TITLE+8*, TITLE+14
>> PNT(5	TITLE+6*, TITLE+7, TITLE+13, TITLESET+3
PROBLEM	ERRORLOG+3, TITLE+5!, TITLE+7!, TITLE+9!, TITLE+11!, TITLE+13*!
>> TIU(	TITLESET+3, TITLESET+4
>> TIU("MHCONV"	STATUS+2
>> TIU("TITLE"	TITLE+4, TITLE+6
>> TIU(1701	TITLE+14*
TIUBS	BEDSEC~, BEDSEC+2
TIUDIV	ROLLEM+15!
TIUDX	DXLS~, DXLS+2, DXLS+3
>> TIUNM	TITLESET+3*
TIUSTAT	STATUS~, STATUS+2*, STATUS+3
TST	ROLLEM+10*, ROLLEM+12, ROLLEM+13, ROLLEM+15!
U	ERRORLOG+2, TITLE+6, TITLE+8, TITLE+12, TITLE+13, TITLESET+3, STATUS+4, DXLS+7, DXLS+11, DXLS+14 , BEDSEC+2, ROLLEM+10, ROLLEM+13
X	TITLE+10, TITLE+14, TITLESET+5!, STATUS+1~, STATUS+3*
Y	TITLE+11, TITLE+12, TITLESET+5!, STATUS+1~, STATUS+3, STATUS+4, BEDSEC+1~, BEDSEC+2*, BEDSEC+3, ROLLEM+8