APCDELH.m

APCDELH ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;; ;

EP ;ep - called from option

 W:$D(IOF) @IOF

 W !!,"This option allows you to enter historical information about the patient",!,"using the historical mnemonics.",!

 D GETPAT

 I '$G(APCDPAT) D EXIT Q

EN ; -- main entry point for APCD EL HISTORICAL ITEMS

 D EN^VALM("APCD EL HISTORICAL ITEMS")

 Q

 ;

HDR ; -- header code

 S VALMHDR(1)="This is a test header for APCD EL HISTORICAL ITEMS."

 S VALMHDR(2)="This is the second line"

 Q

 ;

GETPAT ; GET PATIENT

 W !

 S APCDPAT=""

 S DIC="^AUPNPAT(",DIC(0)="AEMQ" D ^DIC K DIC

 Q:Y<0

 I $D(APCDPARM),$P(APCDPARM,U,3)="Y" W !?25,"Ok" S %=1 D YN^DICN Q:%'=1

 S APCDPAT=+Y

 Q

INIT ; -- init variables and list array

 F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)

 S VALMCNT=30

 Q

 ;

HELP ; -- help code

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

 Q

 ;

EXIT ; -- exit code

 Q

 ;

EXPND ; -- expand code

 Q

 ;

APCDELH   ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;; ;

EP        ;ep - called from option

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !!,"This option allows you to enter historical information about the patient",!,"using the historical mnemonics.",!

 +3        DO GETPAT

 +4        IF '$GET(APCDPAT)

               DO EXIT

               QUIT 

EN        ; -- main entry point for APCD EL HISTORICAL ITEMS

 +1        DO EN^VALM("APCD EL HISTORICAL ITEMS")

 +2        QUIT 

 +3       ;

HDR       ; -- header code

 +1        SET VALMHDR(1)="This is a test header for APCD EL HISTORICAL ITEMS."

 +2        SET VALMHDR(2)="This is the second line"

 +3        QUIT 

 +4       ;

GETPAT    ; GET PATIENT

 +1        WRITE !

 +2        SET APCDPAT=""

 +3        SET DIC="^AUPNPAT("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

 +4        IF Y<0

               QUIT 

 +5        IF $DATA(APCDPARM)

               IF $PIECE(APCDPARM,U,3)="Y"

                   WRITE !?25,"Ok"

                   SET %=1

                   DO YN^DICN

                   IF %'=1

                       QUIT 

 +6        SET APCDPAT=+Y

 +7        QUIT 

INIT      ; -- init variables and list array

 +1        FOR LINE=1:1:30

               DO SET^VALM10(LINE,LINE_"     Line number "_LINE)

 +2        SET VALMCNT=30

 +3        QUIT 

 +4       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        QUIT 

 +2       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;