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

Package: Contract Health Management Information System

Routine: ACHSVDV1


Information

ACHSVDV1 ; IHS/ITSC/JVK - SELECT CONTRACT NUMBER ; [ 10/15/2004 3:02 PM ]

Source Information

Source file <ACHSVDV1.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Contract Health Management Information System 5 YN^ACHS  READ^ACHSFU  (A1,END)^ACHSVDV  L^ACHSVDV1  (,AGRDSP)^ACHSVDV2  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
IHS VA Utilities 2 $$DIR^XBDIR  $$EXTSET^XBFUNC  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Contract Health Management Information System 3 ACHSVDV  ACHSVDV1  ACHSVDVA  

Entry Points

Name Comments DBIA/ICR reference
MP ;EP -- ITSC/SET/JVK ACHS*3.1*11 FIND MEDICARE PROVIDER INFO
END ;
SBD ;
SBT ;EP
ASK2 ;
L1 ;
NEW ;
L ;EP
ASK1 ;
MPADD ;
L2 ;
A4 ;EP
A7 ;
A6 ;
A9 ;
A8 ;
NEW1 ;
MPEDIT ;
MPDSP ;DISPLAY MEDICARE PROVIDER INFO
L3 ;

External References

Name Field # of Occurrence
YN^ACHS NEW+7, NEW+9
READ^ACHSFU L3+3, NEW+4, NEW1+2, MPADD+2, MPEDIT+2
A1^ACHSVDV A4+5, A6+3, A7+3, A8+3, A9+2, A9+5
END^ACHSVDV A4+5, A6+3, A7+3, A8+3
L^ACHSVDV1 A4+7
^ACHSVDV2 A9+3
AGRDSP^ACHSVDV2 A6+5, A7+5, A8+5
^DIC NEW1+8, MPADD+7, MPEDIT+9
^DIE NEW1+13, MPADD+12, MPEDIT+14
^DIR L2+7
$$DIR^XBDIR A4+4, A6+2, A7+2, A8+2, A9+1, A9+4, ASK1+1, ASK2+1
$$EXTSET^XBFUNC MP+6
$$FMTE^XLFDT SBD+1, MP+7
$$UP^XLFSTR NEW+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(C,4),?4,$J($P(^(0),U),15)
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !,$J(C,2),?3,$J($P(^(0),U),18)
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: !!,"Which one: "
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: !!?3,"Enter 1 thru ",C
  • Line Location: L3+5
Function Call: WRITE
  • Prompt: !!,"Enter 1 thru ",C
  • Line Location: L3+7
Function Call: WRITE
  • Prompt: ?22,$$FMTE^XLFDT($P(D,U)),?35,$$FMTE^XLFDT($P(D,U,2)),?49,$E($P(^AUTTVNDR(ACHSPROV,"CN",N,0),U,5),1,30)
  • Line Location: SBD+1
Function Call: WRITE
  • Prompt: @IOF,!!?5,"Contract Number",?22,"Begin Date",?35,"Ending Date",?49,"Description of Service",!?5,"---------------",?22,"------------",?35,"------------",?49,"-------------------------"
  • Line Location: SBT+1
Function Call: WRITE
  • Prompt: !!,"Want to Enter a New Contract? NO// "
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !!,"Enter CONTRACT NUMBER: "
  • Line Location: NEW1+1
Function Call: WRITE
  • Prompt: !!,"Enter New Contract Number "
  • Line Location: NEW1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW1+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MP+1
Function Call: WRITE
  • Prompt: !!,"Item",?6,"Medicare Number",?23,"Begin Date",?37,"End Date",?51,"Description",!,"----",?6,"---------------",?23,"------------",?37,"------------",?51,"-------------------------",!
  • Line Location: MPDSP+1
Function Call: WRITE
  • Prompt: !!,"Enter the Medicare NUMBER: "
  • Line Location: MPADD+1
Function Call: WRITE
  • Prompt: !!,"Enter New Number "
  • Line Location: MPADD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MPADD+10
Function Call: WRITE
  • Prompt: !!,"Which item: "
  • Line Location: MPEDIT+1
Function Call: WRITE
  • Prompt: !!?3,"Enter 1 thru ",CT
  • Line Location: MPEDIT+4
Function Call: WRITE
  • Prompt: !!,"Enter 1 thru ",CT
  • Line Location: MPEDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MPEDIT+12
Routine Call
  • DIE
  • Line Location:
    • NEW1+13
    • MPADD+12
    • MPEDIT+14
Routine Call
  • DIC
  • Line Location:
    • NEW1+8
    • MPADD+7
    • MPEDIT+9
Routine Call
  • DIR
  • Line Location:
    • L2+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTVNDR - [#9999999.11] A4+1, L1+1, L2+1, L2+2, L2+5, L3+1, SBD+1, NEW1+6, MP+3, MP+4
, MPADD+5
^XUSEC("ACHSZMGR" L3+1

Label References

Name Line Occurrences
A6 A4+1, A4+5
A7 A6+1, A6+3
A8 A7+1, A7+3
A9 A8+1, A8+3
ASK1 MP+8, MP+9
ASK2 ASK1+2
END L3+1, L3+4, NEW+2, NEW+5, NEW+8, NEW1+15, ASK1+2, ASK2+2, MPADD+3, MPADD+14
, MPEDIT+3, MPEDIT+16, MPEDIT+17
L1 L2+2
L2 L2+2, L2+8
L3 L1+2, L2+6, L3+5, L3+7
MPADD ASK1+3, MPADD+4, MPADD+8, MPEDIT+10
MPDSP MP+1
MPEDIT ASK2+3, MPEDIT+4, MPEDIT+5, MPEDIT+6
NEW L3+1, L3+6, NEW+7, NEW+9, NEW1+3, NEW1+5, NEW1+9
NEW1 NEW1+4
SBD L2+5
SBT L2+5, L2+7

Naked Globals

Name Field # of Occurrence
^(0 L2+5, NEW1+6*, MPADD+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A("DISPLAY" A4+6*, L3+1
>> ACHSACO A4+6*, L+2*, L2+5, L2+6
>> ACHSAGTP A6+4*, A7+4*, A8+4*
>> ACHSBDT MP+5*, MP+7
ACHSBPFL A4+2!, A8+4*, END+1!
ACHSCTFL A4+2!, A4+6*, END+1!, NEW+2
>> ACHSDES MP+5*, MP+6*, MP+7
>> ACHSDSP( MP+4*, MP+5, MPEDIT+7
>> ACHSEDT MP+5*, MP+7
>> ACHSMP MP+2*, MP+3*, MP+4
>> ACHSMPN MP+5*, MP+7
ACHSPAFL A4+2!, A7+4*, END+1!
>> ACHSPROV A4+1, A4+6, L1+1, L2+1, L2+2, L2+5, L3+1, SBD+1, NEW1+6, NEW1+7
, NEW1+12, MP+3, MP+4, MPADD+5, MPADD+6, MPADD+11, MPEDIT+8, MPEDIT+13
ACHSRQFL A4+2!, A6+4*, END+1!
>> ACHSRT("BPA" A8+1
>> ACHSRT("PA" A7+1
>> ACHSRT("RQ" A6+1
C L+1*, L2+5*, L2+6, L3+1, L3+5, L3+7, END+1!, NEW+1
C( L2+5*, L3+8
>> CT MP+2*, MP+5*, MP+7, MP+8, MP+9, MPEDIT+4, MPEDIT+6
>> D L2+5*, SBD+1
DA L3+8*, NEW+2*, NEW+8*, NEW1+10*, NEW1+14!, MPADD+9*, MPADD+13!, MPEDIT+11*, MPEDIT+15!
DA(1 NEW1+7*, NEW1+12*, MPADD+6*, MPADD+11*, MPEDIT+8*, MPEDIT+13*
>> DIC NEW1+7*, MPADD+6*, MPEDIT+8*
>> DIC(0 NEW1+7*, MPADD+6*, MPEDIT+8*
DIE NEW1+12*, NEW1+14!, MPADD+11*, MPADD+13!, MPEDIT+13*, MPEDIT+15!
DIE("NO^" NEW1+12*, MPADD+11*, MPEDIT+13*
DIR L2+7!
DIR(0 L2+7*
>> DR NEW1+12*, MPADD+11*, MPEDIT+13*
DT L+1
>> DTOUT A4+5, A6+3, A7+3, A8+3, A9+2
>> DUOUT A4+5, A6+3, A7+3, A8+3, A9+2, L3+4, NEW+5, NEW1+3, ASK1+2, ASK2+2
, MPADD+3, MPEDIT+3
DUZ L3+1
>> E L+1*
>> F L2+6
>> I L2+5*, MP+3*, MP+4, MP+5
IOF SBT+1, MP+1
>> L L+1*, L2+5*
N L1+3*, L2+1*, L2+2, L2+5, END+1!, SBD+1
>> P A4+6*
S L+1*, L1+1*, L1+2, L2+1, L2+5, END+1!
U L2+5, L3+1, SBD+1, MP+5, MPEDIT+7
>> X NEW1+7*, MPADD+6*, MPEDIT+7*
>> Y A4+4*, A4+5, A6+2*, A6+3, A7+2*, A7+3, A8+2*, A8+3, A9+1*, A9+2
, L2+7, L3+5, L3+6, L3+7, L3+8, NEW+6*, NEW+7, NEW+8, NEW+9, NEW1+4
, NEW1+5, NEW1+7, NEW1+9, NEW1+10, ASK1+1*, ASK1+2, ASK1+3, ASK2+1*, ASK2+2, ASK2+3
, MPADD+4, MPADD+6, MPADD+8, MPADD+9, MPEDIT+4, MPEDIT+5, MPEDIT+6, MPEDIT+7, MPEDIT+10, MPEDIT+11
, MPEDIT+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All