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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PXBDCPT

Package: PCE Patient Care Encounter

Routine: PXBDCPT


Information

PXBDCPT ;ISL/JVS,ESW - DISPLAY CPT ; Mar 24, 2022@23:05

Source Information

Source file <PXBDCPT.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
PCE Patient Care Encounter 9 (LOC,UNDOFF,UNDON)^PXBCC  DISCPT4^PXBDCPT  CIA^PXBDPOV  $$XLATE^PXBGPOV  NONE^PXBUTL  PRV^PXBUTL2  WRAP^PXCEVFI4  $$CSDATE^PXDXUTL  
PR^PXSELDS  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  ($$MOD,$$MODP)^ICPTMOD  
DRG Grouper 2 $$LD^ICDEX  $$ICDDATA^ICDXCODE  
Kernel 2 GSET^%ZISS  $$SENTENCE^XLFSTR  

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

Package Total Caller Graph
PCE Patient Care Encounter 4 PXBDCPT  PXBMCPT  PXBMCPT2  PXBPCPT  

Entry Points

Name Comments DBIA/ICR reference
EN0 ;---Main entry point
HEAD ;--HEADER ON LIST
ARRAY ;Set all CPT codes and modifiers into ^TMP("PXBDCPT",$J,"DSP"
DISCPT1 ;--Display the CPT Data
DISCPT2 ;--display of cpt data two columns if more than 10 entries.
DISCPT3 ;--display of cpt data three columns if more than 20 entries.
DISCPT4(SIGN) ;--Display the CPT Data
HEAD4 ;--HEADER ON LIST
BAWRITE(PXD) ;WRITE BA INFO

External References

Name Field # of Occurrence
GSET^%ZISS DISCPT2+3, DISCPT3+2
$$LD^ICDEX ARRAY+46
$$ICDDATA^ICDXCODE ARRAY+41
$$CPT^ICPTCOD ARRAY+22
$$MOD^ICPTMOD DISCPT1+19
$$MODP^ICPTMOD ARRAY+34
LOC^PXBCC DISCPT4+29
UNDOFF^PXBCC DISCPT1+6, DISCPT2+8, DISCPT3+8, HEAD4+10
UNDON^PXBCC DISCPT1+3, DISCPT2+4, DISCPT3+3, HEAD4+7
DISCPT4^PXBDCPT HEAD+11
CIA^PXBDPOV HEAD4+29, BAWRITE+7
$$XLATE^PXBGPOV ARRAY+54, BAWRITE+4
NONE^PXBUTL DISCPT1+26
PRV^PXBUTL2 HEAD+5
WRAP^PXCEVFI4 DISCPT1+20
$$CSDATE^PXDXUTL ARRAY+38
PR^PXSELDS ARRAY+47
$$SENTENCE^XLFSTR ARRAY+46

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOINHI,!,IOCUU,?(IOM-$L(HEAD))\2,HEAD,IOINLOW
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"No.",?4,"CPT CODE",?14,"QUANTITY",?25,"DESCRIPTION",?55,"PROVIDER",?75,$C(32)
  • Line Location: DISCPT1+4
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT1+5
Function Call: WRITE
  • Prompt: IOG1
  • Line Location: DISCPT2+4
Function Call: WRITE
  • Prompt: !,"NO",?4,"CPT",?10,"QUA",?14,"DESCRIPTION",?39,IOVL
  • Line Location: DISCPT2+5
Function Call: WRITE
  • Prompt: ?40,"NO",?44,"CPT",?50,"QUA",?54,"NARRATIVE"
  • Line Location: DISCPT2+6
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT2+7
Function Call: WRITE
  • Prompt: IOG0
  • Line Location: DISCPT2+20
Function Call: WRITE
  • Prompt: IOG1
  • Line Location: DISCPT3+3
Function Call: WRITE
  • Prompt: !,"NO",?4,"CPT",?10,"QUA",?14,"NARRATIVE",?25,IOVL
  • Line Location: DISCPT3+4
Function Call: WRITE
  • Prompt: ?26,"NO",?30,"CPT",?36,"QUA",?40,"NARRATIVE",?51,IOVL
  • Line Location: DISCPT3+5
Function Call: WRITE
  • Prompt: ?52,"NO",?56,"CPT",?62,"QUA",?66,"NARRATIVE"
  • Line Location: DISCPT3+6
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT3+7
Function Call: WRITE
  • Prompt: IOG0
  • Line Location: DISCPT3+21
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: DISCPT4+29
Function Call: WRITE
  • Prompt: IOINHI,!,IOCUU,?(IOM-$L(HEAD))\2,HEAD,IOINLOW
  • Line Location: HEAD4+2
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: HEAD4+3
Function Call: WRITE
  • Prompt: !,"No.",?4,"CPT CODE",?14,"QUANTITY",?25,"DESCRIPTION",?55,"PROVIDER",?75,$C(32)
  • Line Location: HEAD4+8
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: HEAD4+9
Function Call: WRITE
  • Prompt: !?4,"Ordering Provider: ",$P(^(0),U,2)
  • Line Location: HEAD4+26
Function Call: WRITE
  • Prompt: !?4,"Diagnosis "_(PX-4)_": ",$P(^(0),U,2)
  • Line Location: HEAD4+27
Function Call: WRITE
  • Prompt: !?28,$P(^(0),U,2)
  • Line Location: HEAD4+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEAD4+32
Function Call: WRITE
  • Prompt: !?4,"Ordering Provider: ",$P(PXD,U,22)
  • Line Location: BAWRITE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PXBDCPT" DISCPT4+11*, DISCPT4+12, DISCPT4+14, DISCPT4+16*, DISCPT4+18, DISCPT4+19*, DISCPT4+20*, DISCPT4+21*, DISCPT4+24*, HEAD4+19*

Label References

Name Line Occurrences
ARRAY DISCPT4+10
BAWRITE DISCPT2+16, DISCPT2+19, DISCPT3+14, DISCPT3+17, DISCPT3+20

Naked Globals

Name Field # of Occurrence
^(0 HEAD4+22, HEAD4+23, HEAD4+25, HEAD4+26, HEAD4+27, HEAD4+28, HEAD4+29, HEAD4+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CLINIC HEAD+5
ENTRY ARRAY+3~, ARRAY+11*, ARRAY+16, ARRAY+18, ARRAY+21, ARRAY+29, ARRAY+34, ARRAY+37, ARRAY+40, DISCPT1+2~
, DISCPT1+10*, DISCPT1+11*, DISCPT1+12, DISCPT1+13, DISCPT2+2~, DISCPT3+1~, HEAD4+6~
ENTRY( DISCPT2+13*, DISCPT2+15, DISCPT2+16, DISCPT2+17, DISCPT2+18, DISCPT2+19, DISCPT3+11*, DISCPT3+13, DISCPT3+14, DISCPT3+15
, DISCPT3+16, DISCPT3+17, DISCPT3+18, DISCPT3+19, DISCPT3+20
HEAD HEAD+1*, HEAD+2, HEAD+3!, HEAD4+1*, HEAD4+2, HEAD4+3!
>> IDATE ARRAY+34, DISCPT1+19
>> IOCUU HEAD+2, HEAD4+2
>> IOEDEOP DISCPT1+5, DISCPT2+7, DISCPT3+7, DISCPT4+29, HEAD4+9
>> IOELEOL HEAD+3, HEAD4+3
>> IOG0 DISCPT2+20, DISCPT3+21
>> IOG1 DISCPT2+4, DISCPT3+3
>> IOINHI HEAD+2, HEAD4+2
>> IOINLOW HEAD+2, HEAD4+2
IOM HEAD+2, HEAD4+2
>> IOVL DISCPT2+5, DISCPT2+18, DISCPT3+4, DISCPT3+5, DISCPT3+16, DISCPT3+19
J DISCPT1+2~, DISCPT1+8*, DISCPT1+9*, DISCPT1+10, DISCPT1+12, DISCPT1+16, DISCPT1+18, DISCPT2+2~, DISCPT2+12*, DISCPT2+13
, DISCPT2+14*, DISCPT2+15, DISCPT2+16, DISCPT2+17, DISCPT2+18, DISCPT2+19, DISCPT3+1~, DISCPT3+10*, DISCPT3+11, DISCPT3+12*
, DISCPT3+13, DISCPT3+14, DISCPT3+15, DISCPT3+16, DISCPT3+17, DISCPT3+18, DISCPT3+19, DISCPT3+20, HEAD4+6~, HEAD4+14*
, HEAD4+16*, HEAD4+21, HEAD4+24, HEAD4+29, HEAD4+30
PD BAWRITE+1~, BAWRITE+4*, BAWRITE+5, BAWRITE+6
PL HEAD4+13~
PP BAWRITE+1~, BAWRITE+4*, BAWRITE+5, BAWRITE+7
PX HEAD4+13~, HEAD4+25*, HEAD4+26, HEAD4+27, HEAD4+28, BAWRITE+1~, BAWRITE+3*, BAWRITE+4
PX124 ARRAY+3~, ARRAY+39*, ARRAY+40, ARRAY+44, ARRAY+51, ARRAY+53
PXA DISCPT2+2~, DISCPT3+1~
PXASTRSK ARRAY+3~, ARRAY+15*, ARRAY+20*, ARRAY+27
>> PXBNCPT( ARRAY+16, ARRAY+18, DISCPT1+11, DISCPT2+13, DISCPT3+11
>> PXBREQ( ARRAY+54*, ARRAY+55
>> PXBSAM DISCPT1+26
>> PXBSAM( ARRAY+9, ARRAY+11, ARRAY+12*, ARRAY+31, ARRAY+33, DISCPT1+9, DISCPT1+10, DISCPT1+16, DISCPT1+18, DISCPT2+12
, DISCPT2+13, DISCPT3+10, DISCPT3+11
>> PXBSKY( ARRAY+18
PXBSTART DISCPT4+9~, DISCPT4+11*, DISCPT4+12*, DISCPT4+14*, DISCPT4+15*, DISCPT4+16, DISCPT4+18*, DISCPT4+19, DISCPT4+20*, DISCPT4+21
, DISCPT4+22*, DISCPT4+23*, DISCPT4+24, DISCPT4+25*, DISCPT4+26*, HEAD4+14, HEAD4+19
>> PXBVST ARRAY+38, ARRAY+54, BAWRITE+4
PXC ARRAY+3~, ARRAY+40*, ARRAY+41, ARRAY+43*, ARRAY+44, ARRAY+48, ARRAY+50
PXCPTCD ARRAY+3~, ARRAY+25*, ARRAY+27*, ARRAY+29
PXCPTDA ARRAY+3~, ARRAY+22*, ARRAY+25, ARRAY+27
PXCPTI ARRAY+3~, ARRAY+21*, ARRAY+22
PXD ARRAY+3~, ARRAY+41*, ARRAY+42, ARRAY+43, ARRAY+45, ARRAY+46, ARRAY+54, ARRAY+55, BAWRITE~, BAWRITE+2
, BAWRITE+4
PXDESC ARRAY+3~, ARRAY+34*, ARRAY+35, DISCPT1+17~, DISCPT1+19*, DISCPT1+20, HEAD4+13~
PXDXDATE ARRAY+3~, ARRAY+38*, ARRAY+41, ARRAY+46
PXENTRY ARRAY+46~, ARRAY+47, ARRAY+52
PXENTRY( ARRAY+53
PXENTRY(1 ARRAY+46*, ARRAY+50
PXLENGTH ARRAY+48~*, ARRAY+49
PXLN DISCPT1+17~, DISCPT1+21*, DISCPT1+22, DISCPT1+23, DISCPT1+24
PXLNS HEAD4+13~, HEAD4+15*, HEAD4+17*, HEAD4+18
PXLONG ARRAY+48~, ARRAY+50*, ARRAY+51
PXMD ARRAY+3~, ARRAY+30*, ARRAY+31*, ARRAY+33
PXMOD ARRAY+33*, ARRAY+34, ARRAY+35, DISCPT1+17~, DISCPT1+18*, DISCPT1+19, DISCPT1+22, HEAD4+13~
PXNUMBR ARRAY+52~*, ARRAY+53
PXQ HEAD4+13~, HEAD4+14*, HEAD4+16, HEAD4+20*
PXSIEN DISCPT1+15*, DISCPT1+16*, DISCPT1+18, HEAD4+13~
PXSPACES ARRAY+48~*, ARRAY+49*, ARRAY+50
PXSQ ARRAY+3~, ARRAY+8*, ARRAY+9*, ARRAY+11, ARRAY+12, ARRAY+18, ARRAY+29, ARRAY+31, ARRAY+33
>> PXTLNS ARRAY+8*, ARRAY+10*, ARRAY+12, ARRAY+29, ARRAY+32*, ARRAY+35, ARRAY+36*, ARRAY+37, ARRAY+44*, ARRAY+51*
, ARRAY+53*, ARRAY+55*, DISCPT4+15
PXTMP ARRAY+4*, ARRAY+5, ARRAY+29, ARRAY+35, ARRAY+37, ARRAY+44, ARRAY+51, ARRAY+53, ARRAY+55, DISCPT4+9~
, HEAD4+16, HEAD4+21, HEAD4+24, HEAD4+29, HEAD4+30
PXWRAP DISCPT1+17~, DISCPT1+20
PXWRAP( DISCPT1+21, DISCPT1+24
SIGN DISCPT4~, DISCPT4+11, DISCPT4+12, DISCPT4+13, DISCPT4+17, DISCPT4+21, DISCPT4+22, DISCPT4+24, DISCPT4+25, DISCPT4+29
, HEAD4+32
U ARRAY+16, ARRAY+18, ARRAY+21, ARRAY+25, ARRAY+27, ARRAY+29, ARRAY+34, ARRAY+35, ARRAY+37, ARRAY+40
, ARRAY+42, ARRAY+43, ARRAY+44, ARRAY+45, ARRAY+46, ARRAY+51, ARRAY+53, ARRAY+54, DISCPT1+11, DISCPT1+12
, DISCPT1+13, DISCPT1+19, DISCPT2+13, DISCPT2+15, DISCPT2+18, DISCPT3+11, DISCPT3+13, DISCPT3+16, DISCPT3+19, HEAD4+22
, HEAD4+23, HEAD4+25, HEAD4+26, HEAD4+27, HEAD4+28, HEAD4+29, HEAD4+30, HEAD4+31, BAWRITE+2, BAWRITE+4
, BAWRITE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All