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

Package: Contract Health Management Information System

Routine: ACHSDSTE


Information

ACHSDSTE ; IHS/OIT/FCJ - DOCUMENT STATUS REPORT FOR EOBR DATA ; [ 01/16/2003 8:54 AM ]

Source Information

Source file <ACHSDSTE.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 4 ($$DATE,$$EBB,ERPT)^ACHS  (BRPT,READ)^ACHSFU  FC^ACHSUF  ^ACHSVAR  
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS VA Utilities 1 $$C^XBFUNC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDOCSTATUSREPEOBR  

Entry Points

Name Comments DBIA/ICR reference
A ; Main loop.
END ; Print totals, ask RTRN, write IOF.
HDR ; Print report header.
TITLE ;;DOCUMENT STATUS
FY ;
K ;
DEV ;
BDT ;
KILL ; Do ERPT, kill vars, quit.
EDT ;
PRINT ;EP - From TaskMan.
CHECK ;Check for Quit

External References

Name Field # of Occurrence
COMMA^%DTC A+24, END+3
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC DEV+6, K+2
^%ZTLOAD DEV+9
$$DATE^ACHS BDT+1, EDT+1
$$EBB^ACHS EDT+3
ERPT^ACHS KILL+2
BRPT^ACHSFU PRINT+6
READ^ACHSFU FY+1
FC^ACHSUF PRINT+2
^ACHSVAR ACHSDSTE+8
^DIR CHECK+6
$$C^XBFUNC PRINT+5, HDR+2
$$FMTE^XLFDT PRINT+5
$$REPEAT^XLFSTR END+1, HDR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Enter 4 DIGIT Fiscal Year"
  • Line Location: FY+1
Function Call: WRITE
  • Prompt: !!!,"ONLY DOCUMENTS THAT HAVE HAD PAYMENTS WILL BE LISTED (P/IP/ZA)"
  • Line Location: FY+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: FY+5
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "TOTAL PAID DOCUMENTS:",$J(ACHSTOTP,11),?40,"TOTAL DOLLARS PAID: ",X,!
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+5
Function Call: WRITE
  • Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("*** CONTRACT HEALTH MANAGEMENT SYSTEM ***",80),!!,ACHSLOC,!?25,"DOCUMENT STATUS REPORT"_" - "_"FY-"_ACHSFY
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,ACHSTIME,!,ACHST1,!,ACHST2,!!,"Patient Name",?25,"Provider of Service",?52,"Trans Date",?64,"Status",?73,"Amount",!,"Document Number",?25,"Type",?52,"EOBR Date"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79),!
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIR
  • Line Location:
    • CHECK+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] A+1, A+2, A+4, A+5, A+6, A+7, A+11, A+12
^AUTTVNDR - [#9999999.11] A+8, A+9
^DPT - [#2] A+13

Label References

Name Line Occurrences
BDT EDT+2
CHECK A+29, END+4
DEV DEV+6, DEV+10
EDT EDT+3
FY FY+1
HDR PRINT+7, A+29
K BDT+2, EDT+2, DEV+3
KILL PRINT+3
PRINT DEV+4
TITLE BDT+1, EDT+1

Naked Globals

Name Field # of Occurrence
^(0 A+7, A+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
ACHS DEV+8*, K+1!
ACHSBDT BDT+1*, BDT+2, EDT+3, K+1!, PRINT+5, PRINT+8*, A+1*, A+2, A+4, A+11
ACHSBLNK A+7*, A+14, KILL+3!
>> ACHSBM A+29
ACHSCNX PRINT+4*, KILL+3!
ACHSCNX("$" PRINT+4*
ACHSDOC A+10*, A+26, KILL+3!
ACHSDOC1 A+7*, A+10, KILL+3!
ACHSDOC2 A+7*, A+10, KILL+3!
ACHSDOS KILL+3!
ACHSEDT EDT+1*, EDT+2, EDT+3, K+1!, PRINT+5, A+1
ACHSEOBR A+19*, A+26, KILL+3!
>> ACHSERR PRINT+3
ACHSFC A+10, KILL+1!
ACHSFY FY+2*, K+1!, HDR+2
ACHSIO TITLE+1*, K+1!
>> ACHSLOC HDR+2
ACHSNAME A+13*, A+14*, A+20, KILL+3!
ACHSOPEN PRINT+4*, KILL+3!
ACHSOPEN("$" PRINT+4*
>> ACHSPG HDR+1*, HDR+2
ACHSPMTP A+18*, KILL+3!
ACHSQIO DEV+7*, K+1!
ACHSRPT K+1!
ACHSSTS KILL+3!
>> ACHST1 PRINT+5*, HDR+3
>> ACHST2 PRINT+5*, HDR+3
>> ACHSTIME HDR+3
ACHSTOS A+7*, A+26, KILL+3!
ACHSTOTP PRINT+4*, A+27*, END+3, KILL+3!
ACHSTOTP("$" PRINT+4*, A+27*, END+3
ACHSTXAM A+17*, A+23, A+27, KILL+3!
ACHSTXDT A+15*, A+20, KILL+3!
ACHSTXN A+12*, A+13, A+15, A+16, A+17, A+18, A+19, KILL+3!
ACHSTXTP A+16*, A+22, KILL+3!
ACHSTYPE A+2*, A+3, A+4, A+11, KILL+3!
>> ACHSUSR HDR+2
ACHSVNDR A+9*, A+20, KILL+3!
ACHSVPTR A+7*, A+8, A+9, KILL+3!
DA A+4*, A+5, A+6, A+7, A+11, A+12, KILL+4!
DFN A+13*, KILL+4!
DIR CHECK+4!
DIR(0 CHECK+5*
>> DTOUT BDT+2, EDT+2, FY+1, CHECK+7
>> DUOUT BDT+2, EDT+2, FY+1, CHECK+7
DUZ(2 A+1, A+2, A+4, A+5, A+6, A+7, A+11, A+12
FY FY+2*, K+1!, A+6, KILL+4!
IO TITLE+1
IO("Q" DEV+4, DEV+5!
IO("S" DEV+6, CHECK+1
IOF END+5, HDR+2
IOM DEV+7
ION DEV+7
IOSL DEV+7
IOST DEV+6, DEV+7
>> POP DEV+3
QFLG A+1, A+2, A+4, A+11, A+29, END+4, CHECK+3!, CHECK+7*
TXN A+11*, A+12, KILL+4!
U A+6, A+7, A+9, A+13, A+15, A+16, A+17, A+18, A+19
>> X A+23*, A+25, END+3*
X2 TITLE+2!, END+2*, KILL+4!
X3 TITLE+2!, PRINT+8*, END+2*, KILL+4!
>> Y FY+1, FY+2
>> ZTDESC DEV+7*
ZTIO DEV+7*, K+1!
>> ZTQUEUED KILL+1, CHECK+2
>> ZTRTN DEV+7*
>> ZTSAVE( DEV+8*
ZTSK DEV+10, K+1!, PRINT+3!

Marked Items

Name Field # of Occurrence
$T(TITLE BDT+1, EDT+1
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