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

Package: Prosthetics

Routine: RMPRUTIL


Information

RMPRUTIL ;PHX/JLT,DLG,HPL,RVD-UTILITY PROGRAMS FOR PROSTHETICS ;10/19/1993

Source Information

Source file <RMPRUTIL.m>

Entry Points

Name Comments DBIA/ICR reference
GETPAT ;MAIN ENTRY POINT FOR PATIENT LOOKUPS
COMP ;LOOKUP FOR ADDRESS ON PATIENT 10-2319
EDT ;ENTER/EDIT 2421 AND NO-FORM
FILE
ENT
NFRM ;S DR=DR_"16;8TYPE OF TRANSACTION;9PATIENT CATEGORY;S RMPRDIS=+$P(^RMPR(664,DA(1),1,DA,0),U,10);S Y=$S(RMPRDIS=4:""@1"",1:""@2"");@2;3QTY;2;4UNIT OF ISSUE;11////C;"
TMC ;GET HOURS AND MINUTES BETWEEN START AND CLOSE DATES
TXT
CHK ;ASK TO ADD DUPLICATE TO 2421 AND NO FORM
LKP ;DISPLAY DUPLICATE AND SINGLE ITEMS ON 2421 AND NO FORM
STA() ;CONVERTS RMPR("STA") INTO EXTERNAL FORMAT
ROU(RMPRSITE) ;Return mail routing code for a site
ROUX
STATN(RSTA) ;CONVERT POINTER TO STATION TO NAME OF STATION
DIC660 ;REVERSE DIC LOOK UP FOR 660.
REV ; Added for reverse look-up..
LST
PROC
EXIT
WRI ;WRITE REVERSE LISTING
DIS
KILLG ;kill & set 'G' cross reference in 660.
121 ;set 121 as the mail routing symbol.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"PATIENT IS DECEASED. DATE OF DEATH WAS ",$P(VADM(6),U,2)
  • Line Location: GETPAT+11
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: LKP+1
Function Call: WRITE
  • Prompt: !?5,RDA,?10,$P(^PRC(441,$P(^RMPR(661,$P(RD(RDA),U),0),U),0),U,2)," $",$P(RD(RDA),U,3)
  • Line Location: LKP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DIC660+1
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:"
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !!,"***PATIENT HAS NO 2319 RECORD!!!!"
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !!,"***** NO SELECTION MADE!!!"
  • Line Location: LST+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LST+4
Function Call: WRITE
  • Prompt: !!,"***** NO SELECTION MADE!!!"
  • Line Location: LST+5
Function Call: WRITE
  • Prompt: !,$C(7),"****INVALID RESPONSE, Please choose a NUMBER within the range!!!!",!
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: " ",Y," ",$S(RMDFN:$E($P(^DPT(RMDFN,0),U,1),1,20),1:"")," $",$J($P(RO,U,16),0,2)
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: !,$J(RMI,4),"> ",Y,?20,$S(RMDFN:$E($P($G(^DPT(RMDFN,0)),U,1),1,20),1:"")
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: ?41,$S($P(RO,U,26)="P":"SHIPPING",$P(RO,U,26)="D":"DELIVERY",1:"SHIPPING")
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: ?41,$S(RMIT:$E($P($G(^PRC(441,RMIT,0)),U,2),1,25),1:"")
  • Line Location: WRI+4
Function Call: WRITE
  • Prompt: ?68,"$",$J($P(RO,U,16),0,2)
  • Line Location: WRI+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: !,$C(7),"*****INVALID RESPONSE, Please choose a NUMBER within the range!!!!"
  • Line Location: DIS+2

FileMan Files Accessed Via FileMan Db Call

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