Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls