PSALOGON ;BIR/JMB-Logon Utility ;7/23/97
;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;; 10/24/97
;This routine displays the number of invoices the user needs to process
;or verify when the user signs on the system. The PSALOGON option needs
;to be placed on the system that the users signon to. Then PSA ORDERS
;ALERT option needs to be added as an item to the XU USER SIGN-ON
;option.
;
SIGNON Q:'$D(^XUSEC("PSA ORDERS",DUZ))
S (PSACNTP,PSACTRL)=0
F S PSACTRL=$O(^XTMP("PSAPV",PSACTRL)) Q:'PSACTRL D
.Q:'$D(^XTMP("PSAPV",PSACTRL,"IN"))
.S:$P(^XTMP("PSAPV",PSACTRL,"IN"),"^",8)'="P" PSACNTP=PSACNTP+1
VERIFY S (PSACNTV,PSAORD)=0
F S PSAORD=$O(^PSD(58.811,"ASTAT","P",PSAORD)) Q:'PSAORD D
.S PSAINV=0 F S PSAINV=$O(^PSD(58.811,"ASTAT","P",PSAORD,PSAINV)) Q:'PSAINV D
..Q:+$P($G(^PSD(58.811,PSAORD,1,PSAINV,0)),"^",10)=DUZ
..I $P($G(^PSD(58.811,PSAORD,1,PSAINV,0)),"^",8)="S"!($P($G(^PSD(58.811,PSAORD,0)),"^",8)="A"),'$D(^XUSEC("PSJ RPHARM",DUZ)) Q
..S PSACNTV=PSACNTV+1
G:'PSACNTP&('PSACNTV) EXIT
I PSACNTP,PSACNTV S PSAMSG="!There "_$S(PSACNTP>1:"are "_PSACNTP_" invoices",1:"is 1 invoice")_" to process and "_$S(PSACNTV>1:PSACNTV_" invoices",1:"1 invoice")_" to verify." G SEND
I PSACNTP S:PSACNTP>1 PSAMSG="!There are "_PSACNTP_" invoices to process." S:PSACNTP=1 PSAMSG="!There is 1 invoice to process." G SEND
I PSACNTV S:PSACNTV>1 PSAMSG="!There are "_PSACNTV_" invoices to verify." S:PSACNTV=1 PSAMSG="!There is 1 invoice to verify." G SEND
Q
;
SEND D SET^XUS1A(PSAMSG)
;
EXIT K PSACNTP,PSACNTV,PSACTRL,PSAINV,PSAMSG,PSAORD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSALOGON 1594 printed Oct 16, 2024@17:50:30 Page 2
PSALOGON ;BIR/JMB-Logon Utility ;7/23/97
+1 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;; 10/24/97
+2 ;This routine displays the number of invoices the user needs to process
+3 ;or verify when the user signs on the system. The PSALOGON option needs
+4 ;to be placed on the system that the users signon to. Then PSA ORDERS
+5 ;ALERT option needs to be added as an item to the XU USER SIGN-ON
+6 ;option.
+7 ;
SIGNON if '$DATA(^XUSEC("PSA ORDERS",DUZ))
QUIT
+1 SET (PSACNTP,PSACTRL)=0
+2 FOR
SET PSACTRL=$ORDER(^XTMP("PSAPV",PSACTRL))
if 'PSACTRL
QUIT
Begin DoDot:1
+3 if '$DATA(^XTMP("PSAPV",PSACTRL,"IN"))
QUIT
+4 if $PIECE(^XTMP("PSAPV",PSACTRL,"IN"),"^",8)'="P"
SET PSACNTP=PSACNTP+1
End DoDot:1
VERIFY SET (PSACNTV,PSAORD)=0
+1 FOR
SET PSAORD=$ORDER(^PSD(58.811,"ASTAT","P",PSAORD))
if 'PSAORD
QUIT
Begin DoDot:1
+2 SET PSAINV=0
FOR
SET PSAINV=$ORDER(^PSD(58.811,"ASTAT","P",PSAORD,PSAINV))
if 'PSAINV
QUIT
Begin DoDot:2
+3 if +$PIECE($GET(^PSD(58.811,PSAORD,1,PSAINV,0)),"^",10)=DUZ
QUIT
+4 IF $PIECE($GET(^PSD(58.811,PSAORD,1,PSAINV,0)),"^",8)="S"!($PIECE($GET(^PSD(58.811,PSAORD,0)),"^",8)="A")
IF '$DATA(^XUSEC("PSJ RPHARM",DUZ))
QUIT
+5 SET PSACNTV=PSACNTV+1
End DoDot:2
End DoDot:1
+6 if 'PSACNTP&('PSACNTV)
GOTO EXIT
+7 IF PSACNTP
IF PSACNTV
SET PSAMSG="!There "_$SELECT(PSACNTP>1:"are "_PSACNTP_" invoices",1:"is 1 invoice")_" to process and "_$SELECT(PSACNTV>1:PSACNTV_" invoices",1:"1 invoice")_" to verify."
GOTO SEND
+8 IF PSACNTP
if PSACNTP>1
SET PSAMSG="!There are "_PSACNTP_" invoices to process."
if PSACNTP=1
SET PSAMSG="!There is 1 invoice to process."
GOTO SEND
+9 IF PSACNTV
if PSACNTV>1
SET PSAMSG="!There are "_PSACNTV_" invoices to verify."
if PSACNTV=1
SET PSAMSG="!There is 1 invoice to verify."
GOTO SEND
+10 QUIT
+11 ;
SEND DO SET^XUS1A(PSAMSG)
+1 ;
EXIT KILL PSACNTP,PSACNTV,PSACTRL,PSAINV,PSAMSG,PSAORD
+1 QUIT
