APCDVD ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 18-MAY-1995 ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;; ;
EN ;PEP -- main entry point for APCD VISIT DISPLAY
K ^TMP("APCDVDSG",$J)
Q:'$G(APCDVSIT)
I '$G(APCDLIML) D EN^APCDVDSG(APCDVSIT)
I $G(APCDLIML)=1 D EN^APCDVDSB(APCDVSIT) K APCDLIML
NEW VALMCNT
D TERM^VALM0
D CLEAR^VALM1
D EN^VALM("APCD VISIT DISPLAY")
K ^TMP("APCDVDSG",$J),APCDBROW
D CLEAR^VALM1
D FULL^VALM1
Q
;
EN1 ;EP - called from input templates
D EN^XBNEW("EN^APCDVD","APCDVSIT;VALM*")
K Y
Q
HDR ; -- header code
Q
;
INIT ; -- init variables and list array
S VALMCNT=$O(^TMP("APCDVDSG",$J,""),-1)
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
Q
;
EXPND ; -- expand code
Q
;
IEN ;EP - called from option
W !!,"Visit display by IEN"
S DIR(0)="N^1:99999999999:0",DIR("A")="Enter the VISIT IEN" KILL DA D ^DIR KILL DIR
I $D(DIRUT) Q
I '$D(^AUPNVSIT(Y)) W !!,"That visit does not exist." K Y Q
S APCDVSIT=Y
D EN
K APCDVSIT
Q
;
FINDDELV ;EP - called from option
;find and display a deleted visit, given date and optionally, patient name
APCDVD ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 18-MAY-1995 ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;; ;
EN ;PEP -- main entry point for APCD VISIT DISPLAY
+1 KILL ^TMP("APCDVDSG",$JOB)
+2 IF '$GET(APCDVSIT)
QUIT
+3 IF '$GET(APCDLIML)
DO EN^APCDVDSG(APCDVSIT)
+4 IF $GET(APCDLIML)=1
DO EN^APCDVDSB(APCDVSIT)
KILL APCDLIML
+5 NEW VALMCNT
+6 DO TERM^VALM0
+7 DO CLEAR^VALM1
+8 DO EN^VALM("APCD VISIT DISPLAY")
+9 KILL ^TMP("APCDVDSG",$JOB),APCDBROW
+10 DO CLEAR^VALM1
+11 DO FULL^VALM1
+12 QUIT
+13 ;
EN1 ;EP - called from input templates
+1 DO EN^XBNEW("EN^APCDVD","APCDVSIT;VALM*")
+2 KILL Y
+3 QUIT
HDR ; -- header code
+1 QUIT
+2 ;
INIT ; -- init variables and list array
+1 SET VALMCNT=$ORDER(^TMP("APCDVDSG",$JOB,""),-1)
+2 QUIT
+3 ;
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 ;
IEN ;EP - called from option
+1 WRITE !!,"Visit display by IEN"
+2 SET DIR(0)="N^1:99999999999:0"
SET DIR("A")="Enter the VISIT IEN"
KILL DA
DO ^DIR
KILL DIR
+3 IF $DATA(DIRUT)
QUIT
+4 IF '$DATA(^AUPNVSIT(Y))
WRITE !!,"That visit does not exist."
KILL Y
QUIT
+5 SET APCDVSIT=Y
+6 DO EN
+7 KILL APCDVSIT
+8 QUIT
+9 ;
FINDDELV ;EP - called from option
+1 ;find and display a deleted visit, given date and optionally, patient name