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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXCEVIMM

Package: PCE Patient Care Encounter

Routine: PXCEVIMM


Information

PXCEVIMM ;ISL/dee,SLC/ajb - Used to edit and display V IMMUNIZATION ;04/11/2016

Source Information

Source file <PXCEVIMM.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 EN^DDIOL  UPDATE^DIE  ^DIK  $$EXTERNAL^DILFD  ^DIR  
PCE Patient Care Encounter 4 WAIT^PXCEHELP  DIAGNOS^PXCEVFI4  ^PXDSLK  ($$ACTDT,$$CSDATE)^PXDXUTL  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 $$FMDIFF^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
FORMAT ;;Immunization~9000010.11~0,2,3,11,12,13,14,15,16,811,812~0~^AUPNVIMM
INTRFACE ;;PX SELECT IMMUNIZATIONS
ECONTRAI ;
EREADDT ;
ELOT ;
EPOV ;Edit the Associated DX
EPOV2 ; edit OTHER DIAGNOSIS
DELDX(DA) ; delete OTHER DIAGNOSIS
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ;
READX
DISPLY01(PXCEIMM) ;
DISPLN(PXCEINT) ; display lot number with manufacturer

External References

Name Field # of Occurrence
EN^DDIOL EREADDT+20
UPDATE^DIE EPOV2+30
^DIK DELDX+2
$$EXTERNAL^DILFD ECONTRAI+4, EREADDT+4, ELOT+4, EPOV+8, EPOV2+16, DISPLY01+3, DISPLN+2, DISPLN+3
^DIR ECONTRAI+10, EREADDT+9, ELOT+9, EPOV+19, EPOV2+17, READ+6
$$ICDDATA^ICDXCODE EPOV+14
WAIT^PXCEHELP EPOV+40, EPOV2+19, EPOV2+21, DELDX+2
DIAGNOS^PXCEVFI4 EPOV+42, EPOV2+29
^PXDSLK EPOV+12
$$ACTDT^PXDXUTL EPOV+3, EPOV2+4
$$CSDATE^PXDXUTL EPOV+2, EPOV2+3
$$FMDIFF^XLFDT EREADDT+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Duplicate Diagnosis is not allowed."
  • Line Location: EPOV+40
Function Call: WRITE
  • Prompt: !
  • Line Location: EPOV2+18
Function Call: WRITE
  • Prompt: !!,$C(7),"Entry matches Primary Diagnosis. Duplicate Diagnosis is not allowed."
  • Line Location: EPOV2+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EPOV2+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EPOV2+23
Function Call: WRITE
  • Prompt: !!,"Entry successfully removed."
  • Line Location: DELDX+2
Routine Call
  • DIE
  • Line Location:
    • EPOV2+30
Routine Call
  • DIR
  • Line Location:
    • ECONTRAI+10
    • EREADDT+9
    • ELOT+9
    • EPOV+19
    • EPOV2+17
    • READ+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVIMM - [#9000010.11] EXTERNAL^DILFD
^AUTTIML - [#9999999.41] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVIMM - [#9000010.11] EPOV+36, EPOV+37, EPOV2+7, EPOV2+8, EPOV2+20
^AUTTIML - [#9999999.41] DISPLN+3

Label References

Name Line Occurrences
$$READ EPOV2+18, EPOV2+23
DELDX EPOV2+18
READX READ+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS EPOV2+23~*, EPOV2+24*, EPOV2+25, EPOV2+27
CNT EPOV+36~*, EPOV+37, EPOV2+7~*, EPOV2+8, EPOV2+9, EPOV2+14*, EPOV2+16, EPOV2+18, EPOV2+27
DA ECONTRAI+11!, EREADDT+10!, ELOT+10!, EPOV+20!, EPOV2+15~, DELDX~, DELDX+1
DA(1 DELDX+2*
DEFAULT READ~, READ+4
DIERR ECONTRAI+2~, ECONTRAI+5, EREADDT+2~, EREADDT+5, ELOT+2~, ELOT+5, EPOV+6~, EPOV+9, DISPLY01+1~, DISPLY01+4
, DISPLN+4
>> DIK DELDX+2*
DIR ECONTRAI+11!, EREADDT+10!, ELOT+10!, EPOV+20!, EPOV2+12~, READ+1~
DIR("?" ECONTRAI+9*, EREADDT+8*, ELOT+8*, EPOV+18*, READ+5*
DIR("A" ECONTRAI+8*, EREADDT+7*, ELOT+7*, EPOV+17*, EPOV2+13*, READ+3*
DIR("B" ECONTRAI+5*, ECONTRAI+6*, EREADDT+5*, ELOT+5*, EPOV+9*, EPOV+12, EPOV2+16*, EPOV2+19, EPOV2+22, EPOV2+23
EPOV2+24, READ+4*
DIR("S" READ+2*
DIR(0 ECONTRAI+7*, EREADDT+6*, ELOT+6*, EPOV+16*, EPOV2+12*, READ+1*
DIRUT READ+1~
DT EPOV+2, EPOV2+3
DTOUT ECONTRAI+13, EREADDT+12, ELOT+12, EPOV+22, EPOV2+14, EPOV2+17, READ+1~
DUOUT ECONTRAI+13, EREADDT+12, ELOT+12, EPOV+22, EPOV2+14, EPOV2+17, READ+1~
DX EPOV+35~, EPOV2+7~, EPOV2+10
DX( EPOV+37*, EPOV+38, EPOV2+8*, EPOV2+9, EPOV2+14, EPOV2+16, DELDX+1!
DX(1 EPOV2+10*
DXS EPOV2+7~
DXS( EPOV2+9*, EPOV2+19, DELDX+1!
ERRMSG EPOV2+26~
FDA EPOV2+26~
FDA( EPOV2+28*
FDAIEN EPOV2+26~
HELP READ~, READ+5
IEN EPOV2+26~, EPOV2+27*, EPOV2+28
PROMPT READ~, READ+3
PXACS EPOV+1~, EPOV+3*, EPOV+4*, EPOV+11, EPOV+17, EPOV2+2~, EPOV2+4*, EPOV2+5*, EPOV2+13
PXACSREC EPOV+1~, EPOV+3*, EPOV+10, EPOV+15, EPOV2+2~, EPOV2+4*, EPOV2+11
>> PXAGAIN EPOV+12*
>> PXCEAFTR( ECONTRAI+1, ECONTRAI+3, ECONTRAI+14*, EREADDT+3, ELOT+1, ELOT+3, ELOT+13*, EPOV+5, EPOV+7, EPOV+21*
EPOV+41*
>> PXCEAFTR(12 EREADDT+16
>> PXCEAFTR(14 EREADDT+1, EREADDT+13*, EREADDT+15
>> PXCEAFTR(80 EPOV+25, EPOV+26, EPOV+27, EPOV+28, EPOV+29, EPOV+30, EPOV+31
>> PXCEAFTR8(80 EPOV+32
>> PXCEAPDT EPOV+2, EPOV2+3
PXCEDILF ECONTRAI+2~, EREADDT+2~, ELOT+2~, EPOV+6~, DISPLY01+1~, DISPLN+1~
>> PXCEEND ECONTRAI+13*, EREADDT+12*, ELOT+12*, EPOV+22*, EPOV+23*, EPOV+25*, EPOV+26*, EPOV+27*, EPOV+28*, EPOV+29*
EPOV+30*, EPOV+31*, EPOV+32*, EPOV+38*, EPOV+40
PXCEEXT ECONTRAI+2~, ECONTRAI+4*, ECONTRAI+5, EREADDT+2~, EREADDT+4*, EREADDT+5, ELOT+2~, ELOT+4*, ELOT+5, EPOV+6~
EPOV+8*, EPOV+9, DISPLY01+1~, DISPLY01+3*, DISPLY01+4, DISPLN+1~, DISPLN+2*, DISPLN+4
>> PXCEFIEN EPOV+35, EPOV+36, EPOV+37, EPOV2+1, EPOV2+7, EPOV2+8, EPOV2+20, EPOV2+27, DELDX+2
>> PXCEFILE ECONTRAI+4, ECONTRAI+7, EREADDT+4, ELOT+4, EPOV+8, EPOV+16, EPOV2+12, EPOV2+16, EPOV2+28
PXCEIMM DISPLY01~, DISPLY01+2
PXCEINT ECONTRAI+2~, ECONTRAI+3*, ECONTRAI+4, ECONTRAI+5, EREADDT+2~, EREADDT+3*, EREADDT+4, EREADDT+5, ELOT+2~, ELOT+3*
ELOT+4, ELOT+5, EPOV+6~, EPOV+7*, EPOV+8, EPOV+9, DISPLY01+1~, DISPLY01+2*, DISPLY01+3, DISPLY01+4
, DISPLN~, DISPLN+2, DISPLN+3, DISPLN+4
>> PXCEQUIT EPOV+22*, EPOV2+30
>> PXCETEXT ECONTRAI+1, ECONTRAI+3, ECONTRAI+4, ECONTRAI+7, ECONTRAI+8, ECONTRAI+9, ECONTRAI+14, EREADDT+3, EREADDT+4, EREADDT+7
EREADDT+8, ELOT+1, ELOT+3, ELOT+4, ELOT+7, ELOT+8, ELOT+13, EPOV+5, EPOV+7, EPOV+8
EPOV+11, EPOV+16, EPOV+17, EPOV+18, EPOV+21, EPOV+25, EPOV+26, EPOV+27, EPOV+28, EPOV+29
EPOV+30, EPOV+31, EPOV+32, EPOV+41, EPOV2+12, EPOV2+13
>> PXCEVIEN EPOV+2, EPOV2+3
PXDATE EPOV+1~, EPOV+2*, EPOV+3, EPOV+14, EPOV2+2~, EPOV2+3*, EPOV2+4
PXDEF EPOV+1~, EPOV+12*, EPOV2+2~
PXDXASK EPOV+1~, EPOV+11*, EPOV2+2~
PXV2 DISPLN+1~, DISPLN+3*
PXVMAN DISPLN+1~, DISPLN+3*, DISPLN+4
PXVX EREADDT+14~, EREADDT+18*, EREADDT+19*, EREADDT+20
PXXX EPOV+1~, EPOV+12, EPOV+13, EPOV+14, EPOV2+2~
SCREEN READ~, READ+2
TYPE READ~, READ+1
U EPOV+10, EPOV+14, EPOV+15, EPOV2+11, EPOV2+20, EPOV2+25, EPOV2+27, READ+8
X ECONTRAI+12, EREADDT+11, ELOT+11, EPOV+21, EPOV2+15~, EPOV2+17, EPOV2+18, READ+1~, READ+7
X1 EREADDT+14~, EREADDT+15*, EREADDT+19
X2 EREADDT+14~, EREADDT+16*, EREADDT+19
X3 EREADDT+14~, EREADDT+17*, EREADDT+19
Y ECONTRAI+12*, ECONTRAI+14, EREADDT+11*, EREADDT+13, ELOT+11*, ELOT+13, EPOV+12*, EPOV+13*, EPOV+14*, EPOV+21*
EPOV+23, EPOV+25, EPOV+26, EPOV+27, EPOV+28, EPOV+29, EPOV+30, EPOV+31, EPOV+32, EPOV+38
EPOV+41, EPOV+42, EPOV2+15~, EPOV2+19, EPOV2+20, EPOV2+28, EPOV2+29, READ+1~, READ+7*, READ+8*
READX
Y(0 EPOV2+19, EPOV2+22, READ+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All