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

Package: Contract Health Management Information System

Routine: ACHSAV


Information

ACHSAV ; IHS/ITSC/PMF - DOCUMENT DISPLAY ; [ 03/29/2005 3:10 PM ]

Source Information

Source file <ACHSAV.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Contract Health Management Information System 1 ALL^ACHSUDF  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Contract Health Management Information System 5 ACHSA7  ACHSAJ  ACHSBUG3  ACHSPAM  ACHSUSC  

Entry Points

Name Comments DBIA/ICR reference

External References

Name Field # of Occurrence
ALL^ACHSUDF ACHSAV+22
$$FMTE^XLFDT ACHSAV+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Form # ",$S(ACHSTYP=1:"43",ACHSTYP=2:"57",ACHSTYP=3:"64",1:"")
  • Line Location: ACHSAV+12
Function Call: WRITE
  • Prompt: ?55,"REF TYPE"
  • Condition for execution: ACHSREFT]""
  • Line Location: ACHSAV+12
Function Call: WRITE
  • Prompt: ?68,"Order No."
  • Condition for execution: ACHSORDN]""
  • Line Location: ACHSAV+12
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(ACHSODT),?80-$L(T)\2,T,?59,ACHSREFT,?79-$L(ACHSORDN),ACHSORDN,!
  • Line Location: ACHSAV+16
Function Call: WRITE
  • Prompt: ?44,"HHS Order No:",?79-$L(ACHSDHHS),ACHSDHHS,!,"-------------------------------------------------------------------------------"
  • Line Location: ACHSAV+17
Function Call: WRITE
  • Prompt: !?39-$L(T)/2,T,?40,"|",?46,"Ordering Facility & Provider"
  • Line Location: ACHSAV+19
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: ACHSAV+29
Function Call: WRITE
  • Prompt: !
  • Line Location: ACHSAV+30
Function Call: WRITE
  • Prompt: $G(A(6))
  • Line Location: ACHSAV+31
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: ACHSAV+32
Function Call: WRITE
  • Prompt: ?42,$E($G(D(1)),1,37)
  • Line Location: ACHSAV+33
Function Call: WRITE
  • Prompt: !
  • Line Location: ACHSAV+34
Function Call: WRITE
  • Prompt: $G(A(7))
  • Line Location: ACHSAV+35
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: ACHSAV+36
Function Call: WRITE
  • Prompt: ?42,$E($G(D(2)),1,37)
  • Line Location: ACHSAV+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ACHSAV+38
Function Call: WRITE
  • Prompt: $G(A(9))
  • Line Location: ACHSAV+39
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: ACHSAV+40
Function Call: WRITE
  • Prompt: ?42,$E($G(D(3)),1,37)
  • Line Location: ACHSAV+41
Function Call: WRITE
  • Prompt: !
  • Line Location: ACHSAV+42
Function Call: WRITE
  • Prompt: $G(A(10))
  • Line Location: ACHSAV+43
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: ACHSAV+44
Function Call: WRITE
  • Prompt: ?42,$E($G(D(4)),1,37)
  • Line Location: ACHSAV+45
Function Call: WRITE
  • Prompt: ?56,$E($G(F(6)),1,20)
  • Line Location: ACHSAV+46
Function Call: WRITE
  • Prompt: !?40,"|"
  • Line Location: ACHSAV+49
Function Call: WRITE
  • Prompt: ?42,$E($G(D(13)),1,35)
  • Line Location: ACHSAV+50
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------",!
  • Line Location: ACHSAV+51
Function Call: WRITE
  • Prompt: $G(C(4))
  • Line Location: ACHSAV+52
Function Call: WRITE
  • Prompt: ?42,$G(A(8))
  • Line Location: ACHSAV+53
Function Call: WRITE
  • Prompt: ?41," SCC: ",$G(F(8))
  • Line Location: ACHSAV+54
Function Call: WRITE
  • Prompt: "DCR Acct. = ",$P($G(^ACHS(9,DUZ(2),"RN")),U,ACHSDCR)
  • Line Location: ACHSAV+57
Function Call: WRITE
  • Prompt: ?42,"CAN/OBJ: ",$G(F(7))," / ",$G(F(9),"N/A")," ",$G(ACHSCOPT,"N/A")
  • Line Location: ACHSAV+58
Function Call: WRITE
  • Prompt: !?1,"Estimated Charge: ",$G(E(9))
  • Line Location: ACHSAV+59
Function Call: WRITE
  • Prompt: ?42,"Days: ",$G(ACHSESDA)
  • Line Location: ACHSAV+61
Function Call: WRITE
  • Prompt: ?42,"Hosp Order No: ",$G(E(10))
  • Line Location: ACHSAV+62

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] ACHSAV+57
^ACHSCTYP - [#9002068.1] ACHSAV+9
^ACHSF - [#9002080] ACHSAV+6, ACHSAV+8, ACHSAV+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ACHSAV+63!
A( ACHSAV+25
A(10 ACHSAV+43
A(5 ACHSAV+26
A(6 ACHSAV+31
A(7 ACHSAV+35
A(8 ACHSAV+53, ACHSAV+55
A(9 ACHSAV+39
>> ACHSACFY ACHSAV+7
>> ACHSCOPT ACHSAV+58
>> ACHSCTYP ACHSAV+8*, ACHSAV+9*, ACHSAV+10*, ACHSAV+11
>> ACHSDCR ACHSAV+57
>> ACHSDHHS ACHSAV+11*, ACHSAV+17
>> ACHSDIEN ACHSAV+6, ACHSAV+8
>> ACHSDOFY ACHSAV+6*, ACHSAV+7*, ACHSAV+11
>> ACHSESDA ACHSAV+61
>> ACHSODT ACHSAV+16
>> ACHSORDN ACHSAV+6, ACHSAV+7, ACHSAV+8, ACHSAV+10, ACHSAV+11, ACHSAV+12, ACHSAV+16
>> ACHSREFT ACHSAV+12, ACHSAV+16
>> ACHSTYP ACHSAV+12, ACHSAV+13, ACHSAV+61, ACHSAV+62
B ACHSAV+63!
B( ACHSAV+28
C ACHSAV+63!
C(4 ACHSAV+52, ACHSAV+55
D ACHSAV+63!
D(1 ACHSAV+33
D(13 ACHSAV+50
D(2 ACHSAV+37
D(3 ACHSAV+41
D(4 ACHSAV+45
>> DFN ACHSAV+18
DUZ(2 ACHSAV+6, ACHSAV+8, ACHSAV+11, ACHSAV+57
E ACHSAV+63!
E(10 ACHSAV+62
E(9 ACHSAV+59
F ACHSAV+63!
F(6 ACHSAV+46
F(7 ACHSAV+58
F(8 ACHSAV+54
F(9 ACHSAV+58
>> I ACHSAV+24*, ACHSAV+25, ACHSAV+26, ACHSAV+28
IOF ACHSAV+12
>> T ACHSAV+13*, ACHSAV+16, ACHSAV+18*, ACHSAV+19
U ACHSAV+6, ACHSAV+8, ACHSAV+9, ACHSAV+11, ACHSAV+57
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All