source:
ePrescribing/trunk/p/C0PTEST1.m
Last change on this file was 1595, checked in by , 12 years ago | |
---|---|
File size: 387 bytes |
Rev | Line | |
---|---|---|
[1595] | 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.