Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIE  ($$FMTE,$$HTFM)^DILIBF  ^DIR  
Integrated Billing 1 ($$CMNDATA,CMNDEX)^IBCEF31  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCU7  

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

External References

Name Field # of Occurrence
^DIE CMN+24, CMN+56, SETFLD+8
$$FMTE^DILIBF CMN+9
$$HTFM^DILIBF CMN+10, DTCHK+9
^DIR USEROK+9
$$CMNDATA^IBCEF31 CMN+26, CMN+27, CMN+28, CMN+59, CMN+60, CMN+61, CMN+62, CMN+63, CMN+68
CMNDEX^IBCEF31 COPYCMN+10

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
Routine Call
  • DIE
  • Line Location:
    • CMN+24
    • CMN+56
    • SETFLD+8
Routine Call
  • DIR
  • Line Location:
    • USEROK+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] COPYCMN+12, COPYCMN+13, COPYCMN+14*, COPYCMN+15*
^IBE(399.6 - [#399.6] CMN+14, CMN+15

Label References

Name Line Occurrences
@( CMN+34, CMN+74, STRTDT+2
CMNREQ CMN+22, CMN+30
DRCOMM CMN+52
SETFLD CMN+47, CMN+80, USEROK+10, DTCHK+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABGMSG CMN+5~, CMN+11*
ABGPO2 CMN+5~
CERTDT CMN+5~, CMN+62*, CMN+64
CERTYP CMN+5~, CMN+25*, CMN+28*, CMN+29, CMN+33, CMN+47, CMN+49, CMN+59*, CMN+65
CERTYP("MSG" CMN+20*
CERTYP("MSGI" CMN+21*
CHNGFRM CMN+5~
CMNNODE CMN+5~, CMN+40*, CMN+41*, CMN+45*
CMNREQ CMN+5~, CMN+25*, CMN+26*, CMN+30, CMN+38, CMN+49
CMNREQ("MSG" CMN+18*
CMSG CMN+5~
DA CMN+5~, CMN+12*
DA(1 CMN+12*
DGLB CMN+5~, CMN+7*, CMN+78, CMN+80, CMN+81
DI SETFLD+5~
DIC CMN+5~, USEROK+6~
DIE CMN+5~, CMN+12*, SETFLD+5~, SETFLD+6*
DIE("NO^" CMN+17*
DIR CMN+5~, USEROK+6~
DIR("A" USEROK+9*
DIR("B" USEROK+9*
DIR(0 USEROK+9*
DL SETFLD+5~
DONE COPYCMN+5~, COPYCMN+6*, COPYCMN+11, COPYCMN+16*
DP SETFLD+5~
DQ SETFLD+5~
DR CMN+5~, CMN+34*, CMN+71*, CMNREQ+1*, CMNREQ+2*, CMNREQ+3*, FRMTYP+1*, FRMTYP+2*, FRMTYP+3*, FRMTYP+4*
, FRMTYP+5*, CERTYP+1*, CERTYP+2*, CERTYP+3*, CERTYP+4*, DRCOMM+1*, DRCOMM+2*, RRDT+1*, RRDT+2*, RRDT+3*
, RRDT+4*, STRTDT+1*, DR484+1*, DR484+2*, DR484+3*, DR484+4*, DR484+5*, DR484+6*, DR484+7*, DR10126+1*
, DR10126+2*, DR10126+3*, DR10126+4*, DR10126+5*, DR10126+6*, DR10126+7*, DR10126+8*, DR10126+9*, SETFLD+5~, SETFLD+7*
DRTAG CMN+5~, CMN+32*, CMN+33*, CMN+34, CMN+58*, CMN+64*, CMN+65*, CMN+66*, CMN+68*, CMN+70
, CMN+74
DRTAG(1 CMN+55*, CMN+70, CMN+74*
DTOLD CMN+5~, DTCHK~, DTCHK+8*, DTCHK+13
EDIT CMN+5~, CMN+49
EVNTDT CMN+5~, CMN+9*, DRCOMM+1, RRDT+1, STRTDT+1
FIEN CMN+5~, CMN+14*, CMN+15, CMN+39*, CMN+40, CMN+44*, CMN+45
FLD CMN+79~, CMN+80*, USEROK~, USEROK+5, USEROK+10, SETFLD~, SETFLD+4, SETFLD+7, DTCHK+7~
FNAM CMN+5~, CMN+14*
FORM CMN+5~, CMN+16
FORM( CMN+15*!, CMN+39, CMN+40, CMN+44, CMN+45, CMN+51, CMN+67, COPYCMN+9
FORM(1 CMN+16*
FORM(2 CMN+16*
FRMND COPYCMN+8~, COPYCMN+13*, COPYCMN+15
FRMNDI COPYCMN+8~, COPYCMN+9*, COPYCMN+12, COPYCMN+13
FRMTAG CMN+5~, CMN+51*, STRTDT+2
FRMTYP CMN+6~, CMN+25*, CMN+27*, CMN+29, CMN+32, CMN+44, CMN+49, CMN+51, CMN+67, COPYCMN~
, COPYCMN+7, COPYCMN+9
FRMTYP("MSG" CMN+19*
HT CMN+6~, CMN+60*
HTOLD CMN+6~
I CMN+6~, CMN+71*
>> IBDT CMN+9
IBPEB CMN+6~
IBPROC COPYCMN+8~, COPYCMN+11*, COPYCMN+12, COPYCMN+13, COPYCMN+14, COPYCMN+15
IBPROCP CMN~, CMN+4, CMN+12, CMN+26, CMN+27, CMN+28, CMN+40, CMN+41, CMN+45, CMN+59
, CMN+60, CMN+61, CMN+62, CMN+63, CMN+68, COPYCMN~, COPYCMN+7, COPYCMN+11, COPYCMN+14, COPYCMN+15
IBXIEN CMN~, CMN+4, CMN+8, CMN+12, CMN+26, CMN+27, CMN+28, CMN+40, CMN+41, CMN+45
, CMN+59, CMN+60, CMN+61, CMN+62, CMN+63, CMN+68, COPYCMN~, COPYCMN+7, COPYCMN+10, COPYCMN+12
, COPYCMN+13, COPYCMN+14, COPYCMN+15, SETFLD+6
IBXSAVE COPYCMN+8~, COPYCMN+10
IBXSAVE("CMNDEX" COPYCMN+11
LKGLB CMN+6~, CMN+8*
LPM4ABG CMN+6~
LPM4SAT CMN+6~
MSG CMN+6~, CMN+31*, CMN+32*, CMN+33*, CMN+34*, CMN+57!*, CMN+64*, CMN+65*, CMN+66*, CMN+68*
, CMN+69, CMN+71, USEROK~, USEROK+8
MSG( CMN+64*, CMN+65*, CMN+66*, CMN+68*, CMN+71
NODE0 CMN+6~
O2SAT CMN+6~
OK CMN+6~
OLDVAL CMN+6~, USEROK~, USEROK+7*, USEROK+10
PROCA CMN+6~
PROCB CMN+6~
QUIT CMN+6~, CMN+23*, CMN+26*, CMN+29*, CMN+35*, CMN+55*, CMN+70*, CMN+75*
RRDT CMN+6~, CMN+63*, CMN+65
TAG DTCHK~, DTCHK+6, DTCHK+12, DTCHK+13
TDY CMN+6~, CMN+10*, DTCHK~, DTCHK+9*
THERPYDT CMN+6~, CMN+61*, CMN+66
U CMN+15
>> UPCT CMN+55*, CMN+70*
VAL SETFLD~, SETFLD+4, SETFLD+7
WTOLD CMN+6~
X CMN+6~, CMN+49, CMN+70, USEROK+6~, USEROK+11*, SETFLD+5~, DTCHK~, DTCHK+6, DTCHK+9
Y CMN+6~, USEROK+6~, USEROK+10, USEROK+11, USEROK+12, SETFLD+5~, DTCHK+12*
Z COPYCMN+8~, COPYCMN+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All