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

Package: Contract Health Management Information System

Routine: ACHSC6Q


Information

ACHSC6Q ; IHS/ITSC/PMF - QUE CHS EXPENDITURE REPORT ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSC6Q.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Contract Health Management Information System 5 ($$DATE,$$PB)^ACHS  ^ACHSC6C  ^ACHSC6D  READ^ACHSFU  ^ACHSVAR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS VA Utilities 3 $$DIR^XBDIR  VIEWR^XBLM  EN^XBVK  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSINPEXPREP  

Entry Points

Name Comments DBIA/ICR reference
K ; Kill vars, close device, quit.
DEV ; Select device.
BDT ; Enter beginning date.
EDT ; Enter ending date.
REPORT ; Select pt/comm/age.
TYPE ; Select in/dent./out/all.

External References

Name Field # of Occurrence
^%DT BDT+4
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC DEV+9, K+3
^%ZTLOAD DEV+12
$$DATE^ACHS BDT+1
$$PB^ACHS DEV+1
^ACHSC6C DEV+7
^ACHSC6D DEV+7
READ^ACHSFU REPORT+2, TYPE+3
^ACHSVAR K+1
$$DIR^XBDIR EDT+1
VIEWR^XBLM DEV+3
EN^XBVK DEV+3, K+1
$$FMTE^XLFDT BDT+5, DEV+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Print Report by: ",!?3,"1. By Patient",!?3,"2. By Community of Residence",!?3,"3. By Age Grouping",!?3,"4. Totals Only",!?3,"5. By Tribe",!!?5,"Enter 1 to 5 1// "
  • Line Location: REPORT+1
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !!,"Want Expenditure Report by ",$S(ACHSRPT=1:"Patient",ACHSRPT=2:"Community of Residence",1:"Age Grouping")," for: ",!!?5,"1. Inpatient Services",!?5,"2. Dental Services",!?5,"3. Outpatient Serices",!?5,"4. All Services",!
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !,"Enter 1 thru 4 ALL// "
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

Label References

Name Line Occurrences
BDT EDT+2
DEV TYPE+5, DEV+9, DEV+13
EDT REPORT+3
K BDT+2, EDT+2, REPORT+3, TYPE+4, DEV+2, DEV+3, DEV+6
REPORT REPORT+3, REPORT+5, TYPE+4
TYPE REPORT+4, TYPE+4, TYPE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+1*, DEV+2, DEV+3, DEV+11*
>> %DT BDT+3*
>> %ZIS DEV+4*
>> ACHSBDT BDT+1*, BDT+2, BDT+4, DEV+10
>> ACHSEDT EDT+1*, DEV+10
>> ACHSEMON BDT+5*, EDT+1
>> ACHSQIO DEV+10*
>> ACHSRPT REPORT+4*, REPORT+6*, TYPE+1, DEV+3, DEV+7, DEV+10
>> ACHSRPT1 TYPE+5*, TYPE+7*
>> DTOUT BDT+2, EDT+2, REPORT+3, TYPE+4, DEV+2
>> DUOUT BDT+2, EDT+2, REPORT+3, TYPE+4, DEV+2
IO("Q" DEV+7, DEV+8!
IO("S" DEV+9
IOM DEV+10
ION DEV+10
IOSL DEV+10
IOST DEV+9, DEV+10
>> POP DEV+6
U DEV+2
>> X BDT+4*, BDT+5
>> Y BDT+4*, REPORT+3, REPORT+4, REPORT+5, REPORT+6, TYPE+4, TYPE+5, TYPE+6, TYPE+7
>> ZTDESC DEV+10*
ZTIO DEV+10*, K+2!
>> ZTRTN DEV+10*
>> ZTSAVE( DEV+11*
ZTSK DEV+13, K+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All