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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSSLAB

Package: Pharmacy Data Management

Routine: PSSLAB


Information

PSSLAB ;BIR/JMB,WRT ; 09/02/97 7:57; 5/6/94

Source Information

Source file <PSSLAB.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  ^DIE  ^DIR  
Pharmacy Data Management 1 (CLOZ,MONCLOZ)^PSSDEE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSSCLDRG  PSSDEE  

Entry Points

Name Comments DBIA/ICR reference
UNMRK
EDIT ;Mark/unmark drugs to print on profile
ED
BEG
UNMRK1
UNMRK0
EXIT
CLEAN
PRINT ;Prints most recent lab test value on profile.
ASKEM
EDATE
SPEC
REASK

External References

Name Field # of Occurrence
^%DT EDATE
^DIC ED+2
^DIE SPEC, SPEC+2, UNMRK1
^DIR UNMRK0, ASKEM
CLOZ^PSSDEE ASKEM+3
MONCLOZ^PSSDEE REASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"** Drug inactivated "_Y_"."
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"This drug is marked for Clozapine monitoring. To print the most",!,"recent lab result on the profile, the drug must be unmarked",!,"for Clozapine monitoring."
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !,"** You are NOW editing LAB MONITOR fields. **"
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Missing DATA NAME Probably a panel test. Please select another."
  • Line Location: ED+4
Function Call: WRITE
  • Prompt: !!,?5,"Now editing:",!
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Insufficient data.",!,"All fields must have an entry or all fields must be blank.",!
  • Line Location: SPEC+5
Function Call: WRITE
  • Prompt: !,"*** NO LAB DATA ON FILE ***"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"*** RESULTS FOR A PANEL CANNOT BE PRINTED! ONLY A LAB TEST RESULT CAN BE PRINTED FOR MARKED DRUGS."
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,"Do you wish to mark this drug as a Clozapine drug?"
  • Line Location: ASKEM+0
Routine Call
  • DIE
  • Line Location:
    • SPEC
    • SPEC+2
    • UNMRK1
Routine Call
  • DIC
  • Line Location:
    • ED+2
Routine Call
  • DIR
  • Line Location:
    • UNMRK0
    • ASKEM

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^LAB(60 - [#60] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EDIT+4
^DPT - [#2] PRINT+1, PRINT+2
^LAB(60 - [#60] ED+2, ED+4, PRINT+5, PRINT+6, BEG+4
^LR - [#63] BEG, BEG+1, BEG+2, BEG+3, BEG+4
^PSDRUG - [#50] EDIT+4, EDIT+5, ED, SPEC+2*, SPEC+4*, SPEC+5*, PRINT+3, UNMRK, UNMRK1

Label References

Name Line Occurrences
ASKEM UNMRK1
CLEAN PRINT+4, PRINT+6
ED ED+4, SPEC+5
EDIT SPEC+4
EXIT ED+3, SPEC+3
REASK EDIT+5
UNMRK EDIT+2
UNMRK0 UNMRK
UNMRK1 UNMRK0

Naked Globals

Name Field # of Occurrence
^( PRINT+5
^("CLOZ" SPEC+4, SPEC+5, PRINT+3
^(0 PRINT+5, BEG+1, BEG+2, BEG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EDATE!
BDL BEG*, BEG+1, BEG+2, BEG+3, BEG+4, CLEAN!
>> CLFLAG ED
>> DA EDIT+1*, SPEC*, SPEC+2*, SPEC+4, SPEC+5
>> DFN PRINT+1, PRINT+2
DIC ED+2!*
DIC("A" ED+2*
DIC("B" ED+2*
DIC(0 ED+2*
DIE SPEC*!, SPEC+2*!, UNMRK1*
DIR ASKEM!, ASKEM+2!
DIR("A" UNMRK*
DIR("B" UNMRK*
DIR(0 UNMRK*, ASKEM*
DIRUT EDIT+3, ED, ED+3, UNMRK0, ASKEM!, ASKEM+1
>> DISPDRG EDIT+1
>> DR SPEC*, SPEC+2*, UNMRK1*
DTOUT EDIT+3, ED, SPEC+3, UNMRK0, ASKEM!, ASKEM+1
DUOUT EDIT+3, ED, SPEC+3, UNMRK0, ASKEM!, ASKEM+1
EDL EDATE*, BEG, CLEAN!
EDT EDATE*, BEG+5, CLEAN!
IEN50 EDIT+1*, EDIT+4, EDIT+5, ED, SPEC, SPEC+2, SPEC+4, SPEC+5, EXIT!, UNMRK
, UNMRK1
INDIC EDATE*, BEG, BEG+4*, BEG+5, CLEAN!
LDN PRINT+5*, BEG+1, BEG+4, CLEAN!
LIEN ED*, ED+2, ED+3*, ED+4, EXIT!
>> LMFLAG EDIT+2, SPEC+2*, SPEC+5*, UNMRK1*
LRDFN PRINT+2*, BEG, BEG+1, BEG+2, BEG+3, BEG+4, CLEAN!
MDAYS PRINT+3*, PRINT+4, EDATE, CLEAN!
MDRUG PRINT+3*, CLEAN!
>> NFLAG EDIT+3, ED, SPEC+2*, ASKEM+2*
>> RX0 PRINT+3
TST PRINT+3*, PRINT+4, PRINT+5, PRINT+6, BEG+4, CLEAN!
TSTN PRINT+5*, BEG+4, BEG+5, CLEAN!
TSTSP PRINT+3*, PRINT+4, BEG+2, BEG+4, CLEAN!
X EDATE*, CLEAN!, UNMRK1, ASKEM!, ASKEM+2!, ASKEM+3
Y EDIT+4*, ED+3, EDATE, BEG+3*, BEG+4, CLEAN!, ASKEM!, ASKEM+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All