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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PXRRADUT

Package: PCE Patient Care Encounter

Routine: PXRRADUT


Information

PXRRADUT ;ISL/PKR - Age and date utilities for PCE reports. ;6/26/97

Source Information

Source file <PXRRADUT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 HELP^%DTC  ^DIR  ^DIWP  
Kernel 1 ($$DT,$$FMTE)^XLFDT  
PCE Patient Care Encounter 1 HELP^PXRRADUT  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
PCE Patient Care Encounter 6 PXRRADUT  PXRRFDD  PXRRLCD  PXRRPAD  PXRRPRD  PXRRWLD  

Entry Points

Name Comments DBIA/ICR reference
BDHELP(HTEXT,TYPE) ;Write the beginning date help.
EDHELP(HTEXT,TYPE) ;Write the ending date help.
FDR(BDATE,EDATE,TYPE,BHTEXT,EHTEXT) ;Get a future date range.
FBDATE ;Select the beginning date.
PDR(BDATE,EDATE,TYPE,BHTEXT,EXTEXT) ;Get a past date range.
AGEHELP(TYPE) ;Write the age selection help.
GDR(BDATE,EDATE,TYPE,BHTEXT,EHTEXT) ;Get a general date range.
GEDATE ;Select the ending date.
PEDATE ;Select the ending date.
PBDATE ;Select the beginning date.
FEDATE ;Select the ending date.
DOBFA(AGE) ;Given an age in years return the corresponding date of birth.
AGE(TYPE,NEWLINE) ;Get a patient age.
HELP(HTEXT) ;General help text routine. Write out the text in the HTEXT
GBDATE ;Select the beginning date.

External References

Name Field # of Occurrence
HELP^%DTC HELP+15
^DIR AGE+8, FBDATE+9, FEDATE+5, GBDATE+8, GEDATE+5, PBDATE+8, PEDATE+5
^DIWP HELP+8
HELP^PXRRADUT BDHELP+1, BDHELP+6, EDHELP+1, EDHELP+6
$$DT^XLFDT FBDATE+5
$$FMTE^XLFDT FBDATE+5, FEDATE+3, GEDATE+3, PEDATE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: !!,"This is the ",TYPE," patient age for selecting encounters."
  • Line Location: AGEHELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FBDATE+8
Function Call: WRITE
  • Prompt: $C(7)," ?? Enter exact date"
  • Line Location: FBDATE+13
Function Call: WRITE
  • Prompt: $C(7)," ?? Enter exact date"
  • Line Location: FEDATE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: GBDATE+7
Function Call: WRITE
  • Prompt: $C(7)," ?? Enter exact date"
  • Line Location: GBDATE+12
Function Call: WRITE
  • Prompt: $C(7)," ?? Enter exact date"
  • Line Location: GEDATE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",0,IC,0)
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PBDATE+7
Function Call: WRITE
  • Prompt: $C(7)," ?? Enter exact date"
  • Line Location: PBDATE+12
Function Call: WRITE
  • Prompt: $C(7)," ?? Enter exact date"
  • Line Location: PEDATE+10
Routine Call
  • DIR
  • Line Location:
    • AGE+8
    • FBDATE+9
    • FEDATE+5
    • GBDATE+8
    • GEDATE+5
    • PBDATE+8
    • PEDATE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J HELP+4!, HELP+11, HELP+12, HELP+13!

Label References

Name Line Occurrences
FBDATE FBDATE+13, FEDATE+8
FEDATE FEDATE+10
GBDATE GBDATE+12, GEDATE+8
GEDATE GEDATE+10
PBDATE PBDATE+12, PEDATE+8
PEDATE PEDATE+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE DOBFA~, DOBFA+2, DOBFA+3
BDATE FDR~, FBDATE+12*, FEDATE+1, FEDATE+3, GDR~, GBDATE+11*, GEDATE+1, GEDATE+3, PDR~, PBDATE+11*
, PEDATE+1, PEDATE+3
BDHTEXT BDHELP+3~, BDHELP+6
BDHTEXT(1 BDHELP+4*
BDHTEXT(2 BDHELP+5*
BHTEXT FDR~, GDR~, PDR~
DIR AGE+8!, FBDATE+9!, FEDATE+5!, GBDATE+8!, GEDATE+5!, PBDATE+8!, PEDATE+5!
DIR("?" AGE+5*, FBDATE+6*, FEDATE+3*, GBDATE+5*, GEDATE+3*, PBDATE+5*, PEDATE+3*
DIR("??" AGE+6*, FBDATE+7*, FEDATE+4*, GBDATE+6*, GEDATE+4*, PBDATE+6*, PEDATE+4*
DIR("A" AGE+4*, FBDATE+4*, FEDATE+2*, GBDATE+4*, GEDATE+2*, PBDATE+4*, PEDATE+2*
DIR("B" FBDATE+5*
DIR(0 AGE+3*, FBDATE+3*, FEDATE+1*, GBDATE+3*, GEDATE+1*, PBDATE+3*, PEDATE+1*
DIROUT AGE+9, FBDATE+2!, FBDATE+10, FEDATE+6, FEDATE+11!, GBDATE+2!, GBDATE+9, GEDATE+6, GEDATE+11!, PBDATE+2!
, PBDATE+9, PEDATE+6, PEDATE+11!
DIRUT AGE+2!, FBDATE+2!, FEDATE+11!, GBDATE+2!, GEDATE+11!, PBDATE+2!, PEDATE+11!
DIWF HELP+2~, HELP+3*
DIWL HELP+2~, HELP+3*
DIWR HELP+2~, HELP+3*
DOB DOBFA+1~, DOBFA+3*, DOBFA+4
DT DOBFA+3, FBDATE+3, PBDATE+3, PEDATE+1
DTOUT AGE+2!, AGE+9*, AGE+10, FBDATE+2!, FBDATE+10*, FBDATE+11, FEDATE+6*, FEDATE+7, FEDATE+11!, GBDATE+2!
, GBDATE+9*, GBDATE+10, GEDATE+6*, GEDATE+7, GEDATE+11!, PBDATE+2!, PBDATE+9*, PBDATE+10, PEDATE+6*, PEDATE+7
, PEDATE+11!
DUOUT AGE+2!, AGE+10, FBDATE+2!, FBDATE+11, FEDATE+8, FEDATE+11!, GBDATE+2!, GBDATE+10, GEDATE+8, GEDATE+11!
, PBDATE+2!, PBDATE+10, PEDATE+8, PEDATE+11!
EDATE FDR~, FEDATE+9*, GDR~, GEDATE+9*, PDR~, PEDATE+9*
EDHTEXT EDHELP+3~, EDHELP+6
EDHTEXT(1 EDHELP+4*
EDHTEXT(2 EDHELP+5*
EHTEXT FDR~, GDR~
EXTEXT PDR~
HTEXT BDHELP~, BDHELP+1, BDHELP+2, EDHELP~, EDHELP+1, EDHELP+2, HELP~
HTEXT( HELP+6, HELP+7
IC HELP+2~, HELP+5*, HELP+6*, HELP+7, HELP+10*, HELP+11*, HELP+12
NEWLINE AGE~, AGE+7
TYPE AGE~, AGE+4, AGEHELP~, AGEHELP+1, BDHELP~, BDHELP+4, EDHELP~, EDHELP+4, FDR~, FBDATE+4
, FEDATE+2, GDR~, GBDATE+4, GEDATE+2, PDR~, PBDATE+4, PEDATE+2
U AGE+6, FBDATE+7, FEDATE+4, GBDATE+6, GEDATE+4, PBDATE+6, PEDATE+4
X AGE+1~, FBDATE+1~, GBDATE+1~, HELP+7*, PBDATE+1~
Y AGE+1~, AGE+11, FBDATE+1~, FBDATE+12, FBDATE+13, FEDATE+9, FEDATE+10, GBDATE+1~, GBDATE+11, GBDATE+12
, GEDATE+9, GEDATE+10, PBDATE+1~, PBDATE+11, PBDATE+12, PEDATE+9, PEDATE+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All