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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665.4 - [#665.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call