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

Package: Drug Accountability

Routine: PSALNA


Information

PSALNA ;BIR/LTL-Automated DRUG/ITEM MASTER file Link by NDC ;7/23/97

Source Information

Source file <PSALNA.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 DD^%DT  DT^DICRW  ^DIE  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Drug Accountability 2 ^PSALND  $$ITEM^PSAUTL  

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

Package Total Caller Graph
Drug Accountability 1 PSA NDC AUTO LOOP  

Entry Points

Name Comments DBIA/ICR reference
START ;sets up edit loop
QUES
DEV ;asks device and queueing info
LOOP
NOT
OK
QUIT
HEADER ;prints header info
NOW ;Extended help to 'Would you like to run the report now?'
READY ;Extended help to 'Are you ready to link ALL of the drugs that have matches in the ITEM MASTER file?'
RUN ;Extended help to 'Have you run the Report Potential NDC Matches option?'

External References

Name Field # of Occurrence
DD^%DT LOOP
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC QUIT+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD HEADER+2
DT^DICRW PSALNA+7
^DIE OK
^DIR QUES, QUES+1, QUES+3, QUIT+1, HEADER+1
^PSALND QUES+1
$$ITEM^PSAUTL LOOP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !!,"I'll list each DRUG/ITEM MASTER file entry as they're linked.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,$E($P(^PSDRUG(PSAD,0),U),1,39),?40,$E($P(^PRC(441,PSAIT,0),U,2),1,39),!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: "Linked to Item #"_PSAIT
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?2,"Linking DRUG/ITEM MASTER file by NDC",?55,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"DRUG file",?40,"ITEM MASTER file"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?5,"Enter YES if you want to print the report now.",!!?5,"Enter NO if you do not want to run the report now.",!?5,"You will not exit the option."
  • Line Location: NOW+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to begin linking every drug that has been matched.",!?5,"Enter NO to exit the option."
  • Line Location: READY+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES if you have run the Report Potential NDC Matches option",!?5,"and produced a report.",!!?5,"Enter NO if you have not run the option. You will be given the",!?5,"opportunity to run the report now."
  • Line Location: RUN+1
Routine Call
  • DIE
  • Line Location:
    • OK
Routine Call
  • DIR
  • Line Location:
    • QUES
    • QUES+1
    • QUES+3
    • QUIT+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] LOOP+2, NOT
^PSDRUG - [#50] LOOP+1, LOOP+2
^PSDRUG("AB" NOT
^VA(200 - [#200] HEADER+2

Label References

Name Line Occurrences
HEADER LOOP, LOOP+1
QUIT QUES, QUES+3, DEV+2, DEV+3, LOOP+1

Naked Globals

Name Field # of Occurrence
^(2 LOOP+1
^(3 NOT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+2~*
%ZIS("A" DEV+2*
D0 START+1~
D1 START+1~
DA START+1~, OK*
DIC START+1~
DIE START+1~, OK*
DIR START+1~, QUES!, QUES+1!, QUES+3!, HEADER+1!
DIR("??" QUES*, QUES+1*, QUES+2*
DIR("A" QUES*, QUES+1*, QUES+2*, QUIT+1*
DIR("B" QUES+1*, QUES+2*
DIR(0 QUES*, QUES+1*, QUES+2*, QUIT+1*, HEADER+1*
DIRUT START+1~, QUES, QUES+1, QUES+3
DLAYGO START+1~
DR START+1~, OK*
DT LOOP
DTOUT START+1~
DUOUT START+1~
DUZ HEADER+2
IO("Q" DEV+2!, DEV+3, QUIT+2!
IOF QUIT, HEADER+3
IOP DEV+2~
IOSL LOOP+1
IOST QUIT, QUIT+1, HEADER+1
POP DEV+2~
PSAD START+1~, LOOP*, LOOP+1*, LOOP+2, OK
PSAD(1 LOOP+1*, LOOP+2
PSADD START+1~, LOOP+1!, LOOP+2, NOT*, OK
PSAIT START+1~, LOOP+2*, NOT, OK
PSALN START+1~, HEADER+3*
PSAOUT START+1~, QUES*, QUES+1*, DEV+3*, LOOP*, LOOP+1, QUIT+1, HEADER+1*, HEADER+2*
PSAPG START+1~, LOOP*, HEADER+1, HEADER+3*
PSARPDT START+1~, LOOP*, HEADER+3
U LOOP+1, LOOP+2, NOT, HEADER+2
X START+1~
Y START+1~, QUES, QUES+1, QUES+3, LOOP*, HEADER+1
ZTDESC DEV+3~*, HEADER+2
ZTDTH DEV+3~
ZTIO DEV+3~
>> ZTQUEUED QUIT+2
>> ZTREQ QUIT+2*
ZTRTN DEV+3~*
ZTSAVE DEV+3~
ZTSK DEV+3~, HEADER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All