Changeset 593

Timestamp:

Nov 3, 2009, 2:29:36 PM (15 years ago)

Author:

Sam Habiel

Message:

updated RPMS Meds...; still working on RxNorm

Location:

ccr/trunk/p

Files:

• C0CMED6.m (modified) (2 diffs)
• C0CRXNRD.m (modified) (4 diffs)
• C0C_1_0.txt (modified) (1 diff)

ccr/trunk/p/C0CMED6.m

@@ -41 +41 @@
  ; -- DAYS is passed by value (optional; if not passed defaults to 365)
  ; 
- ; Return:
- ; ~Type^PharmID^Drug^InfRate^StopDt^RefRem^TotDose^UnitDose^OrderID 
- ; ^Status^LastFill^Chronic^Issued^Rx #^Provider^ 
- ; Status Reason^DEA Handling
+ ; Return:  
+ ;    ~Type(1)^PharmID(2)^Drug(3)^InfRate(4)^StopDt(5)^RefRem(6)^
+ ;    TotDose(7)^UnitDose(8)^OrderID(9)^Status(10)^LastFill(11)^
+ ;    Days Supply(12)^Quantity(13)^Chronic(14)^Issued(15)^
+ ;    Rx #(16)^Provider(17)^Status Reason(18)^DEA Handling(19)^
+ ;    Pharmacy Site(20)
  ; 
  N MEDS,MEDS1,MAP
@@ -74 +76 @@
  . S @MAP@("MEDOBJECTID")="MED"_MEDCNT ; MEDCNT FOR ID
  . S @MAP@("MEDISSUEDATETXT")="Issue Date"
- . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^C0CUTIL($P(MEDS(MEDCNT),U,13))
+ . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^C0CUTIL($P(MEDS(MEDCNT),U,15))
  . S @MAP@("MEDLASTFILLDATETXT")="Last Fill Date"
  . S @MAP@("MEDLASTFILLDATE")=$$FMDTOUTC^C0CUTIL($P(MEDS(MEDCNT),U,11))
  . S @MAP@("MEDRXNOTXT")="Prescription Number"
- . S @MAP@("MEDRXNO")=$P(MEDS(MEDCNT),U,14)
+ . S @MAP@("MEDRXNO")=$P(MEDS(MEDCNT),U,16)
  . S @MAP@("MEDTYPETEXT")="Medication"
  . S @MAP@("MEDDETAILUNADORNED")=""  ; Leave blank, field has its uses

ccr/trunk/p/C0CRXNRD.m

@@ -3 +3 @@
  W "No entry from top" Q
  ;
-DELFILED(FN,ERR) ; Delete file data; PEP procedure; READ WARNING
+DELFILED(FN) ; Delete file data; PEP procedure; only for RxNorm files
  ; FN is Filenumber passed by Value
- ; ERR is error info, passed by reference
- ; If ERR is 1, then the operation failed.
- ; WARNING: THIS IS VERY DANGEROUS OPERATION
- ; I DON'T EVEN CHECK THE DEL NODE ON THE FILE!!!!
- ;
+ QUIT:$E(FN,1,3)'=176  ; Quit if not RxNorm files
  D CLEAN^DILF ; Clean FM variables
- N C0CFINFO ; File info
- D FILE^DID(FN,"","GLOBAL NAME","C0CROOT") ; Get file info
- I $D(DIERR) D EN^DDIOL("Error...") S ERR=1 QUIT
- N ROOT2 S ROOT2=C0CROOT("GLOBAL NAME") ; Open global root
- N CLROOT S CLROOT=$$CREF^DILF(ROOT2) ; Closed Root
- N ZERO S ZERO=@CLROOT@(0) ; Save zero node
+ N ROOT S ROOT=$$ROOT^DILFD(FN,"",1) ; global root
+ N ZERO S ZERO=@ROOT@(0) ; Save zero node
  S $P(ZERO,U,3,9999)="" ; Remove entry # and last edited
- K @CLROOT ; Kill the file -- so sad!
- S @CLROOT@(0)=ZERO ; It riseth again!
+ K @ROOT ; Kill the file -- so sad!
+ S @ROOT@(0)=ZERO ; It riseth again!
  QUIT
 GETLINES(PATH,FILENAME) ; Get number of lines in a file
@@ -31 +23 @@
  I PATH="" QUIT
  N FILENAME S FILENAME="RXNCONSO.RRF"
- N ERR
- D DELFILED(176.001,.ERR) ; delete data
- IF $G(ERR) D EN^DDIOL("Couldn't delete file") G EX
+ D DELFILED(176.001) ; delete data
  N LINES S LINES=$$GETLINES(PATH,FILENAME)
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
@@ -72 +62 @@
  I PATH="" QUIT
  N FILENAME S FILENAME="RXNSAT.RRF"
- N ERR
- D DELFILED(176.002,.ERR) ; delete data
- IF $G(ERR) D EN^DDIOL("Couldn't delete file") G EX2
+ D DELFILED(176.002) ; delete data
  N LINES S LINES=$$GETLINES(PATH,FILENAME)
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
@@ -99 +87 @@
  I PATH="" QUIT
  N FILENAME S FILENAME="RXNSAB.RRF"
- N ERR
- D DELFILED(176.003,.ERR) ; delete data
- IF $G(ERR) D EN^DDIOL("Couldn't delete file") G EX2
+ D DELFILED(176.003) ; delete data
  D OPEN^%ZISH("FILE",PATH,FILENAME,"R")
  IF POP W "Error reading file..., Please check...",! G EX3

ccr/trunk/p/C0C_1_0.txt

@@ -113 +113 @@
 
 It is intended that menu interfaces be provided in addition to command line interfaces for all package functions.
-
-
-
-
-