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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSSDEEA

Package: Pharmacy Data Management

Routine: PSSDEEA


Information

PSSDEEA ;PBM/RMS - DRUG FILE ENTER/EDIT AUDIT ; 18 May 2018 10:55 AM

Source Information

Source file <PSSDEEA.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
MailMan 1 ^XMD  
VA FileMan 1 $$GET1^DIQ  

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 PSSDEE  

Entry Points

Name Comments DBIA/ICR reference
BEFORE(TAG) ;
; Capture the drug entry before it is edited to have to compare to
; after the user completes the editing. Email changes in
; linetag 'AFTER' (called at the end of PSSDEE).
; From: PSSDEE [PSS DRUG ENTER/EDIT]
; Output:
; 1. ^UTILITY(TAG,$J,DA)=Drug file entry number DA before editing
; 2. ZDA ; DA or IEN of Drug file #50 entry
; 3. ZN ; Will be equal to 1 if a new drug was entered into file
AFTER(TAG) ;
EN
HEADER ;HEADER FOR FIELDS CHANGED IN THE DRUG ENTER/EDIT OPTION
; ZEXCEPT: PSSZMES,USER,ZDAN
COMPAR ;
; ZEXCEPT: PSSZMES,ANS,FLAG,LABEL,NEWVAL,OLDVAL,ZDA,TAG,PSSZNOC
OLDEXT(OLDVAL,PSSZNODE,PIECE) ;COMPUTE EXTERNAL 'OLD' VALUE WHERE NECESSARY
NEWEXT(ZDA,PSSZNODE,PIECE) ;COMPUTE EXTERNAL 'NEW' VALUE WHERE NECESSARY
SEND ;
; ZEXCEPT: ZDA,ZDAN,PSSZNOC
STOR ;STORES VALUES INTO MAILMAN VARIABLES
; ZEXCEPT: PSSZMES,COUNT,FIELD,LABEL,NEWVAL,OLDVAL,SPACES
SETLB ;SETS $TEXT LABEL
; ZEXCEPT: LABEL,PSSZNODE
SUB0 ;FIELDS FOR ^PSDRUG(ZDA,0)
SUB2 ;FIELDS FOR ^PSDRUG(ZDA,2)
SUB3 ;FIELDS FOR ^PSDRUG(ZDA,3)
SUB85 ;
SUB660 ;FIELDS FOR ^PSDRUG(ZDA,660)
SUB6601 ;FIELDS FOR ^PSDRUG(ZDA,660.1)
SUBEPH ;FIELDS FOR ^PSDRUG(ZDA,"EPH")
SUBI ;FIELDS FOR ^PSDRUG(ZDA,"I")
SUBND ;FIELDS FOR ^PSDRUG(ZDA,"ND")

External References

Name Field # of Occurrence
$$GET1^DIQ OLDEXT+7, NEWEXT+4, NEWEXT+5
^XMD SEND+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(50 OLDEXT+2, OLDEXT+4, NEWEXT+2
^PSDRUG - [#50] BEFORE+13, EN+1, COMPAR+6, COMPAR+7, COMPAR+8, COMPAR+9, COMPAR+10, COMPAR+12, COMPAR+17
^UTILITY( BEFORE+12!, BEFORE+13*, COMPAR+5*, COMPAR+6, COMPAR+7, COMPAR+8, COMPAR+9, COMPAR+10, COMPAR+12, COMPAR+15
^VA(200 - [#200] EN+1

Label References

Name Line Occurrences
$$NEWEXT COMPAR+17
$$OLDEXT COMPAR+16
COMPAR EN+3
HEADER EN+2
SEND EN+4
SETLB COMPAR+15
STOR COMPAR+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS EN+5!, COMPAR+12*
CHANGES EN+5!, COMPAR+2~, COMPAR+13
CHANGES( COMPAR+7*, COMPAR+8*, COMPAR+9, COMPAR+11*, COMPAR+12*, COMPAR+15, COMPAR+16
COUNT EN+1~*, STOR+6*, STOR+7*, STOR+8*, STOR+9*
>> DA BEFORE+12, BEFORE+13, BEFORE+15
DUZ EN+1, SEND+3, SEND+5
EXTERNAL NEWEXT+1~, NEWEXT+4*, NEWEXT+6, NEWEXT+7
FIELD EN+5!, STOR+4*, STOR+6
FIELDNUM OLDEXT+1~, OLDEXT+2*, OLDEXT+3, OLDEXT+4, NEWEXT+1~, NEWEXT+2*, NEWEXT+3, NEWEXT+4, NEWEXT+5
FIELDTYP OLDEXT+1~, OLDEXT+4*, OLDEXT+5, OLDEXT+6
FLAG EN+5!, COMPAR+12*, COMPAR+14*, COMPAR+15
INTERNAL NEWEXT+1~, NEWEXT+5*, NEWEXT+6
LABEL EN+5!, COMPAR+15*, STOR+2*, STOR+3*, SETLB+2*
NEWVAL EN+5!, EN+6*, COMPAR+2~, COMPAR+17*, STOR+8
OLDVAL EN+5!, COMPAR+2~, COMPAR+16*, OLDEXT~, OLDEXT+7, STOR+7
PIECE OLDEXT~, OLDEXT+2, NEWEXT~, NEWEXT+2
PSSZMES EN+5!
PSSZMES( STOR+6*, STOR+7*, STOR+8*, STOR+9*
PSSZMES(1 HEADER+2*
PSSZMES(2 HEADER+3*
PSSZMES(3 HEADER+4*
PSSZMES(4 COMPAR+13*
PSSZNOC EN+5!, COMPAR+3*, COMPAR+13*, SEND+3
PSSZNODE EN+5!, COMPAR+2~, COMPAR+4*, COMPAR+5, COMPAR+6, COMPAR+7, COMPAR+8, COMPAR+9, COMPAR+10, COMPAR+11
, COMPAR+12, COMPAR+15*, COMPAR+16, COMPAR+17, OLDEXT~, OLDEXT+2, NEWEXT~, NEWEXT+2, SETLB+2
PTRFILE OLDEXT+1~, OLDEXT+6*, OLDEXT+7
SPACES COMPAR+2~, COMPAR+3*, STOR+7, STOR+8
TAG BEFORE~, BEFORE+12, BEFORE+13, AFTER~, COMPAR+5, COMPAR+6, COMPAR+7, COMPAR+8, COMPAR+9, COMPAR+10
, COMPAR+12, COMPAR+15
U OLDEXT+4
USER EN+1~*, HEADER+2
XMDUZ SEND+2~, SEND+3*
XMSUB SEND+2~, SEND+3*
XMTEXT SEND+2~, SEND+4*
XMY SEND+2~
XMY( SEND+5*
XMY("G.PSS DE E AUDIT" , SEND+5*
>> Y BEFORE+15
ZDA BEFORE+15*, EN, EN+1, EN+5!, COMPAR+4, COMPAR+5, COMPAR+6, COMPAR+7, COMPAR+8, COMPAR+9
, COMPAR+10, COMPAR+12, COMPAR+15, COMPAR+17, NEWEXT~, NEWEXT+4, NEWEXT+5, SEND+3
ZDAN EN+1*, EN+5!, HEADER+3, SEND+3
ZN BEFORE+15*, EN+5!, COMPAR+5
ZZJ EN+5!, COMPAR+2~, COMPAR+12*, COMPAR+15*, COMPAR+16, COMPAR+17

Marked Items

Name Field # of Occurrence
$T(@(1)+ZZJ STOR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All