Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9009031.15

Package: IHS Changes To Pharmacy

APSP PREPACK LOG(#9009031)-->9009031.15

Sub-Field: 9009031.15


Information

Parent File Name Number Package
APSP PREPACK LOG(#9009031) LOCATION 9009031.15 IHS Changes To Pharmacy

Details

Field # Name Loc Type Details
.01 LOCATION 0;1 POINTER TO APSP PREPACK LOCATION FILE (#9009031.2) APSP PREPACK LOCATION(#9009031.2)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^APSPP(31.2,Y,""I"")):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 20, 1989
  • HELP-PROMPT:  Enter the name of the location that you wish to dispense these prepacks to.
  • SCREEN:  S DIC("S")="I $S('$D(^APSPP(31.2,Y,""I"")):1,1:0)"
  • EXPLANATION:  If the location has an inactive date, that location will no longer be available for selection.
  • CROSS-REFERENCE:  9009031.15^B
    1)= S ^APSPP(31,DA(1),15,"B",$E(X,1,30),DA)=""
    2)= K ^APSPP(31,DA(1),15,"B",$E(X,1,30),DA)
.02 NO. OF PREPACKS ISSUED 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 21, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of prepacks that were issued to that particular location.
.03 COST COMPUTED

  • MUMPS CODE:  X ^DD(9009031.15,.03,9.2) S Y(9009031.15,.03,2)=X S X=$P(Y(9009031.15,.03,3),U,2),Y=X,X=Y(9009031.15,.03,2),X=X*Y
    9.2 = S Y(9009031.15,.03,1)=$S($D(^APSPP(31,D0,0)):^(0),1:""),Y(9009031.15,.03,3)=$S($D(^APSPP(31,D0,15,D1,0)):^(0),1:"") S X=$P(Y(9009031.15,.03,1),U,11),X=$S($P(Y(9009031.15,.03,1),U,9):X/$P(Y(9009031.15,.03,1),U,9),1:"*
    ******")
  • ALGORITHM:  (TOTAL COST/NUMBER OF PREPACKS)*(NO. OF PREPACKS ISSUED)
Info |  Details |  All