PSJ327P.m

PSJ327P ; NCC/MIR - NCC POST INSTALL;10 May 2019 16:19:28

 ;;5.0;INPATIENT MEDICATIONS ;**327**;01 DEC 15;Build 114

 ;

ADDMENUS ; Add new menu items to the main one

 N RES

 S RES=$$ADD^XPDMENU("PSJL MANAGER","PSOL REGISTER PATIENT","",1)

 S RES=$$ADD^XPDMENU("PSJL MANAGER","PSJLAB LIST","",2)

 S RES=$$ADD^XPDMENU("PSJL MANAGER","PSJLIST OVERRIDES","",3)

 S RES=$$ADD^XPDMENU("PSJL MANAGER","PSOL EDIT","",4)

 ;

 S RES=$$ADD^XPDMENU("PSJU MGR","PSJL MANAGER","",2.98)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSJ327P   484     printed  Sep 23, 2025@19:42                                                                                                                                                                                                         Page 2

PSJ327P   ; NCC/MIR - NCC POST INSTALL;10 May 2019 16:19:28

 +1       ;;5.0;INPATIENT MEDICATIONS ;**327**;01 DEC 15;Build 114

 +2       ;

ADDMENUS  ; Add new menu items to the main one

 +1        NEW RES

 +2        SET RES=$$ADD^XPDMENU("PSJL MANAGER","PSOL REGISTER PATIENT","",1)

 +3        SET RES=$$ADD^XPDMENU("PSJL MANAGER","PSJLAB LIST","",2)

 +4        SET RES=$$ADD^XPDMENU("PSJL MANAGER","PSJLIST OVERRIDES","",3)

 +5        SET RES=$$ADD^XPDMENU("PSJL MANAGER","PSOL EDIT","",4)

 +6       ;

 +7        SET RES=$$ADD^XPDMENU("PSJU MGR","PSJL MANAGER","",2.98)

 +8        QUIT