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

Package: Automated Information Collection System

Routine: IBDFFSMP


Information

IBDFFSMP ;ALB/MAF -- Print a sample of all encounter forms. - Dec 12 1995@800

Source Information

Source file <IBDFFSMP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Automated Information Collection System 3 NOW^IBDF1A  DRWFORM^IBDF2A  (DEVICE,KPRNTVAR)^IBDFUA  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Information Collection System 1 IBDF PRINT SAMPLE ALL CLINICS  
Integrated Billing 1 IBDF PRINT SAMPLE ALL CLINICS  

Entry Points

Name Comments DBIA/ICR reference
DEVICE ;
EXIT ;
SET ; -- Build list into array IBFORMS. Make sure EF is one that is active
; Will print form only once.
PATIENT ; -- gets the patient to print the form for
QUEUED ;

External References

Name Field # of Occurrence
^%ZIS DEVICE+3
HOME^%ZIS DEVICE+9
^%ZISC EXIT+3
^%ZTLOAD DEVICE+6
^DIR PATIENT+2
NOW^IBDF1A IBDFFSMP+17
DRWFORM^IBDF2A QUEUED+8
DEVICE^IBDFUA QUEUED+4
KPRNTVAR^IBDFUA EXIT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no forms set up for clinics...",!!
  • Line Location: IBDFFSMP+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: PATIENT+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+9
Routine Call
  • DIR
  • Line Location:
    • PATIENT+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] IBDFFSMP+14
^SD(409.95 - [#409.95] IBDFFSMP+12, IBDFFSMP+13, SET+2, SET+3
^TMP("IBFRMS" IBDFFSMP+5!, IBDFFSMP+16, SET+5*, QUEUED+6, QUEUED+7, EXIT+4!

Label References

Name Line Occurrences
DEVICE IBDFFSMP+17
EXIT IBDFFSMP+8, IBDFFSMP+16, IBDFFSMP+18, IBDFFSMP+20
PATIENT IBDFFSMP+8
QUEUED IBDFFSMP+19
SET IBDFFSMP+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%IS DEVICE+3!
%ZIS DEVICE+3!*
CLINIC EXIT+6!
DFN PATIENT+3*, EXIT+6!
DIR PATIENT+2!
DIR("A" PATIENT+2*
DIR(0 PATIENT+2*
>> DIRUT PATIENT+2
FORMS EXIT+6!
I EXIT+6!
IBAPPT EXIT+6!
IBCLINIC IBDFFSMP+12*, IBDFFSMP+13, IBDFFSMP+14, SET+2, SET+5, QUEUED+7*, EXIT+6!
IBDEVICE QUEUED+2~, QUEUED+4, QUEUED+8
IBDFFLG IBDFFSMP+3*, IBDFFSMP+19, EXIT+6!, DEVICE+8*
IBDFNODE SET+3*, SET+5, EXIT+6!
IBDSAMP QUEUED+5*, EXIT+1!
IBFORM QUEUED+6*, QUEUED+7, QUEUED+8, EXIT+6!
IBPM IBDFFSMP+4*, EXIT+6!
IBQUIT IBDFFSMP+3*, IBDFFSMP+8, IBDFFSMP+18, SET+4*, PATIENT+2*, EXIT+6!, DEVICE+3*, DEVICE+9*
IO IBDFFSMP+19
IO("Q" DEVICE+4
IOP DEVICE+3!
NAME IBDFFSMP+14*, EXIT+6!
POP EXIT+6!, DEVICE+3
SETUP IBDFFSMP+13*, SET+3, EXIT+6!
WITHDATA IBDFFSMP+4*, QUEUED+8, EXIT+6!
X SET+5*, EXIT+6!
Y PATIENT+2, PATIENT+3, EXIT+6!
>> ZTDESC DEVICE+6*
>> ZTQUEUED EXIT+2, DEVICE+1
>> ZTREQ EXIT+2*
>> ZTRTN DEVICE+5*
>> ZTSAVE("DFN" DEVICE+5*
>> ZTSAVE("FORMS" DEVICE+5*
>> ZTSAVE("IB*" DEVICE+5*
>> ZTSAVE("WITHDATA" DEVICE+5*
>> ZTSAVE("^TMP(""IBFRMS"",$J," DEVICE+5*
>> ZTSK DEVICE+7, DEVICE+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All