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

Package: Inpatient Medications

Routine: PSGEUDP


Information

PSGEUDP ;BIR/MV-PRINT EXTRA UNITS DISP. ;04 JAN 95 / 12:27 PM

Source Information

Source file <PSGEUDP.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
EXIT
P ;*** Print by patient.
PRTPT ;*** Print Extra Dispensed Drug sort by patient.
TOT(TOT,NAME,X)
PHDR ;*** Print the header when sort by patient.
HDR ;*** Print the report main header.
W ;***Print by ward/ward group.
PRTW ;*** Print output for ward/ward group
WHDR ;***Print ward/ward group header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND ON EXTRA UNITS DISPENSED"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,DRG
  • Line Location: PRTPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTPT+4
Function Call: WRITE
  • Prompt: ?46,$J(+ND,5),?53,$$ENDTC^PSGMI(PSGDT),?69,$E($P(^VA(200,+$P(ND,U,2),0),U,2),1,4)
  • Line Location: PRTPT+5
Function Call: WRITE
  • Prompt: !?2,NAME,$E(MSG2,1,X-2-$L(NAME)),?X,$J(TOT,5),!
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !!,PNAME,?39,"Room_Bed: "_$P(ND,U,4),!,$P(ND,U,3),?39," Ward: "_$P(ND,U,5),!
  • Line Location: PHDR+2
Function Call: WRITE
  • Prompt: !!,"DRUG NAME",?47,"UNIT",?53,"DATE",?69,"DISP."
  • Line Location: PHDR+3
Function Call: WRITE
  • Prompt: !?53,"DISPENSED",?69,"BY",!
  • Line Location: PHDR+4
Function Call: WRITE
  • Prompt: !?30,"EXTRA UNITS DISPENSED REPORT",?68,"PAGE: ",PSGPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?17,"REPORT FROM: ",$$ENDTC^PSGMI(PSGSDT)," TO: ",$$ENDTC^PSGMI(PSGEDT),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"WARD: ",PSGWN
  • Line Location: PRTW+5
Function Call: WRITE
  • Prompt: !,"TEAM: ",TM
  • Condition for execution: $G(PSGTM)!$G(PSGTMALL)
  • Line Location: PRTW+5
Function Call: WRITE
  • Prompt: !,"TEAM: ",TM
  • Line Location: PRTW+7
Function Call: WRITE
  • Prompt: !!,$E(DRG,1,31)
  • Line Location: PRTW+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTW+9
Function Call: WRITE
  • Prompt: ?33,$E(PNAME,1,13)_"("_$P(ND,U,3)_")",?53,$J(+ND,5),?59,$$ENDTC^PSGMI(PSGDT),?75,$E($P(^VA(200,+$P(ND,U,2),0),U,2),1,4)
  • Line Location: PRTW+10
Function Call: WRITE
  • Prompt: !!,"DRUG NAME",?33,"PATIENT",?54,"UNIT",?59,"DATE",?75,"DISP.",!,?59,"DISPENSED",?75,"BY",!
  • Line Location: WHDR+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: WHDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WHDR+5
Info |  Source |  Entry Points |  Interaction Calls