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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBDF14A

Package: Automated Information Collection System

Routine: IBDF14A


Information

IBDF14A ;ALB/CJM - AICS LIST CLINIC SETUP ; JUL 20,1993

Source Information

Source file <IBDF14A.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Automated Information Collection System 2 ^IBDF14  $$ACLN^IBDFCNOF  
Registration 1 $$PRIM^VASITE  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDF14  

Entry Points

Name Comments DBIA/ICR reference
CLINICS ; -- get a list of clinics with setups defined
PRINT ; -- Main print driver for output
FORMS ; -- prints the clinic's encounter forms to the report
REPORTS ; -- prints the clinic's reports
EXCLUDE ; -- prints the division reports excluded from clinic
HEADER ; -- writes the report header
PAUSE ; -- hold screen

External References

Name Field # of Occurrence
^DIR PAUSE+3
^IBDF14 %+1
$$ACLN^IBDFCNOF PRINT+8
$$PRIM^VASITE CLINICS+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?9,"Division: ",DIVIS,!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: " (Clinic Currently Inactive)"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"No clinics found for division '",DIVIS,"'",!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?5,"BASIC DEFAULT FORM: ..........................",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+3
Function Call: WRITE
  • Prompt: !,?5,"FORM WITH NO PRE-PRINTED PATIENT DATA: .......",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+4
Function Call: WRITE
  • Prompt: !,?5,"SUPPLEMENTAL FORM - PATIENT WITH PRIOR VISITS: ",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+6
Function Call: WRITE
  • Prompt: !,?5,"SUPPLEMENTAL FORM - FIRST TIME PATIENT: ......",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+8
Function Call: WRITE
  • Prompt: !,?5,"SUPPLEMENTAL FORM - ALL PATIENTS: ............",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+10
Function Call: WRITE
  • Prompt: !,?5,"SUPPLEMENTAL FORM - ALL PATIENTS: ............",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+12
Function Call: WRITE
  • Prompt: !,?5,"SUPPLEMENTAL FORM - ALL PATIENTS: ............",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+14
Function Call: WRITE
  • Prompt: !,?5,"RESERVED FOR FUTURE USE: .....................",$P($G(^IBE(357,FORM,0)),"^")
  • Line Location: FORMS+16
Function Call: WRITE
  • Prompt: !!,?5,"REPORTS",?50,"PRINT CONDITION",!,?5,"=======",?50,"==============="
  • Line Location: REPORTS+3
Function Call: WRITE
  • Prompt: !!,?5,"EXCLUDED REPORTS",!,?5,"================"
  • Line Location: EXCLUDE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"AICS Print Manager Clinic Setup Report",?IOM-32,IBHDT," PAGE ",PAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"For Division: ",DIVIS
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] CLINICS+8
^IBE(357 - [#357] FORMS+3, FORMS+4, FORMS+6, FORMS+8, FORMS+10, FORMS+12, FORMS+14, FORMS+16
^IBE(357.6 - [#357.6] REPORTS+8, EXCLUDE+8
^IBE(357.92 - [#357.92] REPORTS+8
^SC - [#44] CLINICS+4, CLINICS+5
^SD(409.95 - [#409.95] CLINICS+2, CLINICS+3, FORMS+1, REPORTS+1, REPORTS+4, REPORTS+6, EXCLUDE+1, EXCLUDE+4, EXCLUDE+6
^TMP($J CLINICS+10*, PRINT+3, PRINT+4

Label References

Name Line Occurrences
CLINICS %+2
EXCLUDE PRINT+11
FORMS PRINT+9
HEADER PRINT+6, PRINT+7, PRINT+13, FORMS+2, FORMS+5, FORMS+7, FORMS+9, FORMS+11, FORMS+13, FORMS+15
, REPORTS+2, REPORTS+5, EXCLUDE+2, EXCLUDE+5
PAUSE PRINT+14, HEADER+1
PRINT %+2
REPORTS PRINT+10

Naked Globals

Name Field # of Occurrence
^( PRINT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CLINIC CLINICS+2*, CLINICS+3, CLINICS+4, CLINICS+5, CLINICS+10, PRINT+4*, PRINT+8
>> CNT CLINICS+1*
>> CNT( CLINICS+10*, PRINT+13
>> COND REPORTS+7*, REPORTS+8*
DIR PAUSE+1~
DIR(0 PAUSE+3*
>> DIVIS CLINICS+5*, CLINICS+6*, CLINICS+7, CLINICS+8*, CLINICS+9*, CLINICS+10, PRINT+3*, PRINT+4, PRINT+6, PRINT+13
, HEADER+4
>> FORM FORMS+3*, FORMS+4*, FORMS+6*, FORMS+8*, FORMS+10*, FORMS+12*, FORMS+14*, FORMS+16*
>> IBHDT HEADER+3
>> IBQUIT PRINT+3, PRINT+4, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+14, FORMS+2, FORMS+5
, FORMS+7, FORMS+9, FORMS+11, FORMS+13, FORMS+15, REPORTS+2, REPORTS+4, REPORTS+5, EXCLUDE+2, EXCLUDE+4
, EXCLUDE+5, HEADER+1, PAUSE+3*
>> INTRFACE REPORTS+7*, REPORTS+8*, EXCLUDE+7*, EXCLUDE+8*
IOF PRINT+1, HEADER+2
IOM HEADER+3, HEADER+5
IOSL PRINT+7, FORMS+2, FORMS+5, FORMS+7, FORMS+9, FORMS+11, FORMS+13, FORMS+15, REPORTS+2, REPORTS+5
, EXCLUDE+2, EXCLUDE+5, PAUSE+2
IOST PRINT+1, PRINT+14, HEADER+1
>> MULTI CLINICS+6
>> NAME CLINICS+4*, CLINICS+10, PRINT+4*, PRINT+8
>> NEWDIV PRINT+2*, PRINT+3*, PRINT+6*
>> NODE FORMS+1*, FORMS+3, FORMS+4, FORMS+6, FORMS+8, FORMS+10, FORMS+12, FORMS+14, FORMS+16, REPORTS+6*
, REPORTS+7, EXCLUDE+6*, EXCLUDE+7
>> PAGE HEADER+1, HEADER+2, HEADER+3, HEADER+6*
>> REPORT REPORTS+4*, REPORTS+6, EXCLUDE+4*, EXCLUDE+6
>> SETUP CLINICS+3*, CLINICS+10, PRINT+4*, PRINT+5, FORMS+1, REPORTS+1, REPORTS+4, REPORTS+6, EXCLUDE+1, EXCLUDE+4
, EXCLUDE+6
>> VAUTD %+1, CLINICS+7, PRINT+13
>> VAUTD( CLINICS+7
X PAUSE+1~
Y PAUSE+1~, PAUSE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All