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: IBDFDE23

Package: Automated Information Collection System

Routine: IBDFDE23


Information

IBDFDE23 ;ALB/DHH - Select CPT Modifiers during Manual Data Entry ; MAY-18-1999

Source Information

Source file <IBDFDE23.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIR  
CPT HCPCS Codes 1 $$MODP^ICPTMOD  

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: 2

Package Total Caller Graph
Automated Information Collection System 2 IBDFDE21  ^IBE(357.6  

Entry Points

Name Comments DBIA/ICR reference
MOD ;Entry point for selecting or modifying modifiers
OTHER ;--allow for additional modifiers to be selected
DELMOD ; Delete modifier from list if duplicate entry
ARRAY ; -- transfer modifier data to result array
ERR ;Error message
GAFSCOR ;Enter GAF Score
OKPROV(IEN)

External References

Name Field # of Occurrence
^DIC OTHER+2
^DIR DELMOD+3, GAFSCOR+8
$$MODP^ICPTMOD MOD+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want to remove this modifier as being Associated with this CPT Procedure?"
  • Line Location: DELMOD+2
Function Call: WRITE
  • Prompt: !,X," is not a valid modifier for ",CODE,!
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: "You must enter a GAF Score (1-100)!"
  • Line Location: GAFSCOR+10
Routine Call
  • DIC
  • Line Location:
    • OTHER+2
Routine Call
  • DIR
  • Line Location:
    • DELMOD+3
    • GAFSCOR+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XUSEC("SD GAF SCORE" OKPROV+1

Label References

Name Line Occurrences
ARRAY MOD+32
DELMOD OTHER+4
ERR MOD+26
GAFSCOR GAFSCOR+9
OTHER MOD+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANS MOD+16, MOD+17
CNT MOD+4~, ARRAY+2*, ARRAY+3*, ARRAY+4, ARRAY+5
CODE MOD+4~, MOD+9*, MOD+26, ERR+1
DA DELMOD+1~
DIC OTHER+1~, OTHER+2*, DELMOD+1~
DIC("S" OTHER+2*
DIC(0 OTHER+2*
DIR DELMOD+1~
DIR("?" GAFSCOR+7*
DIR("A" GAFSCOR+6*
DIR("B" DELMOD+3*
DIR(0 DELMOD+3*, GAFSCOR+5*
>> DIRUT DELMOD+3
DR DELMOD+1~
GAFCNT GAFSCOR+2*, GAFSCOR+3, GAFSCOR+4!, GAFSCOR+11*
I MOD+4~, MOD+18*
>> IBDF("PI" GAFSCOR+13
>> IBDSEL( GAFSCOR+13*
>> IBDSEL(0 GAFSCOR+12*, GAFSCOR+13
>> IBDX MOD+9, ARRAY+4, ARRAY+5
IEN OKPROV~, OKPROV+1
MOD MOD+4~, OTHER+3*, OTHER+4, OTHER+5, DELMOD+4, ARRAY+2*, ARRAY+4
MODLST MOD+4~, MOD+17*, MOD+18
>> PXCA("IBD GAF SCORE" , GAFSCOR+14*
>> RESULT( MOD+9, ARRAY+4*, ARRAY+5*
SEL MOD+4~, ARRAY+1
SEL("MOD" MOD+27*, OTHER+4, OTHER+5*, DELMOD+4!, ARRAY+2
X MOD+4~, MOD+18*, MOD+26, MOD+27, ERR+1
Y MOD+4~, OTHER+2, OTHER+3, OTHER+4, DELMOD+4, GAFSCOR+9, GAFSCOR+13, GAFSCOR+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All