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

Package: Remote Order Entry System

Routine: RMPFQP2


Information

RMPFQP2 ;DDC/KAW-PRINT VA FORM 10-2477a; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFQP2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Remote Order Entry System 2 ^RMPFQP1  (,MENU)^RMPFUTL  
Kernel 1 ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Remote Order Entry System 2 RMPFQP3  RMPFQP4  

Entry Points

Name Comments DBIA/ICR reference
RMPFSET
PRINT
NAM
AUTH
CLINIC
END
READ
LINE
CONT

External References

Name Field # of Occurrence
^%ZISC CLINIC+28
^RMPFQP1 PRINT
^RMPFUTL RMPFSET+1
MENU^RMPFUTL RMPFSET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"*** A MENU SELECTION MUST BE MADE ***"
  • Line Location: RMPFSET+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?25,"DEPARTMENT OF VETERANS AFFAIRS"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?21,"AUDIOLOGICAL SERVICES ACKNOWLEDGEMENT"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"1. Extended Audiology Clinic",?38,"| 2. Issuing Audiology Clinic"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?3,"Station No. ",RMPFRSTA,?38,"|",?45,"Station No. ",RMPFSTAP
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?38,"|"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?3,$E(RMPFR(I),1,32)
  • Condition for execution: $D(RMPFR(I))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?38,"|"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?45,$E(RMPFS(I),1,36)
  • Condition for execution: $D(RMPFS(I))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"3. Veteran's Name and Address ",?38,"| 4. Eligibility Status(es) "
  • Line Location: NAM+0
Function Call: WRITE
  • Prompt: !,?38,"|"
  • Line Location: NAM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+2
Function Call: WRITE
  • Prompt: ?38,"| __ SC for Hearing",?61,"__ IN PAT"
  • Line Location: NAM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+3
Function Call: WRITE
  • Prompt: ?38,"| __ 50-100% SC",?61,"__ NHCU"
  • Line Location: NAM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+4
Function Call: WRITE
  • Prompt: ?38,"| __ POW",?61,"__ DOM"
  • Line Location: NAM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+5
Function Call: WRITE
  • Prompt: ?38,"| __ WWI",?61,"__ OPT-NSC"
  • Line Location: NAM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+6
Function Call: WRITE
  • Prompt: ?38,"| __ MBW",?61,"__ ADJ"
  • Line Location: NAM+6
Function Call: WRITE
  • Prompt: !?38,"| __ A&A",?54,"__ ALLIED (Authority Req.)"
  • Line Location: NAM+7
Function Call: WRITE
  • Prompt: !?38,"| __ HB",?54,"__ OTHER (Specify)"
  • Line Location: NAM+8
Function Call: WRITE
  • Prompt: !,"5. Soc. Security No.",?16,"| 6. VA Claim No.",?38,"| 7. Date of Birth",?59,"| 8. Disability Code"
  • Line Location: NAM+11
Function Call: WRITE
  • Prompt: !?20,"|",?38,"|",?59,"|"
  • Line Location: NAM+12
Function Call: WRITE
  • Prompt: !," - -",?20,"| - -",?38,"|",?59,"| __DEAF/U __DEAF/B"
  • Line Location: NAM+13
Function Call: WRITE
  • Prompt: !,"9. Currently Authorized Hearing Aid(s)"
  • Line Location: AUTH+0
Function Call: WRITE
  • Prompt: !?2,"Manfacturer",?16,"|",?22,"Model",?32,"|",?34,"Serial Number",?48,"|",?50,"Furnished By",?64,"|",?67,"Date Issued"
  • Line Location: AUTH+2
Function Call: WRITE
  • Prompt: !,?16,"|",?32,"|",?48,"|",?64,"|"
  • Line Location: AUTH+4
Function Call: WRITE
  • Prompt: !,"10. Clinic Action Taken __ VETERAN DOES NOT REQUIRE NEW HEARING AID"
  • Line Location: CLINIC+0
Function Call: WRITE
  • Prompt: !?27,"__ VETERAN DOES NOT REQUIRE HEARING AID"
  • Line Location: CLINIC+1
Function Call: WRITE
  • Prompt: !?27,"__ ITEM(S) LISTED BELOW WERE ISSUED TO VETERAN"
  • Line Location: CLINIC+2
Function Call: WRITE
  • Prompt: !,?16,"|",?27,"|",?44,"|",?57,"| Battery",?67,"| Serial No."
  • Line Location: CLINIC+5
Function Call: WRITE
  • Prompt: !,"Natl. Stock No.",?16,"|",?20,"Make",?33,"Model"
  • Line Location: CLINIC+6
Function Call: WRITE
  • Prompt: ?44,"| Serial No.",?57,"| Type",?67,"| Replaced"
  • Line Location: CLINIC+7
Function Call: WRITE
  • Prompt: !,"6515-01-",?16,"|",?27,"|",?44,"|",?57,"|",?67,"|"
  • Line Location: CLINIC+9
Function Call: WRITE
  • Prompt: !,"11. Type of Fitting",?24,"__ MONAURAL",?38,"__ BINAURAL",?56,"__ CROS",?69,"__ BICROS"
  • Line Location: CLINIC+11
Function Call: WRITE
  • Prompt: !,"12. Authorized Usage of Aids",?38,"__ MONAURAL",?56,"__ BINAURAL"
  • Line Location: CLINIC+13
Function Call: WRITE
  • Prompt: !,"13. Issued aids to be replaced to clinic stock by DDC:",?58,"__ YES",?66,"__ NO",?73,"__ N/A"
  • Line Location: CLINIC+15
Function Call: WRITE
  • Prompt: !,"14. Signature of Issuing Audiologist",?38,"|",?44,"Name and Title",?65,"|15. Order Date"
  • Line Location: CLINIC+17
Function Call: WRITE
  • Prompt: !?38,"|",?65,"|",!?38,"|",?65,"|"
  • Line Location: CLINIC+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLINIC+20
Function Call: WRITE
  • Prompt: !,"16. I certify that I have",?37,"Signature of Veteran",?65,"|17. Date"
  • Line Location: CLINIC+21
Function Call: WRITE
  • Prompt: !?4,"received the item(s)",?65,"|"
  • Line Location: CLINIC+22
Function Call: WRITE
  • Prompt: !?4,"listed under 10 above ->",?65,"|"
  • Line Location: CLINIC+23
Function Call: WRITE
  • Prompt: !,"VA Form 10-2477a"
  • Line Location: CLINIC+25
Function Call: WRITE
  • Prompt: !,"SEP 1991"
  • Line Location: CLINIC+26
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"Enter <RETURN> to continue:"
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !!,"Enter <RETURN> to continue or <^> to exit."
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CONT+3

Label References

Name Line Occurrences
CONT NAM+10, CLINIC+4, CLINIC+10, CLINIC+27, CONT+2
END RMPFSET+5, NAM+10, CLINIC+4, CLINIC+10, CLINIC+27
LINE PRINT+3, PRINT+8, NAM+9, NAM+10, NAM+14, AUTH+1, AUTH+3, AUTH+4, CLINIC+3, CLINIC+4
, CLINIC+8, CLINIC+9, CLINIC+10, CLINIC+12, CLINIC+14, CLINIC+16, CLINIC+19, CLINIC+24
PRINT RMPFSET+4
READ READ+1, CONT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END!
DTIME READ+1
I PRINT+7*, AUTH+4*, CLINIC+9*, END!, CONT*
IN END!
IO("S" CLINIC+28
IOF PRINT+1, CLINIC+20, CLINIC+27, CONT+3
IOST NAM+10, CLINIC+4, CLINIC+10, CLINIC+20, CLINIC+27, CONT
>> KX RMPFSET+4*
RMPFCNT RMPFSET+4, END!
>> RMPFDAT RMPFSET+1
>> RMPFMENU RMPFSET
RMPFOUT NAM+10, CLINIC+4, CLINIC+10, CLINIC+27, END!, READ!, READ+2*, CONT+1
RMPFQUT END!, READ!, READ+3*, CONT+2
RMPFR END!
RMPFR( PRINT+7
RMPFRSTA PRINT+5, END!
RMPFS END!
RMPFS( PRINT+7
>> RMPFSTAN RMPFSET+1
>> RMPFSTAP PRINT+5
>> RMPFSYS RMPFSET+1
U READ+1
Y END!, READ+1*, READ+2*, READ+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All