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 | Field # of Occurrence |
---|---|
C^%DTC | NEWGAF+23 |
$$LST^DGMTU | FMT+8, FCO+8 |
IX^DIC | HELP+15 |
$$GET1^DIQ | COLLAT+8, ELSTAT+9 |
^DIR | GAFCM+4 |
$$ACTIVPRV^PXAPI | SCREEN+32 |
ACTIVE^SDQ | SCAN+7 |
CLOSE^SDQ | SCAN+9 |
DATE^SDQ | SCAN+5 |
INDEX^SDQ | SCAN+3 |
OPEN^SDQ | SCAN+2 |
PAT^SDQ | SCAN+4 |
SCAN^SDQ | SCAN+8 |
SCANCB^SDQ | SCAN+6 |
DEM^VADPT | NEWGAF+18 |
KVAR^VADPT | NEWGAF+20 |
$$FMTE^XLFDT | SCREST+17 |
$$RET^YSGAF | NEWGAF+16 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | Classic Fileman Calls |
^DIC(8 - [#8] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(40.7 - [#40.7] | MHCLIN+18, SCREST+11 |
^SC - [#44] | MHCLIN+14, CLNCK+9, CLNCK+11 |
^XMB(3.8 - [#3.8] | XMY+11 |
Name | Line Occurrences |
---|---|
$$SCREST | CLNCK+13, CLNCK+15 |
MSG | SCREST+9, SCREST+13, SCREST+14, SCREST+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CLN | CLNCK~, CLNCK+7, CLNCK+9, CLNCK+11 |
CTY | SCREST+7~, SCREST+10*, SCREST+14 |
D | HELP+12~, HELP+13* |
DA | ELSTAT~, ELSTAT+8, ELSTAT+9 |
DFN | FMT~, FMT+8, FCO~, FCO+8, NEWGAF~, NEWGAF+16 |
DIC | HELP+12~, HELP+13* |
DIC("S" | HELP+14* |
DIC(0 | HELP+13* |
DIR | GAFCM+1~ |
DIR("A" | GAFCM+2*, GAFCM+3* |
DIR("B" | GAFCM+4* |
DIR(0 | GAFCM+4* |
DIRUT | GAFCM+1~ |
DIS | SCREST~, SCREST+8*, MSG+1 |
DO | HELP+12~ |
DSP | CLNCK~, CLNCK+6*, CLNCK+8, CLNCK+10, CLNCK+11*, CLNCK+13, CLNCK+15 |
DT | SCREEN+30, HELP+11, NEWGAF+24, SCREST+16 |
DUZ | XMY+12 |
GROUP | XMY~, XMY+11 |
I | XMY+8~ |
IOST | MSG+1, CLNCK+8, CLNCK+10 |
ND0 | CLNCK+5~, CLNCK+11*, CLNCK+12 |
PSC | CLNCK+5~, CLNCK+11*, CLNCK+13 |
RDT | SCREST+7~, SCREST+11*, SCREST+16, SCREST+17 |
RTY | SCREST+7~, SCREST+11*, SCREST+12, SCREST+14 |
SCIEN | SCREST~, SCREST+9, SCREST+11 |
SCN | SCREST+7~, SCREST+11*, SCREST+13, SCREST+15, SCREST+17 |
SD | FYNUNK~, FYNUNK+3 |
SDBEG | SCAN~, SCAN+5 |
SDCB | SCAN~, SCAN+6 |
SDCL | MHCLIN~, MHCLIN+13, MHCLIN+14 |
SDCS | MHCLIN+10~, MHCLIN+18* |
SDDT | SCREEN~, SCREEN+30*, SCREEN+31*, SCREEN+32, HELP~, HELP+11* |
SDEC | COLLAT~, COLLAT+7, COLLAT+8 |
SDEND | SCAN~, SCAN+5 |
SDFN | SCAN~, SCAN+4 |
SDGAF | NEWGAF+14~, NEWGAF+16*, NEWGAF+19, NEWGAF+22, NEWGAF+23, NEWGAF+24 |
SDGAFDT | NEWGAF+14~ |
SDINDEX | SCAN~, SCAN+3, SCAN+4, SCAN+5 |
SDIR | SCAN~, SCAN+8 |
SDMH | MHCLIN+10~, MHCLIN+18*, MHCLIN+19 |
SDNOGAF | MHCLIN+10~, MHCLIN+11*, MHCLIN+18 |
SDPOST | XMY~, XMY+10~*, XMY+14 |
SDQID | SCAN+1~, SCAN+2, SCAN+3, SCAN+4, SCAN+5, SCAN+6, SCAN+7, SCAN+8, SCAN+9 |
SDSC | MHCLIN~, MHCLIN+16 |
SDSTOP | MHCLIN+10~, MHCLIN+14*, MHCLIN+16*, MHCLIN+18 |
SDUZ | XMY~, XMY+9~*, XMY+12 |
SDY | SCREEN+29~, SCREEN+31*, SCREEN+32*, SCREEN+34 |
SSC | CLNCK+5~, CLNCK+11*, CLNCK+14, CLNCK+15 |
STR | SCREST+7~, SCREST+9*, SCREST+12, SCREST+13*, SCREST+14, SCREST+15*, SCREST+16, SCREST+17*, MSG+1 |
STYP | SCREST+7~, SCREST+8*, SCREST+9, SCREST+13, SCREST+17 |
TYP | SCREST~, SCREST+8, SCREST+10, SCREST+15 |
U | FMT+9, FMT+10, FCO+9, FCO+10, XMY+11, SCREST+11, SCREST+13, SCREST+15, SCREST+17, CLNCK+11 , CLNCK+12 |
VADM | NEWGAF+14~ |
VADM(6 | NEWGAF+19 |
VAL | CLNCK+5~, CLNCK+13*, CLNCK+14, CLNCK+15*, CLNCK+16 |
X | FMT+7~, FMT+8*, FMT+9, FMT+10, FCO+7~, FCO+8*, FCO+9, FCO+10, HELP+12~, HELP+13* , NEWGAF+24 |
>> X1 | NEWGAF+23* |
>> X2 | NEWGAF+23* |
>> XMDUZ | XMY+16* |
XMY | XMY+8!, XMY+14 |
XMY( | XMY+12*, XMY+14* |
XMY("G." | XMY+11* |
Y | FMT+7~, FMT+9*, FMT+10, FCO+7~, FCO+9*, FCO+10, SCREEN~, SCREEN+28, SCREEN+32, GAFCM+5 |