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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.98 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call