source:
ePrescribing/trunk/p/C0PTEST1.m
Last change on this file was 1595, checked in by , 11 years ago | |
---|---|
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.