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

Call Graph

Call Graph Total: 6

Package Total Call Graph
PCE Patient Care Encounter 5 (FACNE,HDR,OLRCRIT,OPRCRIT,PAGE)^PXRRGPRT  (EOR,EXIT)^PXRRGUT  $$ABBRV^PXRRPECU  FMTPCL^PXRRPRSP  (GTOTAL,HEAD,RETSOC,WFACTOT,WGTOTAL)^PXRRWLPF  
Kernel 1 $$MAX^XLFMTH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXRRWLSA  

Entry Points

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

External References

Name Field # of Occurrence
FACNE^PXRRGPRT DONE+7
HDR^PXRRGPRT PXRRWLPR+64
OLRCRIT^PXRRGPRT PXRRWLPR+66
OPRCRIT^PXRRGPRT PXRRWLPR+67
PAGE^PXRRGPRT DONE+2, DONE+5
EOR^PXRRGUT EXIT+3
EXIT^PXRRGUT EXIT+2
$$ABBRV^PXRRPECU NSTO+26
FMTPCL^PXRRPRSP NSTO+28
GTOTAL^PXRRWLPF NSTO+9
HEAD^PXRRWLPF NSTO+10, NSTO+36
RETSOC^PXRRWLPF PXRRWLPR+35, PXRRWLPR+49
WFACTOT^PXRRWLPF NSTO+8
WGTOTAL^PXRRWLPF DONE+4
$$MAX^XLFMTH PXRRWLPR+40

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( PXRRWLPR+21, PXRRWLPR+27, NFAC, NSTO, NSTO+2, NSTO+3, NSTO+4, NSTO+5, NSTO+33, NSTO+34
, NSTO+35, NSTO+44, NSTO+49, NSTO+54, NSTO+59, NSTO+65, NSTO+69, NSTO+71, NSTO+73, NSTO+75
, NSTO+84, NSTO+88, NSTO+92, NSTO+96, NCSUB+8, NCSUB+14, NCSUB+17, NCSUB+19

Label References

Name Line Occurrences
DONE NFAC+1, NSTO+11, NSTO+37
EXIT DONE+1, DONE+3, DONE+6
NCSUB NSTO+7
NCSUM NSTO+46, NSTO+47, NSTO+51, NSTO+52, NSTO+56, NSTO+57, NSTO+61, NSTO+62, NSTO+64, NSTO+67
, NSTO+78, NSTO+86, NSTO+90, NSTO+94, NSTO+98
NFAC NSTO+1
NSTO NSTO+100

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD NCSUM~, NCSUM+3
BMARG PXRRWLPR+3~, PXRRWLPR+63*, NSTO+36, DONE+2, DONE+5
BY PXRRWLPR+5~, PXRRWLPR+27*, NSTO+14, NSTO+24
BYCLOC PXRRWLPR+5~, PXRRWLPR+30*, PXRRWLPR+31*, NSTO+20
C1HS PXRRWLPR+3~, PXRRWLPR+97*, NSTO+39
C1S PXRRWLPR+3~, PXRRWLPR+70*, PXRRWLPR+71, PXRRWLPR+75, PXRRWLPR+77, PXRRWLPR+98*, PXRRWLPR+99
C2HS PXRRWLPR+3~, PXRRWLPR+99*, PXRRWLPR+100, PXRRWLPR+101, NSTO+41, NSTO+81, NSTO+82
C2S PXRRWLPR+3~, PXRRWLPR+71*, PXRRWLPR+72, PXRRWLPR+76, PXRRWLPR+80, PXRRWLPR+91, PXRRWLPR+100*
C3HS PXRRWLPR+3~, PXRRWLPR+101*, PXRRWLPR+102
C3S PXRRWLPR+3~, PXRRWLPR+72*, PXRRWLPR+102*, NSTO+45, NSTO+85
DONE PXRRWLPR+3~, PXRRWLPR+24*, NSTO+11, NSTO+37, DONE+1, DONE+3, DONE+6
EMCODE PXRRWLPR+5~, PXRRWLPR+35
EMCODE( PXRRWLPR+39, PXRRWLPR+40, PXRRWLPR+41*, PXRRWLPR+88, PXRRWLPR+89
EMCODE(0 PXRRWLPR+45*, PXRRWLPR+82
EMIND PXRRWLPR+5~
EMIND( PXRRWLPR+43*, NCSUB+8
EMIND(0 NCSUB+4*
EMIND(1 NSTO+44
EMIND(2 NSTO+49
EMIND(3 NSTO+54
EMIND(4 NSTO+59
EMMAX PXRRWLPR+5~, PXRRWLPR+36*, PXRRWLPR+40*, PXRRWLPR+71
FACILITY PXRRWLPR+6~, PXRRWLPR+111*, NFAC*, NFAC+1, NFAC+6, NFAC+8, NSTO, NSTO+2, NSTO+3, NSTO+4
, NSTO+5, NSTO+33, NSTO+34, NSTO+35, NSTO+44, NSTO+49, NSTO+54, NSTO+59, NSTO+65, NSTO+69
, NSTO+71, NSTO+73, NSTO+75, NSTO+84, NSTO+88, NSTO+92, NSTO+96, NCSUB+8, NCSUB+14, NCSUB+17
, NCSUB+19
FACPNAME PXRRWLPR+6~, NFAC+8*
FTCON PXRRWLPR+13~, NFAC+3*, NSTO+56
FTCP PXRRWLPR+15~, NFAC+4*, NSTO+86
FTEMP NCSUB+2~, NCSUB+8*, NCSUB+9, NCSUB+14*, NCSUB+15, NCSUB+17*, NCSUB+18, NCSUB+19*, NCSUB+20
FTEST PXRRWLPR+13~, NFAC+3*, NSTO+51
FTFLD NCSUB+2~, NCSUB+7*, NCSUB+9, NCSUB+13*, NCSUB+15
FTFLDS NCSUB+2~, NCSUB+5*, NCSUB+7, NCSUB+11*, NCSUB+13
FTINP PXRRWLPR+13~, NFAC+3*, NSTO+3*
FTNEW PXRRWLPR+13~, NFAC+3*, NSTO+46
FTNOCPT PXRRWLPR+13~, NFAC+3*, NSTO+67, NCSUB+20*
FTNOEM PXRRWLPR+13~, NFAC+3*, NSTO+64
FTOP PXRRWLPR+13~, NFAC+3*, NSTO+4*
FTOTH PXRRWLPR+13~, NFAC+3*, NSTO+61
FTSCH PXRRWLPR+15~, NFAC+4*, NSTO+94
FTSSN PXRRWLPR+13~, NFAC+3*, NSTO+2*
FTTEN PXRRWLPR+15~, NFAC+4*, NSTO+90
FTTENC PXRRWLPR+13~, NFAC+3*, NSTO+78, NCSUB+18*
FTTVIS PXRRWLPR+15~, NSTO+5*
FTUNS PXRRWLPR+15~, NFAC+4*, NSTO+98
GTCON PXRRWLPR+14~, PXRRWLPR+107*
GTCP PXRRWLPR+16~, PXRRWLPR+108*
GTEST PXRRWLPR+14~, PXRRWLPR+107*
GTINP PXRRWLPR+14~, PXRRWLPR+107*
GTNEW PXRRWLPR+14~, PXRRWLPR+107*
GTNOCPT PXRRWLPR+14~, PXRRWLPR+107*
GTNOEM PXRRWLPR+14~, PXRRWLPR+107*
GTNS PXRRWLPR+16~, PXRRWLPR+108*
GTOP PXRRWLPR+14~, PXRRWLPR+107*
GTOTH PXRRWLPR+14~, PXRRWLPR+107*
GTSCH PXRRWLPR+16~, PXRRWLPR+108*
GTSSN PXRRWLPR+14~, PXRRWLPR+107*
GTTEN PXRRWLPR+16~, PXRRWLPR+108*
GTTENC PXRRWLPR+14~, PXRRWLPR+107*, DONE+4
GTTVIS PXRRWLPR+16~, PXRRWLPR+108*
GTUNS PXRRWLPR+16~, PXRRWLPR+108*
HEAD PXRRWLPR+3~, PXRRWLPR+62*, PXRRWLPR+103*
IC PXRRWLPR+5~, PXRRWLPR+37*, PXRRWLPR+39*, PXRRWLPR+40, PXRRWLPR+41, PXRRWLPR+43, PXRRWLPR+82*, PXRRWLPR+85, PXRRWLPR+87, PXRRWLPR+88
, PXRRWLPR+89*, NFAC+6*, NFAC+7, NSTO+81*
INDENT PXRRWLPR+4~, PXRRWLPR+61*, PXRRWLPR+66, PXRRWLPR+67, PXRRWLPR+97, PXRRWLPR+104*, NSTO+17*, NSTO+23*, NSTO+38, DONE+7
IO PXRRWLPR+23
IOSL NSTO+36, DONE+2, DONE+5
JC PXRRWLPR+5~, PXRRWLPR+38*, PXRRWLPR+42*, PXRRWLPR+43, PXRRWLPR+44
>> JJ NCSUB+6*, NCSUB+7, NCSUB+8, NCSUB+12*, NCSUB+13, NCSUB+14
KC PXRRWLPR+5~, PXRRWLPR+83*, PXRRWLPR+85, PXRRWLPR+90, PXRRWLPR+91, PXRRWLPR+92*
LOCOPRV PXRRWLPR+6~, NSTO+13*, NSTO+15*, NSTO+21*, NSTO+29*, NSTO+38
NEM PXRRWLPR+6~, PXRRWLPR+44*
>> NFAC NFAC+6
NOCOUNT PXRRWLPR+6~, PXRRWLPR+110*, NSTO+16*, NSTO+22*, NSTO+46, NSTO+47, NSTO+51, NSTO+52, NSTO+56, NSTO+57
, NSTO+61, NSTO+62, NSTO+64, NSTO+67, NSTO+78, NSTO+86, NSTO+90, NSTO+94, NSTO+98, NCSUM~
, NCSUM+2
NOEM PXRRWLPR+6~, NSTO+35*, NSTO+63, NSTO+64
PAGE PXRRWLPR+4~, PXRRWLPR+62*, PXRRWLPR+64
PCL1 PXRRWLPR+7~, NSTO+27!, NSTO+28, NSTO+29
PCL2 PXRRWLPR+7~, NSTO+27!, NSTO+28, NSTO+40
POV PXRRWLPR+7~, PXRRWLPR+49
POV( PXRRWLPR+91, PXRRWLPR+92
POV("" PXRRWLPR+83
POV(1 PXRRWLPR+51*
POV(2 PXRRWLPR+52*
POV(3 PXRRWLPR+53*
POV(4 PXRRWLPR+54*
POVIND PXRRWLPR+7~
POVIND( NCSUB+14
POVIND(1 PXRRWLPR+55*, NSTO+84
POVIND(2 PXRRWLPR+56*, NSTO+88
POVIND(3 PXRRWLPR+57*, NSTO+92
POVIND(4 PXRRWLPR+58*, NSTO+96
POVMAX PXRRWLPR+7~, PXRRWLPR+50*
PRVLOC PXRRWLPR+7~, NSTO+30*, NSTO+39
>> PXRRFAC( NFAC+6, NFAC+7*
>> PXRRFACN( NFAC+8
>> PXRRLCSC PXRRWLPR+30
>> PXRRMPR PXRRWLPR+21*, PXRRWLPR+73, PXRRWLPR+94, NSTO+7
>> PXRRPRLL NSTO+12*, NSTO+30, NSTO+39
>> PXRRWLSC PXRRWLPR+66, PXRRWLPR+67
>> PXRRXTMP PXRRWLPR+21, PXRRWLPR+27, NFAC, NSTO, NSTO+2, NSTO+3, NSTO+4, NSTO+5, NSTO+33, NSTO+34
, NSTO+35, NSTO+44, NSTO+49, NSTO+54, NSTO+59, NSTO+65, NSTO+69, NSTO+71, NSTO+73, NSTO+75
, NSTO+84, NSTO+88, NSTO+92, NSTO+96, NCSUB+8, NCSUB+14, NCSUB+17, NCSUB+19
STOIND PXRRWLPR+8~, NFAC+10*, NSTO*, NSTO+1, NSTO+15, NSTO+20, NSTO+21, NSTO+25, NSTO+28, NSTO+29
, NSTO+30, NSTO+33, NSTO+34, NSTO+35, NSTO+44, NSTO+49, NSTO+54, NSTO+59, NSTO+65, NSTO+69
, NSTO+71, NSTO+73, NSTO+75, NSTO+84, NSTO+88, NSTO+92, NSTO+96
STOP PXRRWLPR+8~, PXRRWLPR+81*, PXRRWLPR+84, PXRRWLPR+85*
TEMP PXRRWLPR+8~, NSTO+26*, NSTO+28, NSTO+44*, NSTO+45, NSTO+46, NSTO+47, NSTO+49*, NSTO+50, NSTO+51
, NSTO+52, NSTO+54*, NSTO+55, NSTO+56, NSTO+57, NSTO+59*, NSTO+60, NSTO+61, NSTO+62, NSTO+65*
, NSTO+66, NSTO+67, NSTO+69*, NSTO+70, NSTO+71*, NSTO+72, NSTO+73*, NSTO+74, NSTO+75*, NSTO+76
, NSTO+84*, NSTO+85, NSTO+86, NSTO+88*, NSTO+89, NSTO+90, NSTO+92*, NSTO+93, NSTO+94, NSTO+96*
, NSTO+97, NSTO+98
TOTCPT PXRRWLPR+8~, NSTO+33*
TOTEM PXRRWLPR+8~, NSTO+42*, NSTO+47, NSTO+52, NSTO+57, NSTO+62
TOTENC PXRRWLPR+8~, NSTO+34*, NSTO+68, NSTO+78
U PXRRWLPR+30, PXRRWLPR+41, PXRRWLPR+45, PXRRWLPR+51, PXRRWLPR+52, PXRRWLPR+53, PXRRWLPR+54, PXRRWLPR+66, PXRRWLPR+67, PXRRWLPR+88
, PXRRWLPR+91, NFAC+6, NFAC+7, NFAC+8, NSTO+15, NSTO+20, NSTO+21, NSTO+25, NSTO+28, NSTO+29
, NSTO+30
VACODE PXRRWLPR+9~, NSTO+25*, NSTO+26
VAR NCSUM~, NCSUM+3*
>> ZTREQ PXRRWLPR+19*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All