BLRPOVC.m

BLRPOVC ;IHS/ITSC/TPF - PURPOSE OF VISIT COMPLIANCE REPORT [ 01/24/2003  1:11 PM ]

 ;;5.2;LR;**1015**;NOV 18, 2002

 ;

START ;EP

 ;S IOP="HOME"

 ;

 ;GET FROM DATE

FR K DIR

 S DIR(0)="D"

 S DIR("B")="T-1"

 S DIR("A")="Starting ORDER DATE"

 D ^DIR

 Q:$D(DTOUT)!($D(DUOUT))

 S FR=Y

 ;GET TO DATE

TO ;

 K DIR

 S DIR(0)="D"

 S DIR("B")="T"

 S DIR("A")="Ending ORDER DATE"

 D ^DIR

 G:$D(DTOUT)!($D(DUOUT)) FR

 ;

 S TO=Y

 D PRINT

 Q

PRINT S DIC="^LRO(69,",BY="DATE ORDERED"

 S BY="DATE ORDERED"

 S FLDS="[BLR LAB POV COMPLIANCE REPORT]",L=0

 S DIFRTO="?"

 ;S DIS(1)="I $G(D2)'="""",$P($G(^LRO(69,D0,1,D1,2,D2,0)),U,9)'=""CA"""

 D EN1^DIP

 Q

BLRPOVC   ;IHS/ITSC/TPF - PURPOSE OF VISIT COMPLIANCE REPORT [ 01/24/2003  1:11 PM ]

 +1       ;;5.2;LR;**1015**;NOV 18, 2002

 +2       ;

START     ;EP

 +1       ;S IOP="HOME"

 +2       ;

 +3       ;GET FROM DATE

FR         KILL DIR

 +1        SET DIR(0)="D"

 +2        SET DIR("B")="T-1"

 +3        SET DIR("A")="Starting ORDER DATE"

 +4        DO ^DIR

 +5        IF $DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +6        SET FR=Y

 +7       ;GET TO DATE

TO        ;

 +1        KILL DIR

 +2        SET DIR(0)="D"

 +3        SET DIR("B")="T"

 +4        SET DIR("A")="Ending ORDER DATE"

 +5        DO ^DIR

 +6        IF $DATA(DTOUT)!($DATA(DUOUT))

               GOTO FR

 +7       ;

 +8        SET TO=Y

 +9        DO PRINT

 +10       QUIT 

PRINT      SET DIC="^LRO(69,"

           SET BY="DATE ORDERED"

 +1        SET BY="DATE ORDERED"

 +2        SET FLDS="[BLR LAB POV COMPLIANCE REPORT]"

           SET L=0

 +3        SET DIFRTO="?"

 +4       ;S DIS(1)="I $G(D2)'="""",$P($G(^LRO(69,D0,1,D1,2,D2,0)),U,9)'=""CA"""

 +5        DO EN1^DIP

 +6        QUIT