Routine: AIBCVT5

Customize PDF page

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

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Label References
Local Variables

Package	Total	Call Graph
IBM DDPS Record Consolidation	2	^AIBCVT3 ERRMSP^AIBCVT6

Package

Total

Call Graph

IBM DDPS Record Consolidation

^AIBCVT3 ERRMSP^AIBCVT6

Package	Total	Caller Graph
IBM DDPS Record Consolidation	1	AIBCVT1

Package

Total

Caller Graph

IBM DDPS Record Consolidation

AIBCVT1

Entry Points

Name	Comments	DBIA/ICR reference
ZEROES	;FIELD SHOULD BE RIGHT JUSTIFIED FILL WITH ZEROES TO LEFT
STRIPDP	;STRIP DECIMAL POINT FROM ICD9 CODES
RETURN	;RETURN TO CALLING ROUTINE
TRUNCATE	;TRUNCATE FIELD TO FIT
FIELDS	;BUILD RECORD FIELDS
INSPIECE	;INSERT MISSING PIECE IN INPUT NODE
MOVE	;ADD FIELD TO OUTPUT RECORD
EDITOK	;CHECK FIELD LENGTH
WRITE	;WRITE ABILITY FOR REGISTRATION HEADER RECORD
FILLOGIC	;LOGIC FOR FILLING SHORT FIELDS
MOVOVF2	;
MOVOVF3	;
CKMSG	;CHECK FOR OTHER ERROR MESSAGE
MOVOVFL	;ADD FIELD TO OVERFLOW RECORD
BLANK	;FIELD SHOULD BE LEFT JUSTIFIED FILL WITH BLANK TO RIGHT
MOVE2	;
MOVE3	;
CKINS	;CHECK IF PIECE IS TO TO INSERTED INTO NODE

Name	Field # of Occurrence
^AIBCVT3	WRITE+5
ERRMSP^AIBCVT6	FIELDS+16, CKMSG+1, CKMSG+4, EDITOK+5, EDITOK+9, TRUNCATE+1

Label References

Name	Line Occurrences
BLANK	EDITOK+9, FILLOGIC+1
CKINS	MOVE2+2, MOVE3+1, MOVE3+2, MOVOVFL+2, MOVOVF2+2, MOVOVF3+1
CKMSG	FIELDS+13
EDITOK	FIELDS+11, FIELDS+12, FIELDS+16
FILLOGIC	EDITOK+1
INSPIECE	CKINS+1
MOVE	EDITOK+1, TRUNCATE+1, STRIPDP+2, BLANK+1
MOVE2	MOVE+1
MOVE3	MOVE2+1
MOVOVF2	MOVOVFL+1
MOVOVF3	MOVOVF2+1
MOVOVFL	MOVE+3
RETURN	FIELDS+11, CKMSG+5, EDITOK+6, EDITOK+7, CKINS+1, INSPIECE+2
STRIPDP	FILLOGIC+1
TRUNCATE	EDITOK+8
WRITE	FIELDS+11
ZEROES	FILLOGIC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AIBB	FIELDS+2*, FIELDS+4, MOVE2+2, MOVE3+1, MOVOVFL+2, MOVOVF2+2
>> AIBC	EDITOK+7
>> AIBC(	FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+7, FIELDS+8, FIELDS+9
>> AIBCN1	FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+7, FIELDS+8, FIELDS+9
>> AIBCTB	WRITE+5*
>> AIBE	FIELDS+4*, MOVE+1, MOVE2+1, MOVE2+2, MOVE3+1, MOVE3+2, MOVOVFL+1, MOVOVFL+2, MOVOVF2+1, MOVOVF3+1
>> AIBED	FIELDS+8*, FIELDS+11
>> AIBER	FIELDS+12, FIELDS+13, FIELDS+14, EDITOK+1, EDITOK+6, EDITOK+7
>> AIBFC	FIELDS+7*, FILLOGIC+1
>> AIBG	FIELDS+11, CKINS+1, RETURN+1*
>> AIBGBLP	WRITE+2
>> AIBH1	WRITE+1
>> AIBH2	WRITE+1*
>> AIBH3	WRITE+1
>> AIBH4	WRITE+2
>> AIBH5	WRITE+3
>> AIBI	FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+7, FIELDS+8, FIELDS+9, FIELDS+10, EDITOK+7*, INSPIECE+1
>> AIBI(0	INSPIECE+1*, INSPIECE+2
>> AIBI2	FIELDS+10*
>> AIBI3	INSPIECE+1*
>> AIBIN	FIELDS+10, INSPIECE+1, INSPIECE+2*
>> AIBL	FIELDS+3*, EDITOK+1, EDITOK+2, TRUNCATE+1, STRIPDP+1, BLANK+1, ZEROES+1, MOVE+1, MOVE2+2, MOVOVFL+2
>> AIBLE	FIELDS+9*, EDITOK+6, EDITOK+7, EDITOK+8
>> AIBMSG	FIELDS+15, CKMSG+1, CKMSG+2, CKMSG+3, EDITOK+2, EDITOK+3, EDITOK+4, EDITOK+6, EDITOK+9, TRUNCATE+1*
>> AIBN	FIELDS+1*, CKMSG+2, EDITOK+2
>> AIBOL	FIELDS+6*, MOVOVF2+1, MOVOVF3+1
>> AIBOL(0	FIELDS+4*, FIELDS+6, MOVE+2, MOVE2+1, MOVE3+1, MOVE3+2, MOVOVFL+1, MOVOVFL+2, MOVOVF2+1, MOVOVF2+2
>> AIBOL(1	FIELDS+5*, FIELDS+6, MOVOVFL+1
>> AIBOT	FIELDS+4, MOVE+2, MOVE2+2, MOVE3+1, MOVE3+2, WRITE+1, WRITE+2, WRITE+3, WRITE+4
>> AIBOT(1	FIELDS+5, MOVOVFL+2, MOVOVF2+2, MOVOVF3+1, WRITE+4
>> AIBPID	FIELDS+15, CKMSG+3, EDITOK+4
>> AIBZ	FIELDS+15, CKMSG+3, EDITOK+4
>> AIBZR	ZEROES+1*
>> AIBZRS	ZEROES+1
U	FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+7, FIELDS+8, FIELDS+9, FIELDS+10, INSPIECE+1, INSPIECE+2
>> WARN	FIELDS+13
>> X	FIELDS+10, CKMSG+2, EDITOK+1, EDITOK+3, EDITOK+9, TRUNCATE+1, FILLOGIC+1, STRIPDP+1, STRIPDP+2, BLANK+1 , ZEROES+1, MOVE+2, MOVE2+2, MOVE3+1, MOVE3+2, MOVOVFL+2, MOVOVF2+2, MOVOVF3+1, WRITE+1
>> Y	STRIPDP+1*

Customize PDF page

Package: IBM DDPS Record Consolidation

Routine: AIBCVT5

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Label References

Local Variables

Legend: