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: ACHSA7

Package: Contract Health Management Information System

Routine: ACHSA7


Information

ACHSA7 ; IHS/ITSC/PMF - ENTER DOCUMENTS (8/8)-(CONFIRM & RECORD) ; [ 01/18/2005 11:51 AM ]

Source Information

Source file <ACHSA7.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Contract Health Management Information System 8 ($$HRN,$$LOCK,$$ZEROTH,RTRN)^ACHS  (A1A,END)^ACHSA  ACT^ACHSACT  ^ACHSAV  (AUTH,STAT)^ACHSBMC  CDRG^ACHSPAM  (CKB,SBAENT,SBQ)^ACHSUUP  LAD^ACHSVPS  
VA Fileman 2 FILE^DICN  ^DIR  
IHS VA Utilities 1 $$DIR^XBDIR  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSA6  

Entry Points

Name Comments DBIA/ICR reference
25 ; Fields 25, 26, 26.01
CNTRCT ;
SB1 ;
END ;
SBKILL ;
ERRCHK ;
SBD1 ;
50 ;
ERREND ;
A1 ;
ERRCHK1 ;
75 ;
DISCAT ;EP - From call to DIR
85 ;
86 ;
87 ;
84 ;
EIN

External References

Name Field # of Occurrence
$$HRN^ACHS ERRCHK+3, ERRCHK+5
$$LOCK^ACHS SB1+16, EIN+11, EIN+12, ERRCHK1+1, ERRCHK1+10
$$ZEROTH^ACHS SB1+20, 84+2, 86+2, 87+5
RTRN^ACHS ERRCHK+6, ERREND+2
A1A^ACHSA A1+12, A1+17
END^ACHSA END+2
ACT^ACHSACT A1+19
^ACHSAV A1+7
AUTH^ACHSBMC A1+23
STAT^ACHSBMC A1+23
CDRG^ACHSPAM 87+2
CKB^ACHSUUP EIN+3
SBAENT^ACHSUUP SB1+2, SBD1+11
SBQ^ACHSUUP SBD1+16
LAD^ACHSVPS A1+25
FILE^DICN 84+3, 86+3
^DIR CNTRCT+5
$$DIR^XBDIR A1+8, SB1+16, EIN+11, EIN+12, DISCAT+3
$$NOW^XLFDT A1+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!," Document # ",ACHSORDN," Recorded",!!
  • Line Location: A1+18
Function Call: WRITE
  • Prompt: !!,*7,"CHS FACILITY FILE IN USE BY ANOTHER PROCESS.",$$DIR^XBDIR("E")
  • Line Location: SB1+16
Function Call: WRITE
  • Prompt: $$DIR^XBDIR("E")
  • Line Location: EIN+11
Function Call: WRITE
  • Prompt: $$DIR^XBDIR("E")
  • Line Location: EIN+12
Function Call: WRITE
  • Prompt: !!,*7,*7,"HEALTH RECORD NUMBER MISMATCH. NOTIFY PROGRAMMER IMMEDIATELY."
  • Line Location: ERRCHK+4
Function Call: WRITE
  • Prompt: !,"ACHSHRN=",ACHSHRN," PATIENT RECORD #=",$$HRN^ACHS(DFN,ACHSPATF)," PATIENT FACILITY=",$P($G(^DIC(4,ACHSPATF,0)),U),!!!
  • Line Location: ERRCHK+5
Function Call: WRITE
  • Prompt: *7,*7,!!?25,"ABORTED!!",!?3,"Document number ALREADY EXISTS. Cannot issue DUPLICATE DOCUMENT NUMBERS",!?20,"Please notify your site manager!"
  • Line Location: ERRCHK1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ERREND+1
Function Call: WRITE
  • Prompt: !,"Contract Action Type Required!",!,"Enter ?? for help.",!
  • Line Location: CNTRCT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DISCAT+1
Routine Call
  • DIR
  • Line Location:
    • CNTRCT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] SBKILL+6, SBKILL+7*, ERRCHK1+2, ERRCHK1+9*
^ACHSAF( SBKILL+5*
^ACHSF - [#9002080] A1+5, SB1+20*, SB1+21, EIN+1, EIN+7*, EIN+9*, EIN+13*, EIN+14*, EIN+15*, 25+3*
, 50+1*, 50+3*, 75+1*, 75+2*, 75+3*, 75+4*, 84+2*, 85+1*, 86+2*, 87+1*
, 87+5*, 87+6, SBD1+2, SBD1+3*, SBD1+4*, SBD1+5*, SBD1+6*, SBD1+7*, SBD1+8*, SBKILL+1!
, SBKILL+2, SBKILL+3*, SBKILL+11!, SBKILL+13!, SBKILL+14!, SBKILL+15!, SBKILL+16!, ERRCHK1+8
^DD(9002068.1 DISCAT+3
^DIC(4 - [#4] ERRCHK+5

Label References

Name Line Occurrences
CNTRCT A1+5, CNTRCT+6
EIN EIN+1
END A1+9, A1+14, SB1+5
ERRCHK A1+13
ERRCHK1 ERRCHK+2
ERREND ERRCHK1+1
SB1 A1+15
SBD1 SBD1+2
SBKILL SBD1+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DISCAT+2*, DISCAT+3*
>> ACHS 84+3*, 86+3*
>> ACHS("CHK" SB1+1*, SB1+4*
>> ACHS("DX" 87+2*
>> ACHS("PX" 87+2*
>> ACHSACFY SB1+11, EIN+14, SBKILL+6, SBKILL+7, ERRCHK1+2, ERRCHK1+6, ERRCHK1+7, ERRCHK1+9
>> ACHSACN EIN+14, EIN+15, ERRCHK1+2*, ERRCHK1+3*, ERRCHK1+4, ERRCHK1+5*, ERRCHK1+6, ERRCHK1+7
>> ACHSACN("NO" ERRCHK1+4*, ERRCHK1+9
>> ACHSACN1 ERRCHK1+7*, ERRCHK1+8
>> ACHSAFLG A1+12*, A1+17*
>> ACHSAGRP SB1+11
>> ACHSBLKF SB1+7, 75+1, 87+2, SBD1+8
>> ACHSBLT SBD1+8
>> ACHSCAN SB1+7
>> ACHSCAT 50+3, CNTRCT+7*
>> ACHSCNC A1+17, SB1+5*, SB1+16*, EIN+5, EIN+11*, EIN+12*, SBD1+14
>> ACHSCONP SB1+7
>> ACHSCOPT SB1+7
>> ACHSCTYP A1+4*, CNTRCT+7*
>> ACHSDCR SB1+11
>> ACHSDES 25+3
>> ACHSDEST SB1+11
ACHSDIEN A1+1!, A1+19, SB1+21*, EIN*, EIN+1, EIN+7, EIN+13, EIN+14, EIN+15, 25+3
, 50+1, 50+3, 75+1, 75+2, 75+3, 75+4, 84+2, 84+3, 85+1, 86+2
, 86+3, 87+1, 87+5, 87+6, SBD1+2, SBD1+3, SBD1+4, SBD1+5, SBD1+6, SBD1+7
, SBD1+8, SBKILL+1, SBKILL+11, SBKILL+13, SBKILL+14, SBKILL+15
>> ACHSDOCR SB1+7*, SB1+11*, EIN+13
>> ACHSDRG SB1+11
>> ACHSEDOS 75+2, 75+4, SBKILL+11
>> ACHSESDA 25+3
>> ACHSESDO SB1+13
>> ACHSFC ERRCHK1+6
>> ACHSFDT 75+1
>> ACHSHON 50+1
>> ACHSHRN SB1+11, ERRCHK+2, ERRCHK+3, ERRCHK+5
>> ACHSMPP 25+3
>> ACHSOBJC SB1+7
>> ACHSODT A1+2*
>> ACHSORDN A1+2*, A1+18, SBKILL+16, ERRCHK1+6*
ACHSOUT A1+14*, ERRCHK+1!, ERREND+4*
>> ACHSPAN 25+3
>> ACHSPATF SB1+11, ERRCHK+3, ERRCHK+5
>> ACHSPROV A1+25, SB1+7, SBD1+7, SBKILL+15
>> ACHSRALR 75+1
>> ACHSRCOI 75+1
>> ACHSRDX 84+1
>> ACHSRDX( 84+3
>> ACHSRDXN 85+1
ACHSREF A1+23, END+1!
ACHSREFT END+1!, 75+3
>> ACHSRMPC 75+1
>> ACHSRPHY 75+1
>> ACHSRPX 86+1
>> ACHSRPX( 86+3
>> ACHSRPXN 87+1
>> ACHSSCC SB1+7
>> ACHSSLOC SB1+7, 75+1, 87+2, SBD1+8
>> ACHSTDT 75+1
>> ACHSTIEN SBD1+9*, SBKILL+13, SBKILL+14, SBKILL+15
>> ACHSTRAN SB1+13*, SBD1+3
>> ACHSTYP SB1+7, 50+1, 75+1
>> DA(1 84+3*, 86+3*
>> DA(2 84+3*, 86+3*
DD 84+3!, 86+3!
>> DFN SB1+11, SB1+13, SBD1+5, ERRCHK+2, ERRCHK+3, ERRCHK+5
>> DIC 84+3*, 86+3*
>> DIC(0 84+3*, 86+3*
DIR CNTRCT+1!
DIR("??" CNTRCT+3*
DIR("A" CNTRCT+4*
DIR(0 CNTRCT+2*
DO 84+3!, 86+3!
DT A1+2, A1+25, SB1+7, SB1+13, SBD1+6, SBKILL+14
>> DTOUT A1+9
>> DUOUT CNTRCT+6
DUZ SB1+11, SBD1+4
DUZ(2 A1+5, SB1+20, SB1+21, EIN+1, EIN+7, EIN+9, EIN+13, EIN+14, EIN+15, 25+3
, 50+1, 50+3, 75+1, 75+2, 75+3, 75+4, 84+2, 84+3, 85+1, 86+2
, 86+3, 87+1, 87+5, 87+6, SBD1+2, SBD1+3, SBD1+4, SBD1+5, SBD1+6, SBD1+7
, SBD1+8, SBKILL+1, SBKILL+2, SBKILL+3, SBKILL+5, SBKILL+6, SBKILL+7, SBKILL+11, SBKILL+13, SBKILL+14
, SBKILL+15, SBKILL+16, ERRCHK1+2, ERRCHK1+8, ERRCHK1+9
>> M SBD1+1*, SBD1+2, SBD1+3, SBD1+4, SBD1+5, SBD1+6, SBD1+7, SBD1+9
N END+1!
U A1+5, SB1+7, SB1+11, SB1+13, SB1+21, EIN+7, EIN+9, EIN+15, 25+3, 50+3
, 75+1, 75+2, 75+3, SBD1+1, SBD1+4, SBKILL+2, SBKILL+3, SBKILL+5, ERRCHK+5, CNTRCT+7
>> X 84+3*, 86+3*, SBKILL+2*, SBKILL+3, SBKILL+5
>> Y A1+8*, A1+12, 87+6*, SBD1+1*, SBD1+3, CNTRCT+6, CNTRCT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All