APCDDISP.m

APCDDISP ; IHS/CMI/LAB - DISPLAY VISIT ;

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

 ;

 D GETPAT

 I APCDPAT="" W !!,"No PATIENT selected!" D EOJ Q

 D GETVISIT

 I APCDVSIT="" W !!,"No VISIT selected!" D EOJ Q

 D DSPLY

 D EOJ

 Q

 ;

ENB ;EP - entry point for limited lab display

 S APCDLIML=1

 G APCDDISP

GETPAT ;EP GET-  PATIENT

 W !

 S AUPNLK("INAC")=""

 S APCDPAT=""

 S DIC("A")="Enter PATIENT NAME: ",DIC="^AUPNPAT(",DIC(0)="AEMQ" D ^DIC K DIC

 Q:Y<0

 S APCDPAT=+Y

 Q

 ;

GETVISIT ;EP - this entry point called by the BVP package (View patient record)

 S APCDLOOK="",APCDVSIT=""

 K APCDVLK

 D ^APCDVLK

 K APCDLOOK

 Q

 ;

DSPLY ;EP

 D ^APCDVD

 Q

 ;

EOJ ; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)

 K AUPNLK("INAC")

 K %,%DT,%X,%Y,C,DIYS,X,Y

 K APCDCLN,APCDCAT,APCDDATE,APCDLOC,APCDPAT,APCDVSIT,APCDLOOK,APCDTYPE

 D KILL^AUPNPAT

 Q

APCDDISP  ; IHS/CMI/LAB - DISPLAY VISIT ;

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

 +2       ;

 +3        DO GETPAT

 +4        IF APCDPAT=""

               WRITE !!,"No PATIENT selected!"

               DO EOJ

               QUIT 

 +5        DO GETVISIT

 +6        IF APCDVSIT=""

               WRITE !!,"No VISIT selected!"

               DO EOJ

               QUIT 

 +7        DO DSPLY

 +8        DO EOJ

 +9        QUIT 

 +10      ;

ENB       ;EP - entry point for limited lab display

 +1        SET APCDLIML=1

 +2        GOTO APCDDISP

GETPAT    ;EP GET-  PATIENT

 +1        WRITE !

 +2        SET AUPNLK("INAC")=""

 +3        SET APCDPAT=""

 +4        SET DIC("A")="Enter PATIENT NAME: "

           SET DIC="^AUPNPAT("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

 +5        IF Y<0

               QUIT 

 +6        SET APCDPAT=+Y

 +7        QUIT 

 +8       ;

GETVISIT  ;EP - this entry point called by the BVP package (View patient record)

 +1        SET APCDLOOK=""

           SET APCDVSIT=""

 +2        KILL APCDVLK

 +3        DO ^APCDVLK

 +4        KILL APCDLOOK

 +5        QUIT 

 +6       ;

DSPLY     ;EP

 +1        DO ^APCDVD

 +2        QUIT 

 +3       ;

EOJ       ; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)

 +1        KILL AUPNLK("INAC")

 +2        KILL %,%DT,%X,%Y,C,DIYS,X,Y

 +3        KILL APCDCLN,APCDCAT,APCDDATE,APCDLOC,APCDPAT,APCDVSIT,APCDLOOK,APCDTYPE

 +4        DO KILL^AUPNPAT

 +5        QUIT