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 |  All
Print Page as PDF
Routine: AMQQRMA

Package: PCC Medical Query

Routine: AMQQRMA


Information

AMQQRMA ; IHS/CMI/THL - RMAN AGE CATEGORY REPORT ;

Source Information

Source file <AMQQRMA.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  EN^XQH  
PCC Medical Query 3 EXIT2^AMQQKILL  PRINT^AMQQRMA1  PRINT^AMQQSEC  
VA Fileman 3 ^%DT  YN^DICN  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PCC Medical Query 2 AMQQCMPL  AMQQRMAN  

Entry Points

Name Comments DBIA/ICR reference
CURR
AGIN
AGETASK
AGE
DEV
CLIN ;
NEWDATE ; Get new date
HELP
SET
VARQ ;
BUCKET ; ENTRY POINT FROM AMQQCMPL
V1
V2
ASK
CLOSE
NEWAGE
GC
VAR
AGERUN
RUN
CEXIT
LIST
NEXIT
EXIT

External References

Name Field # of Occurrence
^%DT NEWDATE+3
^%ZIS DEV+3
^%ZISC BUCKET+8, AGETASK+6
^%ZTLOAD AGETASK+5
EXIT2^AMQQKILL AGERUN+4
PRINT^AMQQRMA1 AGERUN+2
PRINT^AMQQSEC DEV+6
YN^DICN ASK+2, AGIN+2
^DIR VARQ+17
EN^XQH VARQ+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CURR+0
Function Call: WRITE
  • Prompt: !!,"CURRENT SET UP"
  • Line Location: CURR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CURR+2
Function Call: WRITE
  • Prompt: !,"Do you want to define a new set of age groups"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Answering yes will allow you to define a new set of age groups.",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"Do you want to have ages calculated as of a date other than today's date"
  • Line Location: AGIN+0
Function Call: WRITE
  • Prompt: !,"QMAN will detemine the ages of patients based on the date you enter subsequent",!,"to answering yes to this question.",!
  • Line Location: AGIN+3
Function Call: WRITE
  • Prompt: !,"If you exceed 8 groups, the display will wrap...",!!
  • Line Location: NEWAGE+2
Function Call: WRITE
  • Prompt: !,"Enter the starting age of the ",$S(%="":"first",1:"next")," age group: "
  • Line Location: AGE+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: AGE+1
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: AGE+6
Function Call: WRITE
  • Prompt: !,"Enter the highest age for the last group: "
  • Line Location: GC+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: GC+1
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: GC+7
Function Call: WRITE
  • Prompt: !,"Enter an age between 0 and 199. Ages must be entered in ascending order.",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"At the present time, no set of age groups is on file",!!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,"AGE GROUPS =>",!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: $P(X,":",2)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!,"Subtotaling Options:"
  • Line Location: VARQ+2
Function Call: WRITE
  • Prompt: !!,"You now have the option of choosing an attribute such as Sex, Community,"
  • Line Location: VARQ+3
Function Call: WRITE
  • Prompt: !,"or Tribe that will allow subtotaling (i.e. cross-tabulation) of your"
  • Line Location: VARQ+4
Function Call: WRITE
  • Prompt: !,"Age Distribution Report. You may only select one attribute to subtotal by,"
  • Line Location: VARQ+5
Function Call: WRITE
  • Prompt: !,"and that attribute must have been included in your search logic in order to"
  • Line Location: VARQ+6
Function Call: WRITE
  • Prompt: !,"be one of your choices below. If you have not used any demographic attributes"
  • Line Location: VARQ+7
Function Call: WRITE
  • Prompt: !,"in your search, you will have no subtotaling option and will see only the"
  • Line Location: VARQ+8
Function Call: WRITE
  • Prompt: !,"choices 'None, Help, and Exit.' When you have only those choices, choose None"
  • Line Location: VARQ+9
Function Call: WRITE
  • Prompt: !,"and you will get your Age Distribution Report with no subtotaling.",!
  • Line Location: VARQ+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: " <= Not a secure device!!",*7
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !!,"You can not queue a job to a slave printer..Try again",!!,*7
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
  • Line Location: AGETASK+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AGETASK+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AGERUN+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AGERUN+3
Routine Call
  • DIR
  • Line Location:
    • VARQ+17
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMQQ(1 - [#9009071] V1+5
^AMQQ(5 - [#9009075] CLIN+2, CLIN+5, CLIN+6
^AMQQ(8 - [#9009078] CURR+1, AGIN+7, GC+6*, LIST, LIST+2
^UTILITY("AMQQ" VAR!, VAR+1, VAR+2, VAR+3, VARQ+21, VARQ+24!, CLIN+2, V1, V1+8, V2+2*

Label References

Name Line Occurrences
AGE NEWAGE+3, AGE+4, AGE+7
AGERUN BUCKET+8
AGETASK BUCKET+7
AGIN AGIN+3
ASK ASK+4
CEXIT ASK+3, AGIN+4
CLIN VARQ+1
CLOSE NEWAGE+4
CURR RUN
DEV BUCKET+3, DEV+6, DEV+7
EXIT RUN+1, NEWAGE+3
GC GC+3, GC+8
HELP AGE+4, GC+3
LIST CURR+3, NEWAGE+6
NEWAGE ASK+5
NEWDATE AGIN+5, NEWDATE+6
NEXIT NEWAGE+5
SET AGE+5
V1 VAR+1
V2 VAR+3
VAR BUCKET+1, VARQ+23
VARQ VAR+2

Naked Globals

Name Field # of Occurrence
^( VAR+1, VAR+3, CLIN+2, V1, V1+8*
^(3 CURR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+1*, ASK+4, AGIN+1*, AGIN+3, NEWAGE*, NEXIT!, AGE, SET+1*, SET+2*, CLOSE
, GC+6*, LIST+2*, LIST+3, VAR+2*, VAR+3*, VARQ+12, VARQ+24!, CLIN+5, CLIN+8*, CLIN+12
, CLIN+13*, CLIN+14*, V1*, V1+1, V2*, V2+1*, AGETASK+4*
>> %DT NEWDATE+1*
>> %DT("A" NEWDATE+2*
%Y EXIT!, ASK+3, ASK+5, AGIN+4, AGIN+5
>> %ZIS DEV+1*
>> %ZIS("B" DEV+2*
A EXIT!, NEWAGE+1*, NEXIT!, AGE+5, SET*, GC+6, VARQ+24!, V1+2*, V1+6, V1+8
AMQQBUCC VARQ+11!, CLIN+4*, CLIN+7*, CLIN+9
AMQQBUCV VARQ+11!, CLIN+5*, CLIN+6
AMQQCNTP VARQ+11!, CLIN+11*, CLIN+12*
AMQQDFN CLIN+1~, CLIN+2*
>> AMQQDTE AGIN+6*, NEWDATE+5*
AMQQI CLIN+1~, CLIN+2*
>> AMQQIOP DEV+4*
AMQQNCHK CLIN+1~, CLIN+2*, CLIN+3
>> AMQQOPT("SPEC" VARQ+19*
AMQQPCE VARQ+19!, CLIN+5*, CLIN+8, CLIN+9, CLIN+12*
AMQQPCE( VARQ+20, CLIN+12*
>> AMQQQUIT RUN+1, ASK+3*, AGIN+4*, NEWAGE+3, NEWAGE+5, AGE+2*, GC+2*, BUCKET+2, BUCKET+4, BUCKET+5*
, VARQ+19*, DEV+5*
>> AMQQRERF AGIN+4*
>> AMQQRMA BUCKET+5, VARQ+21*, VARQ+22*
>> AMQQRMB CURR+1*, GC+6*, BUCKET+5
>> AMQQRMFL BUCKET+6*
>> AMQQTMP CLIN+10*, CLIN+12*, CLIN+13, CLIN+14
AMQQTMPM VARQ+11!
>> AMQV("OPTION" RUN+2*
>> AMQV(0 AGERUN+1
B EXIT!, VARQ+24!, V1+3*, V1+6, V1+7
C EXIT!, VAR+3*, VARQ+24!, V1+4*, V1+5*, V1+8, V2+2
DIR VARQ+18!
DIR("?" VARQ+15*
DIR("??" VARQ+16*
DIR("A" VARQ+14*
DIR("B" VARQ+13*
DIR(0 VARQ+12*
DIRUT VARQ+19!
DT AGIN+6
DTIME AGE+1, GC+1
DTOUT CEXIT!, VARQ+19!
DUOUT CEXIT!, VARQ+19!
DUZ(2 CURR+1, AGIN+7, GC+6, LIST, LIST+2
I EXIT!, NEXIT!, LIST+3*, VAR+3*, V2+1, V2+2, AGETASK+4*
IO BUCKET+8, DEV+4, DEV+7
IO("Q" BUCKET+7, DEV+7
IO(0 DEV+7
IOF CURR, AGETASK+9, AGERUN, AGERUN+3
ION AGETASK+1
IOST AGERUN, AGERUN+3
L NEXIT!
N EXIT!, NEWAGE+3*
POP DEV+5!
U ASK+3, AGIN+4, NEWDATE+4, AGE+1, AGE+2, GC+1, GC+2, CLIN+2, CLIN+6, V1+2
, V1+3
X EXIT!, NEWDATE+4, NEWDATE+6, NEWAGE+3, NEXIT!, AGE+1*, AGE+2, AGE+3, AGE+4, AGE+5
, SET, SET+1, SET+2, GC+1*, GC+2, GC+3, GC+4*, GC+5*, GC+6, LIST+3*
, VAR+1*, VARQ+24!, V1+8
>> XQH VARQ+23*
Y EXIT!, NEWDATE+5, NEWDATE+6, NEXIT!, VAR+1*, VARQ+19, VARQ+20*, VARQ+21, VARQ+22, VARQ+23
, VARQ+24!, V1*, V1+2, V1+3, V1+4
Z EXIT!, NEXIT!, VAR+3*, VARQ+24!, V2+1
>> ZTDESC AGETASK+3*
>> ZTDTH AGETASK+2*
>> ZTIO AGETASK+1*
>> ZTQUEUED AGERUN+4
>> ZTREQ AGERUN+4*
>> ZTRTN AGETASK*
>> ZTSAVE( AGETASK+4*
>> ZTSK AGETASK+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All