| [613] | 1 | PSUAMC ;BIR/DAM - Combined AMIS Summary Report:21 APR 2004
|
|---|
| 2 | ;;4.0;PHARMACY BENEFITS MANAGEMENT;**9**;MARCH, 2005;Build 6
|
|---|
| 3 | ;
|
|---|
| 4 | ;This routine creates a combined AMIS summary report when
|
|---|
| 5 | ;the following extracts are run either by the automatic
|
|---|
| 6 | ;monthly extract or manual selection
|
|---|
| 7 | ; 1. IV extract
|
|---|
| 8 | ; 2. UD extract
|
|---|
| 9 | ; 3. AR/WS extract
|
|---|
| 10 | ; 4. Prescription extract
|
|---|
| 11 | ; 6. CS extract
|
|---|
| 12 | ;
|
|---|
| 13 | ;
|
|---|
| 14 | EN ;Entry point. Called from ^PSUCSR2
|
|---|
| 15 | ;
|
|---|
| 16 | K AMIS
|
|---|
| 17 | ;
|
|---|
| 18 | S Y=PSUSDT\1 X ^DD("DD") S PSUDTS=Y ; start date
|
|---|
| 19 | S Y=PSUEDT\1 X ^DD("DD") S PSUDTE=Y ; end date
|
|---|
| 20 | ; * PSU*4*9 - RESET THE PARENT FACILITY
|
|---|
| 21 | S X=PSUSNDR,DIC=40.8,DIC(0)="X",D="C" D IX^DIC
|
|---|
| 22 | K DIC,DIC(0),D
|
|---|
| 23 | S X=+Y S PSUDIVNM=$$VAL^PSUTL(40.8,X,.01)
|
|---|
| 24 | ;
|
|---|
| 25 | S AMIS(1,1)="Monthly AMIS Summary for "_PSUDTS_" through "_PSUDTE_" for "_PSUDIVNM
|
|---|
| 26 | S AMIS(1,2)=""
|
|---|
| 27 | S AMIS(1,3)=""
|
|---|
| 28 | ;
|
|---|
| 29 | M AMIS(2)=^XTMP("PSU_"_PSUJOB,"OPCOMBO")
|
|---|
| 30 | ;
|
|---|
| 31 | M AMIS(3)=^XTMP("PSU_"_PSUJOB,"UDCOMBO")
|
|---|
| 32 | ;
|
|---|
| 33 | M AMIS(4)=^XTMP("PSU_"_PSUJOB,"ARCOMBO")
|
|---|
| 34 | ;
|
|---|
| 35 | M AMIS(5)=^XTMP("PSU_"_PSUJOB,"CSCOMBO")
|
|---|
| 36 | ;
|
|---|
| 37 | M AMIS(6)=^XTMP("PSU_"_PSUJOB,"IVCOMBO")
|
|---|
| 38 | ;
|
|---|
| 39 | ;Reorganize AMIS array
|
|---|
| 40 | S C=1
|
|---|
| 41 | S PSUCT=0
|
|---|
| 42 | F S PSUCT=$O(AMIS(PSUCT)) Q:PSUCT="" D
|
|---|
| 43 | .S PSULN=0
|
|---|
| 44 | .F S PSULN=$O(AMIS(PSUCT,PSULN)) Q:PSULN="" D
|
|---|
| 45 | ..S AMIS(C)=AMIS(PSUCT,PSULN)
|
|---|
| 46 | ..S C=C+1
|
|---|
| 47 | ;
|
|---|
| 48 | D MAIL
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | MAIL ;Mail combo message
|
|---|
| 52 | ;
|
|---|
| 53 | S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1) ;Facility #
|
|---|
| 54 | S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2) ;Facility name
|
|---|
| 55 | ;
|
|---|
| 56 | S XMSUB="V. 4.0 PBMAMIS "_PSUMON_" "_PSUST_" "_PSUSTNM
|
|---|
| 57 | S XMTEXT="AMIS("
|
|---|
| 58 | M ^XTMP("PSU_"_PSUJOB,"COMBOAMIS")=AMIS
|
|---|
| 59 | S XMCHAN=1
|
|---|
| 60 | M XMY=PSUXMYS2
|
|---|
| 61 | D ^XMD
|
|---|
| 62 | ;
|
|---|
| 63 | Q
|
|---|
