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 ;07 OCT 97 / 9:35 AM

Source Information

Source file <PSIVMAN1.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSIVMAN  PSIVSUS1  

Entry Points

Name Comments DBIA/ICR reference
PRNTO ;
SOL
PAT
ENT ; will print man. list
LOOKUP ; expand drug info
RGY ;
SETP
WD
HDR
HDRE
RGY1
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)," (",$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)
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+3
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" WDHDR+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, PATPAT+1, PAT+2, ENT+2, ENT+4, RGY+1
SETPRGY1RGY1+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
^(0 PRNTO+1, SOL+1, SOL+3, LOOKUP+3
^(1 PAT+2
^(2 PAT+1
^(3 PAT+2

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, PATPAT+1, PAT+2, 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, PATPAT+1, PAT+2, RGY+1*, SETP
>> P( SETP*
>> P(23 PAT+1
>> P(4 PAT+1
PSIV SOL+2*, SOL+3, PAT+2*, PAT+3!
PSIV1 PATENT+4*, ENT+5!, RGY+1, RGY1RGY1+1
PSIV2 PATENT+5!, RGY+1, RGY1+1*
PSIV3 PAT+3!
PSIVA PRNTO+2*, PAT+3!
>> PSIVCD( HDR+5
PSIVDN SOLENT+4*, ENT+5!, LOOKUP+1*, LOOKUP+2, LOOKUP+3*, RGY1RGY1+1*
>> PSIVDT HDR+1
>> PSIVGL1 PATENT+2, ENT+4, RGY+1, RGY1RGY1+1
>> PSIVGL2 PATENT+2, ENT+4, RGY+1, RGY1RGY1+1
>> PSIVMT( HDR+5
>> PSIVOD HDRHDR+4
>> PSIVOD( HDR+5
>> PSIVSL SOL+3*
>> PSIVSN PATENT+2, ENT+4, RGY+1, HDR+1, RGY1RGY1+1
PSIVT PATENT+2*, ENT+3*, ENT+4*, ENT+5!, RGY+1, HDR+5, HDR+6, HDRE+1, RGY1
RGY1+1
PSIVTEST ENT+5!
>> PSIVTTM ENT+2
>> TOTAL PAT*, ENT+3*, ENT+4, TOTAL*
U PATPAT+1, HDR+1
>> VADM(1 PAT
>> VADM(2 PAT
>> VAIN(4 PAT
>> X SETP*, HDR+5*, HDRE*, HDRE+1*
>> Y SETP*, WDHDR+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