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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PXRRPAPR

Package: PCE Patient Care Encounter

Routine: PXRRPAPR


Information

PXRRPAPR ;ISL/PKR - Patient activity report print. ;8/26/97

Source Information

Source file <PXRRPAPR.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 $$S^%ZTLOAD  ($$FMDIFF,$$FMTE)^XLFDT  $$MAX^XLFMTH  
PCE Patient Care Encounter 2 (FACNE,HDR)^PXRRGPRT  (EOR,EXIT)^PXRRGUT  
VA Fileman 2 $$EXTERNAL^DILFD  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXRRPAPI  

Entry Points

Name Comments DBIA/ICR reference
SET ;Set up print fields
PHEAD(NEWPAGE) ;Print the patient header
NFAC
PPRINT ;Print the information for a patient.
NPAT ;
MHEAD(NEWPAGE) ;Write the main report header.
EXIT ;
NHLOC
HEAD(NEWPAGE) ;
PAGE ;form feed to new page
FINAL ;Check for facilities that were listed but had no encounters.
SHEAD(INDENT,TEXT,FC) ;Write a section header. INDENT is the number

External References

Name Field # of Occurrence
$$S^%ZTLOAD NHLOC+11
$$EXTERNAL^DILFD PPRINT+20
^DIR PAGE+4
FACNE^PXRRGPRT FINAL+2
HDR^PXRRGPRT PAGE+8
EOR^PXRRGUT EXIT+2
EXIT^PXRRGUT EXIT+1
$$FMDIFF^XLFDT PPRINT+59
$$FMTE^XLFDT MHEAD+5, MHEAD+6, MHEAD+8, MHEAD+9, MHEAD+11, MHEAD+12, PPRINT+21, PPRINT+56, PPRINT+57, PPRINT+94
, PPRINT+112
$$MAX^XLFMTH HEAD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?CEN,"Facility: ",FACPNAME
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,?CEN,"Location: ",HLOCNAM,CSTOP
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !!,"Criteria for Patient Activity Report"
  • Line Location: MHEAD+3
Function Call: WRITE
  • Prompt: !?INDENT,"Location selection criteria:",?35,$P(PXRRLCSC,U,2)
  • Line Location: MHEAD+4
Function Call: WRITE
  • Prompt: !?INDENT,"Patient appointment date range:",?35,SD," through ",ED
  • Line Location: MHEAD+7
Function Call: WRITE
  • Prompt: !?INDENT,"Patient activity date range:",?35,SD," through ",ED
  • Line Location: MHEAD+10
Function Call: WRITE
  • Prompt: !?INDENT,"Future appointment date range:",?35,SD," through ",ED
  • Line Location: MHEAD+13
Function Call: WRITE
  • Prompt: !,"____________________________________________________________________"
  • Line Location: MHEAD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,"_______________________________________________________________________________"
  • Line Location: PHEAD+7
Function Call: WRITE
  • Prompt: !,NAME,?C2S,$P(TEMP,U,1),?C3S,$P(TEMP,U,9)
  • Line Location: PHEAD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PHEAD+9
Function Call: WRITE
  • Prompt: T1
  • Line Location: PHEAD+11
Function Call: WRITE
  • Prompt: " ",T1
  • Line Location: PHEAD+13
Function Call: WRITE
  • Prompt: " ",T1
  • Line Location: PHEAD+15
Function Call: WRITE
  • Prompt: " ",T1
  • Line Location: PHEAD+17
Function Call: WRITE
  • Prompt: " ",T1
  • Line Location: PHEAD+19
Function Call: WRITE
  • Prompt: " ",T1
  • Line Location: PHEAD+21
Function Call: WRITE
  • Prompt: !!,?C1HS,"Appointment criteria met:"
  • Line Location: PPRINT+10
Function Call: WRITE
  • Prompt: !!,?C1HS,"Appointment criteria met:"
  • Line Location: PPRINT+25
Function Call: WRITE
  • Prompt: !,?C1S,DATE,?C2S,HLOCNAM,?C3S,POV(PV)
  • Line Location: PPRINT+26
Function Call: WRITE
  • Prompt: !!,?C1HS,"Future Appointments:"
  • Line Location: PPRINT+33
Function Call: WRITE
  • Prompt: !!,?C1HS,"Future Appointments:"
  • Line Location: PPRINT+42
Function Call: WRITE
  • Prompt: !,?C1S,DATE,?C2S,LOC,?C3S,TYPE
  • Line Location: PPRINT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRINT+51
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRINT+73
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRINT+76
Function Call: WRITE
  • Prompt: !,?C1S,DATE," - ",DISDATE,?C2S,$P(TEMP,U,1),?C3S,"LOS: ",LOS
  • Line Location: PPRINT+77
Function Call: WRITE
  • Prompt: !,?C1S," Last Tr. Specialty: ",?C2S,$P(TEMP,U,2)
  • Line Location: PPRINT+78
Function Call: WRITE
  • Prompt: ?C3S,"Last Prov: ",$P($P(TEMP,U,3),",",1)
  • Line Location: PPRINT+79
Function Call: WRITE
  • Prompt: !,?C1S,"Admitting Diagnosis: ",?C2S,$P(TEMP,U,4)
  • Line Location: PPRINT+80
Function Call: WRITE
  • Prompt: !,?(C1S+15),"DXLS:",?C2S,DXLS
  • Line Location: PPRINT+82
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRINT+90
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRINT+98
Function Call: WRITE
  • Prompt: !?C1S,DATE,?C2S,$P(TEMP,U,2)
  • Line Location: PPRINT+99
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRINT+106
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRINT+116
Function Call: WRITE
  • Prompt: !,?C1S,DATE,?C2S,$P(TEMP,U,1),?C3S,$P(TEMP,U,2)," ",$P(TEMP,U,4)
  • Line Location: PPRINT+117
Function Call: WRITE
  • Prompt: !,?INDENT,HEAD
  • Line Location: SHEAD+16
Function Call: WRITE
  • Prompt: !,?IC,TEXT
  • Line Location: SHEAD+19
Routine Call
  • DIR
  • Line Location:
    • PAGE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.98 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] NHLOC+5
^SC - [#44] NHLOC+4
^XTMP( NFAC, NHLOC, NPAT+1, NPAT+3, NPAT+4, PHEAD+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30
, PPRINT+35, PPRINT+36, PPRINT+47, PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103
, PPRINT+108, PPRINT+110, PPRINT+111

Label References

Name Line Occurrences
EXIT NHLOC+11, NPAT+6
FINAL NFAC+1
HEAD NHLOC+8, PHEAD+1
MHEAD PXRRPAPR+25, NHLOC+7
NFAC NHLOC+1
NHLOC NPAT+2
NPAT NPAT+7
PAGE FINAL+1, HEAD+1, HEAD+2, MHEAD+1, MHEAD+2
PHEAD PPRINT+4, PPRINT+8, PPRINT+24, PPRINT+31, PPRINT+41, PPRINT+49, PPRINT+71, PPRINT+88, PPRINT+97, PPRINT+104
, PPRINT+115
PPRINT NPAT+5
SHEAD PPRINT+51, PPRINT+73, PPRINT+90, PPRINT+98, PPRINT+106, PPRINT+116

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMARG PXRRPAPR+3~, PXRRPAPR+23*, PXRRPAPR+24*, FINAL+1, HEAD+2, MHEAD+2, PPRINT+2, PPRINT+8, PPRINT+23, PPRINT+31
, PPRINT+40, PPRINT+49, PPRINT+70, PPRINT+88, PPRINT+96, PPRINT+104, PPRINT+114
C1HS PXRRPAPR+3~, PXRRPAPR+16*, PXRRPAPR+17, PPRINT+10, PPRINT+25, PPRINT+33, PPRINT+42, PPRINT+51, PPRINT+73, PPRINT+90
, PPRINT+98, PPRINT+106, PPRINT+116
C1S PXRRPAPR+3~, PXRRPAPR+17*, PXRRPAPR+18, PPRINT+26, PPRINT+43, PPRINT+77, PPRINT+78, PPRINT+80, PPRINT+82, PPRINT+99
, PPRINT+117
C2S PXRRPAPR+3~, PXRRPAPR+18*, PXRRPAPR+19, PHEAD+3~, PHEAD+5*, PHEAD+6, PHEAD+8, PPRINT+26, PPRINT+43, PPRINT+77
, PPRINT+78, PPRINT+80, PPRINT+82, PPRINT+99, PPRINT+117
C3S PXRRPAPR+3~, PXRRPAPR+19*, PHEAD+3~, PHEAD+6*, PHEAD+8, PPRINT+26, PPRINT+43, PPRINT+77, PPRINT+79, PPRINT+117
CEN HEAD+5~, HEAD+7*, HEAD+8, HEAD+9
CLIEN PXRRPAPR+4~, NHLOC+4*, NHLOC+5
CSTOP PXRRPAPR+4~, NHLOC+5*, HEAD+9
DATE PXRRPAPR+4~, PPRINT+1~, PPRINT+21*, PPRINT+22*, PPRINT+26, PPRINT+37*, PPRINT+43, PPRINT+56*, PPRINT+62*, PPRINT+77
, PPRINT+94*, PPRINT+95*, PPRINT+99, PPRINT+112*, PPRINT+113*, PPRINT+117
DFN PXRRPAPR+4~, NPAT+4*, PHEAD+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30, PPRINT+35, PPRINT+36, PPRINT+47
, PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103, PPRINT+108, PPRINT+110, PPRINT+111
DIR PAGE+4!
DIR(0 PAGE+2*
>> DIROUT PAGE+5
DISDATE PXRRPAPR+4~, PPRINT+57*, PPRINT+58*, PPRINT+67*, PPRINT+77
DONE PXRRPAPR+4~, PXRRPAPR+13*, NPAT+6, HEAD+3, PAGE+5*, PHEAD+2, PPRINT+5, PPRINT+9, PPRINT+12, PPRINT+25
, PPRINT+26, PPRINT+27, PPRINT+32, PPRINT+35, PPRINT+42, PPRINT+43, PPRINT+44, PPRINT+50, PPRINT+54, PPRINT+72
, PPRINT+75, PPRINT+84, PPRINT+89, PPRINT+92, PPRINT+98, PPRINT+99, PPRINT+100, PPRINT+105, PPRINT+108, PPRINT+116
, PPRINT+117
DT PPRINT+66
>> DTOUT PAGE+5
>> DUOUT PAGE+5
DXLS PPRINT+1~, PPRINT+81*, PPRINT+82
ED PXRRPAPR+4~, MHEAD+6*, MHEAD+7, MHEAD+9*, MHEAD+10, MHEAD+12*, MHEAD+13
EM PPRINT+1~, PPRINT+20
FACIEN PXRRPAPR+5~, NFAC+3*, NFAC+6, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30, PPRINT+35, PPRINT+36, PPRINT+47
, PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103, PPRINT+108, PPRINT+110, PPRINT+111
FACILITY PXRRPAPR+5~, SET+1*, NFAC*, NFAC+1, NFAC+3, NFAC+4, NHLOC, NPAT+1, NPAT+3, NPAT+4
FACPNAME PXRRPAPR+5~, NFAC+4*, HEAD+6, HEAD+8
FC SHEAD~, SHEAD+12, SHEAD+15
FILLEND SHEAD+3~, SHEAD+8*, SHEAD+11
FILLLEN SHEAD+3~, SHEAD+7*, SHEAD+8, SHEAD+9
HEAD PXRRPAPR+3~, PXRRPAPR+21*, NFAC+2*, HEAD+4, HEAD+10*, PAGE+9*, SHEAD+3~, SHEAD+10*, SHEAD+12*, SHEAD+13*
, SHEAD+14, SHEAD+15*, SHEAD+16
HLOC PXRRPAPR+5~, NFAC+9*, NHLOC*, NHLOC+1, NHLOC+2, NHLOC+3, NPAT+1, NPAT+3, NPAT+4
HLOCIEN PXRRPAPR+5~, NHLOC+3*, NHLOC+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30, PPRINT+35, PPRINT+36, PPRINT+47
, PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103, PPRINT+108, PPRINT+110, PPRINT+111
HLOCNAM PXRRPAPR+5~, NHLOC+2*, HEAD+6, HEAD+9, PPRINT+26
IC PXRRPAPR+6~, NFAC+6*, NFAC+7, PPRINT+1~, PPRINT+11*, PPRINT+12*, PPRINT+13, PPRINT+21, PPRINT+34*, PPRINT+35*
, PPRINT+36, PPRINT+53*, PPRINT+54*, PPRINT+55, PPRINT+56, PPRINT+59, PPRINT+61, PPRINT+69, PPRINT+91*, PPRINT+92*
, PPRINT+93, PPRINT+94, PPRINT+107*, PPRINT+108*, PPRINT+110, PPRINT+111, PPRINT+112, SHEAD+3~, SHEAD+11*, SHEAD+14*
, SHEAD+18*, SHEAD+19
INDENT PXRRPAPR+3~, PXRRPAPR+15*, PXRRPAPR+16, FINAL+2, MHEAD+4, MHEAD+7, MHEAD+10, MHEAD+13, SHEAD~, SHEAD+6
, SHEAD+8, SHEAD+11, SHEAD+16
IO PXRRPAPR+12, PXRRPAPR+23, PAGE+1
IO(0 PXRRPAPR+23, PAGE+1
IOF PAGE+6
IOM HEAD+7, SHEAD+6, SHEAD+18
IOSL FINAL+1, HEAD+2, MHEAD+2, PPRINT+2, PPRINT+8, PPRINT+23, PPRINT+31, PPRINT+40, PPRINT+49, PPRINT+70
, PPRINT+88, PPRINT+96, PPRINT+104, PPRINT+114
IOST PXRRPAPR+23, PAGE+1
JC PXRRPAPR+6~, PPRINT+1~, PPRINT+55*, PPRINT+57, PPRINT+59, PPRINT+66, PPRINT+69, PPRINT+109*, PPRINT+110*, PPRINT+111
LEN HEAD+5~, HEAD+6*, HEAD+7
LINELEN SHEAD+3~, SHEAD+6*, SHEAD+7, SHEAD+14
LOC PXRRPAPR+6~, PPRINT+38*, PPRINT+43
LOS PXRRPAPR+6~, PPRINT+59*, PPRINT+63*, PPRINT+68*, PPRINT+77
NAME PXRRPAPR+7~, NHLOC+13*, NPAT+1*, NPAT+2, NPAT+3, NPAT+4, PHEAD+5, PHEAD+8
NEEDBL PPRINT+48~, PPRINT+52*, PPRINT+74*, PPRINT+76, PPRINT+83*
NEWPAGE HEAD~, HEAD+1, MHEAD~, MHEAD+1, PHEAD~, PHEAD+1, PPRINT+1~, PPRINT+2*, PPRINT+3*, PPRINT+4
>> NFAC NFAC+6
PAGE PXRRPAPR+3~, PXRRPAPR+22*, PAGE+7*, PAGE+8
POV PXRRPAPR+7~
POV( PPRINT+20*, PPRINT+26
PTEXT SHEAD+3~, SHEAD+4*, SHEAD+5, SHEAD+13
PV PPRINT+1~, PPRINT+19*, PPRINT+20, PPRINT+26
>> PXRRBADT MHEAD+5
>> PXRRBCDT MHEAD+8
>> PXRRBFDT MHEAD+11
>> PXRREADT MHEAD+6
>> PXRRECDT MHEAD+9
>> PXRREFDT MHEAD+12
>> PXRRFAC( NFAC+6, NFAC+7*
>> PXRRLCNP PXRRPAPR+25, NHLOC+7
>> PXRRLCSC MHEAD+4
>> PXRRXTMP NFAC, NHLOC, NPAT+1, NPAT+3, NPAT+4, PHEAD+4, PPRINT+7, PPRINT+12, PPRINT+13, PPRINT+30
, PPRINT+35, PPRINT+36, PPRINT+47, PPRINT+54, PPRINT+55, PPRINT+69, PPRINT+87, PPRINT+92, PPRINT+93, PPRINT+103
, PPRINT+108, PPRINT+110, PPRINT+111
SD PXRRPAPR+7~, MHEAD+5*, MHEAD+7, MHEAD+8*, MHEAD+10, MHEAD+11*, MHEAD+13
SSN PXRRPAPR+7~, NPAT+3*, NPAT+4
ST PPRINT+1~
STATUS PXRRPAPR+7~
STATUS(0 PXRRPAPR+27*
T1 PHEAD+3~, PHEAD+10*, PHEAD+11, PHEAD+12*, PHEAD+13, PHEAD+14*, PHEAD+15, PHEAD+16*, PHEAD+17, PHEAD+18*
, PHEAD+19, PHEAD+20*, PHEAD+21
TEMP PXRRPAPR+7~, PHEAD+3~, PHEAD+4*, PHEAD+8, PHEAD+10, PHEAD+12, PHEAD+14, PHEAD+16, PHEAD+18, PHEAD+20
, PPRINT+13*, PPRINT+19, PPRINT+36*, PPRINT+37, PPRINT+38, PPRINT+39, PPRINT+69*, PPRINT+77, PPRINT+78, PPRINT+79
, PPRINT+80, PPRINT+81, PPRINT+93*, PPRINT+99, PPRINT+111*, PPRINT+117
TEXT SHEAD~, SHEAD+4, SHEAD+18, SHEAD+19
TEXTLEN SHEAD+3~, SHEAD+5*, SHEAD+7
>> TYPE PPRINT+39*, PPRINT+43
U NFAC+3, NFAC+4, NFAC+6, NFAC+7, NHLOC+2, NHLOC+3, NHLOC+4, NHLOC+5, MHEAD+4, PHEAD+8
, PHEAD+10, PHEAD+12, PHEAD+14, PHEAD+16, PHEAD+18, PHEAD+20, PPRINT+19, PPRINT+37, PPRINT+38, PPRINT+39
, PPRINT+77, PPRINT+78, PPRINT+79, PPRINT+80, PPRINT+81, PPRINT+99, PPRINT+117
>> ZTREQ PXRRPAPR+10*
>> ZTSTOP NHLOC+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All