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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Remote Order Entry System 6 ^RMPFDD2  ARRAY^RMPFDT2  ^RMPFDT5  (,MOD)^RMPFQP1  CONT^RMPFQP2  (AUTH,KIL)^RMPFQP4  
Kernel 1 ^%ZISC  
VA FileMan 1 DD^%DT  

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 RMPFQP1  RMPFQP4  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT PRINT+4
^%ZISC CLINIC+34
^RMPFDD2 PRINT+2
ARRAY^RMPFDT2 CLINIC+21
^RMPFDT5 PRINT+2
^RMPFQP1 PRINT+1
MOD^RMPFQP1 CLINIC+4
CONT^RMPFQP2 NEXTNEXT+5, CLINIC+5, CLINIC+33, P3+11
AUTH^RMPFQP4 PRINT+8
KIL^RMPFQP4 END

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(3.1 - [#3.1] CLINIC+22
^DIC(5 - [#5] P1+4
^RMPF(791810 - [#791810] PRINTPRINT+1, PRINT+4, PRINT+8, CLINIC+21, P1+1, ELG
^RMPF(791810.4 - [#791810.4] ELG+1
^VA(200 - [#200] CLINIC+21, CLINIC+22

Label References

Name Line Occurrences
CONT CLINIC+6, CLINIC+9, CLINIC+13, CLINIC+18, CLINIC+26
ELG PRINT+2
END RMPFQP3+5, PRINT+2, NEXT+5, CLINIC+5
HEAD PRINT+2, CONT+1
HEAD1 PRINT+2, CONT+1
LINE PRINT+5, PRINT+7, PRINT+9, NEXT+4, NEXT+5, CLINIC+3, CLINIC+5, CLINIC+8, CLINIC+12, CLINIC+17
CLINIC+25, CLINIC+30, P3+4, P3+10, P3+11, P3+16, HEAD+2, HEAD1+2, CONT+1
NEXT PRINT+8
P1 PRINT+2
P2 P1
P3 P1+1
PRINT RMPFQP3+4
READ READ+1

Naked Globals

Name Field # of Occurrence
^( PRINT+4
^(0 PRINTPRINT+4, CLINIC+21, CLINIC+22, ELG+1
^(1 P1+1
^(90 CLINIC+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AD P1*, P2*, P3+9
>> C P1+2*, P1+3*, P1+4
>> DFN PRINT+1*
DTIME READ+1
>> I PRINT+9*, P1+3*, P3+3*, P3+9*
IO("S" CLINIC+34
IOF CLINIC+33, HEAD
IOST NEXT+5, CLINIC+5, CLINIC+33, P3+11, CONT
>> KX RMPFQP3+4*
>> L CLINIC+23*, CLINIC+24
RMPFA P1+2!
RMPFA( P1+3*, P1+4*
>> RMPFAD CLINIC+21*, CLINIC+22
>> RMPFADP CLINIC+21*, CLINIC+24
>> RMPFCL P3+14
>> RMPFCNT RMPFQP3+4
>> RMPFDAT HEAD1+1
>> RMPFDC P3+15
>> RMPFDDC CLINIC+15
>> RMPFDOB P3+14
>> RMPFELD P3+6
>> RMPFELS P3+5
>> RMPFF P3+8, ELG*, ELG+1*
>> RMPFF( P3+9
>> RMPFHAT CLINIC+15
>> RMPFNAM P3+7*, P3+8
>> RMPFO( CLINIC+21
>> RMPFODP CLINIC+24
RMPFOUT PRINT+2, NEXT+5, CLINIC+5, P3+11, READ!, READ+2*
RMPFQUT READ!, READ+3*
>> RMPFR( P3+3
>> RMPFRSTA P3+1
>> RMPFS( P3+3
>> RMPFSSN P3+14
>> RMPFSTAP P3+1
>> RMPFSTP HEAD1
>> RMPFT P2
>> RMPFTF CLINIC+7
>> RMPFTYP PRINT*, CLINIC+10
>> RMPFUS CLINIC+10*, CLINIC+11
>> RMPFX PRINTPRINT+1, PRINT+4, PRINT+8, CLINIC+21, P1P1+1, ELG
>> S1 P1+1*, P1+3, P1+4
>> T CLINIC+22*, CLINIC+23*, CLINIC+24
U PRINTPRINT+1, PRINT+4, CLINIC+21, CLINIC+22, P1+1, P1+3, P1+4, ELGELG+1
READ+1
>> X PRINT+4*, CLINIC+21*, CLINIC+22*, ELG*, ELG+1
>> Y PRINT+4*, CLINIC+21*, READ+1*, READ+2*, READ+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All