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

Package: Remote Order Entry System

Routine: RMPFQP3


Information

RMPFQP3 ;DDC/KAW-PRINT VA FORM 10-2477a [ 03/12/98 7:46 AM ]

Source Information

Source file <RMPFQP3.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
NEXT
CLINIC
END
P1
P2
P3
LINE
HEAD
HEAD1
ELG
CONT
READ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"9. Currently Authorized Hearing Aid(s)"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: " as of: ",Y
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?2,"Manfacturer",?16,"|",?22,"Model",?32,"|",?34,"Serial Number",?48,"|",?50,"Furnished By",?64,"|",?67,"Date Issued"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?16,"|",?32,"|",?48,"|",?64,"|"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"10. Clinic Action Taken __ VETERAN DOES NOT REQUIRE NEW HEARING AID"
  • Line Location: NEXT+1
Function Call: WRITE
  • Prompt: !?27,"__ VETERAN DOES NOT REQUIRE HEARING AID"
  • Line Location: NEXT+2
Function Call: WRITE
  • Prompt: !?27,"__ ITEM(S) LISTED BELOW WERE ISSUED TO VETERAN"
  • Line Location: NEXT+3
Function Call: WRITE
  • Prompt: !,?16,"|",?27,"|",?44,"|",?57,"| Battery",?67,"| Serial No."
  • Line Location: CLINIC+0
Function Call: WRITE
  • Prompt: !,"Natl. Stock No.",?16,"|",?20,"Make",?27,"|",?33,"Model"
  • Line Location: CLINIC+1
Function Call: WRITE
  • Prompt: ?44,"| Serial No.",?57,"| Type",?67,"| Replaced"
  • Line Location: CLINIC+2
Function Call: WRITE
  • Prompt: !,"11. Type of Fitting",?28,":",?32,RMPFTF
  • Line Location: CLINIC+7
Function Call: WRITE
  • Prompt: !,"12. Authorized Usage of Aids:",?32,RMPFUS
  • Line Location: CLINIC+11
Function Call: WRITE
  • Prompt: !,"13. Issued aids to be replaced to clinic stock by DDC:",?56
  • Line Location: CLINIC+14
Function Call: WRITE
  • Prompt: RMPFDDC
  • Line Location: CLINIC+15
Function Call: WRITE
  • Prompt: "N/A"
  • Line Location: CLINIC+16
Function Call: WRITE
  • Prompt: !,"14. Signature of Issuing Audiologist",?38,"|",?49,"Title",?65,"|15. Order Date"
  • Line Location: CLINIC+19
Function Call: WRITE
  • Prompt: !?38,"|",?65,"|"
  • Line Location: CLINIC+20
Function Call: WRITE
  • Prompt: !?4,$P(RMPFADP,",",2)_" "_$P(RMPFADP,",",1),?38,"|",?39+((26-L)\2),T,?65,"|",?68,RMPFODP
  • Line Location: CLINIC+24
Function Call: WRITE
  • Prompt: !,"16. I certify that I have",?37,"Signature of Veteran",?65,"|17. Date"
  • Line Location: CLINIC+27
Function Call: WRITE
  • Prompt: !?4,"received the item(s)",?65,"|"
  • Line Location: CLINIC+28
Function Call: WRITE
  • Prompt: !?4,"listed under 10 above ->",?65,"|"
  • Line Location: CLINIC+29
Function Call: WRITE
  • Prompt: !,"VA Form 10-2477a"
  • Line Location: CLINIC+31
Function Call: WRITE
  • Prompt: !,"SEP 1991"
  • Line Location: CLINIC+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLINIC+33
Function Call: WRITE
  • Prompt: !,"1. Extended Audiology Clinic",?38,"| 2. Issuing Audiology Clinic"
  • Line Location: P3+0
Function Call: WRITE
  • Prompt: !?3,"Station No. ",RMPFRSTA,?38,"|",?44,"Station No. ",RMPFSTAP
  • Line Location: P3+1
Function Call: WRITE
  • Prompt: !?38,"|"
  • Line Location: P3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: P3+3
Function Call: WRITE
  • Prompt: ?3,$E(RMPFR(I),1,35)
  • Condition for execution: $D(RMPFR(I))
  • Line Location: P3+3
Function Call: WRITE
  • Prompt: ?38,"|"
  • Line Location: P3+3
Function Call: WRITE
  • Prompt: ?44,$E(RMPFS(I),1,36)
  • Condition for execution: $D(RMPFS(I))
  • Line Location: P3+3
Function Call: WRITE
  • Prompt: !,"3. Veteran's Name and Address ",?38,"| 4. Eligibility Status(es) ",?71,$J($E(RMPFELS,1,9),9)
  • Line Location: P3+5
Function Call: WRITE
  • Prompt: !,?38,"|"
  • Line Location: P3+6
Function Call: WRITE
  • Prompt: ?70,$E(RMPFELD,4,5)_"-"_$E(RMPFELD,6,7)_"-"_($E(RMPFELD,1,3)+1700)
  • Line Location: P3+6
Function Call: WRITE
  • Prompt: !?3,$E(RMPFNAM,1,32),?38,"|",?44,RMPFF
  • Line Location: P3+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P3+9
Function Call: WRITE
  • Prompt: ?3,$E(@("RMPF"_AD_"(I)"),1,32)
  • Condition for execution: $D(@("RMPF"_AD_"(I)"))
  • Line Location: P3+9
Function Call: WRITE
  • Prompt: ?38,"|"
  • Line Location: P3+9
Function Call: WRITE
  • Prompt: ?44,$E(RMPFF(I+1),1,36)
  • Condition for execution: $D(RMPFF(I+1))
  • Line Location: P3+9
Function Call: WRITE
  • Prompt: !,"5. Soc. Security No.",?20,"| 6. VA Claim No.",?38,"| 7. Date of Birth",?59,"| 8. Disability Code"
  • Line Location: P3+12
Function Call: WRITE
  • Prompt: !?20,"|",?38,"|",?59,"|"
  • Line Location: P3+13
Function Call: WRITE
  • Prompt: !?3,RMPFSSN,?20,"|",?25,RMPFCL,?38,"|",?43,RMPFDOB,?59,"|"
  • Line Location: P3+14
Function Call: WRITE
  • Prompt: ?64,RMPFDC
  • Line Location: P3+15
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?25,"DEPARTMENT OF VETERANS AFFAIRS"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?21,"AUDIOLOGICAL SERVICES ACKNOWLEDGEMENT"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?59,"Printed: ",RMPFDAT
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !!,"cont."
  • Line Location: CONT+1
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Info |  Source |  Entry Points |  Interaction Calls