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

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- Main print driver
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
LIST ; -- lists the clinics using FORM
LINEONE ; -- print on report header, lines, etc.
LINETWO ; -- print lines for forms not in use
LINETHR ; -- print lines for clinics in other divisions
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
PAUSE ; -- hold screen
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"
TYPEQ

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