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

Package: Contract Health Management Information System

Routine: ACHSTX


Information

ACHSTX ; IHS/ITSC/PMF - EXPORT DATA (1/9) ;JUL 10, 2008

Source Information

Source file <ACHSTX.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Contract Health Management Information System 9 ($$ASF,$$EX,$$JDT,$$LOC,$$LOCK,$$OS,$$PARM)^ACHS  SLV^ACHSFU  ^ACHSTX2  (,HELP)^ACHSTX7X  (JOBABEND,KILL,TXFEF)^ACHSTX8  ^ACHSTXAR  ^ACHSTXF  ^ACHSTXTT  
^ACHSVAR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  $$LIST^%ZISH  $$HTFM^XLFDT  
IHS VA Utilities 1 $$DIR^XBDIR  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Contract Health Management Information System 10 ACHSMX - CHS  ACHSTX  ACHSTX1R  ACHSTX2  ACHSTXA1  ACHSTXAR  ACHSTXF  ACHSTXF1  
ACHSTXP2  ACHSTXTT  

Entry Points

Name Comments DBIA/ICR reference
EXFILE() ; Does export file exist?
END ;
FILEHELP ;EP - ?? help text, from ACHS via DIR.
KILLGLBS ;EP - Kill unsubscripted work globals.
; ^ACHSDATA( - DHR (REC #2) All record types are set in this global to be sent to Area
; ^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)
STATCHK() ; Check 638 stat data prior to export.
DTAO() ;EP - Prompt for date sent to Area Office.
L2 ;
L3 ;
ERROR ;EP.

External References

Name Field # of Occurrence
^%ZIS L3+10
HOME^%ZIS L3+14
^%ZISC L3+14, 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 ACHSTX+16
$$OS^ACHS EXFILE+3
$$PARM^ACHS ACHSTX+13
SLV^ACHSFU L3+12
^ACHSTX2 L3+23
^ACHSTX7X STATCHK+2
HELP^ACHSTX7X STATCHK+1
JOBABEND^ACHSTX8 ERROR+5, END+2
KILL^ACHSTX8 ACHSTX+16, ACHSTX+18
TXFEF^ACHSTX8 L2+14
^ACHSTXAR L3+21
^ACHSTXF L3+22
^ACHSTXTT L2+13
^ACHSVAR ACHSTX+23
^DIC L2+11
$$DIR^XBDIR ACHSTX+16, ACHSTX+18, L2+2, DTAO+1, STATCHK+2
$$HTFM^XLFDT DTAO+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!
  • Line Location: ACHSTX+16
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$DIR^XBDIR("E","CHS DATA ENTRY IN PROGRESS -- JOB CANCELLED - <RETURN> TO CONTINUE")
  • Line Location: ACHSTX+16
Function Call: WRITE
  • Prompt: *7,!!
  • Line Location: ACHSTX+18
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$DIR^XBDIR("E","CHS DOCUMENTS REQUIRE E-SIG -- JOB CANCELLED - <RETURN> TO CONTINUE")
  • Line Location: ACHSTX+18
Function Call: WRITE
  • Prompt: !!?5,"A RE-EXPORT HAS ALREADY BEEN RAN TODAY, YOU WILL WRITE OVER",!?5,"THE FILE IF YOU CONTINUE."
  • Line Location: ACHSTX+20
Function Call: WRITE
  • Prompt: !!,"Export data will be made for ",$$LOC^ACHS
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !!,*7
  • Line Location: L2+6
Function Call: WRITE
  • Prompt: *7,!!,"MISSING AREA CONTRACTING NUMBER - JOB CANCELLED"
  • Line Location: L2+16
Function Call: WRITE
  • Prompt: *7,!!,"Area Contracting Number is not 3 Upper-case Alpha-Numerics",!,"JOB CANCELLED"
  • Line Location: L2+17
Function Call: WRITE
  • Prompt: !
  • Line Location: L3+9
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+14
Routine Call
  • DIC
  • Line Location:
    • L2+11
Routine Call
  • %ZIS
  • Line Location:
    • L3+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] L2+15, L3+17
^ACHSF("EQ" ACHSTX+18
^ACHSTXST("C" L2+14

Label References

Name Line Occurrences
$$DTAO L3+1
$$STATCHK ACHSTX+13
END L2+2, L2+3, L3+2, L3+11
ERROR L2+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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