SDUTL2 ;ALB/CAW - Misc. utilities ; 6/28/07 11:48am
Source file <SDUTL2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| FYNUNK(SD) | ; return YES, NO, UNKNOWN
 ; input: SD=internal piece ; output: [returned] Y=YES, N=NO, U=UNKNOWN  | 
|
| FMT(DFN) | ; return current status of means test in external form
 ; input: DFN=ifn of patient ; ouput: [returned] MT^SMT^LST ; MT=external format of current status ; SMT=shortened format of current staus ; LST=date of last test  | 
|
| FCO(DFN) | ; return current status of copay test in external form
 ; input: DFN=ifn of patient ; ouput: [returned] COT^SCOT^LST ; COT=external format of current status ; SCOT=shortened format of current staus ; LST=date of last test  | 
|
| XMY(GROUP,SDUZ,SDPOST) | ; -- set up XMY for mail group members
 ; input: GROUP := mail group efn [required] ; SDUZ := send to current user [ 0|no ; 1|yes] [optional] ; SDPOST := send to postmaster if XMY is undefined ; [ 0|no ; 1|yes] [optional] ; output: XMY := array of users ; XMDUZ := message sender set postmaster  | 
|
| SCREEN(Y,SDDT) | ; -- screen called when entering a provider in the
 ; DEFAULT PROVIDER field (#16) or PROVIDER field (#.01) of the PROVIDER ; multiple (#2600) in the HOSPITAL LOCATION file (#44).  | 
|
| HELP(SDDT) | ; -- executable help called when entering a provider in the
 ; DEFAULT PROVIDER field (#16) or PROVIDER field (#.01) of the PROVIDER ; multiple (#2600) in the HOSPITAL LOCATION file (#44), the PROVIDER ; (#.01) field of the V PROVIDER file (#9000010.06), or in the ; PROVIDER prompt of the Check-out screen. display active providers ; with an active entry in the NEW PERSON file (#200) for PERSON CLASS.  | 
|
| SCAN(SDINDEX,SDBEG,SDEND,SDCB,SDFN,SDIR) | ; -- api to invoke scan
 | 
|
| SCANQ | ||
| MHCLIN(SDCL,SDSC) | ;;Determines if Mental health Clinic requiring GAF
 | 
 
  | 
| NEWGAF(DFN) | ;;Determine if new GAF Score needed
 | 
 
  | 
| GAFCM() | ;;
 | 
|
| COLLAT(SDEC) | ;Determines if patient has a collateral eligibility status
 | 
 
  | 
| ELSTAT(DA) | ;Retrieve patient eligibility status
 | 
 
  | 
| SCREST(SCIEN,TYP,DIS) | ;check stop code restriction in file 40.7 for a clinic. 
 ; INPUT: SCIEN = IEN of Stop Code ; TYP = Stop Code Type, Primary (P) or Secondary (S) ; DIS = Message Display, 1 - Display or 0 No Display  | 
|
| MSG | ;display error message to screen
 | 
|
| CLNCK(CLN,DSP) | ;Check clinic for valid stop code restriction.
 ; INPUT: CLN = IEN of Clinic ; DSP = Error Message Display, 1 - Display or 0 No Display  | 
 
  | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ | 
| ^VA(200 - [#200] | Classic Fileman Calls | 
| ^DIC(8 - [#8] | GET1^DIQ |