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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPOPAT1

Package: Prosthetics

Routine: RMPOPAT1


Information

RMPOPAT1 ;HINES CIO/RVD-DISPLAY PATIENT INFO READ ONLY ;9/16/02 11:13

Source Information

Source file <RMPOPAT1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 DD^%DT  %XY^%RCR  YN^DICN  $$GET1^DIQ  ^DIR  
Prosthetics 1 ASK2^RMPOPAT  
Registration 1 (DEM,ELIG)^VADPT  

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

Package Total Caller Graph
Prosthetics 1 RMPOPAT  

Entry Points

Name Comments DBIA/ICR reference
WRIL ;ASK TO SEE MORE RETURNED ITEMS
OLD ;DISPLAY OLD RETURNED ITEMS
OLD1
RTNSTA ;DISPLAYS STATUS OF TRACKED ITEM ON PATIENT'S 10-2319
HELP ;DISPLAY HELP FOR SCREENS
ASK1 ;SET DIR AND FOR SCREEN NUMBER DISPLAY

External References

Name Field # of Occurrence
DD^%DT RMPOPAT1+19, RMPOPAT1+23, RMPOPAT1+30, WRIL+5, OLD1+2
%XY^%RCR RMPOPAT1+11
YN^DICN WRIL+1, OLD1
$$GET1^DIQ RMPOPAT1+23
^DIR RMPOPAT1+37
ASK2^RMPOPAT RMPOPAT1+38
DEM^VADPT RMPOPAT1+9
ELIG^VADPT RMPOPAT1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPOPAT1+8
Function Call: WRITE
  • Prompt: !,"<<<HOME OXYGEN PATIENT>>>>"
  • Line Location: RMPOPAT1+12
Function Call: WRITE
  • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2)
  • Line Location: RMPOPAT1+13
Function Call: WRITE
  • Prompt: ?42,"DOB: ",$P(VADM(3),U,2)
  • Line Location: RMPOPAT1+14
Function Call: WRITE
  • Prompt: ?61,"CLAIM# ",VAEL(7)
  • Line Location: RMPOPAT1+15
Function Call: WRITE
  • Prompt: !!,"PSC Issue Card: ",?17,"Appliance",?30,"Ht ",$P(R5(10),U,1),?37,"Wt ",$P(R5(10),U,2),?45,"Eyes ",$P(R5(10),U,3),?54,"Hair ",$P(R5(10),U,4),?66,"Serial Number"
  • Line Location: RMPOPAT1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPOPAT1+18
Function Call: WRITE
  • Prompt: Y,?17,$S($P(R5(5,J,0),U,2)]"":$E($P(R5(5,J,0),U,2),1,47),1:$E($P(^PRC(441,$P(^RMPR(661,$P(R5(5,J,0),U,4),0),U,1),0),U,2),1,47)),?66,$E($P(R5(5,J,0),U,3),1,12)
  • Line Location: RMPOPAT1+19
Function Call: WRITE
  • Prompt: !!,"Clothing Allowance: "
  • Line Location: RMPOPAT1+20
Function Call: WRITE
  • Prompt: !,?22,"Date of Exam: ",Y
  • Line Location: RMPOPAT1+23
Function Call: WRITE
  • Prompt: " Examiner: ",$E($$GET1^DIQ(200,$P(RR5,U,6),.01),1,30)
  • Condition for execution: $P(RR5,U,6)
  • Line Location: RMPOPAT1+23
Function Call: WRITE
  • Prompt: "NONE LISTED",!
  • Line Location: RMPOPAT1+26
Function Call: WRITE
  • Prompt: ?64,Y
  • Line Location: RMPOPAT1+30
Function Call: WRITE
  • Prompt: !!,"Items Returned: ",?16,"Date",?29,"Item",?56
  • Line Location: RMPOPAT1+32
Function Call: WRITE
  • Prompt: "Serial",?68,"Status"
  • Line Location: RMPOPAT1+33
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPOPAT1+36
Function Call: WRITE
  • Prompt: !,"Would you like to see more returned items"
  • Line Location: WRIL+1
Function Call: WRITE
  • Prompt: !,"Enter `YES` or `NO`"
  • Line Location: WRIL+2
Function Call: WRITE
  • Prompt: !?16,Y
  • Line Location: WRIL+5
Function Call: WRITE
  • Prompt: ?56,$E($P(^RMPR(660.1,RO,0),U,6),1,10)
  • Line Location: WRIL+7
Function Call: WRITE
  • Prompt: !,"Would you like to see more returned items"
  • Line Location: OLD1+0
Function Call: WRITE
  • Prompt: !,"Enter `YES` or `NO`"
  • Line Location: OLD1+1
Function Call: WRITE
  • Prompt: !?16,$E(Y,1,12),?29,$E($P(^RMPR(665,RMPRDFN,7,RO,0),U,4),1,20)
  • Line Location: OLD1+2
Function Call: WRITE
  • Prompt: ?68,$S(R0=1:"RETURNED",R0=2:"CONDENMED",R0=3:"TURNED-IN",R0=4:"LOST",R0=5:"BROKEN",1:"UNKNOWN")
  • Line Location: RTNSTA+1
Function Call: WRITE
  • Prompt: !,"Select One of the Following: ",!!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,?5,$P($P(RMPR90DP,";",RMPR90I),":",1),?14,$P($P(RMPR90DP,";",RMPR90I),":",2)
  • Line Location: HELP+1
Routine Call
  • DIR
  • Line Location:
    • RMPOPAT1+37

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] RMPOPAT1+19, WRIL+6
^RMPR(660.1 - [#660.1] RMPOPAT1+35, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8
^RMPR(661 - [#661] RMPOPAT1+19, WRIL+6
^RMPR(664 - [#664] RMPOPAT1+12
^RMPR(665 - [#665] RMPOPAT1+21, RMPOPAT1+34, OLD+1, OLD1+2, RTNSTA+1
^RMPR(667 - [#667] RMPOPAT1+27, RMPOPAT1+28, RMPOPAT1+30
^RMPR(667.1 - [#667.1] WRIL+7
^RMPR(667.2 - [#667.2] RMPOPAT1+30

Label References

Name Line Occurrences
OLD RMPOPAT1+34
OLD1 OLD+1, OLD1+1
WRIL RMPOPAT1+35, WRIL+2

Naked Globals

Name Field # of Occurrence
^(0 WRIL+6, WRIL+7, WRIL+8, OLD1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% WRIL+1*, WRIL+2, OLD1*, OLD1+1, ASK1+2~
%X RMPOPAT1+11*!
%Y RMPOPAT1+11*!
>> DFN RMPOPAT1+9*, RMPOPAT1+10*, RMPOPAT1+11*
DIR RMPOPAT1+37~, ASK1+1!
DIR("?" ASK1+3*, ASK1+4!
DIR("A" ASK1+1*, ASK1+4*
DIR(0 RMPOPAT1+37*, HELP+1, ASK1+2*, ASK1+4*
>> FL RMPOPAT1+38*
I RMPOPAT1+35*, RMPOPAT1+36!, WRIL+1, WRIL+2, OLD+1*, OLD1, OLD1+1
IOF RMPOPAT1+8
IOST WRIL+1, WRIL+2, OLD1, OLD1+1
J RMPOPAT1+17*, RMPOPAT1+18*, RMPOPAT1+19, RMPOPAT1+36!
KILL RMPOPAT1+31!, RMPOPAT1+35, WRIL+1*, OLD+1, OLD1*
L RMPOPAT1+36!
>> PAGE RMPOPAT1+8*
R0 RMPOPAT1+20*, RMPOPAT1+36!, RTNSTA+1*
R5 RMPOPAT1+11!
R5(0 RMPOPAT1+20
R5(10 RMPOPAT1+16*, RMPOPAT1+17
R5(5 RMPOPAT1+18, RMPOPAT1+19
R5(6 RMPOPAT1+21, RMPOPAT1+25, RMPOPAT1+26
>> RA RMPOPAT1+21*, RMPOPAT1+25
>> RFLG ASK1+4, ASK1+5*
>> RI RMPOPAT1+21*
RMPR90DP HELP+1~*
RMPR90I HELP+1~*
>> RMPRDFN RMPOPAT1+9, RMPOPAT1+10, RMPOPAT1+11, RMPOPAT1+12, RMPOPAT1+21, RMPOPAT1+27, RMPOPAT1+34, RMPOPAT1+35, OLD+1, OLD1+2
, RTNSTA+1
RMPRFLG RMPOPAT1+29, RMPOPAT1+30*, RMPOPAT1+31!
>> RMPRNAM RMPOPAT1+13
>> RO RMPOPAT1+27*, RMPOPAT1+28, RMPOPAT1+30, RMPOPAT1+35*, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8, OLD+1*
, OLD1+2, RTNSTA+1
>> RR5 RMPOPAT1+21*, RMPOPAT1+22, RMPOPAT1+23
U RMPOPAT1+13, RMPOPAT1+14, RMPOPAT1+17, RMPOPAT1+18, RMPOPAT1+19, RMPOPAT1+20, RMPOPAT1+22, RMPOPAT1+23, RMPOPAT1+25, RMPOPAT1+28
, RMPOPAT1+30, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8, OLD1+2, RTNSTA+1, HELP+1, ASK1+4
VADM RMPOPAT1+9!
VADM(2 RMPOPAT1+13
VADM(3 RMPOPAT1+14
VAEL RMPOPAT1+10!
VAEL(7 RMPOPAT1+15
VAHOW RMPOPAT1+9~, RMPOPAT1+10~
>> Y RMPOPAT1+18*, RMPOPAT1+19, RMPOPAT1+23*, RMPOPAT1+30*, WRIL+4*, WRIL+5, OLD1+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All