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: ^APSQFA

Package: IHS Changes To Pharmacy

Global: ^APSQFA


Information

FileMan FileNo FileMan Filename Package
9009035.3 DRUG PICK IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
IHS Changes To Pharmacy 1 APSQDI1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS Changes To Pharmacy 2 APSQFAS    APSQFAS2    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Changes To Pharmacy 1 DRUG PICK(#9009035.3)[#9009035.32(.01)]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Changes To Pharmacy 1 DRUG PICK(#9009035.3)[#9009035.32(.01)]    
Outpatient Pharmacy 1 OUTPATIENT SITE(#59)[10]    
Pharmacy Data Management 1 DRUG(#50)[2]    

Fields, Total: 13

Field # Name Loc Type Details
.01 QUICK PICK 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  NOV 05, 1998
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    THE QUICK PICK NAME FOR A DRUG
  • CROSS-REFERENCE:  9009035.3^B
    1)= S ^APSQFA("B",$E(X,1,30),DA)=""
    2)= K ^APSQFA("B",$E(X,1,30),DA)
1 SYNONYM 1;0 Multiple #9009035.31 9009035.31
1.5 SEQUENCE 3;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(PSOSITE) K:$D(^APSQFA("SD",PSOSITE,X)) X
  • LAST EDITED:  JAN 12, 2001
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    USED TO SEQUENCE THE ENTRY IN THE LISTER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009035.3^S
    1)= S ^APSQFA("S",$E(X,1,30),DA)=""
    2)= K ^APSQFA("S",$E(X,1,30),DA)
    3)= DONT DELETE PLEASE
  • CROSS-REFERENCE:  9009035.3^SD^MUMPS
    1)= I $P(^APSQFA(DA,0),U,10)]"" S ^APSQFA("SD",$P(^(0),U,10),$E(X,1,30),DA)=""
    2)= I $P(^APSQFA(DA,0),U,10)]"" K ^APSQFA("SD",$P(^(0),U,10),$E(X,1,30),DA)
    3)= DO NOT DELETE USED FOR LISTER APSQDIS
2 DRUG 0;2 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  D TEST^APSQFUTI
  • LAST EDITED:  NOV 09, 1998
  • HELP-PROMPT:  ENTER A DRUG FROM THE DRUG FILE-ONLY ACTIVE DRUGS ARE SELECTABLE
  • SCREEN:  I $S('$D(^PSDRUG(Y,"I")):1,'^("I"):1,DT'>^("I"):1,1:0),$S('$D(^PSDRUG(Y,2)):1,$P(^(2),"^",3)'["O":0,1:1)
  • EXPLANATION:  SCREEN OUT INACTIVE DRUGS ETC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 SIG 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>100!(+X=X)!($L(X)<1)!(X'?.ANP) X D:$D(X) SIG^PSOHELP W:$D(X) " "_"("_$E(SIG,2,9999999)_")"
  • LAST EDITED:  NOV 05, 1998
  • HELP-PROMPT:  ENTER MEDICATION INSTRUCTIONS FOR DRUG FROM 1 TO 100 CHARACTERS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 QTY 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'?1N.ANP!("^"[X)!(+X<0)!(+X>9999)!($L(X)>10) X D:$D(X) QTY^PSOHELP
  • LAST EDITED:  NOV 05, 1998
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 COPIES 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 05, 1998
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
6 DAYS SUPPLY 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>180)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 05, 1998
  • HELP-PROMPT:  Type a Number between 1 and 180, 0 Decimal Digits
7 # OF REFILLS 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D:$D(APSQFDAY)&($D(APSQFDRU)) REFILL^APSQFUTI
  • LAST EDITED:  NOV 05, 1998
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 CHRONIC MED 0;8 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 05, 1998
9 REMARKS 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  NOV 05, 1998
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
10 DIVISION 0;10 POINTER TO OUTPATIENT SITE FILE (#59) OUTPATIENT SITE(#59)

  • LAST EDITED:  MAY 13, 2001
  • HELP-PROMPT:  ENTER THE DIVISION FROM THE OUTPATIENT SITE FILE
  • CROSS-REFERENCE:  9009035.3^SDTOO^MUMPS
    1)= I $P($G(^APSQFA(DA,3)),U,1)]"" S ^APSQFA("SD",$E(X,1,30),$P(^(3),U,1),DA)=""
    2)= I $P($G(^APSQFA(DA,3)),U,1)]"" K ^APSQFA("SD",$E(X,1,30),$P(^(3),U,1),DA)
    3)= DO NOT DELETE USED IN LISTER APSQDIS
20 EXPLODE 2;0 POINTER Multiple #9009035.32 9009035.32
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All