- 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