| Rev | Line | |
|---|
| [1431] | 1 | KBANCLN ; WV/SMH - Jordan Drug File Clean-up; 5/16/12 1:18pm
|
|---|
| 2 | N KBANFDA
|
|---|
| 3 | N KBANIEN S KBANIEN=0
|
|---|
| 4 | ; Loop through Drug File (no indexes)
|
|---|
| 5 | F S KBANIEN=$O(^PSDRUG(KBANIEN)) Q:'+KBANIEN DO
|
|---|
| 6 | . W KBANIEN
|
|---|
| 7 | . W " "
|
|---|
| 8 | . ; Remove Arabic Local Possible Dossages
|
|---|
| 9 | . N KBANLD S KBANLD=0
|
|---|
| 10 | . F S KBANLD=$O(^PSDRUG(KBANIEN,"DOS2",KBANLD)) Q:'+KBANLD S KBANFDA(50.0904,KBANLD_","_KBANIEN_",",3)="@"
|
|---|
| 11 | . ; Remove ATC Ward Groups
|
|---|
| 12 | . N KBANATC S KBANATC=0
|
|---|
| 13 | . F S KBANATC=$O(^PSDRUG(KBANIEN,212,KBANATC)) Q:'+KBANATC S KBANFDA(50.0212,KBANATC_","_KBANIEN_",",.01)="@"
|
|---|
| 14 | . ; Remove IFCAP item pointers
|
|---|
| 15 | . N IFCAP S IFCAP=0
|
|---|
| 16 | . F S IFCAP=$O(^PSDRUG(KBANIEN,441,IFCAP)) Q:'+IFCAP S KBANFDA(50.0441,IFCAP_","_KBANIEN_",",.01)="@"
|
|---|
| 17 | N ERR
|
|---|
| 18 | ; Delete!
|
|---|
| 19 | D FILE^DIE("","KBANFDA","ERR")
|
|---|
| 20 | ZWRITE:$D(ERR) ERR
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
