BLRRLPST.m

BLRRLPST ;cmi/anch/maw - BLR Reference Lab Post Init 2/27/2007 10:32:52 AM;JUL 06, 2010 3:14 PM

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

 ;;5.2;;;FEB 27,2008;

 ;

 ;

 ;

 ;

EN ;EP - Post Init Entry Point

 D ADDMENU

 D MOVEFLD

 Q

 ;

ADDMENU ;-- add menu items

 N X

 S X=$$ADD^XPDMENU("BLRREFLABMENU","BLR REFLAB PURGE SHIP MANIFEST","PSM",)

 I 'X W !,"Attempt to add BLR REFLAB PURGE SHIP MANIFEST option failed.." H 3

 S X=$$ADD^XPDMENU("BLRREFLABMENU","BLR REFLAB EDIT MC PARAMETERS","SIT")

 I 'X W !,"Attempt to add BLR REFLAB EDIT MC PARAMETERS option failed.." H 3

 Q

 ;

MOVEFLD ;-- move data from fields in BLR REFERENCE LAB to same fields in BLR MASTER CONTROL file

 Q

 ;

BLRRLPST  ;cmi/anch/maw - BLR Reference Lab Post Init 2/27/2007 10:32:52 AM;JUL 06, 2010 3:14 PM

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

 +2       ;;5.2;;;FEB 27,2008;

 +3       ;

 +4       ;

 +5       ;

 +6       ;

EN        ;EP - Post Init Entry Point

 +1        DO ADDMENU

 +2        DO MOVEFLD

 +3        QUIT 

 +4       ;

ADDMENU   ;-- add menu items

 +1        NEW X

 +2        SET X=$$ADD^XPDMENU("BLRREFLABMENU","BLR REFLAB PURGE SHIP MANIFEST","PSM",)

 +3        IF 'X

               WRITE !,"Attempt to add BLR REFLAB PURGE SHIP MANIFEST option failed.."

               HANG 3

 +4        SET X=$$ADD^XPDMENU("BLRREFLABMENU","BLR REFLAB EDIT MC PARAMETERS","SIT")

 +5        IF 'X

               WRITE !,"Attempt to add BLR REFLAB EDIT MC PARAMETERS option failed.."

               HANG 3

 +6        QUIT 

 +7       ;

MOVEFLD   ;-- move data from fields in BLR REFERENCE LAB to same fields in BLR MASTER CONTROL file

 +1        QUIT 

 +2       ;