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

Package: National Drug File

Routine: PSNPPSNF


Information

PSNPPSNF ;HP/MJE-PPSN update NDF data ; 05 Mar 2014 1:20 PM

Source Information

Source file <PSNPPSNF.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
National Drug File 10 ($$GETD,MSGTEXT0)^PSNFTP  ($$LEGACY,CHKD)^PSNPPSDL  ($$MG,COMMSG,IERRMSG,SMSG)^PSNPPSMG  (CTRKDL,DISMNU,QUEST,RESOP)^PSNPPSMS  $$SEND^PSNPPSNC  MFIND^PSNPPSNF  NDFKP^PSNPPSNK  PARSE^PSNPPSNP  
^PSNPPSNU  (DATA,PMIUPDT)^PSNPPSNV  
VA FileMan 4 NOW^%DTC  (,FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ($$FTG,$$LIST)^%ZISH  ($$FMADD,$$NOW)^XLFDT  RESCH^XUTMOPT  
MailMan 1 ^XMD  

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

Package Total Caller Graph
National Drug File 3 PSN PPS MANUAL INSTALL  PSN TASK SCHEDULED INSTALL  PSNPPSNF  

Entry Points

Name Comments DBIA/ICR reference
MFIND ;Entry point for menu option PSNUPDT for immediate PPS-N updates
FIND ;Get list of files, quit if flag set to disable update function
CKDIR ;
EXIT ; Exit point
EXIT2 ;
READ ;Read in file
MOVE ;Move data to ^TMP for call to update
READ2 ;
REDO ;
COMM ;
COMMAGN ;
COMM2 ;
NDF ;Entry point for NDFMS
SCHED ;tasked job entry point
XTMP ; task monitoring job to report error if update not finished within 1 hour
NDFK(PSNHLD) ; flag to proceed with purging NDFK file
REJCHK(FILE) ; check if the file has been rejected & finalized
INSTCHK(FILE) ; check if the file has been previously installed

External References

Name Field # of Occurrence
NOW^%DTC READ+18, COMM2+5
$$FTG^%ZISH READ+45
$$LIST^%ZISH FIND+7
^DIE CKDIR+5, EXIT+2
FILE^DIE READ+23, COMM2+3
UPDATE^DIE READ+14, READ+20, COMM2+7
$$GET1^DIQ MFIND+2, READ+41, READ+42, SCHED+2
^DIR MFIND+10, MFIND+26, INSTCHK+10
$$GETD^PSNFTP FIND+7, READ+45
MSGTEXT0^PSNFTP READ+39
$$LEGACY^PSNPPSDL MFIND+12
CHKD^PSNPPSDL MFIND+14
$$MG^PSNPPSMG READ+41, READ+42
COMMSG^PSNPPSMG COMMAGN+13
IERRMSG^PSNPPSMG COMMAGN+5
SMSG^PSNPPSMG COMMAGN+15
CTRKDL^PSNPPSMS CKDIR+14, READ+30, READ+35, READ+47, MOVE+2, READ2+2, READ2+4, READ2+7, REDO+2, COMM+5
COMMAGN+7, COMMAGN+16, COMM2+11
DISMNU^PSNPPSMS READ2+3
QUEST^PSNPPSMS CKDIR+2
RESOP^PSNPPSMS COMM2+12
$$SEND^PSNPPSNC READ+31, COMMAGN+1
MFIND^PSNPPSNF NDF+2
NDFKP^PSNPPSNK READ+6
PARSE^PSNPPSNP MOVE+7
^PSNPPSNU REDO+1
DATA^PSNPPSNV REDO+3
PMIUPDT^PSNPPSNV READ2+6
$$FMADD^XLFDT XTMP+2, XTMP+4
$$NOW^XLFDT XTMP+2
^XMD READ+43
RESCH^XUTMOPT XTMP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MFIND+24
Function Call: WRITE
  • Prompt: !,"Please stand-by NDF update processing can take around 30 minutes..."
  • Line Location: CKDIR+4
Function Call: WRITE
  • Prompt: !,"There were no PPS-N update files to install.",!
  • Line Location: CKDIR+17
Function Call: WRITE
  • Prompt: !!,$P(PSNHLD,";")_" has not been installed.",!
  • Line Location: READ+4
Function Call: WRITE
  • Prompt: !,PSERRMSG,!,PSMSGTXT,!
  • Line Location: READ+38
Function Call: WRITE
  • Prompt: !,"Install completion message could not be sent to PPS-N. Trying again... "
  • Line Location: COMMAGN+3
Function Call: WRITE
  • Prompt: !,"The install completion message was not accepted by PPS-N. Please contact ",!,"the National Help Desk.",!
  • Line Location: COMMAGN+4
Function Call: WRITE
  • Prompt: " Background monitoring started: "
  • Line Location: XTMP+5
Function Call: WRITE
  • Prompt: !!,"WARNING: File has already been installed."
  • Line Location: INSTCHK+8
Routine Call
  • DIE
  • Line Location:
    • CKDIR+5
    • EXIT+2
Routine Call
  • DIE
  • Line Location:
    • READ+23
    • COMM2+3
Routine Call
  • DIE
  • Line Location:
    • READ+14
    • READ+20
    • COMM2+7
Routine Call
  • DIR
  • Line Location:
    • MFIND+10
    • MFIND+26
    • INSTCHK+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(57.23 - [#57.23] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(57.23 - [#57.23] CKDIR+8, READ+11, READ+16, REDO+4*, COMM+2, COMM+3, NDFK+2, NDFK+3, REJCHK+5, REJCHK+6
, REJCHK+7, INSTCHK+5, INSTCHK+6, INSTCHK+7
^PS(59.7 - [#59.7] FIND+4, READ+29
^TMP("PSN PPSN ERR" COMMAGN+6
^TMP("PSN PPSN PARSED" FIND+3!, CKDIR+16!, EXIT+3!, COMM2+9!
^TMP("PSN PPSN READ" FIND+6!, CKDIR+16!, EXIT+3!, READ+45
^XTMP("PSN PPS VERIFY" COMMAGN+17!, XTMP+3*
^XUSEC("PSN PPS ADMIN" MFIND+7, MFIND+11

Label References

Name Line Occurrences
$$INSTCHK READ+3
$$NDFK READ+6
$$REJCHK READ+2
COMM2 COMMAGN+5, COMMAGN+6
COMMAGN COMMAGN+3
EXIT CKDIR+1, CKDIR+2, CKDIR+7
FIND SCHED+4
READ CKDIR+10
XTMP READ+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% READ+17!, READ+19, COMM2+4!, COMM2+6
A1 FIND+2~, FIND+7, EXIT+3!
A1("PPS_*" FIND+5*
B1 FIND+2~, CKDIR+1, EXIT+3!
B1( CKDIR+7, CKDIR+15
B1(99999999 FIND+8*
B2 FIND+2~, FIND+7, FIND+9!, EXIT+3!
B2( FIND+8
COMM FIND+5*, CKDIR+7, EXIT+4!, READ+31*, READ+32*, READ+34, COMM+1~*, COMMAGN+1*, COMMAGN+2*, COMMAGN+3
COMMAGN+4, COMMAGN+9
COMMAGN COMM+1~*, COMMAGN+1*, COMMAGN+3
COMMCNT COMM+1~*
CTRLIEN READ+10!, READ+11*, READ+19, READ+22, COMM2+2, COMM2+6
CTRLXIEN READ+15!, READ+16*, READ+19, COMM2+6
DA MFIND+1~, CKDIR+5*!, EXIT+1!, EXIT+2*!
DIE MFIND+1~, CKDIR+5*!, EXIT+1!, EXIT+2*!
DIFROM READ+43~
DIR MFIND+10!, MFIND+23!, INSTCHK+9!
DIR("?" MFIND+23*, INSTCHK+9*
DIR("A" MFIND+10*, MFIND+24*, INSTCHK+9*
DIR("B" MFIND+25*, INSTCHK+10*
DIR(0 MFIND+10*, MFIND+23*, INSTCHK+9*
DIRUT MFIND+23!, INSTCHK+9!
DR MFIND+1~, CKDIR+5*!, EXIT+1!, EXIT+2*!
DUOUT MFIND+23!, INSTCHK+9!
DUZ MFIND+7, MFIND+11, XTMP+3
ERRCHK MFIND+1~, CKDIR+13, CKDIR+14, COMM+1*, COMM+3*, COMMAGN+5
FDA READ+12!, READ+17!, READ+21!, READ+24!, COMM2+1!, COMM2+4!, COMM2+8!
FDA( READ+13*, READ+19*, READ+22*, COMM2+2*, COMM2+6*
FILE REJCHK~, REJCHK+5, REJCHK+6, INSTCHK~, INSTCHK+5, INSTCHK+6
FLG NDFK+1~*, NDFK+3*, NDFK+4
I FIND+2~, FIND+8*, EXIT+4!
I1 EXIT+4!
II FIND+2~
INSFILE FIND+2~, CKDIR+11, READ+1*, READ+3*, READ+4, READ+13, READ+16
INSTIEN COMM+1~*, COMM+2*, COMM+3
LSTD REJCHK+3~, REJCHK+4*, REJCHK+6*, REJCHK+7, INSTCHK+3~, INSTCHK+6*, INSTCHK+7, INSTCHK+11
NDFOK READ+8~, READ+9*
NFILE REJCHK+3~, REJCHK+6*, REJCHK+7, INSTCHK+3~, INSTCHK+6*, INSTCHK+7
NODE NDFK+1~, NDFK+3*
OLDNDF EXIT+4!
PSENTER MFIND+1~, MFIND+5*, READ+38*
PSERRMSG READ+28~, READ+36*, READ+38, READ+39
PSGRP FIND+2~, READ+41*, READ+42*
PSI NDFK+1~, NDFK+2*, NDFK+3, REJCHK+3~, REJCHK+4*, REJCHK+5*, REJCHK+6, REJCHK+7, INSTCHK+3~, INSTCHK+4*
, INSTCHK+5*, INSTCHK+6
PSIMHERE MFIND+1~
PSMSGTXT READ+28~, READ+37*, READ+38, READ+39
PSNATYP FIND+4~*, READ+6
PSNFLG FIND+5*, CKDIR+9*, EXIT+4!
PSNFND FIND+5*, CKDIR+9*, CKDIR+17, EXIT+4!, REDO+4
PSNHLD CKDIR+9*, EXIT+4!, READ+2, READ+3, READ+4, READ+6, READ+13, READ+16, READ+31, READ+39
REDO+4, COMMAGN+1, COMMAGN+17, XTMP+3, NDFK~, NDFK+2
PSNHLD1 EXIT+4!
PSNHLD2 MFIND+1~, READ+13*, COMM+2
PSNLEG MFIND+1~
PSNLEGF MFIND+1~, MFIND+12*
PSNOW XTMP+1~, XTMP+2*, XTMP+3, XTMP+4
PSNOW1 XTMP+1~, XTMP+2*, XTMP+3
PSNPPSNF NDF+1~*
PSNSCJOB MFIND+3, MFIND+7, MFIND+16, CKDIR+2, CKDIR+11, CKDIR+12, CKDIR+15, READ+4, READ+5, READ+26
READ+38, READ+48, READ2+5, READ2+8, COMM+6, SCHED+1~, SCHED+3*
PSNSITET READ+28~, READ+29*, READ+31, COMMAGN+1, COMMAGN+2, COMMAGN+6
PSNST XTMP+1~, XTMP+4*, XTMP+6
PSNZISH READ+28~, READ+45*
PSRGP READ+28~
PSRUNCNT FIND+2~, FIND+5*
QUEST FIND+2~
QUIT2 FIND+2~, FIND+5*, CKDIR+2
REJFILE FIND+2~, CKDIR+7, CKDIR+10, READ+1*, READ+2*
X MFIND+23!, INSTCHK+9!
X2 FIND+2~, CKDIR+7*, CKDIR+15, EXIT+4!
X22 FIND+2~, CKDIR+7*, CKDIR+8, CKDIR+9, EXIT+4!, READ+5, READ+45
XMTEXT READ+28~, READ+40*
XMY READ+28~
XMY( READ+41*, READ+42*
XPDGREF READ+8~, READ+9*
XPDIDTOT EXIT+4!
XUMF READ+8~, READ+9*
XX FIND+2~, EXIT+4!
Y MFIND+16, MFIND+23!, MFIND+27, FIND+7*, READ+45*, INSTCHK+3~, INSTCHK+4*, INSTCHK+9!, INSTCHK+11
Z11 EXIT+5!, MOVE+3~, MOVE+4*
Z12 EXIT+5!, MOVE+3~, MOVE+4*
Z13 EXIT+5!, MOVE+3~, MOVE+4*
Z14 EXIT+5!, MOVE+3~, MOVE+4*
Z15 EXIT+5!, MOVE+3~, MOVE+4*
Z16 EXIT+5!, MOVE+3~, MOVE+4*
Z17 EXIT+5!, MOVE+3~, MOVE+4*
Z18 EXIT+5!, MOVE+3~, MOVE+4*
Z19 EXIT+5!, MOVE+3~, MOVE+4*
Z191 EXIT+5!, MOVE+3~, MOVE+4*
Z192 EXIT+5!, MOVE+3~, MOVE+4*
Z193 EXIT+5!, MOVE+3~, MOVE+4*
Z194 EXIT+5!, MOVE+3~, MOVE+4*
Z21 EXIT+6!, MOVE+3~, MOVE+5*
Z22 EXIT+6!, MOVE+3~, MOVE+5*
Z23 EXIT+6!, MOVE+3~, MOVE+5*
Z24 EXIT+6!, MOVE+3~, MOVE+5*
Z25 EXIT+6!, MOVE+3~, MOVE+5*
Z26 EXIT+6!, MOVE+3~, MOVE+5*
Z27 EXIT+6!, MOVE+3~, MOVE+5*
Z28 EXIT+6!, MOVE+3~, MOVE+5*
Z29 EXIT+6!, MOVE+3~, MOVE+5*
Z291 EXIT+6!, MOVE+3~, MOVE+5*
Z292 EXIT+6!, MOVE+3~, MOVE+5*
Z293 EXIT+6!, MOVE+3~, MOVE+5*
Z294 EXIT+6!, MOVE+3~, MOVE+5*
Z31 EXIT+7!, MOVE+3~, MOVE+6*
Z32 EXIT+7!, MOVE+3~, MOVE+6*
Z33 EXIT+7!, MOVE+3~, MOVE+6*
Z34 EXIT+7!, MOVE+3~, MOVE+6*
Z35 EXIT+7!, MOVE+3~, MOVE+6*
Z36 EXIT+7!, MOVE+3~, MOVE+6*
Z37 EXIT+7!, MOVE+3~, MOVE+6*
Z38 EXIT+7!, MOVE+3~, MOVE+6*
Z39 EXIT+7!, MOVE+3~, MOVE+6*
Z391 EXIT+7!, MOVE+3~, MOVE+6*
Z392 EXIT+7!, MOVE+3~, MOVE+6*
Z393 EXIT+7!, MOVE+3~, MOVE+6*
Z394 EXIT+7!, MOVE+3~, MOVE+6*
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