AMHVAGL.m

AMHVAGL ; IHS/CMI/LAB - VIEW PATIENT REGISTRATION ;

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

 ;; ;

 ;

 D FULL^VALM1

 NEW DIR 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 Q:Y<1  I Y=2 D  Q

 . I '$$PKGCK^AMHVU("ASDREG","SCHEDULING VERSION 5.0") Q

 . D CLEAR^VALM1,^ASDREG Q

 ;

EN ; -- main entry point for AMHV AG VIEW

 NEW VALMCNT

 D EN^VALM("AMHV AG VIEW")

 Q

 ;

HDR ; -- header code

 Q

 ;

INIT ; -- init variables and list array

 D GUIR^XBLM("^AMHVAG1","^TMP(""AMHVAG"",$J,")

 S X=0 F  S X=$O(^TMP("AMHVAG",$J,X)) Q:'X  D

 . S VALMCNT=X

 . S ^TMP("AMHVAG",$J,X,0)=^TMP("AMHVAG",$J,X)

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 K ^TMP("AMHVAG",$J)

 Q

 ;

EXPND ; -- expand code

 Q

 ;

AMHVAGL   ; IHS/CMI/LAB - VIEW PATIENT REGISTRATION ;

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

 +2       ;; ;

 +3       ;

 +4        DO FULL^VALM1

 +5        NEW DIR

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

           SET DIR("B")=1

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

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

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

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

 +9        DO ^DIR

           IF Y<1

               QUIT 

           IF Y=2

               Begin DoDot:1

 +10               IF '$$PKGCK^AMHVU("ASDREG","SCHEDULING VERSION 5.0")

                       QUIT 

 +11               DO CLEAR^VALM1

                   DO ^ASDREG

                   QUIT 

               End DoDot:1

               QUIT 

 +12      ;

EN        ; -- main entry point for AMHV AG VIEW

 +1        NEW VALMCNT

 +2        DO EN^VALM("AMHV AG VIEW")

 +3        QUIT 

 +4       ;

HDR       ; -- header code

 +1        QUIT 

 +2       ;

INIT      ; -- init variables and list array

 +1        DO GUIR^XBLM("^AMHVAG1","^TMP(""AMHVAG"",$J,")

 +2        SET X=0

           FOR 

               SET X=$ORDER(^TMP("AMHVAG",$JOB,X))

               IF 'X

                   QUIT 

               Begin DoDot:1

 +3                SET VALMCNT=X

 +4                SET ^TMP("AMHVAG",$JOB,X,0)=^TMP("AMHVAG",$JOB,X)

               End DoDot:1

 +5        QUIT 

 +6       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        KILL ^TMP("AMHVAG",$JOB)

 +2        QUIT 

 +3       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;