PSB3P42.m

PSB3P42 ;BIRMINGHAM/GN - POST INSTALL FOR P242 ;7/8/10 12:48pm

 ;;3.0;BAR CODE MED ADMIN;**42**;Mar 2004;Build 23

 ;

 ; Update XPAR System parameter PSB PATIENT ID LABEL

 ;

 ; If AGENCY CODE = "I" & SYS variable = Null then set to "HRN".

 ; If AGENCY CODE '="I" then set to "SSN".

 ;

BEGIN ;

 D INITSYS("PSB PATIENT ID LABEL")

 Q

 ;

INITSYS(NAM) ; Initialize SYS value if not already populated

 I $G(DUZ("AG"))="I" D  Q

 . Q:$$GET^XPAR("SYS",NAM)'=""

 . D EN^XPAR("SYS",NAM,1,"HRN")

 D EN^XPAR("SYS",NAM,1,"SSN")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSB3P42   534     printed  Mar 13, 2025@20:44:30                                                                                                                                                                                                      Page 2

PSB3P42   ;BIRMINGHAM/GN - POST INSTALL FOR P242 ;7/8/10 12:48pm

 +1       ;;3.0;BAR CODE MED ADMIN;**42**;Mar 2004;Build 23

 +2       ;

 +3       ; Update XPAR System parameter PSB PATIENT ID LABEL

 +4       ;

 +5       ; If AGENCY CODE = "I" & SYS variable = Null then set to "HRN".

 +6       ; If AGENCY CODE '="I" then set to "SSN".

 +7       ;

BEGIN     ;

 +1        DO INITSYS("PSB PATIENT ID LABEL")

 +2        QUIT 

 +3       ;

INITSYS(NAM) ; Initialize SYS value if not already populated

 +1        IF $GET(DUZ("AG"))="I"

               Begin DoDot:1

 +2                if $$GET^XPAR("SYS",NAM)'=""

                       QUIT 

 +3                DO EN^XPAR("SYS",NAM,1,"HRN")

               End DoDot:1

               QUIT 

 +4        DO EN^XPAR("SYS",NAM,1,"SSN")

 +5        QUIT