Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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.

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call