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

Package: Quality Assurance

Routine: AQACQR


Information

AQACQR ;IHS/ASU/RPL;QUARTERLY REPORT PRINTOUTS FOR CHS INPATIENT REGISTER; [ 06/20/88 11:48 AM ] ; 11/8/89 8:36 AM

Source Information

Source file <AQACQR.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZTLOAD  
Quality Assurance 2 (R10,R2,R3,R4,R5,R6,R7,R8,R9)^AQACQR1  (R11,R12,R13,R14,R15,R16,R17)^AQACQR2  
VA Fileman 2 ^%DT  EN1^DIP  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Quality Assurance 2 AQACQR1  AQACQR2  

Entry Points

Name Comments DBIA/ICR reference
DEV
SINGLE
EN12 ;
EN13 ;
EN10 ;
EN11 ;
EN16 ;
EN17 ;
EN14 ;
EN15 ;
PRT
EN2 ;
EN3 ;
EN4 ;
EN5 ;
EN6 ;
PRNOW
EN8 ;
QUE
START1
EN7 ;
PRQUE ;Enter from TaskManager
START ;
RSTART
EN9 ;
QUIT
AQASD
AQAFD
ENT10
ENT13
ENT12
ENT15
ENT14
ENT17
ENT16
ENT11
ENT3
ENT2
ENT5
ENT4
ENT7
ENT6
ENT9
ENT8

External References

Name Field # of Occurrence
^%DT AQASD, AQAFD
^%ZIS DEV, PRT+1
^%ZTLOAD QUE+1
R10^AQACQR1 ENT10
R2^AQACQR1 ENT2
R3^AQACQR1 ENT3
R4^AQACQR1 ENT4
R5^AQACQR1 ENT5
R6^AQACQR1 ENT6
R7^AQACQR1 ENT7
R8^AQACQR1 ENT8
R9^AQACQR1 ENT9
R11^AQACQR2 ENT11
R12^AQACQR2 ENT12
R13^AQACQR2 ENT13
R14^AQACQR2 ENT14
R15^AQACQR2 ENT15
R16^AQACQR2 ENT16
R17^AQACQR2 ENT17
EN1^DIP PRT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Quarterly Report Printouts for CHS Inpatient Register",!!
  • Line Location: AQACQR+2
Function Call: READ
  • Prompt: "Start with report number (2-17)? "
  • Timeout: $S($D(DTIME)#2:DTIME,1:3600)
  • Variable: AQACNBR
  • Line Location: RSTART+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the report to start printing with, from 2 through 17.",!,"All reports will print in order, starting with the one you choose.",!,"Enter ""^"" to quit.",!!
  • Line Location: RSTART+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RSTART+2
Function Call: WRITE
  • Prompt: !!,"Quarterly Report Printouts for CHS Inpatient Register",!!
  • Line Location: START1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • PRT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" PRT+1
^%ZTSK - [#14.4] PRQUE+2, QUIT!
^DD("DD" AQASD, AQAFD

Label References

Name Line Occurrences
@( PRNOW
PRNOW RSTART+3, PRQUE+1, SINGLE
QUE RSTART+3, SINGLE
QUIT RSTART, RSTART+3, PRNOW, QUE+1, SINGLE
RSTART RSTART+1
SINGLE EN2+1, EN3+1, EN4+1, EN5+1, EN6+1, EN7+1, EN8+1, EN9+1, EN10+1, EN11+1
, EN12+1, EN13+1, EN14+1, EN15+1, EN16+1, EN17+1
START RSTART+3
START1 SINGLE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT AQASD*, AQAFD*, QUIT!
%DT("A" AQASD*, AQAFD*
>> %IS DEV*
>> %IS("B" DEV*
AQACIOP RSTART+3, PRQUE+1, DEV+1*, PRT, PRT+1, SINGLE, QUIT!
AQACNBR RSTART*, RSTART+1, RSTART+2, QUIT!
AQAFD AQAFD*, QUIT!
AQAFD1 AQAFD*, QUIT!
AQAG PRQUE+2*, QUE*, QUIT!
AQASD AQASD*, QUIT!
AQASD1 AQASD*, QUIT!
AQASNO RSTART+2*, PRNOW, EN2+1*, EN3+1*, EN4+1*, EN5+1*, EN6+1*, EN7+1*, EN8+1*, EN9+1*
, EN10+1*, EN11+1*, EN12+1*, EN13+1*, EN14+1*, EN15+1*, EN16+1*, EN17+1*, QUIT!
AQAZTSK PRQUE+1*, QUIT!
>> DOUT PRT*
DTIME RSTART
DTOUT QUIT!
IO DEV, DEV+1
IO("Q" RSTART+3, DEV+2, QUE!, SINGLE
IOF PRT+1
>> IOP PRT*, PRT+1*
IOST PRT+1
>> PG PRT*
>> POP DEV
>> Y AQASD, AQAFD
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE*
ZTSK PRQUE+1, PRQUE+2, QUE+1, QUIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All