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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSTXP

Package: Contract Health Management Information System

Routine: ACHSTXP


Information

ACHSTXP ; IHS/ITSC/FCJ - 4 YR. EXPORT STAT DATA ; [ 11/09/2004 3:31 PM ]

Source Information

Source file <ACHSTXP.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Contract Health Management Information System 5 ($$ASF,$$EX,$$JDT,$$LOC,$$LOCK,$$OS,HELP)^ACHS  SLV^ACHSFU  (JOBABEND,KILL)^ACHSTX8  ^ACHSTXP2  ^ACHSVAR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  $$LIST^%ZISH  $$HTFM^XLFDT  
IHS VA Utilities 1 $$DIR^XBDIR  

Entry Points

Name Comments DBIA/ICR reference
EXFILE() ; Does export file exist?
END ;
KILLGLBS ;EP - Kill unsubscripted work globals.
; ^ACHSDATA( - DHR (REC #2)
; ^ACHSTXPT( - Holds Patients to be exported. (Rec # 3)
; ^ACHSTXVN( - Holds Vendor IENs to be exported. (Rec # 4)
; ^ACHSTXOB( - Holds Document/Transaction to be exported. (Rec # 5)
; ^ACHSTXPD( - Holds Paid Doc info to be exported to Area Office. (Rec # 6)
; ^ACHSTXPG( - Holds Docs with statistical info to be exported to Data Center. (Rec # 7)
DTAO() ;EP - Prompt for date sent to Area Office.
L2 ;
L3 ;
ERROR ;EP.

External References

Name Field # of Occurrence
^%ZIS L3+8
HOME^%ZIS L3+12
^%ZISC L3+12, ERROR+4
$$LIST^%ZISH EXFILE+5
$$ASF^ACHS EXFILE+2
$$EX^ACHS EXFILE+5
$$JDT^ACHS EXFILE+4
$$LOC^ACHS L2+1, L2+2
$$LOCK^ACHS ACHSTXP+5
$$OS^ACHS EXFILE+3
HELP^ACHS L2+6
SLV^ACHSFU L3+10
JOBABEND^ACHSTX8 ERROR+5, END+2
KILL^ACHSTX8 ACHSTXP+5
^ACHSTXP2 L3+14
^ACHSVAR ACHSTXP+6
$$DIR^XBDIR ACHSTXP+5, L2+2, L2+4, DTAO+1
$$HTFM^XLFDT DTAO+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!
  • Line Location: ACHSTXP+5
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$DIR^XBDIR("E","CHS DATA ENTRY IN PROGRESS -- JOB CANCELLED - <RETURN> TO CONTINUE")
  • Line Location: ACHSTXP+5
Function Call: WRITE
  • Prompt: !!,"Export data from October 1, 2000 thru September 30,2004 will be made for ",!,$$LOC^ACHS
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !!,*7
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: *7,!!,"Area Contracting Number is not 3 Upper-case Alpha-Numerics",!,"JOB CANCELLED"
  • Line Location: L2+15
Function Call: WRITE
  • Prompt: !
  • Line Location: L3+7
Function Call: WRITE
  • Prompt: !,"Resetting ",ACHS,"(0)"
  • Line Location: KILLGLBS+10
Function Call: WRITE
  • Prompt: !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(ACHS,U,2)))
  • Line Location: KILLGLBS+12
Function Call: WRITE
  • Prompt: !!,*7,*7,*7,"AN ERROR HAS OCCURRED DURING EXPORT PLEASE NOTIFY AREA OFFICE "
  • Line Location: ERROR+3
Function Call: WRITE
  • Prompt: !!?10,"JOB TERMINATED BY OPERATOR"
  • Line Location: END+1
Routine Call
  • %ZIS
  • Line Location:
    • L3+12
Routine Call
  • %ZIS
  • Line Location:
    • L3+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] L2+14

Label References

Name Line Occurrences
$$DTAO L3+1
$$EXFILE L2+4
END L2+2, L2+3, L2+4, L3+2, L3+9
ERROR L2+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS L3+4!, L3+6*
%ZIS("A" L3+6*
ACHS KILLGLBS+8~, KILLGLBS+9*, KILLGLBS+10, KILLGLBS+14, KILLGLBS+15
>> ACHSARCO L2+14*, L2+15
>> ACHSCRTN L2+17*
ACHSG KILLGLBS+15*, KILLGLBS+17!
>> ACHSIO L3+11*
>> ACHSION L3+11*
>> ACHSMDAT L3+1*
>> ACHSPCC ERROR+1
ACHSPPC L3+4!, ERROR+1
ACHSPPO L3+4!
>> ACHSRCT ACHSTXP+7*
>> ACHSREEX ACHSTXP+7*
DT DTAO+1, EXFILE+4
>> DTOUT L2+3, L3+2
>> DUOUT L2+3, L3+2
DUZ(2 L2+14, EXFILE+2
IO L3+11
IO("S" L3+10
IO(0 L2+15, L2+16, ERROR+2
ION L3+11
>> POP L3+9
U L2+14
X EXFILE+1~, EXFILE+5
X( EXFILE+7
Y EXFILE+1~, EXFILE+2*, EXFILE+3*, EXFILE+4*, EXFILE+5, EXFILE+7
Z EXFILE+1~, EXFILE+6*, EXFILE+7*, EXFILE+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All