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

Package: Inpatient Medications

Routine: PSGCAPIV


Information

PSGCAPIV ;BIR/MV-ACTION PROFILE #2 IV ORDERS ; 8/28/09 12:24pm

Source Information

Source file <PSGCAPIV.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
IV ;
PRT(ON) ;*** Print IV orders.
PRTST ;*** Print the rest of the 1st line.
NP(TYPE) ;*** Print end line after order.
DCU(TYPE,X) ;*** Calculate drug cost.
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(N,3)
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: ?5,$$WRTDRG^PSIVUTL(DRG("AD",X),41)
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: ?5,"in "
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X>1
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: ?8,$$WRTDRG^PSIVUTL(DRG("SOL",X),41)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?5,"Special Instructions: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !?27
  • Condition for execution: ($L(Y1)+$X)>79
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: Y1_" "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+16
Info |  Source |  Entry Points |  Interaction Calls