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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSAJ

Package: Contract Health Management Information System

Routine: ACHSAJ


Information

ACHSAJ ; IHS/ITSC/PMF - ADJUST A PAID DOCUMENT (1/2) ; [ 12/11/2003 1:09 PM ]

Source Information

Source file <ACHSAJ.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Contract Health Management Information System 9 ($$DOC,$$LOCK)^ACHS  (D1,END,ENDC,K)^ACHSAJ1  ^ACHSAV  ^ACHSEOBG  (FYCVT,OBLM,READ)^ACHSFU  INIT^ACHSRP2  ^ACHSUD  A0A^ACHSUSC  
(CKB,SBAENT)^ACHSUUP  
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS VA Utilities 1 $$DIR^XBDIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSEOB3  ACHSPAYADJUST  

Entry Points

Name Comments DBIA/ICR reference
C ;
C03 ; EOBR Services billed.
OK ; Ask for confirmation.
B2Z ;
DIR(ACHS,ACHS1) ; ( <DIR(0)> , <DIR("B")> )
A4A ;EP - Automatic adjustment.
C1A ;
NEGADJ ;
SET(X,Y,Z) ; (File,Field,Internal) Return the external form of a set element. ; ACHS*3.1*1
A3 ; Select document, check for paid status.
C1 ; Adjustment to 3rd party payment.
A4 ;
B2 ;
B3 ;
C01 ;
C02 ;
C0 ;
C04 ; EOBR Control Number.
C05 ; EOBR Check number.
C06 ; EOBR Remittance number.
C07 ; EOBR Oblication type.

External References

Name Field # of Occurrence
COMMA^%DTC C+13
$$DOC^ACHS A4A+1, C01+5, C02+10
$$LOCK^ACHS A4+3
D1^ACHSAJ1 OK+1, OK+2
END^ACHSAJ1 A4A+27
ENDC^ACHSAJ1 ACHSAJ+9, A3+3, A4+1, B2Z+4, B2Z+9, C0+4, C01+9, C02+2, C03+2, C04+2
, C05+2, C06+2, C07+2, C1+5
K^ACHSAJ1 A4+3, A4A+25, A4A+35, B2+2, B3+4, C+29, NEGADJ+7
^ACHSAV A3+10
^ACHSEOBG A4A+25, A4A+35, A4A+53, B2+2, B3+4, C+29, NEGADJ+6
FYCVT^ACHSFU A4A+2
OBLM^ACHSFU B3+1
READ^ACHSFU B2Z+3
INIT^ACHSRP2 A3+9
^ACHSUD A3+1
A0A^ACHSUSC A3+12
CKB^ACHSUUP A4A+22
SBAENT^ACHSUUP C+18
^DIR C1+4, DIR+5
$$DIR^XBDIR C0+2, C01+7, C02+4, OK+2
$$FMTE^XLFDT C02+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7," The Register Has Been CLOSED -- An adjustment cannot be done at this time!",!
  • Line Location: ACHSAJ+8
Function Call: WRITE
  • Prompt: !!,*7,?10,"NOT A PAID DOCUMENT -- ONLY PAID DOCUMENTS CAN BE ADJUSTED"
  • Line Location: A3+5
Function Call: WRITE
  • Prompt: !,"LOCK FAILED AT A4+2^ACHSAJ"
  • Line Location: A4+3
Function Call: WRITE
  • Prompt: !!,"Amount Of pay Adjustment: "
  • Line Location: B2Z+1
Function Call: WRITE
  • Prompt: !," Enter Payment Adjustment Amount (e.g. + or - 150.00)."
  • Line Location: B2Z+6
Function Call: WRITE
  • Prompt: *7," NO AMOUNT ENTERED",!!
  • Line Location: B2Z+8
Function Call: WRITE
  • Prompt: *7," NO AMOUNT ENTERED",!!
  • Line Location: B2Z+9
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: B2Z+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: C01+1
Function Call: WRITE
  • Prompt: !!,*7,*7,"A Transaction Has Been Processed For This Document On This Date.",!!?15,$$FMTE^XLFDT(ACHSPDAT),!!
  • Line Location: C02+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+1
Routine Call
  • DIR
  • Line Location:
    • C1+4
    • DIR+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] ACHSAJ+7
^ACHSF - [#9002080] A3+5, A4A+8, A4A+12, A4A+18, A4A+32, A4A+43, A4A+45, A4A+47, A4A+49, A4A+51
, A4A+53, C+27, C+28, C01+5*, C02+2
^DD( SET+1

Label References

Name Line Occurrences
$$SET C03+1, C07+1
A3 A3+5
A4 B2Z+21
B2 B2Z+6, B3+2, C+29, C0+3, C03+3, OK+3
B3 B2+1
C0 C+21, C+30, C01+8
C02 C01+5
C03 C04+3
C04 C05+3
C05 C06+3
C06 C07+3
C07 C1+6
C1 C0+1, C02+10
C1A C1+1
DIR C03+1, C04+1, C05+1, C06+1, C07+1

Naked Globals

Name Field # of Occurrence
^("ZA" C+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SET+1*, SET+2
ACHS DIR~, DIR+3
ACHS("CHK" C+16*
ACHS1 DIR~, DIR+4
>> ACHS3AJ C1A+1*
>> ACHS3PA A4A+38*, A4A+51*, C1+4, C1A+1
>> ACHS3RDP C1+1
>> ACHS3RDS A3+6*
>> ACHS3TAJ C1+4, C1+7*, C1A+1*
>> ACHSACFY A4A+3*
>> ACHSACWK A4A+3*
>> ACHSADAM B2Z+11*, B2Z+14*, B2Z+15*, B2Z+16*, B2Z+20*, B2Z+21, C+1*, C+2*, C+9*, C+12
>> ACHSADJ A3+11*
>> ACHSAMT C+15*
>> ACHSAPA A4A+32*, A4A+33, A4A+38, A4A+39*, A4A+45*
>> ACHSCFY ACHSAJ+7
>> ACHSCHK C05+1, C05+4*
>> ACHSCNC A4A+23, A4A+27
>> ACHSCTL C04+1, C04+4*
>> ACHSDIEN A3+3, A3+5, A4+1, A4A+8, A4A+12, A4A+18, A4A+32, A4A+43, A4A+45, A4A+47
, A4A+49, A4A+51, A4A+53, C+27, C+28, C02+2
>> ACHSDOC0 A4A+8*
>> ACHSEDAT A4A+25*, A4A+35*, A4A+53*, B2+2*, B3+4*, C+29*, NEGADJ+4*
>> ACHSEOBD C0+5*
>> ACHSERRA A4A+25*, A4A+35*, B2+2*, B3+4*, C+29*, NEGADJ+5*
>> ACHSERRE A4A+24*, A4A+34*, A4A+53*, B2+2*, B3+4, C+29*, NEGADJ+3*
>> ACHSESDO C+15*
>> ACHSFYWK( ACHSAJ+7, A4A+3
>> ACHSIPA A3+6*, B2+1, B2+2
>> ACHSISAO A4A+23, A4A+53, B2+1, B2+2, B3+4, C+9, C+14, C+29, NEGADJ+1, NEGADJ+2
, C0+1, C02+2, C1+1, OK+1
>> ACHSJERR C01+2*, C02+2, C02+5*
>> ACHSNADJ A4A+29*, A4A+49*
>> ACHSOB C07+1, C07+4*
>> ACHSPDAT A4A+53, C0+5*, C02+2, C02+3
>> ACHSPIND C02+7*
>> ACHSPSQN C01+5*, C01+10*
>> ACHSREM C06+1, C06+4*
ACHSSIG A3+7!
>> ACHSSIGN B2+1*, B2Z+2*, B2Z+16*, C+12
>> ACHSSV C03+1, C03+4*
>> ACHSSVDT A4A+18*
>> ACHSTADJ A4A+29*, A4A+47*
>> ACHSTIEN A3+6*, A4A+18*
>> ACHSTP C+27*, C+28*, C+29
ACHSUFLG C+16*, C+20!
>> ACHSX A4A+1*
>> ACHSY A4A+3
DIR C1+4!, DIR+2!, DIR+6!
DIR("A" C1+4*
DIR("B" C1+4*, DIR+4*
DIR(0 C1+4*, DIR+3*
DIRUT DIR+2!
DT ACHSAJ+7
DTOUT B2Z+4, B3+2, C0+4, C01+9, C02+5, C03+2, C04+2, C05+2, C06+2, C07+2
, C1+5, DIR+2!
DUOUT B2Z+4, B3+2, C0+3, C01+8, C02+5, C03+3, C04+3, C05+3, C06+3, C07+3
, C1+6, DIR+2!
DUZ(2 ACHSAJ+7, A3+5, A4A+3, A4A+8, A4A+12, A4A+18, A4A+32, A4A+43, A4A+45, A4A+47
, A4A+49, A4A+51, A4A+53, C+27, C+28, C01+5, C02+2
>> F B2Z+20*
>> I B2Z+20*
>> S A4A+35, C+12*, C+15, C+21, C+29, NEGADJ+4
U ACHSAJ+7, A4A+18, A4A+38, A4A+39, A4A+45, A4A+47, A4A+49, A4A+51, C+27, C+28
, SET+1
X A4A+11*, A4A+12*, A4A+18, C+12*, C+14, SET~, SET+1, SET+2*
>> X2 C+12*
>> X3 C+12*
Y B2+1*, B2Z+6, B2Z+9, B2Z+11, C+2, C+9, C0+2*, C0+5, C01+7*, C01+10
, C02+4*, C02+5, C03+4, C04+4, C05+4, C06+4, C07+4, C1+1*, C1+7, C1A+1
, SET~, SET+1, SET+2*, SET+3
Z SET~, SET+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All