|
Last change
on this file since 1680 was 1595, checked in by George Lilly, 12 years ago |
|
initial release of ePrescribing
|
|
File size:
387 bytes
|
| Line | |
|---|
| 1 | C0PTEST1 ; VEN/SMH - Scratch routine for testing ; 12/6/09 9:54pm
|
|---|
| 2 | ;;0.1;C0P;nopatch;noreleasedate
|
|---|
| 3 | Q
|
|---|
| 4 | ; The stuff below is to walk through all entries and test test test
|
|---|
| 5 | T0
|
|---|
| 6 | D WALK^DICW(1130590010,"W DICWIENS,!")
|
|---|
| 7 | Q
|
|---|
| 8 | T1
|
|---|
| 9 | ; dicwiens
|
|---|
| 10 | ; DICWHEAD
|
|---|
| 11 | D WALK^DICW(1130590010,"W $$GCN^C0PLKUP($P(^(0),U)),!")
|
|---|
| 12 | Q
|
|---|
| 13 | T2
|
|---|
| 14 | D WALK^DICW(1130590010,"W:+DICWIENS<1000 $$RXNCUI^C0PLKUP($P(^(0),U,2)),!")
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
