source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRKR0.m@ 1764

Last change on this file since 1764 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1IBTRKR0 ;ALB/AAS - CLAIMS TRACKING - RANDOM SELECTION BULLETIN ; 13-AUG-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;**23**; 21-MAR-94
3 ;
4BULL ; -- send bulletin
5 ;
6 S XMSUB="UR Random Sample Patient Selection"
7 S IBT(1)="The following Patient has been selected as a UR Random Sample case on "
8 S IBT(1.1)=$$DAT2^IBOUTL($$NOW^XLFDT())_"."
9 S IBT(1.2)=""
10 S IBT(2)=" Patient: "_$P(^DPT(DFN,0),"^")
11 D PID^VADPT
12 S IBT(3)=" Pt. ID: "_VA("PID")
13 S IBT(4)=" Admission Date: "_$P(VAIN(7),"^",2)_" ("_VAIN(1)_")"
14 S IBT(4.1)=" CT Entry ID: "_$P($G(^IBT(356,+IBTRN,0)),"^")
15 ;
16 S IBT(4.5)=""
17 S IBT(5)=" Specialty: "_$P(VAIN(3),"^",2)
18 S SVC=$P($G(^DIC(42.4,+$P($G(^DIC(45.7,+VAIN(3),0)),"^",2),0)),"^",3)
19 S IBT(6)=" Service: "_$$EXPAND^IBTRE(42.4,3,SVC)
20 ;
21 S IBT(7)=""
22 S IBT(9)=" Ward Location: "_$S($D(^DIC(42,+$P(DGPMA,"^",6),0)):$P(^(0),"^",1),1:"UNKNOWN")
23 S IBT(10)=" Room-Bed: "_$S($D(^DG(405.4,+$P(DGPMA,"^",7),0)):$P(^(0),"^",1),1:"UNKNOWN")
24 ;
25 S IBT(11)=" Admitting DX: "_$P(DGPMA,"^",10)
26 S IBT(12)=" Type of Admit: "_$S($D(^DG(405.1,+$P(DGPMA,"^",4),0)):$P(^(0),"^",1),1:"")
27 S IBT(13)=""
28 S IBT(14)=" Insured: "_$S($$INSURED^IBCNS1(DFN):"YES",1:"NO")
29 D SEND
30BULLQ Q
31 ;
32SEND S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("
33 K XMY S XMN=0
34 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
35 S XMY("G.DGPM UR ADMISSION")="" ; pass mailgroup
36 D ^XMD
37SENDQ K X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY,XMSUB,DGPMX
38 Q
Note: See TracBrowser for help on using the repository browser.