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

Package: Inpatient Medications

Routine: PSIVPCR1


Information

PSIVPCR1 ;BIR/PR,MV-PRINT PROVIDER COST REPORT ;07 OCT 97 / 9:49 AM

Source Information

Source file <PSIVPCR1.m>

Entry Points

Name Comments DBIA/ICR reference
P ;
P1 ;
P2 ;
P3 ;
F ;
BRIEF ;***Print the condensed Provider cost report.
K ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"IV ROOM: "_$P(^PS(59.5,V,0),U),!
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !!?17,"GRAND TOTAL:",?116,"================",!?114,"$",$J(GT,17,2)
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !?1,"PROVIDER: ",P1,!
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !,?116,"----------------"
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !?5,"TOTAL FOR PROVIDER: ",P1,?114,"$",$J(PT,17,2),!!
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !?2,$E(DG,1,33),?36,$J($P(G,U,3),8,2)_" "_C,?59,$J($P(G,U,6),8,2),?73,$J($P(G,U,5),9,2),?96,$J($P(G,U,7),9,2),?114,"$",$J($P(G,U,4),17,2)
  • Line Location: P3+4
Function Call: WRITE
  • Prompt: !!!?10,"IV ROOM: "_$P(^PS(59.5,V,0),U),!
  • Line Location: BRIEF+1
Function Call: WRITE
  • Prompt: !,P1,?45,"$",$J(PT,17,2),!
  • Line Location: BRIEF+4
Function Call: WRITE
  • Prompt: !!,?46,"=================",!,?20,"GRAND TOTAL:",?45,"$",$J(GT,17,2)
  • Line Location: BRIEF+5
Info |  Source |  Entry Points |  Interaction Calls