ACKQUTL2 ;AUG/JLTP BIR/PTD HCIOFO/AG -QUASAR Utility Routine ; [ 04/25/96 10:03 ]
Source file <ACKQUTL2.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 |
|---|---|---|
| DIVLIST(ACKTYP,ACKTXT) | ; list on screen all the Divisions on the Site Parameter File
; optional ACKTYP = type of list 1=Active only, 0 (default) = all ; optional ACKTXT = preceding message |
|
| MC(X) | ; convert X to mixed case (1st upper, remainder lower)
|
|
| DIV(ACKTYP,ACKDIV,ACKSTA) | ; prompt user for an A&SP Division
; where ACKTYP can be 1=one div, 2=many, 3=many/all ; if ACTYPE>1 then ACKDIV must be passed in by reference ; and ACKSTA contains the required status of the Division ; so if ACKSTA="A" then only active divisions may be chosen ; if ACKSTA="I" then only inactive divisions may be chosen ; if ACKSTA="AI" or "IA" then either active or inactive may be ; chosen. If not passed then "A" is used as the default. ; ------------------------------------------------------------ ; function returns:- ; ACKDIV=a^b where a=no. divisions selected, and b=total ; available divisions. ; (if the user quits or times out then a=0) ; ACKDIV(x)=x^y^z where ; x=div ien on Med Cen Div file #40.8, ; y=div ien on Site Parameters #509850.83 ; and z=division name ; ------------------------------------------------------------ |
|
| DIVX | ; end
|
|
| DIVHLP | ; displays help text for the Division prompt
|
|
| LEADROLE(ACKVIEN) | ; determine lead role for a visit
; prior to version 3.0 all visits would be filed with a Lead Role ; entered by the user (either the primary clinician, secondary ; clinician or other prov). With ver 3.0 this field is no longer ; populated and the lead role is the primary provider, or if absent ; the secondary provider. In order to be backward compatible this ; function will check the lead role field first. If it contains a ; value then the visit must be pre-ver 3.0 and this code must be ; the lead role selected by the user. If the lead role field is ; empty then the visit must be post-ver 3.0 and so this function ; will return either the primary or secondary provider. |
|
| ASPDIV(ACKDIV) | ; returns true if ACKDIV is a valid ASP division
|
|
| CLNDIV(ACKCLN) | ; returns the ien of the division that the clinic is in.
|
|
| ASPCLN(ACKCLN) | ; returns true if ACKCLN is a valid clinic for ASP
; ACKCLN is the internal entry number from the hospital locations file ; true returned if stop code is 203-Audiology, 204-Speech ; if stop code is invalid then the credit stop code field must be either 203 or 204. |
|
| UC(X) | ; convert X to uppercase
|
| Name | Field # of Occurrence |
|---|---|
| GETDIV^ACKQRU | DIV+27 |
| SELECT^ACKQSEL | DIV+45, DIV+56 |
| $$FIND1^DIC | DIV+37 |
| FIND^DIC | ASPDIV+3 |
| LIST^DIC | DIVLIST+8, LEADROLE+22 |
| $$EXTERNAL^DILFD | DIV+38 |
| RECALL^DILFD | DIV+50, DIV+66 |
| $$GET1^DIQ | CLNDIV+1, ASPCLN+6, ASPCLN+9, ASPCLN+14, ASPCLN+17 |
| GETS^DIQ | LEADROLE+14 |
| ^DIWP | DIVLIST+19, DIVLIST+20, DIVLIST+21, DIVLIST+28, DIVHLP+3, DIVHLP+4, DIVHLP+5 |
| ^DIWW | DIVLIST+30, DIVHLP+6 |
| FileNo | Call Tags |
|---|---|
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^ACK(509850.6 - [#509850.6] | GETS^DIQ |
| 509850.66 | LIST^DIC |
| 509850.83 | EXTERNAL^DILFD, FIND1^DIC, FIND^DIC, LIST^DIC, RECALL^DILFD |
| Name | Line Occurrences |
|---|---|
| $$MC | DIVLIST+27 |
| $$UC | DIV+39 |
| DIVX | DIV+24, DIV+30, DIV+33, DIV+44, DIV+55 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACK | DIVLIST+23*, DIVLIST+25, DIVLIST+27 |
| ACK2 | LEADROLE+12~ |
| ACKCLN | CLNDIV~, CLNDIV+1, ASPCLN~, ASPCLN+6, ASPCLN+14 |
| ACKCRDT | ASPCLN+4~, ASPCLN+14*, ASPCLN+15, ASPCLN+17 |
| ACKCT | DIVLIST+3~, DIVLIST+10*, DIVLIST+12, DIVLIST+13, DIVLIST+15, DIVLIST+23 |
| ACKDEF | DIV+18~, DIV+37*, DIV+38*, DIV+39*, DIV+40*, DIV+41 |
| ACKDFLT | DIV+18~, DIV+41*, DIV+45, DIV+56 |
| ACKDIV | DIV~, DIV+19!, DIV+21*, DIV+30*, DIV+34*, DIV+47*, DIV+51*, DIV+58*, DIV+59*, DIV+61* , DIV+64, DIVX+1, ASPDIV~, ASPDIV+3 |
| ACKDIV( | DIV+34*, DIV+52*, DIV+62* |
| ACKDIV("" | DIV+65 |
| ACKDIVN | DIV+18~, DIV+48* |
| ACKFDA | DIVLIST+3~ |
| ACKFDA("DILIST" | DIVLIST+10, DIVLIST+25, DIVLIST+27 |
| ACKFND | ASPDIV+1~, ASPDIV+5*, ASPDIV+6 |
| ACKFROM | DIVLIST+3~, DIVLIST+4*, DIVLIST+8 |
| ACKIEN | DIV+18~, DIV+49*, DIV+50, DIV+52, DIV+65*, DIV+66 |
| ACKIENS | LEADROLE+11~, LEADROLE+13*, LEADROLE+14, LEADROLE+15, LEADROLE+17, LEADROLE+19 |
| ACKLEAD | LEADROLE+11~, LEADROLE+15*, LEADROLE+16 |
| ACKMSG | DIVLIST+3~, LEADROLE+11~, ASPDIV+1~ |
| ACKMSG1 | LEADROLE+11~ |
| ACKN | DIV+18~, DIV+48*, DIV+49, DIV+52, DIV+61*, DIV+62 |
| ACKPRIM | LEADROLE+11~, LEADROLE+17*, LEADROLE+18 |
| ACKSC | ASPCLN+4~, ASPCLN+9*, ASPCLN+11, ASPCLN+12, ASPCLN+17*, ASPCLN+19, ASPCLN+20 |
| ACKSCND | LEADROLE+11~, LEADROLE+23*, LEADROLE+24*, LEADROLE+25 |
| ACKSCRN | DIVLIST+3~, DIVLIST+6*, DIVLIST+8 |
| ACKSECV2 | LEADROLE+11~, LEADROLE+19*, LEADROLE+20 |
| ACKSTA | DIV~, DIV+27 |
| ACKSTOP | ASPCLN+4~, ASPCLN+6*, ASPCLN+7, ASPCLN+9 |
| ACKSTUD | LEADROLE+11~ |
| ACKTGT | LEADROLE+11~, ASPDIV+1~ |
| ACKTGT( | LEADROLE+15, LEADROLE+17, LEADROLE+19 |
| ACKTGT("DILIST" | ASPDIV+5 |
| ACKTGT1 | LEADROLE+11~ |
| ACKTGT1("DILIST" | LEADROLE+23, LEADROLE+24 |
| ACKTXT | DIVLIST~, DIVLIST+12*, DIVLIST+13*, DIVLIST+14, DIVLIST+15*, DIVLIST+21 |
| ACKTYP | DIVLIST~, DIVLIST+4*, DIVLIST+6, DIVLIST+12, DIVLIST+13, DIVLIST+27, DIV~, DIV+24, DIV+44, DIV+55 , DIV+56 |
| ACKVIEN | LEADROLE~, LEADROLE+13, LEADROLE+22 |
| ACKX | DIV+18~, DIV+60*, DIV+61 |
| DA | DIVLIST+3~ |
| DIVARR | DIV+18~, DIV+27, DIV+30, DIV+33, DIV+44, DIV+47, DIV+51, DIV+55, DIV+58, DIV+59 |
| DIVARR(1 | DIV+34, DIV+49, DIV+52, DIV+62 |
| DIVARR(2 | DIV+40, DIV+48, DIV+61 |
| DIVARR(4 | DIV+47, DIV+48, DIV+58, DIV+60 |
| DIWF | DIVLIST+3~, DIVLIST+18*, DIVHLP+1~, DIVHLP+2* |
| DIWL | DIVLIST+3~, DIVLIST+18*, DIVHLP+1~, DIVHLP+2* |
| DIWR | DIVLIST+3~, DIVLIST+18*, DIVHLP+1~, DIVHLP+2* |
| DUZ | DIV+50, DIV+66 |
| I | DIVLIST+3~ |
| LW | MC+1~*, MC+2 |
| U | DIVLIST+10, DIV+34, DIV+49, DIV+52, DIV+59, DIV+61, DIV+62, DIV+64, ASPDIV+5 |
| UP | MC+1~*, MC+2 |
| X | DIVLIST+3~, DIVLIST+19*, DIVLIST+20*, DIVLIST+21*, DIVLIST+25*, DIVLIST+27*, MC~, MC+2, DIVHLP+1~, DIVHLP+3* , DIVHLP+4*, DIVHLP+5*, UC~, UC+1 |
| Y | DIVLIST+3~ |
