Routine: RMPFQP3

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

Package	Total	Caller Graph
Remote Order Entry System	2	RMPFQP1 RMPFQP4

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	NEXT, NEXT+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

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

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

Name	Field # of Occurrence
^(	PRINT+4
^(0	PRINT, PRINT+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	PRINT, PRINT+1, PRINT+4, PRINT+8, CLINIC+21, P1, P1+1, ELG
>> S1	P1+1*, P1+3, P1+4
>> T	CLINIC+22, CLINIC+23, CLINIC+24
U	PRINT, PRINT+1, PRINT+4, CLINIC+21, CLINIC+22, P1+1, P1+3, P1+4, ELG, ELG+1 , READ+1
>> X	PRINT+4, CLINIC+21, CLINIC+22, ELG, ELG+1
>> Y	PRINT+4, CLINIC+21, READ+1, READ+2, READ+3*

Customize PDF page

Package: Remote Order Entry System

Routine: RMPFQP3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: