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 ---[H[J[2J[HPSB3P42 534 printed Nov 22, 2024@16:50:03 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
