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 |
