source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDAMBAE4.m@ 1375

Last change on this file since 1375 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 775 bytes
Line 
1SDAMBAE4 ;ALB/BOK/MJK - ADD/EDIT CON'T ; 3 FEB 1988@1210
2 ;;5.3;Scheduling;**111,132**;Aug 13, 1993
3 ;
4COUNT ; how many procs in a visit
5 N SDSCI,SDAMB,Y
6 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
7 Q
8 ;
9TOTAL ; -- reimbursement for a visit
10 ; RAM REIMB not used, file deleted w/ CPT 6.0/ SD*5.3*111
11 S X=""
12 Q
13 ;
14LOCAL ; -- local cost for visit ; same as TOTAL but uses 'local cost' where
15 ; available
16 ; RAM REIMB not used, file deleted w/ CPT 6.0/ SD*5.3*111
17 S X=""
18 Q
19 ;
20STATUS ; -- amb proc status
21 ; X = proc ; X1 = date
22 N % S %=""
23 S %=$$CPT^ICPTCOD(+X,+X1)
24 I %<0 S X="" Q ; if error returned
25 S %=$P(%,U,7) ; pull status from string
26 S X=$S('%:"INACTIVE",1:"ACTIVE")
27 Q
Note: See TracBrowser for help on using the repository browser.