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

Package: Controlled Substances

Routine: PSDPMFG1


Information

PSDPMFG1 ;BIR/JPW-Print Mfg data for CS Drugs (cont'd) ; 2 Aug 94

Source Information

Source file <PSDPMFG1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^%DT  ^DIR  
Kernel 1 ^%ZISC  

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
Controlled Substances 1 PSDPMFG  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;print data for stock drugs
DONE
END ;
HEADER ;lists header infomation

External References

Name Field # of Occurrence
^%DT PRINT+1
^%ZISC END+2
^DIR DONE+1, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?45,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"=> ",$S(VAR1["ZZ/":"#"_$P(VAR1,"/",2)_" NAME MISSING",1:VAR1)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?4,VAR2N,?46,MFG,?80,LOT,?95,EXP,?110,BKU,?122,PKG
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,RPDT,?122,"PAGE: "_PG,!,?50,"MANUFACTURER and NARCOTIC INFORMATION",!,?60,"FOR CS STOCK DRUGS",!!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "=> ",$S(CNT=1:"NAOU",ANS="N":"NAOU",1:"DRUG"),?95,"EXPIRATION",?110,"BREAKDOWN",?122,"PACKAGE",!,?14,$S(CNT=1:"DRUG",ANS="N":"DRUG",1:"NAOU")
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?46,"MANUFACTURER",?80,"LOT #",?95,"DATE",?110,"UNIT",?122,"SIZE",!,LN,!
  • Line Location: HEADER+4
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HEADER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^TMP("PSDPMFG" PRINT+2, PRINT+3, PRINT+4, PRINT+5, END+2!

Label References

Name Line Occurrences
END PRINT+2
HEADER PRINT+1, PRINT+3, PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT PRINT+1*, END+1!
%ZIS END+1!
ANS END+1!, HEADER+3
BKU PRINT+6*, PRINT+7, END+1!
CNT END+1!, HEADER+3
DA END+1!, HEADER+1!
DIK END+1!
DIR DONE+1!, END+1!, HEADER+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HEADER+1*
DIROUT END+1!
DIRUT DONE+1!, END+1!
DRUG END+1!
DRUGN END+1!
DTOUT END+1!
DUOUT END+1!
EXP PRINT+6*, PRINT+7, END+1!
IOF DONE, HEADER+2
IOSL PRINT+3, PRINT+7
IOST DONE, DONE+1, HEADER+1
LN PRINT+1!*, END+1!, HEADER+4
LOT PRINT+6*, PRINT+7, END+1!
MFG PRINT+6*, PRINT+7, END+1!
NAOU END+1!
NAOUN END+1!
NODE PRINT+5*, PRINT+6, END+1!
PG PRINT+1*, END+1!, HEADER+1, HEADER+2*
PKG PRINT+6*, PRINT+7, END+1!
POP END+1!
PSD END+1!
PSDIO END+1!
PSDOUT PRINT+1*, PRINT+3, PRINT+4, PRINT+7, DONE+1, END+1!, HEADER+1*
PSDT END+1!
RPDT PRINT+1*, END+1!, HEADER+2
VAR1 PRINT+3*, PRINT+4, PRINT+5, END+2!
VAR2 PRINT+4*, PRINT+5, END+2!
VAR2N PRINT+5*, PRINT+7, END+2!
X PRINT+1*, END+2!
Y PRINT+1, END+2!, HEADER+1
ZTDESC END+2!
ZTDTH END+2!
ZTIO END+2!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN END+2!
ZTSAVE END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All