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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^AZPPI(1

Package: Portland Private Insurance package

Global: ^AZPPI(1


Information

FileMan FileNo FileMan Filename Package
2001060.01 AZP PRV INS BILLS Portland Private Insurance package

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Portland Private Insurance package 9 ^AZPPI(1    AZP3EDT    AZP3RP    AZP3RX    AZP3UTL    CPT/ADA CODE    DOS    ICD9 DX CODE
PHARMACY RX    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Portland Private Insurance package 1 AZP3EDT    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Portland Private Insurance package 3 AZP CPT/ADA CODE(#2001060.02)[#2001060.14011(.01)]    AZP PRV INS TOS(#2001060.05)[#2001060.14011(.05)]    AZP PRV INS POS(#2001060.06)[#2001060.14011(.02)]    
Kernel 2 INSTITUTION(#4)[.09]    PROVIDER(#6)[101]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#2001060.1201(.01)]    
IHS Patient 1 PRIVATE INSURANCE ELIGIBLE(#9000006)[.02]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[#2001060.1301(.01)]    
Utility Tables 1 INSURER(#9999999.18)[106, 107]    

Fields, Total: 24

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

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  SEP 12, 1990
  • HELP-PROMPT:  Answer must be 8 characters in length.
    UNEDITABLE
  • CROSS-REFERENCE:  2001060.01^B
    1)= S ^AZPPI(1,"B",$E(X,1,30),DA)=""
    2)= K ^AZPPI(1,"B",$E(X,1,30),DA)
.02 PATIENT NAME 0;2 POINTER TO PRIVATE INSURANCE ELIGIBLE FILE (#9000006)
************************REQUIRED FIELD************************
PRIVATE INSURANCE ELIGIBLE(#9000006)

  • LAST EDITED:  DEC 07, 1990
  • HELP-PROMPT:  Enter the patients name. The patient must have insurance entered through patient registration.
    UNEDITABLE
  • CROSS-REFERENCE:  2001060.01^C
    1)= S ^AZPPI(1,"C",$E(X,1,30),DA)=""
    2)= K ^AZPPI(1,"C",$E(X,1,30),DA)
.03 DATE OF SYMPTOM 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date of the first symptom.
.04 DATE OF SIMILAR ILLNESS 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date of similar illness.
.05 DATE FIRST CONSULTED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the first date consulted for this condition.
.06 FROM DATE DISABILITY 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the beginnng date of disability.
.07 THRU DATE DISABILITY 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the ending date of disability for the patient.
.08 DATE ENTERED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 12, 1990
.09 FACILITY 0;9 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  SEP 12, 1990
101 PROVIDER 1;1 POINTER TO PROVIDER FILE (#6)
************************REQUIRED FIELD************************
PROVIDER(#6)

  • LAST EDITED:  AUG 22, 1990
  • HELP-PROMPT:  Enter the provider the patient visited.
102 EMERGENCY 1;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  Enter if the Yes if visit was an emergency or No if it was not an emergency.
103 OUTSIDE LAB WORK 1;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  Enter Yes if outside lab work was performed.
104 OUTSIDE LAB COST 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 10000.
105 PRIOR AUTH NO 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  Enter the prior authorization number received by insurance company.
106 PRIMARY INSURANCE 1;6 POINTER TO INSURER FILE (#9999999.18)
************************REQUIRED FIELD************************
INSURER(#9999999.18)

  • LAST EDITED:  SEP 04, 1990
  • HELP-PROMPT:  Enter the primary insurance company for this patient.
107 SECONDARY INS 1;7 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  AUG 30, 1990
  • HELP-PROMPT:  Enter patients secondary insurance company.
108 STATUS 1;8 SET
************************REQUIRED FIELD************************
  • 'P' FOR PAID;
  • 'C' FOR CANCELLED;
  • 'H' FOR HOLD/PENDING;

  • LAST EDITED:  AUG 30, 1990
  • HELP-PROMPT:  Enter the status of the claim
109 PHARMACY COST 1;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>1000)!(X<0) X
  • LAST EDITED:  SEP 07, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 1000, 2 Decimal Digits
201 ICD9 DX CODE 2;0 POINTER Multiple #2001060.1201 2001060.1201
301 PHARMACY RX 3;0 POINTER Multiple #2001060.1301 2001060.1301
401 DOS 4;0 DATE Multiple #2001060.1401 2001060.1401
501 TOTAL COST 5;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 30, 1990
  • HELP-PROMPT:  Enter the total amount billed for this claim.
502 TOTAL COLLECTED 5;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 30, 1990
  • HELP-PROMPT:  Enter the amount collected for claim.
503 DEDUCTABLE AMOUNT 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 30, 1990
  • HELP-PROMPT:  Enter the amount paid for the insurance deductable.

External References

Name Field # of Occurrence
^%DT .03+1, .04+1, .05+1, .06+1, .07+1, .08+1
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPRVT - [#9000006] ID.02+1
^AZPPI(1 - [#2001060.01] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
^DD(9000006 ID.02+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .04+1*, .05+1*, .06+1*, .07+1*, .08+1*
%I ID.02+1*!
>> C ID.02+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
>> DIC ID.02+1
U ID.02+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1*!, .04+1*!, .05+1*!, .06+1*!, .07+1*!
, .08+1*!, 104+1!, 105+1!, 109+1*!, 501+1!, 502+1!, 503+1!
>> Y ID.02+1*, .03+1, .04+1, .05+1, .06+1, .07+1, .08+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All