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

Package: Automated Information Collection System

Routine: IBDFFV


Information

IBDFFV ;ALB/CMR - AICS FORM VALIDATION ; NOV 22,1995

Source Information

Source file <IBDFFV.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$CJ^XLFSTR  
Automated Information Collection System 3 ^IBDFFV1  ^IBDFFV2  @(^IBDFUTL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Information Collection System 1 IBDF VALIDATE FORMS  
Integrated Billing 1 IBDF VALIDATE FORMS  

Entry Points

Name Comments DBIA/ICR reference
SORT ; -- determine sort criteria
HDR ; -- write out uncompiled forms header
PG(LEN) ; -- check page length
; -- LEN equal to length to check for (optional)...will default
EXIT ; -- Clean up and quit
DEVICE ; -- ask device
DQ ; -- entry point from task man

External References

Name Field # of Occurrence
^%ZIS DEVICE+1
HOME^%ZIS DEVICE+2
^%ZISC EXIT+3
^%ZTLOAD DEVICE+2
^DIR SORT+1, PG+4
^IBDFFV1 DQ+4
^IBDFFV2 DQ+6
@(^IBDFUTL SORT+5
$$CJ^XLFSTR HDR+1, HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"AICS Form Validation Report",!!
  • Line Location: IBDFFV+6
Function Call: WRITE
  • Prompt: $C(7),!,"No forms found!"
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !?5,FORM
  • Line Location: DQ+11
Function Call: WRITE
  • Prompt: !!,"CLINIC: ",CLIN
  • Line Location: DQ+12
Function Call: WRITE
  • Prompt: !?5,FORM
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !!,$S(SORT="G":"GROUP",1:"DIVISION"),": ",HEADER
  • Line Location: DQ+14
Function Call: WRITE
  • Prompt: !!?5,"CLINIC: ",CLIN
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !?10,FORM
  • Line Location: DQ+16
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PG+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ENCOUNTER FORM VALIDATION",IOM)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("REPORT OF UNCOMPILED FORMS",IOM)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!!,"Validation can only be performed on compiled forms. To compile a form,",!,"you simply print it."
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!,"The following forms were found to be uncompiled:"
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2
Routine Call
  • DIR
  • Line Location:
    • SORT+1
    • PG+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J DQ+2!, DQ+5, DQ+7, DQ+9, DQ+11, DQ+12, DQ+13, DQ+14, DQ+15, DQ+16
, EXIT+1!

Label References

Name Line Occurrences
DEVICE IBDFFV+9
EXIT IBDFFV+8, IBDFFV+9, DQ+5, DQ+6
HDR DQ+10
PG DQ+11, DQ+12, DQ+13, DQ+14, DQ+15, DQ+16
SORT IBDFFV+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+1*
CALL IBDFFV+5~, SORT+3*, SORT+5
CLIN DQ+8~, DQ+12*, DQ+13, DQ+15*, DQ+16
DIR SORT+1!, PG+4!
DIR("A" SORT+1*
DIR(0 SORT+1*, PG+4*
DIRUT SORT+2, PG+4!
DTOUT PG+4!
DUOUT PG+4!
FORM DQ+8~, DQ+11*, DQ+13*, DQ+16*
HEADER DQ+8~, DQ+14*, DQ+15, DQ+16
I IBDFFV+5~
IBDFL IBDFFV+5~, IBDFFV+7*, IBDFFV+8, IBDFFV+9, DQ+1~, DQ+3*, SORT+2*, DEVICE+2*
IBDFOUT DQ+6, DQ+11, DQ+12, DQ+13, DQ+14, DQ+15, DQ+16, EXIT+4!, PG+4*
>> IBDLF DEVICE+1*
IO DQ+5, DEVICE+3
IO("Q" DEVICE+2
IOF PG+5
IOM HDR+1, HDR+2
IOSL PG+3
IOST PG+4
LEN PG~, PG+2*, PG+3
POP IBDFFV+5~, DEVICE+1
SORT DQ+8~, DQ+9*, DQ+11, DQ+12, DQ+13, DQ+14, DQ+15, DQ+16, EXIT+4!, SORT+3*
U SORT+3
VAUTC EXIT+4!
VAUTD EXIT+4!
VAUTF EXIT+4!
VAUTG EXIT+4!
X IBDFFV+5~
Y IBDFFV+5~, SORT+3, PG+4
Y(0 SORT+3
ZTDESC EXIT+4!, DEVICE+2*
>> ZTQUEUED EXIT+2
>> ZTREQ EXIT+2*
ZTRTN EXIT+4!, DEVICE+2*
ZTSAVE EXIT+4!
ZTSAVE("SORT" DEVICE+2*
ZTSAVE("VA*" DEVICE+2*
ZTSK EXIT+4!, DEVICE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All