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

Package: Inpatient Medications

Routine: PSIVVW1


Information

PSIVVW1 ;BIR/PR-PRINT ACTIVITY LOG ;06 APR 97 / 5:47 PM

Source Information

Source file <PSIVVW1.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ;Ask to view activity log
BEG1 ;Ask to view label log
EN ; Show activity, label, or history log.
ENPR ;Entry from profile.
Q
EN1 ;Entry for Inmed functionality and viewing the log from IV order entry
ACT ;This module is used for the screen profile
ACTW ;
PAUSE ;
HDR
LOG1 ;This module is used for profile report. (hard printer copy usually)
ENLOG ;Entry for patient profile report OR patient purge report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"View activity log"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"View label log"
  • Line Location: BEG1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !!,"No activity LOG to report."
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !,JJ,?3,$P(Y,"@")," ",$P(Y,"@",2),?24
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: X
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: ?50,X
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !?3,"Comment: ",$P(P1,"^",4)
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+5
Function Call: WRITE
  • Prompt: !?10,"Field: '",$P(P1,"^"),"'"
  • Line Location: ACTW+4
Function Call: WRITE
  • Prompt: !?3,"Changed from: '",$P(P1,"^",2),"'"
  • Line Location: ACTW+4
Function Call: WRITE
  • Prompt: !?3,"Changed from: '",$P(P1,"^",2),"'"
  • Line Location: ACTW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTW+5
Function Call: WRITE
  • Prompt: !?10,"Field: '",$P(P1,"^"),"'"
  • Line Location: ACTW+5
Function Call: WRITE
  • Prompt: !?10,"Field: '",$P(P1,"^"),"'"
  • Line Location: ACTW+5
Function Call: WRITE
  • Prompt: !?4,"'",^(TXTLN,0)
  • Line Location: ACTW+8
Function Call: WRITE
  • Prompt: "'",!
  • Line Location: ACTW+19
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !!,"ACTIVITY LOG:",!,"#",?3,"DATE",?14,"TIME",?24,"REASON",?50,"USER",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,JJ,?3,$P(Y,"@")," ",$P(Y,"@",2),?24
  • Line Location: LOG1+2
Function Call: WRITE
  • Prompt: X
  • Line Location: LOG1+2
Function Call: WRITE
  • Prompt: ?50,$P(P1,"^",3),!?3,"Comment: ",$P(P1,"^",4)
  • Line Location: LOG1+3
Function Call: WRITE
  • Prompt: !!?10,"Field: '",$P(P1,"^"),"'",!?3,"Changed from: '",$P(P1,"^",2),"'",!?13,"To: '",$P(P1,"^",3),"'"
  • Line Location: LOG1+4
Info |  Source |  Entry Points |  Interaction Calls