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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCDSW

Package: Patient Care Component

Routine: APCDSW


Information

APCDSW ; IHS/CMI/LAB - SWITCH TO V FILE ;

Source Information

Source file <APCDSW.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Patient 3 $$AGE^AUPNPAT  $$IMP^AUPNSICD  $$CONC^AUPNVUTL  
IHS VA Utilities 3 ($$VAL,$$VALI)^XBDIQ1  VIEWR^XBLM  EN^XBNEW  
IHS Standard Terminology 1 $$I10ADV^BSTSAPI  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 $$VD^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component 2 APCDACC  APCDACCR  

Entry Points

Name Comments DBIA/ICR reference
MAP ;EP - CALLED FROM XBDBQUE
RDRK
GETVAL ;
RDR
WRITE ;
DISPMAP ;
DISPMAP1 ;
DIQ ;

External References

Name Field # of Occurrence
$$VD^APCLV MAP+1, DISPMAP1+3
$$AGE^AUPNPAT DISPMAP1+3
$$IMP^AUPNSICD MAP+2
$$CONC^AUPNVUTL DISPMAP1+2
$$I10ADV^BSTSAPI MAP+6
^DIR MAP+13
$$VAL^XBDIQ1 RDR+2, RDR+3, WRITE+2, WRITE+3, WRITE+4, DIQ+1, MAP+4, DISPMAP1+1, DISPMAP1+3
$$VALI^XBDIQ1 DISPMAP1+3
VIEWR^XBLM DISPMAP+3
EN^XBNEW RDR+3, WRITE+5
$$FMTE^XLFDT GETVAL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: APCDSW+20
Function Call: WRITE
  • Prompt: !!,"You cannot use this mnemonic with a V POV that has been SNOMED coded.",!
  • Line Location: RDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RDRK+1
Function Call: WRITE
  • Prompt: !,APCDSWI," ",APCDSWVA," "," ",$$VAL^XBDIQ1(APCDSWD,Y,.02)," ",$$VAL^XBDIQ1(APCDSWD,Y,.03)
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !?3,"Prov Narrative: ",$$VAL^XBDIQ1(APCDSWD,Y,.04)
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !?3,"SNOMED CT: ",$$VAL^XBDIQ1(APCDSWD,Y,1101)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: @("$E("_DIC_"Y,0),0)")
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: @("$E("_DIC_"Y,0),0)")
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: !?2,$P(^DD(9000010.54,APCDF,0),U,1),": ",Z
  • Line Location: DIQ+1
Function Call: WRITE
  • Prompt: !!,"This POV has been SNOMED coded and there is map advice available."
  • Line Location: MAP+9
Function Call: WRITE
  • Prompt: !,"Provider Narrative: "_$$VAL^XBDIQ1(9000010.07,APCDLOOK,.04)
  • Line Location: DISPMAP1+1
Function Call: WRITE
  • Prompt: !,"FSN: "_$P($$CONC^AUPNVUTL(APCDSMC),U,2)
  • Line Location: DISPMAP1+2
Function Call: WRITE
  • Prompt: !,"Patient's Age at visit: ",$$AGE^AUPNPAT($$VALI^XBDIQ1(9000010.07,APCDLOOK,.02),$$VD^APCLV($$VALI^XBDIQ1(9000010.07,APCDLOOK,.03)),"E")," ",$$VAL^XBDIQ1(2,$$VALI^XBDIQ1(9000010.07,APCDLOOK,.02),.02)
  • Line Location: DISPMAP1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPMAP1+4
Function Call: WRITE
  • Prompt: !,APCDSMA(X)
  • Line Location: DISPMAP1+5
Routine Call
  • DIR
  • Line Location:
    • MAP+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDSITE - [#9001001.2] MAP+11
^AUPNVPOV - [#9000010.07] MAP+1
^DD(9000010.54 DIQ+1
^DIC - [#1] APCDSW+14, APCDSW+15

Label References

Name Line Occurrences
DISPMAP MAP+17
GETVAL APCDSW+21
RDRK RDR+2
WRITE APCDSW+21

Naked Globals

Name Field # of Occurrence
^( WRITE+7
^(0 GETVAL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDF DIQ+1*
APCDHDR DISPMAP+1~, DISPMAP+2*, DISPMAP+3
>> APCDJ( MAP+16*
>> APCDLOOK APCDSW+7*, APCDSW+9*, RDR+1*, RDR+2*, RDR+3, MAP+1, MAP+4, DISPMAP1+1, DISPMAP1+3
>> APCDMNE("NAME" RDR+2
APCDSMA MAP+18!
APCDSMA( DISPMAP1+5
APCDSMC MAP+4*, MAP+6, MAP+18!, DISPMAP+2, DISPMAP1+2
APCDSWAN APCDSW+23*, RDR*, RDR+1, RDRK!
APCDSWCR APCDSW+16*, APCDSW+17*, APCDSW+18, APCDSW+19, APCDSW+21, RDRK!
APCDSWD APCDSW+12, APCDSW+13, APCDSW+14, APCDSW+15, APCDSW+16, APCDSW+17, RDR+2, RDR+3, RDRK!, GETVAL+1
, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+7
APCDSWD2 RDRK!, GETVAL+1*, GETVAL+2*, GETVAL+3
APCDSWDA APCDSW+21*, RDRK!, GETVAL+1, WRITE+7
APCDSWEX RDRK!, WRITE+7*
APCDSWG APCDSW+15*, APCDSW+21, RDRK!, GETVAL+1
APCDSWG2 RDRK!, GETVAL+1*, GETVAL+2*
APCDSWI APCDSW+21*, APCDSW+22*, APCDSW+23, RDR, RDRK!, WRITE+2, WRITE+7
APCDSWL RDRK!, GETVAL+2*, WRITE+7*
APCDSWN RDRK!, WRITE+7*
APCDSWP RDRK!
APCDSWT RDRK!
APCDSWT( RDR+1, WRITE+7*
APCDSWV APCDSW+10, APCDSW+11, RDRK!
APCDSWV2 RDRK!, GETVAL+1*, GETVAL+2*
APCDSWVA RDRK!, GETVAL+2*, GETVAL+3*, WRITE+2
APCDSWZ RDRK!
>> APCDV( MAP+16
>> APCDVFIE APCDSW+7
>> APCDZ WRITE+5*, DIQ+1
>> D MAP+1*, MAP+2*, MAP+3, MAP+6*, MAP+7
DA MAP+12!
>> DIC APCDSW+21*, WRITE+6, WRITE+7
DIR MAP+10!, MAP+13!
DIR("A" MAP+11*
DIR("B" MAP+11*
DIR(0 MAP+11*
>> DIRUT MAP+14
DTIME RDR
DUZ(2 MAP+11
P WRITE+1~
Q WRITE+1~
U APCDSW+8*, GETVAL+2, DIQ+1, MAP+1, MAP+11, DISPMAP1+2
X MAP+16*, DISPMAP1+5~*
Y APCDSW+21*, RDRK!, WRITE+2, WRITE+3, WRITE+4, WRITE+5, MAP+15
>> Z DIQ+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All