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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSSPRICE

Package: Pharmacy Data Management

Routine: PSSPRICE


Information

PSSPRICE ;EPIP/WC - PHARMACY PRICE TRACKER FILE 50;1/13/20 3:31pm

Source Information

Source file <PSSPRICE.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 (C,NOW)^%DTC  UPDATE^DIE  ^DIK  $$GET1^DIQ  
Kernel 3 HOME^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
MailMan 1 ^XMD  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Pharmacy Data Management 1 ^PSDRUG  

Entry Points

Name Comments DBIA/ICR reference
ST(PSSIEN,PSSDUZ,PSSFLD) ;
; PSSIEN=DRUG IEN
; PSSNEW=NEW PRICE
; PSSDUZ=USER CHANGING PRICE
; PSSFLD=13-PRICE PER ORDER UNIT, 15-DISPENSE UNITS PER ORDER UNIT ;p236
; CLASS 3 CROSS REFER ON FILE 50 FIELD #16
QUE ;ENTER THE DATA IN FILE 50 MULTIPLE FIELD 950
HIS ;LOGS CHANGES IN FILE 50 HISTORY PRICE DISPENSE #950
; first delete any price updates prior to the retention limit set up in the paramater PSS DRUG AUDIT RETENTION MOS
BULL ;Generate the bulletin.

External References

Name Field # of Occurrence
C^%DTC HIS+4
NOW^%DTC ST+9, QUE+9
HOME^%ZIS QUE+11
^%ZTLOAD QUE+10
UPDATE^DIE HIS+17
^DIK HIS+10
$$GET1^DIQ HIS+18
$$FMADD^XLFDT HIS+6
$$FMTE^XLFDT BULL+7
$$NOW^XLFDT HIS+4, HIS+5
^XMD BULL+8
$$GET^XPAR HIS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] ST+10, HIS+7, HIS+8, HIS+11, HIS+12, BULL+5
^UTILITY($J BULL+3*, BULL+4*, BULL+5*, BULL+6*, BULL+7*, BULL+9!

Naked Globals

Name Field # of Occurrence
^( HIS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ST+9, QUE+9, BULL+9!
DA ST+6~, HIS+9~, HIS+10*
DA(1 HIS+10*
DEFDT HIS+2~*, HIS+3
>> DEFMOS HIS+3*, HIS+4, HIS+6
DIC ST+6~
DIE ST+6~
DIK HIS+9~, HIS+10*
DT HIS+6
>> ENDDT HIS+4*, HIS+6*, HIS+8
FDA HIS+13~
FDA( HIS+14*, HIS+15*, HIS+16*
PSIEN2 HIS+2~, HIS+8*, HIS+10
PSSDUZ ST~, HIS+15, HIS+18, BULL+9!
PSSFLD ST~, BULL+3, BULL+9!
PSSIEN ST~, ST+10, HIS+7, HIS+8, HIS+10, HIS+11, HIS+12, HIS+14, HIS+15, HIS+16
BULL+5, BULL+9!
PSSNAME HIS+18*, BULL+3, BULL+9!
PSSNEW ST+7~, ST+10*, HIS+12, HIS+16, BULL+5, BULL+9!
PSSOLD BULL+9!
PSSPDU HIS+11~*, HIS+12
PSSTIME ST+9*, HIS+14, BULL+7, BULL+9!
X ST+6~, HIS+4
>> X1 HIS+4*, HIS+5*
>> X2 HIS+4*
XMDUZ BULL+2*, BULL+9!
XMSUB BULL+2*, BULL+9!
XMTEXT BULL+8*, BULL+9!
>> XMY("G.PSS DE E AUDIT" , BULL+1*
Y ST+6~
>> ZTDESC QUE+2*
>> ZTDTH QUE+9*
>> ZTIO QUE+8*
>> ZTRTN QUE+1*
>> ZTSAVE("PSSDUZ" QUE+5*
>> ZTSAVE("PSSFLD" QUE+7*
>> ZTSAVE("PSSIEN" QUE+3*
>> ZTSAVE("PSSNEW" QUE+4*
>> ZTSAVE("PSSTIME" QUE+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All