IBDF15A ;ALB/CJM - AICS FORM USE BY DIVISION/CLINIC ; JUL 20,1993
Source file <IBDF15A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
; -- 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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|