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

Package: Automated Information Collection System

Routine: IBDF1C


Information

IBDF1C ;ALB/CJM - ENCOUNTER FORM (print sample form);FEB 11,1992

Source Information

Source file <IBDF1C.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA Fileman 2 ^DIC  ^DIR  
Automated Information Collection System 1 FORM^IBDF2A  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDF5B  

Entry Points

Name Comments DBIA/ICR reference
PRINT(IBFORM) ;
DEVICE ;
EXIT ;
QUEUED ; entry
FORM ;returns IBFORM

External References

Name Field # of Occurrence
^%ZIS DEVICE+5
HOME^%ZIS PRINT+7
^%ZTLOAD DEVICE+7
^DIC FORM+13
^DIR FORM+11
FORM^IBDF2A QUEUED+1
FULL^VALM1 PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"** You must queue the form to print. **"
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,$C(7),"** This Encounter Form requires "_WD_" columns and a page length of "_HT_" lines. **",!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+7
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+7
Routine Call
  • DIC
  • Line Location:
    • FORM+13
Routine Call
  • DIR
  • Line Location:
    • FORM+11
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357 - [#357] PRINT+6, FORM+8

Label References

Name Line Occurrences
DEVICE PRINT+7
EXIT PRINT+5, PRINT+7
FORM PRINT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!
%I EXIT+1!
%IS DEVICE+5!
%ZIS DEVICE+5!*
%ZIS("A" DEVICE+5*
%ZIS("B" DEVICE+5*
%ZIS("S" DEVICE+5*
D EXIT+1!
D0 EXIT+1!
DIC EXIT+1!, FORM+12!*, FORM+13!
DIC("A" FORM+12*
DIC("S" FORM+12*
DIC(0 FORM+12*
DIR FORM+10!, FORM+11!
DIR("A" FORM+10*
DIR(0 FORM+10*
>> DIRUT FORM+11, FORM+13
DX EXIT+1!
DY EXIT+1!
HT PRINT+1~, PRINT+6*, DEVICE+2, FORM+16*
I EXIT+1!
>> IBAPI("SELECT" FORM+7
IBFORM PRINT~, PRINT+5~, PRINT+6, QUEUED+1, FORM+2*, FORM+8, FORM+14*, FORM+15
IBQUIT PRINT+1~*, PRINT+5, FORM+15*
>> IBTKBLK PRINT+5
IOP DEVICE+5!
J EXIT+1!
NODE PRINT+1~, PRINT+6*!
P4 FORM+1~, FORM+4*, FORM+5*, FORM+6
>> POP DEVICE+6
>> VALM("TITLE" FORM+6
>> VALMBCK PRINT+3*
WD PRINT+1~, PRINT+6*, DEVICE+2, FORM+16*
X EXIT+1!
>> XQORNOD(0 FORM+4, FORM+5*
Y EXIT+1!, FORM+11, FORM+12, FORM+13, FORM+14
Y(0 FORM+8*, FORM+16
>> ZTDESC DEVICE+7*
>> ZTDTH DEVICE+7*
>> ZTQUEUED QUEUED+2
>> ZTREQ QUEUED+2*
>> ZTRTN DEVICE+7*
>> ZTSAVE("IBFORM" DEVICE+7*
ZTSK EXIT+1!, DEVICE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All