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

Package: Prosthetics

Routine: RMPORIP


Information

RMPORIP ;(NG)/DG/CAP/HINES CIOFO/HNC -INACTIVE HOME OXYGEN PATIENTS ; 5/18/00 9:35am

Source Information

Source file <RMPORIP.m>

Entry Points

Name Comments DBIA/ICR reference
SITE ; Initialize site variables
FROM ; Ask starting date/oldest inactive date
TO ; Ask ending/newest inactivation date
LI ; List the sought patients
EXIT
DATE(FMD) ;
EDT ;*** INACTIVATION DATE
IREA ;*** INACTIVE REASON
RPTHDR ;*** REPORT HEADER
SDT ;*** GET START DATE (USE INITIAL OXYGEN RX DATE)
SSN ;*** GET SSN
DIOEND ;TOTAL PRINT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ("_Y(0)_")"
  • Line Location: FROM+6
Function Call: WRITE
  • Prompt: " ("_Y(0)_")",!
  • Line Location: TO+6
Function Call: WRITE
  • Prompt: !,"Ending date must NOT be earlier than "_FDT_".",!
  • Line Location: TO+9
Function Call: WRITE
  • Prompt: RPTDT,?(40-($L(RA)/2)),RA,?68,"Page: "_PAGE
  • Line Location: RPTHDR+2
Function Call: WRITE
  • Prompt: !?5,"Inactive Home Oxygen Patients",?50,"'*' denotes deceased patient",!
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: !?13,"Date Range: ",FDT," to ",TDT,!
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: !,"Patient",?21,"SSN",?28,"Active",?40,"Inactive",?51,"Inactive Reason"
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: !,"===================",?21,"====",?27,"==========",?39,"========== ========================",!
  • Line Location: RPTHDR+6
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,  EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call