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

Package: Pharmacy Data Management

Routine: PSSCLOZ


Information

PSSCLOZ ;BIR/TTH-CLOZAPINE DRUG ENTER/EDIT CLOZAPINE ; 01/25/99

Source Information

Source file <PSSCLOZ.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  

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
Pharmacy Data Management 1 PSSCLDRG  

Entry Points

Name Comments DBIA/ICR reference
CLOZBEG
CLOZBG2
END ;Kill variables.
DISPLAY ;Display lab test.
CLOZSEL ;Execute add, edit or delete submodule.
CLOZADD ;Add Clozapine sub-entry
CLOZAD2
CLOZEDT ;Edit Clozapine sub-entry
CLOZDEL ;Delete Clozapine sub-entry
CLOZDXX
CLOZASK ;Select LAB Test number.
DISPLY2 ;Display selection before adding to file.
DISPLY3
CLOZMOV ;In File #50, move data CLOZ node to CLOZ2 node.

External References

Name Field # of Occurrence
FILE^DICN CLOZAD2+3, CLOZMOV+9
^DIE PSSCLOZ+10, CLOZEDT+3
^DIK CLOZDXX+2
$$GET1^DIQ CLOZBEG+4
^DIR CLOZBEG+7, CLOZBG2+4, CLOZBG2+5, CLOZDEL+2, CLOZASK+3, DISPLY3, DISPLY3+1, DISPLY3+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Prescription of Clozapine requires identification of two",!,"laboratory tests, WBC and Absolute Neutrophil Count (ANC).",!!
  • Line Location: CLOZBEG+6
Function Call: WRITE
  • Prompt: "You do not have any laboratory tests identified."
  • Line Location: CLOZBEG+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZBEG+7
Function Call: WRITE
  • Prompt: "You have one laboratory type of "_$S(PSSTYP0=1:"WBC",PSSTYP0=2:"ANC",1:"**Unknown**")_" test identified."
  • Line Location: CLOZBEG+8
Function Call: WRITE
  • Prompt: "You currently have both laboratory tests identified."
  • Line Location: CLOZBEG+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZBG2+5
Function Call: WRITE
  • Prompt: !!!,?2,"Type of",!,?2,"Test",?12,"Lab Test Monitor",?55,"Specimen Type",!,?2,"-------",?12,"----------------",?55,"-------------"
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZADD+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZAD2+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZEDT+4
Function Call: WRITE
  • Prompt: !,"You must have a test defined for WBC and ANC to dispense Clozapine.",!
  • Line Location: CLOZDEL+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZDEL+2
Function Call: WRITE
  • Prompt: !!,"Deleting "_$P(PSSCLO(PSSNUM),U)_"...."
  • Line Location: CLOZDXX+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZDXX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOZASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLOZASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLY3+0
Function Call: WRITE
  • Prompt: !!,"You have selected the following information for",!,"a Laboratory Type of "_$S(PSSTUFF=2:"ANC",1:"WBC")_" test."
  • Line Location: DISPLY3+2
Function Call: WRITE
  • Prompt: !!,?2,"Lab Test Monitor: "_PSSLT,!,?2,"Specimen Type : "_PSSPTY
  • Line Location: DISPLY3+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLY3+4
Routine Call
  • DIE
  • Line Location:
    • PSSCLOZ+10
    • CLOZEDT+3
Routine Call
  • DIR
  • Line Location:
    • CLOZBEG+7
    • CLOZBG2+4
    • CLOZBG2+5
    • CLOZDEL+2
    • CLOZASK+3
    • DISPLY3
    • DISPLY3+1
    • DISPLY3+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] CLOZBEG+2, CLOZBEG+3, CLOZEDT+3!, CLOZMOV+3, CLOZMOV+4
^PSDRUG("ACLOZ" CLOZMOV+4*

Label References

Name Line Occurrences
CLOZAD2 CLOZASK+8
CLOZASK CLOZSEL+1, CLOZSEL+2, CLOZSEL+3
CLOZBEG CLOZADD+2, CLOZAD2+4, CLOZEDT+4, CLOZDEL+2, CLOZDXX+5, CLOZASK+4
CLOZBG2 CLOZBEG+7
CLOZDEL CLOZSEL+2
CLOZDXX CLOZEDT+3, CLOZASK+7
CLOZEDT CLOZSEL+3
CLOZSEL CLOZBG2, CLOZBG2+6
DISPLAY CLOZBEG+11
DISPLY2 CLOZADD+2
DISPLY3 CLOZASK+6
END CLOZADD+2, CLOZAD2+4, CLOZEDT+4, CLOZDEL+2, CLOZDXX+5, CLOZASK+4

Naked Globals

Name Field # of Occurrence
^(0 CLOZBEG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PSSCLOZ+7~, PSSCLOZ+10*!, CLOZAD2+3!, CLOZEDT+1*, CLOZDXX+1*, CLOZMOV+5*, CLOZMOV+9!
DA(1 CLOZAD2*, CLOZDXX+1*, CLOZMOV+5*, CLOZMOV+7
DD CLOZAD2!, CLOZAD2+3!, CLOZMOV+5!
DIC PSSCLOZ+7~, END+1!, CLOZAD2!*, CLOZAD2+3!, CLOZMOV+5!, CLOZMOV+7*, CLOZMOV+9!
DIC("DR" CLOZAD2+2*, CLOZMOV+8*
DIC("P" CLOZAD2+1*, CLOZMOV+6*
DIC(0 CLOZAD2+1*, CLOZMOV+6*
DIE PSSCLOZ+7~, PSSCLOZ+10*!, END+1!, CLOZEDT+1!, CLOZEDT+2*, CLOZEDT+3!
DIK PSSCLOZ+7~, END+1!, CLOZDXX!, CLOZDXX+1*, CLOZDXX+2!
DINUM PSSCLOZ+7~, CLOZMOV+5*
DIR PSSCLOZ+7~, CLOZBEG+7!, END+1!, CLOZASK+2!, DISPLY3!, DISPLY3+1!, DISPLY3+4!
DIR("?" CLOZBG2+1*, CLOZDEL+2*, CLOZASK+3*, DISPLY3+4*
DIR("A" CLOZBEG+7*, CLOZBG2+4*, CLOZBG2+5*, CLOZDEL+2*, CLOZASK+2*, DISPLY3+1*, DISPLY3+4*
DIR("B" CLOZBEG+7*, CLOZDEL+2*, DISPLY3+4*
DIR("S" DISPLY3*
DIR(0 CLOZBEG+7*, CLOZBG2+4*, CLOZBG2+5*, CLOZDEL+2*, CLOZASK+2*, DISPLY3*, DISPLY3+1*, DISPLY3+4*
DIRUT PSSCLOZ+8!, CLOZBEG, CLOZBEG+7, CLOZBG2+2, CLOZBG2+4, CLOZBG2+5, CLOZBG2+6, CLOZSEL+1, CLOZADD+1, CLOZADD+2
, CLOZAD2+3*, CLOZAD2+4, CLOZEDT+1, CLOZEDT+3*, CLOZEDT+4, CLOZDEL+1, CLOZDEL+2, CLOZDXX+5, CLOZASK+1, CLOZASK+3
, CLOZASK+4, CLOZASK+6, DISPLY2+1, DISPLY3, DISPLY3+1
>> DISPDRG PSSCLOZ+6, PSSCLOZ+10, CLOZBEG+2, CLOZBEG+3, CLOZAD2, CLOZEDT+3, CLOZDXX+1
DO CLOZAD2!, CLOZAD2+3!, CLOZMOV+5!
DR PSSCLOZ+7~, PSSCLOZ+10*, END+1!, CLOZEDT+1!, CLOZEDT+3*!
DUOUT PSSCLOZ+8!, CLOZBEG, CLOZAD2+3*, CLOZEDT+3*, CLOZASK+1
PSSANS PSSCLOZ+7~, CLOZBG2*, CLOZBG2+6*, END+1!, CLOZSEL+1, CLOZSEL+2, CLOZSEL+3, CLOZDXX+3, CLOZDXX+4, CLOZASK+2
, CLOZASK+4
PSSANS2 PSSCLOZ+7~, END+1!, CLOZEDT+1, CLOZDXX+1, CLOZASK+4*
PSSCIM PSSCLOZ+7~, CLOZBEG+3*, CLOZBEG+4
PSSCLO PSSCLOZ+7~, CLOZADD+2!, CLOZAD2+4!, CLOZEDT+4!, CLOZDEL+2!, CLOZDXX+5!, CLOZASK+4!
PSSCLO( CLOZBEG+5*, DISPLAY+2, DISPLAY+3, DISPLAY+4, CLOZDXX+4, CLOZASK+4, CLOZASK+5
PSSCLO(0 DISPLAY+2
PSSCLO(1 DISPLY2+1
PSSCNT PSSCLOZ+7~, CLOZBEG+1*, CLOZBEG+5*, CLOZBEG+7, CLOZBEG+8, CLOZBEG+9, CLOZBG2, CLOZBG2+2, CLOZBG2+5, END+1!
, CLOZSEL+1, CLOZSEL+2, CLOZSEL+3, CLOZDEL+1, CLOZDXX+3, CLOZASK+2, CLOZASK+4
PSSCRN PSSCLOZ+7~, CLOZASK+5*, DISPLY2+1*
PSSGLO CLOZMOV+1~, CLOZMOV+2*, CLOZMOV+4*, CLOZMOV+5, CLOZMOV+8
PSSIEN PSSCLOZ+7~, CLOZBEG+1*, CLOZBEG+2*, CLOZBEG+3, CLOZBEG+5, CLOZMOV+1~, CLOZMOV+2*, CLOZMOV+3*, CLOZMOV+4, CLOZMOV+5
PSSLAB1 PSSCLOZ+7~, CLOZBEG+4!*, CLOZBEG+5
PSSLAB2 PSSCLOZ+7~, CLOZBEG+4!*, CLOZBEG+5
PSSLT PSSCLOZ+7~, DISPLY3*, DISPLY3+3
PSSLTN PSSCLOZ+7~, CLOZAD2, DISPLY3*
PSSNN PSSCLOZ+7~, CLOZASK+5*
PSSNUM PSSCLOZ+7~, CLOZDXX+4, CLOZASK+4*, CLOZASK+5
PSSOPP PSSCLOZ+7~, CLOZBG2+3*, CLOZBG2+4
PSSPTY PSSCLOZ+7~, DISPLY3+1*, DISPLY3+3
PSSPTYN PSSCLOZ+7~, CLOZAD2+2, DISPLY3+1*
PSSSUB PSSCLOZ+7~, CLOZBEG+3*, CLOZBEG+4, CLOZBEG+5, END+1!
PSSTOT PSSCLOZ+7~, DISPLAY+3*, DISPLAY+4
PSSTUFF PSSCLOZ+7~, CLOZBEG+7*, CLOZBEG+8*, CLOZAD2+2, CLOZEDT+3, CLOZASK+4*, DISPLY3+2
PSSTYP0 PSSCLOZ+7~, CLOZBEG+3*, CLOZBEG+5, CLOZBEG+8, CLOZBG2+3
PSSXX PSSCLOZ+7~, END+1!, DISPLAY+2*, DISPLAY+3, DISPLAY+4
U CLOZBEG+3, DISPLAY+3, DISPLAY+4, CLOZDXX+4, CLOZASK+4, CLOZASK+5, DISPLY2+1, DISPLY3, DISPLY3+1
X PSSCLOZ+7~, CLOZBEG+7!, END+1!, CLOZAD2*, CLOZAD2+3!, CLOZEDT+1!, CLOZEDT+3!, CLOZDXX!, CLOZDXX+2!, DISPLY3!
, DISPLY3+1!, DISPLY3+4!, CLOZMOV+5!*
Y PSSCLOZ+7~, CLOZBEG+7!, CLOZBG2+6, END+1!, CLOZADD+2, CLOZAD2+3!, CLOZEDT+1!, CLOZEDT+3!, CLOZDEL+2, CLOZDXX!
, CLOZDXX+2!, CLOZASK+2!, CLOZASK+4, CLOZASK+6, DISPLY3!, DISPLY3+1!, DISPLY3+4!
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