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

Package: PCE Patient Care Encounter

Routine: PXBPCPT


Information

PXBPCPT ;ISL/JVS,ESW - PROMPT CPT ;3/02/2023

Source Information

Source file <PXBPCPT.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
PCE Patient Care Encounter 10 (LOC,REVCPT,TERM,WIN17)^PXBCC  DISCPT4^PXBDCPT  $$DOUBLE1^PXBGCPT2  EN1^PXBHLP0  (ADDM,DELM)^PXBPCPT1  WHICH^PXBPWCH  ($$CPTOK,CASE,TIMES)^PXBUTL  HELP^PXBUTL0  
HELP1^PXBUTL1  $$CSDATE^PXDXUTL  
VA FileMan 2 ^DIC  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 $$ICDDX^ICDEX  

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

Package Total Caller Graph
PCE Patient Care Encounter 2 PXBMCPT  PXBMCPT2  

Entry Points

Name Comments DBIA/ICR reference
CPT ;--CPT CODE
C ;--SECOND ENTRY POINT
C1 ;----Third entry point
M ;--------If Multiple entries have been entered
DEL ;--------If Multiple deleting
LI ;--------If picked a line number display
FIN ;--FINISH CPT
REST
CPTX ;--CPT Exit and cleanup
MOD ;---Separate CPT modifiers from CPT codes in entry string, if entered
MULTI(CPTCD) ;--Prompt user to Edit existing CPT code or Add as new entry

External References

Name Field # of Occurrence
^DIC LI+53, FIN+3
^DIR MULTI+9
$$ICDDX^ICDEX REST+7
$$CPT^ICPTCOD FIN+10
LOC^PXBCC C+4, C+5, C+6, C+8
REVCPT^PXBCC LI+5, LI+24, LI+32, LI+59
TERM^PXBCC CPT+7
WIN17^PXBCC C+12
DISCPT4^PXBDCPT C1+20, LI+4, LI+16, LI+58
$$DOUBLE1^PXBGCPT2 LI+52
EN1^PXBHLP0 LI+40, LI+43
ADDM^PXBPCPT1 M+1
DELM^PXBPCPT1 DEL+1
WHICH^PXBPWCH LI+35
$$CPTOK^PXBUTL FIN+5
CASE^PXBUTL C1+13
TIMES^PXBUTL LI+18
HELP^PXBUTL0 C1+9, FIN+4
HELP1^PXBUTL1 FIN+6
$$CSDATE^PXDXUTL CPT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOSC
  • Line Location: C+1
Function Call: WRITE
  • Prompt: IOUON,"...There are "_$G(PXBCNT)_" PROCEDURES associated with this encounter.",IOUOFF,IOELEOL
  • Line Location: C+4
Function Call: WRITE
  • Prompt: IOUON,"...There is "_$G(PXBCNT)_" PROCEDURE associated with this encounter.",IOUOFF,IOELEOL
  • Line Location: C+5
Function Call: WRITE
  • Prompt: IOUON,"...There are "_$G(PXBCNT)_" PROCEDURES associated with this encounter.",IOUOFF,IOELEOL
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !,"Enter PROCEDURE (CPT CODE): "
  • Line Location: C+13
Function Call: WRITE
  • Prompt: !,"Enter ",IOINHI,"NEXT",IOINLOW," PROCEDURE (CPT CODE): "
  • Line Location: C+14
Function Call: READ
  • Variable: DATA
  • Timeout: DTIME
  • Line Location: C+15
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: C+15
Function Call: WRITE
  • Prompt: $C(7),"??"
  • Line Location: C1+9
Function Call: WRITE
  • Prompt: DATA
  • Line Location: C1+15
Function Call: WRITE
  • Prompt: IOCUB,IOECH
  • Line Location: LI+7
Function Call: WRITE
  • Prompt: DATA
  • Line Location: LI+10
Function Call: WRITE
  • Prompt: IORC,IOCUU,IOEDEOP,!
  • Line Location: LI+57
Function Call: WRITE
  • Prompt: IOCUF,IOCUF,IORVON,"INACTIVE!--",IORVOFF
  • Line Location: FIN+6
Function Call: WRITE
  • Prompt: !,IOINHI,"--WARNING!",IOINLOW," Currently stored Provider of service:-",IOINHI,PREDOC,IOINLOW
  • Line Location: CPTX+5
Function Call: WRITE
  • Prompt: IOEDEOP
  • Line Location: CPTX+8
Routine Call
  • DIC
  • Line Location:
    • LI+53
    • FIN+3
Routine Call
  • DIR
  • Line Location:
    • MULTI+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCPT - [#9000010.18] REST+3, REST+4, REST+8
^AUPNVSIT - [#9000010] CPT+4
^DISV( CPT+6*, C1+15, FIN+11*
^IBE(357.69 - [#357.69] MULTI+6
^ICPT - [#81] FIN+3
^TMP("PXBDCPT" LI+30
^TMP("PXK" C+13, C+14
^VA(200 - [#200] REST+9

Label References

Name Line Occurrences
$$MULTI LI+19
C C1+9, C1+20, LI+39, FIN+4, FIN+5
C1 M+2, DEL+3, LI+15, LI+34, LI+41, LI+54
CPTX C1+1, C1+17, C1+18, DEL+2
FIN LI+11, LI+36, LI+41
LI LI+34
MOD DEL+5, LI+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAD CPT+2~
CPT CPT+2~
CPTCD MULTI~, MULTI+6, MULTI+8
CPTDESC FIN+7~, FIN+10*, FIN+28
CPTIEN FIN+7~, FIN+8*, FIN+10, FIN+11, FIN+13, FIN+16, FIN+18, FIN+20, FIN+21, FIN+22
, FIN+23, FIN+24, FIN+25, FIN+26, FIN+28, FIN+29, FIN+30, CPTX+6
>> CPTQUA LI+8*, LI+25*, LI+60*, FIN+20*, FIN+26*
CTR REST+1~, REST+5*, REST+6, REST+7
>> CYCL C+3
DA MULTI+2~
>> DATA C+15*, C1+1, C1+2*, C1+3*, C1+4*, C1+7, C1+10*, C1+15*, C1+17, C1+18
, C1+20, DEL+2, LI+2, LI+4, LI+5, LI+6, LI+7, LI+8, LI+9*, LI+11
, LI+15*, LI+16, LI+18, LI+19, LI+21, LI+34, LI+35*, LI+36, LI+39, LI+40
, LI+41, LI+44, LI+45*, LI+47, LI+49*, LI+53*, LI+54*, CPTX+2, CPTX+3*, MOD+1
, MOD+2, MOD+3*
DIC CPT+2~, LI+53*, FIN+3*
DIC("S" CPT+10*, LI+53*, FIN+3*
DIC(0 LI+53*, FIN+3*
DIR MULTI+2~
DIR("A" MULTI+4*, MULTI+7*, MULTI+8*
DIR(0 MULTI+3*, MULTI+7*
DOUBLEQQ CPT+2~, CPT+8*, C+4, C+5, C+6, LI+42*
DTIME C+15
DUZ CPT+6, C1+15, FIN+11
EDATA CPT+2~, C+15*, C1+3*, C1+4*, C1+10*, LI+49*, LI+53*, MOD+3*
>> FROM LI+52*
I CPT+2~, LI+7*
>> IDATE CPT+4*, FIN+5, FIN+10
IEN REST+1~, REST+2*, REST+3, REST+4, REST+8
>> IOCUB LI+7
>> IOCUF FIN+6
>> IOCUU LI+57
>> IOECH LI+7
>> IOEDEOP LI+57, CPTX+8
>> IOELEOL C+4, C+5, C+6, C+15
>> IOINHI C+14, CPTX+5
>> IOINLOW C+14, CPTX+5
>> IORC LI+57
>> IORVOFF FIN+6
>> IORVON FIN+6
>> IOSC CPT+7, C+1
>> IOUOFF C+4, C+5, C+6
>> IOUON C+4, C+5, C+6
J C1+7*, C1+11!
LINE CPT+2~, LI+21*, LI+24, LI+25, LI+59*, LI+60
NF CPT+2~, M+2, DEL+3
>> NLINE LI+29*, LI+31*, LI+32
OK CPT+2~, FIN+5*, FIN+6
PREDOC FIN+15*, FIN+22*, CPTX+4, CPTX+5, CPTX+7!
>> PXBCNT C+4, C+5, C+6, C+12, LI+2
PXBDPRV CPTX+7!
>> PXBEXIT C1+1*, CPTX+2*
>> PXBKY( LI+15, LI+16, LI+21, LI+57, LI+58, LI+59, FIN+13, FIN+21, FIN+22
>> PXBNCPT FIN+12
>> PXBNCPT( FIN+29*, FIN+30*
>> PXBNCPTF FIN+12*
>> PXBPRV( FIN+16, FIN+18, FIN+19, FIN+20, FIN+23, FIN+24, FIN+25, FIN+26, CPTX+6
>> PXBRRR C1+1*, CPTX+3
>> PXBSAM( LI+4, LI+8, LI+9, LI+16, LI+25, LI+31, LI+60, FIN+1, FIN+15, FIN+20
, FIN+22, FIN+26
>> PXBSKY( FIN+14
PXBUT CPT+2~, C1+1*
>> PXBVST CPT+4, CPT+5
PXDXDATE CPT+2~, CPT+5*, REST+7
PXEDIT CPT+2~, CPT+8*, LI+15, LI+19*, LI+23, LI+27, LI+34
PXINF FIN+10~*
>> PXMODSTR MOD+2*
PXPG LI+28~, LI+30*, LI+31
>> PXTLNS C+11
Q CPT+2~, LI+17!, LI+20, LI+27, LI+33, LI+34
Q( LI+31
Q(0 LI+26
>> REQE FIN+1*, FIN+2*, FIN+9, FIN+28*, REST+7*, REST+9*, CPTX+1*, CPTX+5
REQE1 FIN+7~, FIN+9*, FIN+16, FIN+18, FIN+19, FIN+20, FIN+23, FIN+24, FIN+25, FIN+26
, CPTX+6
>> REQI FIN+14*, FIN+17, FIN+18*, FIN+24*, FIN+27*, FIN+29, FIN+30, REST, REST+2, REST+3*
, REST+4*, REST+6, REST+8*, CPTX+6*
SELINE CPT+3~, LI+6*, LI+26*, LI+33!, FIN+1, FIN+13, FIN+14, FIN+15, FIN+21
TIMED CPT+3~, CPT+9*, C1+1
U LI+45, FIN+3, FIN+8, FIN+9, FIN+10, REST, REST+2, REST+3, REST+4, REST+6
, REST+7, REST+8, REST+9
>> UDATA LI+41, LI+48*, LI+49
VAL LI+52*, LI+53, REST+1~, REST+6*, REST+7*, REST+8*, REST+9
>> WHAT CPTX+2
X CPT+3~, LI+53*, FIN+3*, MULTI+2~
XFLAG CPT+3~, LI+3*, LI+11, LI+22*, LI+36
Y CPT+3~, LI+11*, LI+36*, LI+47*, LI+49*, LI+52*, LI+54, LI+57, LI+58, LI+59
, FIN+3, FIN+4, FIN+5, FIN+8, FIN+27, MULTI+2~, MULTI+10, MULTI+11
ZDATA C1+7*, C1+8, C1+11!
ZZDATA C1+6*, C1+8*, C1+9, C1+10, C1+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All