iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merged OHUM Kids Branch to main KIDS branch

This commit is contained in:
sam 2012-10-02 17:09:55 +00:00
parent 9e4021c100
commit 489c4683ad
9 changed files with 900183 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

431
kids/C0C1P2T1-T2.diff Normal file
View File

@ -0,0 +1,431 @@
Only in ../workspace/repo/C0C/p/: C0C_1_0.txt
diff ../workspace/repo/C0C/p//C0CACTOR.m tempC0C//C0CACTOR.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CALERT.m tempC0C//C0CALERT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CBAT.m tempC0C//C0CBAT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CCCD1.m tempC0C//C0CCCD1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CCCD.m tempC0C//C0CCCD.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CCCR0.m tempC0C//C0CCCR0.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CCCR.m tempC0C//C0CCCR.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CCMT.m tempC0C//C0CCMT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CCPT.m tempC0C//C0CCPT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CDIC.m tempC0C//C0CDIC.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CDOM.m tempC0C//C0CDOM.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CDPT.m tempC0C//C0CDPT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CENC.m tempC0C//C0CENC.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CENV.m tempC0C//C0CENV.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CEVC.m tempC0C//C0CEVC.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CEWD1.m tempC0C//C0CEWD1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CEWD.m tempC0C//C0CEWD.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CFM1.m tempC0C//C0CFM1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CFM2.m tempC0C//C0CFM2.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CFM3.m tempC0C//C0CFM3.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CIM2.m tempC0C//C0CIM2.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CIMMU.m tempC0C//C0CIMMU.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CIN.m tempC0C//C0CIN.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CLA7DD.m tempC0C//C0CLA7DD.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CLA7Q.m tempC0C//C0CLA7Q.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CLABS.m tempC0C//C0CLABS.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMAIL2.m tempC0C//C0CMAIL2.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMAIL3.m tempC0C//C0CMAIL3.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMAIL.m tempC0C//C0CMAIL.m
2c2
< V ;;1.2;C0C;;May 11, 2012;Build 46
---
> V ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMCCD.m tempC0C//C0CMCCD.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMED1.m tempC0C//C0CMED1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
44a45
> N PENDING S PENDING=$P(FLAGS,U,4) ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS
63a65
> . I 'ALL,PENDING,$P(MED(100),U,2)'="PENDING" QUIT ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS
diff ../workspace/repo/C0C/p//C0CMED2.m tempC0C//C0CMED2.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
258c258
< . . S MEDFIRST=0 ; RESET FIRST FLAG
---
> . . ;S MEDFIRST=0 ; RESET FIRST FLAG ;OHUM/RUT COMMENTED (1ST PENDING MEDICATION WAS GETTING DUPLICATED)
260a261
> . I MEDFIRST S MEDFIRST=0 ;OHUM/RUT ADDED
diff ../workspace/repo/C0C/p//C0CMED3.m tempC0C//C0CMED3.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMED4.m tempC0C//C0CMED4.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMED6.m tempC0C//C0CMED6.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMED.m tempC0C//C0CMED.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMIME.m tempC0C//C0CMIME.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMXMLB.m tempC0C//C0CMXMLB.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMXML.m tempC0C//C0CMXML.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CMXP.m tempC0C//C0CMXP.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CNHIN.m tempC0C//C0CNHIN.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CNMED2.m tempC0C//C0CNMED2.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CNMED4.m tempC0C//C0CNMED4.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
62a63
> S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING") ;SETTING FLAG
64a66,72
> . ;OHUM/RUT 3120507 ;STATUS VALIDATION FOR INPATIENT
> . I ($P(C0CMFLAG,"^",1)'=1) D
> . . I ($P(C0CMFLAG,"^",3)=1)&(MEDS("med",I,"vaStatus@value")'="ACTIVE") D
> . . . K MEDS("med",I) Q
> . . I ($P(C0CMFLAG,"^",4)=1)&(MEDS("med",I,"vaStatus@value")'="PENDING") D
> . . . K MEDS("med",I) Q
> . ;OHUM/RUT
diff ../workspace/repo/C0C/p//C0CORSLT.m tempC0C//C0CORSLT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0COVREL.m tempC0C//C0COVREL.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0COVRES.m tempC0C//C0COVRES.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0COVREU.m tempC0C//C0COVREU.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CPARMS.m tempC0C//C0CPARMS.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
62c62
< S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2),@C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3),@C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4),@C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1),@C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2),@C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3)
---
> S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2),@C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3),@C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4),@C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1),@C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2),@C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3),@C0CPARMS@("MEDACTIVE")=0,@C0CPARMS@("MEDPENDING")=0,@C0CPARMS@("MEDALL")=0 ;OHUM/RUT 3120504 INITIALISING MEDICATION STATUS VARIABLES WITH ZERO
65c65
< I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1
---
> I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1,@C0CPARMS@("MEDPENDING")=1 ;OHUM/RUT 3120504 ADDED FOR INCLUDING PENDING MEDICATIONS FOR STATUS "ALL"
diff ../workspace/repo/C0C/p//C0CPROBS.m tempC0C//C0CPROBS.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CPROC.m tempC0C//C0CPROC.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CPXRM.m tempC0C//C0CPXRM.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CQRY1.m tempC0C//C0CQRY1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CQRY2.m tempC0C//C0CQRY2.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRAHL7.m tempC0C//C0CRAHL7.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRARPT.m tempC0C//C0CRARPT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRIMA.m tempC0C//C0CRIMA.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRNF.m tempC0C//C0CRNF.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRNFRP.m tempC0C//C0CRNFRP.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRPMS.m tempC0C//C0CRPMS.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRXN.m tempC0C//C0CRXN.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CRXNRD.m tempC0C//C0CRXNRD.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CSNOA.m tempC0C//C0CSNOA.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CSOAP.m tempC0C//C0CSOAP.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CSQMB.m tempC0C//C0CSQMB.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CSUB1.m tempC0C//C0CSUB1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CSYS.m tempC0C//C0CSYS.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CTIU1.m tempC0C//C0CTIU1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CTIU.m tempC0C//C0CTIU.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CUNIT.m tempC0C//C0CUNIT.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CUTIL.m tempC0C//C0CUTIL.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CVA200.m tempC0C//C0CVA200.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CVALID.m tempC0C//C0CVALID.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46;Build 2
---
> ;;1.2;C0C;;May 11, 2012;Build 47;Build 2
diff ../workspace/repo/C0C/p//C0CVIT2.m tempC0C//C0CVIT2.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CVITAL.m tempC0C//C0CVITAL.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CVOBX1.m tempC0C//C0CVOBX1.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CVORU.m tempC0C//C0CVORU.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CXEWD.m tempC0C//C0CXEWD.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CXPAT0.m tempC0C//C0CXPAT0.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
diff ../workspace/repo/C0C/p//C0CXPATH.m tempC0C//C0CXPATH.m
2c2
< ;;1.2;C0C;;May 11, 2012;Build 46
---
> ;;1.2;C0C;;May 11, 2012;Build 47
Only in ../workspace/repo/C0C/p/: CCR_1_0_1.doc
Only in ../workspace/repo/C0C/p/: CCR_1_0_1.txt
Only in ../workspace/repo/C0C/p/: ccr.xsl
Only in ../workspace/repo/C0C/p/: DCO_George_Lilly.txt
Only in ../workspace/repo/C0C/p/: DCO_Sam_Habiel.txt
Only in ../workspace/repo/C0C/p/: Install-Instructions-CCR.doc
Only in ../workspace/repo/C0C/p/: .svn

128564
kids/C0C_1P2T1.KID Normal file
View File

File diff suppressed because it is too large Load Diff

128586
kids/C0C_1P2T2.KID Normal file
View File

File diff suppressed because it is too large Load Diff

128602
kids/C0C_1P2T3.KID Normal file
View File

File diff suppressed because it is too large Load Diff

129466
kids/C0C_1P2T4.KID Normal file
View File

File diff suppressed because it is too large Load Diff

126194
kids/C0C_1_0_0_T16.KID Normal file
View File

File diff suppressed because it is too large Load Diff

110182
kids/C0C_1_1_0_T5.KID Normal file
View File

File diff suppressed because it is too large Load Diff

34946
kids/C0C_1_1_0_T6.KID Normal file
View File

File diff suppressed because it is too large Load Diff

113212
kids/C0C_1_2_0_T1.KID Normal file
View File

File diff suppressed because it is too large Load Diff