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

Package: PCC Medical Query

Routine: AMQQEM21


Information

AMQQEM21 ; IHS/CMI/THL - PARSES DATE FORMAT AND GENERATES OUTPUT CODE ;

Source Information

Source file <AMQQEM21.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PCC Medical Query 2 AMQQEM2  AMQQEM3  

Entry Points

Name Comments DBIA/ICR reference
CODE
RUN
SUB
CONFIRM ;
PATIENT ; ENTRY POINT FROM AMQQEM2
TWO
PARSE
ASK ; GET DATE FORMAT
EXIT
EVAL
ERROR
VAR
NEW

External References

Name Field # of Occurrence
^DIR ASK+6, CONFIRM+13, PATIENT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry, I can't interpret the date you just entered...Try again!",!,"(Remember, JUNE 3, 1992 must be used as the sample. No other date will work.)",!!
  • Line Location: ERROR+0
Function Call: WRITE
  • Prompt: !,"I need to know what date format to use. You can let me know by entering",!,"the date JUNE 3, 1992 as your example (e.g., 6/3/92 or 3JUN92 or 6.3.92 etc.)",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!!,"Let me confirm the format with some examples =>",!
  • Line Location: CONFIRM+1
Function Call: WRITE
  • Prompt: !,"APRIL 2, 1958 would be listed as "
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: X
  • Line Location: CONFIRM+5
Function Call: WRITE
  • Prompt: !,"OCTOBER 23, 1985 would be listed as "
  • Line Location: CONFIRM+6
Function Call: WRITE
  • Prompt: X,!
  • Line Location: CONFIRM+9
Function Call: WRITE
  • Prompt: !!,"Show me, by example, how you want to format each patient's name =>"
  • Line Location: PATIENT+2
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME field contains a comma. The comma is also your field delimiter!"
  • Line Location: SUB+0
Function Call: WRITE
  • Prompt: !,"You should either put the name in quotes or substitute another character",!
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: "to prevent problems.",!!
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !,"For example, if you substitute an underscore (_) for the comma, the entry"
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: !,"""DOE,JOHN QUINCY"" will be saved as ""DOE_JOHN QUINCY"".",!!
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: "DO NOT use the 'up arrow' (^) as the substitute character!!!",!!
  • Line Location: SUB+5
Routine Call
  • DIR
  • Line Location:
    • ASK+6
    • CONFIRM+13
    • PATIENT+7

Label References

Name Line Occurrences
ASK RUN
CONFIRM RUN+4
ERROR EVAL+2
EXIT RUN+1, RUN+3, RUN+5, RUN+6, ASK+10
PARSE RUN+2
SUB PATIENT+16
TWO PATIENT+13
VAR RUN+3, RUN+6

Naked Globals

Name Field # of Occurrence
^(0 TWO*, TWO+1*, TWO+3*
^(1 TWO+1*, TWO+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEW~, EXIT!, PARSE, ASK+11*, SUB+6*
A NEW~, EXIT!, EVAL*, EVAL+3*, EVAL+5*, CODE+1
>> AMQQCCLS PATIENT+15, PATIENT+17
>> AMQQEM("DATE FORMAT" , AMQQEM21+3, TRANS" , AMQQEM21+3*, AMQQEM21+4, RUN+7*
>> AMQQEM("DEL" PATIENT+16
>> AMQQEM("FIX" TWO, TWO+1, TWO+3
>> AMQQEM("HLEN" PATIENT+14, TWO, TWO+1, TWO+3
>> AMQQEM("MLEN" TWO, TWO+1, TWO+3
>> AMQQEMFS PATIENT+17*, TWO+1*, TWO+3*
>> AMQQEMN PATIENT+14, PATIENT+15
AMQQEMNO VAR+2!, RUN+1, RUN+3, RUN+6, EVAL+2, EVAL+6*, ASK+9*, CONFIRM+16*, CONFIRM+18*, PATIENT+10*
>> AMQQQUIT RUN+1, RUN+5, ASK+10*, CONFIRM+17*, PATIENT+11*, PATIENT+16
C NEW~, RUN+7, EXIT!, CODE*, CODE+1*, CODE+2*, CODE+12*, CONFIRM+4, CONFIRM+8, TWO+1*
, TWO+2*, TWO+3
DIR ASK+7!, CONFIRM+14!, PATIENT+8!
DIR("?" ASK+5*, PATIENT+5*
DIR("A" ASK+4*, CONFIRM+11*, PATIENT+4*
DIR("B" ASK+3*, CONFIRM+12*, PATIENT+6*
DIR(0 ASK+2*, CONFIRM+10*, PATIENT+3*
DIROUT ASK+10!, CONFIRM+19!, PATIENT+12!
DIRUT ASK+8*, ASK+10!, CONFIRM+15*, CONFIRM+19!, PATIENT+9*, PATIENT+12!
DTIME SUB+6
DTOUT ASK+10!, CONFIRM+19!, PATIENT+12!
DUOUT ASK+8, ASK+10!, CONFIRM+15, CONFIRM+19!, PATIENT+9, PATIENT+12!
>> G PATIENT+14, PATIENT+15, TWO, TWO+1, TWO+3
I NEW~, EXIT!, PARSE*, EVAL+5*, CODE+1*
J NEW~, VAR*, EXIT!, PARSE+2*, PARSE+3, EVAL+2*
P NEW~, EXIT!
P( PARSE+2*, PARSE+3*, EVAL+2
T NEW~, VAR+1*, EXIT!, EVAL+3, EVAL+5, CODE+1
U EVAL+5, ASK+9, CONFIRM+16, PATIENT+10, PATIENT+17, TWO, TWO+1, TWO+3
X NEW~, VAR*, EXIT!, PARSE+2*, EVAL+2*, EVAL+3, EVAL+5, CODE+1*, CODE+3*, CODE+4*
, CODE+5*, CODE+6*, CODE+7*, CODE+8*, CODE+9*, CODE+10*, CODE+11*, CONFIRM+3*, CONFIRM+5, CONFIRM+7*
, CONFIRM+9, CONFIRM+16, CONFIRM+17, PATIENT+10, PATIENT+11
Y NEW~, EXIT!, PARSE+1*, PARSE+2, EVAL+5*, ASK+9, ASK+10, ASK+11, CONFIRM+18, PATIENT+1~
, PATIENT+13, PATIENT+14, PATIENT+15, PATIENT+16, TWO+1
Z NEW~, EXIT!, PARSE*, PARSE+1, PARSE+2, PARSE+3, EVAL+1*, EVAL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Naked Globals |  Local Variables |  All