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

Package: Automated Information Collection System

Routine: IBDF15A


Information

IBDF15A ;ALB/CJM - AICS FORM USE BY DIVISION/CLINIC ; JUL 20,1993

Source Information

Source file <IBDF15A.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Information Collection System 2 IBDF15  IBDY336  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ; -- hold screen
ALL(FORMNAM,CL1,DV1) ;
; -- find all clinics using for irregardless of division
; stored in ^TMP($J,"IBDCS",DIVNAM,DIVIS,FORMNAM,FORM,CLNAME)
HEADER ; -- writes the report header
LIST ; -- lists the clinics using FORM
TYPE(IDX) ;
; -- type of form
; input cross reference from print Manager Clinic Setups (409.95)
; output name of type of form
; IDX="C","D","E","F","G","H","I","J"
LINEONE ; -- print on report header, lines, etc.
LINETHR ; -- print lines for clinics in other divisions
PRINT ; -- Main print driver
TYPEQ
CLINIC(FORM,FORMNAM) ;
; -- finds the list of clinics using FORM
; ^TMP($J,"IBDCS",0) is number of clinics found
; ^TMP($J,"IBDCS",divname, div pointer, form name, form pointer,
; clinic name)=clinic pointer := is list of clinics
LINETWO ; -- print lines for forms not in use

External References

Name Field # of Occurrence
^DIR PAUSE+3
$$ACLN^IBDFCNOF LINEONE+5, LINETHR+3
$$PRIM^VASITE CLINIC+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+13
Function Call: WRITE
  • Prompt: !,?10,"Division: ",DIVNAM
  • Line Location: LINEONE+2
Function Call: WRITE
  • Prompt: !,FORMNAM,?32,$E(CLNAME,1,25),?59,$E(DIVNAM,1,20),?81,$$TYPE(IDX)
  • Line Location: LINEONE+4
Function Call: WRITE
  • Prompt: ?100," (Clinic Currently Inactive)"
  • Line Location: LINEONE+5
Function Call: WRITE
  • Prompt: !,FORMNAM,?32,"** NOT IN USE **"
  • Line Location: LINETWO+3
Function Call: WRITE
  • Prompt: !,?32,CLNAME,?59,$E(DIVNAM,1,20),?81,$$TYPE(IDX)
  • Line Location: LINETHR+2
Function Call: WRITE
  • Prompt: ?100," (Clinic Currently Inactive)"
  • Line Location: LINETHR+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"List of Encounter Forms and their Use by Clinics",?IOM-30,IBHDT," PAGE ",PAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"For Division: ",$G(DIVNAM)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"FORM NAME",?32,"CLINIC",?59,"DIVISION",?81,"FORM USAGE"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HEADER+6
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] CLINIC+15
^IBE(357 - [#357] PRINT+2, PRINT+3
^SC - [#44] CLINIC+11, CLINIC+13
^SD(409.95 - [#409.95] CLINIC+8, CLINIC+9
^TMP($J CLINIC+18*, CLINIC+19*, CLINIC+20*, LIST+5, LIST+10, LIST+13, LIST+17, ALL+6, ALL+7, ALL+8

Label References

Name Line Occurrences
$$TYPE LINEONE+4, LINETHR+2
ALL LIST+13
CLINIC PRINT+4
HEADER LINEONE+2, LINEONE+3, LINETWO+1, LINETWO+2, LINETHR+1
LINEONE LIST+13
LINETHR ALL+10
LINETWO LIST+17
LIST PRINT+5
PAUSE PRINT+6, HEADER+1
TYPEQ TYPE+8

Naked Globals

Name Field # of Occurrence
^( LIST+13, ALL+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CL1 ALL~, ALL+9
CLINIC CLINIC+6~, CLINIC+9*, CLINIC+10, CLINIC+11, CLINIC+13, CLINIC+18, LIST+1~, LIST+13*, LINEONE+5, LINETHR+3
, ALL+8*
CLNAME CLINIC+6~, CLINIC+11*, CLINIC+12, CLINIC+18, LIST+1~, LIST+12*, LIST+13*, LINEONE+4, LINETHR+2, ALL+4~
, ALL+8*, ALL+9
CNT CLINIC+6~, CLINIC+17*, CLINIC+20
DIR PAUSE+1~
DIR(0 PAUSE+3*
DIVIS CLINIC+6~, CLINIC+13*, CLINIC+14*, CLINIC+15, CLINIC+18, CLINIC+19, LIST+1~, LIST+5*, LIST+10, LIST+13
, ALL+4~, ALL+6*, ALL+7, ALL+8
DIVNAM CLINIC+6~, CLINIC+15*, CLINIC+16*, CLINIC+18, CLINIC+19, LIST+1~, LIST+4*, LIST+5*, LIST+10, LIST+13
, LIST+16*, LINEONE+2, LINEONE+4, LINETHR+2, ALL+4~, ALL+5*, ALL+6*, ALL+7, ALL+8, ALL+9
, HEADER+4
DV1 ALL~, ALL+9
FORM PRINT+2*, PRINT+3, PRINT+4, CLINIC~, CLINIC+8, CLINIC+18, CLINIC+20, LIST+1~, LIST+10*, LIST+13
, LIST+17*, LINEONE+6, ALL+4~, ALL+7*, ALL+8
FORMNAM PRINT+2*, PRINT+4, CLINIC~, CLINIC+18, CLINIC+20, LIST+1~, LIST+9*, LIST+10*, LIST+13, LIST+16*
, LIST+17*, LINEONE+4, LINETWO+3, ALL~, ALL+7, ALL+8
IBDONE LIST+1~, LIST+8!
IBDONE( LIST+13, LINEONE+6*
>> IBHDT HEADER+3
>> IBQUIT PRINT+2, PRINT+6, LIST+5, LIST+10, LIST+13, LIST+17, LINEONE+2, LINEONE+3, LINETWO+1, LINETWO+2
, LINETHR+1, ALL+6, ALL+8, HEADER+1, PAUSE+3*
IDX CLINIC+6~, CLINIC+7*, CLINIC+8, CLINIC+18, LIST+1~, LIST+13*, LINEONE+4, LINETHR+2, TYPE~, TYPE+7*
, TYPE+8, TYPE+9, TYPE+10
IOF PRINT+1, HEADER+2
IOM HEADER+3, HEADER+6
IOSL LINEONE+3, LINETWO+2, LINETHR+1, PAUSE+2
IOST PRINT+1, PRINT+6, HEADER+1
>> MULTI CLINIC+14
NEWDIV LIST+1~, LIST+4*, LIST+7*, LIST+16*, LINEONE+2*, LINETWO+1*
>> PAGE HEADER+1, HEADER+2, HEADER+3, HEADER+7*
SETUP CLINIC+6~, CLINIC+8*, CLINIC+9
>> VAUTD LIST+5, ALL+6
>> VAUTD( LIST+5, ALL+6
X PAUSE+1~, TYPE+6~, TYPE+8*, TYPE+9*, TYPE+10*, TYPEQ
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