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

Package: Pharmacy Data Management

Routine: PSSCLDRG


Information

PSSCLDRG ;BIR/SAB,WRT-CLOZAPINE DRUG ENTER AND EDIT ; 09/05/97 14:30

Source Information

Source file <PSSCLDRG.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Pharmacy Data Management 4 UNMARK^PSSCLDRG  ^PSSCLOZ  MONCLOZ^PSSDEE  ^PSSLAB  
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSSCLDRG  PSSDEE  

Entry Points

Name Comments DBIA/ICR reference
UNMARK
PSIU ;
ASKIT
ASK
END
CHECK

External References

Name Field # of Occurrence
^DIE ASK+4, UNMARK+2
^DIR CHECK, UNMARK+1, ASKIT
UNMARK^PSSCLDRG ASK
^PSSCLOZ ASK+3
MONCLOZ^PSSDEE PSSCLDRG+2
^PSSLAB ASKIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"This drug is marked for Lab Monitor purposes. You must unmark it as a",!,"Lab Monitor before you can mark it as a Clozapine drug."
  • Line Location: PSSCLDRG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,$P(^PSDRUG(DA,0),"^")_" is now marked as a Clozapine drug",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PSIU+4
Function Call: WRITE
  • Prompt: !
  • Line Location: UNMARK+3
Function Call: WRITE
  • Prompt: !,"Do you wish to mark this drug as a Lab Monitor drug?"
  • Line Location: ASKIT+0
Routine Call
  • DIE
  • Line Location:
    • ASK+4
    • UNMARK+2
Routine Call
  • DIR
  • Line Location:
    • CHECK
    • UNMARK+1
    • ASKIT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] PSSCLDRG+2, ASK+3, ASK+5, PSIU+1*, PSIU+2, UNMARK+1, UNMARK+2
^PSDRUG("ACLOZ" ASK, UNMARK
^PSDRUG("AIUO" PSIU+2*
^PSDRUG("IU" PSIU+3!*

Label References

Name Line Occurrences
ASKIT UNMARK+2
PSIU ASK+5

Naked Globals

Name Field # of Occurrence
^("I" ASK+3
^(0 PSIU+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
>> CLFLAG ASK, ASK+5*, UNMARK+2*
D0 END!
D1 END!
>> DA ASK*, ASK+4*, ASK+5, PSIU+1, PSIU+2, PSIU+3, UNMARK*, UNMARK+1, UNMARK+2
DIC ASK+4, END!, UNMARK+2
DIE ASK+4*, END!, UNMARK+2*
DIR END!, ASKIT!, ASKIT+2!
DIR("A" CHECK*, UNMARK+1*
DIR("B" CHECK*, UNMARK+1*
DIR(0 CHECK*, UNMARK+1*, ASKIT*
DIROUT END!
>> DIRUT ASK+1, ASK+5, ASKIT+1
>> DISPDRG PSSCLDRG+2, ASK, ASK+3, ASK+4, UNMARK, UNMARK+1
DP CHECK~
DQ END!, CHECK~
DR ASK+4*, END!, UNMARK+2*
DT ASK+3
DTOUT ASK+1, ASK+5, END!, ASKIT+1
DUOUT ASK+1, ASK+4*, ASK+5, END!, ASKIT+1
I END!
>> LMFLAG ASK+1
>> NFLAG ASK+1, ASK+5*, ASKIT+2*
PSIUA END!
PSIUO PSIU+1*, PSIU+3, PSIU+4!
PSIUX END!
PSIUY PSIU+1*, PSIU+3, PSIU+4!
PSSFLG ASK+2~, ASK+3*, ASK+4
X END!, CHECK, UNMARK+2, ASKIT+2!, ASKIT+3
Y ASK+4, END!, CHECK*, CHECK+1*, ASKIT+2!
Z END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All