Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^APSPP(31.1

Package: IHS Changes To Pharmacy

Global: ^APSPP(31.1


Information

FileMan FileNo FileMan Filename Package
9009031.1 APSP PREPACK LABELS IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
IHS Changes To Pharmacy 4 APSPE1    APSPRT    APSPT09    APSPT101    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS Changes To Pharmacy 2 APSPE1    APSPT101    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Changes To Pharmacy 1 APSP PREPACK LOG(#9009031)[.03]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Pharmacy Data Management 1 DRUG(#50)[.01]    

Fields, Total: 4

Field # Name Loc Type Details
.01 DRUG 0;1 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^PSDRUG(Y,""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 24, 1989
  • HELP-PROMPT:  Enter the generic name of the drug that you wish to produce a label for. ie. Ampicillin 250MG
  • DESCRIPTION:  
    This field is a pointer to the Drug file.  This is the generic name of the drug that you want to produce a prepack label for.^
  • DELETE TEST:  1,0)= I $D(^APSPP(31,"AC",DA))
  • CROSS-REFERENCE:  9009031.1^B
    1)= S ^APSPP(31.1,"B",$E(X,1,30),DA)=""
    2)= K ^APSPP(31.1,"B",$E(X,1,30),DA)
.02 QTY PER CONTAINER 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X<.01!(+X>9999.99)!($L(X)>10)!'(X?1.4N!(X?.4N1"."1.2N)!(X?1.4N1" ".ANP)!(X?.4N1"."1.2N1" ".ANP)) X
  • LAST EDITED:  JUL 24, 1989
  • HELP-PROMPT:  Type a Number between 0 and 9999.99inclusive. An alpha suffix is allowed after a space, but total entry cannot exceed 10 characters.
  • DESCRIPTION:  
    This is the total number of dispensing units in each prepack.  This is just used as a default by the APSP PREPACK LOG file.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 SIG 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>300!(+X=X)!($L(X)<2)!(X'?.ANP) X X:$D(X) ^DD(9009031.1,.03,9.2) W:$D(X) " (",APSP("SIG"),")" K Z0,Z1
    9.2 = S APSPZW=$S($D(%APSITE):$P(%APSITE,U,4),$D(^AUSYS(1,"PS",1,0)):$P(^(0),U,4),1:31),APSPZW=APSPZW-5 X:$D(X) ^DD(9009031.1,.03,9.3) K APSPZW
    9.3 = S APSP("SIG")="" F Z0=1:1 Q:$P(X," ",Z0,99)=""  S Z1=$P(X," ",Z0) K:$L(Z1)>APSPZW X W:$L(Z1)>APSPZW !,?5,"MAX OF ",APSPZW," CHARACTERS ALLOWED BT SPACES." Q:$L(Z1)>APSPZW  X:Z1]"" ^DD(9009031.1,.03,9.4) S APSP("SIG")
    =APSP("SIG")_$E(" ",Z0>1)_Z1
    9.4 = S Y=$O(^PS(51,"B",Z1,0)) Q:'Y  S Z1=$P(^PS(51,Y,0),U,2) Q:'$D(^(9))  S Y=$P(X," ",Z0-1),Y=$E(Y,$L(Y)) S:Y>1 Z1=^(9)
  • LAST EDITED:  JUL 22, 1989
  • DESCRIPTION:  Enter the medication instructions for this prescription. Entries must be no longer than 300 total characters, (including spaces), with no one set of characters longer than 32 characters in length. You may enter any quick
    code from your medication instruction file.  Any entry you make here will become the sig in the APSP PREPACK LOG file entry when that particular drug is selected.
  • EXECUTABLE HELP:  S DIC=51,ZD=D,DIC(0)="Q" D ^DIC S DIC=DIE,D=ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 INACTIVE DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 22, 1989
  • HELP-PROMPT:  If you enter a date in this field, then this selection will no longer be available for selection.
  • DESCRIPTION:  
    If you enter a date here, this prepack drug will no longer be selectable.
  • CROSS-REFERENCE:  9009031.1^AI^MUMPS
    1)= S ^APSPP(31.1,DA,"I")=X
    2)= K ^APSPP(31.1,DA,"I")
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All