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

Package: Contract Health Management Information System

Routine: ACHSTX1R


Information

ACHSTX1R ; IHS/ITSC/PMF - REGENERATION OF EXPORT GLOBAL ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSTX1R.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 4 ($$FC,$$LOC)^ACHS  KILLGLBS^ACHSTX  S2^ACHSTX2  ^ACHSUD  
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 ACHSTXX  

Entry Points

Name Comments DBIA/ICR reference
SELDOC ; Select transactions from particular documents for export.
HDR ;
DISTRANS(D,T) ;
HDR1 ;
HELP(L) ;EP - Display text at label L.
H1 ;
SELTRANS(D) ; Display trans of doc D, and allow selection.
L2 ;
H ;

External References

Name Field # of Occurrence
$$FC^ACHS SELDOC+17
$$LOC^ACHS ACHSTX1R+16
KILLGLBS^ACHSTX L2+16
S2^ACHSTX2 L2+21
^ACHSUD SELDOC+3
$$DIR^XBDIR ACHSTX1R+4, ACHSTX1R+22, L2+8, L2+12, SELDOC+23, SELTRANS+6
$$EXTSET^XBFUNC DISTRANS+2
$$FMTE^XLFDT L2+5, DISTRANS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"FACILITY NAME: ",$$LOC^ACHS
  • Line Location: ACHSTX1R+16
Function Call: WRITE
  • Prompt: $J(ACHSLCAT,4),?10,X1,?25,X2,?40,X3,?55,$J($P(X,U,5),5),!
  • Line Location: L2+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: L2+15
Function Call: WRITE
  • Prompt: @IOF,!,ACHS("*"),!?22,"GENERATE PREVIOUS CHS TRANSMISSION DATA",!,ACHS("*"),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"ITM #",?10,"EXPORT DATE",?25,"BEG DATE",?40,"END DATE",?55,"# RECORDS",!!
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !!,"The list now consists of the following transactions:"
  • Line Location: SELDOC+9
Function Call: WRITE
  • Prompt: !!,%,!!
  • Line Location: SELDOC+12
Function Call: WRITE
  • Prompt: !!,%,!!
  • Line Location: SELDOC+15
Function Call: WRITE
  • Prompt: !,$J(%,3),". ",$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+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+17, SELTRANS+5, DISTRANS+1
^ACHSTXST - [#9002070] ACHSTX1R+18, ACHSTX1R+20, L2+5, L2+17, L2+19
^ACHSTXST("AC" L2+3, L2+4
^TMP("ACHSTXAR" SELDOC+1!, SELDOC+6!, SELDOC+7*, SELDOC+10

Label References

Name Line Occurrences
$$SELTRANS SELDOC+4
DISTRANS SELDOC+18, SELTRANS+5
HDR ACHSTX1R+13
HDR1 L2+2
HELP SELTRANS+1
SELDOC ACHSTX1R+10

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+8*, SELDOC+11*, SELDOC+12, SELDOC+14*, SELDOC+15, SELDOC+17, SELDOC+20*, HELP+2*
>> ACHS( L2+5*, L2+14
>> ACHS("*" HDR+2
>> ACHS("MAX" ACHSTX1R+20*, ACHSTX1R+21, ACHSTX1R+22, L2+20!
>> ACHS("NUM" ACHSTX1R+20*, ACHSTX1R+21*, ACHSTX1R+22, ACHSTX1R+25*, L2+7, L2+20!
>> ACHS("REXNUM" L2+14*, L2+17, L2+19
>> ACHSBDT ACHSTX1R+14*, L2+17*, L2+18*
ACHSDIEN SELDOC+3, SELDOC+4, SELDOC+6, SELDOC+7, SELDOC+22!
>> ACHSEDT ACHSTX1R+14*, L2+19*
ACHSLCAT L2+1*, L2+5*, L2+6, L2+7, L2+8, L2+11, L2+12, L2+20!
ACHSR L2+1*, L2+3*, L2+4, L2+20!
ACHSRR ACHSTX1R+14*, L2+1*, L2+4*, L2+5, L2+20!
C SELTRANS+2~, SELTRANS+4*, SELTRANS+5*, SELTRANS+6
C( SELTRANS+5*, SELTRANS+8, SELTRANS+9
D SELDOC+2~, SELDOC+10*, SELDOC+17, SELDOC+18, SELTRANS~, SELTRANS+5, DISTRANS~, DISTRANS+1
>> DTOUT ACHSTX1R+6, ACHSTX1R+23, L2+13, SELDOC+3, SELDOC+5, SELTRANS+7
>> DUOUT ACHSTX1R+6, ACHSTX1R+23, L2+3, L2+13, SELDOC+3, SELDOC+5, SELTRANS+7
DUZ(2 ACHSTX1R+18, ACHSTX1R+20, L2+3, L2+4, L2+5, L2+17, L2+19, SELDOC+6, SELDOC+7, SELDOC+17
, SELTRANS+5, DISTRANS+1
IO(0 HDR+1
IOF HDR+2
>> J ACHSTX1R+14*
L HELP~
>> STOP ACHSTX1R+6*, ACHSTX1R+18*, ACHSTX1R+23*
T SELDOC+2~, SELDOC+4*, SELDOC+5, SELDOC+6*, SELDOC+7, SELDOC+10*, SELDOC+18, SELTRANS+2~, SELTRANS+4*, SELTRANS+5*
, DISTRANS~, DISTRANS+1
U ACHSTX1R+20, L2+5, L2+6, L2+17, L2+19, SELDOC+6, SELDOC+7, SELDOC+17, DISTRANS+2
>> X L2+5*, L2+6, SELDOC+8*, SELDOC+10*
X1 L2+5*, L2+6, L2+20!
X2 L2+5*, L2+6, L2+20!
X3 L2+5*, L2+6, L2+20!
>> Y ACHSTX1R+4*, ACHSTX1R+10, ACHSTX1R+22*, ACHSTX1R+25, L2+12*, L2+14, SELTRANS+5*, SELTRANS+6*, SELTRANS+7, SELTRANS+8
, SELTRANS+9, DISTRANS+1*, DISTRANS+2

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