Changeset 1336 for ccr/trunk/p/C0CRXNRD.m

Timestamp:

Jan 4, 2012, 9:39:08 PM (12 years ago)

Author:

George Lilly

Message:

removed tabs

File:

• ccr/trunk/p/C0CRXNRD.m (modified) (4 diffs)

ccr/trunk/p/C0CRXNRD.m

@@ -41 +41 @@
  . I '(C0CCOUNT#1000) U $P W C0CCOUNT," of ",LINES," read ",! U IO ; update every 1000
  . N RXCUI,RXAUI,SAB,TTY,CODE,STR  ; Fileman fields numbers below
- . S RXCUI=$P(LINE,"|",1)       ; .01
- . S RXAUI=$P(LINE,"|",8)       ; 1
- . S SAB=$P(LINE,"|",12)        ; 2
+ . S RXCUI=$P(LINE,"|",1) ; .01
+ . S RXAUI=$P(LINE,"|",8) ; 1
+ . S SAB=$P(LINE,"|",12) ; 2
  . ; If the source is a restricted source, decide what to do based on what's asked.
  . N SRCIEN S SRCIEN=$$FIND1^DIC(176.003,"","QX",SAB,"B") ; SrcIEN in RXNORM SOURCES file
@@ -50 +50 @@
  . ; If user didn't ask to include restricted sources, and the source is restricted, then quit
  . I 'INCRES,RESTRIC QUIT
- . S TTY=$P(LINE,"|",13)        ; 3
- . S CODE=$P(LINE,"|",14)       ; 4
- . S STR=$P(LINE,"|",15)        ; 5
+ . S TTY=$P(LINE,"|",13) ; 3
+ . S CODE=$P(LINE,"|",14) ; 4
+ . S STR=$P(LINE,"|",15) ; 5
  . ; Remove embedded "^"
  . S STR=$TR(STR,"^")
@@ -88 +88 @@
  . ; Otherwise, we are good to go
  . N RXCUI,NDC ; Fileman fields below
- . S RXCUI=$P(LINE,"|",1)       ; .01
- . S NDC=$P(LINE,"|",11)        ; 2
+ . S RXCUI=$P(LINE,"|",1) ; .01
+ . S NDC=$P(LINE,"|",11) ; 2
  . ; Using classic call to update.
  . N DIC,X,DA,DR
@@ -117 +117 @@
  . S SF=$P(LINE,"|",6)          ; 6
  . S SVER=$P(LINE,"|",7)        ; 7
- . S SRL=$P(LINE,"|",14)                ; 14
+ . S SRL=$P(LINE,"|",14)  ; 14
  . S SCIT=$P(LINE,"|",25)       ; 25
  . ; Remove embedded "^"