PSGWI011 ; ; 04-JAN-1994
;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
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
Q Q
;;^DD(58.15,1,1,1,"%D",2,0)
;;=returned for a stock item. The nightly job "Update AMIS Stats File"
;;^DD(58.15,1,1,1,"%D",3,0)
;;=will process this cross-reference and store the data in the AR/WS Stats
;;^DD(58.15,1,1,1,"%D",4,0)
;;=File (#58.5). After the cross-reference is processed, it is deleted.
;;^DD(58.15,1,1,2,0)
;;=58.15^AMISERR^MUMPS
;;^DD(58.15,1,1,2,1)
;;=Q:$D(PSGWV) D RETERR^PSGWUTL
;;^DD(58.15,1,1,2,2)
;;=Q:$D(PSGWV) D KRETERR^PSGWUTL
;;^DD(58.15,1,1,2,"%D",0)
;;=^^5^5^2930811^
;;^DD(58.15,1,1,2,"%D",1,0)
;;=This cross-reference is set by the nightly job "Update AMIS Stats File"
;;^DD(58.15,1,1,2,"%D",2,0)
;;=if an AMIS transaction is found to have invalid or missing Inpatient
;;^DD(58.15,1,1,2,"%D",3,0)
;;=Site data. Existence of this cross-reference will cause a MailMan message
;;^DD(58.15,1,1,2,"%D",4,0)
;;=to be sent to holders of the PSGWMGR security key informing them of the
;;^DD(58.15,1,1,2,"%D",5,0)
;;=invalid or missing data.
;;^DD(58.15,1,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits.
;;^DD(58.15,1,21,0)
;;=^^1^1^2871008^^
;;^DD(58.15,1,21,1,0)
;;=This contains the quantity returned from the Area of Use for the item.
;;^DD(58.15,1,"DT")
;;=2910228
;;^DD(58.15,3,0)
;;=COMPILED INTO AMIS?^S^1:YES;0:NO;^0;4^Q
;;^DD(58.15,3,.1)
;;=COMPILED FLAG
;;^DD(58.15,3,21,0)
;;=^^5^5^2910221^^^^
;;^DD(58.15,3,21,1,0)
;;=A TaskMan background routine ^PSGWUAS (option PSGW UPDATE AMIS STATS) runs
;;^DD(58.15,3,21,2,0)
;;=each night. As the data for a return transaction is completed, this
;;^DD(58.15,3,21,3,0)
;;="COMPILED FLAG" will be set to "1". This will enable the cross-reference
;;^DD(58.15,3,21,4,0)
;;=^PSI(58.5,"AMIS") to be recompiled via the option PSGW RE-INDEX AMIS or
;;^DD(58.15,3,21,5,0)
;;=via VA FileMan should the need arise.
;;^DD(58.15,3,"DT")
;;=2880126
;;^DD(58.26,0)
;;=WARD (FOR ITEM) SUB-FIELD^NL^.01^1
;;^DD(58.26,0,"NM","WARD (FOR ITEM)")
;;=
;;^DD(58.26,0,"UP")
;;=58.11
;;^DD(58.26,.01,0)
;;=WARD (FOR ITEM)^MP42'X^DIC(42,^0;1^S:$D(X) DINUM=X
;;^DD(58.26,.01,1,0)
;;=^.1
;;^DD(58.26,.01,1,1,0)
;;=58.1^D^MUMPS
;;^DD(58.26,.01,1,1,1)
;;=I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) D INACT^PSGWUTL I $D(PSGWFLG) S ^PSI(58.1,"D",+^(0),DA,DA(2))="" K PSGWFLG
;;^DD(58.26,.01,1,1,2)
;;=I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) K ^PSI(58.1,"D",+^(0),DA,DA(2))
;;^DD(58.26,.01,1,1,"%D",0)
;;=^^3^3^2930811^
;;^DD(58.26,.01,1,1,"%D",1,0)
;;=This cross-reference is used by the UNIT DOSE package to identify items
;;^DD(58.26,.01,1,1,"%D",2,0)
;;=on the UD pick list that are Ward Stock items. It is also used by the
;;^DD(58.26,.01,1,1,"%D",3,0)
;;=option "Ward (For Item) Conversion".
;;^DD(58.26,.01,3)
;;=Enter the ward which uses this item.
;;^DD(58.26,.01,21,0)
;;=^^4^4^2880224^^^^
;;^DD(58.26,.01,21,1,0)
;;=This contains the pointer to File 42 - Ward Location File.
;;^DD(58.26,.01,21,2,0)
;;=Names of the ward or wards using this item will be entered.
;;^DD(58.26,.01,21,3,0)
;;=This is the link between the AR/WS package and the Unit Dose
;;^DD(58.26,.01,21,4,0)
;;=package for determining ward stocked items.
;;^DD(58.26,.01,"DT")
;;=2900213
;;^DD(58.27,0)
;;=SERVICE SUB-FIELD^NL^1^2
;;^DD(58.27,0,"NM","SERVICE")
;;=
;;^DD(58.27,0,"UP")
;;=58.14
;;^DD(58.27,.01,0)
;;=SERVICE^MP42.4'^DIC(42.4,^0;1^Q
;;^DD(58.27,.01,3)
;;=Enter the name of the service that makes up this ward/location.
;;^DD(58.27,.01,21,0)
;;=^^3^3^2910304^^^^
;;^DD(58.27,.01,21,1,0)
;;=This points to File 42.4 - the Specialty file.
;;^DD(58.27,.01,21,2,0)
;;=It contains the service (or services) served partially or totally
;;^DD(58.27,.01,21,3,0)
;;=by this ward/location.
;;^DD(58.27,.01,"DT")
;;=2850812
;;^DD(58.27,1,0)
;;=SERVICE % OF USE^NJ3,0^^0;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
;;^DD(58.27,1,3)
;;=Type a whole number between 1 and 100
;;^DD(58.27,1,21,0)
;;=^^2^2^2900827^^^^
;;^DD(58.27,1,21,1,0)
;;=This contains the percentage of use for this service. For example 40 beds
PSGWI011 ; ; 04-JAN-1994
+1 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
+2 IF 'DIFQ(58.1)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DD(58.15,1,1,1,"%D",2,0)
+2 ;;=returned for a stock item. The nightly job "Update AMIS Stats File"
+3 ;;^DD(58.15,1,1,1,"%D",3,0)
+4 ;;=will process this cross-reference and store the data in the AR/WS Stats
+5 ;;^DD(58.15,1,1,1,"%D",4,0)
+6 ;;=File (#58.5). After the cross-reference is processed, it is deleted.
+7 ;;^DD(58.15,1,1,2,0)
+8 ;;=58.15^AMISERR^MUMPS
+9 ;;^DD(58.15,1,1,2,1)
+10 ;;=Q:$D(PSGWV) D RETERR^PSGWUTL
+11 ;;^DD(58.15,1,1,2,2)
+12 ;;=Q:$D(PSGWV) D KRETERR^PSGWUTL
+13 ;;^DD(58.15,1,1,2,"%D",0)
+14 ;;=^^5^5^2930811^
+15 ;;^DD(58.15,1,1,2,"%D",1,0)
+16 ;;=This cross-reference is set by the nightly job "Update AMIS Stats File"
+17 ;;^DD(58.15,1,1,2,"%D",2,0)
+18 ;;=if an AMIS transaction is found to have invalid or missing Inpatient
+19 ;;^DD(58.15,1,1,2,"%D",3,0)
+20 ;;=Site data. Existence of this cross-reference will cause a MailMan message
+21 ;;^DD(58.15,1,1,2,"%D",4,0)
+22 ;;=to be sent to holders of the PSGWMGR security key informing them of the
+23 ;;^DD(58.15,1,1,2,"%D",5,0)
+24 ;;=invalid or missing data.
+25 ;;^DD(58.15,1,3)
+26 ;;=Type a Number between 0 and 9999, 0 Decimal Digits.
+27 ;;^DD(58.15,1,21,0)
+28 ;;=^^1^1^2871008^^
+29 ;;^DD(58.15,1,21,1,0)
+30 ;;=This contains the quantity returned from the Area of Use for the item.
+31 ;;^DD(58.15,1,"DT")
+32 ;;=2910228
+33 ;;^DD(58.15,3,0)
+34 ;;=COMPILED INTO AMIS?^S^1:YES;0:NO;^0;4^Q
+35 ;;^DD(58.15,3,.1)
+36 ;;=COMPILED FLAG
+37 ;;^DD(58.15,3,21,0)
+38 ;;=^^5^5^2910221^^^^
+39 ;;^DD(58.15,3,21,1,0)
+40 ;;=A TaskMan background routine ^PSGWUAS (option PSGW UPDATE AMIS STATS) runs
+41 ;;^DD(58.15,3,21,2,0)
+42 ;;=each night. As the data for a return transaction is completed, this
+43 ;;^DD(58.15,3,21,3,0)
+44 ;;="COMPILED FLAG" will be set to "1". This will enable the cross-reference
+45 ;;^DD(58.15,3,21,4,0)
+46 ;;=^PSI(58.5,"AMIS") to be recompiled via the option PSGW RE-INDEX AMIS or
+47 ;;^DD(58.15,3,21,5,0)
+48 ;;=via VA FileMan should the need arise.
+49 ;;^DD(58.15,3,"DT")
+50 ;;=2880126
+51 ;;^DD(58.26,0)
+52 ;;=WARD (FOR ITEM) SUB-FIELD^NL^.01^1
+53 ;;^DD(58.26,0,"NM","WARD (FOR ITEM)")
+54 ;;=
+55 ;;^DD(58.26,0,"UP")
+56 ;;=58.11
+57 ;;^DD(58.26,.01,0)
+58 ;;=WARD (FOR ITEM)^MP42'X^DIC(42,^0;1^S:$D(X) DINUM=X
+59 ;;^DD(58.26,.01,1,0)
+60 ;;=^.1
+61 ;;^DD(58.26,.01,1,1,0)
+62 ;;=58.1^D^MUMPS
+63 ;;^DD(58.26,.01,1,1,1)
+64 ;;=I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) D INACT^PSGWUTL I $D(PSGWFLG) S ^PSI(58.1,"D",+^(0),DA,DA(2))="" K PSGWFLG
+65 ;;^DD(58.26,.01,1,1,2)
+66 ;;=I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) K ^PSI(58.1,"D",+^(0),DA,DA(2))
+67 ;;^DD(58.26,.01,1,1,"%D",0)
+68 ;;=^^3^3^2930811^
+69 ;;^DD(58.26,.01,1,1,"%D",1,0)
+70 ;;=This cross-reference is used by the UNIT DOSE package to identify items
+71 ;;^DD(58.26,.01,1,1,"%D",2,0)
+72 ;;=on the UD pick list that are Ward Stock items. It is also used by the
+73 ;;^DD(58.26,.01,1,1,"%D",3,0)
+74 ;;=option "Ward (For Item) Conversion".
+75 ;;^DD(58.26,.01,3)
+76 ;;=Enter the ward which uses this item.
+77 ;;^DD(58.26,.01,21,0)
+78 ;;=^^4^4^2880224^^^^
+79 ;;^DD(58.26,.01,21,1,0)
+80 ;;=This contains the pointer to File 42 - Ward Location File.
+81 ;;^DD(58.26,.01,21,2,0)
+82 ;;=Names of the ward or wards using this item will be entered.
+83 ;;^DD(58.26,.01,21,3,0)
+84 ;;=This is the link between the AR/WS package and the Unit Dose
+85 ;;^DD(58.26,.01,21,4,0)
+86 ;;=package for determining ward stocked items.
+87 ;;^DD(58.26,.01,"DT")
+88 ;;=2900213
+89 ;;^DD(58.27,0)
+90 ;;=SERVICE SUB-FIELD^NL^1^2
+91 ;;^DD(58.27,0,"NM","SERVICE")
+92 ;;=
+93 ;;^DD(58.27,0,"UP")
+94 ;;=58.14
+95 ;;^DD(58.27,.01,0)
+96 ;;=SERVICE^MP42.4'^DIC(42.4,^0;1^Q
+97 ;;^DD(58.27,.01,3)
+98 ;;=Enter the name of the service that makes up this ward/location.
+99 ;;^DD(58.27,.01,21,0)
+100 ;;=^^3^3^2910304^^^^
+101 ;;^DD(58.27,.01,21,1,0)
+102 ;;=This points to File 42.4 - the Specialty file.
+103 ;;^DD(58.27,.01,21,2,0)
+104 ;;=It contains the service (or services) served partially or totally
+105 ;;^DD(58.27,.01,21,3,0)
+106 ;;=by this ward/location.
+107 ;;^DD(58.27,.01,"DT")
+108 ;;=2850812
+109 ;;^DD(58.27,1,0)
+110 ;;=SERVICE % OF USE^NJ3,0^^0;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
+111 ;;^DD(58.27,1,3)
+112 ;;=Type a whole number between 1 and 100
+113 ;;^DD(58.27,1,21,0)
+114 ;;=^^2^2^2900827^^^^
+115 ;;^DD(58.27,1,21,1,0)
+116 ;;=This contains the percentage of use for this service. For example 40 beds
