- 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