PXVUTL0 ;BIR/ADM - VIMM UTILITY ROUTINE ;01/29/2015
;;1.0;PCE PATIENT CARE ENCOUNTER;**208**;Aug 12, 1996;Build 5
;
Q
SERIES() ; called from screen on SERIES field (#.04) in file #9000010.11
; returns max # - If no MAX # IN SERIES is defined in IMMUNIZATION file,
; 8 is returned.
; PXD is defined by new immunization entry process in PCE and is the
; value of Y from the DIR call to select an immunization.
;
N PXMAX,PXDA
S:$G(DA) PXMAX=$P($G(^AUTTIMM($P($G(^AUPNVIMM(DA,0)),"^"),0)),"^",5)
I '$G(DA),$G(PXD) S PXDA=+PXD S:PXDA PXMAX=$P($G(^AUTTIMM(PXDA,0)),"^",5)
S:$G(PXMAX)="" PXMAX=8
Q PXMAX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXVUTL0 631 printed Dec 13, 2024@02:32:13 Page 2
PXVUTL0 ;BIR/ADM - VIMM UTILITY ROUTINE ;01/29/2015
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**208**;Aug 12, 1996;Build 5
+2 ;
+3 QUIT
SERIES() ; called from screen on SERIES field (#.04) in file #9000010.11
+1 ; returns max # - If no MAX # IN SERIES is defined in IMMUNIZATION file,
+2 ; 8 is returned.
+3 ; PXD is defined by new immunization entry process in PCE and is the
+4 ; value of Y from the DIR call to select an immunization.
+5 ;
+6 NEW PXMAX,PXDA
+7 if $GET(DA)
SET PXMAX=$PIECE($GET(^AUTTIMM($PIECE($GET(^AUPNVIMM(DA,0)),"^"),0)),"^",5)
+8 IF '$GET(DA)
IF $GET(PXD)
SET PXDA=+PXD
if PXDA
SET PXMAX=$PIECE($GET(^AUTTIMM(PXDA,0)),"^",5)
+9 if $GET(PXMAX)=""
SET PXMAX=8
+10 QUIT PXMAX
