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

Package: National Drug File

Routine: PSN513PO


Information

PSN513PO ;BIR/SJA-Post install routine for patch PSN*4*513 ; 19 Jan 2017 1:20 PM

Source Information

Source file <PSN513PO.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 MSG^DIALOG  (,$$FIND1)^DIC  FILE^DICN  (,FILE,UPDATE)^DIE  CLEAN^DILF  $$GET1^DIQ  
Kernel 2 $$ADD^XPDMENU  (BMES,MES)^XPDUTL  
Web Services Client 1 ($$GENPORT,REGREST)^XOBWLIB  

Entry Points

Name Comments DBIA/ICR reference
SERVICE(SVCS,SRVR,SVRIEN) ; add web service to web server
; Input: SVCS - web service name
; SRVR - web server name
; SVRIEN - web server ien
PSSENABL ;
FILESRVR(PSNSRVR,PSNADRS,PSNPORT) ; File a new record in file #18.12 or edit existing
; Input: PSNSRVR - web server name
; PSNADRS - web server address
; PSNPORT - port number
; Output:
; Function Value - Returns IEN of record on success, 0 on failure
DISPERR(PSNARR,PSSMXUA2) ; display error message
PSSENAB2 ;
SETWSQT ;
MSG(ITEM,PSNA) ; -- write message
ADD ; -- add new menu option and update order for PSNMGR & PSN PPS MENU
SETWS ;define UPDATE_STATUS web service
SETWS2 ;
POST ; -- post-install entry
PPSN ; -- add new entry in ^PS(57.23 if it doesn't exist
LINE ;

External References

Name Field # of Occurrence
MSG^DIALOG DISPERR+3
^DIC SETWS+3, SETWS2+1, SETWS2+13, PSSENABL+1
$$FIND1^DIC FILESRVR+8, SERVICE+7
FILE^DICN PPSN+3
^DIE PPSN+6, PSSENAB2+1
FILE^DIE FILESRVR+28
UPDATE^DIE FILESRVR+33, SERVICE+13
CLEAN^DILF SERVICE+21
$$GET1^DIQ SETWS2+20, PSSENAB2+2
$$GENPORT^XOBWLIB SETWS+10
REGREST^XOBWLIB SETWS2+2
$$ADD^XPDMENU ADD+1, ADD+2, ADD+3, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10, ADD+11
BMES^XPDUTL POST+6, POST+8, ADD+4, ADD+5, MSG+1, SETWS+5, SETWS+13, SETWS+16, SETWS2+4, SETWS2+10
, SETWS2+15, SETWS2+16, SETWS2+24, SETWSQT+3, SETWSQT+4, SETWSQT+5, SETWSQT+7, PSSENAB2+4, FILESRVR+13
MES^XPDUTL ADD+12, SERVICE+16, SERVICE+17, SERVICE+19, SERVICE+20, SERVICE+23, SERVICE+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Database Server Error Information:"
  • Line Location: DISPERR+2
Function Call: WRITE
  • Prompt: !,$G(PSNOUT(PSNI))
  • Line Location: DISPERR+4
Routine Call
  • DIE
  • Line Location:
    • FILESRVR+33
    • SERVICE+13
Routine Call
  • DIE
  • Line Location:
    • PPSN+6
    • PSSENAB2+1
Routine Call
  • DIALOG
  • Line Location:
    • DISPERR+3
Routine Call
  • DIC
  • Line Location:
    • SETWS+3
    • SETWS2+1
    • SETWS2+13
    • PSSENABL+1
Routine Call
  • DIC
  • Line Location:
    • FILESRVR+8
    • SERVICE+7
Routine Call
  • DIE
  • Line Location:
    • FILESRVR+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XOB(18.02 - [#18.02] Classic Fileman Calls,  FIND1^DIC
^XOB(18.12 - [#18.12] Classic Fileman Calls,  FIND1^DIC
18.121 GET1^DIQ
^PS(57.23 - [#57.23] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(57.23 - [#57.23] PPSN+1
^PS(59.7 - [#59.7] PPSN+7*
^PSNDF(50.68 - [#50.68] POST+3, POST+4!
^XOB(18.12 - [#18.12] SETWS2+14, SETWSQT+1, SERVICE+8

Label References

Name Line Occurrences
$$FILESRVR POST+11
ADD POST+7
DISPERR FILESRVR+30, FILESRVR+35, SERVICE+15
LINE SETWSQT+9
MSG ADD+6
PPSN POST+9
PSSENAB2 SETWS2+22
PSSENABL SETWS2+19, SETWS2+21
SERVICE POST+12
SETWS POST+10
SETWS2 SETWS2+2
SETWSQT SETWS+15, SETWS2+3, SETWS2+14, SETWS2+19, SETWS2+21, SETWS2+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PPSN+3!, PPSN+6*, SETWS+1~, SETWS2+12!, PSSENAB2+1*
DA(1 PSSENABL+1*, PSSENAB2+1*
DIC PPSN+3!*, SETWS+1~, SETWS+3*, SETWS+11*, SETWS+12!, SETWS2+1*, SETWS2+12!, SETWS2+13*, PSSENABL+1*
DIC(0 PPSN+3*, SETWS+3*, SETWS+11*, SETWS2+1*, SETWS2+13*, PSSENABL+1*
DIE PPSN+6*, SETWS+1~, SETWS2+12!, PSSENAB2+1*
DIERR FILESRVR+7~, SERVICE+5~, SERVICE+14
DLAYGO SETWS+1~, PSSENABL+1*
DR PPSN+6*!, SETWS+1~, SETWS2+12!, PSSENAB2+1*
FDA FILESRVR+7~
FDA( FILESRVR+18*, FILESRVR+19*, FILESRVR+20*, FILESRVR+21*, FILESRVR+22*, FILESRVR+23*, FILESRVR+24*, FILESRVR+25*
FDAI FILESRVR+7~
FDAI(1 FILESRVR+38
II POST+1~, POST+3*, POST+4
ITEM POST+1~, ADD+6*, ADD+7*, ADD+8*, ADD+9*, ADD+10*, ADD+11*, MSG~, MSG+1
PPSWPPSN SETWS+1~, SETWS+12*, SETWS+15, SETWS2+13, SETWS2+14, SETWSQT+1, PSSENABL+1, PSSENAB2+1
PSNA POST+1~, ADD+1*, ADD+2*, ADD+3*, ADD+4, ADD+6*, ADD+7*, ADD+8*, ADD+9*, ADD+10*
, ADD+11*, MSG~, MSG+1
PSNADRS FILESRVR~, FILESRVR+20
PSNARR DISPERR~, DISPERR+3
PSNERR FILESRVR+7~, FILESRVR+29, FILESRVR+30, FILESRVR+34, FILESRVR+35, SERVICE+5~, SERVICE+15
PSNFDA SERVICE+5~
PSNFDA( SERVICE+11*, SERVICE+12*
PSNFDAI SERVICE+5~
PSNI DISPERR+1~, DISPERR+4*
PSNIEN FILESRVR+7~, FILESRVR+8*, FILESRVR+11, FILESRVR+13, FILESRVR+14, FILESRVR+20, FILESRVR+27, FILESRVR+31*, FILESRVR+36*, FILESRVR+38*
, FILESRVR+40
PSNIENS FILESRVR+7~, FILESRVR+11*, FILESRVR+12*, FILESRVR+18, FILESRVR+19, FILESRVR+20, FILESRVR+21, FILESRVR+22, FILESRVR+23, FILESRVR+24
, FILESRVR+25, SERVICE+5~, SERVICE+10*, SERVICE+11, SERVICE+12
PSNOUT DISPERR+1~, DISPERR+3
PSNOUT( DISPERR+4
PSNPORT FILESRVR~, FILESRVR+19
PSNSRVR FILESRVR~, FILESRVR+8, FILESRVR+18
PSNSVR1 POST+1~, POST+11*, POST+12
PSNTN PPSN+2~, PPSN+4*, PPSN+6
PSSMXUA2 POST+1*, SETWS+2*, SETWS+5*, SETWS+14*, SETWS+17*, SETWS+18*, SETWS2+5*, SETWS2+6*, SETWS2+7*, SETWS2+9*
, SETWS2+17*, SETWS2+18*, SETWS2+25*, SETWSQT+6*, SETWSQT+8*, LINE+1*, PSSENAB2+5*, FILESRVR+14, FILESRVR+15*, FILESRVR+30
, FILESRVR+35, DISPERR~, DISPERR+2*, DISPERR+4*
PSSWSCNT SETWS+1~, SETWS+2*, SETWS2+2*, SETWS2+8
PSSWSER2 SETWS+1~, SETWS2+13*, SETWS2+19, SETWS2+20, PSSENABL+1*, PSSENAB2+1, PSSENAB2+2
PSSWSERR SETWS+1~, SETWS+2*, SETWS+16*, SETWS2+5*, SETWS2+18*, SETWSQT+2, SETWSQT+7
PSSWSERV SETWS+1~, SETWS2+1*
PSSWSMSG SETWS+1~, SETWS2+8*, SETWS2+9, SETWS2+10
PSSWSSTA SETWS+1~, SETWS2+20*, SETWS2+21, SETWS2+22, SETWS2+23, PSSENAB2+2*, PSSENAB2+3
RADD PPSN+2~, PPSN+5*, PPSN+6
RUSR PPSN+2~, PPSN+5*, PPSN+6
SRVR SERVICE~, SERVICE+16, SERVICE+19, SERVICE+23
SVCIEN SERVICE+5~, SERVICE+7*, SERVICE+8, SERVICE+11
SVCS SERVICE~, SERVICE+7, SERVICE+16, SERVICE+19, SERVICE+23
SVRIEN SERVICE~, SERVICE+8, SERVICE+10
WSARR SETWS+1~, SETWS+10
WSARR("AVAILA BILITY RESOURCE" , SETWS+9*
WSARR("CACHE PACKAGE NAME" , SETWS+7*
WSARR("WEB SE RVICE NAME" , SETWS+8*
WSARR("WSDL F ILE" , SETWS+6*
X PPSN+3*, SETWS+1~, SETWS+3*, SETWS+11*, SETWS2+1*, SETWS2+12!, SETWS2+13*, PSSENABL+1*
>> XOBSTAT SETWS+10*
>> XPDGREF SETWS+14, SETWS+17, SETWS+18, SETWS2+5, SETWS2+6, SETWS2+7, SETWS2+9, SETWS2+17, SETWS2+18, SETWS2+25
, SETWSQT+6, SETWSQT+8, LINE+1, PSSENAB2+5, FILESRVR+14
Y PPSN+4, SETWS+1~, SETWS+4, SETWS+12, SETWS2+1, SETWS2+2, SETWS2+3, SETWS2+12!, SETWS2+13, PSSENABL+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All