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

Package: Inpatient Medications

Routine: PSGVW0


Information

PSGVW0 ;BIR/CML3-SHOWS ACTIVITY LOG ;16 DEC 97 / 1:38 PM

Source Information

Source file <PSGVW0.m>

Entry Points

Name Comments DBIA/ICR reference
AL1
AL2
NPAGE
ALC ;
ENA ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: PSGVW0+5
Function Call: WRITE
  • Prompt: !!?4,"Date: ",$$ENDTC^PSGMI(+AND)
  • Line Location: AL1+1
Function Call: WRITE
  • Prompt: ?30,"User: ",$$ENNPN^PSGMI($P(AND,"^",2))
  • Condition for execution: $S(UD'?4N:1,1:$E(UD,1,2)'=10)
  • Line Location: AL1+1
Function Call: WRITE
  • Prompt: !?3,"Field: ",$P(AND,"^",4)
  • Line Location: AL2+0
Function Call: WRITE
  • Prompt: !,"Old Data: ",OD
  • Line Location: AL2+1
Function Call: WRITE
  • Prompt: !,"Old Data: ",(OD/60)_" hours"
  • Line Location: AL2+2
Function Call: WRITE
  • Prompt: !,"Old Data: "
  • Line Location: AL2+3
Function Call: WRITE
  • Prompt: !?3,^(Q2,0)
  • Line Location: AL2+5
Function Call: WRITE
  • Prompt: !,"New Data: "
  • Condition for execution: (Q2=1)
  • Line Location: AL2+6
Function Call: WRITE
  • Prompt: !?3,^(Q2,0)
  • Line Location: AL2+6
Function Call: WRITE
  • Prompt: !?3,^(Q2,0)
  • Line Location: AL2+7
Function Call: WRITE
  • Prompt: !,"Old Data: "
  • Line Location: AL2+8
Function Call: WRITE
  • Prompt: !?3,^(Q2,0)
  • Line Location: AL2+9
Function Call: WRITE
  • Prompt: !?3,^(Q2,0)
  • Line Location: AL2+10
Function Call: WRITE
  • Prompt: !?3,"Field: ",$P(AND,"^",4)
  • Line Location: AL2+11
Function Call: WRITE
  • Prompt: " (NO)"
  • Line Location: ALC+2
Function Call: WRITE
  • Prompt: $P(PX,AT,2)
  • Line Location: ALC+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ALC+4
Function Call: WRITE
  • Prompt: !!,"Enter 'LONG' (or 'L') to see ALL of the entries of this activity log. Enter 'SHORT' (or 'S') to NOT see the fields edited because of the order being",!,"renewed, discontinued, etc. Simply press the RETURN key "
  • Line Location: ALC+5
Function Call: WRITE
  • Prompt: "(or enter 'NO', 'N',",!,"or '^') to NOT see the activity log."
  • Line Location: ALC+6
Info |  Source |  Entry Points |  Interaction Calls