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

Package: Contract Health Management Information System

Routine: ACHSA3


Information

ACHSA3 ; IHS/ITSC/PMF - ENTER DOCUMENTS (4/8)-(CON,DESC,PRD,ONUM) ; [ 09/22/2004 3:39 PM ]

Source Information

Source file <ACHSA3.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Contract Health Management Information System 8 ($$FC,RTRN)^ACHS  (A3,END)^ACHSA  (B5,B5A)^ACHSA1  ^ACHSA4  ($$PRMT,DIRD,READ)^ACHSFU  ^ACHSUCN  ^ACHSUD1  (A1,A2)^ACHSURT  
IHS VA Utilities 2 $$DIR^XBDIR  ($$C,$$EXTSET)^XBFUNC  
VA Fileman 2 (C,D)^%DTC  ^DIR  
Kernel 1 ($$FMTE,$$FMTH,$$HTFM)^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSA1  

Entry Points

Name Comments DBIA/ICR reference
MSG(MSG) ;
B6A ;
B10 ;
R10 ;
A1 ;
A2 ;
C2 ;
C1 ; Enter period of authorization (From/To dates).
R1 ; Display rate/AGR quotes for vendors.
A1A ;
B5B ;
CARE ;
C1A ;
B20 ; Enter description of service.
B4 ;
B5 ; Enter contract number of vendor
B6 ;
B7 ;
CONCHK ; Check if contract in effect during From-To dates.
DUPCK ;
D3 ;
D1 ;

External References

Name Field # of Occurrence
C^%DTC A1A+2
D^%DTC A2+8
$$FC^ACHS MSG+2
RTRN^ACHS MSG+4
A3^ACHSA B20+9, C2+4
END^ACHSA B5B+2, B7+3, B20+8, A1+4, A2+2
B5^ACHSA1 B5B+5, B20+9
B5A^ACHSA1 B7+6
^ACHSA4 D1+3
$$PRMT^ACHSFU B20+5
DIRD^ACHSFU B20+7
READ^ACHSFU B5B+1, B7+2
^ACHSUCN B4+3, B6+4
^ACHSUD1 C2+2
A1^ACHSURT B4+11
A2^ACHSURT R1+5
^DIR B20+7
$$DIR^XBDIR B10+5, B10+7, A1+3, A2+1
$$C^XBFUNC MSG+1, MSG+2, MSG+3
$$EXTSET^XBFUNC B10+9, CARE+3, CARE+12
$$FMTE^XLFDT A1+3, A2+1, CONCHK+8, CARE+4, CARE+13
$$FMTH^XLFDT A2+1
$$HTFM^XLFDT A1+3, A2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Contract Number: "
  • Line Location: B5+1
Function Call: WRITE
  • Prompt: $P($G(^AUTTVNDR(ACHSPROV,"CN",ACHSCONP,0)),U),"// "
  • Line Location: B5+2
Function Call: WRITE
  • Prompt: " Deleted"
  • Line Location: B5B+8
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: B5B+15
Function Call: WRITE
  • Prompt: !!," No Contracts Currently in Force For This Vendor"
  • Line Location: B6A+1
Function Call: WRITE
  • Prompt: !!,"Which One: "
  • Line Location: B7+1
Function Call: WRITE
  • Prompt: " Select 1 Thru ",(C+1)
  • Line Location: B7+8
Function Call: WRITE
  • Prompt: *7," ????"
  • Line Location: B7+10
Function Call: WRITE
  • Prompt: !!,"Contract Number: Open Market// "
  • Line Location: B7+11
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: B7+19
Function Call: WRITE
  • Prompt: !,$$PRMT^ACHSFU(22,ACHSDES,30)
  • Line Location: B20+5
Function Call: WRITE
  • Prompt: !!,"Period Of Authorization"
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: !,"** Ending Period Of Authorization Must Be After Estimated Date Of Service **",!
  • Line Location: A2+5
Function Call: WRITE
  • Prompt: *7,!," The Authorization May Not Exceed 120 Days"
  • Line Location: A2+9
Function Call: WRITE
  • Prompt: !!,*7,"Sorry - this document was issued for another patient.",!,"Please Re-enter document number."
  • Line Location: C2+6
Function Call: WRITE
  • Prompt: !!,*7,"Sorry - Hospital order number must reference a 43 document.",!,"Please Re-enter document number."
  • Line Location: C2+7
Function Call: WRITE
  • Prompt: *7,!!,"CONTRACT NOT IN EFFECT ",$$FMTE^XLFDT(ACHSFDT),$S(ACHSTDT:" TO "_$$FMTE^XLFDT(ACHSTDT),1:""),".",!
  • Line Location: CONCHK+8
Function Call: WRITE
  • Prompt: *7,*7,*7,!!,$$C^XBFUNC("Hold on now pardner! Whoa Nellie!")
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("Document "_$P($G(^ACHSF(ACHSPATF,"D",D,0)),U,14)_"-"_$$FC^ACHS(ACHSPATF)_"-"_$P($G(^ACHSF(ACHSPATF,"D",D,0)),U)_" has a "_MSG_" date real close to yours.")
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("( Continue....if you're sure this isn't a duplicate P.O. )")
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !!,"Medicare Provider Status Set to: ",ACHSMCR,!,"Last Updated:",$$FMTE^XLFDT($G(ACHSLDT)),!
  • Line Location: CARE+4
Function Call: WRITE
  • Prompt: !,?20,"Services at Medicare Like Rates",!
  • Line Location: CARE+6
Function Call: WRITE
  • Prompt: "#",?5,"Provider No",?23,"Effect Date",?37,"End Date",?51,"Description",!
  • Line Location: CARE+7
Function Call: WRITE
  • Prompt: ?5,"-----------",?23,"----------",?37,"--------",?51,"-----------"
  • Line Location: CARE+8
Function Call: WRITE
  • Prompt: !,$J(CT,2),?5,ACHSMPN,?23,$$FMTE^XLFDT($G(ACHSBDT)),?37,$$FMTE^XLFDT($G(ACHSEDT)),?51,$G(ACHSDS),!
  • Line Location: CARE+13
Routine Call
  • DIR
  • Line Location:
    • B20+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] A2+6, C2+6, C2+7, DUPCK+5, DUPCK+7, DUPCK+10, DUPCK+22, MSG+2
^AUTTVNDR - [#9999999.11] B5+2, B5B+13, R10+4, R10+7, B10+3, CONCHK+3, CONCHK+4, CARE+2, CARE+9, CARE+10

Label References

Name Line Occurrences
A1 A2+3, A2+9
B10 R1+1, R10+1, A1+5
B20 B10+1, B10+3, B10+4, B10+6
B4 D1+1, D3+1
B5 B5B+14, B7+9, B7+23, D3+1
B5B B5+2, B7+11
B6 B5+3, B5B+5
B6A B4+14
B7 B7+8, B7+10
C1 A2+5
C1A C1+4
C2 C2+6, C2+7
CARE B4+13
CONCHK D1+1
D1 C1A+1, C2+5
DUPCK B20+1
MSG DUPCK+13, DUPCK+17, DUPCK+22
R1 B4+16, B5B+5, B5B+8, B6A+1
R10 R1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHSACO B4+1*, B4+14, B6+1*, B6A+1, B7+12*
>> ACHSAGRP R10+1, R10+4, R10+7
>> ACHSBDT CARE+11*, CARE+13
>> ACHSCONP B4+7*, B5+2, B5B+8*, B5B+14*, B7+11*, B7+22*, R10+7*, B10+8*, D1+1, D3+1
, CONCHK+3, CONCHK+4
>> ACHSCTNA B4+16, R1+2
>> ACHSDES B10+9*, B20+4, B20+5, B20+10*
>> ACHSDRG R10+4*
>> ACHSDS B10+6*, B10+8*, B10+9, CARE+11*, CARE+12*, CARE+13
>> ACHSEDOS C1+1, A2+5, DUPCK+13, DUPCK+17, DUPCK+22
>> ACHSEDT CARE+11*, CARE+13
>> ACHSFDT B5B+13, C1+1*, A1+3, A1+6*, A1A+1, A1A+4, A2+1, A2+7, CONCHK+5, CONCHK+6
, CONCHK+8
>> ACHSFYDT A2+6
>> ACHSHON C2+5, C2+6, C2+7
>> ACHSLDT CARE+2*, CARE+4
>> ACHSMCR CARE+2*, CARE+3*, CARE+4, CARE+5
>> ACHSMP CARE+5*, CARE+9*, CARE+10
>> ACHSMPN B10+3*, B10+5, B10+6*, B10+8*, CARE+11*, CARE+13
>> ACHSMPN( B10+8, CARE+10*, CARE+11
>> ACHSMPP B10+6*, B10+8*
>> ACHSPATF DUPCK+1, DUPCK+5, DUPCK+7, DUPCK+10, DUPCK+22, MSG+2
>> ACHSPFYE A2+6*
>> ACHSPROV B4+8, B5+2, B5B+13, R10+4, R10+7, B10+3, CONCHK+3, CONCHK+4, DUPCK+1, DUPCK+7
, CARE+2, CARE+9, CARE+10
>> ACHSQUIT B5B+2, B7+3
>> ACHSRT( B7+22
>> ACHSRT(0 R1+1
>> ACHSTDT A1A+3*, A1A+4*, A2+1, A2+4*, A2+5, A2+7, CONCHK+6, CONCHK+8
>> ACHSTYP R10+4, R10+7, B10+1, B10+4, B20+9, C1+4, A1A+1, C1A+1, CONCHK+1, CARE+3
>> C B4+7, B4+16, B5+3, B5B+7*, B5B+13*, B5B+14, B6A+1, B7+8, B7+10, B7+11
, R1+2
>> CT B10+7, CARE+5*, CARE+11*, CARE+13, CARE+14
D DUPCK+2~, DUPCK+3*, DUPCK+5*, DUPCK+7, DUPCK+10, DUPCK+22, MSG+2
DA B20+6!
>> DFN C2+6, DUPCK+1, DUPCK+5
DIR B20+2!, B20+11!
DIR("B" B20+4*
DIR(0 B20+3*
>> DTOUT B20+8, A1+4, A2+2
DUOUT B5B+5, B7+6, B20+9, A1+5, A2+3, C2+4, D1+1, CONCHK+2!, CONCHK+7*
DUZ(2 A2+6, C2+6, C2+7
E C2+8!
>> F B7+12*
>> I B5B+13*, CARE+9*, CARE+10, CARE+11
>> L B4+7, B5B+13*, B5B+14
MSG MSG~, MSG+2
>> N B5B+12*, B5B+13*
ORD C2+8!
>> P B4+8*
R DUPCK+2~, DUPCK+10*, DUPCK+11, DUPCK+13, DUPCK+17
T DUPCK+2~, DUPCK+18*, DUPCK+22*
U B4+7, B5+2, B5B+13, B7+22, R10+4, R10+7, B10+3, B10+8, A2+6, C2+7
, CONCHK+5, CONCHK+6, DUPCK+7, DUPCK+13, DUPCK+17, DUPCK+22, MSG+2, CARE+2, CARE+11
>> X B20+7, A1A+3, A2+9, CONCHK+4*, CONCHK+5, CONCHK+6
>> X1 A1A+1*, A2+7*
>> X2 A1A+1*, A2+7*
>> Y B5B+5, B5B+8, B5B+11, B5B+13, B7+8, B7+9, B7+10, B7+11, B7+12, B7+22
, B10+5*, B10+6, B10+7*, B10+8, B20+10, A1+3*, A1+6, A1A+3*, A2+1*, A2+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All