ACKQUTL2 ;AUG/JLTP BIR/PTD HCIOFO/AG -QUASAR Utility Routine ; [ 04/25/96 10:03 ]
Source file <ACKQUTL2.m>
| 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
|
| 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 |
