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 ;Oct 29, 2021@10:23:33

Source Information

Source file <PXCEVIMM.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 8 BROWSE^DDBR  EN^DDIOL  REFRESH^DDSUTL  $$GET1^DID  UPDATE^DIE  ^DIK  $$EXTERNAL^DILFD  ^DIR  
PCE Patient Care Encounter 5 WAIT^PXCEHELP  DIAGNOS^PXCEVFI4  $$GETDT^PXDATE  ^PXDSLK  ($$ACTDT,$$CSDATE)^PXDXUTL  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 ($$FMDIFF,$$FMTE)^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 ;
EREAD(DA,PXCEAFTR,PXCETEXT) ;Enter/edit reading.
EREADDATA(DA,PXCEAFTR,PXCETEXT) ;Enter/edit reading data.
EREADDT(DA,PXCEAFTR,PXCETEXT) ;Enter/edit reading date and time.
ELOT ;
EPOV ;Edit the Associated DX
EPOV2 ; edit OTHER DIAGNOSIS
EVENTDT(PXCEAFTR) ;Edit the Event Date and Time.
EVDTHELP ;Event Date and Time help.
DELDX(DA) ; delete OTHER DIAGNOSIS
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ;
READX
SKIP ;Used to by-pass roll and scroll editing of a field.
DISPLY01(PXCEIMM,PXCEDT) ;
DISPLN(PXCEINT,PCEDT) ; display lot number with manufacturer

External References

Name Field # of Occurrence
BROWSE^DDBR EVDTHELP+3
EN^DDIOL EREADDT+9, EREADDT+12
REFRESH^DDSUTL EVDTHELP+4
$$GET1^DID EVDTHELP+2
UPDATE^DIE EPOV2+31
^DIK DELDX+2
$$EXTERNAL^DILFD ECONTRAI+4, ELOT+4, EPOV+9, EPOV2+17, DISPLY01+3, DISPLN+2, DISPLN+3
^DIR ECONTRAI+10, EREADDATA+9, ELOT+9, EPOV+20, EPOV2+18, READ+6
$$ICDDATA^ICDXCODE EPOV+15
WAIT^PXCEHELP EPOV+41, EPOV2+20, EPOV2+22, DELDX+2
DIAGNOS^PXCEVFI4 EPOV+43, EPOV2+30
$$GETDT^PXDATE EVENTDT+5
^PXDSLK EPOV+13
$$ACTDT^PXDXUTL EPOV+4, EPOV2+5
$$CSDATE^PXDXUTL EPOV+3, EPOV2+4
$$FMDIFF^XLFDT EREADDT+11
$$FMTE^XLFDT EREADDT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Duplicate Diagnosis is not allowed."
  • Line Location: EPOV+41
Function Call: WRITE
  • Prompt: !
  • Line Location: EPOV2+19
Function Call: WRITE
  • Prompt: !!,$C(7),"Entry matches Primary Diagnosis. Duplicate Diagnosis is not allowed."
  • Line Location: EPOV2+22
Function Call: WRITE
  • Prompt: !
  • Line Location: EPOV2+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EPOV2+24
Function Call: WRITE
  • Prompt: !!,"Entry successfully removed."
  • Line Location: DELDX+2
Routine Call
  • DIE
  • Line Location:
    • EPOV2+31
Routine Call
  • DIR
  • Line Location:
    • ECONTRAI+10
    • EREADDATA+9
    • ELOT+9
    • EPOV+20
    • EPOV2+18
    • READ+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVIMM - [#9000010.11] EREADDATA+13*, EREADDATA+14*, EPOV+37, EPOV+38, EPOV2+8, EPOV2+9, EPOV2+21
^AUTTIML - [#9999999.41] DISPLN+3
^TMP("PXK" EVENTDT+2

Label References

Name Line Occurrences
$$READ EPOV2+19, EPOV2+24
DELDX EPOV2+19
EREADDATA EREAD+6, EREADDT+5
READX READ+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMDT EREADDT+1~, EREADDT+2*, EREADDT+8, EREADDT+9, EREADDT+11
ANS EPOV2+24~*, EPOV2+25*, EPOV2+26, EPOV2+28
CNT EPOV+37~*, EPOV+38, EPOV2+8~*, EPOV2+9, EPOV2+10, EPOV2+15*, EPOV2+17, EPOV2+19, EPOV2+28
DA ECONTRAI+11!, EREAD~, EREAD+6, EREADDATA~, EREADDATA+13, EREADDATA+14, EREADDT~, EREADDT+5, ELOT+10!, EPOV+21!
EPOV2+16~, DELDX~, DELDX+1
DA(1 DELDX+2*
>> DDS EVDTHELP+4
DEFAULT EVENTDT+1~, EVENTDT+2*, EVENTDT+5, READ~, READ+4
DIERR ECONTRAI+2~, ECONTRAI+5, ELOT+2~, ELOT+5, EPOV+7~, EPOV+10, DISPLY01+1~, DISPLY01+4, DISPLN+4
>> DIK DELDX+2*
DIR ECONTRAI+11!, EREADDATA+1~, ELOT+10!, EPOV+21!, EPOV2+13~, READ+1~
DIR("?" ECONTRAI+9*, EREADDATA+8*, ELOT+8*, EPOV+19*, READ+5*
DIR("A" ECONTRAI+8*, EREADDATA+7*, ELOT+7*, EPOV+18*, EPOV2+14*, READ+3*
DIR("B" ECONTRAI+5*, ECONTRAI+6*, ELOT+5*, EPOV+10*, EPOV+13, EPOV2+17*, EPOV2+20, EPOV2+23, EPOV2+24, EPOV2+25
, READ+4*
DIR("S" READ+2*
DIR(0 ECONTRAI+7*, EREADDATA+6*, ELOT+6*, EPOV+17*, EPOV2+13*, READ+1*
DIRUT READ+1~
DONE EREAD+1~, EREAD+4*, EREAD+5, EREAD+7*, EREAD+9*, EREADDT+1~, EREADDT+3*, EREADDT+4, EREADDT+7*, EREADDT+8*
DT EPOV+3, EPOV2+4
DTOUT ECONTRAI+13, EREADDATA+15, ELOT+12, EPOV+23, EPOV2+15, EPOV2+18, EVENTDT+7, READ+1~
DUOUT ECONTRAI+13, EREADDATA+15, ELOT+12, EPOV+23, EPOV2+15, EPOV2+18, EVENTDT+7, READ+1~
DX EPOV+36~, EPOV2+8~, EPOV2+11, EVDTHELP+4*
DX( EPOV+38*, EPOV+39, EPOV2+9*, EPOV2+10, EPOV2+15, EPOV2+17, DELDX+1!
DX(1 EPOV2+11*
DXS EPOV2+8~
DXS( EPOV2+10*, EPOV2+20, DELDX+1!
>> DY EVDTHELP+4*
ERR EVDTHELP+1~
ERRMSG EPOV2+27~
EVENTDT EVENTDT+1~, EVENTDT+5*, EVENTDT+6
FDA EPOV2+27~
FDA( EPOV2+29*
FDAIEN EPOV2+27~
FLDNUM EREADDATA+1~, EREADDATA+4*, EREADDATA+6
HELP EVENTDT+1~, EVENTDT+3*, EVENTDT+5, READ~, READ+5
HOURS EREADDT+1~, EREADDT+11*, EREADDT+12
IEN EPOV2+27~, EPOV2+28*, EPOV2+29, EVENTDT+1~
IOSL EVDTHELP+4
>> IOXY EVDTHELP+4
MSG EREADDATA+1~
NODE EREADDATA+1~, EREADDATA+2*, EREADDATA+16
PCEDT DISPLN~
PIECE EREADDATA+1~, EREADDATA+3*, EREADDATA+16
PROMPT EREADDATA+1~, EREADDATA+5*, EREADDATA+7, EVENTDT+1~, EVENTDT+4*, EVENTDT+5, READ~, READ+3
PXACS EPOV+2~, EPOV+4*, EPOV+5*, EPOV+12, EPOV+18, EPOV2+3~, EPOV2+5*, EPOV2+6*, EPOV2+14
PXACSREC EPOV+2~, EPOV+4*, EPOV+11, EPOV+16, EPOV2+3~, EPOV2+5*, EPOV2+12
>> PXAGAIN EPOV+13*
PXCEAFTR EREAD~, EREAD+6, EREADDATA~, EREADDT~, EREADDT+5, EVENTDT~
PXCEAFTR( ECONTRAI+1, ECONTRAI+3, ECONTRAI+14*, EREADDATA+16*, ELOT+1, ELOT+3, ELOT+13*, EPOV+6, EPOV+8, EPOV+22*
EPOV+42*
PXCEAFTR(12 EREADDT+2, EVENTDT+6*
PXCEAFTR(14 EREAD+3, EREAD+8, EREADDATA+13*, EREADDT+6
PXCEAFTR(15 EREADDATA+14*
PXCEAFTR(80 EPOV+26, EPOV+27, EPOV+28, EPOV+29, EPOV+30, EPOV+31, EPOV+32
>> PXCEAFTR8(80 EPOV+33
>> PXCEAPDT EPOV+3, EPOV2+4
PXCEDILF ECONTRAI+2~, ELOT+2~, EPOV+7~, DISPLY01+1~, DISPLN+1~
PXCEDT DISPLY01~
>> PXCEEND ECONTRAI+13*, EREAD+7, EREADDATA+12*, EREADDATA+15*, ELOT+12*, EPOV+23*, EPOV+24*, EPOV+26*, EPOV+27*, EPOV+28*
EPOV+29*, EPOV+30*, EPOV+31*, EPOV+32*, EPOV+33*, EPOV+39*, EPOV+41, EVENTDT+7*
PXCEEXT ECONTRAI+2~, ECONTRAI+4*, ECONTRAI+5, ELOT+2~, ELOT+4*, ELOT+5, EPOV+7~, EPOV+9*, EPOV+10, DISPLY01+1~
, DISPLY01+3*, DISPLY01+4, DISPLN+1~, DISPLN+2*, DISPLN+4
>> PXCEFIEN EPOV+36, EPOV+37, EPOV+38, EPOV2+2, EPOV2+8, EPOV2+9, EPOV2+21, EPOV2+28, DELDX+2
>> PXCEFILE ECONTRAI+4, ECONTRAI+7, ELOT+4, EPOV+9, EPOV+17, EPOV2+13, EPOV2+17, EPOV2+29
PXCEIMM DISPLY01~, DISPLY01+2
PXCEINT ECONTRAI+2~, ECONTRAI+3*, ECONTRAI+4, ECONTRAI+5, ELOT+2~, ELOT+3*, ELOT+4, ELOT+5, EPOV+7~, EPOV+8*
EPOV+9, EPOV+10, DISPLY01+1~, DISPLY01+2*, DISPLY01+3, DISPLY01+4, DISPLN~, DISPLN+2, DISPLN+3, DISPLN+4
>> PXCEQUIT EPOV+23*, EPOV2+31
PXCETEXT ECONTRAI+1, ECONTRAI+3, ECONTRAI+4, ECONTRAI+7, ECONTRAI+8, ECONTRAI+9, ECONTRAI+14, EREAD~, EREAD+6, EREADDATA~
, EREADDATA+2, EREADDATA+3, EREADDATA+4, EREADDATA+5, EREADDATA+8, EREADDT~, EREADDT+5, ELOT+1, ELOT+3, ELOT+4
ELOT+7, ELOT+8, ELOT+13, EPOV+6, EPOV+8, EPOV+9, EPOV+12, EPOV+17, EPOV+18, EPOV+19
EPOV+22, EPOV+26, EPOV+27, EPOV+28, EPOV+29, EPOV+30, EPOV+31, EPOV+32, EPOV+33, EPOV+42
EPOV2+13, EPOV2+14
>> PXCEVIEN EPOV+3, EPOV2+4
PXDATE EPOV+2~, EPOV+3*, EPOV+4, EPOV+15, EPOV2+3~, EPOV2+4*, EPOV2+5
PXDEF EPOV+2~, EPOV+13*, EPOV2+3~
PXDXASK EPOV+2~, EPOV+12*, EPOV2+3~
PXV2 DISPLN+1~, DISPLN+3*
PXVMAN DISPLN+1~, DISPLN+3*, DISPLN+4
PXXX EPOV+2~, EPOV+13, EPOV+14, EPOV+15, EPOV2+3~
READDT EREADDT+1~, EREADDT+6*, EREADDT+7, EREADDT+8, EREADDT+10, EREADDT+11
READING EREAD+1~, EREAD+8*, EREAD+9
RESULT EVDTHELP+1~, EVDTHELP+2*
SCREEN READ~, READ+2
TEXT EVDTHELP+1~
TYPE READ~, READ+1
U EREAD+3, EREAD+8, EREADDATA+16, EREADDT+2, EREADDT+6, EPOV+11, EPOV+15, EPOV+16, EPOV2+12, EPOV2+21
EPOV2+26, EPOV2+28, EVENTDT+2, EVENTDT+6, READ+8
X ECONTRAI+12, EREADDATA+1~, EREADDATA+11, ELOT+11, EPOV+22, EPOV2+16~, EPOV2+18, EPOV2+19, READ+1~, READ+7
SKIP+1*
Y ECONTRAI+12*, ECONTRAI+14, EREADDATA+1~, EREADDATA+16, ELOT+11*, ELOT+13, EPOV+13*, EPOV+14*, EPOV+15*, EPOV+22*
EPOV+24, EPOV+26, EPOV+27, EPOV+28, EPOV+29, EPOV+30, EPOV+31, EPOV+32, EPOV+33, EPOV+39
EPOV+42, EPOV+43, EPOV2+16~, EPOV2+20, EPOV2+21, EPOV2+29, EPOV2+30, READ+1~, READ+7*, READ+8*
READXSKIP+1*
Y(0 EPOV2+20, EPOV2+23, 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