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 |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: IBDFN7

Package: Automated Information Collection System

Routine: IBDFN7


Information

IBDFN7 ;ALB/CJM - ENCOUNTER FORM - validate logic for data ;05/10/95

Source Information

Source file <IBDFN7.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lexicon Utility 2 $$ICDONE^GMPTU  $$ICDONE^LEXU  
Automated Information Collection System 1 ($$IMPDATE,$$STATCHK)^IBDUTICD  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 $$ICDDATA^ICDXCODE  

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

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

Entry Points

Name Comments DBIA/ICR reference
TESTCPT ;does X point to a valid CPT4 code? Kills X if not.
TESTICD ; -- does X point to a valid ICD-9 code? Kills X if not.
; -- input the icd code in X
TESTICD0 ;
TESTVST ;does X point to a valid visit code? If not, kills X.
TESTLEX ; -- Is clinical lexicon pointer valid and does icdone, not return 799.9

External References

Name Field # of Occurrence
$$ICDONE^GMPTU TESTLEX+9
$$IMPDATE^IBDUTICD TESTLEX+2
$$STATCHK^IBDUTICD TESTICD0+26
$$ICDDATA^ICDXCODE TESTICD+10, TESTICD0+25
$$CPT^ICPTCOD TESTCPT+6, TESTVST+5
$$ICDONE^LEXU TESTLEX+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" TESTLEX+5
^GMP(757.01 TESTLEX+8
^IBE(357.69 - [#357.69] TESTVST+10
^LEX TESTLEX+5
^LEX(757.01 - [#757.01] TESTLEX+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT TESTICD+10, TESTICD0+25, TESTICD0+26, TESTLEX+3, TESTLEX+10, TESTLEX+11, TESTLEX+18, TESTLEX+19
IBDCODE TESTICD+3~, TESTICD+10*, TESTICD+11, TESTICD+12, TESTICD0+21~, TESTICD0+25*, TESTICD0+26, TESTICD0+27, TESTICD0+28
IBDIBX TESTLEX+1~, TESTLEX+2*, TESTLEX+3*, TESTLEX+11, TESTLEX+19
IBDIMP TESTLEX+1~, TESTLEX+2*, TESTLEX+3, TESTLEX+10, TESTLEX+11, TESTLEX+18, TESTLEX+19
>> IBDLEXV TESTLEX+4*, TESTLEX+5*, TESTLEX+6, TESTLEX+14
IBDSTAT TESTICD+3~, TESTICD+11*, TESTICD0+21~, TESTICD0+26*, TESTICD0+27
IBDTEMPY TESTICD0+21~
>> IBDY TESTICD+12*, TESTICD0+28*
IEN TESTVST+2~, TESTVST+10*
U TESTCPT+8, TESTCPT+9, TESTICD+10, TESTICD+11, TESTICD+12, TESTICD0+25, TESTICD0+26, TESTICD0+27, TESTICD0+28, TESTVST+7
, TESTVST+8
>> VAL TESTLEX+9*, TESTLEX+10, TESTLEX+11, TESTLEX+17*, TESTLEX+18, TESTLEX+19
X TESTCPT+5!, TESTCPT+6, TESTCPT+7!, TESTCPT+8!, TESTCPT+9*, TESTICD+4!, TESTICD+10*!, TESTICD+11!, TESTICD0+22!, TESTICD0+25*!
, TESTICD0+27!, TESTVST+3!, TESTVST+5, TESTVST+6!, TESTVST+7!, TESTVST+8*, TESTVST+9, TESTVST+10!, TESTLEX+5*, TESTLEX+7!
, TESTLEX+8!, TESTLEX+9, TESTLEX+10!, TESTLEX+11!, TESTLEX+12!, TESTLEX+15!, TESTLEX+16!, TESTLEX+17, TESTLEX+18!, TESTLEX+19!
XX TESTCPT+3~, TESTCPT+6*, TESTCPT+7, TESTCPT+8, TESTCPT+9, TESTVST+2~, TESTVST+5*, TESTVST+6, TESTVST+7, TESTVST+8
>> Y TESTCPT+4*, TESTCPT+8*, TESTICD+4*, TESTICD+10*, TESTICD+11*, TESTICD0+22*, TESTICD0+25*, TESTICD0+27*, TESTVST+3*, TESTVST+6*
, TESTVST+7*, TESTLEX+7*, TESTLEX+8*, TESTLEX+10*, TESTLEX+11*, TESTLEX+12*, TESTLEX+15*, TESTLEX+16*, TESTLEX+18*, TESTLEX+19*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All