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

Package: IHS Patient

Global: ^AUPNSUP


Information

FileMan FileNo FileMan Filename Package
9000021 IHS HL7 SUPPLY INTERFACE IHS Patient

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IHS Omnicell Pyxis Interface 1 BOPROC    
Local Area Programs 1 AZAXDPM1    
Third Party Billing 1 ABMDTMS    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IHS Omnicell Pyxis Interface 1 BOPROC    
IHS Support HL7 Interfaces 1 BHLP03I    
Third Party Billing 1 ABMDTMS    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Third Party Billing 2 3P BILL(#9002274.4)[.07]    3P CLAIM DATA(#9002274.3)[.06]    
Utility Tables 2 PROVIDER NARRATIVE(#9999999.27)[.04]    REVENUE CODES(#9999999.72)[2.06]    
CPT Files 1 CPT(#81)[2.05]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Pharmacy Data Management 1 DRUG(#50)[1.03]    

Fields, Total: 21

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

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  SEP 08, 1999
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    Name of supply
  • CROSS-REFERENCE:  9000021^B
    1)= S ^AUPNSUP("B",$E(X,1,30),DA)=""
    2)= K ^AUPNSUP("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000021^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Enter the patient name.
  • DESCRIPTION:  
    Enter the patient name.
    UNEDITABLE
  • CROSS-REFERENCE:  9000021^AC
    1)= S ^AUPNSUP("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNSUP("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000021^AATOO^MUMPS
    1)= S ^AUPNSUP("AA",X,9999999,DA)=""
    2)= K ^AUPNSUP("AA",X,9999999,DA)
  • CROSS-REFERENCE:  9000021^ASUP2^MUMPS
    1)= I X,$P(^AUPNSUP(DA,0),U,3) S ^AUPNSUP("ASUP",X,$P(^(0),U,3),DA)=""
    2)= I X,$P(^AUPNSUP(DA,0),U,3) K ^AUPNSUP("ASUP",X,$P(^(0),U,3),DA)
.03 DATE ISSUED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
  • DESCRIPTION:  
    Date supply issued.
    UNEDITABLE
  • CROSS-REFERENCE:  9000021^AD
    1)= S ^AUPNSUP("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNSUP("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000021^ASUP^MUMPS
    1)= I X,$P(^AUPNSUP(DA,0),U,2) S ^AUPNSUP("ASUP",$P(^(0),U,2),X,DA)=""
    2)= I X,$P(^AUPNSUP(DA,0),U,2) K ^AUPNSUP("ASUP",$P(^(0),U,2),X,DA)
.04 PROVIDER NARRATIVE 0;4 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)
************************REQUIRED FIELD************************
PROVIDER NARRATIVE(#9999999.27)

  • INPUT TRANSFORM:  S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 28, 1988
  • HELP-PROMPT:  Enter the provider narrative.
  • DESCRIPTION:  
    Enter the provider narrative.
  • SCREEN:  S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO")
  • EXPLANATION:  OLD LOOKUP
.05 DATE OF DATA ENTRY 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 08, 1999
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1940 AND TODAY
  • DESCRIPTION:  
    Date of data entry.
  • CROSS-REFERENCE:  9000021^AA^MUMPS
    1)= K ^AUPNSUP("AA",$P(^AUPNSUP(DA,0),U,2),9999999,DA) S ^AUPNSUP("AA",$P(^AUPNSUP(DA,0),U,2),9999999-X,DA)=""
    2)= K ^AUPNSUP("AA",$P(^AUPNSUP(DA,0),U,2),9999999-X,DA)
.06 3P CLAIM 0;6 POINTER TO 3P CLAIM DATA FILE (#9002274.3) 3P CLAIM DATA(#9002274.3)

  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Enter the 3P Claim number.
  • DESCRIPTION:  
    Enter the 3P Claim number.
.07 3P BILL 0;7 POINTER TO 3P BILL FILE (#9002274.4) 3P BILL(#9002274.4)

  • LAST EDITED:  SEP 11, 1999
  • DESCRIPTION:  
    Enter the 3P Bill.
1.01 TRANSACTION CODE 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Enter the transaction code.
1.02 SUPPLY NAME 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    Enter the name of the supply.
1.03 MEDICATION SUPPLY 1;3 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Enter the name of the medication.
  • DESCRIPTION:  
    Enter the name of the medication.
1.04 GENERAL SUPPLY 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Enter the name of the supply.
2.01 SUPPLY DESCRIPTION 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  OCT 23, 2000
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
  • DESCRIPTION:  
    Enter the description of the supply.
2.02 CHARGE DATE 2;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Enter the date of the charge.
  • DESCRIPTION:  
    Enter the date of the charge.
2.03 QUANTITY 2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the quantity.
2.04 UNIT PRICE 2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the unit cost.
2.05 HCPCS CODE 2;5 POINTER TO CPT FILE (#81) CPT(#81)

  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Enter the HCPCS Code.
  • DESCRIPTION:  
    Enter the HCPCS Code.
2.06 REVENUE CODE 2;6 POINTER TO REVENUE CODES FILE (#9999999.72) REVENUE CODES(#9999999.72)

  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Enter the Revenue Code.
  • DESCRIPTION:  
    Enter the revenue code.
2.07 CORRESPONDING DX 2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the corresponding diagnosis.
2.08 MODIFIER 2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 11, 1999
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Enter the modifier.
2.09 HCPCS NAME 2;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 03, 1999
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
3.1 DEPARTMENT/CAN 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 16, 2008
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All