Routine: AIBCVT5

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

Package	Total	Caller Graph
IBM DDPS Record Consolidation	1	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

External References

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: