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

Package: CMOP

Routine: PSXVIEW


Information

PSXVIEW ;BIR/HTW-CMOP Data for View Prescription ;[ 02/02/98 7:46 AM ]

Source Information

Source file <PSXVIEW.m>

Entry Points

Name Comments DBIA/ICR reference
FOUR ; Get data from event multiple
FINI
PRINT ;
PSXLOT ;
JUMP
PAGE
HEADER ;
FIX ; Translate data
F1
P1 ; Get transmission d/t
Q1
SKIP
T1
Z1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($G(PSXTST)=3:PSXTCAN,$G(PSXTST)=1:$G(PSXRDT),1:$G(PSXTRDT))
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?15,$S(PSXFIL=0:"ORIG",1:"REF "_$G(PSXFIL))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?22,$G(PSXBREF)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?36,$G(PSXT)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?42,$S($G(PSXTST)=3:$E($G(PSXCAN),1,35),$G(PSXNDC)]"":"NDC: "_PSXNDC,1:"")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PSXLOT+2
Function Call: WRITE
  • Prompt: "CMOP LOT#/EXPIRATION DATE LOG:"
  • Line Location: PSXLOT+3
Function Call: WRITE
  • Prompt: !,"RX REF",?20,"LOT #",?40,"EXPIRATION DATE",!
  • Line Location: PSXLOT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PSXLOT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: JUMP+0
Function Call: WRITE
  • Prompt: @IOF,"CMOP EVENT LOG:"
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"DATE",?15,"RX REF",?22,"TRN-ORDER #",?36,"STAT",?42,"COMMENTS"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: Z1+0
Info |  Source |  Entry Points |  Interaction Calls