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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBDF1B

Package: Automated Information Collection System

Routine: IBDF1B


Information

IBDF1B ;ALB/CJM - ENCOUNTER FORM (printing forms for appointments); 3/1/93

Source Information

Source file <IBDF1B.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Automated Information Collection System 2 ^IBDF1B1  ($$STARTDIV,CLNCSTRT,DISP,SEARCH,SORTBY,TERMSTRT)^IBDF1BA  
VA Fileman 2 ^DIC  ^DIR  
Registration 1 (DIVISION,FIRST)^VAUTOMA  

Caller Graph

Caller Graph Total: 2

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

Entry Points

Name Comments DBIA/ICR reference
C ;print all appointments for a clinic - find division then clinic, print all/some clinics for all/some divisions
EN ;
END
ADDONS ;add-ons only?
SELECTBY ;select by patient or clinic?
P ;print by patient - get patient then appointment(s) for date
ENDC
APPTDATE ;print forms for appointments on what date?
EXIT ;
ERRORTRP ;the error trap
REPRINT ;for prior job that partially completed?

External References

Name Field # of Occurrence
^%ZIS END+2
HOME^%ZIS EN+8, END+3
^%ZISC EXIT+4
^%ZTLOAD END+3
^DIC P+3
^DIR REPRINT+5, ADDONS+3, SELECTBY+3, C+8, APPTDATE+4
^IBDF1B1 END+5
$$STARTDIV^IBDF1BA REPRINT+9
CLNCSTRT^IBDF1BA REPRINT+12
DISP^IBDF1BA P+3
SEARCH^IBDF1BA P+3
SORTBY^IBDF1BA EN+11
TERMSTRT^IBDF1BA REPRINT+11
DIVISION^VAUTOMA C+18
FIRST^VAUTOMA C+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"** Encounter Forms require a page size of 80 lines and 132 columns. **"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"Do you want to print forms for a particular patient or for entire clinics?",!
  • Line Location: SELECTBY+1
Function Call: WRITE
  • Prompt: !!,"Now you can select individual divisions and clinics."
  • Line Location: C+16
Function Call: WRITE
  • Prompt: !!,"If you want to print forms for all clinics in the divisions you have",!,"chosen (for those clinics with forms defined) then select ALL."
  • Line Location: C+20
Function Call: WRITE
  • Prompt: !!,"Otherwise, select the particular clinics you want.",!
  • Line Location: C+21
Routine Call
  • %ZIS
  • Line Location:
    • EN+8
    • END+3
Routine Call
  • DIC
  • Line Location:
    • P+3
Routine Call
  • DIR
  • Line Location:
    • REPRINT+5
    • ADDONS+3
    • SELECTBY+3
    • C+8
    • APPTDATE+4
Routine Call
  • %ZIS
  • Line Location:
    • END+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("ERRTN" ERRORTRP+2
^%ZOSF("TRAP" EN+5
^DG(43 - [#43] C+18
^IBD(357.99 - [#357.99] C+10, C+11
^TMP("DFN" EXIT+1!
^TMP("IB" EN+7!, EXIT+1!, ERRORTRP+1!
^TMP("IBDF" EN+7!, EN+17, END, EXIT+1!, C+10*, C+11*, C+23*, C+24*, C+25*, ERRORTRP+1!
^TMP("RPT" EXIT+1!

Label References

Name Line Occurrences
@( EN+14, ERRORTRP+2
ADDONS EN+21
APPTDATE EN+12
ENDC C+13, C+18, C+22
EXIT END, END+2, END+3
REPRINT EN+22
SELECTBY EN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%IS END+2!
%ZIS END+2!*
%ZIS("A" END+2*
D0 EXIT+3!
DA EXIT+3!
DFN P+1~, P+3*
DIC P+3!*, C+22*!, ENDC!
DIC("S" C+19*
DIC(0 P+3*
DIR REPRINT+5!, ADDONS+3!, SELECTBY+2!, SELECTBY+3!, C+6!, C+12!, APPTDATE+1!, APPTDATE+4!
DIR("?" REPRINT+4*, ADDONS+2*, C+7*, APPTDATE+2*, APPTDATE+3*
DIR("A" REPRINT+3*, ADDONS+1*, SELECTBY+2*, C+7*, C+8*, APPTDATE+1*
DIR("B" REPRINT+4*, ADDONS+2*, SELECTBY+2*, APPTDATE+1*
DIR(0 REPRINT+3*, ADDONS+1*, SELECTBY+2*, C+7*, APPTDATE+1*
DIROUT EXIT+3!
DIRUT EXIT+3!, REPRINT+5, ADDONS+3, SELECTBY+3, C+8, APPTDATE+4
DTOUT EXIT+3!
DUOUT EXIT+3!
GROUPS C+2~, C+5*, C+9*, C+10, C+11
GROUPS( C+8*, C+9
GROUPS(0 C+13
IBADDONS EN+1~, EN+2*, ADDONS+4*
IBCLN C+10*, C+25*, ENDC!
IBDIV C+11*, C+24*, ENDC!
IBDT EN+1~, APPTDATE+5*
IBNM P+1~, P+3*
IBREPRNT EN+1~, EN+2*, REPRINT+6, REPRINT+9*, REPRINT+11
IBSRT EN+1~, EN+10*, REPRINT+7, REPRINT+12
IBSTRTDV EN+1~, EN+2*, REPRINT+9*
IBTMP P+1~
IBTYPE EXIT+3!
IEN C+2~, C+10*, C+11*
IO END+4
IO("Q" END+3!
IOP END+2!
>> POP END+2
QUIT EN+1~, EN+2*, EN+10, EN+11, EN+12, EN+20, EN+21, EN+22, END, REPRINT+5*
, REPRINT+6*, ADDONS+3*, SELECTBY+3*, APPTDATE+4*
SELECTBY EN+1~, EN+10, EN+11, EN+14, EN+20, SELECTBY+4*
VAUTC C+22, C+23, C+24, C+25, ENDC!
VAUTC( C+25
VAUTD C+18*, C+23, C+24, ENDC!
VAUTD( C+24
VAUTNI C+22*, ENDC!
VAUTSTR C+22*, ENDC!
VAUTVB C+22*, ENDC!
X EN+1~, EN+5*, EXIT+3!
Y EXIT+3!, REPRINT+5, REPRINT+6, ADDONS+3, ADDONS+4, SELECTBY+4, P+3, C+8, C+18, APPTDATE+5
>> ZTDESC END+3*
>> ZTQUEUED EXIT+2
>> ZTREQ EXIT+2*
>> ZTRTN END+3*
>> ZTSAVE("IB*" END+3*
>> ZTSAVE("^TMP(""IBDF"",$J," END+3*
>> ZTSK END+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All