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 |  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 ;23-Apr-2007 11:07;SM

Source Information

Source file <PSNMRG.m>

Call Graph

Call Graph Total: 9

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
National Drug File 2 PSNMRG  PSNOUT  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC QUE, DONE
T0^%ZOSV LOOP
T1^%ZOSV LOOP+1
^%ZTLOAD QUE
$$PROD2^PSNAPIS SET+6
^PSNPSS SET+9
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+12
Function Call: WRITE
  • Prompt: " These exceptions will not be merged.",!
  • Line Location: PSNMRG+13
Function Call: WRITE
  • Prompt: !,"You may queue this report if you wish.",!
  • Line Location: PSNMRG+14
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

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.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!
DT TITLE+2
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, 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*
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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All