BVPAG.m

BVPAG ; IHS/ITSC/LJF - VIEW/EDIT PATIENT REGISTRATION ;

 ;;1.0;VIEW PATIENT RECORD;;NOV 17, 2004

 ; Called by protocol BVP DEMOGRAPHICS (Demographics)

 ;DFN already set by BVPMAIN

 ;

 D FULL^VALM1

 I '$D(^XUSEC("AGZMENU",DUZ)) D CHKRHI^AG,^BVPAGV,KILL^AG Q      ;user has access to view only

 ;

 NEW DIR,Y S DIR(0)="NO^1:2",DIR("B")=1,DIR("A")="Select One"

 S DIR("A",1)=""

 S DIR("A",2)="  1. VIEW Registration Data"

 S DIR("A",3)="  2. UPDATE Registration Data"

 D ^DIR K DIR Q:Y<1  I Y=2 D  Q

 . D CLEAR^VALM1,PATNLK^AGEDIT,KILL^AG Q

 ;

 D CHKRHI^AG

 D ^BVPAGV,KILL^AG

 Q

 ;

BVPAG     ; IHS/ITSC/LJF - VIEW/EDIT PATIENT REGISTRATION ;

 +1       ;;1.0;VIEW PATIENT RECORD;;NOV 17, 2004

 +2       ; Called by protocol BVP DEMOGRAPHICS (Demographics)

 +3       ;DFN already set by BVPMAIN

 +4       ;

 +5        DO FULL^VALM1

 +6       ;user has access to view only

           IF '$DATA(^XUSEC("AGZMENU",DUZ))

               DO CHKRHI^AG

               DO ^BVPAGV

               DO KILL^AG

               QUIT 

 +7       ;

 +8        NEW DIR,Y

           SET DIR(0)="NO^1:2"

           SET DIR("B")=1

           SET DIR("A")="Select One"

 +9        SET DIR("A",1)=""

 +10       SET DIR("A",2)="  1. VIEW Registration Data"

 +11       SET DIR("A",3)="  2. UPDATE Registration Data"

 +12       DO ^DIR

           KILL DIR

           IF Y<1

               QUIT 

           IF Y=2

               Begin DoDot:1

 +13               DO CLEAR^VALM1

                   DO PATNLK^AGEDIT

                   DO KILL^AG

                   QUIT 

               End DoDot:1

               QUIT 

 +14      ;

 +15       DO CHKRHI^AG

 +16       DO ^BVPAGV

           DO KILL^AG

 +17       QUIT 

 +18      ;