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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSNMRG

Package: National Drug File

Routine: PSNMRG


Information

PSNMRG ;BIR/CCH&WRT-merges NDF fields into PSDRUG ; 04/18/01 14:56

Source Information

Source file <PSNMRG.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  (T0,T1)^%ZOSV  ^%ZTLOAD  $$PATCH^XPDUTL  
Pharmacy Data Management 3 DRG^PSSDGUPD  DRG^PSSHUIDG  EN2^PSSUTIL  
National Drug File 2 $$PROD2^PSNAPIS  ^PSNPSS  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
National Drug File 4 PSNMRG  PSNOUT  PSNPPSNW  PSNVFY  

Entry Points

Name Comments DBIA/ICR reference
DVC
QUE
ENQ
DONE
TITLE
LOOP
KILLIT
SET
SETAPC

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC QUE, DONE
T0^%ZOSV LOOP
T1^%ZOSV LOOP+1
^%ZTLOAD QUE
$$GET1^DIQ SET+23, SET+24
$$PROD2^PSNAPIS SET+6
^PSNPSS SET+9
DRG^PSSDGUPD SET+24
DRG^PSSHUIDG SET+20
EN2^PSSUTIL SET+11
$$PATCH^XPDUTL SET+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option will merge NDF fields into your local drug file. This will also",!,"produce an Error Report for entries in the translation file which are not",!,"in the local file if they should exist."
  • Line Location: PSNMRG+11
Function Call: WRITE
  • Prompt: " These exceptions will not be merged.",!
  • Line Location: PSNMRG+12
Function Call: WRITE
  • Prompt: !,"You may queue this report if you wish.",!
  • Line Location: PSNMRG+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?32,"MERGE ERROR REPORT",!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,"Date Printed: ",Y,?73,"Page: ",PSNPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !!,"INTERNAL FILE NUMBER",?30,"VA PRODUCT NAME",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!,?30,"No Errors Found During Merge",!!!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,?8,PSNB,?30,FRMNAM,!,"***** This entry no longer exists in your local drug file. ***** ",!," This entry will not be merged. ",!
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,?5,DISPNM,?51,"needs to be rematched to Orderable Item."
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,"Additive ",?12,ADNM,?51,"needs to be rematched to Orderable Item."
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,"Solution ",?12,SLNM,?51,"needs to be rematched to Orderable Item."
  • Line Location: LOOP+6
Routine Call
  • %ZIS
  • Line Location:
    • DVC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SET+9, SET+11
^DD("DD" TITLE+2
^PS(50.3 - [#50.3] SET+15
^PS(50.605 - [#50.605] SET+13, SET+19, SETAPC
^PS(59 - [#59] SET+22
^PS(59.7 - [#59.7] SET+13
^PSDRUG - [#50] SET+1, SET+4*, SET+5, SET+6*, SET+7*, SET+8*, SET+13*, SET+15, SET+19
^PSDRUG("AND" SET+4*
^PSDRUG("AOC" SET+18!, SET+19*
^PSDRUG("APC" SET+14, SET+15*, SETAPC!*
^PSDRUG("AQ1" SET+6*
^PSDRUG("VAC" SET+2!, SET+4*
^PSDRUG("VAPN" SET+5*
^PSNDF(50.68 - [#50.68] SET+1, SET+4, SET+7, SET+8
^PSNTRAN - [#50.612] LOOP, LOOP+3!, SET+1, SET+3, SET+16!
^PSNTRAN(0 SET+16*
^TMP("PSNAD" LOOP+5, KILLIT!
^TMP("PSNDP" LOOP+4, KILLIT!
^TMP("PSNSL" LOOP+6, KILLIT!
^TMP($J LOOP!, LOOP+2, LOOP+3, SET+1*

Label References

Name Line Occurrences
DONE DVC
DVC DVC
LOOP ENQ
SET LOOP
SETAPC SET+14
TITLE ENQ, LOOP+3, LOOP+4, LOOP+5, LOOP+6

Naked Globals

Name Field # of Occurrence
^(49.99 SET+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*
%ZIS("A" DVC*
%ZIS("B" DVC*
ADNM LOOP+5*, KILLIT!
ANS KILLIT!
CLDA KILLIT!, SET+13*, SET+19, SETAPC
>> COD SET+14*, SET+18*, SETAPC
CS SET+8~*!
>> DA SET+6*
DISPNM LOOP+4*, KILLIT!
DMFU SET+21~, SET+23*, SET+24
DNSNAM SET+21~, SET+24*
DNSPORT SET+21~, SET+24*
DT TITLE+2
DVER SET+21~, SET+23*, SET+24
FLAG DONE!, SET+12*, SET+15, SETAPC*
FORMI SET+7*, SET+10!
FRMNAM LOOP+3, KILLIT!, SET+1*
IO ENQ
IO("Q" DVC!, QUE!, DONE!
IOF DONE, TITLE
IOP DVC!, DONE!
IOSL ENQ, LOOP+3, LOOP+4, LOOP+5, LOOP+6
IOST DVC
>> K SET+6*
MJT DONE!, TITLE+4*
MMM SET+6*, SET+10!
NNN SET+6*, SET+7, SET+8, SET+10!
POP DVC!, DONE!
>> PP SET+14*, SET+18*, SETAPC
PRIM DONE!, SET+15*, SET+19*
PSNB LOOP*, LOOP+3*, KILLIT!, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7
, SET+8, SET+11, SET+13, SET+14, SET+15, SET+16, SET+18, SET+19, SET+20, SET+24
, SETAPC
PSNEX SET+5*!
>> PSNFL SET
PSNIO KILLIT!
PSNNODE KILLIT!, SET+3*, SET+4, SET+13
PSNPGCT ENQ*, DONE!, TITLE*, TITLE+2
PSNPGLNG ENQ*, DONE!
SLNM LOOP+6*, KILLIT!
VADC DONE!, SET+2*
>> X SET+6*, SET+9*, SET+11*
>> XRT0 LOOP+1
>> XRTL LOOP
>> XRTN LOOP+1*
XX SET+21~*, SET+22*, SET+23, SET+24
Y DONE!, TITLE+2*
>> ZTDESC QUE*
>> ZTQUEUED DONE
>> ZTREQ DONE*
ZTRTN QUE*, KILLIT!
ZTSK QUE!

Marked Items

Name Field # of Occurrence
$T( LOOP+1
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 |  Naked Globals |  Local Variables |  Marked Items  | All