Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AMHVAG1

AMHVAG1.m

Go to the documentation of this file.
  1. AMHVAG1 ; IHS/CMI/LAB - PATIENT DATA VIEW ;
  1. ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
  1. ;IHS/ANMC/LJF 2/13/97
  1. ; -- copy of AGSEENLY with patient defined for browse call
  1. ;
  1. D ^AGVAR
  1. L1 ;D ^AG W !!!?27,"Patient Data View System",!!
  1. ;D PTLK^AG
  1. I $D(DFN) S AGSEENLY="",AGPAGE=1 G L5
  1. L2 K AG,AGSEENLY,DIC,AG("LKDATA"),AG("LKERR"),AG("LKPRINT"),AGPAGE
  1. Q
  1. L5 ;D @($P($T(@AGPAGE),";;",2)) W:$Y<7 !?32,"NONE..." X AGLINE("EQ") W !?32,"Press RETURN " D READ^AGED1
  1. D @($P($T(@AGPAGE),";;",2)) W:$Y<7 !?32,"NONE..."
  1. F I=1:1 Q:($Y#20=0) W !
  1. ;X AGLINE("EQ")
  1. ;G L1:$D(DTOUT)!$D(DFOUT)
  1. ;I $D(DUOUT) S AGPAGE=AGPAGE-1 G L5:AGPAGE>0,L1
  1. ;I $D(AG("ED")) S AGPAGE=AG("ED") G L5
  1. S AGPAGE=AGPAGE+1 G L5:AGPAGE<14,L2
  1. 1 ;;^AGED1
  1. 2 ;;DRAW^AGED2
  1. 3 ;;DRAW^AGED3
  1. 4 ;;^AGED4
  1. 5 ;;^AGED5
  1. 6 ;;DRAW^AGED6
  1. 7 ;;^AGSEE7
  1. 8 ;;DRAW^AGED8
  1. 9 ;;DRAW^AGED9
  1. 10 ;;DRAW^AGED10
  1. 11 ;;DRAW^AGED11
  1. 12 ;;DRAW^AGED12
  1. 13 ;;DRAW^AGED13