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 |  Marked Items |  All
Print Page as PDF
Routine: ACHSTXAR

Package: Contract Health Management Information System

Routine: ACHSTXAR


Information

ACHSTXAR ; IHS/ITSC/PMF - REGENERATION OF EXPORT GLOBAL ;

Source Information

Source file <ACHSTXAR.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Contract Health Management Information System 9 ($$FC,$$LOC,$$PARM)^ACHS  LINES^ACHSFU  KILLGLBS^ACHSTX  S2^ACHSTX2  (KILL,NORECDS)^ACHSTX8  ^ACHSTXA1  ^ACHSTXF1  ^ACHSUD  
^ACHSUF  
IHS VA Utilities 2 $$DIR^XBDIR  $$EXTSET^XBFUNC  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSTX  

Entry Points

Name Comments DBIA/ICR reference
EXIT1 ;
HDR ;
DISTRANS(D,T) ;
HDR1 ;
SELRANG ; Select Document range only Initial transactions.
BEGDOC ;
H1 ;
SELTRANS(D) ; Display trans of doc D, and allow selection.
SETRTR ;SET TRANS FOR DOCUMENT RANGE
HELP(L) ;EP - Display text at label L.
ENDDOC ;
L4 ;
L2 ;
L3 ;
H ;
L1 ;
SELDOC ; Select transactions from particular documents for export.
SETRTR1 ;SET DOC TRANS IN TEMP

External References

Name Field # of Occurrence
$$FC^ACHS SELDOC+14, SETRTR+13
$$LOC^ACHS ACHSTXAR+21
$$PARM^ACHS ACHSTXAR+19
LINES^ACHSFU ACHSTXAR+15
KILLGLBS^ACHSTX L4+6
S2^ACHSTX2 L4+12
KILL^ACHSTX8 EXIT1+3
NORECDS^ACHSTX8 L4+1, L4+3
^ACHSTXA1 ACHSTXAR+13, ACHSTXAR+14
^ACHSTXF1 ACHSTXAR+13, ACHSTXAR+14, L4+7
^ACHSUD SELDOC+3, BEGDOC+2, ENDDOC+2
^ACHSUF ACHSTXAR+17
$$DIR^XBDIR ACHSTXAR+9, L1+4, L3+8, L4+2, SELDOC+20, ENDDOC+6, SETRTR+15, SETRTR+18, SELTRANS+6
$$EXTSET^XBFUNC DISTRANS+2
$$FMTE^XLFDT L3+5, DISTRANS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"EXPORT PROGRAM ALREADY RUN THIS DATE FOR THIS FACILITY",*7
  • Line Location: ACHSTXAR+7
Function Call: WRITE
  • Prompt: !?10,"FACILITY NAME: ",$$LOC^ACHS
  • Line Location: ACHSTXAR+21
Function Call: WRITE
  • Prompt: !!,*7,"NO DATA ON FILE FOR THIS FACILITY, JOB CANCELLED"
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: $J(ACHSLCAT,4),?10,X1,?25,X2,?40,X3,?55,$J($P(X,U,5),5),!
  • Line Location: L3+6
Function Call: WRITE
  • Prompt: *7,!!!?15,"*******************NOTICE******************",!?15,"The number of records in this re-export",!?15,"might differ from the number in the original.",!?15,"*******************************************",!!
  • Line Location: L4+5
Function Call: WRITE
  • Prompt: !!,"ITM #",?10,"EXPORT DATE",?25,"BEG DATE",?40,"END DATE",?55,"# RECORDS",!!
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: @IOF,!,ACHS("*"),!?22,"GENERATE PREVIOUS CHS TRANSMISSION DATA",!,ACHS("*"),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"JOB CANCELLED BY OPERATOR"
  • Line Location: EXIT1+2
Function Call: WRITE
  • Prompt: !!,"The list now consists of the following transactions:"
  • Line Location: SELDOC+10
Function Call: WRITE
  • Prompt: !,$J(%,2),". ",$P(^ACHSF(DUZ(2),"D",D,0),U,14),"-",$$FC^ACHS(DUZ(2)),"-",$P(^ACHSF(DUZ(2),"D",D,0),U,1)
  • Line Location: SELDOC+14
Function Call: WRITE
  • Prompt: !!!,"ENTER THE BEGINNING DOCUMENT NUMBER"
  • Line Location: BEGDOC+1
Function Call: WRITE
  • Prompt: !!!,"ENTER THE ENDING DOCUMENT NUMBER"
  • Line Location: ENDDOC+1
Function Call: WRITE
  • Prompt: !!,"*****Document selected is not after beginning Document.*****"
  • Line Location: ENDDOC+3
Function Call: WRITE
  • Prompt: !!,"The list now consists of the following transactions:"
  • Line Location: SETRTR+9
Function Call: WRITE
  • Prompt: !,$J(%,2),". ",$P(^ACHSF(DUZ(2),"D",D,0),U,14),"-",$$FC^ACHS(DUZ(2)),"-",$P(^ACHSF(DUZ(2),"D",D,0),U,1)
  • Line Location: SETRTR+13
Function Call: WRITE
  • Prompt: !!,"CONTINUE TO EXPORT RECORDS"
  • Line Location: SETRTR+17
Function Call: WRITE
  • Prompt: !!?10,"----------------------------------------------------",!?10,"TRANS",?30,"TRANS",!?11,"NUM",?19,"D A T E",?30,"TYPE",?40,"AMOUNT",!?10,"----------------------------------------------------",!!
  • Line Location: SELTRANS+3
Function Call: WRITE
  • Prompt: !?10,$J(C,3)
  • Line Location: SELTRANS+5
Function Call: WRITE
  • Prompt: ?17,$$FMTE^XLFDT($P(Y,U,1)),?32,$P(Y,U,2),$P(Y,U,5),?35,$J($FN($P(Y,U,4),",",2),11)," <",$$EXTSET^XBFUNC(9002080.02,1,$P(Y,U,2)),">"
  • Line Location: DISTRANS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?4,$P($T(@L+%),";",3)
  • Line Location: HELP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] SELDOC+6, SELDOC+7, SELDOC+14, SETRTR+4, SETRTR+5, SETRTR+6, SETRTR+13, SETRTR1+1, SETRTR1+2, SELTRANS+5
, DISTRANS+1
^ACHSTXST - [#9002070] L1+1, L1+2, L3+5, L4+8, L4+10
^ACHSTXST("AC" L3+1, L3+3
^ACHSTXST("C" ACHSTXAR+7
^TMP("ACHSTXAR" ACHSTXAR+13, ACHSTXAR+14, SELDOC+1!, SELDOC+6!, SELDOC+7*, SELDOC+11, SELRANG+1!, SETRTR+10, SETRTR+11, SETRTR1+2*

Label References

Name Line Occurrences
$$SELTRANS SELDOC+4
BEGDOC ENDDOC+2, ENDDOC+7
DISTRANS SELDOC+15, SETRTR+14, SELTRANS+5
ENDDOC ENDDOC+3
EXIT1 ACHSTXAR+7, ACHSTXAR+10, ACHSTXAR+13, ACHSTXAR+14, L1+1, L1+5
HDR ACHSTXAR+15
HDR1 L2+2, L3+8
HELP SELTRANS+1
L2 L1+5
L3 L3+4, L3+9
L4 L3+2, L3+7, L3+8
SELDOC ACHSTXAR+13
SELRANG ACHSTXAR+14
SETRTR1 SETRTR+4, SETRTR+5, SETRTR+6

Naked Globals

Name Field # of Occurrence
^( SELTRANS+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SELDOC+3, SELDOC+5*, SELDOC+9*, SELDOC+13*, SELDOC+14, SELDOC+17*, ENDDOC+6*, SETRTR+8*, SETRTR+12*, SETRTR+13
, SETRTR+15, HELP+2*
>> ACHS( L3+5*, L4+4
>> ACHS("*" HDR+2
>> ACHS("MAX" L1+2*, L1+3, L1+4, L4+11!
>> ACHS("NUM" L1+2*, L1+3*, L1+4, L1+6*, L3+7, L4+11!
>> ACHS("REXNUM" L4+4*, L4+8, L4+10
>> ACHSBDT ACHSTXAR+19*, L4+8*, L4+9*
ACHSCHSS ACHSTXAR+16*, ACHSTXAR+18!
ACHSDIEN SELDOC+3, SELDOC+4, SELDOC+6, SELDOC+7, SELDOC+19!, BEGDOC+2, BEGDOC+3, ENDDOC+2, ENDDOC+4, SETRTR+16!
, SETRTR1+1*, SETRTR1+2
ACHSEDOC SETRTR+16!
ACHSEDOC( BEGDOC+3*, ENDDOC+3, ENDDOC+4*, SETRTR+2, SETRTR+3
>> ACHSEDT ACHSTXAR+19*, L4+10*
>> ACHSF638 ACHSTXAR+19*
>> ACHSFC BEGDOC+3, ENDDOC+4
ACHSLCAT L2+1*, L3+5*, L3+6, L3+7, L3+8, L4+1, L4+2, L4+11!
ACHSQ SETRTR+8~*, SETRTR+10, SETRTR+11, SETRTR+15*
ACHSR L2+1*, L3+1*, L3+2, L3+3, L4+11!
>> ACHSREEX ACHSTXAR+7
ACHSRR ACHSTXAR+19*, L2+1*, L3+3*, L3+4, L3+5, L4+11!
>> ACHSRTYP( ACHSTXAR+20*
>> ACHSSDI SELDOC+9*, SELDOC+11*, SETRTR+8*, SETRTR+10*, SETRTR+11
>> ACHSTXTY ACHSTXAR+13, ACHSTXAR+14, L4+7
BEGDOC SETRTR+2*, SETRTR+4*, SETRTR+5*, SETRTR+6*, SETRTR+16!, SETRTR1+1
C SELTRANS+2~, SELTRANS+4*, SELTRANS+5*, SELTRANS+6
C( SELTRANS+5*, SELTRANS+8, SELTRANS+9
D SELDOC+2~, SELDOC+11*, SELDOC+14, SELDOC+15, SELRANG+2~, SETRTR+11*, SETRTR+13, SETRTR+14, SELTRANS~, SELTRANS+5
, DISTRANS~, DISTRANS+1
DT ACHSTXAR+7
>> DTOUT ACHSTXAR+10, ACHSTXAR+13, ACHSTXAR+14, L1+5, L4+3, SELDOC+3, SELDOC+5, BEGDOC+2, ENDDOC+2, SELTRANS+7
>> DUOUT ACHSTXAR+10, ACHSTXAR+13, ACHSTXAR+14, L1+5, L3+8, L4+3, SELDOC+3, SELDOC+5, BEGDOC+2, ENDDOC+2
, ENDDOC+8, SELTRANS+7
DUZ(2 ACHSTXAR+7, L1+1, L1+2, L3+1, L3+3, L3+5, L4+8, L4+10, SELDOC+6, SELDOC+7
, SELDOC+14, SETRTR+4, SETRTR+5, SETRTR+6, SETRTR+13, SETRTR1+1, SETRTR1+2, SELTRANS+5, DISTRANS+1
ENDDOC SETRTR+2*, SETRTR+5, SETRTR+6, SETRTR+16!
>> I ACHSTXAR+20*
IO(0 HDR+1, EXIT1+1
IOF HDR+2
>> J ACHSTXAR+19*
L SETRTR+1*, SETRTR+2, SETRTR+3, SETRTR+16!, HELP~
SEL SELRANG+3*, BEGDOC+3, ENDDOC+3, ENDDOC+4, ENDDOC+7*, SETRTR+1, SETRTR+16!
T SELDOC+2~, SELDOC+4*, SELDOC+5, SELDOC+6*, SELDOC+7, SELDOC+11*, SELDOC+15, SELRANG+2~, SETRTR+11*, SETRTR+14
, SELTRANS+2~, SELTRANS+4*, SELTRANS+5*, DISTRANS~, DISTRANS+1
U L1+2, L3+5, L3+6, L4+8, L4+10, SELDOC+6, SELDOC+7, SELDOC+14, BEGDOC+3, ENDDOC+3
, ENDDOC+4, SETRTR+2, SETRTR+3, SETRTR+13, SETRTR1+2, DISTRANS+2
>> X L3+5*, L3+6, BEGDOC+3, ENDDOC+3, ENDDOC+4
X1 L3+5*, L3+6, L4+11!
X2 L3+5*, L3+6, L4+11!
X3 L3+5*, L3+6, L4+11!
>> Y ACHSTXAR+9*, ACHSTXAR+13, ACHSTXAR+14, L1+4*, L1+5, L1+6, L4+2*, L4+4, ENDDOC+7, SELTRANS+5*
, SELTRANS+6*, SELTRANS+7, SELTRANS+8, SELTRANS+9, DISTRANS+1*, DISTRANS+2
>> Y(0 BEGDOC+3, ENDDOC+3, ENDDOC+4

Marked Items

Name Field # of Occurrence
$T(@L+% HELP+2
$T(@L+%+1 HELP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All