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
Print Page as PDF
Routine: PSJDEA

Package: Inpatient Medications

Routine: PSJDEA


Information

PSJDEA ;BIR/CML3-HELP TEXT FOR DEA FIELD IN DRUG FILE ;20 JUN 94 / 5:24 PM

Source Information

Source file <PSJDEA.m>

Entry Points

Name Comments DBIA/ICR reference
L ; list of codes
EDIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The special handling code is 1 to 6 characters. If applicable, the schedule",!,"code must appear in the first position. For example, a schedule 3 narcotic",!,"would be coded as '3A' and a schedule 2 depressant would be coded as '2L'."
  • Line Location: PSJDEA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJDEA+4
Function Call: WRITE
  • Prompt: !,"Would you like a list of the codes"
  • Line Location: PSJDEA+4
Function Call: WRITE
  • Prompt: !,"Would you like a list of the codes"
  • Line Location: PSJDEA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJDEA+5
Function Call: WRITE
  • Prompt: !?10,Y
  • Line Location: PSJDEA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJDEA+6
Function Call: WRITE
  • Prompt: !," The B designation is only valid for schedule 3, 4, and 5 narcotics!",$C(7)
  • Line Location: EDIT+1
Info |  Source |  Entry Points |  Interaction Calls