Routine: IBDFFV3

Information

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

Source file <IBDFFV3.m>

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

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFFV2

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

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

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

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

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

Name	Field # of Occurrence
$T(TYPE+TYPE	PRINT+25, PAGE+12