source: ePrescribing/trunk/p/C0PTEST1.m@ 1629

Last change on this file since 1629 was 1595, checked in by George Lilly, 12 years ago

initial release of ePrescribing

File size: 387 bytes
Line 
1C0PTEST1 ; 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
5T0
6 D WALK^DICW(1130590010,"W DICWIENS,!")
7 Q
8T1
9 ; dicwiens
10 ; DICWHEAD
11 D WALK^DICW(1130590010,"W $$GCN^C0PLKUP($P(^(0),U)),!")
12 Q
13T2
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.