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

PSALOG0.m

Go to the documentation of this file.
  1. PSALOG0 ;BIR/LTL,JMB-Unposted Procurement History - CONT'D ;7/23/97
  1. ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;; 10/24/97
  1. ;This routine prints the Unposted Pharmacy Procurement report. It is
  1. ;called from PSALOG.
  1. ;
  1. POS S (PSAPG,PSAOUT)=0,$P(PSASLN,"-",81)="",$P(PSADLN,"=",81)=""
  1. S PSARPDT=$E($$HTFM^XLFDT($H),1,12),PSADT=$P(PSARPDT,".")
  1. S PSARPDT=$E(PSADT,4,5)_"/"_$E(PSADT,6,7)_"/"_$E(PSADT,2,3)_"@"_$P(PSARPDT,".",2)
  1. D HDR G:PSAOUT END
  1. RT F S PSAYRMO=$O(^PRC(442,"AB",PSAYRMO)) Q:'PSAYRMO!($E(PSAYRMO,4,5)'=PSAMO) S PSAIEN="" D
  1. .F S PSAIEN=+$O(^PRC(442,"AB",PSAYRMO,PSAIEN)) Q:'PSAIEN I $P($G(^PRC(442,PSAIEN,0)),"^",5)=822400,$P($G(^PRC(442,PSAIEN,7)),"^")>14&($P($G(^(7)),"^")<45) D
  1. ..S ^TMP("PSAB",$J,$E($P($G(^PRC(442,PSAIEN,0)),"^"),1,3)_$E($P($G(^PRC(442,PSAIEN,0)),"^",3),1,4),PSAIEN)=""
  1. RTD I '$D(^TMP("PSAB",$J)) W !!,"No items were found for the selected month." G END
  1. S PSACP=""
  1. F S PSACP=$O(^TMP("PSAB",$J,PSACP)) Q:PSACP="" D:$Y+4>IOSL HDR G:PSAOUT END W !!,"STATION/CP: ",PSACP S PSAIEN=0 F S PSAIEN=+$O(^TMP("PSAB",$J,PSACP,PSAIEN)) Q:'PSAIEN D:$Y+4>IOSL HDR G:PSAOUT END D
  1. .S PSAN0=$G(^PRC(442,PSAIEN,0))
  1. .W !,$E($P(PSAN0,"^"),5,10)
  1. .S PSAN1=$G(^PRC(442,PSAIEN,1)),PSADT=$P(PSAN1,"^",15)
  1. .S Y=PSADT X ^DD("DD") W ?10,Y
  1. .W ?22,$E($P(PSAN0,"^",3),1,3),?27,$E($$VENNAME^PRCPUX1($P(PSAN1,"^")_"PRC(440"),1,30)
  1. .S X=$P(PSAN0,"^",15),PSATOT=$G(PSATOT)+X,X2="2$",X3=10 D COMMA^%DTC
  1. .W ?69,X
  1. .Q:'$D(^PRC(442,PSAIEN,2,0)) S PSAITEM=0
  1. .F S PSAITEM=+$O(^PRC(442,PSAIEN,2,PSAITEM)) Q:'PSAITEM D
  1. ..S:$G(^PRC(442,PSAIEN,2,PSAITEM,1,1,0))]"" ^TMP("PSA",$J,PSACP,$E($G(^PRC(442,PSAIEN,2,PSAITEM,1,1,0)),1,65),PSAIEN)=$G(^PRC(442,PSAIEN,2,PSAITEM,0))
  1. .I $G(PSATOT),'$O(^TMP("PSAB",$J,PSACP,PSAIEN)) S X=PSATOT,X2="2$",X3=10 D COMMA^%DTC S PSACOST=X D Q:PSAOUT
  1. ..D:$Y+5>IOSL HDR Q:PSAOUT
  1. ..W !,PSADLN,!,?57,"TOTAL COST: ",PSACOST K PSATOT
  1. END W:$E(IOST)'="C" @IOF
  1. I $E(IOST,1,2)="C-",'$G(PSAOUT) D
  1. .S PSASS=22-$Y F PSAKK=1:1:PSASS W !
  1. .S DIR(0)="EA",DIR("A")="END OF REPORT! Press <RET> to return to continue." D ^DIR K DIR S:'Y PSAOUT=1
  1. Q
  1. HDR I $E(IOST,1,2)="C-",PSAPG D Q:PSAOUT
  1. .S PSASS=22-$Y F PSAKK=1:1:PSASS W !
  1. .S DIR(0)="E" D ^DIR K DIR S:'Y PSAOUT=1
  1. I $$S^%ZTLOAD S PSAOUT=1 Q
  1. W:$Y @IOF S PSAPG=PSAPG+1
  1. W:$E(IOST)'="C" !!,PSARPDT W:$E(IOST,1,2)="C-" !
  1. W ?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"PAGE ",$J(PSAPG,2)
  1. W !?19,"UNPOSTED PHARMACY PROCUREMENTS FOR ",PSAMOYR
  1. W !!,"PO #",?10,"PO DATE",?22,"CP",?27,"VENDOR",?69,"TOTAL COST",!,PSADLN
  1. Q