RMPORPD ;(NG)/DG/CAP/HINES CIOFO/HNC -PRESCRIPTION EXPIRE DATE ACTIVE PATIENTS ; 5/19/00 9:12am
Source file <RMPORPD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SITE | ; Set up the site variables.
|
|
LI | ; List the sought patient.
|
|
EXIT | ;
|
|
ACTDT() | ;*** ACTIVATION DATE
|
|
CNT | ;*** COUNT NAMES
|
|
DATE(FMD) | ; RMPR*3.0*179 Flag a deceased patient by attaching an '*' to SSN. ^PT(D0,.35) direct read supported by ICR #10035
|
|
PITEM() | ;*** GET PRIMARY ITEM AND ACTIVATION DATE
|
|
PRESORT | ;*** SORT BY EXPIRATION DATE
|
|
RPTHDR | ;*** REPORT HEADER
|
|
RXDT(MODE) | ;Rewrite latest expiration date determination RMPR*3.0*207
|
|
SSN() | ;*** SOCIAL SECURITY NUMBER
|
|
DIOEND | ;TOTAL PRINT
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RMPR(665 - [#665] | Classic Fileman Calls |