AZQBMC.m

AZQBMC ; IHS/PHXAO/TMJ - Auto Print of Laguna Tribe Referrals [ 04/24/01  4:55 PM ]

 ;;1.0;REFERRED CARE INFO SYSTEM;;April 25, 2001

 ;

 ;

 ;

 ;

BD ;get beginning date

 ;

 S BMCSTRT=DT-7

 S BMCSTRT=$$FMTE^XLFDT(BMCSTRT,"2P")

 ;

 S BMCBD=BMCSTRT

ED ;get ending date

 ;

 S BMCEND=DT S BMCEND=$$FMTE^XLFDT(BMCEND,"2P")

 S BMCED=BMCEND

 ;

 ;

 ;

 ;

PRINT ;PRINT CHS REFERRALS FOR LAGUNA TRIBE - LAST 7 DAYS

 ;

 S FLDS="[AZQBMC PRINT]",BY="@#.01,INTERNAL(#.04)=""C"",PATIENT:TRIBE OF MEMBERSHIP:CODE=""081""",DIC="^BMCREF(",L=0

 S FR=BMCBD,TO=BMCED

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K BMCBD,BMCED,X,DD0,B Q

AZQBMC    ; IHS/PHXAO/TMJ - Auto Print of Laguna Tribe Referrals [ 04/24/01  4:55 PM ]

 +1       ;;1.0;REFERRED CARE INFO SYSTEM;;April 25, 2001

 +2       ;

 +3       ;

 +4       ;

 +5       ;

BD        ;get beginning date

 +1       ;

 +2        SET BMCSTRT=DT-7

 +3        SET BMCSTRT=$$FMTE^XLFDT(BMCSTRT,"2P")

 +4       ;

 +5        SET BMCBD=BMCSTRT

ED        ;get ending date

 +1       ;

 +2        SET BMCEND=DT

           SET BMCEND=$$FMTE^XLFDT(BMCEND,"2P")

 +3        SET BMCED=BMCEND

 +4       ;

 +5       ;

 +6       ;

 +7       ;

PRINT     ;PRINT CHS REFERRALS FOR LAGUNA TRIBE - LAST 7 DAYS

 +1       ;

 +2        SET FLDS="[AZQBMC PRINT]"

           SET BY="@#.01,INTERNAL(#.04)=""C"",PATIENT:TRIBE OF MEMBERSHIP:CODE=""081"""

           SET DIC="^BMCREF("

           SET L=0

 +3        SET FR=BMCBD

           SET TO=BMCED

 +4        KILL DHIT,DIOEND,DIOBEG

 +5        DO EN1^DIP

END       ;

 +1        KILL BMCBD,BMCED,X,DD0,B

           QUIT