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

Package: Outpatient Pharmacy

Routine: PSONVAP2


Information

PSONVAP2 ;HPS/DSK - Non-VA Provider Updates ;May 16, 2018@16:00

Source Information

Source file <PSONVAP2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;load non-VA providers into file 200
CONSIDER ;
INIT ;initialize
SERV ;
IMPORT ;
TASK ;task processing
PROC ;
CHKHDR ;
HDRERR ;Header row is incorrect
HEADER ;
CHECK ;analyze data and determine whether to file
FILE200 ;
PROB ;problem detected after FileMan call
NPI(PSODUZ2,PSONPI2) ;This call needed to file EFFECTIVE DATE/TIME and sub-fields
MORE ;File additional fields
DEL ;Delete key XUORES which was filed by XUESSO4
FNDUSR(PSONPI) ;see if provider already on file
CHKNAME() ;is provider name already in New Person file
END ;clean up

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option may only be invoked in a production environment."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"This is a test environment."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"If you are testing, the variable PSOPROD must be manipulated in debug mode."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"*** This is a test environment but the Prod/Test environment indicator "
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"*** indicates this is a production environment for testing purposes."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"*** Make sure you have the routine ZKESSO4 which is applicable for your site"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"*** or test environment.",!!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,"Your site VISN is: ",PSOVISN,"."
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,"Only providers for your VISN may be imported."
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !!,"Considerations before invoking this option:"
  • Line Location: CONSIDER+2
Function Call: WRITE
  • Prompt: !!,"TITLE (#3.1) file:"
  • Line Location: CONSIDER+3
Function Call: WRITE
  • Prompt: !,?5,"Have the titles ""HN NON-VA PROVIDER"" and ""TW NON-VA PROVIDER"""
  • Line Location: CONSIDER+4
Function Call: WRITE
  • Prompt: !,?5,"been defined in the TITLE (#3.1) file in this system?"
  • Line Location: CONSIDER+5
Function Call: WRITE
  • Prompt: !,?5,"It is optional to have the titles defined."
  • Line Location: CONSIDER+6
Function Call: WRITE
  • Prompt: !,?5,"However, the providers loaded by this patch will have no titles"
  • Line Location: CONSIDER+7
Function Call: WRITE
  • Prompt: !,?5,"listed in CPRS if these titles are not pre-defined prior to importing"
  • Line Location: CONSIDER+8
Function Call: WRITE
  • Prompt: !,?5,"the non-VA provider information included in this update."
  • Line Location: CONSIDER+9
Function Call: WRITE
  • Prompt: !!,"SERVICE/SECTION (#49) file:"
  • Line Location: CONSIDER+10
Function Call: WRITE
  • Prompt: !,?5,"Determine whether an entry for the SERVICE/SECTION (#29) field"
  • Line Location: CONSIDER+11
Function Call: WRITE
  • Prompt: !,?5,"should be populated during the import."
  • Line Location: CONSIDER+12
Function Call: WRITE
  • Prompt: !,?5,"It is optional to populate the SERVICE/SECTION (#29) field."
  • Line Location: CONSIDER+13
Function Call: WRITE
  • Prompt: !,?5,"Your site may wish to define a new SERVICE/SECTION (#49) file entry"
  • Line Location: CONSIDER+14
Function Call: WRITE
  • Prompt: !,?5,"such as ""NON-VA COMMUNITY CARE"".",!
  • Line Location: CONSIDER+15
Function Call: WRITE
  • Prompt: !!,"Press ENTER if the SERVICE/SECTION (#29) field should not be populated.",!
  • Line Location: SERV+2
Function Call: WRITE
  • Prompt: !!,"This file pertains to VISN ",$P(PSOFILE,"_",3)
  • Line Location: IMPORT+16
Function Call: WRITE
  • Prompt: !,"Only files for your VISN of ",PSOVISN
  • Line Location: IMPORT+17
Function Call: WRITE
  • Prompt: !,"may be imported.",!
  • Line Location: IMPORT+18
Function Call: WRITE
  • Prompt: !!," **** FILE: ",PSOFILE," not found in directory ****"
  • Line Location: IMPORT+26
Function Call: WRITE
  • Prompt: !!," **** ",PSODIR,". ****",!
  • Line Location: IMPORT+27
Function Call: WRITE
  • Prompt: -
  • Line Location: CHKHDR+26
Function Call: WRITE
  • Prompt: !!,"**** Header row is missing or incorrect in file ",PSOFILE,". ****"
  • Line Location: HDRERR+2
Function Call: WRITE
  • Prompt: !!," Submit a ticket to Tier 2 to report this issue.",!
  • Line Location: HDRERR+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(49 - [#49] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call