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

Package: Outpatient Pharmacy

Routine: PSODSRC


Information

PSODSRC ;BHAM ISC/XAK,MJK - help text for source of supply field in drug file ; 08/20/92 9:04

Source Information

Source file <PSODSRC.m>

Entry Points

Name Comments DBIA/ICR reference
P
D ;;DESCRIPTION MEANINGS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"A two or three position code identifies the source of supply and whether",!,"the drug is stocked by the station supply division. The first"
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,"position of the code identifies source of supply. The codes are:",!
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !?10,I,?20,$E($T(D+I+1),4,99)
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !,"The second position of the code indicates whether the item is",!,"or is not available from supply warehouse stock. The codes are:",!
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !?10,"P",?20,"POSTED STOCK",!?10,"U",?20,"UNPOSTED",!?10,"M",?20,"BULK COMPOUND"
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !,"* USE CODE 0 ONLY WITH SECOND POSITION M."
  • Line Location: P+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> I P+2*
IOF P

Marked Items

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