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 |  All
Print Page as PDF
Routine: PSNGPN

Package: National Drug File

Routine: PSNGPN


Information

PSNGPN ;BIR/SJA-Local Drug/VA Print Name Report ; 01/11/01 10:00

Source Information

Source file <PSNGPN.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNVAPRINT  

Entry Points

Name Comments DBIA/ICR reference
EN
END
TITLE
DVC
QUEUE
START ;
ASKA
DEV
DONE
CHECK
LOOP

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC DONE
^%ZTLOAD QUEUE
^DIR EN+1, EN+6, ASKA+3, DEV+3, TITLE, END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," This report shows a list of the active drugs in local DRUG file where the",!," GENERIC NAME does not match the VA PRINT NAME."
  • Line Location: PSNGPN+5
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"To see drugs beginning with the letter 'A', enter 'A', or whichever letter you",!,"wish to see. To see drugs in a range, for example drugs starting with the",!,"letters 'G', 'H', 'I' and 'J', enter in the format 'G-J'.",!
  • Line Location: ASKA+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASKA+3
Function Call: WRITE
  • Prompt: !!,"Invalid response , enter a letter, 'A', 'B', etc., or a range, 'C-F', 'M-R', etc.",!
  • Line Location: ASKA+4
Function Call: WRITE
  • Prompt: !!,"Invalid response.",!
  • Line Location: ASKA+5
Function Call: WRITE
  • Prompt: !!,"This report will include drugs starting with the letter "_$G(PSNBEG)_",",!,"and ending with drugs starting with the letter "_$G(PSNEND)_".",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"This report will be for drugs with leading numerics.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"This report will be for all drugs.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DVC+0
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: QUEUE+0
Function Call: WRITE
  • Prompt: !!,$P(^PSDRUG(PSNB,0),"^"),?43,PSNVA
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,?25,PSNAM,!,?(80-$L(PSNAM1)\2),PSNAM1,!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?69,"Page: ",PSNPGCT,!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,"Generic Name",?43,"VA Print Name",!
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !!,"End of Report.",!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Routine Call
  • DIR
  • Line Location:
    • EN+1
    • EN+6
    • ASKA+3
    • DEV+3
    • TITLE
    • END
Routine Call
  • %ZIS
  • Line Location:
    • DVC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+4
^PSDRUG - [#50] CHECK, CHECK+1
^PSDRUG("B" EN+5, LOOP, LOOP+1
^PSNDF(50.68 - [#50.68] CHECK+1

Label References

Name Line Occurrences
ASKA ASKA+4, ASKA+5
CHECK LOOP+1
DEV EN+3, EN+9
DONE EN+1, EN+6, ASKA+3, DVC, QUEUE
EN DEV+3
END LOOP+2
TITLE START+3, CHECK+1

Naked Globals

Name Field # of Occurrence
^("I" CHECK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*
%ZSI QUEUE!
DEA DONE!
DIR EN+1!, EN+6!, ASKA+3!, DEV+3!, TITLE!, END!, DONE!
DIR("?" EN+2*, EN+8*, ASKA+2*
DIR("A" EN+1*, EN+6*, ASKA+3*, DEV+3*, END*
DIR("B" EN+1*, EN+6*, DEV+3*
DIR(0 EN+1*, EN+6*, ASKA+3*, DEV+3*, TITLE*, END*
DT CHECK, TITLE+4
>> DTOUT EN+1, EN+6, ASKA+3
>> DUOUT EN+1, EN+6, ASKA+3
INDT DONE!
IO START+1
IO("Q" QUEUE, DONE!
IOF TITLE+3, END+2, DONE
IOP DVC!, DONE!
IOSL START+3
IOST START+2
MJT TITLE+6*, DONE!
POP DVC!, DONE!
PSNAM TITLE+1*, TITLE+3, DONE!
PSNAM1 TITLE+2*, TITLE+3, DONE!
PSNB LOOP+1*, CHECK, CHECK+1, DONE!
PSNBEG EN!, EN+3*, ASKA!, ASKA+5*, ASKA+6*, DEV, START+4, TITLE+2
PSND3 CHECK+1*, DONE!
PSNDV START+2*, TITLE, END, END+1, DONE!
PSNEND EN!, EN+3*, ASKA!, ASKA+5*, ASKA+6*, DEV, START+5*, LOOP, TITLE+2
PSNFLAG DONE!
PSNHOW EN!, EN+3*
PSNLCL START+4*, START+5*, LOOP*, LOOP+1, DONE!
PSNMC CHECK*, CHECK+1, DONE!
PSNOP DONE!
PSNOUT START+2*, LOOP, CHECK+1, TITLE*, END, DONE!
PSNPGCT START+3*, TITLE, TITLE+4, TITLE+7*, DONE!
PSNPGLNG START+3*, CHECK+1, DONE!
PSNPRT DONE!
PSNSRT EN!, EN+3*, EN+9*, ASKA+7*, DEV, DEV+1, DEV+2, START+4, START+5, LOOP
, TITLE+2
PSNUMB EN+5*, EN+10!
PSNUMBX EN!, EN+5*, EN+6, EN+9, EN+10!
PSNUSE DONE!
PSNVA CHECK+1*, DONE!
PSNVCL DONE!
PSNX START+4*, DONE!
X ASKA+4*, ASKA+5, ASKA+6, DONE!
Y EN+1, EN+3, EN+6, EN+9, ASKA+3, ASKA+4, DEV+3, TITLE, TITLE+4*, DONE!
>> ZTDESC QUEUE*
>> ZTQUEUED DONE
>> ZTREQ DONE*
>> ZTRTN QUEUE*
>> ZTSAVE("PSNBEG" QUEUE*
>> ZTSAVE("PSNEND" QUEUE*
>> ZTSAVE("PSNHOW" QUEUE*
>> ZTSAVE("PSNSRT" QUEUE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All