Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSA6

Package: Contract Health Management Information System

Routine: ACHSA6


Information

ACHSA6 ; IHS/ITSC/TPF/PMF - ENTER DOCUMENTS (7/8)-(EST. COST, MED DATA) ;JUL 10, 2008

Source Information

Source file <ACHSA6.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Contract Health Management Information System 6 ($$ZEROTH,FMT)^ACHS  END^ACHSA  C1^ACHSA5  ^ACHSA7  READ^ACHSFU  $$AVAIL^ACHSUUP  
Lexicon Utility 3 ^LEXA1  CONFIG^LEXSET  ($$CSYS,$$IMPDATE)^LEXU  
DRG Grouper 2 ($$CODEN,$$ICDOP)^ICDEX  $$CPT^ICPTCOD  
VA Fileman 2 ^DIC  ^DIR  
IHS VA Utilities 1 $$DIR^XBDIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSA5  

Entry Points

Name Comments DBIA/ICR reference
RDXN ; Enter Referral Diagnosis (DX) Narrative.
NODE ;EP - To set 0th node of Referral medical data multiples.
; Called from ^ACHSA7. Here because of size of ACHSA7.
; ACHSDIEN must be defined.
KDIR ;
RDX ; Enter Referral ICD DX codes.;ACHS*3.1*23 MODIFIED ENTIRE SECTION
RPX ; Enter Referral ICD PROCEDURE codes.
RALR ; Enter Referral Alcohol Related?.
RPHY ; Enter the Referral Physician.
A1 ; Input estimated charges.
A3 ; Enter Referral Medical Priority Code
A2 ; Confirm amount obligated.
RPXN ; Enter Referral Procedure (PX) Narrative.
A4 ; Enter additional referral data.
DISPMPC ;EP - From call to DIR, display medical priorities
RCOI ; Enter Referral Cause Of Injury.;ACHS*3.1*23 MODIFIED ENTIRE SECTION TO USE LEXICON

External References

Name Field # of Occurrence
$$ZEROTH^ACHS NODE+3, NODE+4
FMT^ACHS A1+2, A1+16, A2+3
END^ACHSA A1+4, A2+5, A4+3
C1^ACHSA5 A1+5
^ACHSA7 A4+1, A4+4, RPXN+7
READ^ACHSFU A1+3
$$AVAIL^ACHSUUP A3+1
^DIC RPHY+6
^DIR A3+5, RALR+4, RDXN+3, RPX+7, RPXN+3
$$CODEN^ICDEX RCOI+12, RDX+9
$$ICDOP^ICDEX RPX+5
$$CPT^ICPTCOD RPX+5
^LEXA1 RCOI+12, RDX+8
CONFIG^LEXSET RCOI+10, RDX+7
$$CSYS^LEXU RCOI+9
$$IMPDATE^LEXU RCOI+7
$$DIR^XBDIR A2+4, A4+2, DISPMPC+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Estimated Charges: "
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: "// "
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: " Enter The ",$S($D(ACHSBLKF):"Dollar Amount To Be Obligated",1:"Approximate Cost of Treatment")
  • Line Location: A1+6
Function Call: WRITE
  • Prompt: *7," Must Have Amount"
  • Line Location: A1+7
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: A1+10
Function Call: WRITE
  • Prompt: !!,*7,"The OBLIGATION LIMIT for this type of document is "
  • Line Location: A1+16
Function Call: WRITE
  • Prompt: ".",!!,"Enter a lesser amount of money or exit the document.",!!
  • Line Location: A1+16
Function Call: WRITE
  • Prompt: *7
  • Line Location: A1+17
Function Call: WRITE
  • Prompt: !!?4
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!,"This amount exceeds your funds available."
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RALR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RDX+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: KDIR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPMPC+1
Routine Call
  • DIC
  • Line Location:
    • RPHY+6
Routine Call
  • DIR
  • Line Location:
    • A3+5
    • RALR+4
    • RDXN+3
    • RPX+7
    • RPXN+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] A1+14, NODE+3*, NODE+4*
^DD(9002080.01 RPHY+2, DISPMPC+3
^DD(9002080.186 RPX+7
^DIC(16 - [#16] RPHY+5

Label References

Name Line Occurrences
A1 A1+6, A1+7, A1+10, A1+16, A2+6, A3+1, A3+6, A4+5, RPHY+8, RALR+5
, RDXN+4, RPX+9, RPXN+4
A3 A1+7, A1+15
KDIR A3+6, A3+7, A4+6, RPHY+8, RPHY+9, RALR+5, RALR+6, RDXN+4, RDXN+5, RPX+9
, RPX+10, RPXN+4, RPXN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A1+9*, RPX+8*, DISPMPC+2*, DISPMPC+3*
>> ACHS A1+14*, A1+15, A1+16, RDX+6*, RDX+8, RDX+9, RPX+5*, RPX+7*, RPX+8
>> ACHS200 RPHY+2*, RPHY+3, RPHY+4, RPHY+5
>> ACHSACFY A3+1
>> ACHSBLKF A1+6, A4+1
>> ACHSCFY A3+1
>> ACHSDIEN NODE+3, NODE+4
>> ACHSEDOS RCOI+7, RCOI+10, RDX+7
>> ACHSESDO A1+2, A1+7, A1+15*, A2+7*, A3+1
ACHSICD RCOI+7*, RCOI+8*, RCOI+9, RCOI+10, RDX+7, RDX+11!
ACHSICD1 RCOI+7*, RCOI+8*, RCOI+10, RDX+7, RDX+11!
ACHSLEX RCOI+9*, RCOI+12, RDX+9, RDX+11!
ACHSQ RDX+11!
>> ACHSQUIT A1+4
>> ACHSRALR RALR+3, RALR+7*
>> ACHSRCOI RCOI+12*
>> ACHSRDX NODE+3
>> ACHSRDX( RDX+9*
>> ACHSRDXN RDXN+2, RDXN+6*
>> ACHSRMPC A3+4, A3+8*
>> ACHSRPHY RPHY+5, RPHY+11*
>> ACHSRPX RPX+5, NODE+4
>> ACHSRPX( RPX+5*, RPX+7*, RPX+8!
>> ACHSRPXN RPXN+2, RPXN+6*
>> ACHSSLOC A4+1
>> ACHSTYP A1+14, A4+1
DIC RPHY+3*, RPHY+7!, RCOI+13!, RDX+11!
DIC("A" RPHY+3*, RCOI+11*, RDX+8*
DIC("B" RPHY+5*
DIC("S" RPHY+4*
DIC(0 RPHY+3*
DIR KDIR+1!
DIR("??" A3+3*
DIR("A" RPX+7*
DIR("B" A3+4*, RALR+3*, RDXN+2*, RPX+7*!, RPXN+2*
DIR(0 A3+3*, RALR+2*, RDXN+1*, RPX+6*, RPXN+1*
DIRUT RPX+7, KDIR+1!
>> DTOUT A2+5, A3+6, A4+3, RPHY+8, RALR+5, RDXN+4, RPX+9, RPXN+4
>> DUOUT A1+5, A2+6, A3+6, A4+5, RPHY+8, RALR+5, RDXN+4, RPX+8, RPX+9, RPXN+4
DUZ(2 A1+14, NODE+3, NODE+4
ICDV RCOI+13!, RDX+11!
LEXQ RCOI+13!, RDX+10!, RDX+11!
LEXVDT RCOI+13!, RDX+10!, RDX+11!
>> S A1+17*, A2+2, A2+7
U A1+14, A1+16, RPHY+5, RPX+5, RPX+7
X A1+2*, A1+16*, A1+17*, A2+2*, RCOI+12!, RCOI+13!, RDX+8!, RDX+11!, RPX+8
>> X2 A1+2*, A2+2*
Y A1+6, A1+7, A1+8*, A1+9*, A1+10, A1+11*, A1+15, A1+16, A1+17, A2+4*
, A2+6, A3+8, A4+2*, A4+4, RPHY+11, RCOI+12, RCOI+13!, RALR+7, RDX+6, RDX+8
, RDX+11!, RDXN+6, RPX+7, RPXN+6
Y( RCOI+12, RDX+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All