AMHVAG1.m

AMHVAG1 ; IHS/CMI/LAB - PATIENT DATA VIEW ;

 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 ;IHS/ANMC/LJF 2/13/97

 ; -- copy of AGSEENLY with patient defined for browse call

 ;

 D ^AGVAR

L1 ;D ^AG W !!!?27,"Patient Data View System",!!

 ;D PTLK^AG

 I $D(DFN) S AGSEENLY="",AGPAGE=1 G L5

L2 K AG,AGSEENLY,DIC,AG("LKDATA"),AG("LKERR"),AG("LKPRINT"),AGPAGE

 Q

L5 ;D @($P($T(@AGPAGE),";;",2)) W:$Y<7 !?32,"NONE..." X AGLINE("EQ") W !?32,"Press RETURN  " D READ^AGED1

 D @($P($T(@AGPAGE),";;",2)) W:$Y<7 !?32,"NONE..."

 F I=1:1 Q:($Y#20=0)  W !

 ;X AGLINE("EQ")

 ;G L1:$D(DTOUT)!$D(DFOUT)

 ;I $D(DUOUT) S AGPAGE=AGPAGE-1 G L5:AGPAGE>0,L1

 ;I $D(AG("ED")) S AGPAGE=AG("ED") G L5

 S AGPAGE=AGPAGE+1 G L5:AGPAGE<14,L2

1 ;;^AGED1

2 ;;DRAW^AGED2

3 ;;DRAW^AGED3

4 ;;^AGED4

5 ;;^AGED5

6 ;;DRAW^AGED6

7 ;;^AGSEE7

8 ;;DRAW^AGED8

9 ;;DRAW^AGED9

10 ;;DRAW^AGED10

11 ;;DRAW^AGED11

12 ;;DRAW^AGED12

13 ;;DRAW^AGED13

AMHVAG1   ; IHS/CMI/LAB - PATIENT DATA VIEW ;

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010

 +2       ;IHS/ANMC/LJF 2/13/97

 +3       ; -- copy of AGSEENLY with patient defined for browse call

 +4       ;

 +5        DO ^AGVAR

L1        ;D ^AG W !!!?27,"Patient Data View System",!!

 +1       ;D PTLK^AG

 +2        IF $DATA(DFN)

               SET AGSEENLY=""

               SET AGPAGE=1

               GOTO L5

L2         KILL AG,AGSEENLY,DIC,AG("LKDATA"),AG("LKERR"),AG("LKPRINT"),AGPAGE

 +1        QUIT 

L5        ;D @($P($T(@AGPAGE),";;",2)) W:$Y<7 !?32,"NONE..." X AGLINE("EQ") W !?32,"Press RETURN  " D READ^AGED1

 +1        DO @($PIECE($TEXT(@AGPAGE),";;",2))

           IF $Y<7

               WRITE !?32,"NONE..."

 +2        FOR I=1:1

               IF ($Y#20=0)

                   QUIT 

               WRITE !

 +3       ;X AGLINE("EQ")

 +4       ;G L1:$D(DTOUT)!$D(DFOUT)

 +5       ;I $D(DUOUT) S AGPAGE=AGPAGE-1 G L5:AGPAGE>0,L1

 +6       ;I $D(AG("ED")) S AGPAGE=AG("ED") G L5

 +7        SET AGPAGE=AGPAGE+1

           IF AGPAGE<14

               GOTO L5

           GOTO L2

1         ;;^AGED1

2         ;;DRAW^AGED2

3         ;;DRAW^AGED3

4         ;;^AGED4

5         ;;^AGED5

6         ;;DRAW^AGED6

7         ;;^AGSEE7

8         ;;DRAW^AGED8

9         ;;DRAW^AGED9

10        ;;DRAW^AGED10

11        ;;DRAW^AGED11

12        ;;DRAW^AGED12

13        ;;DRAW^AGED13