ORWUH.m

ORWUH ; SLC/KCM - Help Utilities

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

 ;

POPUP(LST,CTRL) ; Get instructions for a given control

 ; ERROR

 N TMP,I,ILST

 D GETWP^XPAR(.TMP,"PKG","ORWUH WHATSTHIS",CTRL,.ERR)

 S ILST=1,LST(1)=$G(TMP)

 S I=0 F  S I=$O(TMP(I)) Q:'I  S ILST=ILST+1,LST(ILST)=TMP(I,0)

 I ERR ; Generate an error of some sort

 Q

ORWUH     ; SLC/KCM - Help Utilities

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

 +2       ;

POPUP(LST,CTRL) ; Get instructions for a given control

 +1       ; ERROR

 +2        NEW TMP,I,ILST

 +3        DO GETWP^XPAR(.TMP,"PKG","ORWUH WHATSTHIS",CTRL,.ERR)

 +4        SET ILST=1

           SET LST(1)=$GET(TMP)

 +5        SET I=0

           FOR 

               SET I=$ORDER(TMP(I))

               IF 'I

                   QUIT 

               SET ILST=ILST+1

               SET LST(ILST)=TMP(I,0)

 +6       ; Generate an error of some sort

           IF ERR

 +7        QUIT