BQIRGHQC.m

BQIRGHQC ;GDIT/HS/ALA-HMS QOC ; 26 Jun 2014  7:49 AM

 ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 ;

 ;

SSX(BQDFN) ;EP

 NEW LAST

 S LAST=""

 D PTEDTAX^BKMIXX1(BQDFN,"BKM SAFE SEX ED CODES","","","",.LAST)

 I LAST'="" S LAST=LAST\1

 Q $$FMTMDY^BQIUL1(LAST)

 ;

ADVD(BQDFN) ;EP

 NEW N,TEXT

 I $G(^AUPNADVD(BQDFN,0))="" Q "NONE"

 S N=0,TEXT=""

 F  S N=$O(^AUPNADVD(BQDFN,11,N)) Q:'N  D

 . I $P(^AUPNADVD(BQDFN,11,N,0),U,2)'="Y" Q

 . NEW DA,IENS

 . S DA(1)=BQDFN,DA=N,IENS=$$IENS^DILF(.DA)

 . S TEXT=TEXT_$$GET1^DIQ(9000040.11,IENS,.03,"E")_" ("_$$FMTMDY^BQIUL1($$GET1^DIQ(9000040.11,IENS,.01,"I")\1)_")"_$C(10)_$C(13)

 I TEXT="" Q "NONE"

 Q $$TKO^BQIUL1(TEXT,$C(10)_$C(13))

BQIRGHQC  ;GDIT/HS/ALA-HMS QOC ; 26 Jun 2014  7:49 AM

 +1       ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 +2       ;

 +3       ;

SSX(BQDFN) ;EP

 +1        NEW LAST

 +2        SET LAST=""

 +3        DO PTEDTAX^BKMIXX1(BQDFN,"BKM SAFE SEX ED CODES","","","",.LAST)

 +4        IF LAST'=""

               SET LAST=LAST\1

 +5        QUIT $$FMTMDY^BQIUL1(LAST)

 +6       ;

ADVD(BQDFN) ;EP

 +1        NEW N,TEXT

 +2        IF $GET(^AUPNADVD(BQDFN,0))=""

               QUIT "NONE"

 +3        SET N=0

           SET TEXT=""

 +4        FOR 

               SET N=$ORDER(^AUPNADVD(BQDFN,11,N))

               IF 'N

                   QUIT 

               Begin DoDot:1

 +5                IF $PIECE(^AUPNADVD(BQDFN,11,N,0),U,2)'="Y"

                       QUIT 

 +6                NEW DA,IENS

 +7                SET DA(1)=BQDFN

                   SET DA=N

                   SET IENS=$$IENS^DILF(.DA)

 +8                SET TEXT=TEXT_$$GET1^DIQ(9000040.11,IENS,.03,"E")_" ("_$$FMTMDY^BQIUL1($$GET1^DIQ(9000040.11,IENS,.01,"I")\1)_")"_$CHAR(10)_$CHAR(13)

               End DoDot:1

 +9        IF TEXT=""

               QUIT "NONE"

 +10       QUIT $$TKO^BQIUL1(TEXT,$CHAR(10)_$CHAR(13))