Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call