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 |  All
Print Page as PDF
Global: ^APSPRREQ

Package: IHS Changes To Pharmacy

Global: ^APSPRREQ


Information

FileMan FileNo FileMan Filename Package
9009033.91 APSP REFILL REQUESTS IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
IHS Changes To Pharmacy 14 APSPEC16    APSPEC17    APSPEC18    APSPEC19    APSPEC20    APSPEC21    APSPEC22    APSPES2
APSPESG    APSPESG1    APSPESG2    APSPESLM    APSPESLP    APSPESLR    

Accessed By FileMan Db Calls, Total: 16

Package Total Routines
IHS Changes To Pharmacy 12 APSPEC16    APSPELRX    APSPES1    APSPES2    APSPES3    APSPES4    APSPESG    APSPESG1
APSPESG2    APSPESLM    APSPESLP    APSPESLR    
IHS Electronic Health Record 2 BEHORXF1    BEHORXRT    
IHS Mods To Text Integration Utilities 1 BTIUMED1    
Order Entry Results Reporting 1 ORQ21    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Changes To Pharmacy 1 APSP REFILL REQUESTS(#9009033.91)[#9009033.919(.01)]    

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Order Entry Results Reporting 3 ORDER(#100)[.02]    ORDER DIALOG(#101.41)[#9009033.9145(.02)]    ORDERABLE ITEMS(#101.43)[1.1]    
IHS Changes To Pharmacy 2 APSP PHARMACY LIST(#9009033.9)[1.7]    APSP REFILL REQUESTS(#9009033.91)[#9009033.919(.01)]    
National Drug File 2 DRUG UNITS(#50.607)[#9009033.912(1.3)]    MEDICATION ROUTES(#51.2)[#9009033.912(1.7)]    
IHS Patient 1 PATIENT(#9000001)[1.2]    
Kernel 1 NEW PERSON(#200)[.09, 1.3, #9009033.916(.03)]
Outpatient Pharmacy 1 PRESCRIPTION(#52)[.06]    
Pharmacy Data Management 1 DRUG(#50)[1.8]    
Scheduling 1 HOSPITAL LOCATION(#44)[1.6]    

Fields, Total: 33

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

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  SEP 22, 2008
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • CROSS-REFERENCE:  9009033.91^B
    1)= S ^APSPRREQ("B",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("B",$E(X,1,30),DA)
.02 OERR ORDER # 0;2 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  SEP 22, 2008
  • CROSS-REFERENCE:  9009033.91^C
    1)= S ^APSPRREQ("C",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("C",$E(X,1,30),DA)
.03 STATUS 0;3 SET
  • '0' FOR TO BE PROCESSED;
  • '1' FOR PROCESSING;
  • '2' FOR PROCESSED - ACCEPTED;
  • '3' FOR PROCESSED - DENIED;
  • '4' FOR MAPPING - INCOMPLETE;
  • '5' FOR PROCESSED - DENIED (NEW RX);
  • '6' FOR MAPPING - COMPLETE;
  • '9' FOR ERROR;

  • LAST EDITED:  DEC 07, 2012
  • CROSS-REFERENCE:  9009033.91^F
    1)= S ^APSPRREQ("F",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("F",$E(X,1,30),DA)
.04 MESSAGE DATE/TIME 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 23, 2008
  • CROSS-REFERENCE:  9009033.91^D
    1)= S ^APSPRREQ("D",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("D",$E(X,1,30),DA)
.05 HLO MESSAGE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  SEP 22, 2008
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
.06 RX TO RENEW 0;6 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Points to prescription to be renewed.
.07 LAST UPDATED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 08, 2008
.08 ACTIVITY ACTION 0;8 SET
  • '1' FOR ACCEPT;
  • '2' FOR ACCEPT W/CHG;
  • '3' FOR DENY W/NOTF;
  • '4' FOR DENY;

  • LAST EDITED:  OCT 26, 2012
  • DESCRIPTION:  
    Holds the user action selected during processing of the order.
.09 ACTIVITY ACTION USER 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 11, 2012
.1 RXREFNUMBER 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  DEC 14, 2012
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    Holds the RxReferenceNumber coming from Surescripts.
  • CROSS-REFERENCE:  9009033.91^G
    1)= S ^APSPRREQ("G",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("G",$E(X,1,30),DA)
.11 ITEMS MATCHED 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  JUL 01, 2013
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    Field can contain one or more of the following characters.  O=Order (PON) P=Patient M=Medication D=Doctor Z=Forces Deny only
1.1 ORDERABLE ITEM 1;1 POINTER TO ORDERABLE ITEMS FILE (#101.43) ORDERABLE ITEMS(#101.43)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^ORD(101.43,Y,""PS"")),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 03, 2008
  • SCREEN:  S DIC("S")="I $P($G(^ORD(101.43,Y,""PS"")),U,2)"
  • EXPLANATION:  Allow only pharmacy orderable items.
1.11 REQUEST CHANGED 1;11 SET
  • '0' FOR NO;
  • '1' FOR CHANGED PROVIDER;
  • '2' FOR CHANGED MAPPINGS;

  • LAST EDITED:  FEB 14, 2013
  • DESCRIPTION:  
    Field is set to yes when the ordering provider is changed from the original provider assigned during the mapping process.
1.12 DAW 1;12 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 01, 2013
1.2 PATIENT 1;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  OCT 23, 2008
  • CROSS-REFERENCE:  9009033.91^E
    1)= S ^APSPRREQ("E",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("E",$E(X,1,30),DA)
1.3 PROVIDER 1;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 28, 2008
  • CROSS-REFERENCE:  9009033.91^APRV
    1)= S ^APSPRREQ("APRV",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("APRV",$E(X,1,30),DA)
1.4 QUANTITY 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 18, 2008
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
1.5 DAYS SUPPLY 1;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 18, 2008
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
1.6 HOSPITAL LOCATION 1;6 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I '$G(^(""I""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 23, 2008
  • SCREEN:  S DIC("S")="I '$G(^(""I""))"
  • EXPLANATION:  Screen out inactive locations.
1.7 PHARMACY 1;7 POINTER TO APSP PHARMACY LIST FILE (#9009033.9) APSP PHARMACY LIST(#9009033.9)

  • LAST EDITED:  OCT 23, 2008
  • CROSS-REFERENCE:  9009033.91^APHM
    1)= S ^APSPRREQ("APHM",$E(X,1,30),DA)=""
    2)= K ^APSPRREQ("APHM",$E(X,1,30),DA)
1.8 DISPENSE MED 1;8 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  AUG 03, 2012
1.9 FILL COUNT 1;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>16)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 30, 2012
  • HELP-PROMPT:  Type a number between 1 and 16, 0 decimal digits.
2 MEDICATION INSTRUCTIONS 2;0 Multiple #9009033.912 9009033.912
3 SIG1 3;0 Multiple #9009033.913 9009033.913
4 DENIAL REASON 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>244!($L(X)<3) X
  • LAST EDITED:  AUG 28, 2012
  • HELP-PROMPT:  Answer must be 3-244 characters in length.
4.1 PATIENT INSTRUCTIONS 4.1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  APR 11, 2013
  • HELP-PROMPT:  Answer must be 1-200 characters in length.
  • DESCRIPTION:  
    This field holds the value of field 6 of the HL7 RXO segment.
4.5 RESPONSES 4.5;0 Multiple #9009033.9145 9009033.9145
5 HL7 MESSAGE 5;0 WORD-PROCESSING #9009033.915
6 ACTIVITY DATE/TIME 6;0 DATE Multiple #9009033.916 9009033.916
7.1 SIGN OR SYMPTOM 7;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 27, 2012
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
7.2 INDICATION CODE 7;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  NOV 27, 2012
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
7.3 SNOMED CONCEPT ID 7;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 30, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
9 RELATED REQUESTS 9;0 POINTER Multiple #9009033.919 9009033.919
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All