Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDAMBAE4

SDAMBAE4.m

Go to the documentation of this file.
  1. SDAMBAE4 ;ALB/BOK/MJK - ADD/EDIT CON'T ; 3 FEB 1988@1210
  1. ;;5.3;Scheduling;**111,132,1015**;Aug 13, 1993;Build 21
  1. ;
  1. COUNT ; how many procs in a visit
  1. N SDSCI,SDAMB,Y
  1. 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
  1. Q
  1. ;
  1. TOTAL ; -- reimbursement for a visit
  1. ; RAM REIMB not used, file deleted w/ CPT 6.0/ SD*5.3*111
  1. S X=""
  1. Q
  1. ;
  1. LOCAL ; -- local cost for visit ; same as TOTAL but uses 'local cost' where
  1. ; available
  1. ; RAM REIMB not used, file deleted w/ CPT 6.0/ SD*5.3*111
  1. S X=""
  1. Q
  1. ;
  1. STATUS ; -- amb proc status
  1. ; X = proc ; X1 = date
  1. N % S %=""
  1. S %=$$CPT^ICPTCOD(+X,+X1)
  1. I %<0 S X="" Q ; if error returned
  1. S %=$P(%,U,7) ; pull status from string
  1. S X=$S('%:"INACTIVE",1:"ACTIVE")
  1. Q