Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 NOW^%DTC  $$EXTERNAL^DILFD  EN1^DIP  ^DIR  
Kernel 1 KILL^XUSCLEAN  
Prosthetics 1 HOSITE^RMPOUTL0  
Registration 1 ^VADPT  

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

External References

Name Field # of Occurrence
NOW^%DTC LI+3
$$EXTERNAL^DILFD IREA+3
EN1^DIP LI+13
^DIR FROM+5, TO+5, LI+14
HOSITE^RMPOUTL0 SITE+1
^VADPT SSN+2
KILL^XUSCLEAN EXIT

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
Routine Call
  • DIR
  • Line Location:
    • FROM+5
    • TO+5
    • LI+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665 - [#665] Classic Fileman Calls,  EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LI+3
^DPT - [#2] SSN+1
^RMPR(665 - [#665] EDT+1, IREA+1, IREA+2, SDT+1
^TMP($J EXIT!

Label References

Name Line Occurrences
$$DATE LI+7, EDT+1, SDT+1
EXIT FROM+5, TO+5
FROM TO+5
TO TO+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LI+3
>> BY LI+6*
>> COUNT LI+1*, SSN+4*, DIOEND+1*, DIOEND+2
>> D0 EDT+1, IREA+1, IREA+2, SDT+1, SSN+1, SSN+2
DA LI+1!
DASH LI+1!, LI+2*
>> DFN SSN+2*
>> DHD LI+9*
>> DIC LI+6*
>> DIOEND LI+10*
DIR FROM+1!, TO+1!, LI+14!
DIR("?" FROM+4*, TO+4*
DIR("A" FROM+2*, TO+2*
DIR("B" FROM+3*, TO+3*
DIR(0 FROM+1*, TO+1*, LI+14*
>> DIS(0 LI+8*
>> DTOUT FROM+5, TO+5
>> DUOUT FROM+5, TO+5
>> FDT FROM+7*, TO+9, RPTHDR+4
>> FLDS LI+11*
>> FLDS(2 LI+12*
FMD DATE~, DATE+1
>> FR LI+7*
>> FRMDT FROM+7*, TO+8, LI+7
>> L LI+1*
>> PAGE LI+1*, RPTHDR+1*, RPTHDR+2
RA RPTHDR+1~*, RPTHDR+2
>> RMEND LI+1*, LI+14
RMMSG IREA+2~
>> RMPO("NAME" RPTHDR+1
>> RMPODCNT SITE+2*, SSN+1*, SSN+4*, DIOEND+3*, DIOEND+4
>> RMPOEXP SSN+1*, SSN+4
>> RMPORPT LI+1*, LI+14
>> RMPOXITE SITE+1
RMPR EXIT~
RMPRSITE EXIT~
>> RPTDT LI+4*, RPTHDR+2
>> TDT TO+10*, RPTHDR+4
>> TO LI+7*
>> TODT TO+10*, LI+7
U EDT+1, IREA+2, SDT+1
VA SSN+1!
VA("PID" SSN+3
VADM SSN+1!
>> X EDT+1*, IREA+2*, IREA+3*, IREA+4*, SDT+1*, SSN+3*, SSN+4*
>> Y FROM+7, TO+8, TO+10, LI+3*, LI+4
>> Y(0 FROM+6, FROM+7, TO+6, TO+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All