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 |  Marked Items |  All
Print Page as PDF
Routine: IBDFFV3

Package: Automated Information Collection System

Routine: IBDFFV3


Information

IBDFFV3 ;;ALB/CMR - AICS FORM VALIDATION ; FEB 23, 1996

Source Information

Source file <IBDFFV3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$CJ^XLFSTR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDFFV2  

Entry Points

Name Comments DBIA/ICR reference
DISP ; -- display data for each element
PRINT(FRM,NAME,TYPE,CL,DG) ; -- print validation for each form
; -- FRM = ien file 357
; -- NAME (optional) name of form
; -- TYPE (optional) type of form where:
; -- 1 = FORM
; -- 2 = BASIC DEFAULT FORM
; -- 3 = SUPPLEMENTAL FORM - PATIENT WITH PRIOR VISITS
; -- 4 = SUPPLEMENTAL FORM - FIRST TIME PATIENT
; -- 5 = FORM WITH NO PRE-PRINTED PATIENT DATA
; -- 6 = SUPPLEMENTAL FORM - ALL PATIENTS
; -- 7 = RESERVED FOR FUTURE USE
; -- 8 = SUPPLEMENTAL FORM - ALL PATIENTS
; -- 9 = SUPPLEMENTAL FORM - ALL PATIENTS
; -- CL (optional) clinic header
; -- DG (optional) group or division header
PAGE(PL) ; -- check page length
; -- adds two lines to account for footer
ERROR ;gathers errors to write
TYPE ; -- list of form types
ERRORS(ERR) ; -- writes out errors

External References

Name Field # of Occurrence
^DIR PAGE+8
$$CJ^XLFSTR PRINT+22, PAGE+7, PAGE+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("ENCOUNTER FORM VALIDATION",IOM),!
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,DG
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,CL
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,$P($T(TYPE+TYPE),";;",2)," ",NAME
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !!,GROUP,!
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $D(ERR)
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: ?2,"[ ] ",$S($D(BUB):$P(NODE,U,8),$D(HP):$P(NODE,U,9),1:"")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,?6,IBID,?22,$G(IBLABEL)
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !?6,"DATA QUALIFIER",?22,$P($G(^IBD(357.98,DQ,0)),"^")
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !?6,"DATA ELEMENT",?22,$P($G(^IBE(359.1,$P(NODE,U,17),0)),U)
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRORS+1
Function Call: WRITE
  • Prompt: !?6,"ERRORS"
  • Line Location: ERRORS+2
Function Call: WRITE
  • Prompt: ?22,ERR
  • Line Location: ERRORS+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(PG,IOM)
  • Line Location: PAGE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+9
Routine Call
  • DIR
  • Line Location:
    • PAGE+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBD(357.95 - [#357.95] PRINT+21, PRINT+28, PRINT+30
^IBD(357.98 - [#357.98] DISP+20
^IBE(357 - [#357] PRINT+17, PRINT+19, PRINT+21
^IBE(357.6 - [#357.6] DISP+7, DISP+9
^IBE(359.1 - [#359.1] DISP+21

Label References

Name Line Occurrences
DISP PRINT+28, PRINT+30
ERROR DISP+23
ERRORS ERROR+3, ERROR+4, ERROR+5, ERROR+6
PAGE PRINT+32, DISP+4, DISP+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BUB PRINT+15~, PRINT+26!, PRINT+28*, PRINT+29!, DISP+6, DISP+9, DISP+13, DISP+15
CK PRINT+15~, DISP+4, PAGE+2!, PAGE+6*
CL PRINT~, PRINT+24
CNT ERROR+2~, ERRORS+1, ERRORS+2*
CODE PRINT+15~
DG PRINT~, PRINT+23
DIR PAGE+8!
DIR(0 PAGE+8*
DIRUT PAGE+8!
>> DQ DISP+7*, DISP+20
DTOUT PAGE+8!
DUOUT PAGE+8!
ERR DISP+2~, DISP+13, DISP+23, ERROR+1, ERRORS~, ERRORS+3
ERR("CODE" DISP+9*, ERROR+5
ERR("DQ" DISP+7*, ERROR+4
ERR("INACT" DISP+10*, ERROR+6
ERR("PI" DISP+6*, ERROR+3
FRM PRINT~, PRINT+17, PRINT+19, PRINT+21
GROUP PRINT+15~, PRINT+28*, DISP+4*, ERROR+5, ERROR+6, PAGE+13
HP PRINT+26!, PRINT+30*, DISP+6, DISP+13, DISP+16, DISP+21
IBDFFVAL PRINT+15~
>> IBDFOUT PRINT+28, PRINT+30, PRINT+31, DISP+4, DISP+11, PAGE+8*
IBID PRINT+15~, DISP+8!, DISP+15*, DISP+16*, DISP+18
IBINACT DISP+1~, DISP+8!, DISP+10
IBLABEL PRINT+15~, DISP+8!, DISP+9, DISP+15*, DISP+16*, DISP+18
IEN PRINT+15~, PRINT+21*, PRINT+28, PRINT+30
IOF PAGE+9
IOM PRINT+22, PAGE+7, PAGE+11
IOSL PAGE+5
IOST PAGE+8
NAME PRINT~, PRINT+19*, PRINT+25, PAGE+12
NODE PRINT+15~, PRINT+28*, PRINT+30*, DISP+4, DISP+6, DISP+7, DISP+9, DISP+13, DISP+15, DISP+21
PG PRINT+15~, PRINT+18*, PAGE+6*, PAGE+7
PI PRINT+15~, DISP+6*, DISP+7, DISP+9
PL PAGE~, PAGE+3*, PAGE+4*, PAGE+5, PAGE+10
TYPE PRINT~, PRINT+20*
U PRINT+19, PRINT+21, DISP+4, DISP+6, DISP+7, DISP+9, DISP+13, DISP+15, DISP+21
WRITE PRINT+16!, DISP+13*
>> X DISP+9*
>> Y PAGE+8

Marked Items

Name Field # of Occurrence
$T(TYPE+TYPE PRINT+25, PAGE+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All