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
Print Page as PDF
Routine: PXRRWLPR

Package: PCE Patient Care Encounter

Routine: PXRRWLPR


Information

PXRRWLPR ;ISL/PKR - Print the encounter summary report. ;12/1/97

Source Information

Source file <PXRRWLPR.m>

Entry Points

Name Comments DBIA/ICR reference
NFAC
NSTO
DONE ;
EXIT ;
NCSUM(VAR,ADD,NOCOUNT) ;No Count summation function. Only add to VAR if
; NOCOUNT is false.
NCSUB ;Subtract multiple provider totals from facility totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Criteria for Encounter Summary Report"
  • Line Location: PXRRWLPR+65
Function Call: WRITE
  • Prompt: !,?24,"Abbreviations Used in this Report"
  • Line Location: PXRRWLPR+74
Function Call: WRITE
  • Prompt: !,?C1S,"E&M Codes"
  • Line Location: PXRRWLPR+75
Function Call: WRITE
  • Prompt: ?C2S,"Appointment Type"
  • Line Location: PXRRWLPR+76
Function Call: WRITE
  • Prompt: !,?C1S,"---------"
  • Line Location: PXRRWLPR+77
Function Call: WRITE
  • Prompt: ?C2S,"----------------"
  • Line Location: PXRRWLPR+80
Function Call: WRITE
  • Prompt: !
  • Line Location: PXRRWLPR+86
Function Call: WRITE
  • Prompt: $P(EMCODE(IC),U,2),"=",$P(EMCODE(IC),U,1)
  • Line Location: PXRRWLPR+88
Function Call: WRITE
  • Prompt: ?C2S,$P(POV(KC),U,2),"=",$P(POV(KC),U,1)
  • Line Location: PXRRWLPR+91
Function Call: WRITE
  • Prompt: !,"___________________________________________________________________"
  • Line Location: PXRRWLPR+93
Function Call: WRITE
  • Prompt: !!,?INDENT,LOCOPRV
  • Line Location: NSTO+38
Function Call: WRITE
  • Prompt: !,?C1HS,PRVLOC
  • Line Location: NSTO+39
Function Call: WRITE
  • Prompt: !," ",PCL2
  • Line Location: NSTO+40
Function Call: WRITE
  • Prompt: !,?C2HS,"PCE:"
  • Line Location: NSTO+41
Function Call: WRITE
  • Prompt: ?C3S,$J(TEMP,6)
  • Line Location: NSTO+45
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+50
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+55
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+60
Function Call: WRITE
  • Prompt: $J(NOEM,6)
  • Line Location: NSTO+63
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+66
Function Call: WRITE
  • Prompt: $J(TOTENC,7)
  • Line Location: NSTO+68
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+70
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+72
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+74
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+76
Function Call: WRITE
  • Prompt: !,?C2HS
  • Line Location: NSTO+81
Function Call: WRITE
  • Prompt: "-"
  • Line Location: NSTO+81
Function Call: WRITE
  • Prompt: !,?C2HS,"SCH:"
  • Line Location: NSTO+82
Function Call: WRITE
  • Prompt: ?C3S,$J(TEMP,6)
  • Line Location: NSTO+85
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+89
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+93
Function Call: WRITE
  • Prompt: $J(TEMP,6)
  • Line Location: NSTO+97
Info |  Source |  Entry Points |  Interaction Calls