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

Package: Automated Information Collection System

Routine: IBDF1A


Information

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

Source Information

Source file <IBDF1A.m>

Call Graph

Call Graph Total: 10

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 3 NOW^%DTC  ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Automated Information Collection System 3 IBDF PRINT BLNK ENCOUNTER FORM  IBDF PRNT FORM W/DATA NO APPT.  IBDFFSMP  
Integrated Billing 2 IBDF PRINT BLNK ENCOUNTER FORM  IBDF PRNT FORM W/DATA NO APPT.  

Entry Points

Name Comments DBIA/ICR reference
ERROR2 ;prints a message
PATIENT ;gets the patient to print the form for
WHCHFORM ;
FORM ;gets the type of form to print from the clinic setup - sets FORMS
ASKFORM ;asks to select single form
DEVICE ;
CLINIC ;asks the user for the clinic
EXIT ;
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+8
^%ZISC EXIT+2
^%ZTLOAD DEVICE+6
^DIC ASKFORM+2
^DIR PATIENT+1, CLINIC+1, WHCHFORM+2
$$FORMS^IBDF1B2 WHCHFORM+6
$$IFOTHR^IBDF1B5 WHCHFORM+7
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: !,$C(7),"** Encounter Forms require a page size of 80 lines and 132 columns. **"
  • Line Location: DEVICE+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+8
Routine Call
  • DIC
  • Line Location:
    • ASKFORM+2
Routine Call
  • DIR
  • Line Location:
    • PATIENT+1
    • CLINIC+1
    • WHCHFORM+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASKFORM WHCHFORM+1, WHCHFORM+5
CLINIC MAIN+17
DEVICE MAIN+23
ERROR FORM+2, FORM+3, FORM+4
ERROR2 WHCHFORM+7
EXIT MAIN+17, MAIN+18, MAIN+22, MAIN+23
FORM MAIN+22
NOW MAIN+20
PATIENT MAIN+19
WHCHFORM MAIN+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW+1~, NOW+3
%H NOW+1~
%I NOW+1~
%IS DEVICE+3!
%ZIS DEVICE+3!*
DA CLINIC+1!
DFN MAIN+16*, QUEUED+6, EXIT+4!, PATIENT+2*, WHCHFORM+6
DIC ASKFORM+1!*, ASKFORM+2!
DIC("A" ASKFORM+1*
DIC("S" ASKFORM+1*
DIC(0 ASKFORM+1*
DIR PATIENT+1!, CLINIC+1!, WHCHFORM+2!
DIR("A" PATIENT+1*, CLINIC+1*, WHCHFORM+2*
DIR(0 PATIENT+1*, CLINIC+1*, WHCHFORM+2*
>> DIRUT PATIENT+1, WHCHFORM+2
>> DTOUT CLINIC+1, ASKFORM+2
>> DUOUT CLINIC+1, ASKFORM+2
FORMS MAIN+8~, QUEUED+5, FORM+4*, WHCHFORM+3*, WHCHFORM+6*, WHCHFORM+7, ASKFORM+3*
I EXIT+4!
IBAPPT QUEUED+6, EXIT+4!, NOW+3*, WHCHFORM+6
IBCLINIC QUEUED+6, EXIT+4!, FORM+2, CLINIC+2*, WHCHFORM+1, WHCHFORM+6, WHCHFORM+7
IBDEVICE QUEUED+2~, QUEUED+4, QUEUED+5
IBF MAIN+8~, QUEUED+5*
IBFLAG MAIN+12~, MAIN+13*
IBFORM QUEUED+5*, EXIT+4!
IBPM MAIN+8~, MAIN+16*, QUEUED+6, WHCHFORM+3*, WHCHFORM+6*, WHCHFORM+7
IBQUIT MAIN+16*, MAIN+17, MAIN+18, MAIN+19, MAIN+22, MAIN+23, EXIT+4!, FORM+2*, FORM+3*, FORM+4*
, PATIENT+1*, DEVICE+3*, DEVICE+8*, CLINIC+1*, WHCHFORM+2*, WHCHFORM+4, WHCHFORM+7*, ASKFORM+2*
IBTYPE EXIT+4!
IO DEVICE+9
IO("Q" DEVICE+4
IOP DEVICE+3!
NODE MAIN+8~
>> POP DEVICE+3
SETUP FORM+1~, FORM+2*, FORM+3*, FORM+4
WITHDATA MAIN~, MAIN+14*, MAIN+18, MAIN+22, QUEUED+5, QUEUED+6
X EXIT+4!, NOW+1~
Y EXIT+4!, PATIENT+1, PATIENT+2, CLINIC+1, CLINIC+2, WHCHFORM+2, WHCHFORM+4, WHCHFORM+6, ASKFORM+2, ASKFORM+3
>> ZTDESC DEVICE+6*
>> ZTQUEUED EXIT+1, DEVICE+1
>> ZTREQ EXIT+1*
>> ZTRTN DEVICE+5*
>> ZTSAVE("DFN" DEVICE+5*
>> ZTSAVE("FORMS" DEVICE+5*
>> ZTSAVE("IB*" DEVICE+5*
>> ZTSAVE("WITHDATA" DEVICE+5*
>> ZTSK DEVICE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All