AMHVRL1.m

AMHVRL1 ; IHS/CMI/LAB - VIEW RECORD ACTION ;

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

 ;

VST ;EP; -- view/edit pcc visits

 NEW APCDPAT

 D FULL^VALM1

 D ^XBCLS

 S APCDPAT=DFN D GETVISIT^APCDDISP

 I '$G(APCDVSIT) W !,$C(7),"No PCC Visit on file on that date.",! D EOJ^APCDDISP,PAUSE^AMHVRL,RESET2^AMHVRL S DFN=AMHVSAV Q

 S AMHVSIT=APCDVSIT D ^AMHPCVD,EOJ^APCDDISP

 S DFN=AMHVSAV

 D RESET2^AMHVRL

 Q

 ;

AMHVRL1   ; IHS/CMI/LAB - VIEW RECORD ACTION ;

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

 +2       ;

VST       ;EP; -- view/edit pcc visits

 +1        NEW APCDPAT

 +2        DO FULL^VALM1

 +3        DO ^XBCLS

 +4        SET APCDPAT=DFN

           DO GETVISIT^APCDDISP

 +5        IF '$GET(APCDVSIT)

               WRITE !,$CHAR(7),"No PCC Visit on file on that date.",!

               DO EOJ^APCDDISP

               DO PAUSE^AMHVRL

               DO RESET2^AMHVRL

               SET DFN=AMHVSAV

               QUIT 

 +6        SET AMHVSIT=APCDVSIT

           DO ^AMHPCVD

           DO EOJ^APCDDISP

 +7        SET DFN=AMHVSAV

 +8        DO RESET2^AMHVRL

 +9        QUIT 

 +10      ;