Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
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
DISP ; -- display data for each element
ERROR ;gathers errors to write
ERRORS(ERR) ; -- writes out errors
PAGE(PL) ; -- check page length
; -- adds two lines to account for footer
TYPE ; -- list of form types

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
Info |  Source |  Entry Points |  Interaction Calls