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

Entry Points

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

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
  • Variable: X
  • Timeout: DTIME
  • 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

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