ACKQRU ;AUG/JLTP BIR/PTD HCIOFO/AG-Support Routine for Reports ; 9/2/09 11:56am
Source file <ACKQRU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DTRANGE | ;
|
|
| BEGDT | ||
| ENDDT | ; S DIR(0)="D^"_(ACKBD+.1)_":"_DT_":AEXP",DIR("A")="Ending Date"
|
|
| PARAMS | ;
; this subroutine contains two standard prompts ; 1. Select a = AUDIOLOGY ; s = SPEECH PATHOLOGY ; b = BOTH ; 2. Choose 1 = ONE CLINICIAN ; 2 = ONE OTHER PROVIDER ; 3 = ONE STUDENT ; 4 = ALL CLINICIANS ; 5 = ALL OTHER PROVIDERS ; 6 = ALL STUDENTS ; it returns ; DIRUT=1 user chose to exit ; ACKASB response to prompt 1 ; (A=audio, S=speech, B=Both) ; ACKSS response to prompt 2 (1-6) ; ACKSTF() array containing all selected staff ; where ACKSTF(n)=persons IEN on NEW PERSON FILE |
|
| GETDIV(DIVARR,ACKSTA,ACKOPT) | ; get all the Divisions and put them in DIVARR
; INPUT: DIVARR must be passed by reference ; ACKSTA division status (optional) ; 'A' will get active divisions only (default) ; 'I' will get inactive divisions only ; 'AI' or 'IA' will get all divisions ; ACKOPT options. so far the only option is 'U' to output the ; names in uppercase. ; RETURNS: DIVARR= number found (n) ; DIVARR(1,n)=x^y^name ; DIVARR(2,name)=n ; and DIVARR(3,x)=n ; where x=IEN of Div from Medical Center Division file ; and y=sequence number from A&SP Site Parameter file ; (in other words ^ACK(509850.8,1,2,y)=x^...) ; and name=the division name |
|
| UP(ACKOPT,X) | ; convert X to uppercase (if requested)
|
|
| STOPSORT(ACKASB,ACKVSC) | ; determine stop code sort value
; this function determines whether the Stop Code for the Visit is ; valid for the type of report selected. ; If it is not valid the function returns 0 ; If it is valid the function returns an integer which may be used to ; sequence the visit so that Audio comes first, Audio/Tel next, ; then Speech and Speech/Tel. ; If an unknown Visit Stop Code is encountered, it is given a 9 ; which means it will appear at the end of the report as UNKNOWN. |
|
| STOPNM(ACKSORT) | ; convert stop code sort value into a stop code name
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| 509850.83 | LIST^DIC |
