Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSAVER

PSAVER.m

Go to the documentation of this file.
  1. PSAVER ;BIR/JMB-Verify Invoices ;9/6/97
  1. ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**60,65,71,78**;10/24/97;Build 4
  1. ;This routine allows the user to verify processed invoices. The entire
  1. ;invoice may be verified with/without editing. After verification, the
  1. ;pharmacy location or master vault balances are incremented during a
  1. ;background job (PSAVER5).
  1. ;
  1. I '$D(^XUSEC("PSA ORDERS",DUZ)) W !,"You do not hold the key to enter the option." Q
  1. I $D(^PSD(58.811,"ASTAT","L")) D LCKCHK^PSAVER4
  1. I '$D(^PSD(58.811,"ASTAT","P")) W !!,"There are no invoices that need to be verified." H 1 Q
  1. ;
  1. ;Creates a list of invoices that can be verified by the user. If the
  1. ;invoice contains at least one item marked as a controlled substance,
  1. ;the user must have the pharmacist key before it can be verified.
  1. S (PSACNT,PSAIEN,PSASUP)=0
  1. F S PSAIEN=+$O(^PSD(58.811,"ASTAT","P",PSAIEN)) Q:'PSAIEN D
  1. .Q:'$D(^PSD(58.811,PSAIEN,0))
  1. .S PSAIEN1=0 F S PSAIEN1=+$O(^PSD(58.811,"ASTAT","P",PSAIEN,PSAIEN1)) Q:'PSAIEN1 D
  1. ..Q:'$D(^PSD(58.811,PSAIEN,1,PSAIEN1,0))
  1. ..I $P(^PSD(58.811,PSAIEN,1,PSAIEN1,0),"^",10)'=DUZ,$P(^(0),"^",8)="N"!(($P(^(0),"^",8)="S"!($P(^(0),"^",8)="A"))&($D(^XUSEC("PSJ RPHARM",DUZ)))) S PSACNT=PSACNT+1,PSAVER(PSACNT)=PSAIEN_"^"_PSAIEN1
  1. I 'PSACNT D H 1 G EXIT
  1. .W !!,"There is at least one invoice that needs to be verified. However, invoices",!,"cannot be verified by the same person who processed them and a pharmacist",!,"must verify invoices that contain a drug marked as a controlled substance."
  1. .W !!,"There are no invoices you can verify because the invoice(s) meet one of the",!,"above conditions."
  1. ;
  1. ESIG D SIG^XUSESIG G:X1="" EXIT S PSAOUT=0
  1. ;
  1. PRINT ;Asks & prints all invoices the user can verify.
  1. W ! S DIR(0)="Y",DIR("B")="N",DIR("A")="Print processed invoices",DIR("?",1)="Enter YES to print all invoices you can verify then begin verification.",DIR("?")="Enter NO to bypass printing the invoices and begin verification."
  1. S DIR("??")="^D PRINTYN^PSAVER"
  1. D ^DIR K DIR G:$G(DIRUT) EXIT G:'Y ENTIRE
  1. W ! S %ZIS="Q" D ^%ZIS G:POP ENTIRE
  1. I $D(IO("Q")) D G ENTIRE
  1. .K ZTSAVE
  1. .S ZTDESC="Drug Acct. - Print Prime Vendor Invoices",ZTDTH=$H,ZTRTN="PRTINV^PSAVER",ZTSAVE("PSAVER(")="" D ^%ZTLOAD
  1. D PRTINV
  1. ;
  1. ENTIRE ;Displays a list of all invoices the user can select to be verified.
  1. S PSASLN="",$P(PSASLN,"-",80)="",PSADLN="",$P(PSADLN,"=",80)=""
  1. W @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>"
  1. W !!?2,"If there are no corrections, you can change the invoices' status",!?2,"to ""Verified"" by selecting them from the list. If you do have"
  1. W !?2,"corrections, press the return key then a second list will be",!?2,"displayed. You will be able to choose the invoices from that list",!?2,"and enter corrections.",!!?2,"Choose the invoices from the list you want to verify.",!,PSADLN
  1. S (PSA,PSACNT,PSASTOP)=0
  1. F S PSA=+$O(PSAVER(PSA)) Q:'PSA D Q:PSASTOP
  1. .I $Y+5>IOSL D HDR Q:PSASTOP
  1. .S PSAIEN=$P(PSAVER(PSA),"^"),PSAIEN1=$P(PSAVER(PSA),"^",2),PSAORD=$P(^PSD(58.811,PSAIEN,0),"^"),PSAINV=$P(^PSD(58.811,PSAIEN,1,PSAIEN1,0),"^"),PSAINVDT=+$P(^(0),"^",2),PSACNT=PSACNT+1
  1. .W !?(3-$L(PSA)),PSA_". Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(PSAINVDT)
  1. K PSASTOP W !,PSADLN
  1. S DIR(0)="LO^1:"_PSACNT,DIR("A")="Select invoices to verify",DIR("?",1)="Enter the number to the left of the invoice",DIR("?")="data to be verified or a range of numbers.",DIR("??")="^D SEL^PSAVER"
  1. W ! D ^DIR K DIR G:$G(DTOUT)!($G(DUOUT)) EXIT
  1. I Y="",$D(^PSD(58.811,"ASTAT","L")) D LCKCHK^PSAVER4,LOAD G EDIT
  1. I Y="",'$D(^PSD(58.811,"ASTAT","L")) D LOAD G EDIT
  1. S PSASEL=Y
  1. ;
  1. OKAY ;Verifies correct invoices were selected.
  1. W @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>",!,PSADLN,!
  1. S PSACNT=0,PSATMP="" F PSAPC=1:1 S PSA=+$P(PSASEL,",",PSAPC) Q:'PSA D
  1. .S PSAIEN=$P(PSAVER(PSA),"^"),PSAIEN1=$P(PSAVER(PSA),"^",2)
  1. .Q:'$D(^PSD(58.811,PSAIEN,1,PSAIEN1,0))
  1. .S PSAIN=^PSD(58.811,PSAIEN,1,PSAIEN1,0)
  1. .S PSAORD=$P(^PSD(58.811,PSAIEN,0),"^"),PSAINV=$P(PSAIN,"^"),PSAINVDT=+$P(PSAIN,"^",2),PSACNT=PSACNT+1
  1. .W !?(3-$L(PSACNT)),PSACNT_". Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(PSAINVDT)
  1. .I +$P(PSAIN,"^",5) D
  1. ..S PSALOC=+$P(PSAIN,"^",5) D SITES^PSAUTL1 S PSALOCN=$P(^PSD(58.8,PSALOC,0),"^")_PSACOMB
  1. ..W:$L(PSALOCN)>76 !?6,$P(PSALOCN,"(IP)",1)_"(IP)",!?23,$P(PSALOCN,"(IP)",2) W:$L(PSALOCN)<77 !?6,PSALOCN
  1. .I +$P(PSAIN,"^",12) W !?6,"MASTER VAULT: "_$P(^PSD(58.8,+$P(PSAIN,"^",12),0),"^")
  1. .W !
  1. .S PSAMSG="" D VERLOCK^PSAVER4 ; <== PSA*3*60 (RJS-VMP)
  1. .W:$L(PSAMSG) ?5,PSAMSG,!
  1. I PSASEL'=PSATMP S PSASEL=PSATMP K PSATMP
  1. I PSASEL="" S DIR(0)="E" D ^DIR G:$G(DIRUT) EXIT G ENTIRE
  1. S DIR(0)="Y",DIR("B")="N",DIR("A")="Are you sure "_$S(PSACNT=1:"this invoice's",1:"these invoices'")_" status should be changed to Verified"
  1. S DIR("?",1)="Enter YES if the list contains invoices with no corrections.",DIR("?",2)="Enter NO if the list contains at least one invoice you do not",DIR("?")="want to verify.",DIR("??")="^D VERIFY^PSAVER"
  1. D ^DIR K DIR D:'Y VERUNLCK^PSAVER4 G:$G(DIRUT) EXIT G:'Y ENTIRE ; <== PSA*3*60 (RJS-VMP)
  1. ;
  1. ;Send entire invoices to be verified in background, delete these
  1. ;invoices from the list, then create a new list of remaining invoices
  1. ;to be verified.
  1. BKGJOB K PSAVBKG W ! F PSAPC=1:1 S PSA=+$P(PSASEL,",",PSAPC) Q:'PSA!(PSAOUT) D
  1. .S PSAIEN=$P(PSAVER(PSA),"^"),PSAIEN1=$P(PSAVER(PSA),"^",2),PSASUP=0
  1. .Q:'$D(^PSD(58.811,PSAIEN,1,PSAIEN1,0))!('$D(^PSD(58.811,PSAIEN,0)))
  1. .S (PSACS,PSAERR,PSALINE,PSALNCNT,PSALNERR,PSALNSU)=0
  1. .S PSAIN=^PSD(58.811,PSAIEN,1,PSAIEN1,0),PSAINV=$P(PSAIN,"^"),PSAORD=$P(^PSD(58.811,PSAIEN,0),"^")
  1. .F S PSALINE=+$O(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE)) Q:'PSALINE!(PSAOUT) D
  1. ..Q:'$D(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,0))
  1. ..S PSADATA=^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,0),PSALNCNT=PSALNCNT+1
  1. ..S PSALOC=$S(+$P(PSADATA,"^",10):$P(PSAIN,"^",12),1:$P(PSAIN,"^",5))
  1. ..W "." D SETLINE^PSAVER3
  1. .Q:PSAOUT
  1. .I '$O(PSANOVER(PSAIEN,PSAIEN1,0)) D Q
  1. ..S PSAVBKG(PSAIEN,PSAIEN1)="" K PSAVER(PSA) D STATUS^PSAVER3
  1. ..I '+$P(^PSD(58.811,PSAIEN,1,PSAIEN1,0),"^",13),$P($G(^PSD(58.8,+$P(PSAIN,"^",5),0)),"^",14)!($P($G(^PSD(58.8,+$P(PSAIN,"^",12),0)),"^",14)) D NEWDRUG^PSAVER1 I 1 ;*50
  1. ..W !," Order# "_PSAORD_" Invoice# "_PSAINV_"'s status has been changed to Verified!"
  1. .H 1 I $O(PSANOVER(PSAIEN,PSAIEN1,0)) D
  1. ..W !,"** Order# "_PSAORD_" Invoice# "_PSAINV_"'s status has not been changed to Verified."
  1. ..S PSAERR=0,PSAVER(PSA)=PSAIEN_"^"_PSAIEN1
  1. ..D PRINT^PSAVER3
  1. ..N PSATMP S PSATMP=PSASEL ;;<*65 RJS
  1. ..N PSASEL S PSASEL=PSA
  1. ..D VERUNLCK^PSAVER4 ;;*65 RJS>
  1. ..S PSAOUT=0
  1. ;
  1. ;If the invoices selected are error free, send them to the background
  1. ;job to complete the invoice and increment inventory.
  1. I $D(^PSD(58.811,"ASTAT","L")) D LCKCHK^PSAVER4
  1. D LOAD
  1. I $O(PSAVBKG(0)) D
  1. . K ZTSAVE S ZTDESC="Drug Acct. - Verify Prime Vendor Invoices",ZTIO="",ZTDTH=$H,ZTRTN="^PSAVER6",ZTSAVE("PSASEL")="",ZTSAVE("PSAVBKG(")="" D ^%ZTLOAD Q:$G(POP)
  1. ;D ^PSAVER6
  1. K PSAVBKG G:'$O(PSAEDIT(0)) EXIT
  1. EDIT S PSARTN1=0
  1. D EDIT^PSAVER1
  1. ;
  1. EXIT I $O(PSANEWD(0)) D ^PSAVER4 S PSARTN1=0
  1. I $G(PSARTN1) D END^PSAPROC
  1. K %ZIS,DA,DD,DIC,DIE,DIK,DIR,DIRUT,DO,DR,DTOUT,DUOUT,PSA,PSA10,PSAGAIN,PSA50IEN,PSAA,PSABEFOR,PSACHG,PSACHO,PSACNT,PSACOMB,PSACS,PSACSLN,PSACTRL
  1. K PSADATA,PSADD,PSADJ,PSADJD,PSADJFLD,PSADJN,PSADJO,PSADJOP,PSADJOV,PSADJP,PSADJPP,PSADJPV,PSADJQ,PSADJQP,PSADJQV,PSADJSUP,PSADLN,PSADRG
  1. K PSADRGN,PSADUOU,PSAEDIT,PSAERR,PSAFLD,PSAFLDS,PSAHOLD,PSAIEN,PSAIEN1,PSAIN,PSAINV,PSAINVDT,PSAISIT,PSAISITN,PSAKK,PSAL,PSALEN,PSALINE,PSALINEN
  1. K PSALINES,PSALN,PSALN0,PSALNCNT,PSALND,PSALNERR,PSALNP,PSALNSU,PSALNV,PSALOAD,PSALOC,PSALOCA,PSALOCN,PSAMENU,PSAMV,PSAMVA,PSAMVIEN,PSAMVN,PSAN10,PSANAME,PSANDC,PSANEW,PSANEWD
  1. K PSANO,PSANODE,PSANOVER,PSANUM,PSAONE,PSAONEMV,PSAORD,PSAORDU,PSAPHARM,PSAPRICE,PSAOSIT,PSAOSITN,PSAOU,PSAOUT,PSAPC,PSAPCF,PSAPCL,PSAPG,PSAPRINT,PSAQTY,PSALOCK,PSAMSG
  1. K PSAREA,PSAREC,PSARECD,PSAREORD,PSASAVE,PSASEL,PSASET,PSASLN,PSASTOCK,PSASUB,PSASUP,PSASUPP,PSATAB,PSATEMP,PSAUPC,PSAVAULT,PSAVBKG,PSAVER,PSAVSN,PSAOU,PSATMP,PSALCK
  1. K PSASS,X,X1,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,PSARTN1
  1. Q
  1. ;
  1. HDR ;Header with screen hold
  1. S PSASS=21-$Y F PSAKK=1:1:PSASS W !
  1. S DIR(0)="E" D ^DIR K DIR I $G(DIRUT) S PSASTOP=1 Q
  1. W @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>",!!,PSADLN
  1. Q
  1. LOAD ;Loads invoices to be edited into an array
  1. K PSAEDIT S (PSALOAD,PSACNT)=0
  1. F S PSALOAD=+$O(PSAVER(PSALOAD)) Q:'PSALOAD S PSACNT=PSACNT+1,PSAEDIT(PSACNT)=PSAVER(PSALOAD)
  1. K PSAVER
  1. Q
  1. ;
  1. PRTINV ;Sends invoices to printer
  1. S (PSA,PSAOUT)=0 F S PSA=+$O(PSAVER(PSA)) Q:'PSA!(PSAOUT) D
  1. .S PSAORD=$P(PSAVER(PSA),"^"),PSAINV=$P(PSAVER(PSA),"^",2) D ^PSAORDP1
  1. D ^%ZISC
  1. Q
  1. ;
  1. SEL ;Extended help to 'Select invoices'
  1. W !?5,"Enter the number to the left of the invoice data that you want to verify.",!?5,"The invoices' statuses will be changed to Verified."
  1. Q
  1. SELHELP ;Extended help for 'Select invoices to verify'
  1. W !?5,"Enter the number to the left of the invoice data you want to verify.",!?5,"The line items will be displayed for you to select the ones you want"
  1. W !?5,"to correct."
  1. Q
  1. PRINTYN ;Extended help for 'Print invoices?'
  1. W !?5,"Enter YES to print all of the processed invoices you can verify.",!?5,"Enter NO to bypass printing the invoices and continue with verification."
  1. Q
  1. VERIFY ;Extended help for 'Are you sure...'
  1. W !!?5,"Enter YES if the list contains invoices to be verified.",!!?5,"Enter NO if the list contains at least one invoice that should not be"
  1. W !?5,"verified. You will be returned to the original list so you can choose",!?5,"the invoices to be verified again."
  1. Q