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

SDCO20.m

Go to the documentation of this file.
  1. SDCO20 ;ALB/RMO - Process One Classification - Check Out;30 DEC 1992 1:10 pm
  1. ;;5.3;Scheduling;**20**;Aug 13, 1993
  1. ;
  1. ONE(SDCTI,SDATA,SDOE,SDCOQUIT) ;Process One Classification
  1. ; Input -- SDCTI Outpatient Classification Type IEN
  1. ; SDATA Null or 409.42 IEN^Internal Value^1=n/a^1=unedt
  1. ; SDOE Outpatient Encounter file IEN
  1. ; Output -- SDCOQUIT User entered '^' or timeout
  1. N SDCT0,SDVAL
  1. S SDCT0=$G(^SD(409.41,SDCTI,0)) G ONEQ:SDCT0']""
  1. I SDATA,$P(SDATA,"^",3) D G ONEQ
  1. .W !,*7,">>> ",$P(SDCT0,"^",6)," is no longer applicable..."
  1. .S DA=+SDATA,DIK="^SDD(409.42," D ^DIK
  1. .W "deleted."
  1. I SDATA,$P(SDATA,"^",4) D G ONEQ
  1. .W !,$P(SDCT0,"^",6),": ",$$VAL^SDCODD(SDCTI,$P(SDATA,"^",2))," <Uneditable>"
  1. S SDVAL=$$VAL(SDCTI,SDCT0,SDATA)
  1. I SDVAL="^" S SDCOQUIT="" D G ONEQ
  1. .I $P(SDCT0,"^",5),$P(SDATA,"^",2)="",$P($G(^SCE(SDOE,0)),"^",7) D COMDT^SDCODEL(SDOE,1)
  1. D FILE(+SDATA,SDVAL)
  1. ONEQ Q
  1. ;
  1. VAL(SDCTI,SDCT0,SDATA) ;Get Outpatient Classification
  1. N DIR,Y
  1. I SDCTI=3,$P($G(^SCE(+SDOE,0)),"^",10)=2 D G VALQ
  1. .S Y=1
  1. .W !,">>> Updating treatment for SC condition to 'Yes'..."
  1. REASK S DIR("A")=$S($P(SDCT0,"^",2)]"":$P(SDCT0,"^",2),1:$P(SDCT0,"^"))
  1. I $P(SDATA,"^",2)]""!($P(SDCT0,"^",4)]"") S DIR("B")=$S($P(SDATA,"^",2)]"":$$VAL^SDCODD(SDCTI,$P(SDATA,"^",2)),1:$P(SDCT0,"^",4))
  1. S DIR(0)=$P(SDCT0,"^",3)_"O"
  1. I $D(^SD(409.41,SDCTI,2)) S DIR(0)=DIR(0)_"^"_^(2)
  1. I SDCTI=3 S DIR("?")="^D SC^SDCO23(DFN)"
  1. D ^DIR
  1. I $P(SDCT0,"^",5),'$D(DTOUT),$P(SDATA,"^",2)="",Y=""!(Y["^"&('$P($G(^DG(43,1,"SCLR")),"^",24))) D G REASK
  1. .W !,*7,"This is a required response." W:Y["^" " An '^' is not allowed."
  1. .K DIRUT,DUOUT
  1. I $D(DIRUT) S Y="^"
  1. VALQ K DIRUT,DTOUT,DUOUT
  1. Q $G(Y)
  1. ;
  1. FILE(SDCNI,SDCNV) ;File Outpatient Classification
  1. ; Input -- SDCNI Outpatient Classification IEN
  1. ; SDCNV Outpatient Classification Value
  1. ; Output -- File Outpatient Classification
  1. N DA,DIE,DR,X
  1. I $G(SDCNI)'>0 S SDCNI=$$NEW(SDCTI,SDOE) G FILEQ:SDCNI<0
  1. S DA=SDCNI,DIE="^SDD(409.42,",DR=".03////^S X=SDCNV" D ^DIE
  1. FILEQ Q
  1. ;
  1. NEW(SDCTI,SDOE) ;Add a New Outpatient Classification
  1. ; Input -- SDCTI Appointment Outpatient Type file IEN
  1. ; SDOE Outpatient Encounter file IEN
  1. ; Output -- Outpatient Classification file IEN
  1. N DA,DD,DIC,DIK,DINUM,DLAYGO,DO,SDCNI,X,Y
  1. S X=SDCTI,(DIC,DIK)="^SDD(409.42,",DIC(0)="L",DLAYGO=409.42
  1. D FILE^DICN S SDCNI=+Y
  1. I SDCNI>0 L +^SDD(409.42,SDCNI) S $P(^SDD(409.42,SDCNI,0),"^",2)=SDOE,DA=SDCNI D IX1^DIK L -^SDD(409.42,SDCNI)
  1. NEWQ Q SDCNI