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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSODEA

Package: Outpatient Pharmacy

Routine: PSODEA


Information

PSODEA ;BHAM ISC/ - HELP TEXT FOR DEA FIELD IN DRUG FILE ; 10/17/07 7:41am

Source Information

Source file <PSODEA.m>

Entry Points

Name Comments DBIA/ICR reference
D
EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THE SPECIAL HANDLING CODE IS A 2 TO 6 POSTION FIELD. IF APPLICABLE,",!,"A SCHEDULE CODE MUST APPEAR IN THE FIRST POSITION. FOR EXAMPLE,"
  • Line Location: PSODEA+2
Function Call: WRITE
  • Prompt: !,"A SCHEDULE 3 NARCOTIC WILL BE CODED '3A' AND A SCHEDULE 2 DEPRESSANT",!,"WILL BE CODED '2L'. THE CODES ARE:",!
  • Line Location: PSODEA+3
Function Call: WRITE
  • Prompt: !?10,AA
  • Line Location: PSODEA+4
Function Call: WRITE
  • Prompt: !,"The B designation is only valid for schedule 3, 4, 5 !",$C(7)
  • Line Location: EDIT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AA PSODEA+4*, D!
>> I PSODEA+4*
X EDIT+1!

Marked Items

Name Field # of Occurrence
$T(D+I PSODEA+4
Info |  Source |  Entry Points |  Interaction Calls |  Local Variables |  Marked Items  | All