Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls