BQIUG1.m

BQIUG1 ;PRXM/HC/DB - iCare GUI Utilities ; 17 Oct 2005  3:17 PM

 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

 ; This is a utility program containing special function calls

 ; needed to support the iCare GUI.

 Q

 ;

PLID(OWNR,PLIEN) ;EP - Panel Identifier for the GUI

 ;

 ;Description

 ;  Returns a unique identifier for the panel using the following algorithm:

 ;            the OWNER_IEN concatenated with the PANEL_IEN

 ;            padded out to 4 with leading zeroes.

 ;Input:

 ;  OWNR  - Owner internal entry number

 ;  PLIEN - Panel internal entry number

 ;Output:

 ;  PLID - Unique Panel identifier

 ;

 N PLID

 I $G(OWNR)="" Q ""

 I $G(PLIEN)="" Q ""

 ;

 S PLID=OWNR_$E("0000",1,4-$L(PLIEN))_PLIEN

 Q PLID

BQIUG1    ;PRXM/HC/DB - iCare GUI Utilities ; 17 Oct 2005  3:17 PM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

 +3       ; This is a utility program containing special function calls

 +4       ; needed to support the iCare GUI.

 +5        QUIT 

 +6       ;

PLID(OWNR,PLIEN) ;EP - Panel Identifier for the GUI

 +1       ;

 +2       ;Description

 +3       ;  Returns a unique identifier for the panel using the following algorithm:

 +4       ;            the OWNER_IEN concatenated with the PANEL_IEN

 +5       ;            padded out to 4 with leading zeroes.

 +6       ;Input:

 +7       ;  OWNR  - Owner internal entry number

 +8       ;  PLIEN - Panel internal entry number

 +9       ;Output:

 +10      ;  PLID - Unique Panel identifier

 +11      ;

 +12       NEW PLID

 +13       IF $GET(OWNR)=""

               QUIT ""

 +14       IF $GET(PLIEN)=""

               QUIT ""

 +15      ;

 +16       SET PLID=OWNR_$EXTRACT("0000",1,4-$LENGTH(PLIEN))_PLIEN

 +17       QUIT PLID