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 ; 12/5/02 11:28am

Source Information

Source file <PXBDCPT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 5 (LOC,UNDOFF,UNDON)^PXBCC  DISCPT4^PXBDCPT  NONE^PXBUTL  PRV^PXBUTL2  WRAP^PXCEVFI4  
DRG Grouper 1 ($$MOD,$$MODP)^ICPTMOD  
Kernel 1 GSET^%ZISS  

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
DISCPT4(SIGN) ;--Display the CPT Data
HEAD ;--HEADER ON LIST
HEAD4 ;--HEADER ON LIST
EN0 ;---Main entry point
DISCPT2 ;--display of cpt data two columns more that 10 entries.
DISCPT3 ;--display of cpt data three colums more that 20 entries.
DISCPT1 ;--Display the CPT Data
ARRAY ;Set all CPT codes and modifiers into ^TMP("PXBDCPT",$J,"DSP"

External References

Name Field # of Occurrence
GSET^%ZISS DISCPT2+3, DISCPT3+2
$$MOD^ICPTMOD DISCPT1+20
$$MODP^ICPTMOD ARRAY+20
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
NONE^PXBUTL DISCPT1+27
PRV^PXBUTL2 HEAD+5
WRAP^PXCEVFI4 DISCPT1+21

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: ?39,IOVL,(J+10),?44,$P(ENTRY(J+10),U,1),?51,$P(ENTRY(J+10),U,2),?54,$E($P(ENTRY(J+10),U,4),1,24)
  • Line Location: DISCPT2+16
Function Call: WRITE
  • Prompt: IOG0
  • Line Location: DISCPT2+17
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: ?25,IOVL,(J+10),?30,$P(ENTRY(J+10),U,1),?37,$P(ENTRY(J+10),U,2),?40,$E($P(ENTRY(J+10),U,4),1,10)
  • Line Location: DISCPT3+14
Function Call: WRITE
  • Prompt: ?51,IOVL,(J+20),?56,$P(ENTRY(J+20),U,1),?63,$P(ENTRY(J+20),U,2),?66,$E($P(ENTRY(J+20),U,4),1,10)
  • Line Location: DISCPT3+15
Function Call: WRITE
  • Prompt: IOG0
  • Line Location: DISCPT3+16
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: !!
  • Line Location: HEAD4+26

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

Naked Globals

Name Field # of Occurrence
^(0 HEAD4+22, HEAD4+23, HEAD4+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CLINIC HEAD+5
ENTRY ARRAY+3~, ARRAY+9*, ARRAY+11, ARRAY+13, ARRAY+14*, ARRAY+15, ARRAY+20, DISCPT1+2~, DISCPT1+11*, DISCPT1+12*
, DISCPT1+13, DISCPT1+14, DISCPT2+2~, DISCPT3+1~, HEAD4+6~
ENTRY( DISCPT2+13*, DISCPT2+15, DISCPT2+16, DISCPT3+11*, DISCPT3+13, DISCPT3+14, DISCPT3+15
HEAD HEAD+1*, HEAD+2, HEAD+3!, HEAD4+1*, HEAD4+2, HEAD4+3!
>> IOCUU HEAD+2, HEAD4+2
>> IOEDEOP DISCPT1+5, DISCPT2+7, DISCPT3+7, DISCPT4+29, HEAD4+9
>> IOELEOL HEAD+3, HEAD4+3
>> IOG0 DISCPT2+17, DISCPT3+16
>> IOG1 DISCPT2+4, DISCPT3+3
>> IOINHI HEAD+2, HEAD4+2
>> IOINLOW HEAD+2, HEAD4+2
IOM HEAD+2, HEAD4+2
>> IOVL DISCPT2+5, DISCPT2+16, DISCPT3+4, DISCPT3+5, DISCPT3+14, DISCPT3+15
J DISCPT1+2~, DISCPT1+9*, DISCPT1+10*, DISCPT1+11, DISCPT1+13, DISCPT1+17, DISCPT1+19, DISCPT2+2~, DISCPT2+12*, DISCPT2+13
, DISCPT2+14*, DISCPT2+15, DISCPT2+16, DISCPT3+1~, DISCPT3+10*, DISCPT3+11, DISCPT3+12*, DISCPT3+13, DISCPT3+14, DISCPT3+15
, HEAD4+6~, HEAD4+14*, HEAD4+16*, HEAD4+21
PXA DISCPT2+2~, DISCPT3+1~
>> PXBNCPT( ARRAY+11, ARRAY+13, DISCPT1+12, DISCPT2+13, DISCPT3+11
>> PXBSAM DISCPT1+27
>> PXBSAM( ARRAY+7, ARRAY+9, ARRAY+10*, ARRAY+17, ARRAY+19, DISCPT1+10, DISCPT1+11, DISCPT1+17, DISCPT1+19, DISCPT2+12
, DISCPT2+13, DISCPT3+10, DISCPT3+11
>> PXBSKY( ARRAY+13
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
PXDESC ARRAY+3~, ARRAY+20*, ARRAY+21, DISCPT1+18~, DISCPT1+20*, DISCPT1+21, HEAD4+13~
PXLN DISCPT1+18~, DISCPT1+22*, DISCPT1+23, DISCPT1+24, DISCPT1+25
PXLNS HEAD4+13~, HEAD4+15*, HEAD4+17*, HEAD4+18
PXMD ARRAY+3~, ARRAY+16*, ARRAY+17*, ARRAY+19
PXMOD ARRAY+19*, ARRAY+20, ARRAY+21, DISCPT1+18~, DISCPT1+19*, DISCPT1+20, DISCPT1+23, HEAD4+13~
PXQ HEAD4+13~, HEAD4+14*, HEAD4+16, HEAD4+20*
PXSIEN DISCPT1+16*, DISCPT1+17*, DISCPT1+19, HEAD4+13~
PXSQ ARRAY+3~, ARRAY+6*, ARRAY+7*, ARRAY+9, ARRAY+10, ARRAY+13, ARRAY+15, ARRAY+17, ARRAY+19
>> PXTLNS ARRAY+6*, ARRAY+8*, ARRAY+10, ARRAY+15, ARRAY+18*, ARRAY+21, DISCPT4+15
PXTMP ARRAY+4*, ARRAY+5, ARRAY+15, ARRAY+21, DISCPT4+9~, HEAD4+16, HEAD4+21
PXWRAP DISCPT1+18~, DISCPT1+21
PXWRAP( DISCPT1+22, DISCPT1+25
SIGN DISCPT4~, DISCPT4+11, DISCPT4+12, DISCPT4+13, DISCPT4+17, DISCPT4+21, DISCPT4+22, DISCPT4+24, DISCPT4+25, DISCPT4+29
, HEAD4+26
U ARRAY+11, ARRAY+13, ARRAY+14, ARRAY+15, ARRAY+20, ARRAY+21, DISCPT1+12, DISCPT1+13, DISCPT1+14, DISCPT1+20
, DISCPT2+13, DISCPT2+15, DISCPT2+16, DISCPT3+11, DISCPT3+13, DISCPT3+14, DISCPT3+15, HEAD4+22, HEAD4+23, HEAD4+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All