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

Package: Prosthetics

Routine: RMPOLF0A


Information

RMPOLF0A ;HIN CIOFO/RVD-DRIVER FOR HO LETTERS(ALL) ;06/28/99

Source Information

Source file <RMPOLF0A.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  %XY^%RCR  FILE^DICN  IX1^DIK  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMADD^XLFDT  
Prosthetics 4 EXIT^RMPOLF1  INIT^RMPOLT  $$ROU^RMPRUTIL  ($$PARS,TRANS)^RMPRUTL1  
List Manager 3 FULL^VALM1  CLEAN^VALM10  RE^VALM4  
Registration 1 (ADD,DEM)^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: 2

Package Total Caller Graph
Kernel 1 ^ORD(101  
Prosthetics 1 RMPO PRINT PATIENT LETTERS(1)  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print ALL patient letters
QUED ;
EXIT
CUM ;
HEADER1 ;
HEADER ;
HEADER2 ;
HEADERB ;
NAME ;
SETALL
QUEUE(ZTDESC,ZTRTN,ZTSAVE) ; Queue print

External References

Name Field # of Occurrence
DD^%DT RMPOLF0A+8
NOW^%DTC RMPOLF0A+11
%XY^%RCR SETALL+3
^%ZIS PRINT+1
HOME^%ZIS RMPOLF0A+6
^%ZISC EXIT+5
^%ZTLOAD PRINT+2, QUEUE+1
FILE^DICN SETALL
IX1^DIK SETALL+2
EXIT^RMPOLF1 SETALL+1
INIT^RMPOLT EXIT+7
$$ROU^RMPRUTIL HEADER+3, HEADERB+3
$$PARS^RMPRUTL1 HEADER1+5, HEADER2+3
TRANS^RMPRUTL1 RMPOLF0A+8, HEADERB+14, HEADERB+15
ADD^VADPT CUM+11
DEM^VADPT CUM+11
FULL^VALM1 RMPOLF0A+9
CLEAN^VALM10 EXIT+7
RE^VALM4 EXIT+7
$$FMADD^XLFDT RMPOLF0A+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?23,"Department of Veterans Affairs"
  • Line Location: HEADER2+2
Function Call: WRITE
  • Prompt: !,?(80-$L(HEADW)/2),HEADW
  • Line Location: HEADER2+4
Function Call: WRITE
  • Prompt: !,?(80-$L(HEADW)/2),HEADW
  • Line Location: HEADER2+5
Function Call: WRITE
  • Prompt: !,?(80-$L(HEADW)/2),HEADW
  • Line Location: HEADER2+6
Function Call: WRITE
  • Prompt: !!!,RMPODT
  • Line Location: HEADERB+1
Function Call: WRITE
  • Prompt: !!,$P(VADM(1),",",2)_" "_$P(VADM(1),",",1),?43,"In Reply Refer To: "_STATNID_"/"_$$ROU^RMPRUTIL(RMPOXITE)
  • Line Location: HEADERB+3
Function Call: WRITE
  • Prompt: !,VAPA(1)
  • Line Location: HEADERB+5
Function Call: WRITE
  • Prompt: !,VAPA(2),?43,VADM(1),!,VAPA(4)_","_" "_$P(VAPA(5),U,2)_" "_VAPA(6)
  • Line Location: HEADERB+6
Function Call: WRITE
  • Prompt: !,VAPA(4)_","_" "_$P(VAPA(5),U,2)_" "_VAPA(6),?43,VADM(1)
  • Line Location: HEADERB+7
Function Call: WRITE
  • Prompt: !!,?43,DFN
  • Line Location: HEADERB+8
Function Call: WRITE
  • Prompt: !,?43,"Current Home Oxygen Rx#: "_RMPORX
  • Line Location: HEADERB+9
Function Call: WRITE
  • Prompt: !,?43,"Rx Expiration Date: "_RMPORXDT
  • Line Location: HEADERB+10
Function Call: WRITE
  • Prompt: !!,"Dear Mr. "_RMPRNAME_":"
  • Line Location: NAME+2
Function Call: WRITE
  • Prompt: !!,"Dear Ms. "_RMPRNAME_":"
  • Line Location: NAME+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: NAME+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NAME+8
Function Call: WRITE
  • Prompt: !!!!!!
  • Line Location: NAME+8
Function Call: WRITE
  • Prompt: !,$G(^RMPR(665.2,RMPRFA,1,RI,0))
  • Line Location: NAME+9
Function Call: WRITE
  • Prompt: !!,?5,"Report Cancelled!",!
  • Line Location: QUEUE+2
Function Call: WRITE
  • Prompt: !!,?5,"Print queued!",!
  • Line Location: QUEUE+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+1
Routine Call
  • %ZIS
  • Line Location:
    • RMPOLF0A+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665.4 - [#665.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CUM+10
^DIC(4 - [#4] HEADER+2, HEADERB+2
^DIC(5 - [#5] HEADER1+5, HEADER2+3
^RMPR(665 - [#665] QUED+4*, QUED+5*, QUED+6*
^RMPR(665.2 - [#665.2] NAME+5, NAME+6, NAME+7, NAME+9, SETALL+2
^RMPR(665.4 - [#665.4] SETALL+2*
^RMPR(669.9 - [#669.9] QUED+4!*, QUED+5!*, QUED+6!*, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER+2, HEADER2+3, HEADER2+4
, HEADER2+5, HEADER2+6, HEADERB+2
^TMP("RL" EXIT+3!, SETALL+4*
^TMP($J RMPOLF0A+12!, EXIT+3*, EXIT+4!, CUM+12*, HEADER1+3*, HEADER1+4*, HEADER1+6*, HEADER1+7*, HEADER1+8*, HEADER+1*
, HEADER+3*, HEADER+5*, HEADER+6*, HEADER+7*, HEADER+8*, HEADER+9*, NAME+2*, NAME+3*, NAME+6*
^XTMP("RL" RMPOLF0A+10!, RMPOLF0A+11*, RMPOLF0A+12*, QUED+2, QUED+3, EXIT+3, EXIT+5!, CUM+1, CUM+6, HEADER1+1

Label References

Name Line Occurrences
CUM QUED+2
EXIT PRINT+1, PRINT+2
HEADER HEADER1+2

Naked Globals

Name Field # of Occurrence
^( NAME+5
^("RMPOA" QUED+4*, QUED+5*, QUED+6*
^(0 NAME+6, SETALL+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RMPOLF0A+11, EXIT+2!
%X EXIT+2!, SETALL+3*
%Y EXIT+2!, SETALL+3*
%ZIS PRINT+1*, EXIT+2!
DA EXIT+2!, SETALL+2*
DD SETALL!
DFN EXIT+1!, CUM+3*, CUM+6, HEADERB+8, SETALL, SETALL+4
DIC SETALL!*, SETALL+2
DIC(0 SETALL*
DIK EXIT+2!, SETALL+2*
DINUM SETALL!
DIR EXIT!
DLAYGO SETALL*!
DO SETALL!
DT RMPOLF0A+8, QUED+4, QUED+5, QUED+6, SETALL+2
DUZ SETALL+2
EOP EXIT!, HEADER2+1, NAME+10*
HEADW HEADER2+4*, HEADER2+5*, HEADER2+6*!
HOLDJB EXIT!
IO PRINT+5
IO("Q" PRINT+2, PRINT+4!
IOF HEADER2+1
ION PRINT+4, QUED+1
IOP PRINT+1!
IOST QUED+1
JOBTIM RMPOLF0A+10*, RMPOLF0A+11, RMPOLF0A+12, QUED+2, QUED+3, EXIT+3, EXIT+5, EXIT+6!, CUM+1, CUM+6
, HEADER1+1, SETALL+4
LFN EXIT!
LFNS EXIT!
>> NAME RMPOLF0A+8*, HEADER1+5*, HEADER2+3*, HEADERB+12*, HEADERB+13, HEADERB+14*
>> NAME1 HEADERB+14*
POP PRINT+1, EXIT+2!
RI QUED+3*, EXIT+1!, CUM+12*, NAME+5*, NAME+6*, NAME+7*, NAME+9
>> RMBLNK QUED+1*, HEADER+8, HEADER+9
RMDA EXIT+1!, CUM+4*
RMDAT EXIT+1!, CUM+1*, CUM+2, CUM+3, CUM+4
RMDFN QUED+3*, QUED+4, QUED+5, QUED+6, EXIT+1!
RMFXN HEADER1+5*, HEADER1+8!, HEADER2+3*, HEADER2+6!
RMIO QUED+1*, EXIT!
RMION EXIT!
RMIOST QUED+1*, EXIT!
RMLET EXIT!
>> RMPODATE RMPOLF0A+8*
>> RMPODT RMPOLF0A+8*, HEADER+1, HEADERB+1
>> RMPOLCD QUED+2, QUED+4, QUED+5, QUED+6, EXIT+4, CUM+1
>> RMPOLTR CUM+2*, CUM+5, HEADER1+1
RMPONAM QUED+1*, QUED+2*, EXIT!, CUM+1
>> RMPORX CUM+7*, HEADER+8, HEADERB+9
>> RMPORXDT CUM+8*, CUM+9*, CUM+10*, HEADER+9, HEADERB+10
>> RMPOXITE QUED+2, QUED+4, QUED+5, QUED+6, EXIT+4, CUM+1, CUM+6, HEADER1+1, HEADER1+5, HEADER1+6
, HEADER1+7, HEADER1+8, HEADER+2, HEADER+3, HEADER2+3, HEADER2+4, HEADER2+5, HEADER2+6, HEADERB+2, HEADERB+3
, SETALL+2
RMPRFA EXIT+1!, CUM+5*, NAME+5, NAME+6, NAME+7, NAME+9, SETALL+2
>> RMPRHED HEADER1+1*, HEADER1+2
RMPRIN RMPOLF0A+6*, EXIT!, SETALL+2*, SETALL+4
>> RMPRNAM1 HEADERB+14*
>> RMPRNAM2 HEADERB+14*
>> RMPRNAME RMPOLF0A+8, HEADERB+14*, NAME+1*, NAME+2, NAME+3
RMPRPRIN NAME+1!
RMPRTFLG RMPOLF0A+7*, EXIT!, CUM+5*
RMPRVIEW NAME+1!
>> RMQUIT QUED+1*, QUED+2
>> RMREC CUM+6*, CUM+7, CUM+8
RMSTART RMPOLF0A+11*, EXIT+2!
RTN EXIT!
RV EXIT+2!, NAME+5*, NAME+6*
STATNID HEADER+2*, HEADER+3, HEADER+4!, HEADERB+2*, HEADERB+3, HEADERB+4!
TAB EXIT+2!, NAME+6*
U QUED+4, QUED+5, QUED+6, CUM+2, CUM+3, CUM+4, CUM+7, CUM+8, HEADER1+5, HEADER1+6
, HEADER1+7, HEADER1+8, HEADER+2, HEADER+6, HEADER+7, HEADER2+3, HEADER2+4, HEADER2+5, HEADER2+6, HEADERB+2
, HEADERB+6, HEADERB+7, NAME+2, NAME+6, SETALL+2
>> VADM(1 HEADER+3, HEADER+6, HEADER+7, HEADERB+3, HEADERB+6, HEADERB+7, HEADERB+12
>> VADM(5 EXIT+2!, NAME+2
>> VALMBCK EXIT+8*
>> VAPA(1 HEADER+5, HEADERB+5
>> VAPA(2 HEADER+6, HEADERB+6
>> VAPA(4 HEADER+6, HEADER+7, HEADERB+6, HEADERB+7
>> VAPA(5 HEADER+6, HEADER+7, HEADERB+6, HEADERB+7
>> VAPA(6 HEADER+6, HEADER+7, HEADERB+6, HEADERB+7
X EXIT+2!, SETALL*
>> Y RMPOLF0A+8*, CUM+10*, SETALL+1, SETALL+2
ZI EXIT!
ZTDESC PRINT+3*, QUEUE~
ZTIO PRINT+4*, EXIT+2!
>> ZTQUEUED QUED+1, EXIT+5
>> ZTREQ EXIT+5*
ZTRTN PRINT+3*, QUEUE~
ZTSAVE RMPOLF0A+9!, PRINT+4!, QUEUE~
ZTSAVE("JOBTIM" PRINT+4*
ZTSAVE("RMPODATE" PRINT+4*
ZTSAVE("RMPODT" PRINT+4*
ZTSAVE("RMPOLCD" PRINT+4*
ZTSAVE("RMPOXITE" PRINT+4*
ZTSAVE("RMPRNAME" PRINT+4*
ZTSK EXIT+2!, QUEUE+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