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

PXBAPI22.m

Go to the documentation of this file.
  1. PXBAPI22 ;ISL/DCM - API for Classification check out ; 16 Oct 2006 9:42 PM
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**1,26,184,168,227**;Aug 12, 1996;Build 3
  1. ONE(TYPI,DATA,ENCOWNTR,SQUIT) ;Process One Classification
  1. ; Input -- TYPI Outpatient Classification Type IEN
  1. ; DATA Null or 409.42 IEN^Internal Value^1=n/a^1=unedt
  1. ; ENCOWNTR Outpatient Encounter file IEN (optional)
  1. ; Output -- SQUIT User entered '^' or timeout
  1. N SDCT0,SDVAL
  1. S SDCT0=$G(^SD(409.41,TYPI,0)) I SDCT0']"" S PXBDATA("ERR",TYPI)=1 Q ;Bad entry
  1. I $P(DATA,"^",3) D:DATA S PXBDATA("ERR",TYPI)=2 Q ;Not applicable
  1. .W !,$C(7),">>> "_$P(SDCT0,"^",6)_" is no longer applicable..."
  1. .S DA=+DATA,DIK="^SDD(409.42," D ^DIK W "deleted."
  1. I DATA,$P(DATA,"^",4) D S PXBDATA("ERR",TYPI)=3 Q ;Uneditable data
  1. . W !,$P(SDCT0,"^",6)_": "_$$VAL^SDCODD(TYPI,$P(DATA,"^",2))_" <Uneditable>"
  1. S SDVAL=$$VAL(TYPI,SDCT0,DATA) ;Get field value
  1. I SDVAL="^" S SQUIT="",PXBDATA("ERR",TYPI)=4 Q ;user ^ out
  1. D STORE(+DATA,SDVAL,TYPI)
  1. Q
  1. VAL(TYPI,SDCT0,DATA) ;Get Outpatient Classification
  1. N DIR,DA,Y,SDXS,SDEF
  1. I TYPI=1,$P($G(^DPT(DFN,.321)),"^",2)'="Y"!(($P($G(^DPT(DFN,.321)),"^",13)'="V")&($P($G(^DPT(DFN,.321)),"^",13)'="B")) G VALQ ;PX*1.0*227 - add BWN
  1. I TYPI=2,$P($G(^DPT(DFN,.321)),"^",3)'="Y" G VALQ
  1. I TYPI=4,$P($G(^DPT(DFN,.322)),"^",13)'="Y",'$$EC^SDCO22(DFN,ENCOWNTR) G VALQ
  1. I TYPI=3,$P($G(^SCE(+$G(ENCOWNTR),0)),"^",10)=2 S Y=1 G VALQ ;Change SC to 'yes'
  1. ;Automation of the SC response
  1. I TYPI=3,(+$G(PXD)!(+$G(PXDX))) D I Y'="",'$G(SDSCEDIT) G VALQ
  1. .S SDXS($S(+$G(PXD):+PXD,1:+$G(PXDX)))=""
  1. .S Y=$$SC^SDSCAPI(DFN,.SDXS,ENCOWNTR,$G(VISIT)) Q:Y=""
  1. .S Y=+Y,SDEF=$S(Y:"YES",1:"NO")
  1. .I '$G(SDSCEDIT) D
  1. ..W !,$S($P(SDCT0,"^",2)]"":$P(SDCT0,"^",2),1:$P(SDCT0,"^")),"? "
  1. ..W $S(Y:"YES",1:"NO")
  1. REASK S DIR("A")=$S($P(SDCT0,"^",2)]"":$P(SDCT0,"^",2),1:$P(SDCT0,"^"))
  1. I $P(DATA,"^",2)]""!($P(SDCT0,"^",4)]"") S DIR("B")=$S($D(SDEF):SDEF,$P(DATA,"^",2)]"":$$VAL^SDCODD(TYPI,$P(DATA,"^",2)),1:$P(SDCT0,"^",4))
  1. S DIR(0)=$P(SDCT0,"^",3)_"O" S:$D(SDEF) DIR("B")=SDEF
  1. I $D(^SD(409.41,TYPI,2)) S DIR(0)=DIR(0)_"^"_^(2)
  1. I TYPI=3 S DIR("?")="^D SC^SDCO23(DFN)"
  1. D ^DIR
  1. I $P(SDCT0,"^",5),'$D(DTOUT),$P(DATA,"^",2)="",Y=""!(Y["^"&('$P($G(^DG(43,1,"SCLR")),"^",24))) D G REASK
  1. .W !,$C(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. STORE(SDCNI,SDCNV,TYPI) ;File Outpatient Classification
  1. ; Input -- SDCNI Outpatient Classification IEN
  1. ; SDCNV Outpatient Classification Value
  1. ; TYPI Classification type 1 - Agent Orange
  1. ; 2 - Ionizing Radiation
  1. ; 3 - Service Connected
  1. ; 4 - SW Asia Conditions
  1. ; Output -- PXBDATA array
  1. ; Error codes -- PXBDATA("ERR",TYPI)=1 - Bad ptr to 409.41 in TYPI
  1. ; 2 - DATA entry not applicable
  1. ; 3 - DATA entry uneditable
  1. ; 4 - User ^ out of prompt
  1. S PXBDATA(TYPI)=SDCNI_"^"_SDCNV
  1. Q