RMPV0RMPRUTIL ; OIT/JDA - Adapted from RMPRUTIL; Dec 01, 2024@21:44:43
Source file <RMPV0RMPRUTIL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RMPRUTIL | ;PHX/JLT,DLG,HPL,RVD-UTILITY PROGRAMS FOR PROSTHETICS ;10/19/1993
|
|
| 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.
|
| FileNo | Call Tags |
|---|---|
| ^RMPR(665 - [#665] | Classic Fileman Calls |
| ^RMPR(669.9 - [#669.9] | Classic Fileman Calls |
