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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSA4

Package: Contract Health Management Information System

Routine: ACHSA4


Information

ACHSA4 ; IHS/ITSC/PMF - ENTER DOCUMENTS (5/8)-(CAN) ; [ 02/01/2005 12:24 PM ]

Source Information

Source file <ACHSA4.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 4 $$PARM^ACHS  (A3,END)^ACHSA  ^ACHSA5  READ^ACHSFU  
IHS VA Utilities 1 $$DIR^XBDIR  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSA3  ACHSA5  

Entry Points

Name Comments DBIA/ICR reference
HDR ;
ACHK1 ;
ACHK2 ;
CANDSP1 ;
AEND ;
ALL1A ;
A1 ;EP
ALL1B ;
A3 ;
A2 ;
A4 ;
A8 ;
GTH ;
A3B ;
A3A ;
ALL3 ;
ALL2 ;
ALL1 ;
ACHK ;EP.
ALLCAN ;
ACHKA ;
ACHKB ;
CANDSP ;

External References

Name Field # of Occurrence
$$PARM^ACHS A2+2
A3^ACHSA A1+5, A1+8
END^ACHSA A1+4, AEND+3
^ACHSA5 ACHK2+1
READ^ACHSFU A1+3
^DIC GTH+3
$$DIR^XBDIR CANDSP+5, AEND+2, CANDSP1+9
$$FMTE^XLFDT A1+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"CHS COST CENTER TABLE INCOMPLETE.",!
  • Line Location: ACHSA4+21
Function Call: WRITE
  • Prompt: !!,"Enter last 4 digits of the CAN Number: "
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: $P($G(^ACHS(2,ACHSCAN,0)),U),"// "
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: *7," Must Have CAN Number"
  • Line Location: A1+7
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: A1+9
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: A1+14
Function Call: WRITE
  • Prompt: *7," ??",!!
  • Line Location: A1+19
Function Call: WRITE
  • Prompt: !?20,"CAN ",Y," EXPIRED ",$$FMTE^XLFDT($P($G(^ACHS(2,N,0)),U,4)),".",!?21," PLEASE SELECT ANOTHER CAN!"
  • Line Location: A1+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: A1+20
Function Call: WRITE
  • Prompt: !,$J(ACHS,5),?10,ACHSCNFY,?15,ACHSCANZ
  • Line Location: CANDSP+3
Function Call: WRITE
  • Prompt: ?30,$P($G(^ACHS(1,$P($G(^ACHS(2,ACHSRR,0)),U,2),0)),U,2)
  • Line Location: CANDSP+4
Function Call: WRITE
  • Prompt: *7,!!,"There are no CHS COMMON ACCOUNTING NUMBERs for this facility.",!!,"Please contact your Site Manager.",!,*7
  • Line Location: AEND+1
Function Call: WRITE
  • Prompt: *7,!?5,"'O' CANs are not authorized."
  • Line Location: ACHK+2
Function Call: WRITE
  • Prompt: *7,!?5,"CAN '",$P($G(^ACHS(2,ACHSCAN,0)),U),"' is invalid for FY '",ACHSACFY,"'."
  • Line Location: ACHK+7
Function Call: WRITE
  • Prompt: *7,!?5,"Date Of Service ",$S(%=1:"BEFORE",1:"AFTER")," 2-year CAN's authority."
  • Line Location: ACHK+10
Function Call: WRITE
  • Prompt: *7," CAN # NOT FOR THIS FACILITY"
  • Line Location: ACHK+14
Function Call: WRITE
  • Prompt: !!,*7," CAN # NOT VALID FOR DOCUMENT TYPE"
  • Line Location: ACHK+17
Function Call: WRITE
  • Prompt: *7,!," CAN # CANNOT BE USED FOR THIS FISCAL YEAR."
  • Line Location: ACHKA+4
Function Call: WRITE
  • Prompt: *7,!," CAN # HAS EXPIRED AND CANNOT BE USED"
  • Line Location: ACHKB+2
Function Call: WRITE
  • Prompt: !!,*7," NOT VALID CAN NUMBER FOR HSA-43"
  • Line Location: ACHK1+6
Function Call: WRITE
  • Prompt: !,$J(ACHS,5),?10,ACHSCNFY,?15,ACHSCANZ
  • Line Location: CANDSP1+3
Function Call: WRITE
  • Prompt: ?30,$P($G(^ACHS(1,$P($G(^ACHS(2,ACHSRR1,0)),U,2),0)),U,2)
  • Line Location: CANDSP1+6
Function Call: WRITE
  • Prompt: ?30,$P($G(^ACHS(1,$P($G(^ACHS(2,ACHSRR1,0)),U,2),0)),U,2)
  • Line Location: CANDSP1+7
Function Call: WRITE
  • Prompt: !!,"ITEM #",?10,"FY",?15,"CAN NUMBER",?30,"DESCRIPTION OF THE CAN NUMBER",!,"------",?10,"--",?15,"----------",?30,"-----------------------------"
  • Line Location: HDR+1
Routine Call
  • DIC
  • Line Location:
    • GTH+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACHS(2 - [#9002062] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS("TEST VERSION" ACHSA4+6, ACHSA4+7
^ACHS(1 - [#9002061] ACHSA4+11, ACHSA4+12, ACHSA4+13, ACHSA4+14, ACHSA4+16, ACHSA4+19, CANDSP+4, ACHK1+4, CANDSP1+7
^ACHS(2 - [#9002062] A1+2, A1+17, A1+18, A1+20, A2+4, A3A+1, A3A+4, A3B+1, A3B+3, A3B+4
, A3B+6, CANDSP+4, ACHK+1, ACHK+14, ACHK+15, ACHKA+1, ACHKA+3, ACHKB+1, ALL1+1, ALL1+3
, ALL1+4, ALL1+5, ALL1+6, ALL1+7, ALL1A+1, ALL1A+3, ALL1B+2, CANDSP1+7, CANDSP1+10
^ACHS(3 - [#9002063] ACHK1+3
^ACHSF - [#9002080] ACHSA4+15
^AUTTAREA - [#9999999.21] A1+12
^AUTTLOC - [#9999999.06] A1+12
^XUSEC("ACHSZMGR" A2+2

Label References

Name Line Occurrences
@( ACHSA4+7
A1 ACHSA4+18, ACHSA4+19, A1+7, A1+9, A1+21, AEND+1, AEND+3, AEND+5, ACHK+2, ACHK+14
, ACHK+18, ACHKA+5, ACHKB+3, ACHK1+7
A2 A1+6
A3 A3+9, A3+10, A3A+2
A3A A3A+4, A3B+2
A3B A3B+3, A3B+9, A4+1, A8+1, CANDSP+6
A4 A3B+7
A8 A4+1
ACHK A1+7, A1+18
ACHK1 ACHKB+1
ACHK2 ACHK1+1, ACHK1+4, ACHK1+5
ACHKA ACHK+16
ACHKB ACHKA+1, ACHKA+3
AEND A3+8, CANDSP+5, ALL1+2, CANDSP1+9
ALL1 ALL1+4, ALL1+5, ALL1A+2, ALL1B+5, ALL2+1, ALL3+1, CANDSP1+10
ALL1A ALL1A+2, ALL1A+4, ALL1A+10, CANDSP1+11
ALL1B ALL1+7
ALL2 ALL1B+3
ALL3 ALL2+1
ALLCAN A2+2
CANDSP A3B+5, A3B+8, A4+1
CANDSP1 ALL1B+1, ALL1B+4, ALL2+1
HDR CANDSP+2, CANDSP1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ACHK+1*, ACHK+2, ACHKA+2*, ACHKA+3*
>> ACHS A2+7*, CANDSP+1*, CANDSP+2, CANDSP+3, CANDSP+5, AEND+1, AEND+2, ALLCAN+2*, CANDSP1+1*, CANDSP1+2
, CANDSP1+3, CANDSP1+9
>> ACHS( CANDSP+1*, AEND+4, CANDSP1+1*
>> ACHS("FY" A2+4!*, A3+7, A3+11
>> ACHS533 ACHSA4+16*, A3B+8, ACHK1+3, ACHK1+5, ALL1B+4
>> ACHS568 ACHSA4+12*, ACHSA4+18, A4+1, A8+1, ACHK+16, ALL2+1, ALL3+1
>> ACHS573 ACHSA4+11*, ACHSA4+18, A3B+8, ACHK1+3, ACHK1+5, ALL1B+4
>> ACHS574 ACHSA4+13*, ACHSA4+18
>> ACHS575 ACHSA4+14*, A3B+8, ACHK1+5, ALL1B+4
>> ACHSACFY ACHKA+3
>> ACHSAQ A3B+6*, A3B+8, A4+1, A8+1, ACHK+15*, ACHK+16, ACHK1+3, ACHK1+4, ACHK1+5, ALL1B+2*
, ALL1B+4, ALL2+1, ALL3+1
>> ACHSCAN A1+2, A1+7, A1+18*, AEND+4*, ACHK+1, ACHK+14, ACHK+15, ACHKA+1, ACHKA+3, ACHKB+1
>> ACHSCANZ A3B+4*, CANDSP+3, ALL1+6*, CANDSP1+3
>> ACHSCC A1+2*, A1+18*, ACHK+15*
>> ACHSCFY A3+9, A3+10, ACHKA+3, ALL1A+10
>> ACHSCNFY A3B+4*, CANDSP+3, ACHK+13*, ALL1+6*, ALL1A+3*, ALL1A+4, ALL1A+9*, ALL1A+10, ALL1A+11*, CANDSP1+3
>> ACHSF638 ACHSA4+15*, ACHSA4+19, ACHSA4+22, A3B+5, ACHK+16, ACHK1+4, ALL1B+1
>> ACHSQUIT A1+4
>> ACHSR1 ALLCAN+2*, ALL1+1*, ALL1+2, ALL1+3
>> ACHSRR A3+13*, A3A+1*, A3A+2, A3A+4, A3B+1, A3B+3, A3B+4, A3B+6, CANDSP+1, CANDSP+4
>> ACHSRR1 ALL1+3*, ALL1+4, ALL1+5, ALL1+6, ALL1+7, ALL1A+1, ALL1A+3, ALL1B+2, CANDSP1+1, CANDSP1+7
, CANDSP1+10
>> ACHSRRR A3A+5*, A3B+1*, A3B+2, A3B+3, CANDSP+1
>> ACHSRRR1 ALL1+8*, ALL1A+1*, ALL1A+2, ALL1A+3
>> ACHSSCC ACHK1+2*, ACHK1+3*
>> ACHSTV ACHSA4+6*, ACHSA4+7*
>> ACHSTYP A3B+7, A4+1, ACHK+16, ACHK1+1, ALL1B+3, ALL2+1
>> DIC GTH+1*
>> DIC(0 GTH+2*
>> DIRUT AEND+3
DT A1+18, A1+20, A3A+4, ACHKB+1, ALL1+5
>> DTOUT A1+8
>> DUOUT A1+5, AEND+3
DUZ A2+2
DUZ(2 ACHSA4+15, A1+12, A2+4, A3A+1, A3A+4, A3B+1, ACHK+14, ACHK1+3, ALL1+4
>> N A1+17*, A1+18, A1+20
>> OLDR A2+7*, A3+7*
>> R A2+4*, A2+7*, A3+7*, A3+8, A3+9, A3+10, A3+11*, A3A+1, A3B+1, A3B+4
, CANDSP+5*, ALL1+2*, CANDSP1+9*
U ACHSA4+7, ACHSA4+15, A1+2, A1+12, A1+18, A1+20, A3A+4, A3B+4, A3B+6, CANDSP+4
, AEND+4, ACHK+1, ACHK+14, ACHK+15, ACHKB+1, ALL1+4, ALL1+5, ALL1+6, ALL1A+3, ALL1B+2
, CANDSP1+7
>> Y A1+6, A1+7, A1+9, A1+12*, A1+14, A1+17, A1+20, AEND+2*, AEND+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All