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

Package: PCE Patient Care Encounter

Routine: PXRRFDP


Information

PXRRFDP ;ISL/PKR - Final sort and print of frequency of diagnosis report. ;05/17/2018

Source Information

Source file <PXRRFDP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
PCE Patient Care Encounter 4 EXIT^PXRRFDD  (FACNE,HDR,OSCAT,PAGE,PECLASS)^PXRRGPRT  (EOR,EXIT)^PXRRGUT  $$ABBRV^PXRRPECU  
Kernel 3 $$S^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  $$MAX^XLFMTH  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Lexicon Utility 1 $$IMPDATE^LEXU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXRRFDSD  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
PROCESS ;
PROCSS2
MAXP
NFAC
NINFO
NPRV ;
NVACODE ;
NLOC
NTOTICD
NICD9
DIAGCAT ;
NTOTDC
NDC
END ;
EXIT ;
DHEAD(NEWPAGE) ;
DCHEAD(NEWPAGE) ;
HEAD(NEWPAGE) ;

External References

Name Field # of Occurrence
$$S^%ZTLOAD NFAC+9
$$ICDDATA^ICDXCODE NICD9+9
$$IMPDATE^LEXU PRINT+12
EXIT^PXRRFDD NFAC+9
FACNE^PXRRGPRT END+2
HDR^PXRRGPRT PROCSS2+5
OSCAT^PXRRGPRT PROCSS2+46
PAGE^PXRRGPRT DHEAD+2, DHEAD+3, DCHEAD+1, DCHEAD+2, HEAD+2, HEAD+3
PECLASS^PXRRGPRT PROCSS2+48
EOR^PXRRGUT EXIT+2
EXIT^PXRRGUT EXIT+1
$$ABBRV^PXRRPECU NLOC+8, NLOC+13
$$FMADD^XLFDT PROCSS2
$$FMTE^XLFDT PROCSS2+8, PROCSS2+9, PROCSS2+23, PROCSS2+27, PROCSS2+31
$$MAX^XLFMTH NLOC+28, DHEAD+6, DCHEAD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Criteria for Frequency of Diagnoses Report"
  • Line Location: PROCSS2+6
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter diagnoses:",?C1S,$P(PXRRFDDC,U,2)
  • Line Location: PROCSS2+7
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter date range:",?C1S,BD," through ",ED
  • Line Location: PROCSS2+10
Function Call: WRITE
  • Prompt: !,?INDENT,"Selected encounters:",?C1S,"ALL"
  • Line Location: PROCSS2+12
Function Call: WRITE
  • Prompt: !,?INDENT,"Selected Providers:",?C1S,$P(PXRRPRSC,U,2)
  • Line Location: PROCSS2+14
Function Call: WRITE
  • Prompt: !,?INDENT,$P(PXRRLCSC,U,2)
  • Line Location: PROCSS2+17
Function Call: WRITE
  • Prompt: !,?INDENT,"Encounter type:",?C1S,PXRRETYP
  • Line Location: PROCSS2+18
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," to ",PXRRMAXA
  • Line Location: PROCSS2+22
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED
  • Line Location: PROCSS2+24
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,PXRRMINA," or more"
  • Line Location: PROCSS2+26
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,ED," or before"
  • Line Location: PROCSS2+28
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,"Up to ",PXRRMAXA
  • Line Location: PROCSS2+30
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient date of birth:",?C1S,BD," through ",ED
  • Line Location: PROCSS2+32
Function Call: WRITE
  • Prompt: !,?INDENT,"Patient age range:",?C1S,"ALL"
  • Line Location: PROCSS2+33
Function Call: WRITE
  • Prompt: !?INDENT,"Patient ",RACE,":",?C1S,$P(PXRRRACE(1),U,2)
  • Line Location: PROCSS2+39
Function Call: WRITE
  • Prompt: !,?C1S,$P(PXRRRACE(IC),U,2)
  • Line Location: PROCSS2+40
Function Call: WRITE
  • Prompt: !?INDENT,"Patient race(s):",?C1S,"ALL"
  • Line Location: PROCSS2+41
Function Call: WRITE
  • Prompt: !?INDENT,"Patient sex:",?C1S,$P(PXRRSEX,U,2)
  • Line Location: PROCSS2+43
Function Call: WRITE
  • Prompt: !?INDENT,"Patient sex:",?C1S,"BOTH"
  • Line Location: PROCSS2+44
Function Call: WRITE
  • Prompt: !!,?INDENT,"Maximum number of diagnoses to be displayed: ",PXRRDMAX
  • Line Location: MAXP+0
Function Call: WRITE
  • Prompt: !!,?INDENT,"Total number of Encounters meeting the selection criteria:",?C1S,$J(ETOT,LEN)
  • Line Location: NLOC+29
Function Call: WRITE
  • Prompt: !,?INDENT,TEMP,?C1S,$J(DTOT,LEN)
  • Line Location: NLOC+30
Function Call: WRITE
  • Prompt: !,?INDENT,"Diagnoses/Encounter ratio:",?C1S,$J(RATIO,LEN,2)
  • Line Location: NLOC+32
Function Call: WRITE
  • Prompt: !," ",$P(ICDDATA,U,2),?11,$E($P(ICDDATA,U,4),1,60),?72,$J($FN(TEMP,",",0),7)
  • Line Location: NICD9+10
Function Call: WRITE
  • Prompt: !!,"CANNOT CONTINUE, File 80.3 Major Diagnostic Category is corrupted!"
  • Line Location: NDC+13
Function Call: WRITE
  • Prompt: !,"^ICM(",DCIEN,",0) is missing."
  • Line Location: NDC+14
Function Call: WRITE
  • Prompt: !,"Please contact customer service for help."
  • Line Location: NDC+15
Function Call: WRITE
  • Prompt: !,?INDENT,$J(NUM,5),".",?C1S,$P(^ICM(DCIEN,0),U,1),?C2S,TEMP
  • Line Location: NDC+16
Function Call: WRITE
  • Prompt: !,?INDENT,$J(NUM,5),".",?C1S,"Unknown",?C2S,TEMP
  • Line Location: NDC+17
Function Call: WRITE
  • Prompt: !!,?INDENT,PXRRDMAX," Most Frequent ICD-",$S(DOCOUNT=1:"9",1:"10")," Diagnoses:"
  • Line Location: DHEAD+10
Function Call: WRITE
  • Prompt: !," Code",?11,"Description",?72,"Freq."
  • Line Location: DHEAD+11
Function Call: WRITE
  • Prompt: !," --------",?11,DASH60,?72,"-------"
  • Line Location: DHEAD+12
Function Call: WRITE
  • Prompt: !!,?INDENT,PXRRDMAX," Most Frequent ICD-",$S(DOCOUNT=1:"9",1:"10")," Diagnostic Categories:"
  • Line Location: DCHEAD+9
Function Call: WRITE
  • Prompt: !,?C1HS,"Diagnostic Category",?C2HS,"Frequency"
  • Line Location: DCHEAD+10
Function Call: WRITE
  • Prompt: !,?C1S,"------------------------------",?C2HS,"---------"
  • Line Location: DCHEAD+11
Function Call: WRITE
  • Prompt: !!,"___________________________________________________________________"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"Facility: ",FACPNAME
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,PLOCNAM,$P(HLOC,U,1)_" (",$P(HLOC,U,3)_")"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,$E(TEMP,1,CMAX)
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !," ",$E(TEMP,CMAX+1,LEN)
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,TEMP
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,"Person Class (Occupation+Specialty+Subspecialty): "
  • Line Location: HEAD+17
Function Call: WRITE
  • Prompt: !,?INDENT,$E(PCLASS,1,CMAX)
  • Line Location: HEAD+20
Function Call: WRITE
  • Prompt: !,?(INDENT+1),$E(PCLASS,CMAX+1,LEN)
  • Line Location: HEAD+21
Function Call: WRITE
  • Prompt: !,?INDENT,PCLASS
  • Line Location: HEAD+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICM - [#80.3] NDC+12, NDC+16
^XTMP( NFAC+1, NINFO, NPRV+1, NVACODE+1, NLOC, NLOC+3, NLOC+23, NLOC+26, NTOTICD, NICD9
, NTOTDC, NDC

Label References

Name Line Occurrences
DCHEAD NDC+6
DHEAD NICD9+6
DIAGCAT NTOTICD+1
END PRINT+15, PRINT+17
EXIT NLOC+17, NLOC+20, NICD9+7, NDC+7, NDC+12
HEAD NLOC+16, NLOC+19
MAXP PROCSS2+11
NDC NDC+18
NFAC NINFO+1
NICD9 NICD9+11
NINFO NPRV+2
NLOC NTOTDC+1, NDC+21
NPRV NVACODE+2
NTOTDC NDC+1
NTOTICD NICD9+1
NVACODE NLOC+1
PROCESS PRINT+16
PROCSS2 PRINT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS PRINT+1~, PROCSS2+15*, PROCSS2+16*
BD PRINT+1~, PROCSS2+8*, PROCSS2+10, PROCSS2+23*, PROCSS2+24, PROCSS2+31*, PROCSS2+32
BMARG PRINT+1~, PROCSS2+1*, NLOC+19, NICD9+4, NDC+4, DHEAD+3, DCHEAD+2, HEAD+3
BYLOC PRINT+3~, NINFO+3*, NINFO+4*, HEAD+8
BYPC PRINT+3~, NINFO+5*, NINFO+6*, NLOC+12, HEAD+16
BYPRV PRINT+3~, NINFO+7*, NINFO+8*, NLOC+6, HEAD+9
C1E PRINT+1~, DIAGCAT+1*, DCHEAD+6
C1HS PRINT+1~, NLOC+35*, DIAGCAT+2*, DCHEAD+10
C1S PRINT+1~, PROCSS2+2*, PROCSS2+7, PROCSS2+10, PROCSS2+12, PROCSS2+14, PROCSS2+18, PROCSS2+22, PROCSS2+24, PROCSS2+26
, PROCSS2+28, PROCSS2+30, PROCSS2+32, PROCSS2+33, PROCSS2+39, PROCSS2+40, PROCSS2+41, PROCSS2+43, PROCSS2+44, NLOC+18*
, NLOC+29, NLOC+30, NLOC+32, NLOC+34*, DIAGCAT+1*, NDC+16, NDC+17, DCHEAD+11
C2E PRINT+1~, NLOC+34*, NDC+8, DHEAD+7, DCHEAD+8*
C2HS PRINT+1~, NLOC+35*, DCHEAD+7*, DCHEAD+10, DCHEAD+11
C2S PRINT+1~, NDC+8*, NDC+16, NDC+17
C3E PRINT+1~, NICD9+8, DHEAD+9*
C3HS PRINT+1~, DHEAD+8*
C3S PRINT+1~, NICD9+8*
CMAX PRINT+1~, MAXP+2*, HEAD+12, HEAD+13, HEAD+14, HEAD+19, HEAD+20, HEAD+21
DASH60 DHEAD+1~*, DHEAD+12
DCIEN PRINT+3~, NTOTDC+3*, NDC*, NDC+1, NDC+12, NDC+14, NDC+16
DCSTR PRINT+2~, DIAGCAT+5*, NTOTDC, NDC
>> DGTOT10 PRINT+15, PROCESS+2
>> DIAGTOT PRINT+15, PROCESS+1
DOCOUNT PRINT+3~, PRINT+15*, PRINT+16*, PROCESS+1, PROCESS+2, PROCSS2, NLOC+25, NLOC+37, DIAGCAT+5, DHEAD+10
, DCHEAD+9
DONE PRINT+3~, PROCSS2+4*, NLOC+17, NLOC+20, NICD9+7, NDC+7, DHEAD+4, DCHEAD+3, HEAD+4
DT PROCSS2+21, PROCSS2+29, PROCSS2+31
DTOT PRINT+3~, NLOC+26*, NLOC+27*, NLOC+28, NLOC+30, NLOC+31
ED PRINT+3~, PROCSS2+9*, PROCSS2+10, PROCSS2+23*, PROCSS2+24, PROCSS2+27*, PROCSS2+28, PROCSS2+31*, PROCSS2+32
ETOT PRINT+3~, NLOC+23*, NLOC+24*, NLOC+28, NLOC+29, NLOC+31
FACILITY PRINT+4~, MAXP+8*, NFAC+1*, NFAC+2, NFAC+4, NFAC+6, NPRV+1, NVACODE+1, NLOC, NLOC+3
FACPNAME PRINT+4~, NFAC+6*, HEAD+7
FOUND PRINT+3~
HEAD PRINT+2~, NLOC+15*, NICD9+3*, NDC+3*, DHEAD+5, DHEAD+13*, DCHEAD+4, DCHEAD+12*, HEAD+5, HEAD+23*
HLOC PRINT+3~, NVACODE+4*, NLOC*, NLOC+1, NLOC+3, HEAD+8
IC PRINT+3~, PRINT+4~, PROCSS2+40*, NFAC+4*, NFAC+5
ICD9IEN PRINT+3~, NTOTICD+3*, NICD9*, NICD9+1, NICD9+9
ICDDATA PRINT+4~, NICD9+9*, NICD9+10
ICDDATE PRINT+4~, PROCSS2*, NICD9+9
ICDSTR PRINT+5~, NLOC+37*, NTOTICD, NICD9
IMPDATE PRINT+4~, PRINT+12*, PROCSS2
INDENT PRINT+1~, PROCSS2+2*, PROCSS2+7, PROCSS2+10, PROCSS2+12, PROCSS2+14, PROCSS2+17, PROCSS2+18, PROCSS2+22, PROCSS2+24
, PROCSS2+26, PROCSS2+28, PROCSS2+30, PROCSS2+32, PROCSS2+33, PROCSS2+39, PROCSS2+41, PROCSS2+43, PROCSS2+44, PROCSS2+46
, PROCSS2+48, MAXP, NLOC+18, NLOC+29, NLOC+30, NLOC+32, NLOC+34, NLOC+35, DIAGCAT+1, NDC+16
, NDC+17, END+2, DHEAD+10, DCHEAD+9, HEAD+18, HEAD+20, HEAD+21, HEAD+22
INFOTYPE PRINT+4~, NFAC*, NFAC+1, NINFO*, NINFO+1, NINFO+3, NINFO+5, NINFO+7, NPRV+1, NVACODE+1
, NLOC, NLOC+3
IO PRINT+10
IOSL NLOC+19, NICD9+4, NDC+4, DHEAD+3, DCHEAD+2, HEAD+3
LEN PRINT+2~, NLOC+28*, NLOC+29, NLOC+30, NLOC+32, DHEAD+6*, DHEAD+7, DCHEAD+5*, DCHEAD+6, HEAD+1~
, HEAD+11*, HEAD+12, HEAD+14, HEAD+18*, HEAD+19, HEAD+21
LOCPNAM PRINT+4~
MID PRINT+1~, DHEAD+7*, DHEAD+8, DHEAD+9, DCHEAD+6*, DCHEAD+7, DCHEAD+8
NEWPAGE PRINT+4~, NICD9+4*, NICD9+5*, NICD9+6, NDC+4*, NDC+5*, NDC+6, DHEAD~, DHEAD+2, DCHEAD~
, DCHEAD+1, HEAD~, HEAD+2
>> NFAC NFAC+4
>> NRACE PROCSS2+38, PROCSS2+40
NUM PRINT+2~, NLOC+37*, NICD9+2*, NICD9+3, NICD9+11, DIAGCAT+4*, NDC+2*, NDC+3, NDC+16, NDC+17
, NDC+18
PAGE PRINT+2~, PROCSS2+2*, PROCSS2+5
PCLASS PRINT+4~, NLOC+8*, NLOC+9*, NLOC+13*, HEAD+10, HEAD+18, HEAD+20, HEAD+21, HEAD+22
>> PLOCNAM MAXP+5*, MAXP+6*, HEAD+8
PRV PRINT+4~, NINFO+10*, NPRV+1*, NPRV+2, NVACODE+1, NLOC, NLOC+3, NLOC+7, HEAD+10
>> PXRRBDT PROCSS2+8
>> PXRRCS PROCSS2+15
>> PXRRDMAX MAXP, NICD9+11, NDC+18, DHEAD+10, DCHEAD+9
>> PXRRDOB PROCSS2+20
>> PXRRDOBE PROCSS2+21, PROCSS2+23, PROCSS2+27, PROCSS2+29
>> PXRRDOBS PROCSS2+21, PROCSS2+23, PROCSS2+25, PROCSS2+31
>> PXRRECAT PROCSS2+11
>> PXRREDT PROCSS2+9
>> PXRRETYP PROCSS2+18
>> PXRRFAC( NFAC+4, NFAC+5*
>> PXRRFACN( NFAC+6
>> PXRRFDDC PROCSS2+7, NLOC+21
>> PXRRLCSC PROCSS2+17, MAXP+4, MAXP+5, MAXP+6
>> PXRRMAXA PROCSS2+22, PROCSS2+30
>> PXRRMINA PROCSS2+22, PROCSS2+26
>> PXRRPRSC PROCSS2+14, PROCSS2+48
>> PXRRRACE PROCSS2+35
>> PXRRRACE( PROCSS2+40
>> PXRRRACE(1 PROCSS2+39
>> PXRRSCAT PROCSS2+46
>> PXRRSEX PROCSS2+43
>> PXRRXTMP NFAC+1, NINFO, NPRV+1, NVACODE+1, NLOC, NLOC+3, NLOC+23, NLOC+26, NTOTICD, NICD9
, NTOTDC, NDC
RACE PROCSS2+36~, PROCSS2+37*, PROCSS2+38*, PROCSS2+39
RATIO PRINT+5~, NLOC+31*, NLOC+32, DHEAD+5, DCHEAD+4
STOIND PRINT+5~, NLOC+3*, NLOC+23, NLOC+26, NTOTICD, NICD9, NTOTDC, NDC
TEMP PRINT+5~, NLOC+7*, NLOC+8, NLOC+21*, NLOC+22*, NLOC+30, NTOTICD+2*, NICD9+8, NICD9+10, NTOTDC+2*
, NDC+8, NDC+16, NDC+17, DHEAD+6, DHEAD+9, DCHEAD+5, DCHEAD+8, HEAD+1~, HEAD+10*, HEAD+11
, HEAD+13, HEAD+14, HEAD+15
TOTAL PRINT+5~, NLOC+36*, NTOTICD*, NTOTICD+1, NTOTICD+2, NICD9, DIAGCAT+3*, NTOTDC*, NTOTDC+1, NTOTDC+2
, NDC
TOTSTR PRINT+5~, NLOC+25*, NLOC+26
U PROCSS2+7, PROCSS2+14, PROCSS2+17, PROCSS2+39, PROCSS2+40, PROCSS2+43, PROCSS2+48, NFAC+4, NFAC+5, NFAC+6
, NLOC+7, NLOC+21, NICD9+10, NDC+16, HEAD+8, HEAD+10
VACODE PRINT+5~, NPRV+4*, NVACODE+1*, NVACODE+2, NLOC, NLOC+3, NLOC+13
>> ZTREQ PRINT+8*
>> ZTSTOP NFAC+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All