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

update copyright notice

This commit is contained in:
george 2009-03-16 22:08:55 +00:00
parent 76a8cdb1ef
commit f3a79a9e60
7 changed files with 41 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
p/C0CEWD1.m
View File

@ -1,6 +1,6 @@
C0CEWD1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;0.1;CCDCCR;nopatch;noreleasedate
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
@ -32,13 +32,13 @@ TEST2 ;
s zfilepath="/home/vademo2/CCR/PAT_780_CCR_V1_0_17.xml"
;s ok=$$gtmImportFile^%zewdHTMLParser(zfilepath)
s ok=$$LOAD(zfilepath) ;load the XML file to the EWD global
s ok=$$parseDocument^%zewdHTMLParser("DerekDOM",0)
s ok=$$parseDocument^%zewdHTMLParser("DerekDOM",0)
;s ok=$$parseXMLFile^%zewdAPI(zfilepath,"fourthDOM")
w ok,!
q
;
LOAD(filepath) ; load an xml file into the EWD global for DOM processing
; need to call s error=$$parseDocument^%zewdHTMLParser(docName,isHTML)
; need to call s error=$$parseDocument^%zewdHTMLParser(docName,isHTML)
; after to process it to the DOM - isHTML=0 for XML files
n i
i $g(^%ZISH)["" d QUIT i ; if VistA Kernal routine %ZISH exists - gpl 2/23/09

12
p/C0CFM1.m
View File

@ -1,6 +1,6 @@
C0CFM1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;0.1;CCDCCR;nopatch;noreleasedate
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
@ -55,7 +55,7 @@ PUTELS(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
;
S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
N ZF,ZFV S ZF=171.201 S ZFV=171.2012
N ZF,ZFV S ZF=171.201 S ZFV=171.2012
S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,""))
@ -93,7 +93,7 @@ PUTELS(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
Q
;
VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
;
N ZCCRD,ZVARN,C0CFDA2
@ -113,10 +113,10 @@ VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
. . S ZVARN=$O(^C0CDIC(170,"B",ZVAR,"")) ;FIND IEN OF VARIABLE
. . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
Q ZVARN
;
;
BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
;
;
N C0CDIC,C0CNODE ;
S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
S C0CNODE=$$FILEREF^C0CRNF(170.101) ; CLOSED REF TO CCR NODE TYPE FILE
@ -134,7 +134,7 @@ FIXSEC ;FIX THE SECTION FIELD OF THE CCR DICTIONARY.. IT HAS BEEN REDEFINED
. F S C0CZX=$O(^KBAI("SECTION",C0CI,C0CZX)) Q:C0CZX="" D ; EACH VARIABLE
. . W "SECTION ",C0CI," VAR ",C0CZX
. . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
. . W " TYPE: ",C0CV,!
. . W " TYPE: ",C0CV,!
. . D SETFDA("SECTION",C0CV)
. . ;ZWR C0CFDA
Q

24
p/C0CFM2.m
View File

@ -1,6 +1,6 @@
C0CFM2 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;0.1;CCDCCR;nopatch;noreleasedate
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
@ -19,8 +19,8 @@ C0CFM2 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;
W "This is the CCR FILEMAN Utility Library ",!
; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
; CCR ELEMENTS (^C0C(179.201,
; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE
; CCR ELEMENTS (^C0C(179.201,
; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE
; AT THE TOP LEVEL. OCCURANCE, THE 4TH PART OF THE KEY IS NOW FREE TEXT
; AND HAS THE FORM X;Y FOR SUB-ELEMENTS
; ALL SUB-VARIABLES HAVE BEEN REMOVED
@ -103,10 +103,10 @@ PUTELS(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
D UPDIE ; ADD THE CCR SOURCE
N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,"")) ; FIND THE ELE TYPE
S C0CFDA(C0CFTYP,"?+1,"_ZSRC_","_PATN_",",.01)=ZTYPN
D UPDIE ; ADD THE ELEMENT TYPE
D UPDIE ; ADD THE ELEMENT TYPE
S ZTYP=$O(^C0CE(PATN,1,ZSRC,1,"B",ZTYPN,"")) ; IEN OF ELEMENT TYPE
S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=" "_ZOCC ; STRING OCC
; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE
; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE
; STRING COLLATION ON THE INDEX
D UPDIE ; ADD THE OCCURANCE
S ZD0=$O(^C0CE(PATN,1,ZSRC,1,ZTYP,1,"B"," "_ZOCC,""))
@ -133,7 +133,7 @@ PUTELS(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
. . ;S ZT=$O(@ZZVALS@("")) ; ELEMENT TYPE OF MULTIPLE
. . ;S ZZVALS=$NA(@ZZVALS@(ZT)) ; PAST MULTIPLE TYPE INDICATOR
. . ;W "MULTIPLE:",ZZVALS,!
. . ;B
. . ;B
. . ;F S ZZC0CI=$O(@ZZVALS@(ZZC0CI)) Q:ZZC0CI="" D ; EACH MULTIPLE
. . ;. S ZZCNT=ZZCNT+1 ;INCREMENT COUNT
. . ;. W "COUNT:",ZZCNT,!
@ -153,7 +153,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
. B
K C0CFDA
Q
;
;
PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
; 171.101, ^C0CE DFN IS THE PATIENT IEN PASSED BY VALUE
; ZTYPE IS THE NODE TYPE IE RESULTS,PROBLEMS PASSED BY VALUE
@ -164,7 +164,7 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
;
S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
N ZF,ZFV S ZF=171.101 S ZFV=171.1011
N ZF,ZFV S ZF=171.101 S ZFV=171.1011
;S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
;N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,""))
@ -209,7 +209,7 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
Q
;
VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
;
N ZCCRD,ZVARN,C0CFDA2
@ -229,10 +229,10 @@ VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
. . S ZVARN=$O(^C0CDIC(170,"B",ZVAR,"")) ;FIND IEN OF VARIABLE
. . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
Q ZVARN
;
;
BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
;
;
N C0CDIC,C0CNODE ;
S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
S C0CNODE=$$FILEREF^C0CRNF(170.101) ; CLOSED REF TO CCR NODE TYPE FILE
@ -250,7 +250,7 @@ FIXSEC ;FIX THE SECTION FIELD OF THE CCR DICTIONARY.. IT HAS BEEN REDEFINED
. F S C0CZX=$O(^KBAI("SECTION",C0CI,C0CZX)) Q:C0CZX="" D ; EACH VARIABLE
. . W "SECTION ",C0CI," VAR ",C0CZX
. . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
. . W " TYPE: ",C0CV,!
. . W " TYPE: ",C0CV,!
. . D SETFDA("SECTION",C0CV)
. . ;ZWR C0CFDA
Q

20
p/C0CFM3.m
View File

@ -1,6 +1,6 @@
C0CFM3 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;;0.1;CCDCCR;nopatch;noreleasedate
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
@ -19,8 +19,8 @@ C0CFM3 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
;
W "This is the CCR FILEMAN Utility Library ",!
; THIS SET OF ROUTINES USE CCR E2 (^C0CE(, FILE 171.101) INSTEAD OF
; CCR ELEMENTS (^C0C(179.201,
; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE
; CCR ELEMENTS (^C0C(179.201,
; E2 IS A SIMPLIFICATION OF CCR ELEMENTS WHERE SUB-ELEMENTS ARE
; AT THE TOP LEVEL. OCCURANCE, THE 4TH PART OF THE KEY IS NOW FREE TEXT
; AND HAS THE FORM X;Y FOR SUB-ELEMENTS
; ALL SUB-VARIABLES HAVE BEEN REMOVED
@ -120,7 +120,7 @@ PUTELS(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
. . ;S ZT=$O(@ZZVALS@("")) ; ELEMENT TYPE OF MULTIPLE
. . ;S ZZVALS=$NA(@ZZVALS@(ZT)) ; PAST MULTIPLE TYPE INDICATOR
. . ;W "MULTIPLE:",ZZVALS,!
. . ;B
. . ;B
. . ;F S ZZC0CI=$O(@ZZVALS@(ZZC0CI)) Q:ZZC0CI="" D ; EACH MULTIPLE
. . ;. S ZZCNT=ZZCNT+1 ;INCREMENT COUNT
. . ;. W "COUNT:",ZZCNT,!
@ -140,7 +140,7 @@ UPDIE ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
. B
K C0CFDA
Q
;
;
PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
; 171.101, ^C0CE DFN IS THE PATIENT IEN PASSED BY VALUE
; ZTYPE IS THE NODE TYPE IE RESULTS,PROBLEMS PASSED BY VALUE
@ -151,7 +151,7 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
;
S ZSRC=1 ; CCR SOURCE IS ASSUMED TO BE THIS EHR, WHICH IS ALWAYS SOURCE 1
; PUT THIS IN PARAMETERS - SO SOURCE NUMBER FOR PROCESSING IN CONFIGURABLE
N ZF,ZFV S ZF=171.101 S ZFV=171.1011
N ZF,ZFV S ZF=171.101 S ZFV=171.1011
;S ZSUBF=171.20122 ;FILE AND SUBFILE NUMBERS
;N ZSFV S ZSFV=171.201221 ; SUBFILE VARIABLE FILE NUMBER
N ZTYPN S ZTYPN=$O(^C0CDIC(170.101,"B",ZTYPE,""))
@ -196,7 +196,7 @@ PUTELSOLD(DFN,ZTYPE,ZOCC,ZVALS) ; PUT CCR VALUES INTO THE CCR ELEMENTS FILE
Q
;
VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
; CCR DICTIONARY. IT IS LAYGO, AS IT WILL ADD THE VARIABLE TO
; THE CCR DICTIONARY IF IT IS NOT THERE. ZTYP IS REQUIRED FOR LAYGO
;
N ZCCRD,ZVARN,C0CFDA2
@ -216,10 +216,10 @@ VARPTR(ZVAR,ZTYP) ;EXTRINSIC WHICH RETURNS THE POINTER TO ZVAR IN THE
. . S ZVARN=$O(^C0CDIC(170,"B",ZVAR,"")) ;FIND IEN OF VARIABLE
. . W "ADDED ",ZVAR," TO CCR DICTIONARY, IEN:",ZVARN,!
Q ZVARN
;
;
BLDTYPS ; ROUTINE TO POPULATE THE CCR NODE TYPES FILE (^C0CDIC(170.101,)
; THE CCR DICTIONARY (^C0CDIC(170, ) HAS MOST OF WHAT'S NEEDED
;
;
N C0CDIC,C0CNODE ;
S C0CDIC=$$FILEREF^C0CRNF(170) ; CLOSED FILE REFERENCE TO THE CCR DICTIONARY
S C0CNODE=$$FILEREF^C0CRNF(170.101) ; CLOSED REF TO CCR NODE TYPE FILE
@ -237,7 +237,7 @@ FIXSEC ;FIX THE SECTION FIELD OF THE CCR DICTIONARY.. IT HAS BEEN REDEFINED
. F S C0CZX=$O(^KBAI("SECTION",C0CI,C0CZX)) Q:C0CZX="" D ; EACH VARIABLE
. . W "SECTION ",C0CI," VAR ",C0CZX
. . S C0CV=$O(^C0CDIC(170.101,"B",C0CI,""))
. . W " TYPE: ",C0CV,!
. . W " TYPE: ",C0CV,!
. . D SETFDA("SECTION",C0CV)
. . ;ZWR C0CFDA
Q

6
p/C0CRNF.m
View File

@ -1,6 +1,6 @@
C0CRNF ; CCDCCR/GPL - Reference Name Format (RNF) utilities; 12/6/08
;;0.1;CCDCCR;nopatch;noreleasedate
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
@ -98,7 +98,7 @@ GETN(GRTN,GFILE,GREF,GNDX,GNN) ; GET BY NAME ; RETURN A FIELD VALUE MAP
. . I $QS(ZG,3)=GREF D ; IS GREF IN INDEX?
. . . S GIEN=$QS(ZG,4) ; PULL OUT THE IEN
. . E S GIEN="" ; NOT FOUND IN INDEX
. E S GIEN="" ;
. E S GIEN="" ;
;W "IEN: ",GIEN,!
;N C0CTMP,C0CI,C0CJ,C0CREF,C0CNAME
I $D(GNN) I GNN="ALL" S C0CNN=0 ; NOT NON-NULL (ALL FIELDS TO BE RETURNED)
@ -162,7 +162,7 @@ GETN1(GRTN,GFILE,GREF,GNDX,GNN) ; NEW GET ;GPL ; RETURN A FIELD VALUE MAP
. . I $QS(ZG,3)=GREF D ; IS GREF IN INDEX?
. . . S GIEN=$QS(ZG,4) ; PULL OUT THE IEN
. . E S GIEN="" ; NOT FOUND IN INDEX
. E S GIEN="" ;
. E S GIEN="" ;
;W "IEN: ",GIEN,!
;N C0CTMP,C0CI,C0CJ,C0CREF,C0CNAME
I $D(GNN) I GNN="ALL" S C0CNN=0 ; NOT NON-NULL (ALL FIELDS TO BE RETURNED)

10
p/C0CRPMS.m
View File

@ -1,6 +1,6 @@
C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09 14:33
C0CRPMS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR RPMS ;1/14/09 14:33
;;0.1;CCDCCR;;JUL 16,2008;Build 7
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;Copyright 2008 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
@ -36,10 +36,10 @@ VISITS(C0CDFN,C0CCNT) ;LIST VISIT DATES FOR PATIENT DFN
S G="" S GN=0
F S G=$O(^AUPNVSIT("AA",C0CDFN,G)) Q:(G="")!(GN>C0CCNT) D ;
. S GN=GN+1
. W $$FMDTOUTC^C0CUTIL(9999999-G),!
. W $$FMDTOUTC^C0CUTIL(9999999-G),!
Q
;
VISITS2(C0CDFN,C0CCNT) ;SECOND VERSION USING NEXTV
VISITS2(C0CDFN,C0CCNT) ;SECOND VERSION USING NEXTV
;
N C0CG,GN
S C0CG=""
@ -54,7 +54,7 @@ NEXTV(C0CDFN,C0CVDT) ;EXTRINSIC WHICH RETURNS THE NEXT VISIT DATE
;FOR PATIENT C0CDFN IN REVERSE TIME ORDER; PASS "" TO GET THE MOST
; RECENT VISIT
N G
S G=C0CVDT
S G=C0CVDT
I G'="" S G=9999999-C0CVDT ;INVERT FOR INDEX
S G=$O(^AUPNVSIT("AA",C0CDFN,G))
I G="" Q ""

4
p/C0CRXN.m
View File

@ -1,6 +1,6 @@
C0CRXN ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
;;0.1;CCDCCR;nopatch;noreleasedate
;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
;Copyright 2009 George Lilly. Licensed under the terms of the GNU
;General Public License See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
@ -134,7 +134,7 @@ EXP2 ; ROUTINE TO CREATE 176.113 C0C RXNORM VUID MAPPING DISCREPANCIES FILE
. . S VANO=VANO+1
. . D SETFDA("VAMAP","N") ;MARK AS MISSING FROM VA MAPPING FILE
. ; NATIONAL DRUG FILE TESTS
. I ($$ZVALUE("VUID","C0CD")=C0CZX)!($$ZVALUE("VUID","C0CE")=C0CZX) D ;
. I ($$ZVALUE("VUID","C0CD")=C0CZX)!($$ZVALUE("VUID","C0CE")=C0CZX) D ;
. . ;FOUND IN NATIONAL DRUG FILE OR DRUG INGREDIENT FILE
. . S NDFVCNT=NDFVCNT+1 ;INCREMENT VUID FOUND COUNT
. . I $$ZVALUE("NAME","C0CD")'=$$ZVALUE("STR") D ;NDF TEXT DOESN'T MATCH