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

Package: Prosthetics

Routine: RMPORPD


Information

RMPORPD ;(NG)/DG/CAP/HINES CIOFO/HNC -PRESCRIPTION EXPIRE DATE ACTIVE PATIENTS ; 5/19/00 9:12am

Source Information

Source file <RMPORPD.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: RPTDT,?(40-($L(RA)/2)),RA,?68,"Page: "_PAGE
  • Line Location: RPTHDR+2
Function Call: WRITE
  • Prompt: !?20,"Prescription Expiration Date",!,"Date Current",?55,"'*' patient is deceased",!,"Prescription"
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: !?1,"Expires",?11,"Name",?35,"SSN",?41,"Primary Item",?73,"Active"
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: !,"==========",?11,"=======================",?35,"====",?41,"==============================",?72,"========",!
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: !!,?47,"Total Patients: ",COUNT
  • Line Location: DIOEND+2
Function Call: WRITE
  • Prompt: !,?38,"Total Deceased Patients: ",RMPODCNT
  • Line Location: DIOEND+4

FileMan Files Accessed Via FileMan Db Call

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