IBCVC ;ALB/WCJ - VALUE CODE FUNCTIONALITY ;25-JUN-07
Source file <IBCVC.m>
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 | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(350.8 - [#350.8] | Classic Fileman Calls |
^DGCR(399 - [#399] | GET1^DIQ |
^DGCR(399.1 - [#399.1] | GET1^DIQ |