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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMER31

Package: Emergency Room

Routine: AMER31


Information

AMER31 ; IHS/ANMC/GIS -ISC - ENTER DIAGNOSES ;

Source Information

Source file <AMER31.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
IHS Patient 2 MOD^AUPNVSIT  $$ICDDX^AUPNVUTL  
Kernel 2 $$VERSION^XPDUTL  DUZ^XUP  
DRG Grouper 1 $$IMP^ICDEXA  
Emergency Room 1 ($$POV,$$S)^AMERUTIL  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component 1 ^APCDEA3  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Emergency Room 2 AMER3  AMEREDTI  

Entry Points

Name Comments DBIA/ICR reference
QD11E ;Get the visit IEN
QD11 ; ENTRY POINT FROM AMER3
UPDPOV(VPOVIEN) ;Update V POV entry with Injury Information
INJURY(AMERPOV,X) ;Match Injury with V POV and update V POV record
QD11X
AEPOV(AMERPCC,DFN,APCDMODE) ;EP - Add/Edit POV information

External References

Name Field # of Occurrence
NOW^%DTC UPDPOV+40
$$POV^AMERUTIL QD11E+51
$$S^AMERUTIL QD11E+11, QD11E+13, QD11E+21, QD11E+23, QD11E+39, QD11E+41, QD11E+47, QD11E+89, QD11E+91, INJURY+16
, INJURY+18
^APCDEA3 AEPOV+21
MOD^AUPNVSIT UPDPOV+49
$$ICDDX^AUPNVUTL QD11E+18
^DIC AEPOV+14
FILE^DIE UPDPOV+46
$$GET1^DIQ QD11E+1, QD11E+2, QD11E+16, QD11E+17, AEPOV+10, AEPOV+11, UPDPOV+8, UPDPOV+19
^DIR QD11E+33, QD11E+58, QD11E+69, QD11E+80, INJURY+28
$$IMP^ICDEXA QD11E+5
$$VAL^XBDIQ1 QD11E+19
$$VERSION^XPDUTL QD11E+5
DUZ^XUP AEPOV+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVN")
  • Line Location: QD11E+11
Function Call: WRITE
  • Prompt: !!,"Current Purpose of Visit entries on file for this visit:",!
  • Line Location: QD11E+12
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVF")
  • Line Location: QD11E+13
Function Call: WRITE
  • Prompt: !,"Code: ",$P(INFO,U,2),?15,"P/S: ",PS,?23,"Description: ",$E($P(INFO,U,4),1,55)
  • Line Location: QD11E+20
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVN")
  • Line Location: QD11E+21
Function Call: WRITE
  • Prompt: !?3,"Prov Narrative: ",PNARR
  • Line Location: QD11E+22
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVF")
  • Line Location: QD11E+23
Function Call: WRITE
  • Prompt: !
  • Line Location: QD11E+32
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVN")
  • Line Location: QD11E+39
Function Call: WRITE
  • Prompt: !!,"Select the Purpose of Visit Entry to Edit"
  • Line Location: QD11E+40
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVF")
  • Line Location: QD11E+41
Function Call: WRITE
  • Prompt: !!,"*Enter Additional Purpose of Visit Information"
  • Line Location: QD11E+45
Function Call: WRITE
  • Prompt: !!,"*Enter Purpose of Visit Information"
  • Line Location: QD11E+46
Function Call: WRITE
  • Prompt: !," Enter ",$$S^AMERUTIL("RVN"),$S(ICD10:"ZZZ.999",1:".9999"),$$S^AMERUTIL("RVF")," to log an uncoded diagnosis"
  • Line Location: QD11E+47
Function Call: WRITE
  • Prompt: !!,"This answer is mandatory."
  • Line Location: QD11E+54
Function Call: WRITE
  • Prompt: !
  • Line Location: QD11E+57
Function Call: WRITE
  • Prompt: !!,"A primary Purpose of Visit is required."
  • Line Location: QD11E+65
Function Call: WRITE
  • Prompt: !
  • Line Location: QD11E+68
Function Call: WRITE
  • Prompt: !!,"Only one primary POV is permitted."
  • Line Location: QD11E+76
Function Call: WRITE
  • Prompt: !
  • Line Location: QD11E+79
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVN")
  • Line Location: QD11E+89
Function Call: WRITE
  • Prompt: !!,"**POV ",$P(AMERPOV(AMERIEN),U)," is missing a required PROVIDER NARRATIVE entry**",!
  • Line Location: QD11E+90
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVF")
  • Line Location: QD11E+91
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVN")
  • Line Location: INJURY+16
Function Call: WRITE
  • Prompt: !!,"Current POV information on file:"
  • Line Location: INJURY+17
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVF")
  • Line Location: INJURY+18
Function Call: WRITE
  • Prompt: !!,"# ",?3,"P/S",?7,"Code",?18,"Description",?50,"Provider Narrative"
  • Line Location: INJURY+19
Function Call: WRITE
  • Prompt: !,CNT,?3,$P(AMERPOV(CNT),U,2),?7,$P(AMERPOV(CNT),U),?18,$E($P(AMERPOV(CNT),U,5),1,30),?50,$E($P(AMERPOV(CNT),U,3),1,29)
  • Line Location: INJURY+22
Function Call: WRITE
  • Prompt: !
  • Line Location: INJURY+27
Routine Call
  • DIC
  • Line Location:
    • AEPOV+14
Routine Call
  • DIE
  • Line Location:
    • UPDPOV+46
Routine Call
  • DIR
  • Line Location:
    • QD11E+33
    • QD11E+58
    • QD11E+69
    • QD11E+80
    • INJURY+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] GET1^DIQ
^AUPNVPOV - [#9000010.07] GET1^DIQ
^AMERADM - [#9009081] GET1^DIQ
^AMER(3 - [#9009083] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDSITE - [#9001001.2] AEPOV+9
^AUPNVPOV("AD" QD11E+8
^TMP("AMER" INJURY+5, UPDPOV+11, UPDPOV+14, UPDPOV+18

Label References

Name Line Occurrences
$$AEPOV QD11E+42, QD11E+48
INJURY QD11E+95
QD11E QD11E+52, QD11E+63, QD11E+74, QD11E+92, QD11E+95
QD11X QD11E+1, QD11E+52, QD11E+63, QD11E+74
UPDPOV INJURY+13, INJURY+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPDPOV+2~, UPDPOV+44
AMERDUZ QD11+2~, QD11+8*, QD11E+98, QD11X
AMERGBL AEPOV+3~, AEPOV+17*, AEPOV+18
AMERIEN QD11+2~, QD11E+85*, QD11E+87, QD11E+90
AMERNCHK QD11+2~, QD11E+85*, QD11E+88*, QD11E+92
AMERPCC QD11+4~, QD11E+1*, QD11E+2, QD11E+8, QD11E+42, QD11E+48, QD11E+51, AEPOV~, AEPOV+8, AEPOV+10
, AEPOV+11, AEPOV+18
AMERPOV QD11+2~, QD11+4~, QD11E+8*, QD11E+16, QD11E+17, QD11E+19, QD11E+51*, QD11E+52, QD11E+63, QD11E+74
, QD11E+95, INJURY~, INJURY+8
AMERPOV( QD11E+85, QD11E+87, QD11E+90, INJURY+21, INJURY+22, INJURY+34, INJURY+35
AMERPOV(1 INJURY+12
APCDCAT QD11+3~, AEPOV+1~, AEPOV+8*
APCDDATE AEPOV+2~, AEPOV+10*
APCDLOC QD11+3~, AEPOV+2~, AEPOV+11*
APCDMNE QD11+4~, AEPOV+3~, AEPOV+16*
APCDMNE("NAME" AEPOV+16*
APCDMODE QD11+3~, AEPOV~, AEPOV+18*
APCDPARM QD11+3~, AEPOV+2~, AEPOV+9*
APCDPAT QD11+3~, AEPOV+1~, AEPOV+8*
APCDTYPE QD11+3~, AEPOV+2~, AEPOV+11*
APCDVLDT QD11+4~, AEPOV+2~, AEPOV+10*
APCDVLK QD11+4~, AEPOV+1~, AEPOV+8*
APCDVSIT QD11+3~, AEPOV+1~, AEPOV+8*
AUPNVSIT UPDPOV+2~, UPDPOV+8*
CNT INJURY+2~, INJURY+20*, INJURY+21, INJURY+22, INJURY+33*
DFN QD11E+1, QD11E+42, QD11E+48, AEPOV~, AEPOV+8
DIC QD11+4~, AEPOV+3~, AEPOV+14*
DIC(0 AEPOV+14*
DIDEL QD11+4~, QD11+7*
DIR QD11E+29~, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~
DIR("A" QD11E+31*, QD11E+56*, QD11E+67*, QD11E+78*, INJURY+26*
DIR("B" QD11E+30*, QD11E+55*, QD11E+66*, QD11E+77*
DIR(0 QD11E+30*, QD11E+55*, QD11E+66*, QD11E+77*, INJURY+25*
DIROUT QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, INJURY+2~
DIRUT QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, INJURY+2~, INJURY+29
DLAYGO QD11+2~, QD11+7*
DTOUT QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, AEPOV+3~, INJURY+2~
DUOUT QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, AEPOV+3~, INJURY+2~
DUZ AEPOV+6, UPDPOV+45
DUZ("AG" QD11+8, QD11E+98
DUZ(0 QD11+8*, QD11E+98*, QD11X*
DUZ(2 AEPOV+9, AEPOV+11
ERROR UPDPOV+2~
ICD10 QD11+4~, QD11E+5*, QD11E+47
ICDIEN QD11E+9~, QD11E+16*, QD11E+18
INFO QD11E+9~, QD11E+18*, QD11E+20
INJCS UPDPOV+2~, UPDPOV+14*, UPDPOV+41
INJCVPL UPDPOV+2~, UPDPOV+24*, UPDPOV+25*, UPDPOV+26*, UPDPOV+27*, UPDPOV+28*, UPDPOV+29*, UPDPOV+30*, UPDPOV+31*, UPDPOV+32*
, UPDPOV+33*, UPDPOV+34*, UPDPOV+35*, UPDPOV+36*, UPDPOV+37*, UPDPOV+42
INJDT UPDPOV+2~, UPDPOV+11*, UPDPOV+43
INJPL UPDPOV+2~, UPDPOV+18*, UPDPOV+19*, UPDPOV+25, UPDPOV+26, UPDPOV+27, UPDPOV+28, UPDPOV+29, UPDPOV+30, UPDPOV+31
, UPDPOV+32, UPDPOV+33, UPDPOV+34, UPDPOV+35, UPDPOV+36, UPDPOV+37
PNARR QD11E+9~, QD11E+19*, QD11E+21, QD11E+22, QD11E+23
POVCNT INJURY+2~, INJURY+8*, INJURY+11, INJURY+20, INJURY+25
POVLST INJURY+2~, INJURY+30*, INJURY+33
PS QD11E+9~, QD11E+17*, QD11E+20
PVCNT QD11+2~, QD11E+8*, QD11E+10, QD11E+27, QD11E+45
U QD11E+20, QD11E+52, QD11E+63, QD11E+74, QD11E+87, QD11E+90, AEPOV+16, INJURY+12, INJURY+22, INJURY+35
VAL INJURY+2~, INJURY+33*, INJURY+34, INJURY+35
VDT QD11+4~, QD11E+2*, QD11E+5, QD11E+18
VPOVIEN INJURY+2~, INJURY+12*, INJURY+13, INJURY+35*, INJURY+36, UPDPOV~, UPDPOV+5, UPDPOV+8, UPDPOV+41, UPDPOV+42
, UPDPOV+43, UPDPOV+44, UPDPOV+45
VPOVUPD UPDPOV+2~
VPOVUPD( UPDPOV+41*, UPDPOV+42*, UPDPOV+43*, UPDPOV+44*, UPDPOV+45*
X QD11E+26*, QD11E+27, QD11E+34*, QD11E+35*, QD11E+42*, QD11E+48*, QD11E+52, QD11E+59*, QD11E+60*, QD11E+63
, QD11E+70*, QD11E+71*, QD11E+74, QD11E+81*, QD11E+82*, QD11E+95, AEPOV+3~, AEPOV+14*, INJURY~, INJURY+29*
Y QD11E+29~, QD11E+35, QD11E+36, QD11E+53~, QD11E+59*, QD11E+64~, QD11E+70, QD11E+75~, QD11E+81, QD11E+86~
, QD11E+101*, AEPOV+3~, AEPOV+15, AEPOV+16, AEPOV+18*, INJURY+2~, INJURY+30
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All