source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWUH.m@ 1552

Last change on this file since 1552 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 351 bytes
Line 
1ORWUH ; SLC/KCM - Help Utilities
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3 ;
4POPUP(LST,CTRL) ; Get instructions for a given control
5 ; ERROR
6 N TMP,I,ILST
7 D GETWP^XPAR(.TMP,"PKG","ORWUH WHATSTHIS",CTRL,.ERR)
8 S ILST=1,LST(1)=$G(TMP)
9 S I=0 F S I=$O(TMP(I)) Q:'I S ILST=ILST+1,LST(ILST)=TMP(I,0)
10 I ERR ; Generate an error of some sort
11 Q
Note: See TracBrowser for help on using the repository browser.