IBTRKR0.m

IBTRKR0 ;ALB/AAS - CLAIMS TRACKING - RANDOM SELECTION BULLETIN ; 13-AUG-93

 ;;Version 2.0 ; INTEGRATED BILLING ;**23**; 21-MAR-94

 ;

BULL ; -- send bulletin

 ;

 S XMSUB="UR Random Sample Patient Selection"

 S IBT(1)="The following Patient has been selected as a UR Random Sample case on "

 S IBT(1.1)=$$DAT2^IBOUTL($$NOW^XLFDT())_"."

 S IBT(1.2)=""

 S IBT(2)="        Patient: "_$P(^DPT(DFN,0),"^")

 D PID^VADPT

 S IBT(3)="         Pt. ID: "_VA("PID")

 S IBT(4)=" Admission Date: "_$P(VAIN(7),"^",2)_"   ("_VAIN(1)_")"

 S IBT(4.1)="    CT Entry ID: "_$P($G(^IBT(356,+IBTRN,0)),"^")

 ;

 S IBT(4.5)=""

 S IBT(5)="      Specialty: "_$P(VAIN(3),"^",2)

 S SVC=$P($G(^DIC(42.4,+$P($G(^DIC(45.7,+VAIN(3),0)),"^",2),0)),"^",3)

 S IBT(6)="        Service: "_$$EXPAND^IBTRE(42.4,3,SVC)

 ;

 S IBT(7)=""

 S IBT(9)="  Ward Location: "_$S($D(^DIC(42,+$P(DGPMA,"^",6),0)):$P(^(0),"^",1),1:"UNKNOWN")

 S IBT(10)="       Room-Bed: "_$S($D(^DG(405.4,+$P(DGPMA,"^",7),0)):$P(^(0),"^",1),1:"UNKNOWN")

 ;

 S IBT(11)="   Admitting DX: "_$P(DGPMA,"^",10)

 S IBT(12)="  Type of Admit: "_$S($D(^DG(405.1,+$P(DGPMA,"^",4),0)):$P(^(0),"^",1),1:"")

 S IBT(13)=""

 S IBT(14)="        Insured: "_$S($$INSURED^IBCNS1(DFN):"YES",1:"NO")

 D SEND

BULLQ Q

 ;

SEND S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("

 K XMY S XMN=0

 S DGPMX=$O(^XMB(3.8,"B","DGPM UR ADMISSION",0)) I '$O(^XMB(3.8,+DGPMX,1,0)) G SENDQ ; if no mailgroup members, quit

 S XMY("G.DGPM UR ADMISSION")="" ; pass mailgroup

 D ^XMD

SENDQ K X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY,XMSUB,DGPMX

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBTRKR0   1566     printed  Apr 09, 2024@21:21:32                                                                                                                                                                                                     Page 2

IBTRKR0   ;ALB/AAS - CLAIMS TRACKING - RANDOM SELECTION BULLETIN ; 13-AUG-93

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;**23**; 21-MAR-94

 +2       ;

BULL      ; -- send bulletin

 +1       ;

 +2        SET XMSUB="UR Random Sample Patient Selection"

 +3        SET IBT(1)="The following Patient has been selected as a UR Random Sample case on "

 +4        SET IBT(1.1)=$$DAT2^IBOUTL($$NOW^XLFDT())_"."

 +5        SET IBT(1.2)=""

 +6        SET IBT(2)="        Patient: "_$PIECE(^DPT(DFN,0),"^")

 +7        DO PID^VADPT

 +8        SET IBT(3)="         Pt. ID: "_VA("PID")

 +9        SET IBT(4)=" Admission Date: "_$PIECE(VAIN(7),"^",2)_"   ("_VAIN(1)_")"

 +10       SET IBT(4.1)="    CT Entry ID: "_$PIECE($GET(^IBT(356,+IBTRN,0)),"^")

 +11      ;

 +12       SET IBT(4.5)=""

 +13       SET IBT(5)="      Specialty: "_$PIECE(VAIN(3),"^",2)

 +14       SET SVC=$PIECE($GET(^DIC(42.4,+$PIECE($GET(^DIC(45.7,+VAIN(3),0)),"^",2),0)),"^",3)

 +15       SET IBT(6)="        Service: "_$$EXPAND^IBTRE(42.4,3,SVC)

 +16      ;

 +17       SET IBT(7)=""

 +18       SET IBT(9)="  Ward Location: "_$SELECT($DATA(^DIC(42,+$PIECE(DGPMA,"^",6),0)):$PIECE(^(0),"^",1),1:"UNKNOWN")

 +19       SET IBT(10)="       Room-Bed: "_$SELECT($DATA(^DG(405.4,+$PIECE(DGPMA,"^",7),0)):$PIECE(^(0),"^",1),1:"UNKNOWN")

 +20      ;

 +21       SET IBT(11)="   Admitting DX: "_$PIECE(DGPMA,"^",10)

 +22       SET IBT(12)="  Type of Admit: "_$SELECT($DATA(^DG(405.1,+$PIECE(DGPMA,"^",4),0)):$PIECE(^(0),"^",1),1:"")

 +23       SET IBT(13)=""

 +24       SET IBT(14)="        Insured: "_$SELECT($$INSURED^IBCNS1(DFN):"YES",1:"NO")

 +25       DO SEND

BULLQ      QUIT 

 +1       ;

SEND       SET XMDUZ="INTEGRATED BILLING PACKAGE"

           SET XMTEXT="IBT("

 +1        KILL XMY

           SET XMN=0

 +2       ; if no mailgroup members, quit

           SET DGPMX=$ORDER(^XMB(3.8,"B","DGPM UR ADMISSION",0))

           IF '$ORDER(^XMB(3.8,+DGPMX,1,0))

               GOTO SENDQ

 +3       ; pass mailgroup

           SET XMY("G.DGPM UR ADMISSION")=""

 +4        DO ^XMD

SENDQ      KILL X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY,XMSUB,DGPMX

 +1        QUIT