Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCVC

Package: Integrated Billing

Routine: IBCVC


Information

IBCVC ;ALB/WCJ - VALUE CODE FUNCTIONALITY ;25-JUN-07

Source Information

Source file <IBCVC.m>

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 ;;

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.8 - [#350.8] Classic Fileman Calls
^DGCR(399 - [#399] GET1^DIQ
^DGCR(399.1 - [#399.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call