28 lines
775 B
Mathematica
28 lines
775 B
Mathematica
SDAMBAE4 ;ALB/BOK/MJK - ADD/EDIT CON'T ; 3 FEB 1988@1210
|
|
;;5.3;Scheduling;**111,132**;Aug 13, 1993
|
|
;
|
|
COUNT ; how many procs in a visit
|
|
N SDSCI,SDAMB,Y
|
|
S X=0 F SDSCI=0:0 S SDSCI=$O(^SDV(D0,"CS",SDSCI)) Q:'SDSCI I $D(^(SDSCI,"PR")) S Y=^("PR") F SDAMB=1:1:5 S:$P(Y,U,SDAMB) X=X+1
|
|
Q
|
|
;
|
|
TOTAL ; -- reimbursement for a visit
|
|
; RAM REIMB not used, file deleted w/ CPT 6.0/ SD*5.3*111
|
|
S X=""
|
|
Q
|
|
;
|
|
LOCAL ; -- local cost for visit ; same as TOTAL but uses 'local cost' where
|
|
; available
|
|
; RAM REIMB not used, file deleted w/ CPT 6.0/ SD*5.3*111
|
|
S X=""
|
|
Q
|
|
;
|
|
STATUS ; -- amb proc status
|
|
; X = proc ; X1 = date
|
|
N % S %=""
|
|
S %=$$CPT^ICPTCOD(+X,+X1)
|
|
I %<0 S X="" Q ; if error returned
|
|
S %=$P(%,U,7) ; pull status from string
|
|
S X=$S('%:"INACTIVE",1:"ACTIVE")
|
|
Q
|