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 |  Local Variables |  All
Print Page as PDF
Routine: PSNPFN

Package: National Drug File

Routine: PSNPFN


Information

PSNPFN ;BIR/WRT-va product name report of matches made ; 10/31/98 19:21

Source Information

Source file <PSNPFN.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
National Drug File 1 (PKSIZE,PKTYPE)^PSNOUT  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNPFN  

Entry Points

Name Comments DBIA/ICR reference
WRITE
TITLE
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
DONE
LOOP

External References

Name Field # of Occurrence
^%DT TITLE+2
^%ZIS DVC
^%ZISC QUEUE, DONE+2
^%ZTLOAD QUEUE
PKSIZE^PSNOUT WRITE+8
PKTYPE^PSNOUT WRITE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This report can be run before and/or after the menu option ""Verify Matches"".",!,"It should be run before the menu option ""Merge National Drug File Data Into",!,"Local File"". This "
  • Line Location: PSNPFN+2
Function Call: WRITE
  • Prompt: "report may also be run after the auto-match process to review",!,"what was matched. "
  • Line Location: PSNPFN+3
Function Call: WRITE
  • Prompt: "It generates a hard copy of the matches selected in the menu",!,"option ""Automatic Match of Unmatched Drugs"" and the menu option ""Verify",!,"Matches"". This report requires 132 columns."
  • Line Location: PSNPFN+4
Function Call: WRITE
  • Prompt: !,"You may queue the report to print, if you wish.",!
  • Line Location: PSNPFN+5
Function Call: WRITE
  • Prompt: !,"No data has been generated.",!,"The ""Automatic Match of Unmatched Drugs"" should be run before selecting",!,"this option."
  • Line Location: PSNPFN+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?33,"DRUG NAME FROM LOCAL DRUG FILE WITH MATCH FROM NATIONAL DRUG FILE"
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,?100,"Date printed: ",Y,!?100,"Page: ",PSNPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !?4,"LOCAL DRUG NAME",?54,"VA PRODUCT NAME",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,?39,"Entered by: ",PSNNAME
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !,?38,"Verified by: ",PSNVNAME
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !!,?4,PSNOLD,?54,PSNNEW,!,?6,"ORDER UNIT: ",$S($D(PSNOUN):PSNOUN,1:""),?56,"PKG SIZE: ",PSNSZE
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !,?38,"** NOT VERIFIED **"
  • Line Location: WRITE+11
Routine Call
  • %ZIS
  • Line Location:
    • DVC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+2
^DIC(51.5 - [#51.5] WRITE+2
^PS(50.605 - [#50.605] WRITE+10
^PSDRUG - [#50] WRITE, WRITE+2
^PSNDF(50.68 - [#50.68] WRITE+1
^PSNTRAN - [#50.612] PSNPFN+6, LOOP, WRITE, WRITE+1, WRITE+3, WRITE+4, WRITE+10
^VA(200 - [#200] WRITE+3, WRITE+4

Label References

Name Line Occurrences
DONE DVC
DVC DVC
LOOP ENQ+2
TITLE ENQ+2, WRITE+5
WRITE LOOP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*, QUEUE!
%ZIS("A" DVC*
%ZIS("B" DVC*
IO ENQ+1
IO("Q" DVC!, QUEUE!, DONE+1!
IOF DONE+1, TITLE
IOP DVC!, QUEUE!, DONE+1!
IOSL ENQ+2
IOST DVC
MJLT PSNPFN+6*!, QUEUE!, DONE+1!
MJT QUEUE!, DONE+1!, TITLE+4*
POP DVC!, QUEUE!, DONE+1!
PSNB DONE+1!, LOOP*, WRITE, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+10
PSNDUZ DONE+1!, WRITE+3*
PSNNAME DONE+1!, TITLE+5, WRITE+3*, WRITE+6
PSNNEW DONE+1!, WRITE+1*, WRITE+8
PSNNMHLD ENQ+2*, DONE+1!, TITLE+5, WRITE+6*
PSNODE DONE+2!, WRITE+2*, WRITE+9, WRITE+10
PSNOLD DONE+1!, WRITE*, WRITE+8
PSNOU DONE+2!, WRITE+2*
PSNOUN DONE+2!, WRITE+2*, WRITE+8
PSNPC1 DONE+1!, WRITE*
PSNPC2 DONE+1!, WRITE*, WRITE+1
PSNPGCT ENQ+2*, DONE+1!, TITLE*, TITLE+2, TITLE+5, TITLE+6
PSNPGLNG ENQ+2*, DONE+1!, WRITE+5
PSNPRT ENQ+2*, DONE, DONE+2!, WRITE+8*
PSNSIZE DONE+2!, WRITE+1*
PSNSZ DONE+1!
PSNSZE DONE+2!, WRITE+8
PSNTPE DONE+2!, WRITE+9
PSNTYP DONE+1!
PSNTYPE DONE+2!, WRITE+1*
PSNVDUZ DONE+1!, WRITE+4*, WRITE+7, WRITE+11
PSNVHLD ENQ+2*, DONE+1!, TITLE+6, WRITE+7*
PSNVNAME DONE+1!, TITLE+6, WRITE+4*, WRITE+7
>> X TITLE+2*
Y DONE+1!, TITLE+2
>> ZTDESC QUEUE*
>> ZTDTH QUEUE*
>> ZTQUEUED DONE+1
>> ZTREQ DONE+1*
>> ZTRTN QUEUE*
ZTSK QUEUE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All