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

Package: Drug Accountability

Routine: PSALFA


Information

PSALFA ;BIR/LTL-Automated DRUG/ITEM MASTER file Link by FSN ;7/23/97

Source Information

Source file <PSALFA.m>

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 1 ^PSALFS  
IFCAP 1 $$DESCR^PRCPUX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA FSN AUTO LOOP  

Entry Points

Name Comments DBIA/ICR reference
QUIT
USED
RUN ;Extended help to 'Have you run the Report Potential FSN Matches option?'
FORM
HEADER ;prints header info
DEV ;asks device and queueing info
START ;sets up edit loop
QUES
LINK
READY ;Extended help for 'Have you run the Report Potential FSN Matches option?'
INAC
LOOP

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 PSALFA+8
^DIE LINK
^DIR QUES, QUES+1, QUES+2, QUIT+1, HEADER+1
$$DESCR^PRCPUX1 FORM+1
^PSALFS QUES+1

Interaction Calls

Name Line Occurrences
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: !,PSAFSN
  • Line Location: FORM+0
Function Call: WRITE
  • Prompt: !,"**"_$P(^PSDRUG(PSADD,0),U)_" is already linked to Item #"_PSAIT_"**"
  • Line Location: USED+0
Function Call: WRITE
  • Prompt: !,"Sorry, Item #"_PSAIT_" is INACTIVE, can't link.",!
  • Line Location: INAC+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: "Linked to Item #"_PSAIT
  • Line Location: LINK+0
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 FSN",?55,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"DRUG file",?40,"ITEM MASTER file"
  • Line Location: HEADER+3
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 FSN 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
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIE
  • Line Location:
    • LINK
Routine Call
  • DIR
  • Line Location:
    • QUES
    • QUES+1
    • QUES+2
    • QUIT+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

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

Label References

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

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~, LINK*
DIC START+1~
DIE START+1~, LINK*
DIR START+1~, QUES!, QUES+1!, QUES+2!, HEADER+1!
DIR("??" QUES*
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
DLAYGO START+1~
DR START+1~, LINK*
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*, FORM, FORM+1, LINK
PSADD START+1~, FORM+1~, USED*, INAC*
PSAF START+1~
PSAFSN START+1~, FORM*, FORM+1
PSAIT START+1~, FORM+1*, USED, INAC, LINK
PSALN START+1~, HEADER+3*
PSAOUT START+1~, QUES*, 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, FORM, FORM+1, USED, HEADER+2
X START+1~
Y START+1~, QUES, QUES+1, QUES+2, 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 |  Local Variables |  All