Routine: BPSJZPR

Package	Total	Call Graph
VA FileMan	3	^DIC $$GET1^DID ^DIE
Kernel	1	$$TRIM^XLFSTR

Package	Total	Caller Graph
E Claims Management Engine	2	BPSJHLT BPSJVAL2

Name	Comments	DBIA/ICR reference
EN(BPSJEN,BPSJSEG,BPSJROOT,BPSFILE)	;
ZPR()	; Validate Fields and Initialize ZPR variables
NOTES(ARRAYIN,TRCH)	; fProgrammer Notes - Special Code handler
NWNODE(FREERAY)	; build free text array
DECODE(INSTR,TCH,WDAT,INSTR1)	; ; INSTR - Input string ; TCH - translation array ; WDAT - Output in a Vista compliant "Free Text" array ; INSTR1 - Remainder of text when last or ; second to last INSTR char = "\"
GETPTR(BPDAT)	; Get pointer into BPS NCPDP FIELD DEFS
INITZPRS(ZPRS)	;BPSEGID^FLN^FLNSC^FLNPN

Name	Field # of Occurrence
^DIC	EN+23
$$GET1^DID	EN+17
^DIE	EN+28, EN+40, EN+52
$$TRIM^XLFSTR	ZPR+20

Name	Line Occurrences (* Changed, ! Killed)
^BPSF(9002313.91 - [#9002313.91]	GETPTR+6, GETPTR+7, GETPTR+14, GETPTR+19, GETPTR+20, GETPTR+24, GETPTR+26, GETPTR+27, GETPTR+31, GETPTR+32 , GETPTR+33, GETPTR+36, GETPTR+37
^TMP($J	ZPR+10, ZPR+13, ZPR+21, ZPR+22, ZPR+25, ZPR+30, ZPR+38*

Name	Line Occurrences
$$DECODE	NOTES+17, NOTES+20
$$GETPTR	ZPR+20
$$ZPR	EN+10
NOTES	ZPR+34, ZPR+42
NWNODE	NOTES+22, DECODE+14, DECODE+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAYIN	NOTES~, NOTES+22!*
BPDAT	GETPTR~, GETPTR+3
BPMODE	EN+2~, EN+27, ZPR+27*, ZPR+29, ZPR+38
BPNAMIX	GETPTR+1~, GETPTR+6, GETPTR+10, GETPTR+13, GETPTR+14, GETPTR+15
BPND	EN+5~, EN+35, EN+36, EN+39, EN+47, EN+48, EN+51
BPNOTES	EN+2~
BPNUMIX	GETPTR+1~, GETPTR+7, GETPTR+10, GETPTR+13, GETPTR+15, GETPTR+18, GETPTR+19, GETPTR+20, GETPTR+23, GETPTR+24 , GETPTR+25, GETPTR+26, GETPTR+27, GETPTR+30, GETPTR+31, GETPTR+32, GETPTR+33, GETPTR+36, GETPTR+37
BPORDER	EN+2~, EN+12, EN+20, EN+33, EN+37, EN+38, EN+45, EN+49, EN+50, ZPR+24* , ZPR+25
BPRCODE	EN+2~, EN+10*, EN+12, EN+27
BPSEGID	EN+2~, EN+12, EN+15, EN+17, EN+21, EN+38, EN+50, ZPR+8, ZPR+9, ZPR+11* , ZPR+12, ZPR+15, ZPR+16, ZPR+17, ZPR+18
BPSETID	EN+2~, ZPR+6*, ZPR+10, ZPR+13, ZPR+21, ZPR+22, ZPR+25, ZPR+30, ZPR+38
BPSF	EN+2~, EN+15, EN+16, EN+18, EN+33, EN+34, EN+37, EN+45, EN+46, EN+49*
BPSFDIC	EN+2~, EN+30*, EN+33, EN+37, EN+45, EN+49
BPSFILE	EN~, EN+7, EN+17
BPSFNM	GETPTR+1~, GETPTR+3*, GETPTR+4, GETPTR+6, GETPTR+14, GETPTR+19, GETPTR+26, GETPTR+36
BPSFNO	GETPTR+1~, GETPTR+3*, GETPTR+4, GETPTR+7, GETPTR+24, GETPTR+32, GETPTR+35
BPSFNOCK	GETPTR+1~, GETPTR+33*, GETPTR+35
BPSFX	GETPTR+1~, GETPTR+4*, GETPTR+20, GETPTR+27, GETPTR+37
BPSIX	GETPTR+1~, GETPTR+4, GETPTR+13, GETPTR+15, GETPTR+18, GETPTR+19, GETPTR+23, GETPTR+26, GETPTR+30, GETPTR+36* , GETPTR+39
BPSIXALT	GETPTR+1~, GETPTR+4, GETPTR+20, GETPTR+27, GETPTR+37
BPSJEN	EN~, EN+7, EN+15, EN+21, EN+38, EN+50
BPSJROOT	EN~, EN+7, EN+10
BPSJSEG	EN~, EN+7
BPSJSEG(2	ZPR+6
BPSJSEG(3	ZPR+8
BPSJSEG(4	ZPR+20, ZPR+22
BPSJSEG(5	ZPR+24
BPSJSEG(6	ZPR+27
BPSJSEG(7	EN+44, ZPR+32!, ZPR+34, ZPR+35!*, ZPR+38
BPSJSEG(8	EN+32, EN+41!, ZPR+40!, ZPR+42, ZPR+43!*
C	EN+5~, EN+10*, EN+15, EN+21
CH	DECODE+12~, DECODE+14, DECODE+18, DECODE+22, DECODE+23, DECODE+25*
CNT	NWNODE+1~, NWNODE+2*
DA	EN+4~, EN+25, EN+38!, EN+50!*
DA(1	EN+21, EN+38, EN+50*
DA(2	EN+38, EN+50
DA(3	EN+38, EN+50
DA(4	EN+38, EN+50
DIC	EN+4~, EN+21, EN+26, EN+30, EN+33, EN+37, EN+45, EN+49*
DIC("P"	EN+22*
DIC(0	EN+22*
DIE	EN+4~, EN+10, EN+15, EN+21, EN+26, EN+33, EN+37, EN+45, EN+49
DINUM	EN+4~, EN+20*
DLAYGO	EN+4~, EN+22*
DR	EN+4~, EN+27, EN+39!, EN+51!*
FLN	EN+3~, EN+22, ZPR+15*
FLNPN	EN+3~, EN+34, ZPR+17*
FLNSC	EN+3~, EN+46, ZPR+16*
FLNSPEC	EN+3~, EN+17*, EN+18
FREERAY	NWNODE~, NWNODE+2*
FREERAY(	NWNODE+2*
FREERAY(""	NWNODE+2
II	NOTES+2~, DECODE+12~, DECODE+14, DECODE+17, DECODE+18, DECODE+20, DECODE+21, DECODE+22, DECODE+23, DECODE+25*
INSTR	DECODE~, DECODE+14, DECODE+17, DECODE+18, DECODE+20, DECODE+21, DECODE+22, DECODE+23, DECODE+25
INSTR1	DECODE~, DECODE+13, DECODE+18, DECODE+22*
ISDATA	NOTES+3~, NOTES+13, NOTES+15, NOTES+16, NOTES+18, NOTES+20
ISDATA1	NOTES+3~, NOTES+12, NOTES+15, NOTES+16, NOTES+17, NOTES+20, NOTES+22
ISDATA2	NOTES+3~, NOTES+17, NOTES+18, NOTES+20*
ISDATA3	NOTES+3~, NOTES+17*
NCNT	EN+5~, EN+35, EN+38, EN+47, EN+50
NODENM	NOTES+2~, NOTES+10, NOTES+13
ODAT	NOTES+2~, NOTES+12, NOTES+17, NOTES+20, NOTES+22
RCODE	ZPR+1~, ZPR+20*, ZPR+21, ZPR+45
TCH	DECODE~
TCH(	DECODE+20, DECODE+21, DECODE+23, DECODE+25
TCH("\.br\"	DECODE+17
TRCH	NOTES~, NOTES+5, NOTES+17, NOTES+20
TRCH("\.b"	NOTES+8*
TRCH("\.br\"	NOTES+8*
TRCH("\E\"	NOTES+6*
TRCH("\F\"	NOTES+6*
TRCH("\R\"	NOTES+6*
TRCH("\S\"	NOTES+7*
TRCH("\T\"	NOTES+7*
U	EN+18, EN+34, EN+46, ZPR+15, ZPR+16, ZPR+17, GETPTR+4, GETPTR+19, GETPTR+20, GETPTR+26 , GETPTR+27, GETPTR+36, GETPTR+37
WDAT	DECODE~, DECODE+13, DECODE+14, DECODE+23, DECODE+26
WDATA	ZPR+1~, ZPR+34!, ZPR+35!, ZPR+42!, ZPR+43!
WDATA(7	ZPR+34*
WDATA(8	ZPR+42*
X	EN+5~, EN+20*
Y	EN+5~, EN+25
ZPRS	INITZPRS~
ZPRS(	ZPR+11
ZPRS(0	INITZPRS+1*
ZPRS(1	INITZPRS+2*
ZPRS(10	INITZPRS+11*
ZPRS(11	INITZPRS+12*
ZPRS(12	INITZPRS+13*
ZPRS(13	INITZPRS+14*
ZPRS(14	INITZPRS+15*
ZPRS(15	INITZPRS+16*
ZPRS(16	INITZPRS+17*
ZPRS(17	INITZPRS+19*
ZPRS(18	INITZPRS+20*
ZPRS(19	INITZPRS+22*
ZPRS(2	INITZPRS+3*
ZPRS(3	INITZPRS+4*
ZPRS(37	INITZPRS+23*
ZPRS(4	INITZPRS+5*
ZPRS(5	INITZPRS+6*
ZPRS(6	INITZPRS+7*
ZPRS(7	INITZPRS+8*
ZPRS(8	INITZPRS+9*
ZPRS(9	INITZPRS+10*

Customize PDF page

Package: E Claims Management Engine

Routine: BPSJZPR

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: