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 ; 4/23/03 7:15pm

Source Information

Source file <PXBPCPT.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
PCE Patient Care Encounter 9 (LOC,REVCPT,TERM,WIN17)^PXBCC  DISCPT4^PXBDCPT  $$DOUBLE1^PXBGCPT2  EN1^PXBHLP0  (ADDM,DELM)^PXBPCPT1  WHICH^PXBPWCH  ($$CPTOK,CASE,TIMES)^PXBUTL  HELP^PXBUTL0  
HELP1^PXBUTL1  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PCE Patient Care Encounter 2 PXBMCPT  PXBMCPT2  

Entry Points

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

External References

Name Field # of Occurrence
^DIC LI+53, FIN+3
^DIR MULTI+7
LOC^PXBCC C+4, C+5, C+6, C+8
REVCPT^PXBCC LI+5, LI+24, LI+32, LI+59
TERM^PXBCC CPT+5
WIN17^PXBCC C+12
DISCPT4^PXBDCPT C1+12, 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+5
TIMES^PXBUTL LI+18
HELP^PXBUTL0 FIN+4
HELP1^PXBUTL1 FIN+6

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
  • Timeout: DTIME
  • Variable: DATA
  • Line Location: C+15
Function Call: WRITE
  • Prompt: IOELEOL
  • Line Location: C+15
Function Call: WRITE
  • Prompt: DATA
  • Line Location: C1+7
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+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( CPT+4*, C1+7, FIN+8*
^IBE(357.69 - [#357.69] MULTI+5
^TMP("PXBDCPT" LI+30
^TMP("PXK" C+13, C+14

Label References

Name Line Occurrences
$$MULTI LI+19
C C1+12, LI+39, FIN+4, FIN+5
C1 M+2, DEL+3, LI+15, LI+34, LI+41, LI+54
CPTX C1+1, C1+9, C1+10, 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+3~
CPT CPT+3~, FIN+7*, FIN+8, FIN+13, FIN+15, FIN+17, FIN+21, FIN+22, FIN+23, FIN+24
, FIN+26, FIN+27, FIN+28, CPTX+6
CPTCD MULTI~, MULTI+5, MULTI+6
>> CPTQUA LI+8*, LI+25*, LI+60*, FIN+17*, FIN+24*
>> CYCL C+3
DA MULTI+2~
>> DATA C+15*, C1+1, C1+2*, C1+3*, C1+4*, C1+7*, C1+9, C1+10, C1+12, 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+8*
DIC(0 LI+53*, FIN+3*
DIR MULTI+2~
DIR("A" MULTI+4*, MULTI+5*, MULTI+6*
DIR(0 MULTI+3*, MULTI+5*
DOUBLEQQ CPT+3~, CPT+6*, C+4, C+5, C+6, LI+42*
DTIME C+15
DUZ CPT+4, C1+7, FIN+8
EDATA CPT+2~, C+15*, C1+3*, C1+4*, LI+49*, LI+53*, MOD+3*
>> FROM LI+52*
I CPT+3~, LI+7*
>> IDATE FIN+5
>> 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+5, C+1
>> IOUOFF C+4, C+5, C+6
>> IOUON C+4, C+5, C+6
LINE CPT+2~, LI+21*, LI+24, LI+25, LI+59*, LI+60
NF CPT+3~, M+2, DEL+3
>> NLINE LI+29*, LI+31*, LI+32
OK CPT+3~, FIN+5*, FIN+6
PREDOC FIN+12*, FIN+20*, 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+10, FIN+18, FIN+20
>> PXBNCPT FIN+9
>> PXBNCPT( FIN+27*, FIN+28*
>> PXBNCPTF FIN+9*
>> PXBPRV( FIN+13, FIN+15, FIN+16, FIN+17, FIN+21, FIN+22, FIN+23, FIN+24, 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+12, FIN+17
, FIN+20, FIN+24
>> PXBSKY( FIN+11
PXBUT CPT+2~, C1+1*
PXEDIT CPT+3~, CPT+6*, LI+15, LI+19*, LI+23, LI+27, LI+34
>> PXMODSTR MOD+2*
PXPG LI+28~, LI+30*, LI+31
>> PXTLNS C+11
Q CPT+3~, LI+17!, LI+20, LI+27, LI+33, LI+34
Q( LI+31
Q(0 LI+26
>> REQE FIN+1*, FIN+2*, FIN+13, FIN+15, FIN+16, FIN+17, FIN+21, FIN+22, FIN+23, FIN+24
, FIN+26*, CPTX+1*, CPTX+5, CPTX+6
>> REQI FIN+11*, FIN+14, FIN+15*, FIN+22*, FIN+25*, FIN+27, FIN+28, CPTX+6*
SELINE CPT+2~, LI+6*, LI+26*, LI+33!, FIN+1, FIN+10, FIN+11, FIN+12, FIN+18
TIMED CPT+2~, CPT+7*, C1+1
U LI+45
>> UDATA LI+41, LI+48*, LI+49
>> VAL LI+52*, LI+53
>> WHAT CPTX+2
X CPT+3~, LI+53*, FIN+3*, MULTI+2~
XFLAG CPT+2~, 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+25, MULTI+2~, MULTI+8, MULTI+9
Y(0 FIN+7, FIN+10, FIN+18, FIN+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All