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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 8 $$FTG^%ZISH  ^%ZTLOAD  ($$FMADD,$$FMTHL7,$$NOW)^XLFDT  PARENT^XUAF4  $$VACAA^XUESSO4  $$PROD^XUPROD  ($$AESDECR,$$B64DECD)^XUSHSH  ($$ADDNPI,$$QI)^XUSNPI  
VA FileMan 4 ^%DT  ^DIC  UPDATE^DIE  ^DIR  
Outpatient Pharmacy 1 MAIL^PSONVAP3  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO NON-VA PROVIDER IMPORT  

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

External References

Name Field # of Occurrence
^%DT MORE+15
$$FTG^%ZISH IMPORT+24
^%ZTLOAD TASK+17
^DIC SERV+6
UPDATE^DIE MORE+33, MORE+41, MORE+47
^DIR EN+14, CONSIDER+19, IMPORT+4, IMPORT+10, HDRERR+4
MAIL^PSONVAP3 PROC+28
$$FMADD^XLFDT INIT+34, IMPORT+37
$$FMTHL7^XLFDT INIT+23
$$NOW^XLFDT INIT+24, NPI+2
PARENT^XUAF4 INIT+43
$$VACAA^XUESSO4 FILE200+39
$$PROD^XUPROD EN+3, EN+9, FILE200+39
$$AESDECR^XUSHSH CHECK+5
$$B64DECD^XUSHSH CHECK+5
$$ADDNPI^XUSNPI NPI+2
$$QI^XUSNPI FNDUSR+8

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
Routine Call
  • DIC
  • Line Location:
    • SERV+6
Routine Call
  • DIE
  • Line Location:
    • MORE+33
    • MORE+41
    • MORE+47
Routine Call
  • DIR
  • Line Location:
    • EN+14
    • CONSIDER+19
    • IMPORT+4
    • IMPORT+10
    • HDRERR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(49 - [#49] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] TASK+12, MORE+46, CHKNAME+5
^XTMP( INIT+13, INIT+15, INIT+33!, INIT+34*, INIT+38*, INIT+39*, INIT+40*, IMPORT+24, IMPORT+34, IMPORT+35
, IMPORT+37*, PROC+7, PROC+17, PROC+18, CHECK+11*, CHECK+18, CHECK+19, CHECK+21*, CHECK+22*, CHECK+26
, CHECK+28*, CHECK+29*, CHECK+35, CHECK+37*, CHECK+38*, PROB+6*, PROB+7*, PROB+9*, MORE+50*, MORE+51*
, END+2!, END+3!, END+4!

Label References

Name Line Occurrences
$$CHKNAME CHECK+34
$$FNDUSR CHECK+15
CHECK PROC+27
CHKHDR IMPORT+36
CONSIDER EN+17
DEL FILE200+44
END PROC+29
FILE200 CHECK+40
HDRERR CHKHDR+30, CHKHDR+33
IMPORT EN+25
INIT EN+19
MORE FILE200+44
NPI FILE200+44
PROB FILE200+43, MORE+34, MORE+42, MORE+48
SERV EN+27
TASK EN+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS TASK+2~
AUTHCODE EN+1~, INIT+5*, FILE200+39
DIC SERV+1~, SERV+5*
DIC("A" SERV+3*
DIC(0 SERV+4*
DIR CONSIDER+1~, CONSIDER+16!, CONSIDER+19!, IMPORT+1~, HDRERR+1~, HDRERR+4!
DIR("?" CONSIDER+17*
DIR("A" EN+14*, CONSIDER+18*, IMPORT+2*, IMPORT+8*, HDRERR+4*
DIR("B" CONSIDER+16*, IMPORT+3*, IMPORT+9*
DIR(0 EN+14*, CONSIDER+16*, IMPORT+2*, IMPORT+8*, HDRERR+4*
DT INIT+23, INIT+34, IMPORT+37
DTOUT CONSIDER+1~, CONSIDER+20, SERV+1~, SERV+8, IMPORT+1~, IMPORT+5, IMPORT+11
DUOUT CONSIDER+1~, CONSIDER+20, SERV+1~, SERV+8, IMPORT+1~, IMPORT+5, IMPORT+11
DUZ TASK+12, PROC+3*
DUZ(2 INIT+43, INIT+47, INIT+52
INARRAY FILE200+2~, FILE200+39, PROB+7, MORE+52!
INARRAY(0 FILE200+4*
INARRAY(1 FILE200+6*, PROB+6, MORE+51
INARRAY(10 FILE200+25*, FILE200+44, MORE+50
INARRAY(11 FILE200+28*
INARRAY(12 FILE200+30*
INARRAY(13 FILE200+32*
INARRAY(14 FILE200+35*
INARRAY(2 FILE200+8*
INARRAY(3 FILE200+10*
INARRAY(4 FILE200+12*
INARRAY(5 FILE200+14*
INARRAY(7 FILE200+16*
INARRAY(8 FILE200+18*
INARRAY(9 FILE200+21*
POP TASK+2~
PSOA INIT+1~, INIT+15*
PSOATTRIB FNDUSR+6~
PSOATTRIB(8 FNDUSR+7*, FNDUSR+8
PSOCHK NPI+1~, NPI+2*
PSODIR IMPORT+7*, IMPORT+24, IMPORT+27, END+5!
PSODT EN+2~, INIT+23*, INIT+33, INIT+38, INIT+39, INIT+40, CHECK+11, CHECK+19, CHECK+21, CHECK+22
, CHECK+28, CHECK+29, CHECK+35, CHECK+37, CHECK+38, PROB+6, PROB+7, PROB+9, MORE+51, END+3
PSODUZ CHECK+2~, CHECK+15*, CHECK+18, CHECK+26, CHECK+31, FNDUSR+8*, FNDUSR+9
PSODUZ2 FILE200+2~, NPI~, NPI+2
PSOERR PROB+9, MORE+2~, MORE+39!, MORE+45!
PSOERR("DIERR" MORE+34, MORE+42, MORE+48
PSOFDR MORE+2~, MORE+39!
PSOFDR(200 MORE+8*, MORE+11*, MORE+16*, MORE+18*, MORE+22*, MORE+24*, MORE+26*, MORE+28*, MORE+30*, MORE+32*
, MORE+40*
PSOFILE EN+1~, IMPORT+12*, IMPORT+15, IMPORT+16, IMPORT+22*, IMPORT+24, IMPORT+26, IMPORT+34, IMPORT+35, IMPORT+37
, TASK+8*, PROC+7, PROC+17, PROC+18, HDRERR+2, END+4, END+5!
PSOFLG FILE200+2~, FILE200+3*, PROB+4, PROB+8, MORE+5*
PSOI CHKHDR+28~, CHKHDR+29*, CHKHDR+32*, CHECK+2~, CHECK+4*, CHECK+5, FILE200+2~
PSOIMPORT EN+1~, IMPORT+24*, IMPORT+25
PSOJOB EN+2~, INIT+12*, INIT+13, INIT+15, INIT+17*, INIT+33, INIT+34, INIT+38, INIT+39, INIT+40
, CHECK+11, CHECK+18, CHECK+19, CHECK+21, CHECK+22, CHECK+26, CHECK+28, CHECK+29, CHECK+35, CHECK+37
, CHECK+38, PROB+6, PROB+7, PROB+9, MORE+50, MORE+51, END+2, END+3
PSOJOBN INIT+1~, INIT+14*, INIT+16*, INIT+17
PSONAME CHKNAME+2~, CHKNAME+4*, CHKNAME+5
PSONEW FILE200+2~, FILE200+39*, FILE200+43, FILE200+44, PROB+3, MORE+8, MORE+11, MORE+16, MORE+18, MORE+22
, MORE+24, MORE+26, MORE+28, MORE+30, MORE+32, MORE+40, MORE+46, MORE+51
PSONPI CHECK+2~, CHECK+14*, CHECK+15, CHECK+18, CHECK+19, CHECK+22, CHECK+26, CHECK+29, CHECK+35, CHECK+38
, FNDUSR~, FNDUSR+7
PSONPI2 FILE200+2~, NPI~, NPI+2
PSOPAD PROB+1~, PROB+5*, PROB+6
PSOPROD EN+1~, EN+3*, EN+4, EN+9, FILE200+39
PSOQUIT EN+2~, EN+16*, EN+18, EN+23*, EN+26, EN+28, CONSIDER+20*, SERV+8*, IMPORT+5*, IMPORT+11*
, IMPORT+19*, IMPORT+28*, PROC+2~, PROC+5*, PROC+7, CHKHDR+29, CHKHDR+31, CHKHDR+32, HDRERR+5*
PSOSAVDUZ TASK+12*, PROC+3, END+5!
PSOSEQ PROC+2~, PROC+5*, PROC+7*, PROC+12, PROC+17, PROC+18
PSOSERV EN+2~, SERV+7*, MORE+8
PSOSUB INIT+1~, INIT+32*, INIT+33
PSOTIM EN+2~
PSOTITLE CHKHDR+28~, CHKHDR+29*, CHKHDR+30, CHKHDR+32*, CHKHDR+33
PSOTM INIT+24*, INIT+26*, INIT+33, INIT+38, INIT+39, INIT+40, IMPORT+24, IMPORT+34, IMPORT+35, PROC+7
, PROC+17, PROC+18, CHECK+11, CHECK+18, CHECK+21, CHECK+26, CHECK+28, CHECK+37, PROB+6, PROB+7
, PROB+9, MORE+50, MORE+51, END+2, END+4, END+5!
PSOTMP1 IMPORT+1~, IMPORT+34*, PROC+1~, PROC+17*, CHKHDR+29, CHECK+11, CHECK+21, CHECK+28, CHECK+37, FILE200+6
, FILE200+8, FILE200+10, FILE200+12, FILE200+14, FILE200+16, CHKNAME+4
PSOTMP2 IMPORT+1~, IMPORT+35*, PROC+1~, PROC+18*, PROC+25, CHKHDR+32, CHECK+4, CHECK+5*, CHECK+11, CHECK+14
, CHECK+21, CHECK+28, CHECK+37, FILE200+18, FILE200+21, FILE200+25, FILE200+28, FILE200+30, MORE+11, MORE+13
, MORE+18, MORE+22, MORE+24, MORE+26, MORE+28, MORE+30, MORE+32, MORE+40
PSOTXT PROB+1~, PROB+3*, PROB+4*, PROB+5, PROB+6
PSOUVISN INIT+1~
PSOUVISN("P" INIT+47
PSOVISN EN+1~, EN+21, INIT+47*, INIT+52*, IMPORT+15, IMPORT+17, FILE200+4
PSOXA PROC+1~, PROC+4*, CHECK+10*, CHECK+11
PSOXB PROC+1~, PROC+4*, CHECK+20*, CHECK+21
PSOXC PROC+1~, PROC+4*, CHECK+27*, CHECK+28
PSOXD PROC+1~, PROC+4*, CHECK+36*, CHECK+37
PSOXE PROC+1~, PROC+4*, PROB+2*, PROB+6, PROB+7, PROB+9
PSOXERR PROB+1~
PSOXF PROC+1~, PROC+4*, MORE+49*, MORE+51
U INIT+47, PROB+3
VIEN INIT+1~, INIT+47*
X CHECK+2~, MORE+2~, MORE+13*, MORE+14
Y CONSIDER+1~, CONSIDER+20, SERV+1~, SERV+7, IMPORT+1~, IMPORT+7, IMPORT+12, MORE+2~, MORE+16
ZTDESC TASK+2~, TASK+15*
ZTDTH TASK+2~
ZTIO TASK+2~, TASK+16*
>> ZTQUEUED END+6
>> ZTREQ END+6*
ZTRTN TASK+2~, TASK+14*
ZTSAVE TASK+2~
ZTSAVE("AUTHCODE" TASK+11*
ZTSAVE("PSODT" TASK+5*
ZTSAVE("PSOFILE" TASK+9*
ZTSAVE("PSOJOB" TASK+3*
ZTSAVE("PSOPROD" TASK+4*
ZTSAVE("PSOSAVDUZ" TASK+13*
ZTSAVE("PSOSERV" TASK+7*
ZTSAVE("PSOTM" TASK+6*
ZTSAVE("PSOVISN" TASK+10*
ZTSK TASK+2~, TASK+18

Marked Items

Name Field # of Occurrence
$T(HEADER+PSOI CHKHDR+30
$T(HEADER+PSOI+8 CHKHDR+33
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 |  Marked Items  | All