ACKQR2 ;AUG/JLTP BIR/PTD HCIOFO/AG -Statistics by Procedure ; [ 12/07/95 9:52 AM ]
Source file <ACKQR2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
OPTN | ||
DEV | ||
DQ | ; Queued entry
; Vars required :- ; ACKDIV() - selected divs, ACKBD,ACKXBD - beginning date range (int,ext) ; ACKED,ACKXED - end date range (int, ext) ; ACKASB - A=audio,S=speech,O=other,ASO=all three ; ACKSS - type of report (1=one clinician etc), ACKSTF(x) - selected prvds |
|
EXIT | ; 1 way out
|
|
STORE | ;
|
|
GETCPT(ACKCPTN) | ; Get Proc code data & put in ^TMP
|
|
CPTDESC(ACKCPT) | ; Get Proc desc
|
|
; print report 4 each div
|
||
PRINT2 | ; print for single div
|
|
SUMM | ;
|
|
TOTALS | ; Print final page of tots 4 all divs
|
|
HDR | ;
|
|
SUMHD | ;
|
|
TOTLHD | ||
DIVNAME(ACKVDIV) | ; Get div name
|
|
STAFFNM(ACKSTF) | ; Get staff name
|
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 |
|
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 |
|
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 |
|
FileNo | Call Tags |
---|---|
^DG(40.8 - [#40.8] | GET1^DIQ |
^SC - [#44] | GET1^DIQ |
509850.61 | GET1^DIQ |