ACKQRU ;AUG/JLTP BIR/PTD HCIOFO/AG-Support Routine for Reports ; 9/2/09 11:56am
Source file <ACKQRU.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| 509850.83 | LIST^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACK(509850.3 - [#509850.3] | PARAMS+45, PARAMS+46 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACK | GETDIV+17~, GETDIV+26*, GETDIV+27, GETDIV+29, GETDIV+30, GETDIV+31 |
| ACKASB | PARAMS+26*, STOPSORT~, STOPSORT+9, STOPSORT+10, STOPSORT+11, STOPSORT+12 |
| >> ACKBD | BEGDT+6* |
| >> ACKED | ENDDT+7* |
| ACKMSG | GETDIV+17~ |
| ACKOPT | GETDIV~, GETDIV+30, UP~, UP+1 |
| ACKQHLP | PARAMS+19~ |
| ACKSCRN | GETDIV+17~, GETDIV+21*, GETDIV+23 |
| ACKSORT | STOPNM~, STOPNM+1, STOPNM+2, STOPNM+3, STOPNM+4 |
| >> ACKSS | PARAMS+32*, PARAMS+35, PARAMS+36, PARAMS+44, PARAMS+48, PARAMS+49, PARAMS+50 |
| ACKSTA | GETDIV~, GETDIV+20*, GETDIV+21 |
| ACKSTF | PARAMS+33! |
| ACKSTF( | PARAMS+42*, PARAMS+53* |
| ACKTGT | GETDIV+17~ |
| ACKTGT("DILIST" | GETDIV+25, GETDIV+27 |
| ACKTMPB | BEGDT~, BEGDT+6*, ENDDT+8 |
| ACKVSC | STOPSORT~, STOPSORT+9, STOPSORT+10, STOPSORT+11, STOPSORT+12 |
| >> ACKXBD | BEGDT+6* |
| >> ACKXED | ENDDT+7* |
| DIC | PARAMS+19~, PARAMS+37*, PARAMS+39! |
| DIC("A" | PARAMS+36* |
| DIC("S" | PARAMS+38* |
| DIC(0 | PARAMS+37* |
| DIR | BEGDT+4!, ENDDT+5!, PARAMS+19~, PARAMS+25!, PARAMS+31! |
| DIR("?" | BEGDT+2*, ENDDT+3* |
| DIR("??" | BEGDT+3*, ENDDT+4*, PARAMS+24*, PARAMS+30* |
| DIR("A" | BEGDT+1*, ENDDT+2*, PARAMS+23*, PARAMS+30* |
| DIR("B" | PARAMS+23* |
| DIR(0 | BEGDT+1*, ENDDT+1*, PARAMS+22*, PARAMS+29* |
| >> DIRUT | BEGDT+6, ENDDT+7, PARAMS+25, PARAMS+31, PARAMS+35, PARAMS+39* |
| DIV | GETDIV+17~, GETDIV+27*, GETDIV+28, GETDIV+29, GETDIV+31 |
| DIVARR | GETDIV~, GETDIV+18!, GETDIV+25*, GETDIV+26 |
| DIVARR(1 | GETDIV+29* |
| DIVARR(2 | GETDIV+30* |
| DIVARR(3 | GETDIV+31* |
| DIVNAME | GETDIV+17~, GETDIV+28*, GETDIV+29, GETDIV+30 |
| DT | BEGDT+1 |
| I | PARAMS+19~, PARAMS+45*, PARAMS+46, PARAMS+53 |
| SEQ | GETDIV+17~, GETDIV+27*, GETDIV+29 |
| U | PARAMS+46, GETDIV+25, GETDIV+29 |
| X | PARAMS+19~, PARAMS+46*, PARAMS+47, PARAMS+48, PARAMS+49, PARAMS+50, UP~, UP+1, UP+2 |
| Y | BEGDT+5, BEGDT+6, ENDDT+6, ENDDT+7, ENDDT+8, PARAMS+19~, PARAMS+26, PARAMS+32, PARAMS+39, PARAMS+42 |
