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

SDCO4.m

Go to the documentation of this file.
  1. SDCO4 ;ALB/RMO - Diagnosis - Check Out;08 DEC 1992 4:05 pm
  1. ;;5.3;Scheduling;**32,27,44,67,77,85,132,466**;08/13/93;Build 2
  1. ;
  1. EN ;Entry point for SDCO DIAGNOSIS protocol
  1. ; Input -- SDOE
  1. ;
  1. S VALMBCK=""
  1. ;
  1. ; -- if OLD encounter, quit
  1. IF '$$EDITOK^SDCO3($G(SDOE),1) G ENQ
  1. ;
  1. ; -- call PCE interview
  1. N SDVISIT,SDHL
  1. S SDVISIT=$P($G(^SCE(+SDOE,0)),U,5)
  1. S X=$$INTV^PXAPI("POV","SD","PIMS",SDVISIT)
  1. D BLD^SDCO S VALMBCK="R"
  1. ENQ Q
  1. ;
  1. DXASK(SDOE) ;Ask Diagnosis on Check Out
  1. ; Input -- SDOE Outpatient Encounter IEN
  1. ; Output -- 0=No, 1=Yes/Required, 2=Yes/Not Required
  1. N SDCL,SDOE0,SDORG,Y
  1. S SDOE0=$G(^SCE(+SDOE,0)),SDCL=+$P(SDOE0,"^",4),SDORG=+$P(SDOE0,"^",8)
  1. I $$REQ^SDM1A(+SDOE0)'="CO" G DXASKQ
  1. I $$OCASN(SDOE) G DXASKQ
  1. I SDORG=1,'$$CLINIC^SDAMU(SDCL) G DXASKQ
  1. ;I "^1^2^"[("^"_SDORG_"^"),$$INP^SDAM2(+$P(SDOE0,"^",2),+SDOE0)="I" G DXASKQ ;SD*5.3*466 allow diagnosis check for inpatients
  1. I +SDOE0<2961001 S Y=2 G DXASKQ
  1. I SDCL S Y=1 G DXASKQ
  1. I SDORG=3 S Y=1
  1. DXASKQ Q +$G(Y)
  1. ;
  1. OCASN(SDOE) ;determines if this is an occasion of service.
  1. ; returns a 1 if and occasion 0 if not
  1. ;
  1. N ANS
  1. S ANS=$$CHKOCC^SCMSVDG1(SDOE)
  1. Q +$G(ANS)
  1. ;
  1. SET(SDOE) ;Set-up Diagnosis Array for Outpatient Encounter
  1. ; Input -- SDOE Outpatient Encounter IEN
  1. ; Output -- SDDXY Diagnosis Array Subscripted by a Number
  1. ; SDCNT Number of Array Entries
  1. N SDICD9,SDVPOV,SDDXS
  1. K SDDXY
  1. D GETDX^SDOE(SDOE,"SDDXS")
  1. S (SDCNT,SDVPOV)=0
  1. F S SDVPOV=$O(SDDXS(SDVPOV)) Q:'SDVPOV D
  1. . S SDICD9=+$G(SDDXS(SDVPOV))
  1. . S SDCNT=SDCNT+1
  1. . S SDDXY(SDCNT)=SDVPOV_"^"_SDICD9
  1. SETQ Q
  1. ;
  1. LIST(SDDXY) ;List Diagnosis Array
  1. ; Input -- SDDXY Diagnosis Array Subscripted by a Number
  1. ; Output -- List Diagnosis Array
  1. N I,SDDXD
  1. W !
  1. S I=0 F S I=$O(SDDXY(I)) Q:'I S SDDXD=$$DX^SDCO41(+$P(SDDXY(I),"^",2)) W !?2,I," ",$P(SDDXD,"^"),?15,$P(SDDXD,"^",2)
  1. Q
  1. ;