Routine: IBCVC

Package	Total	Call Graph
VA FileMan	7	EN^DDIOL ^DIC FILE^DIE CLEAN^DILF ^DIM $$GET1^DIQ ^DIR
Kernel	3	$$ABS^XLFMTH ($$LJ,$$RJ,$$TRIM,$$UP)^XLFSTR (BMES,MES)^XPDUTL
Integrated Billing	2	($$COBN,$$FT)^IBCEF $$FORMAT^IBCVC

Package	Total	Caller Graph
Integrated Billing	10	IBCBB5 IBCVC IBXS44 IBXS54 IBXSC44 IBXSC54 ^DGCR(399.1 ^IBA(364.5 ^IBA(364.7 VALUE CODE

Entry Points

Name	Comments	DBIA/ICR reference
AWAY
ALLOWVC(IBIFN,Y)
HELP	;
FORMCHK(X,DA)	; Check to make sure that the VALUE is in the correct format base on the VALUE CODE. ; This tag is the input transform for the VALUE field (Sub-File 399.047, field .02). ; ; X = data being verified ; DA = subfile entry ; DA(1) = IEN to 399 ; ; returns ; 0 = invalid format ; 1 = valid format
CHK(VCPTR,X)	; This tag is called from the input transform above and also from the IB edit check routines (IBCBB*) ; This function is passed in: ; VCPTR - pointer into file #399.1 ; X - the VALUE being checked ; Returns: ; 0 or false - Invalid format or can't figure it out. ; 1 or true - valid format (or in the case of 24, defined at the state level)
PATCH718CHK(IEN)	;EP - CALLED FROM KIDS BUILD DATA SCREEN FOR FILE #399.1
NUMRANGE(X,LOW,HIGH)	;EP - NUMBER RANGE CHECK
VALCODEFMT(IBSAVE,IBDATA)	;EP - TAKE VALUE CODE ARRAY AND FORMAT EACH ACCORDINGTO DATA TYPE
FORMAT(DATA,LENGTH,JUST,DECPT,FILLCHAR,PRECISION,DATATYPE)	;EP - FORMAT PER SPECS
FMTDOLLAR(VALUE)	;EP - FORMAT DOLLAR AMOUNTS
FMTNUMERIC(VALUE,DATATYPE)	;EP - FORMAT NUMERIC STRING
FMTALPHANUM(VALUE)	;EP - FORMAT ALPHANUMERICS
FMTDECIMAL(VALUE)	;EP - FORMAT DECIMALS
FMTSPECIAL(VALUE,VALUECODE)	;EP - SPECIAL CASE FORMAT
DATATYPE(CODE,VALUE,INPUTCHK)	;EP - WHAT TYPE OF DATA DOES IB IDENTIFIY THIS VALUE CODE TO BE
NUMERIC(CODE,VALUE,INPUTCHK)	;EP - IS VALUE CODE WHOLE NUMBER AS DEFINED HISTORICALLY IN CHK^IBCVC
ALPHANUM(CODE,VALUE,INPUTCHK)	;EP - IS VALUE CODE AN ALPHANUMERIC?
DECIMALS(CODE,VALUE,INPUTCHK)	;EP - IS VALUE CODE A "DECIMAL" AS DEFINED HISTORICALLY IN CHK^IBCVC
ZIPCODE(CODE,VALUE,INPUTCHK)	;EP - RETURN IF VALID ZIP IN FILE #5.11 ZIP CODE
REMOVE(DA)	; Remove the VALUE field since it's in the wrong format. ; This is called from a NEW STYLE X-REF "AC" in file 399.047 field .01
COND(DA,OLDVC,NEWVC)	; Check if the VALUE is in a valid format for the new VALUE CODE. ; This is called from a NEW STYLE X-REF "AC" in file 399.047 field .01 ; This function will return: ; 1 - Means that this VALUE should be deleted (It's in the wrong format) ; 0 - Means that this VALUE should NOT be deleted
VC1(IBXIEN,IBFL)	;Code for the VC1 record of the IB 837 Transmission
VCSCREEN(X)	;EP - FIELD #2 VALUE CODE AMOUNT SCREEN, FILE #399.1 MCCR UTILITY INPUT TRANSFORM
MUMPSCODE(MUMPSCODE)	;EP - GET NON-STANDARD MUMPS CODE FOR CODE VALUE AMOUNT EDIT CHECK
ASKFORERROR(ERROR,STANCHOICE)	;EP - ASK FOR ERROR
REDO	;
ADDWRAPPER(CODESTR,ERRORCODE)	;EP - ADD BASIC CODE TOCHECKFOR VALUE AND ADD STANDARD IBER CALL
STANCHOICE(DIR,MCODE)	;EP-PULL STANDARD (OR EASY USER) CHOICES
STANCHOICES	;;

Name	Field # of Occurrence
EN^DDIOL	HELP+11
^DIC	REDO+7
FILE^DIE	REMOVE+6
CLEAN^DILF	ALLOWVC+6, ALLOWVC+10, CHK+10, CHK+17, REMOVE+7
^DIM	VCSCREEN+11
$$GET1^DIQ	ALLOWVC+5, ALLOWVC+9, CHK+9, CHK+16
^DIR	VCSCREEN+20, VCSCREEN+36, MUMPSCODE+14
$$COBN^IBCEF	VC1+16
$$FT^IBCEF	VC1+9
$$FORMAT^IBCVC	FMTNUMERIC+1, FMTALPHANUM+1, FMTDECIMAL+2
$$ABS^XLFMTH	FORMAT+6
$$LJ^XLFSTR	FORMAT+15
$$RJ^XLFSTR	FORMAT+14
$$TRIM^XLFSTR	FORMAT+12
$$UP^XLFSTR	FORMAT+4
BMES^XPDUTL	VCSCREEN+4, MUMPSCODE+1, MUMPSCODE+7, MUMPSCODE+8, REDO+1, REDO+4
MES^XPDUTL	VCSCREEN+5, MUMPSCODE+2, MUMPSCODE+3, MUMPSCODE+4, MUMPSCODE+5, MUMPSCODE+6, REDO+2, REDO+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$G(^(LOOP,0)) Line Location: HELP+10
Function Call: WRITE	Prompt: !!,"PROGRAMMER ONLY EDITABLE FIELD!!!" Line Location: VCSCREEN+7
Routine Call	DIC Line Location: REDO+7
Routine Call	DIE Line Location: REMOVE+6
Routine Call	DIR Line Location: VCSCREEN+20 VCSCREEN+36 MUMPSCODE+14

FileNo	Call Tags
^IBE(350.8 - [#350.8]	Classic Fileman Calls
^DGCR(399 - [#399]	GET1^DIQ
^DGCR(399.1 - [#399.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	HELP+3, HELP+5, FORMCHK+15, FORMCHK+18, COND+8, VC1+10, VC1+17
^DGCR(399.1 - [#399.1]	HELP+7, HELP+9, VALCODEFMT+15, VALCODEFMT+17, VC1+11, VCSCREEN+19

Name	Line Occurrences
$$ADDWRAPPER	VCSCREEN+42
$$ALPHANUM	DATATYPE+3
$$CHK	FORMCHK+21, COND+10
$$DATATYPE	VALCODEFMT+24
$$DECIMALS	DATATYPE+2
$$FMTALPHANUM	VALCODEFMT+26
$$FMTDECIMAL	VALCODEFMT+27
$$FMTDOLLAR	VALCODEFMT+19
$$FMTNUMERIC	VALCODEFMT+25
$$FMTSPECIAL	VALCODEFMT+28
$$FORMAT	FMTDOLLAR+1, FMTSPECIAL+2, FMTSPECIAL+3, FMTSPECIAL+4
$$NUMERIC	DATATYPE+1
$$NUMRANGE	PATCH718CHK+2, PATCH718CHK+3, PATCH718CHK+4, PATCH718CHK+5, PATCH718CHK+6, PATCH718CHK+7, PATCH718CHK+8, PATCH718CHK+9, PATCH718CHK+10, PATCH718CHK+11
$$ZIPCODE	DATATYPE+4
ASKFORERROR	VCSCREEN+40
AWAY	IBCVC+3
MUMPSCODE	VCSCREEN+44
REDO	REDO+9
STANCHOICE	VCSCREEN+32

Name	Field # of Occurrence
^(	HELP+11, VC1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMTFLG	CHK+13~, CHK+16*, CHK+18
CHOICE	STANCHOICE+1~, STANCHOICE+3, STANCHOICE+4, STANCHOICE+5, STANCHOICE+6, STANCHOICE+8
CODE	CHK+8~, CHK+9, CHK+11, CHK+22, CHK+26, CHK+30, CHK+31, CHK+35, CHK+44, CHK+47 , CHK+50, CHK+53, CHK+58, DATATYPE~, NUMERIC~, NUMERIC+1, ALPHANUM~, ALPHANUM+1, DECIMALS~, DECIMALS+1 , ZIPCODE~, ZIPCODE+1, VC1+16, VC1+18
CODESTR	ADDWRAPPER~, ADDWRAPPER+4*, ADDWRAPPER+5
DA	HELP+1, HELP+3, HELP+5, FORMCHK~, FORMCHK+13, FORMCHK+15, FORMCHK+18, REMOVE~, REMOVE+3, REMOVE+4 , COND~, COND+6, COND+8, VCSCREEN+28~, MUMPSCODE+10~, ASKFORERROR+1~
DA(1	HELP+2, HELP+3, HELP+5, FORMCHK+14, FORMCHK+15, FORMCHK+18, REMOVE+3, REMOVE+4, COND+6, COND+8
DATA	FORMAT~, FORMAT+6, FORMAT+10, FORMAT+12, FORMAT+14, FORMAT+15*, FORMAT+16
DATATYPE	VALCODEFMT+1~, VALCODEFMT+24*, VALCODEFMT+25, VALCODEFMT+26, VALCODEFMT+27, FORMAT~, FMTNUMERIC~
DECPT	FORMAT~, FORMAT+8*, FORMAT+10
DIC	VCSCREEN+28~, MUMPSCODE+10~, ASKFORERROR+1~, REDO+5*
DIC(0	REDO+6*
DIE	VCSCREEN+28~, MUMPSCODE+10~, ASKFORERROR+1~
DIK	VCSCREEN+28~, MUMPSCODE+10~, ASKFORERROR+1~
>> DILK	VCSCREEN+2, VCSCREEN+26
DIR	VCSCREEN+16~, VCSCREEN+28~, VCSCREEN+32, MUMPSCODE+10~, ASKFORERROR+1~, STANCHOICE~
DIR("?"	MUMPSCODE+13*
DIR("A"	VCSCREEN+19, VCSCREEN+35, MUMPSCODE+12*
DIR("B"	VCSCREEN+18, VCSCREEN+31
DIR(0	VCSCREEN+17, VCSCREEN+30, VCSCREEN+34, MUMPSCODE+11, STANCHOICE+8*
DIROUT	VCSCREEN+28~, VCSCREEN+37, MUMPSCODE+10~, ASKFORERROR+1~
DOLLAR	VCSCREEN+26~*
DOLLARAMT	VALCODEFMT+1~, VALCODEFMT+13*, VALCODEFMT+19
DR	VCSCREEN+28~, MUMPSCODE+10~, ASKFORERROR+1~
DTOUT	VCSCREEN+28~, VCSCREEN+37, MUMPSCODE+10~, ASKFORERROR+1~
DUOUT	VCSCREEN+28~, VCSCREEN+37, MUMPSCODE+10~, ASKFORERROR+1~
DUZ(0	VCSCREEN+7, VCSCREEN+34
ERROR	ASKFORERROR~, REDO+10*
ERRORCODE	VCSCREEN+29~, VCSCREEN+40, VCSCREEN+41, VCSCREEN+42, ADDWRAPPER~, ADDWRAPPER+3
FDA	REMOVE+2~
FDA(	REMOVE+5*
FILL	FORMAT+2~, FORMAT+5*
FILLCHAR	FORMAT~, FORMAT+5, FORMAT+12, FORMAT+14, FORMAT+15
FILLER	FORMAT+3~
HIGH	NUMRANGE~, NUMRANGE+2
IBDATA	VALCODEFMT~
IBDATA(	VALCODEFMT+19, VALCODEFMT+25, VALCODEFMT+26, VALCODEFMT+27, VALCODEFMT+28*
IBFL	VC1~
IBFL(39	VC1+14, VC1+18
IBI	VC1+8~, VC1+10, VC1+14, VC1+18*
IBIFN	ALLOWVC~, ALLOWVC+9
IBSAVE	VALCODEFMT~
IBSAVE("VALUE"	VALCODEFMT+4, VALCODEFMT+10, VALCODEFMT+11, VALCODEFMT+12, VALCODEFMT+13, VALCODEFMT+14
IBX	VC1+8~, VC1+10*, VC1+11
IBXIEN	VC1~, VC1+9, VC1+10, VC1+16, VC1+17
IEN	PATCH718CHK~, PATCH718CHK+1, PATCH718CHK+2, PATCH718CHK+3, PATCH718CHK+4, PATCH718CHK+5, PATCH718CHK+6, PATCH718CHK+7, PATCH718CHK+8, PATCH718CHK+9 , PATCH718CHK+10, PATCH718CHK+11, VALCODEFMT+8~, VALCODEFMT+9, VALCODEFMT+10, VALCODEFMT+11, VALCODEFMT+12, VALCODEFMT+13, VALCODEFMT+14, VALCODEFMT+19 , VALCODEFMT+25, VALCODEFMT+26, VALCODEFMT+27, VALCODEFMT+28
IENS	REMOVE+2~, REMOVE+4*, REMOVE+5
INPUTCHK	DATATYPE~, DATATYPE+1, DATATYPE+2, DATATYPE+3, DATATYPE+4, NUMERIC~, NUMERIC+2, ALPHANUM~, ALPHANUM+2, DECIMALS~ , DECIMALS+2, ZIPCODE~, ZIPCODE+2
INST	VC1+8~, VC1+9*, VC1+13, VC1+15
JUST	FORMAT~, FORMAT+4*, FORMAT+14
LENGTH	FORMAT~, FORMAT+7*, FORMAT+10, FORMAT+14, FORMAT+15
LOOP	HELP+8~, HELP+9*, HELP+11
LOW	NUMRANGE~, NUMRANGE+2
MCODE	VCSCREEN+9~, VCSCREEN+10, VCSCREEN+23, VCSCREEN+29~, VCSCREEN+32, STANCHOICE~, STANCHOICE+4, STANCHOICE+7
MCODE(	VCSCREEN+42, STANCHOICE+7*
MUMPSCODE	MUMPSCODE~
NEWVC	COND~, COND+10
OBSDT	ALLOWVC+4~, ALLOWVC+5*, ALLOWVC+7, ALLOWVC+13
OFFSET	STANCHOICE+2~, STANCHOICE+3*
OK	CHK+8~, CHK+43, CHK+44, CHK+45, CHK+47, CHK+48, CHK+50, CHK+51, CHK+53, CHK+54* , DECIMALS+4, DECIMALS+5, DECIMALS+6, DECIMALS+7
OLDVALUE	COND+7~, COND+8*, COND+9, COND+10
OLDVC	COND~, COND+5
PRECISION	FORMAT~, FORMAT+10
PREFIX	ADDWRAPPER+1~, ADDWRAPPER+2*, ADDWRAPPER+4
>> RETURN	ZIPCODE+10
SCF	ALLOWVC+4~, ALLOWVC+9*, ALLOWVC+11, ALLOWVC+13
SETCODE	STANCHOICE+1~, STANCHOICE+6*, STANCHOICE+7
STANCHOICE	ASKFORERROR~
SUFFIX	ADDWRAPPER+1~, ADDWRAPPER+3*, ADDWRAPPER+4
TESTING	VALCODEFMT+2~, VALCODEFMT+3*, VALCODEFMT+5, VALCODEFMT+6, VALCODEFMT+7, VALCODEFMT+29, VALCODEFMT+30, FMTDOLLAR+2, FMTDOLLAR+3, FMTNUMERIC+2 , FMTNUMERIC+3, FMTALPHANUM+2, FMTALPHANUM+3, FMTDECIMAL+3, FMTDECIMAL+4, FMTSPECIAL+5, FMTSPECIAL+6
U	HELP+5, FORMCHK+18, PATCH718CHK+1, VALCODEFMT+11, VALCODEFMT+12, VALCODEFMT+13, VALCODEFMT+14, VALCODEFMT+17, NUMERIC+1, ALPHANUM+1 , DECIMALS+1, ZIPCODE+1, COND+8, VC1+13, VC1+14, VC1+16, VC1+17, VC1+18, VCSCREEN+2, VCSCREEN+19 , VCSCREEN+26, REDO+8, REDO+10
VALCODEIEN	VALCODEFMT+1~, VALCODEFMT+14, VALCODEFMT+15, VALCODEFMT+17
VALCODENAME	VALCODEFMT+1~, VALCODEFMT+16, VALCODEFMT+17, FMTDOLLAR+3, FMTNUMERIC+3, FMTALPHANUM+3, FMTDECIMAL+4, FMTSPECIAL+6
VALUE	VALCODEFMT+1~, VALCODEFMT+12, VALCODEFMT+19, VALCODEFMT+24, VALCODEFMT+25, VALCODEFMT+26, VALCODEFMT+27, VALCODEFMT+28, FORMAT+10, FMTDOLLAR~ , FMTDOLLAR+1, FMTDOLLAR+2, FMTDOLLAR+4, FMTNUMERIC~, FMTNUMERIC+1, FMTNUMERIC+2, FMTNUMERIC+4, FMTALPHANUM~, FMTALPHANUM+1, FMTALPHANUM+2 , FMTALPHANUM+4, FMTDECIMAL~, FMTDECIMAL+2, FMTDECIMAL+3, FMTDECIMAL+5, FMTSPECIAL~, FMTSPECIAL+1, FMTSPECIAL+2, FMTSPECIAL+3, FMTSPECIAL+4 , FMTSPECIAL+5, FMTSPECIAL+7, DATATYPE~, DATATYPE+1, DATATYPE+2, DATATYPE+3, DATATYPE+4, NUMERIC~, NUMERIC+3, ALPHANUM~ , ALPHANUM+3, DECIMALS~, ZIPCODE~
VALUECODE	VALCODEFMT+11*, VALCODEFMT+15, VALCODEFMT+24, VALCODEFMT+28, FMTDOLLAR+3, FMTNUMERIC+3, FMTALPHANUM+3, FMTDECIMAL+4, FMTSPECIAL~, FMTSPECIAL+1 , FMTSPECIAL+2, FMTSPECIAL+3, FMTSPECIAL+4, FMTSPECIAL+6, DATATYPE+1, DATATYPE+2, DATATYPE+3, DATATYPE+4
VCPTR	HELP+4~, HELP+5, HELP+6, HELP+7, HELP+9, FORMCHK+17~, FORMCHK+18, FORMCHK+19, FORMCHK+21, CHK~ , CHK+9, CHK+16
X	FORMCHK~, FORMCHK+11, FORMCHK+12, FORMCHK+21, CHK~, CHK+18, CHK+22, CHK+26, CHK+30, CHK+31 , CHK+35, CHK+45, CHK+48, CHK+51, CHK+54, CHK+58, NUMRANGE~, NUMRANGE+2, NUMERIC+3, ALPHANUM+3 , DECIMALS+5, DECIMALS+6, DECIMALS+7, ZIPCODE+3, VCSCREEN~, VCSCREEN+3!, VCSCREEN+10, VCSCREEN+12, VCSCREEN+14, VCSCREEN+16~ , VCSCREEN+37!, VCSCREEN+41!, VCSCREEN+42*, VCSCREEN+44, MUMPSCODE+15!, ASKFORERROR+1~, REDO+8
Y	ALLOWVC~, ALLOWVC+5, VCSCREEN+12, VCSCREEN+28~, VCSCREEN+37, VCSCREEN+39, VCSCREEN+40, VCSCREEN+42, MUMPSCODE+10~, ASKFORERROR+1~ , REDO+9, REDO+10
Z	VC1+8~, VC1+11, VC1+14, VC1+17
Z0	VC1+8~, VC1+11, VC1+12, VC1+13, VC1+14, VC1+17, VC1+18

Customize PDF page

Package: Integrated Billing

Routine: IBCVC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items