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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVMAN1

Package: Inpatient Medications

Routine: PSIVMAN1


Information

PSIVMAN1 ;BIR/RGY,PR-COMPILE MAN LIST ;05-Dec-2003 10:01;PLS

Source Information

Source file <PSIVMAN1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Inpatient Medications 3 DESC^PSIVLBL1  $$CODES^PSIVUTL  ENIV^PSJAC  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSIVMAN  PSIVSUS1  

Entry Points

Name Comments DBIA/ICR reference
WD
PAT ;W !?4,"[",ON,"] ",?10,VADM(1)," (",$E(VADM(2),6,9),") (",$S(+VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",?62,+^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,PSIV2,DFN,ON) S TOTAL=TOTAL+^(ON)
HDR
SETP
RGY ;
RGY1
SOL
PRNTO ;
HDRE
ENT ; will print man. list
LOOKUP ; expand drug info
TOTAL

External References

Name Field # of Occurrence
NOW^%DTC HDR+3
DESC^PSIVLBL1 HDR+6
$$CODES^PSIVUTL HDR+5, HDRE+1
ENIV^PSJAC RGY+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?16,$P(^PS(52.6,$P(PSIVA,"^",2),0),"^")," ",$P(PSIVA,"^",3)
  • Line Location: PRNTO+2
Function Call: WRITE
  • Prompt: " in bottle(s): ",$P(PSIVA,"^",4)
  • Condition for execution: $P(PSIVA,"^",4)]""
  • Line Location: PRNTO+2
Function Call: WRITE
  • Prompt: ?80,"Lot#: __________"
  • Line Location: PRNTO+2
Function Call: WRITE
  • Prompt: !?4,"[",ON,"] ",?10,VADM(1)," (",$G(PSJPBID),") (",$S(+VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",?62,+^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,PSIV2,DFN,ON)
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: "ROM SUSPENSE"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "OR IV ROOM: ",$P(^PS(59.5,PSIVSN,0),U)," AT "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $P(Y,"@")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Printed on",?30,": "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,X," manufacturing time: "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,X,"S covering from "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,X,"S covering from "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!?20,"Order",?60,"Totals",?80,"Lot #'s"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDRE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRE+1
Function Call: WRITE
  • Prompt: !,"*** ",X,"S ***",!
  • Condition for execution: X]""
  • Line Location: HDRE+1
Function Call: WRITE
  • Prompt: !,PSIVDN,?55,"Total: ",^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,0)
  • Line Location: RGY1+0
Function Call: WRITE
  • Prompt: !?16,PSIVDN
  • Condition for execution: $E(PSIVDN,1,3)="***"
  • Line Location: RGY1+0
Function Call: WRITE
  • Prompt: !?60,"_______",!?47,"Overall Total: ",TOTAL
  • Line Location: TOTAL+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WD, HDR+1
^PS( LOOKUP+3
^PS(52.6 - [#52.6] PRNTO+2
^PS(52.7 - [#52.7] SOL+3
^PS(55 - [#55] PRNTO+1, PRNTO+2, SOL+1, SOL+2, PAT+1, PAT+2, PAT+3, ENT+2, ENT+4, RGY+1
, SETP, RGY1, RGY1+1
^PS(59.5 - [#59.5] HDR+1

Label References

Name Line Occurrences
HDR ENT+2, ENT+4
HDRE HDR+4
LOOKUP ENT+4, RGY1+1
PAT SOL+1
PRNTO RGY+1
RGY RGY1+1
RGY1 ENT+4
SETP RGY+1
SOL PRNTO+1
TOTAL ENT+4
WD HDR+4, HDR+5

Naked Globals

Name Field # of Occurrence
^( PRNTO+2, SOL+2, PAT+1
^(0 PRNTO+1, SOL+1, SOL+3, LOOKUP+3
^(1 PAT+3
^(2 PAT+2
^(3 PAT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR+3!
%H HDR+3!
%I HDR+3!
>> DA LOOKUP+2*, LOOKUP+3
>> DFN PRNTO+1, PRNTO+2, SOL+1, SOL+2, PAT+1, PAT+2, PAT+3, RGY+1*, SETP
FILE ENT+5!, LOOKUP+2*, LOOKUP+3
IOF HDR
IOM HDRE
>> JJ ENT+4*, RGY1+1*
>> JJ1 ENT+4*
>> NOFLG ENT+1*, ENT+2*, HDR+6, HDR+7
>> ON PRNTO+1, PRNTO+2, SOL+1, SOL+2, PAT+1, PAT+2, PAT+3, RGY+1*, SETP
>> P( SETP*
>> P(23 PAT+2
>> P(4 PAT+2
PSIV SOL+2*, SOL+3, PAT+3*, PAT+4!
PSIV1 PAT+1, ENT+4*, ENT+5!, RGY+1, RGY1, RGY1+1
PSIV2 PAT+1, ENT+5!, RGY+1, RGY1+1*
PSIV3 PAT+4!
PSIVA PRNTO+2*, PAT+4!
>> PSIVCD( HDR+5
PSIVDN SOL, ENT+4*, ENT+5!, LOOKUP+1*, LOOKUP+2, LOOKUP+3*, RGY1, RGY1+1*
>> PSIVDT HDR+1
>> PSIVGL1 PAT+1, ENT+2, ENT+4, RGY+1, RGY1, RGY1+1
>> PSIVGL2 PAT+1, ENT+2, ENT+4, RGY+1, RGY1, RGY1+1
>> PSIVMT( HDR+5
>> PSIVOD HDR, HDR+4
>> PSIVOD( HDR+5
>> PSIVSL SOL+3*
>> PSIVSN PAT+1, ENT+2, ENT+4, RGY+1, HDR+1, RGY1, RGY1+1
PSIVT PAT+1, ENT+2*, ENT+3*, ENT+4*, ENT+5!, RGY+1, HDR+5, HDR+6, HDRE+1, RGY1
, RGY1+1
PSIVTEST ENT+5!
>> PSIVTTM ENT+2
>> PSJPBID PAT+1
>> TOTAL PAT+1*, ENT+3*, ENT+4, TOTAL*
U PAT+1, PAT+2, HDR+1
>> VADM(1 PAT+1
>> VAIN(4 PAT+1
>> X SETP*, HDR+5*, HDRE*, HDRE+1*
>> Y SETP*, WD, HDR+1*, HDR+3*, HDR+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All