Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls