PSGWI014 ; ; 04-JAN-1994
;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
Q:'DIFQ(58.16) 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
;;^DIC(58.16,0,"GL")
;;=^PSI(58.16,
;;^DIC("B","AOU INVENTORY TYPE",58.16)
;;=
;;^DIC(58.16,"%",0)
;;=^1.005^1^1
;;^DIC(58.16,"%",1,0)
;;=PSGW
;;^DIC(58.16,"%","B","PSGW",1)
;;=
;;^DIC(58.16,"%D",0)
;;=^^4^4^2900213^^^^
;;^DIC(58.16,"%D",1,0)
;;=Defines the inventory types which are used to group related items in
;;^DIC(58.16,"%D",2,0)
;;=or across areas of use. This file is defined by the user to allow
;;^DIC(58.16,"%D",3,0)
;;=maximum flexibility in adapting to the system of inventory in each
;;^DIC(58.16,"%D",4,0)
;;=hospital.
;;^DD(58.16,0)
;;=FIELD^^1^2
;;^DD(58.16,0,"IX","B",58.16,.01)
;;=
;;^DD(58.16,0,"NM","AOU INVENTORY TYPE")
;;=
;;^DD(58.16,0,"PT",58.13,.01)
;;=
;;^DD(58.16,0,"PT",58.22,.01)
;;=
;;^DD(58.16,0,"PT",58.25,.01)
;;=
;;^DD(58.16,0,"PT",58.291,.01)
;;=
;;^DD(58.16,0,"PT",58.800116,.01)
;;=
;;^DD(58.16,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
;;^DD(58.16,.01,1,0)
;;=^.1
;;^DD(58.16,.01,1,1,0)
;;=58.16^B
;;^DD(58.16,.01,1,1,1)
;;=S ^PSI(58.16,"B",$E(X,1,30),DA)=""
;;^DD(58.16,.01,1,1,2)
;;=K ^PSI(58.16,"B",$E(X,1,30),DA)
;;^DD(58.16,.01,3)
;;=Answer must be 3-30 characters in length
;;^DD(58.16,.01,21,0)
;;=^^3^3^2931014^^^
;;^DD(58.16,.01,21,1,0)
;;=This contains the name of an inventory type, i.e. injections,
;;^DD(58.16,.01,21,2,0)
;;=external, internal, oral liquid, or oral solid. This will be
;;^DD(58.16,.01,21,3,0)
;;=used to group items in each Area of Use.
;;^DD(58.16,.01,"DEL",1,0)
;;=I $P(^PSI(58.16,DA,0),"^",1)="ON-DEMAND" W !,"This entry cannot be deleted, it is a requirement of the software."
;;^DD(58.16,1,0)
;;=TYPE DESCRIPTION^58.18^^1;0
;;^DD(58.16,1,21,0)
;;=^^3^3^2910304^^^
;;^DD(58.16,1,21,1,0)
;;=This contains information that describes this inventory type.
;;^DD(58.16,1,21,2,0)
;;=This is purely for documentation of the scheme you have adopted at
;;^DD(58.16,1,21,3,0)
;;=your site.
;;^DD(58.18,0)
;;=TYPE DESCRIPTION SUB-FIELD^NL^.01^1
;;^DD(58.18,0,"NM","TYPE DESCRIPTION")
;;=
;;^DD(58.18,0,"UP")
;;=58.16
;;^DD(58.18,.01,0)
;;=TYPE DESCRIPTION^W^^0;1^Q
;;^DD(58.18,.01,21,0)
;;=^^3^3^2910304^
;;^DD(58.18,.01,21,1,0)
;;=This contains information that describes this inventory type.
;;^DD(58.18,.01,21,2,0)
;;=This is purely for documentation of the scheme you have adopted at
;;^DD(58.18,.01,21,3,0)
;;=your site.
;;^DD(58.18,.01,"DT")
;;=2840619
PSGWI014 ; ; 04-JAN-1994
+1 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
+2 IF 'DIFQ(58.16)
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 ;;^DIC(58.16,0,"GL")
+2 ;;=^PSI(58.16,
+3 ;;^DIC("B","AOU INVENTORY TYPE",58.16)
+4 ;;=
+5 ;;^DIC(58.16,"%",0)
+6 ;;=^1.005^1^1
+7 ;;^DIC(58.16,"%",1,0)
+8 ;;=PSGW
+9 ;;^DIC(58.16,"%","B","PSGW",1)
+10 ;;=
+11 ;;^DIC(58.16,"%D",0)
+12 ;;=^^4^4^2900213^^^^
+13 ;;^DIC(58.16,"%D",1,0)
+14 ;;=Defines the inventory types which are used to group related items in
+15 ;;^DIC(58.16,"%D",2,0)
+16 ;;=or across areas of use. This file is defined by the user to allow
+17 ;;^DIC(58.16,"%D",3,0)
+18 ;;=maximum flexibility in adapting to the system of inventory in each
+19 ;;^DIC(58.16,"%D",4,0)
+20 ;;=hospital.
+21 ;;^DD(58.16,0)
+22 ;;=FIELD^^1^2
+23 ;;^DD(58.16,0,"IX","B",58.16,.01)
+24 ;;=
+25 ;;^DD(58.16,0,"NM","AOU INVENTORY TYPE")
+26 ;;=
+27 ;;^DD(58.16,0,"PT",58.13,.01)
+28 ;;=
+29 ;;^DD(58.16,0,"PT",58.22,.01)
+30 ;;=
+31 ;;^DD(58.16,0,"PT",58.25,.01)
+32 ;;=
+33 ;;^DD(58.16,0,"PT",58.291,.01)
+34 ;;=
+35 ;;^DD(58.16,0,"PT",58.800116,.01)
+36 ;;=
+37 ;;^DD(58.16,.01,0)
+38 ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
+39 ;;^DD(58.16,.01,1,0)
+40 ;;=^.1
+41 ;;^DD(58.16,.01,1,1,0)
+42 ;;=58.16^B
+43 ;;^DD(58.16,.01,1,1,1)
+44 ;;=S ^PSI(58.16,"B",$E(X,1,30),DA)=""
+45 ;;^DD(58.16,.01,1,1,2)
+46 ;;=K ^PSI(58.16,"B",$E(X,1,30),DA)
+47 ;;^DD(58.16,.01,3)
+48 ;;=Answer must be 3-30 characters in length
+49 ;;^DD(58.16,.01,21,0)
+50 ;;=^^3^3^2931014^^^
+51 ;;^DD(58.16,.01,21,1,0)
+52 ;;=This contains the name of an inventory type, i.e. injections,
+53 ;;^DD(58.16,.01,21,2,0)
+54 ;;=external, internal, oral liquid, or oral solid. This will be
+55 ;;^DD(58.16,.01,21,3,0)
+56 ;;=used to group items in each Area of Use.
+57 ;;^DD(58.16,.01,"DEL",1,0)
+58 ;;=I $P(^PSI(58.16,DA,0),"^",1)="ON-DEMAND" W !,"This entry cannot be deleted, it is a requirement of the software."
+59 ;;^DD(58.16,1,0)
+60 ;;=TYPE DESCRIPTION^58.18^^1;0
+61 ;;^DD(58.16,1,21,0)
+62 ;;=^^3^3^2910304^^^
+63 ;;^DD(58.16,1,21,1,0)
+64 ;;=This contains information that describes this inventory type.
+65 ;;^DD(58.16,1,21,2,0)
+66 ;;=This is purely for documentation of the scheme you have adopted at
+67 ;;^DD(58.16,1,21,3,0)
+68 ;;=your site.
+69 ;;^DD(58.18,0)
+70 ;;=TYPE DESCRIPTION SUB-FIELD^NL^.01^1
+71 ;;^DD(58.18,0,"NM","TYPE DESCRIPTION")
+72 ;;=
+73 ;;^DD(58.18,0,"UP")
+74 ;;=58.16
+75 ;;^DD(58.18,.01,0)
+76 ;;=TYPE DESCRIPTION^W^^0;1^Q
+77 ;;^DD(58.18,.01,21,0)
+78 ;;=^^3^3^2910304^
+79 ;;^DD(58.18,.01,21,1,0)
+80 ;;=This contains information that describes this inventory type.
+81 ;;^DD(58.18,.01,21,2,0)
+82 ;;=This is purely for documentation of the scheme you have adopted at
+83 ;;^DD(58.18,.01,21,3,0)
+84 ;;=your site.
+85 ;;^DD(58.18,.01,"DT")
+86 ;;=2840619
