Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Inpatient Medications 2 $$ENDTC^PSGMI  ($$PRTCHK,EXITDEV)^PSJMUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGEUDD  

Entry Points

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

External References

Name Field # of Occurrence
$$ENDTC^PSGMI PRTPT+5, HDR+4, PRTW+10
$$PRTCHK^PSJMUTL HDR+1
EXITDEV^PSJMUTL EXIT

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] P+2, P+5, PRTPT+2, W+3
^TMP($J START+3, P+2, P+3, PRTPT+1, W+2, W+3, W+4, PRTW+1
^VA(200 - [#200] PRTPT+5, PRTW+10

Label References

Name Line Occurrences
@( START+8
EXIT START+3
HDR PHDR+1, WHDR+1
PHDR PRTPT+2, PRTPT+6
PRTPT P+3
PRTW W+4
TOT P+5, PRTPT+2, PRTPT+3, W+6, PRTW+4, PRTW+7, PRTW+8
WHDR PRTW+2, PRTW+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DRG P+2*, P+3, PRTPT+1, PRTPT+3, W+3*, W+4, PRTW+1, PRTW+8
DRGO START+5~, P+1*, P+5, PRTPT+2*, PRTPT+3*, W+1*, PRTW+4, PRTW+6*, PRTW+7*, PRTW+8*
IO START+4
IOF HDR+2
IOSL PRTPT+6, PRTW+11
MSG1 START+5~, START+7*, P+5, PRTPT+2, W+6, PRTW+4, PRTW+7
MSG2 START+5~, START+7*, TOT+1
NAME TOT~, TOT+1
>> ND PRTPT+1*, PRTPT+5, PRTPT+7, PHDR+2, PRTW+1*, PRTW+10, PRTW+12
PNAME START+5~, P+2*, PHDR+2, W+3*, PRTW+10
>> PPN P+2*, P+3, PRTPT+1, PRTPT+2, W+3*, W+4, PRTW+1
PPNO START+5~, P+1*, P+5, PRTPT+2*
>> PSGDT P+3*, PRTPT+1, PRTPT+5, W+4*, PRTW+1, PRTW+10
>> PSGEDT HDR+4
PSGPG START+6*, EXIT+1!, HDR+1, HDR+2*, HDR+3, PRTW+2
>> PSGSDT HDR+4
>> PSGSS START+8
>> PSGTM W+6, PRTW+4, PRTW+5, PRTW+7
>> PSGTMALL W+6, PRTW+4, PRTW+5, PRTW+7
PSGTOTD EXIT+1!, P+5, PRTPT+2, PRTPT+3*, PRTPT+7*, W+1*, W+6, PRTW+4, PRTW+6*, PRTW+7*
, PRTW+8*, PRTW+12*
PSGTOTM EXIT+1!, W+1*, W+6, PRTW+4, PRTW+6*, PRTW+7*, PRTW+12*
PSGTOTU EXIT+1!, P+5, PRTPT+2*, PRTPT+7*, W+1*, W+6, PRTW+12*
PSGTOTW EXIT+1!, W+1*, W+6, PRTW+4, PRTW+6*, PRTW+12*
>> PSGWGNM W+6
>> PSGWN W+1*, W+2*, W+3, W+4, PRTW+1, PRTW+3, PRTW+5, PRTW+6
PSGWNO EXIT+1!, W+1*, W+6, PRTW+3, PRTW+4, PRTW+6*
>> PSJSTOP START+6*, P+2, P+3, P+4, PHDR+1, W+2, W+3, W+4, W+5, WHDR+2
>> TM W+2*, W+3, W+4, PRTW+1, PRTW+5, PRTW+6, PRTW+7
TMO START+5~, W+1*, W+6, PRTW+4, PRTW+6*, PRTW+7*
TOT TOT~, TOT+1
U PRTPT+5, PHDR+2, PRTW+10
X TOT~, TOT+1, WHDR+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All