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

Package: Contract Health Management Information System

Routine: ACHSTXTT


Information

ACHSTXTT ; IHS/ITSC/TPF/PMF - TRANSFER ACHSDATA GLOBAL TO EXPORT MEDIA ;

Source Information

Source file <ACHSTXTT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Contract Health Management Information System 3 LINES^ACHSFU  $$DTAO^ACHSTX  ^ACHSVAR  
IHS VA Utilities 2 $$DIR^XBDIR  ^XBGSAVE  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSTX  ACHSTXIT  

Entry Points

Name Comments DBIA/ICR reference
END ; Show results, ask EOP, kill vars, quit.
L5 ;
L2 ;
L3 ;
L1 ;

External References

Name Field # of Occurrence
LINES^ACHSFU ACHSTXTT+3
$$DTAO^ACHSTX L3+1
^ACHSVAR ACHSTXTT+3
$$DIR^XBDIR L3+3, END+2
^XBGSAVE L5+4
$$FMTE^XLFDT L2+2, L2+3, L2+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,ACHS("*"),!,"*",?23,"COPY CHS TX DATA FOR EXPORT",?78,"*",!,ACHS("*"),!
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !?25,"CHS EXPORT RECORDS NOT FOUND"
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !?10,"CHS EXPORT DATA FOUND FOR : ",$P(^ACHSDATA(0),U,2)
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !!?25,"EXPORT RUN DATE",?50,"=",?55,$$FMTE^XLFDT($P(^ACHSDATA(0),U,3))
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !?25,"BEGINNING ADD/UPD DATE",?50,"=",?55,$$FMTE^XLFDT($P(^ACHSDATA(0),U,4))
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !?25,"ENDING ADD/UPD DATE",?50,"=",?55,$$FMTE^XLFDT($P(^ACHSDATA(0),U,5))
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !?25,"NUMB OF DATA RECORDS",?50,"=",?55,$P(^ACHSDATA(0),U,7)
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: !!,"CHS TX DATA DOES NOT MATCH LAST EXPORT DATE & FACILITY",*7
  • Line Location: L2+6
Function Call: WRITE
  • Prompt: !!,"CHS TX STATUS NODE FOR THIS SITE IS MISSING",*7
  • Line Location: L2+8
Function Call: WRITE
  • Prompt: !,*7,?27,"RECOPYING EXPORT DATA TO DATA MEDIA"
  • Line Location: L2+9
Function Call: WRITE
  • Prompt: !!,"NORMAL END OF JOB"
  • Line Location: L5+7
Function Call: WRITE
  • Prompt: !!,XBFLG(1),!!
  • Line Location: END+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIB(9888888.93 - [#9888888.93] L5+3
^ACHSDATA(0 L1+2, L2+1, L2+2, L2+3, L2+4, L2+5, L2+6, L3+5*
^ACHSTXST - [#9002070] L2+7, L2+8, L2+9, L5+6*
^ACHSTXST("C" L2+6
^AUTTSITE(1 L5+3

Label References

Name Line Occurrences
END L1+2, L2+6, L2+8, L3+2, L3+4, L5+5
L1 L3+4

Naked Globals

Name Field # of Occurrence
^(0 L5+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L3+3*, L3+4
%DT END+3!
ACHS END+3!
ACHS("*" L1+1
ACHSMDAT L3+1*, L3+5, L5+6, END+3!
DA L2+7*, L2+8, L2+9, L5+6, END+3!
DIR END+3!
>> DTOUT L3+2, L3+4
>> DUOUT L3+2, L3+4
DUZ(2 L2+6, L2+7, L2+8, L2+9, L5+6
IOF L1+1
U L2+1, L2+2, L2+3, L2+4, L2+5, L2+6, L2+7, L2+9, L3+5, L5+3
, L5+6
>> XBFLG L5+5, END+1
>> XBFLG(1 END+1
>> XBGL L5+1*
>> XBMED L5+2*
>> XBNAR L5+1*
XBOK END+3!
>> XBS1 L5+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All