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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBDFREG

Package: Automated Information Collection System

Routine: IBDFREG


Information

IBDFREG ;ALB/CJM - ENCOUNTER FORM (prints for a single patient);NOV 16,1992

Source Information

Source file <IBDFREG.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Automated Information Collection System 4 $$FORMS^IBDF1B2  ($$IFOTHR,PRNTOTHR)^IBDF1B5  DRWFORM^IBDF2A  (DEVICE,KPRNTVAR)^IBDFUA  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ERROR2 ;prints a message
WHCHFORM ;
FORM ;gets the type of form to print from the clinic setup - sets FORMS
DEVICE ;
; -- always ask with param as default
CLINIC ;asks the user for the clinic
EXIT ;
WI(DFN,IBCLINIC,IBAPPT) ; -- procedure
; -- print encounter form for walk-ins (not tested)
WIQ
ERROR ;prints a message
MAIN(WITHDATA) ;
; -- prints encounter forms, either with patient data for a patient
; with no appointment (in which case it uses time of printing as
; the appointment time) or without patient data (only if a form
; is defined for the clinic for such use)
; $G(WITDATA) if the form should be printed with data
; 0 if a blank form for use without patient data should be printed
NOW ;sets IBAPPT to NOW
QUEUED ;

External References

Name Field # of Occurrence
NOW^%DTC NOW+2
^%ZIS DEVICE+3
HOME^%ZIS DEVICE+14
^%ZISC EXIT+2
^%ZTLOAD DEVICE+12
^DIR CLINIC+1, WI+8
$$FORMS^IBDF1B2 WHCHFORM+2
$$IFOTHR^IBDF1B5 WHCHFORM+3
PRNTOTHR^IBDF1B5 QUEUED+6
DRWFORM^IBDF2A QUEUED+5
DEVICE^IBDFUA QUEUED+4
KPRNTVAR^IBDFUA EXIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no encounter form defined for this clinic that should print",!,"without patient data!",!
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !!,"There are no forms defined to print for this clinic!",!
  • Line Location: ERROR2+1
Function Call: WRITE
  • Prompt: !,"Queuing to a CRT not allowed!"
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WI+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+14
Routine Call
  • DIR
  • Line Location:
    • CLINIC+1
    • WI+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] DEVICE+3
^SD(409.95 - [#409.95] FORM+2, FORM+3
^TMP("DFN" EXIT+4!
^TMP("IB" MAIN+15!, EXIT+4!, WI+13!
^TMP("IBDF" MAIN+15!, EXIT+4!, WI+13!
^TMP("RPT" EXIT+4!

Label References

Name Line Occurrences
CLINIC MAIN+17, WI+10
DEVICE MAIN+21, WI+16
ERROR FORM+2, FORM+3, FORM+4
ERROR2 WHCHFORM+3
EXIT MAIN+17, MAIN+18, MAIN+21
NOW MAIN+19
QUEUED WI+17
WHCHFORM MAIN+20, WI+15
WIQ WI+4, WI+5, WI+8, WI+10, WI+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW+1~, NOW+3
%H NOW+1~
%I NOW+1~
>> %ZIS DEVICE+3*
>> %ZIS("A" DEVICE+2*
>> %ZIS("B" DEVICE+3*
>> %ZIS("S" DEVICE+3*
DFN QUEUED+6, WHCHFORM+2, WI~, WI+4
DIR CLINIC+1!, WI+2~, WI+8!
DIR("A" CLINIC+1*, WI+7*
DIR(0 CLINIC+1*, WI+7*
>> DIRUT WI+8
>> DTOUT CLINIC+1
>> DUOUT CLINIC+1
FORMS MAIN+8~, QUEUED+5, FORM+4*, WHCHFORM+1*, WHCHFORM+2*, WHCHFORM+3, WI+2~
I EXIT+4!
IBAPPT QUEUED+6, EXIT+4!, NOW+3*, WHCHFORM+2, WI~, WI+5
IBCLINIC QUEUED+6, EXIT+4!, FORM+2, CLINIC+2*, WHCHFORM+2, WHCHFORM+3, WI~, WI+10
IBDEVICE QUEUED+2~, QUEUED+4, QUEUED+5
>> IBDFRION DEVICE+5*
IBDFWI WI+2~, WI+12*
IBF MAIN+8~, QUEUED+5*, WI+2~
IBFLAG MAIN+12~, MAIN+13*
IBFORM QUEUED+5*, EXIT+4!
IBPM MAIN+8~, MAIN+16*, QUEUED+6, WHCHFORM+1*, WHCHFORM+2*, WHCHFORM+3, WI+2~, WI+14*
IBQUIT MAIN+16*, MAIN+17, MAIN+18, MAIN+21, EXIT+4!, FORM+2*, FORM+3*, FORM+4*, DEVICE+4*, DEVICE+10*
, DEVICE+14*, CLINIC+1*, WHCHFORM+3*, WI+2~, WI+3*, WI+10, WI+14*, WI+16
IBTYPE EXIT+4!
IO DEVICE+10
IO(0 DEVICE+10
ION DEVICE+5
IOST DEVICE+10
NODE MAIN+8~, WI+2~
>> POP DEVICE+4
SETUP FORM+1~, FORM+2*, FORM+3*, FORM+4
WITHDATA MAIN~, MAIN+14*, MAIN+18, QUEUED+5, QUEUED+6, WI+2~, WI+12*
X EXIT+4!, NOW+1~
Y EXIT+4!, CLINIC+1, CLINIC+2, WHCHFORM+2*, WI+8
>> ZTDESC DEVICE+12*
>> ZTDTH DEVICE+11*
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN DEVICE+11*
>> ZTSAVE("DFN" DEVICE+11*
>> ZTSAVE("FORMS" DEVICE+11*
>> ZTSAVE("IB*" DEVICE+11*
>> ZTSAVE("WITHDATA" DEVICE+11*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All