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 |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^APSPOPHM

Package: IHS Changes To Pharmacy

Global: ^APSPOPHM


Information

FileMan FileNo FileMan Filename Package
9009033.9 APSP PHARMACY LIST IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
IHS Changes To Pharmacy 4 APSPELRX    APSPFNC2    APSPFNC4    APSPFNC5    
IHS Electronic Health Record 1 BEHORXRT    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
IHS Changes To Pharmacy 8 APSPEC11    APSPELRX    APSPES1    APSPES2    APSPESG    APSPESG1    APSPFNC4    APSPPCC
IHS Mods To Text Integration Utilities 1 BTIUMED1    
Order Entry Results Reporting 1 ORWDXR    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Changes To Pharmacy 1 APSP REFILL REQUESTS(#9009033.91)[1.7]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[9999999.24]    

Fields, Total: 30

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

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 3-35 characters in length.
  • PRE-LOOKUP:  I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Pharmacy entries may not be edited.","","!?5,$C(7)")
  • DELETE TEST:  1,0)= D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master Update.","","!?5,$C(7)") I $D(XUMF)
    WRITE AUTHORITY:  ^
  • CROSS-REFERENCE:  9009033.9^B
    1)= S ^APSPOPHM("B",$E(X,1,35),DA)=""
    2)= K ^APSPOPHM("B",$E(X,1,35),DA)
.02 NCPDPID 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 1-7 characters in length
  • CROSS-REFERENCE:  9009033.9^C
    1)= S ^APSPOPHM("C",$E(X,1,30),DA)=""
    2)= K ^APSPOPHM("C",$E(X,1,30),DA)
.03 STORE NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 1-35 characters in length
.04 NPI 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  Answer must be 1-10 characters in length
.05 SERVICE LEVEL 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>32768)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Type a number between 0 and 32768, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 24 HR FLAG 0;6 SET
  • 'T' FOR TRUE;
  • 'F' FOR FALSE;
  • 'N' FOR NOT AVAILABLE;

  • LAST EDITED:  OCT 01, 2007
.1 STORE NAME 0;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  Answer must be 3-35 characters in length
1.1 ADDRESS LINE 1 1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
1.2 ADDRESS LINE 2 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
1.3 CITY 1;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
1.4 STATE 1;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X S:$D(X) X=$$UP^XLFSTR(X)
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 2 characters in length
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009033.9^D
    1)= S ^APSPOPHM("D",$E(X,1,30),DA)=""
    2)= K ^APSPOPHM("D",$E(X,1,30),DA)
1.5 ZIP CODE 1;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<5) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Answer must be 5-11 characters in length
  • CROSS-REFERENCE:  9009033.9^ZIP^MUMPS
    1)= S ^APSPOPHM("ZIP",$E(X,1,5),DA)=""
    2)= K ^APSPOPHM("ZIP",$E(X,1,5),DA)
1.6 CROSS STREET 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  Answer must be 1-35 characters in length
2.1 PRIMARY PHONE NUMBER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<10)!'(X?10N.(1"x".N)) X
  • LAST EDITED:  MAY 20, 2013
  • HELP-PROMPT:  Answer must be 10-25 characters in length.
2.2 PRIMARY FAX NUMBER 2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10)!'(X?10N) X
  • LAST EDITED:  JUL 13, 2012
  • HELP-PROMPT:  Fax number where pharmacy would like to have faxed communication. (Format: 5553334466)
2.3 EMAIL ADDRESS 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3)!'(X?.E1"@".E) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  Answer must be 3-80 characters in length. (Format: user@domain name)
3 ALTERNATE PHONE NUMBERS 3;0 Multiple #9009033.93 9009033.93
4 ALTERNATE REFERENCE NUMBERS 4;0 Multiple #9009033.94 9009033.94
5.1 OLD SERVICE LEVEL 5;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>32768)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  Previous pharmacy service level
5.2 TEXT SERVICE LEVEL 5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  Text formatted service level (NEW|REF)
5.3 TEXT SERVICE LEVEL CHANGE 5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  Text formatted service level change (-REF|+NEW)
6.1 RECORD CHANGE 6;1 SET
************************REQUIRED FIELD************************
  • 'N' FOR NEW;
  • 'U' FOR UPDATED;
  • 'D' FOR DEACTIVATED;

  • LAST EDITED:  JUL 24, 2012
  • HELP-PROMPT:  N=New, U=Updated, D=Deactivated
  • DESCRIPTION:  
    Denotes any changes made to the record. N=New, U=Updated, D=Deactivated
6.2 VERSION 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  OCT 16, 2012
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    SCRIPT routine version (SMS) used by the prescriber or pharmacy.
6.3 MEDICARE NUMBER 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JUL 24, 2012
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    Pharmacy Identifier.
6.4 MEDICAID NUMBER 6;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JUL 24, 2012
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    Pharmacy Identifier
7.1 ACTIVE START DATE 7;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 15, 2008
  • HELP-PROMPT:  Active Start Time for SureScripts interface
7.2 ACTIVE END TIME 7;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 15, 2008
  • HELP-PROMPT:  Active End Time for SureScripts interface.
7.3 SS PARTNER ACCOUNT 7;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  OCT 01, 2007
  • HELP-PROMPT:  SureScripts account name of pharmacy network participant.
7.4 LAST MODIFIED DATE 7;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JAN 10, 2008
  • HELP-PROMPT:  SureScripts last modified date.
8 SPECIALTY TYPE 8;0 SET Multiple #9009033.98 9009033.98
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  All