Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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?'

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
Info |  Source |  Entry Points |  Interaction Calls