BLRVLABD.m

BLRVLABD ; IHS/MSC/MKK - Display V LAB Data ;   [02/15/2012 ]

 ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997

 ;

EEP ; EP

 D EEP^BLRGMENU

 Q

 ;

PEP ; EP

EP ; EP

 NEW IEN

 NEW HD1,HEADER,LINES,MAXLINES,QFLG

 ;

 S IEN=99

 F  Q:IEN<1  D

 . D HEADIENI

 . D ^XBFMK

 . S DIR(0)="NO"

 . S DIR("A")="V LAB IEN"

 . D ^DIR

 . S IEN=+$G(Y)

 . I IEN<1 D  Q

 .. W !,?4,"Invalid/No Entry.  Routine Ends."

 .. D PRESSKEY^BLRGMENU(9)

 . ;

 . D HEADDISP

 . D ^XBFMK

 . S DIC="^AUPNVLAB(",DA=IEN,DIQ(0)="R"

 . D EN^DIQ

 . W:+$G(Y)=IEN !!,?4,"No Data exists for V LAB IEN: ",IEN,!

 . D PRESSKEY^BLRGMENU(9)

 ;

 Q

 ;

HEADIENI ; EP

 K HEADER

 S HEADER(1)="V LAB Data Display"

 S HEADER(2)="IEN Entry"

 ;

 D HEADERDT^BLRGMENU

 Q

 ;

HEADDISP ; EP

 K HEADER(2)

 ;

 D HEADERDT^BLRGMENU

 Q

BLRVLABD  ; IHS/MSC/MKK - Display V LAB Data ;   [02/15/2012 ]

 +1       ;;5.2;IHS LABORATORY;**1031**;NOV 01, 1997

 +2       ;

EEP       ; EP

 +1        DO EEP^BLRGMENU

 +2        QUIT 

 +3       ;

PEP       ; EP

EP        ; EP

 +1        NEW IEN

 +2        NEW HD1,HEADER,LINES,MAXLINES,QFLG

 +3       ;

 +4        SET IEN=99

 +5        FOR 

               IF IEN<1

                   QUIT 

               Begin DoDot:1

 +6                DO HEADIENI

 +7                DO ^XBFMK

 +8                SET DIR(0)="NO"

 +9                SET DIR("A")="V LAB IEN"

 +10               DO ^DIR

 +11               SET IEN=+$GET(Y)

 +12               IF IEN<1

                       Begin DoDot:2

 +13                       WRITE !,?4,"Invalid/No Entry.  Routine Ends."

 +14                       DO PRESSKEY^BLRGMENU(9)

                       End DoDot:2

                       QUIT 

 +15      ;

 +16               DO HEADDISP

 +17               DO ^XBFMK

 +18               SET DIC="^AUPNVLAB("

                   SET DA=IEN

                   SET DIQ(0)="R"

 +19               DO EN^DIQ

 +20               IF +$GET(Y)=IEN

                       WRITE !!,?4,"No Data exists for V LAB IEN: ",IEN,!

 +21               DO PRESSKEY^BLRGMENU(9)

               End DoDot:1

 +22      ;

 +23       QUIT 

 +24      ;

HEADIENI  ; EP

 +1        KILL HEADER

 +2        SET HEADER(1)="V LAB Data Display"

 +3        SET HEADER(2)="IEN Entry"

 +4       ;

 +5        DO HEADERDT^BLRGMENU

 +6        QUIT 

 +7       ;

HEADDISP  ; EP

 +1        KILL HEADER(2)

 +2       ;

 +3        DO HEADERDT^BLRGMENU

 +4        QUIT