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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^APSPDUE(32

Package: IHS Changes To Pharmacy

Global: ^APSPDUE(32


Information

FileMan FileNo FileMan Filename Package
9009032 APSP DUE REVIEW IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
IHS Changes To Pharmacy 16 APSPDRP    APSPDRP2    APSPDUEA    APSPDUEN    APSPT01    APSPT011    APSPT012    APSPT013
APSPT014    APSPT02    APSPT06    APSPT061    APSPT07    APSPT071    APSPT08    APSPT081
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 14

Package Total Routines
IHS Changes To Pharmacy 14 APSPDUEA    APSPDUEN    APSPLDEL    APSPT01    APSPT011    APSPT012    APSPT013    APSPT014
APSPT06    APSPT061    APSPT07    APSPT071    APSPT08    APSPT081    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS Changes To Pharmacy 2 APSP DUE STUDY(#9009032.1)[.02]    APSP DUE CRITERIA(#9009032.2)[#9009032.011(.01)]    
Kernel 2 USER(#3)[.07]    PROVIDER(#6)[.06]    
IHS Patient 1 PATIENT(#9000001)[.04]    
Pharmacy Data Management 1 DRUG(#50)[.03]    

Fields, Total: 10

Field # Name Loc Type Details
.01 DUE DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 06, 1989
  • HELP-PROMPT:  ENTER A DUE REVIEW DATE
  • DELETE TEST:  1,0)= I '$D(APSP("LOG DEL FLG"))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009032^B
    1)= S ^APSPDUE(32,"B",$E(X,1,30),DA)=""
    2)= K ^APSPDUE(32,"B",$E(X,1,30),DA)
.02 STUDY NAME 0;2 POINTER TO APSP DUE STUDY FILE (#9009032.1)
************************REQUIRED FIELD************************
APSP DUE STUDY(#9009032.1)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  MAR 15, 1990
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009032^D
    1)= S ^APSPDUE(32,"D",$E(X,1,30),DA)=""
    2)= K ^APSPDUE(32,"D",$E(X,1,30),DA)
.03 DRUG 0;3 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)
.04 PATIENT 0;4 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  MAR 20, 1990
  • CROSS-REFERENCE:  9009032^C
    1)= S ^APSPDUE(32,"C",$E(X,1,30),DA)=""
    2)= K ^APSPDUE(32,"C",$E(X,1,30),DA)
.05 RX # 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
.06 PROVIDER 0;6 POINTER TO PROVIDER FILE (#6)
************************REQUIRED FIELD************************
PROVIDER(#6)
.07 PHARMACIST 0;7 POINTER TO USER FILE (#3)
************************REQUIRED FIELD************************
USER(#3)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSRPH"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 10, 1990
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSRPH"",Y))"
  • EXPLANATION:  Only select a user with a pharmacist's key
.08 ALL CRITERIA MET 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 14, 1990
  • HELP-PROMPT:  ENTER '1' FOR 'YES' OR '0' FOR 'NO'
1100 CRITERIA 11;0 POINTER Multiple #9009032.011 9009032.011
1200 REMARKS 12;0 WORD-PROCESSING #9009032.012
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All