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: PSUMAPR

Package: Pharmacy Benefits Management

Routine: PSUMAPR


Information

PSUMAPR ;BHM/PDW-REPORT OF MAP OAU,NAOU,DA LOCATION TO DIVISION/OUTPATIENT SITES ; 9SEP2003

Source Information

Source file <PSUMAPR.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Benefits Management 1 PSUMAP0  

Entry Points

Name Comments DBIA/ICR reference
UNMAPD ;Display this if unmapped locations exist
EN ; select Editing or Report of Mapping
PGB
MAPD ;Display this if all locations are mapped
AOU1 ;Find AR/WS AOU's and set unmapped locations into AOU array
PGHB
DRACC1 ;Find DA Pharmacy Locations and set unmapped locations into DRAC array
NAOU1 ;Find Controlled Substances AOU's and set unmapped locations
PGH1
PGH
DRACC ;
EN1 ;Scan for unmapped locations
AOU
BRK ;Page break. Occurs in the middle of a list
PG ;Page break between headers
NAOU ;CS NAOU Drug Accountability 'Primary
PGH1B

External References

Name Field # of Occurrence
$$GET1^DIQ AOU+7, AOU+8, NAOU+11, NAOU+12, DRACC+13, DRACC+14, AOU1+7, AOU1+8, AOU1+9, NAOU1+14
, NAOU1+15, NAOU1+16, DRACC1+12, DRACC1+13, DRACC1+14
^DIR DRACC+17, BRK+4, PG+2
$$FMTE^XLFDT AOU+8, NAOU+13, DRACC+15, PGH+2, PGHB+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PSNM
  • Line Location: AOU+6
Function Call: WRITE
  • Prompt: ?60,$$FMTE^XLFDT(PSINADT,"D")
  • Line Location: AOU+8
Function Call: WRITE
  • Prompt: !
  • Line Location: AOU+9
Function Call: WRITE
  • Prompt: !,PSNM
  • Line Location: NAOU+10
Function Call: WRITE
  • Prompt: ?60,$$FMTE^XLFDT(PSINADT,"D")
  • Line Location: NAOU+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+14
Function Call: WRITE
  • Prompt: !,PSNM
  • Line Location: DRACC+12
Function Call: WRITE
  • Prompt: ?60,$$FMTE^XLFDT(PSINADT,"D")
  • Line Location: DRACC+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: DRACC+17
Function Call: WRITE
  • Prompt: !!,?3,"All pharmacy dispensing/procurement locations are mapped.",!
  • Line Location: MAPD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: UNMAPD+3
Function Call: WRITE
  • Prompt: ?40,"**Inactive**"
  • Line Location: UNMAPD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: UNMAPD+16
Function Call: WRITE
  • Prompt: ?40,"**Inactive**"
  • Line Location: UNMAPD+27
Function Call: WRITE
  • Prompt: !
  • Line Location: UNMAPD+31
Function Call: WRITE
  • Prompt: ?40,"**Inactive**"
  • Line Location: UNMAPD+42
Function Call: WRITE
  • Prompt: !
  • Line Location: UNMAPD+46
Function Call: WRITE
  • Prompt: !
  • Line Location: BRK+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PG+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGH+0
Function Call: WRITE
  • Prompt: !,"MAPPED/UNMAPPED LOCATIONS"
  • Line Location: PGH+1
Function Call: WRITE
  • Prompt: ?30,$$FMTE^XLFDT(DT)
  • Line Location: PGH+2
Function Call: WRITE
  • Prompt: ?60,"PAGE: ",PG,!,LINE,!,"NAME",?30,"DIVISION/OUTPATIENT SITE",?60,"INACTIVE DATE"
  • Line Location: PGH+3
Function Call: WRITE
  • Prompt: !!,$G(HDR),!,LINE2
  • Line Location: PGH1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGHB+0
Function Call: WRITE
  • Prompt: !,"UNMAPPED LOCATIONS"
  • Line Location: PGHB+1
Function Call: WRITE
  • Prompt: ?30,$$FMTE^XLFDT(DT)
  • Line Location: PGHB+2
Function Call: WRITE
  • Prompt: ?60,"PAGE: ",PG,!,LINE,!,"NAME",?40,"INACTIVE DATE"
  • Line Location: PGHB+3
Function Call: WRITE
  • Prompt: !!,$G(HDR),!,LINE2
  • Line Location: PGH1B+0
Routine Call
  • DIR
  • Line Location:
    • DRACC+17
    • BRK+4
    • PG+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] GET1^DIQ
^PSD(58.8 - [#58.8] GET1^DIQ
59.79001 GET1^DIQ
59.79002 GET1^DIQ
59.79003 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] NAOU+4, NAOU+5, NAOU+6, DRACC+5, DRACC+6, DRACC+7, DRACC+8, NAOU1+6, NAOU1+8, NAOU1+9
, NAOU1+11, DRACC1+5, DRACC1+7, DRACC1+8, DRACC1+9
^PSI(58.1 - [#58.1] AOU+2, AOU+3, AOU1+5, AOU1+6

Label References

Name Line Occurrences
AOU1 EN1+5
BRK AOU+4, NAOU+8, DRACC+10, UNMAPD+13, UNMAPD+28, UNMAPD+43
DRACC1 EN1+7
MAPD EN1+9
NAOU1 EN1+6
PG AOU+10, NAOU+15, UNMAPD+17, UNMAPD+32, UNMAPD+47
PGH EN+4
PGH1 AOU, NAOU+2, DRACC+3
UNMAPD EN1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AOU AOU1+4!, MAPD+2, UNMAPD+4
AOU( AOU1+9*, UNMAPD+8, UNMAPD+10, UNMAPD+12
C EN+1~, AOU+1*, AOU+5*, NAOU+3*, NAOU+9*, DRACC+4*, DRACC+11*, UNMAPD+2~, UNMAPD+5*, UNMAPD+14*
, UNMAPD+15*, UNMAPD+20*, UNMAPD+29*, UNMAPD+30*, UNMAPD+35*, UNMAPD+44*, UNMAPD+45*, BRK+2
DIR DRACC+17!, BRK+4!, PG+2!
DIR("A" DRACC+17*
DIR(0 DRACC+17*, BRK+4*, PG+2*
DRAC DRACC1+4!, MAPD+2, UNMAPD+34
DRAC( DRACC1+14*, UNMAPD+38, UNMAPD+40, UNMAPD+42
DT PGH+2, PGHB+2
>> HDR EN+3*, AOU*, NAOU+2*, DRACC+2*, PGH1, PGH1B
>> IEN AOU+7*, NAOU+11*, DRACC+13*, AOU1+7*, AOU1+8, NAOU1+13*, NAOU1+14, NAOU1+15, DRACC1+11*, DRACC1+12
, DRACC1+13
IOF BRK+7, PG+4, PGH, PGHB
IOSL UNMAPD+14, UNMAPD+29, UNMAPD+44, BRK+2, PGB
IOST DRACC+17, BRK+4, PG+2
LINE EN+2!, EN+3*, PGH+3, PGHB+3
LINE2 EN+2!, EN+3*, PGH1, PGH1B
NAOU NAOU1+5!, MAPD+2, UNMAPD+19
NAOU( NAOU1+16*, UNMAPD+23, UNMAPD+25, UNMAPD+27
PG EN+2!, BRK+6*, PG+3*, PGH+3*, PGHB+3*
>> PSDA AOU+3*, AOU+7, AOU+8, NAOU+5*, NAOU+6, NAOU+11, NAOU+12, DRACC+6*, DRACC+7, DRACC+8
, DRACC+13, DRACC+14, AOU1+6*, AOU1+7, AOU1+9, NAOU1+7*, NAOU1+8*, NAOU1+9, NAOU1+11, NAOU1+13
, NAOU1+16, DRACC1+6*, DRACC1+7*, DRACC1+8, DRACC1+9, DRACC1+11, DRACC1+14, UNMAPD+9*, UNMAPD+10*, UNMAPD+12
, UNMAPD+24*, UNMAPD+25*, UNMAPD+27, UNMAPD+39*, UNMAPD+40*, UNMAPD+42
>> PSDIV AOU+7*, NAOU+11*, DRACC+13*, AOU1+7*, AOU1+9, NAOU1+14*, NAOU1+16, DRACC1+12*, DRACC1+14
>> PSINADT AOU+8*, NAOU+6*, NAOU+12*, NAOU+13, DRACC+8*, DRACC+14*, DRACC+15, NAOU1+11*, DRACC1+9*
>> PSN0 NAOU+6*, DRACC+7*, NAOU1+9*, NAOU1+10, DRACC1+8*
>> PSNM AOU+2*, AOU+3, AOU+6, NAOU+4*, NAOU+5, NAOU+10, DRACC+5*, DRACC+6, DRACC+12, AOU1+5*
, AOU1+6, AOU1+9, NAOU1+6*, NAOU1+8, NAOU1+16, DRACC1+5*, DRACC1+7, DRACC1+14, UNMAPD+4*, UNMAPD+8*
, UNMAPD+10, UNMAPD+11, UNMAPD+12, UNMAPD+19*, UNMAPD+23*, UNMAPD+25, UNMAPD+26, UNMAPD+27, UNMAPD+34*, UNMAPD+38*
, UNMAPD+40, UNMAPD+41, UNMAPD+42
>> PSOP AOU+7*, NAOU+11*, DRACC+13*, AOU1+8*, AOU1+9, NAOU1+15*, NAOU1+16, DRACC1+13*, DRACC1+14
>> PSQUIT EN+3*, AOU+2, AOU+3, AOU+4, AOU+10, NAOU+1, NAOU+4, NAOU+8, NAOU+15, DRACC+1
, DRACC+5, DRACC+10, EN1+4*, AOU1+5, NAOU1+6, DRACC1+5, UNMAPD+8, UNMAPD+10, UNMAPD+13, UNMAPD+17
, UNMAPD+23, UNMAPD+25, UNMAPD+28, UNMAPD+32, UNMAPD+38, UNMAPD+40, UNMAPD+43, UNMAPD+47, BRK+5*, PG+2*
, PGB*
>> PSTYP NAOU+6*, NAOU+7, DRACC+7*, DRACC+9, NAOU1+10*, NAOU1+12, DRACC1+8*, DRACC1+10
PSULOC EN1+3~, AOU1+2*, UNMAPD+6
PSULOC1 EN1+3~, NAOU1+3*, UNMAPD+21
PSULOC2 EN1+3~, DRACC1+2*, UNMAPD+36
U NAOU+6, DRACC+7, NAOU1+10, DRACC1+8
>> Y BRK+5, PG+2
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