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

PSGWI012.m

Go to the documentation of this file. 
  1. PSGWI012 ; ; 04-JAN-1994
  1.  ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
  1.  Q:'DIFQ(58.1)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q Q
  1.  ;;^DD(58.27,1,21,2,0)
  1.  ;;=out of 100 on the ward would be 40%.
  1.  ;;^DD(58.27,1,"DT")
  1.  ;;=2850812
  1.  ;;^DD(58.28,0)
  1.  ;;=ON-DEMAND REQUEST DATE/TIME SUB-FIELD^NL^5^6
  1.  ;;^DD(58.28,0,"IX","AMIS",58.28,1)
  1.  ;;=
  1.  ;;^DD(58.28,0,"IX","AMISERR",58.28,1)
  1.  ;;=
  1.  ;;^DD(58.28,0,"NM","ON-DEMAND REQUEST DATE/TIME")
  1.  ;;=
  1.  ;;^DD(58.28,0,"UP")
  1.  ;;=58.11
  1.  ;;^DD(58.28,.01,0)
  1.  ;;=ON-DEMAND REQUEST DATE/TIME^D^^0;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(58.28,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(58.28,.01,1,1,0)
  1.  ;;=58.1^OND
  1.  ;;^DD(58.28,.01,1,1,1)
  1.  ;;=S ^PSI(58.1,"OND",$E(X,1,30),DA(2),DA(1),DA)=""
  1.  ;;^DD(58.28,.01,1,1,2)
  1.  ;;=K ^PSI(58.1,"OND",$E(X,1,30),DA(2),DA(1),DA)
  1.  ;;^DD(58.28,.01,3)
  1.  ;;=Enter the Date/Time for the On-Demand Request
  1.  ;;^DD(58.28,.01,21,0)
  1.  ;;=^^2^2^2930714^
  1.  ;;^DD(58.28,.01,21,1,0)
  1.  ;;=This contains the DATE/TIME of the request for an item which is not
  1.  ;;^DD(58.28,.01,21,2,0)
  1.  ;;=currently a standard stocked item in the Area of Use.
  1.  ;;^DD(58.28,.01,"DT")
  1.  ;;=2900703
  1.  ;;^DD(58.28,1,0)
  1.  ;;=ON-DEMAND QUANTITY DISPENSED^NJ4,0X^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X D:$D(X) OND^PSGWUTL
  1.  ;;^DD(58.28,1,.1)
  1.  ;;=ON-DEMAND QUANTITY
  1.  ;;^DD(58.28,1,1,0)
  1.  ;;=^.1
  1.  ;;^DD(58.28,1,1,1,0)
  1.  ;;=58.28^AMIS^MUMPS
  1.  ;;^DD(58.28,1,1,1,1)
  1.  ;;=Q:$D(PSGWV)  D OD^PSGWUTL
  1.  ;;^DD(58.28,1,1,1,2)
  1.  ;;=Q:$D(PSGWV)  D KOD^PSGWUTL
  1.  ;;^DD(58.28,1,1,1,"%D",0)
  1.  ;;=^^5^5^2930827^
  1.  ;;^DD(58.28,1,1,1,"%D",1,0)
  1.  ;;=This cross-reference is set everytime a quantity greater than zero is 
  1.  ;;^DD(58.28,1,1,1,"%D",2,0)
  1.  ;;=dispensed for an On-Demand Request for a stock item. The nightly job
  1.  ;;^DD(58.28,1,1,1,"%D",3,0)
  1.  ;;="Update AMIS Stats File" will process this cross-reference and store
  1.  ;;^DD(58.28,1,1,1,"%D",4,0)
  1.  ;;=the data in the AR/WS Stats File (58.5). After the cross-reference is
  1.  ;;^DD(58.28,1,1,1,"%D",5,0)
  1.  ;;=processed, it is deleted.
  1.  ;;^DD(58.28,1,1,2,0)
  1.  ;;=58.28^AMISERR^MUMPS
  1.  ;;^DD(58.28,1,1,2,1)
  1.  ;;=Q:$D(PSGWV)  D ODERR^PSGWUTL
  1.  ;;^DD(58.28,1,1,2,2)
  1.  ;;=Q:$D(PSGWV)  D KODERR^PSGWUTL
  1.  ;;^DD(58.28,1,1,2,"%D",0)
  1.  ;;=^^5^5^2930827^
  1.  ;;^DD(58.28,1,1,2,"%D",1,0)
  1.  ;;=This cross-reference is set by the nightly job "Update AMIS Stats File"
  1.  ;;^DD(58.28,1,1,2,"%D",2,0)
  1.  ;;=if an AMIS transaction is found to have invalid or missing Inpatient Site
  1.  ;;^DD(58.28,1,1,2,"%D",3,0)
  1.  ;;=data. Existence of this cross-reference will cause a MailMan message to
  1.  ;;^DD(58.28,1,1,2,"%D",4,0)
  1.  ;;=be sent to holders of the PSGWMGR security key informing them of the 
  1.  ;;^DD(58.28,1,1,2,"%D",5,0)
  1.  ;;=invalid or missing data.
  1.  ;;^DD(58.28,1,3)
  1.  ;;=Type a Number between 0 and 9999, 0 Decimal Digits.
  1.  ;;^DD(58.28,1,21,0)
  1.  ;;=^^1^1^2920708^^^^
  1.  ;;^DD(58.28,1,21,1,0)
  1.  ;;=This contains the quantity dispensed for the on-demand request.
  1.  ;;^DD(58.28,1,"DT")
  1.  ;;=2910228
  1.  ;;^DD(58.28,2,0)
  1.  ;;=ON-DEMAND REQUEST ENTERED BY^RP200'^VA(200,^0;3^Q
  1.  ;;^DD(58.28,2,.1)
  1.  ;;=REQUEST ENTERED BY:
  1.  ;;^DD(58.28,2,3)
  1.  ;;=Enter the name of the original user for this request.
  1.  ;;^DD(58.28,2,21,0)
  1.  ;;=^^2^2^2900712^^^^
  1.  ;;^DD(58.28,2,21,1,0)
  1.  ;;=This points to File 200 - the New Person File.  It contains the pointer number
  1.  ;;^DD(58.28,2,21,2,0)
  1.  ;;=of the person who has entered the on-demand request.
  1.  ;;^DD(58.28,2,"DT")
  1.  ;;=2900712
  1.  ;;^DD(58.28,3,0)
  1.  ;;=COMPILED INTO AMIS?^S^1:YES;0:NO;^0;4^Q
  1.  ;;^DD(58.28,3,.1)
  1.  ;;=COMPILED FLAG
  1.  ;;^DD(58.28,3,21,0)
  1.  ;;=^^5^5^2910221^^^^
  1.  ;;^DD(58.28,3,21,1,0)
  1.  ;;=A TaskMan background routine ^PSGWUAS (option PSGW UPDATE AMIS STATS) runs
  1.  ;;^DD(58.28,3,21,2,0)
  1.  ;;=each night.  As the data for an on-demand transaction is completed, this
  1.  ;;^DD(58.28,3,21,3,0)
  1.  ;;="COMPILED FLAG" will be set to "1".  This will enable the cross-reference
  1.  ;;^DD(58.28,3,21,4,0)
  1.  ;;=^PSI(58.5,"AMIS") to be recompiled via the option PSGW RE-INDEX AMIS or
  1.  ;;^DD(58.28,3,21,5,0)
  1.  ;;=via VA FileMan should the need arise.
  1.  ;;^DD(58.28,3,"DT")
  1.  ;;=2880126
  1.  ;;^DD(58.28,4,0)
  1.  ;;=ON-DEMAND REQUEST EDITED BY^P200'^VA(200,^0;5^Q
  1.  ;;^DD(58.28,4,.1)
  1.  ;;=LAST EDITED BY:
  1.  ;;^DD(58.28,4,3)
  1.  ;;=Enter the name of the person who last edited this request.
  1.  ;;^DD(58.28,4,21,0)
  1.  ;;=^^2^2^2900712^^^^