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

Call Graph

Call Graph

Call Graph Total: 6

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

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

External References

Name Field # of Occurrence
NOW^%DTC LI+3
EN1^DIP LI+17
^DIR LI+18
HOSITE^RMPOUTL0 SITE+1
^VADPT PRESORT+6, SSN+2
KILL^XUSCLEAN EXIT+1

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
Routine Call
  • DIR
  • Line Location:
    • LI+18

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LI+3
^DPT - [#2] DATE+1
^PRC(441 - [#441] PITEM+7
^RMPR(661 - [#661] PITEM+6
^RMPR(665 - [#665] ACTDT+1, PITEM+3, PITEM+4, PRESORT+4, PRESORT+5, RXDT+2, RXDT+3
^TMP("RMPO" EXIT+1!, PRESORT+2!, PRESORT+7*

Label References

Name Line Occurrences
$$DATE RXDT+4
$$RXDT PRESORT+7
PRESORT LI+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LI+3
>> BY(0 LI+7*
>> COUNT LI+2*, CNT+1*, DIOEND+1*, DIOEND+2
D0 ACTDT+1, CNT+1, CNT+2, DATE+1, PITEM+3, PITEM+4, PRESORT+1~, PRESORT+4*, PRESORT+5*, PRESORT+6
PRESORT+7, RXDT+2, RXDT+3, SSN+2
D2 PRESORT+1~, PRESORT+3*, PRESORT+4*, PRESORT+5
DFN PRESORT+1~, PRESORT+6*, SSN+2*
>> DHD LI+10*
>> DHIT LI+9*
>> DIC LI+6*
>> DIOEND LI+11*
DIR LI+18!
DIR(0 LI+18*
>> DIS(0 LI+8*
E PITEM+1~, PITEM+2*, PITEM+3, PITEM+8*
>> FLDS LI+12*
>> FLDS(1 LI+13*
>> FLDS(2 LI+14*
>> FLDS(3 LI+15*
>> FLDS(4 LI+16*
FMD DATE~, DATE+2
>> FR LI+7*
>> L LI+7*
>> L(0 LI+7*
MODE RXDT~, RXDT+4
>> PAGE LI+2*, RPTHDR+1*, RPTHDR+2
>> PDT PITEM+4*, PITEM+5, PITEM+6
PITM PITEM+1~, PITEM+2*, PITEM+3*, PITEM+4
RA RPTHDR+1~*, RPTHDR+2
>> RMEND LI+2*, LI+18
>> RMPO("NAME" RPTHDR+1
>> RMPODCNT LI+1*, DATE+1*, DIOEND+3*, DIOEND+4
RMPOEXP DATE+1~*, DATE+2
>> RMPORPT LI+2*, LI+18
>> RMPOXITE SITE+1
RMPR EXIT+1~
RMPRDA RXDT+1~*, RXDT+2*, RXDT+3
RMPRDAT RXDT+1~, RXDT+3*
RMPRDT RXDT+1~*, RXDT+3*, RXDT+4
RMPRSITE EXIT+1~
>> RPTDT LI+4*, RPTHDR+2
U ACTDT+1, PITEM+5, PITEM+6, PITEM+7, RXDT+3
VA SSN+1!
VA("PID" SSN+3
VADM PRESORT+6!, SSN+1!
VADM(1 PRESORT+7
VAPA PRESORT+6!
WHO LI+1~*, CNT+1, CNT+2*
>> X ACTDT+1*, ACTDT+2*, ACTDT+3, PITEM+2*, PITEM+6*, PITEM+7*, PITEM+8*, PITEM+9, RXDT+4*, RXDT+5
, SSN+3*, SSN+4
>> Y LI+3*, LI+4
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