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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^ACHSDENR

Package: Contract Health Management Information System

Global: ^ACHSDENR


Information

FileMan FileNo FileMan Filename Package
9002072 CHS DENIAL FACILITY Contract Health Management Information System

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
Contract Health Management Information System 15 ACHS    ACHS118A    ACHSDAR1    ACHSDAR3    ACHSDAR4    ACHSDF1    ACHSDN    ACHSDNL
ACHSDNL2    ACHSDNL3    ACHSDNP    ACHSPOS4    ALT RES APPEAL OPTIONS    ALT. RESOURCE OPTION(S)    DENIAL REASON    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Contract Health Management Information System 3 ACHS118A    ACHSDN    ACHSPOS4    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Contract Health Management Information System 1 CHS DENIAL DATA(#9002071)[.01]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Contract Health Management Information System 1 CHS DENIAL REASON(#9002073)[#9002072.01(.01)]    
Kernel 1 STATE(#5)[103, 203, 306]
Utility Tables 1 LOCATION(#9999999.06)[.01]    

Fields, Total: 51

Field # Name Loc Type Details
.01 FACILITY 0;1 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • HELP-PROMPT:  Enter the facility to which these denial parameters will apply.
  • DESCRIPTION:  
    Select the facility for which you are entering denial facilities.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002072^B
    1)= S ^ACHSDENR("B",$E(X,1,30),DA)=""
    2)= K ^ACHSDENR("B",$E(X,1,30),DA)
.02 FACILITY ABBREVIATION 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • HELP-PROMPT:  Enter a 3-character abbreviation for your facility.
  • DESCRIPTION:  
    This 3-character field is used to build denial numbers for your facility.  For historical consistency, it is strongly recommended you not change this field after denials have been entered for your facility.
.03 LETTERS PER PATIENT-DEFAULT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 13, 1990
  • HELP-PROMPT:  Enter a Number between 0 and 10.
  • DESCRIPTION:  
    Enter the number (0-10) of copies of each denial letter for the patient that you want printed.  This is a default number when you begin printing letters.  You can change the number of copies just before printing.
.04 LETTERS PER VENDOR-DEFAULT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 13, 1990
  • HELP-PROMPT:  Enter a Number from 0 to 10.
  • DESCRIPTION:  Enter the number (0-10) of copies for the vendor, of each patient's denial letter, that you want printed. This will be the default number presented when you begin printing letters. You can select a different number just
    prior to printing the letters.
.05 DEFAULT NUMBER OF FACT SHEETS 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 13, 1990
  • HELP-PROMPT:  Enter a Number from 0 to 10.
  • DESCRIPTION:  
    Enter the number (0-10) of copies of the denial fact sheet you want printed.  This will be the default number presented just prior to printing.  You can select a different number of copies at that time.
.06 PRINT DENIAL AMOUNT ON LETTERS 0;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 26, 1990
  • HELP-PROMPT:  Print amount of denial on letters to patient and provider(s)?
  • DESCRIPTION:  
    Answer 'Y' (YES) if you want the amount of the denial printed on the denial letters sent to the patient and the provider(s).  Answer 'N' (NO) if you do not want the amount printed on the letters.
.07 USE LETTERHEAD 0;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 15, 1994
  • HELP-PROMPT:  Enter 'N' to supress letterhead printing, for use with pre-printed letter-heads.
  • DESCRIPTION:  
    If your facility letters/memos are pre-printed with letter-heads, answer "N" to this parameter.  If you do not answer "N", the letter-head lines you enter into the HEADER field will be used as letter-head.
.08 DEFAULT NUMBER OFFICE LETTERS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 20, 2003
  • HELP-PROMPT:  Enter a Number from 0 to 10.
  • DESCRIPTION:  
    Enter the number (0-10) of copies of the denial letter you want printed for the office copy.  This will be the number presented just prior to printing.  You can select a different number of copies at that time.
.09 LEFT MARGIN OFFSET 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 09, 2010
  • HELP-PROMPT:  Type a Number between 0 and 20, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the number of spaces the user has specified to skip over before beginning printing of each line.
.11 TOP MARGIN 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 09, 2010
  • HELP-PROMPT:  Type a Number between 0 and 20, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the number of lines the user has specified to skip before beginning printing of the CHS Denial Letter.
.12 BENEFIT COORDINATOR NAME 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>48!($L(X)<1) X
  • LAST EDITED:  JUL 09, 2010
  • HELP-PROMPT:  Answer must be 1-48 characters in length.
  • DESCRIPTION:  
    This is the name of the facility benefit coordinator.
.13 BENEFIT COORDINATOR PHONE 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<8) X
  • LAST EDITED:  JUL 09, 2010
  • HELP-PROMPT:  Answer must be 8-14 characters in length.
  • DESCRIPTION:  
    This is the facility benefit coordinator phone number.
1 DENIAL REASON 1;0 POINTER Multiple #9002072.01 9002072.01
1.1 HEADER 5;0 WORD-PROCESSING #9002072.05

  • HELP-PROMPT:  Enter 2 or 3 lines to appear at the top of denial letters.
  • DESCRIPTION:  
    This field will print at the top of each denial letter.  This field will be used only if you do not have pre-printed letterhead, and configure the "USE LETTERHEAD" parameter accordingly.
2 MIDDLE TEXT OF DENIAL LETTER 2;0 WORD-PROCESSING #9002072.03

  • DESCRIPTION:  
    THIS TEXT IS SET BY POLICY.  DO NOT EDIT.
3 BOTTOM TEXT OF DENIAL LETTER 3;0 WORD-PROCESSING #9002072.04

  • DESCRIPTION:  
    THIS TEXT IS SET BY POLICY.  DO NOT EDIT.
4 SEQUENCE NUMBER BY FISCAL YR 4;0 Multiple #9002072.02 9002072.02

  • DESCRIPTION:  
    ENTER SEQUENCE NUMBER BY FISCAL YEAR
5 LETTER TEXT FOR 'UN-MET NEED' 6;0 WORD-PROCESSING #9002072.06

  • LAST EDITED:  AUG 17, 2000
6 TEXT FOR SIGNATURE BLOCK 7;0 WORD-PROCESSING #9002072.07

  • DESCRIPTION:  
    ENTER TEXT FOR SIGNATURE BLOCK
8 CLOSING TEXT OF DENIAL LETTER 9;0 WORD-PROCESSING #9002072.11
10 ALT. RESOURCE TEXT (TOP) 10;0 WORD-PROCESSING #9002072.08
11 ALT. RESOURCE TEXT (BOTTOM) 11;0 WORD-PROCESSING #9002072.011
12 ALT. RESOURCE OPTION(S) 12;0 Multiple #9002072.012 9002072.012
13 ALT RES APPEAL OPTIONS 13;0 Multiple #9002072.013 9002072.013
100 SERVICE UNIT DIRECTOR 100;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,100)
  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This name will be printed on each denial letter, identifying your Service Unit Director to the recipient of the letter.
100.5 SERVICE UNIT DIRECTOR 2 100;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  AUG 09, 1994
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
101 SERVICE UNIT ADDRESS-STREET 1 100;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,101)
  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This address will print on each denial letter.
102 SERVICE UNIT ADDRESS-CITY 100;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,102)
  • LAST EDITED:  JAN 21, 1995
  • HELP-PROMPT:  Enter the City of the address of your Service Unit.
103 SERVICE UNIT ADDRESS-STATE 100;4 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Select the state for the address of your Service Unit.
104 SERVICE UNIT ADDRESS-ZIP 100;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,104)
  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
105 SERVICE UNIT TELEPHONE NUMBER 100;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<8) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,105)
  • LAST EDITED:  JAN 21, 1995
  • HELP-PROMPT:  Enter your Service Unit phone number, up to 14 characters.
106 SERVICE UNIT ADDRESS-STREET 2 100;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  JUN 04, 2001
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
107 SERVICE UNIT ADDRESS-STREET 3 100;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  JUN 04, 2001
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
200 AREA DIRECTOR 200;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,200)
  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    Enter the name of your Area Director, as you want it to appear on letters generated by the Denial module.
200.5 AREA DIRECTOR 2 200;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  MAY 22, 2001
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
201 AREA DIRECTOR ADDRESS-STREET 1 200;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,201)
  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
202 AREA DIRECTOR ADDRESS-CITY 200;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,202)
  • LAST EDITED:  JAN 21, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
203 AREA DIRECTOR ADDRESS-STATE 200;4 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  APR 04, 2003
204 AREA DIRECTOR ADDRESS-ZIP 200;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,204)
  • LAST EDITED:  APR 04, 2003
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
205 AREA OFFICE TELEPHONE NUMBER 200;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<8) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002072,205)
  • LAST EDITED:  JAN 21, 1995
  • HELP-PROMPT:  Answer must be 8-14 characters in length.
206 AREA DIRECTOR ADDRESS-STREET 2 200;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 22, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
207 AREA DIRECTOR ADDRESS-STREET 3 200;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 22, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
300 LETTER SIGNATURE NAME 300;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
301 LETTER SIGNATURE NAME 2 301;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
302 LETTER SIGNATURE ADDR 1 302;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
303 LETTER SIGNATURE ADDR 2 303;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
304 LETTER SIGNATURE ADDR 3 304;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
305 LETTER SIGNATURE CITY 305;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
306 LETTER SIGNATURE STATE 306;1 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  SEP 25, 2002
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
307 LETTER SIGNATURE ZIP 307;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.
308 LETTER SIGNATURE TELEPHONE 308;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>22!($L(X)<7) X
  • LAST EDITED:  SEP 25, 2002
  • HELP-PROMPT:  Answer must be 7-22 characters in length.
  • TECHNICAL DESCR:  
    ACHS*3.1*5, uppercased the LABEL, added TITLE.

External References

Name Field # of Occurrence
L^ACHS 100OT+1, 101OT+1, 102OT+1, 104OT+1, 105OT+1, 200OT+1, 201OT+1, 202OT+1, 204OT+1, 205OT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDENR("B" .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K)
>> DINUM .01+1*
X .01+1, .01(XREF 1S), .01(XREF 1K), .02+1!, .03+1!, .04+1!, .05+1!, .08+1!, .09+1!, .11+1!
, .12+1!, .13+1!, 100+1!, 100.5+1!, 101+1!, 102+1!, 104+1!, 105+1!, 106+1!, 107+1!
, 200+1!, 200.5+1!, 201+1!, 202+1!, 204+1!, 205+1!, 206+1!, 207+1!, 300+1!, 301+1!
, 302+1!, 303+1!, 304+1!, 305+1!, 307+1!, 308+1!
>> Y 100OT+1, 101OT+1, 102OT+1, 104OT+1, 105OT+1, 200OT+1, 201OT+1, 202OT+1, 204OT+1, 205OT+1
>> Y(0 100OT+1*, 101OT+1*, 102OT+1*, 104OT+1*, 105OT+1*, 200OT+1*, 201OT+1*, 202OT+1*, 204OT+1*, 205OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All