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

Package: Outpatient Pharmacy

Routine: PSOSD3


Information

PSOSD3 ;BHAM ISC/RTR - Prints pending orders on action profile ;11/20/95

Source Information

Source file <PSOSD3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 2 (ADD,DEM,INP,PID)^VADPT  $$SITE^VASITE  
VA FileMan 2 DT^DIO2  ^DIR  
General Medical Record - Vitals 1 EN6^GMRVUTL  
Kernel 1 $$FMTE^XLFDT  
Outpatient Pharmacy 1 (CHECKBAI,ELIG)^PSOSD1  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSO ACTION PROFILE  PSO ACTION PROFILE #2  PSOSD1  PSOSDRAP  PSOXX  

Entry Points

Name Comments DBIA/ICR reference
START
END
HD
HD1
NVA ;displays non-va meds

External References

Name Field # of Occurrence
DT^DIO2 HD1+5, HD1+10
^DIR HD1+1
EN6^GMRVUTL HD1+19
CHECKBAI^PSOSD1 HD1+13
ELIG^PSOSD1 START+2, HD1+2
ADD^VADPT START+2, HD1+2
DEM^VADPT START+2, HD1+2
INP^VADPT START+2, HD1+2
PID^VADPT START+2, HD1+2
$$SITE^VASITE HD1+7
$$FMTE^XLFDT NVA+11, NVA+14, NVA+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"No pending orders for this patient!",!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSCONT>1
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?6,$G(^PS(52.41,PNDREX,"SIG",PPPP,0))
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,PNDLINE,"PENDING ORDERS",PNDLINE,!
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: $S(PSTYPE:"Action",1:"Informational")_" Rx Profile",?47,"Run Date: "
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: ?71,"Page: "_PAGE
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: !,"and for those Rx's that have been inactive less than "_PSDAYS_" days."
  • Condition for execution: PSDAYS
  • Line Location: HD1+6
Function Call: WRITE
  • Prompt: !,"Outpatient prescriptions are discontinued 72 hours after admission.",!
  • Line Location: HD1+9
Function Call: WRITE
  • Prompt: !?1,"Clinic: "_$E(CLINICX,1,28),?45,"Date/Time: "
  • Line Location: HD1+10
Function Call: WRITE
  • Prompt: !?1,"Name : ",PSNAME
  • Line Location: HD1+11
Function Call: WRITE
  • Prompt: ?58,"Action Date: ________"
  • Condition for execution: PSTYPE
  • Line Location: HD1+11
Function Call: WRITE
  • Prompt: !?1,"DOB : "_PSDOB
  • Line Location: HD1+11
Function Call: WRITE
  • Prompt: ?30,ADDRFL,!
  • Condition for execution: ADDRFL]""
  • Line Location: HD1+12
Function Call: WRITE
  • Prompt: ?30,"Address :"
  • Line Location: HD1+12
Function Call: WRITE
  • Prompt: ?41,VAPA(1)
  • Line Location: HD1+14
Function Call: WRITE
  • Prompt: !?41,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: HD1+14
Function Call: WRITE
  • Prompt: !?41,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: HD1+14
Function Call: WRITE
  • Prompt: !?41,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_$S(VAPA(11)]"":$P(VAPA(11),"^",2),1:VAPA(6)),!?30,"Phone : "_VAPA(8)
  • Line Location: HD1+15
Function Call: WRITE
  • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
  • Line Location: HD1+16
Function Call: WRITE
  • Prompt: !!,"WEIGHT(Kg): "
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
  • Condition for execution: +$P(WT,"^",8)
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: ?41,"HEIGHT(cm): "
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
  • Condition for execution: $P(HT,"^",8)
  • Line Location: HD1+21
Function Call: WRITE
  • Prompt: !,PNDLINE,!?25,"Non-VA Meds (Not dispensed by VA)",!,PNDLINE,!
  • Line Location: NVA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+17
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: NVA+22
Function Call: WRITE
  • Prompt: OCK(II)
  • Line Location: NVA+28
Function Call: WRITE
  • Prompt: !?5
  • Line Location: NVA+28
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: NVA+32
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+33
Routine Call
  • DIR
  • Line Location:
    • HD1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" HD1+18
^PS(50.606 - [#50.606] START+12, NVA+9
^PS(50.7 - [#50.7] START+12, NVA+9
^PS(52.41 - [#52.41] START+5, START+6, START+11, START+14
^PS(55 - [#55] NVA+1, NVA+5, NVA+7, NVA+8, NVA+17, NVA+18, NVA+25, NVA+29
^PS(59.7 - [#59.7] HD1+9
^PSDRUG - [#50] START+12, NVA+10
^TMP($J START+4!, START+6*, START+10, START+11, START+12, END!
^VA(200 - [#200] START+13, NVA+15, NVA+24

Label References

Name Line Occurrences
END START+7, START+9
HD START+8, START+16, START+17
HD1 START+7, START+16, START+17, NVA+3, NVA+6

Naked Globals

Name Field # of Occurrence
^(0 START+11, START+12, NVA+9, NVA+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADDRFL START+2*, HD1+2*, HD1+12, HD1+13
>> CLDT HD1+10
>> CLINICX HD1+10
>> DFN START, START+5, HD1, HD1+17, NVA+1, NVA+2, NVA+3, NVA+5
DIR HD1+1!
DIR("A" HD1+1*
DIR(0 HD1+1*
>> DOD( HD1+17
DSC NVA+32!
DSC( NVA+29*, NVA+30, NVA+31
DT HD1+5
>> DTOUT START, START+7, START+16, START+17, HD1+1, NVA+2, NVA+6
>> DUOUT START, START+7, START+16, START+17, HD1+1, NVA+2, NVA+6
>> DUPRX0 NVA+8*, NVA+9, NVA+10, NVA+11, NVA+12, NVA+13, NVA+14, NVA+15
>> FN HD1*
>> GMRVSTR HD1+19*
HT HD1+18*, HD1+20*, HD1+21!
>> I NVA+17*, NVA+18, NVA+19, NVA+25
IEN NVA+20*, NVA+21*, NVA+23!, NVA+26*, NVA+27*, NVA+28!, NVA+30*, NVA+31*, NVA+32!
II NVA+22*, NVA+23!, NVA+26*, NVA+27, NVA+28*, NVA+30*, NVA+31, NVA+32*
IOF HD1+4
IOM HD1+8, HD1+22, NVA+3, NVA+16
IOSL START+7, START+17, NVA+6
IOST START+15, START+16, START+17, HD1+1, NVA+33
LEN NVA+20!*, NVA+23!
>> LINE HD1+8, HD1+22
MMM START+1~, START+5*, START+6
>> NVA NVA+5*, NVA+7, NVA+8, NVA+17, NVA+18, NVA+25, NVA+29
OCK NVA+20!, NVA+23!, NVA+25!, NVA+29!
OCK( NVA+21*, NVA+22, NVA+27*, NVA+28, NVA+31*, NVA+32
ORD NVA+18*, NVA+20, NVA+21, NVA+23!
ORP NVA+18*, NVA+24, NVA+25!
>> PAGE HD1+5, HD1+22*
PNDIS START+1~, START+11*, START+12
PNDLINE START+1~, START+4*, HD, NVA+3*, NVA+4
PNDREX START+1~, START+11*, START+14
PNPOI START+1~, START+11*, START+12
PPPP START+1~, START+14*
PSCONT START+1~, START+5*, START+6*, START+9, START+14*
>> PSDAYS HD1+6
>> PSDOB START+3*, HD1+3*, HD1+11
>> PSNAME START+3*, HD1+3*, HD1+11
>> PSOBAR2 HD1+16
>> PSOBAR3 HD1+16
>> PSOBAR4 HD1+16
>> PSODFN NVA+3*, NVA+7, NVA+8, NVA+17, NVA+18, NVA+25, NVA+29
PSOEFF START+1~, START+11*, START+13
PSOPRVD START+1~, START+11*, START+13
PSOQTY START+1~, START+11*, START+13
PSOREFLS START+1~, START+11*, START+13
>> PSORM HD1+8, HD1+16, HD1+22, NVA+16
>> PSQFLG START+7*, START+10, START+14, START+16*, START+17*, NVA+5, NVA+6*
>> PSSN START+2*, HD1+2*, HD1+16
>> PSTYPE HD1+5, HD1+11
PZSTAT START+1~, START+5*
REA NVA+25!, NVA+28!
REA( NVA+25*, NVA+26, NVA+27
RMLEN NVA+16*, NVA+20, NVA+21, NVA+27, NVA+31, NVA+34!
SG NVA+21*, NVA+23!, NVA+27*, NVA+28!, NVA+31*, NVA+32!
>> SS NVA+25*, NVA+29*
>> VA("PID" START+2, HD1+2
>> VADM(1 START+3, HD1+3
>> VADM(3 START+3, HD1+3
>> VAIN(4 HD1+9
>> VAPA(1 HD1+14
>> VAPA(11 HD1+15
>> VAPA(2 HD1+14
>> VAPA(3 HD1+14
>> VAPA(4 HD1+15
>> VAPA(5 HD1+15
>> VAPA(6 HD1+15
>> VAPA(8 HD1+15
>> VAPA(9 START+2, HD1+2
VM HD1+19*, HD1+21!
WT HD1+18*, HD1+20*, HD1+21!
WWW START+1~, START+10*, START+11, START+12
>> X HD1+7*, HD1+8, HD1+16*, HD1+18*, HD1+19, HD1+20*
>> X1 HD1+16*
>> X2 HD1+16*
>> Y HD1+5*, HD1+10*, HD1+20*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All