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

Package: Pharmacy Benefits Management

Routine: PSUMAP0


Information

PSUMAP0 ;BHM/PDW-MAP OAU,NAOU,DA LOCATION TO DIVISION/OUTPATIENT SITES ; 4/12/07 2:12pm

Source Information

Source file <PSUMAP0.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZIS  ^%ZTLOAD  
Pharmacy Benefits Management 1 (EN,EN1)^PSUMAPR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Benefits Management 1 PSU MAP PHARMACY LOCATIONS  

Entry Points

Name Comments DBIA/ICR reference
MODP ; module selection prompt
EN ; select Editing or Report of Mapping
E9003 ;EDIT 90.03 DRUG ACCOUNTABILITY LOCATION MAPPING
E9002 ;EDIT 90.02 CS NAOU MAPPING
E9001 ;EDIT 90.01 AR/WS AOU MAPPING
CHK1 ;check that AOUs are mapped
MODULE ;
CHK3 ;check that DRUG ACCOUNTABILITY LOCATIONs are mapped
QUEUE
EXIT ;
CHK2 ;check that NAOUs are mapped
REPORT ;Print Mapping Report
MODHLP

External References

Name Field # of Occurrence
^%ZIS REPORT+2
^%ZTLOAD QUEUE+1
^DIC E9001+9, E9002+9, E9003+9
^DIE E9001+15, E9002+15, E9003+15
$$GET1^DIQ CHK1+6, CHK2+6, CHK3+6
^DIR MODHLP+20, MODHLP+25, CHK1+7, CHK3+7
EN^PSUMAPR REPORT+5
EN1^PSUMAPR MODP+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?10,"MAPPING PHARMACY LOCATIONS FOR PBM EXTRACTS",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,?5,"This option allows the mapping of dispensing/procurement locations"
  • Line Location: MODP+1
Function Call: WRITE
  • Prompt: !,?5,"from the AR/WS, Controlled Substances, and Drug Accountability"
  • Line Location: MODP+2
Function Call: WRITE
  • Prompt: !,?5,"applications to either a Medical Center Division or an Outpatient Site."
  • Line Location: MODP+3
Function Call: WRITE
  • Prompt: !,?5,"Any dispensing/procurement data associated with an AR/WS AOU, CS NAOU"
  • Line Location: MODP+4
Function Call: WRITE
  • Prompt: !,?5,"or DA Pharmacy Location that has not been mapped will be attributed to"
  • Line Location: MODP+5
Function Call: WRITE
  • Prompt: !,?5,"to the facility at which the database resides. Any unmapped locations"
  • Line Location: MODP+6
Function Call: WRITE
  • Prompt: !,?5,"will be displayed upon entering the option.",!
  • Line Location: MODP+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MODP+10
Function Call: WRITE
  • Prompt: !!,"Select the dispensing/procurement location to map:",!
  • Line Location: MODULE+1
Function Call: WRITE
  • Prompt: !,?10,PSUA(I)
  • Line Location: MODULE+6
Function Call: WRITE
  • Prompt: !!,?2,"You may select all by entering 'A' for ALL or by using '1:4'.",!
  • Line Location: MODULE+7
Function Call: WRITE
  • Prompt: !,?2,"Select the dispensing/procurement location: "
  • Line Location: MODULE+8
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: MODULE+9
Function Call: WRITE
  • Prompt: !!,"Nothing Selected - Exiting",!
  • Line Location: MODULE+9
Function Call: WRITE
  • Prompt: " <??>",$C(7)
  • Line Location: MODULE+11
Function Call: WRITE
  • Prompt: !!,"<INVALID CHOICE - ",X,", TRY AGAIN>",$C(7)
  • Line Location: MODHLP+19
Function Call: WRITE
  • Prompt: !!,"No choices were made."
  • Line Location: MODHLP+20
Function Call: WRITE
  • Prompt: !!,"You have selected: "
  • Line Location: MODHLP+23
Function Call: WRITE
  • Prompt: !,?10,PSUA(X)
  • Line Location: MODHLP+24
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"EDITING Mapping of AR/WS AOUs",!!
  • Line Location: E9001+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E9001+15
Function Call: WRITE
  • Prompt: !,?3,"AR/WS AOU",?15,$$GET1^DIQ(59.79001,IENS,.01),?25," is not mapped."
  • Line Location: CHK1+6
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"EDITING Mapping of CS NAOUs",!!
  • Line Location: E9002+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E9002+15
Function Call: WRITE
  • Prompt: !,?3,"CS NAOU",?15,$$GET1^DIQ(59.79002,IENS,.01),?25," is not mapped."
  • Line Location: CHK2+6
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"EDITING Mapping of DA Pharmacy Locations",!!
  • Line Location: E9003+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E9003+15
Function Call: WRITE
  • Prompt: !,?3,"DA Phar Loc",?15,$$GET1^DIQ(59.79003,IENS,.01),?25," is not mapped."
  • Line Location: CHK3+6
Function Call: WRITE
  • Prompt: @IOF,!,"Print Pharmacy Location PBM Extract Mapping Report",!
  • Line Location: REPORT+1
Function Call: WRITE
  • Prompt: ">> DID NOT Task !!",!
  • Line Location: QUEUE+2
Routine Call
  • DIE
  • Line Location:
    • E9001+15
    • E9002+15
    • E9003+15
Routine Call
  • DIC
  • Line Location:
    • E9001+9
    • E9002+9
    • E9003+9
Routine Call
  • DIR
  • Line Location:
    • MODHLP+20
    • MODHLP+25
    • CHK1+7
    • CHK3+7
Routine Call
  • %ZIS
  • Line Location:
    • REPORT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.7 - [#59.7] Classic Fileman Calls
59.79001 GET1^DIQ
59.79002 GET1^DIQ
59.79003 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.7 - [#59.7] E9001+12, CHK1+2, CHK1+3, E9002+12, CHK2+2, CHK2+3, E9003+12, CHK3+2, CHK3+3

Label References

Name Line Occurrences
E9001 MODHLP+27, E9001+16
E9002 MODHLP+28, E9002+16
E9003 MODHLP+29, E9003+16
EXIT MODULE+9, MODULE+10, MODHLP+20, MODHLP+25
MODP MODHLP+19
MODULE MODHLP
QUEUE REPORT+4
REPORT MODHLP+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS REPORT+2*
DA E9001+2!, E9001+11*, E9001+12, CHK1+2*, CHK1+3, CHK1+6, E9002+2!, E9002+11*, E9002+12, CHK2+2*
, CHK2+3, CHK2+6, E9003+2!, E9003+11*, E9003+12, CHK3+2*, CHK3+3, CHK3+6
DA(1 E9001+4*, E9001+5*, CHK1+2*, E9002+4*, CHK2+2*, E9003+4*, CHK3+2*
DIC E9001+2!, E9001+5*, E9001+11, E9002+2!, E9002+5*, E9002+11, E9003+2!, E9003+5*, E9003+11
DIC("W" E9001+6*, E9002+6*, E9003+6*
DIC(0 E9001+5*, E9002+5*, E9003+5*
DIE E9001+2!, E9001+11*, E9002+2!, E9002+11*, E9003+2!, E9003+11*
DIR MODHLP+20!, MODHLP+25!, CHK1+7!, CHK3+7!
DIR("A" MODHLP+20*
DIR(0 MODHLP+20*, MODHLP+25*, CHK1+7*, CHK3+7*
>> DR E9001+13*, E9001+14*, E9002+13*, E9002+14*, E9003+13*, E9003+14*
DTIME MODULE+9
>> ERC MODHLP+18*, MODHLP+19
>> I MODULE+6*
IENS E9001+3!, CHK1+1!, CHK1+6*, CHK1+7, E9002+3!, CHK2+1!, CHK2+6*, E9003+3!, CHK3+1!, CHK3+6*
, CHK3+7
IO("Q" REPORT+4
IOF EN+1, MODP+10, E9001+1, E9002+1, E9003+1, REPORT+1
>> PII MODHLP+8*, MODHLP+9
PJJ MODHLP+14*, MODHLP+15!
>> POP REPORT+3
>> PSUA( MODULE+6, MODHLP+18, MODHLP+24
>> PSUA(1 MODULE+2*
>> PSUA(2 MODULE+3*
>> PSUA(3 MODULE+4*
>> PSUA(4 MODULE+5*, MODHLP+26!
PSUMOD MODHLP+7!, MODHLP+20
PSUMOD( MODHLP+14*, MODHLP+16*, MODHLP+18, MODHLP+24
PSUMOD(1 MODHLP+27
PSUMOD(2 MODHLP+28
PSUMOD(3 MODHLP+29
PSUMOD(4 MODHLP+26
>> PSUOPTS MODHLP+24*
>> PSUSTOP CHK1+7*, CHK3+7*
>> STOP CHK1+7, CHK3+7
U E9001+12, CHK1+3, E9002+12, CHK2+3, E9003+12, CHK3+3
>> X MODULE+9*, MODULE+10, MODULE+11*, MODULE+13*, MODHLP, MODHLP+6*, MODHLP+8, MODHLP+9, MODHLP+18*, MODHLP+19
, MODHLP+24*, CHK1+3*, CHK1+4, CHK1+5, CHK1+7, CHK2+3*, CHK2+4, CHK2+5, CHK3+3*, CHK3+4
, CHK3+5, CHK3+7
>> X1 MODHLP+9*, MODHLP+10, MODHLP+11, MODHLP+12, MODHLP+16
XBEG MODHLP+12*, MODHLP+13, MODHLP+14, MODHLP+15!
XEND MODHLP+12*, MODHLP+13, MODHLP+14, MODHLP+15!
>> XX E9001+12*, E9002+12*, E9003+12*
>> XX1 E9001+7*, E9002+7*, E9003+7*
>> XX2 E9001+8*, E9002+8*, E9003+8*
>> Y MODHLP+25, E9001+10, E9001+11, CHK1+3*, CHK1+4, CHK1+5, E9002+10, E9002+11, CHK2+3*, CHK2+4
, CHK2+5, E9003+10, E9003+11, CHK3+3*, CHK3+4, CHK3+5
>> YY E9001+12*, E9001+13, E9002+12*, E9002+13, E9003+12*, E9003+13
Z E9001+3!, CHK1+3*, E9002+3!, CHK2+3*, E9003+3!, CHK3+3*
>> ZTDESC QUEUE*
>> ZTREQ QUEUE+1*
>> ZTRTN QUEUE*
>> ZTSK QUEUE+2
ZZ E9001+3!, E9001+12*, E9002+3!, E9002+12*, E9003+3!, E9003+12*
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