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
Print Page as PDF
Routine: IBCU75

Package: Integrated Billing

Routine: IBCU75


Information

IBCU75 ;ALB/JRA - INTERCEPT SCREEN INPUT OF PROCEDURE CODES (ENTER CMN INFO) ;23-Apr-18

Source Information

Source file <IBCU75.m>

Entry Points

Name Comments DBIA/ICR reference
CMN(IBXIEN,IBPROCP) ;JRA;IB*2.0*608 Prompt user for CMN info
CMNREQ ; Set DR with logic for 1st 3 fields: "CMN Required?", "Form Type" and "Certification Type"
FRMTYP ;Entry point to set DR with logic for "Form Type" and "Certification Type" fields in preparation for re-prompting.
CERTYP ;Entry point to set DR with logic for "Certification Type" field in preparation for re-prompting.
DRCOMM ;Set DR with logic for the remaining fields common to all form types
RRDT ;Entry point to set DR with logic for "Recertification/Revision Date"... fields in preparation for re-prompting.
STRTDT ;Entry point to set DR with logic for "Date Therapy Started"... fields in preparation for re-prompting.
DR484 ;Set DR with logic specific for form CMN-484
DR10126 ;Set DR with logic specific to the CMN-10126
COPYCMN(IBXIEN,IBPROCP,FRMTYP) ;Copy CMN information from last procedure entered that has it to current procedure
USEROK(FLD,OLDVAL,MSG) ;JRA;IB*2.0*608 Prompt user if OK to change field value
SETFLD(FLD,VAL) ;JRA;IB*2.0*608 Set/Delete field data w/out user prompting
DTCHK(X,TDY,TAG,DTOLD) ;JRA;IB*2.0*608 Check if future date entered by user

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Another user is editing this entry -- EXITING"
  • Line Location: CMN+8
Function Call: WRITE
  • Prompt: $C(7),!,?3,"""CMN Required?"" is a REQUIRED field!"
  • Line Location: CMN+30
Function Call: WRITE
  • Prompt: $C(7),!,?3,MSG
  • Line Location: CMN+34
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CMN+71
Function Call: WRITE
  • Prompt: !,?3,MSG(I)_" is REQUIRED!"
  • Line Location: CMN+71
Function Call: WRITE
  • Prompt: !,?3,"** Exiting now will leave required fields unanswered."
  • Line Location: CMN+72
Function Call: WRITE
  • Prompt: !,?3,"** If you must exit, enter '^' again."
  • Line Location: CMN+73
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: USEROK+8
Function Call: WRITE
  • Prompt: !,MSG
  • Line Location: USEROK+8
Function Call: WRITE
  • Prompt: $C(7),!,?3,"Future dates not allowed??"
  • Line Location: DTCHK+11
Info |  Source |  Entry Points |  Interaction Calls