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

Package: Pharmacy Data Management

Routine: PSSFILED


Information

PSSFILED ;BIR/CML3-VARIOUS FILED UPKEEP ;09/15/97

Source Information

Source file <PSSFILED.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 7 NOW^%DTC  EN^DDIOL  ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Kernel 1 $$UP^XLFSTR  
Pharmacy Data Management 1 ^PSSGIU  

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
Pharmacy Data Management 3 PSS INFINS ADED  PSSJU MI  ^PS(51  
Inpatient Medications 1 OLD MED INSTRUCTION NAME(S)  
Outpatient Pharmacy 1 OLD MED INSTRUCTION NAME(S)  

Entry Points

Name Comments DBIA/ICR reference
DONE ;S X="PSGSETU" X ^%ZOSF("TEST") I D ENKV^PSGSETU K D0,D1,D2,PSGRBS Q
GED ; generic edit
ENAT ; team file
ENAS ; schedules file - no longer used
ENMR ; med route file
ENWG ; ward group file
CHKNSY(PSSMIFLD) ; -- check Name and Synonym Fields **pss_1_201**
; Called by: Name (#.01)and Synonym (#.5) Input Transforms
; Input -- PSSMIFLD Field -- .01=NAME, .5=SYNONYM
; X Name (#.01) or Synonym (#.5)
; PSSMIACT Action -- for Lookup=LKUP and Edit=EDIT -- set in ENMI line tag
; PSSMIEN Medication Instruction file (#51) IEN -- set in ENMI line tag
; Output -- X is killed if duplicate exists
GETVAL(PSSMIFLD,PSSMIEN,PSSMIENO) ; -- get Name or Synonym or Old Medication Instruction Name Field Value **pss_1_201**
; Called by: Name (#.01)and Synonym (#.5) Input Transforms
; Input -- PSSMIFLD Field -- .01=NAME, .5=SYNONYM, 33,.01=OMINAME
; PSSMIEN Medication Instruction file (#51) IEN
; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN
; Output -- Name (#.01) or Synonym (#.5) or Old Medication Instruction Name Field (#51.33,.01) Value
ISOMIDUP(X,PSSMIDA) ; -- Is there a duplicate in the Old Med Instruction Name(s) sub-file (#51.33) **pss_1_201**
; Input -- X Medication Instruction file (#51) Name (#.01) field or Synonym (#.5) field
; Output -- 1=Duplicate Found and 0=Unable to Check or No Duplicate Found
; PSSMIDA Old Med Instruction Name(s) multiple (#51.33) IEN Array
EXEHLP ; -- Name, Synonym and Old Med Instruction Name Fields Executable Help **pss_1_201**
; Called by: Name (#.01), Synonym (#.5) and Old Med Instruction Name(s) (#51.33,.01) Executable Help
; Input -- PSSMIMSG Medication Instruction Message Flag and Array -- set in OMICHK and CHKNSY line tags
; Output -- None
CHKOMI(PSSMIFLD) ; -- check Old Med Instruction Name Field **pss_1_201**
; Called by: Old Med Instruction Name(s) (#51.33,.01) Input Transform
; Input -- PSSMIFLD Field -- 33,.01=OMINAME
; X Old Med Instruction Name(s) multiple (#51.33) Name (#.01) field
; PSSMIACT Action -- for Lookup=LKUP and Edit=EDIT -- set in ENMI line tag
; PSSMIEN Medication Instruction file (#51) IEN -- set in ENMI line tag
; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN -- set in ENOMI line tag
; Output -- X is killed if duplicate exists
DELOMI(PSSMIEN,PSSMIENO) ; -- delete entry from OLD MED INSTRUCTION NAME(S) multiple #51.33 **pss_1_201**
; Input -- PSSMIEN Medication Instruction file (#51) IEN
; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN
; Output -- None
ISNSYDUP(X,PSSMIDA) ; -- Is there a duplicate in the Name or Synonym field of the Medication Instruction file (#51) **pss_1_201**
; Input -- X Old Med Instruction Name(s) multiple (#51.33) Name (#.01) field
; Output -- 1=Duplicate Found and 0=Unable to Check or No Duplicate Found
; PSSMIDA Medication Instruction file (#51) IEN
ENMI ; medication instruction file **enhancements made in pss_1_201**
ENMIQ
ENOMI(PSSPMI,PSSDA) ; prompt to display interaction for OLD MED INSTRUCTION NAME(S) multiple **enhancements made in pss_1_201**
SELOMI ; -- select Old Med Instruction Name
ENOMIQ
OMILE(PSSDA,PSSLR) ;
ENOMIX(PSSPMI,PSSDA) ; used by the 'AF' xref for adding an edited NAME (#.01) field's old value in the MEDICATION INSTRUCTION (#51) file to the OLD MED INSTRUCTION NAME(S) multiple **pss_1_201**
ENDRG ; standard drug fields
DE ;
ENOSE ; order set enter/edit
RBCHK ; used to validate room-bed
RBQ ; show room-beds for a ward
RBNP ;W """^"" TO STOP: " R Z3:DTIME W:'$T $C(7) S:'$T Z3="^" W *13," ",*13 Q
ENPPD ; edit pharmacy patient data
ENCPDD ; edit patient's default stop date (wall)
ENSYS ; edit system file
ENPLSP ; edit pick list site parameters
ENCS ; change current site & parameters
DF ; Add/edit Med route, instruction... to the Dosage form file.
ENII ; infusion instruction file

External References

Name Field # of Occurrence
NOW^%DTC ENDRG+2
EN^DDIOL CHKNSY+26, CHKNSY+43, EXEHLP+4, CHKOMI+25, CHKOMI+38, CHKOMI+45, CHKOMI+54, DELOMI+12, DELOMI+14
^DIC ENMR+5, ENMI+3, SELOMI+2, ENDRG+2, DF+6, ENII+1
FILE^DICN ENOMIX+11
YN^DICN RBQ+2
^DIE ENMR+6, ENMI+5, SELOMI+4, DE+4, ENSYS+2, DF+7, DF+8, ENII+3
^DIK DELOMI+19
^DIR DELOMI+10, DF+4
^PSSGIU DE+4
$$UP^XLFSTR CHKNSY+13, CHKOMI+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENAS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENMR+4
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?3,"*** WARNING, THIS DRUG IS INACTIVE. ***",!
  • Line Location: DE+2
Function Call: WRITE
  • Prompt: ?1,Z4,"-",$P(^(0),"^"),!
  • Line Location: RBQ+3
Function Call: READ
  • Variable: Z3
  • Timeout: DTIME
  • Line Location: RBNP+0
Function Call: WRITE
  • Prompt: Z3="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: RBNP+0
Function Call: WRITE
  • Prompt: *13," ",*13
  • Line Location: RBNP+0
Function Call: WRITE
  • Prompt: !!?3,"...This option is still under development...",!
  • Line Location: ENPPD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENPPD+4
Function Call: WRITE
  • Prompt: $C(7),!!?2
  • Line Location: ENCPDD+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(X(1))+$X>78
  • Line Location: ENCPDD+6
Function Call: WRITE
  • Prompt: X(1)," "
  • Line Location: ENCPDD+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENCPDD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENSYS+2
Function Call: WRITE
  • Prompt: !!,"Current site: ",$P(PSJSYSW0,"^")
  • Line Location: ENCS+2
Routine Call
  • DIC
  • Line Location:
    • ENMR+5
    • ENMI+3
    • SELOMI+2
    • ENDRG+2
    • DF+6
    • ENII+1
Routine Call
  • DIE
  • Line Location:
    • ENMR+6
    • ENMI+5
    • SELOMI+4
    • DE+4
    • ENSYS+2
    • DF+7
    • DF+8
    • ENII+3
Routine Call
  • DIR
  • Line Location:
    • DELOMI+10
    • DF+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PS(50.606 - [#50.606] Classic Fileman Calls
^PS(51 - [#51] Classic Fileman Calls
^PS(51.2 - [#51.2] Classic Fileman Calls
^PS(53.47 - [#53.47] Classic Fileman Calls
^PS(59.7 - [#59.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] RBCHK+3, RBQ+2, RBQ+3
^PS(50.606 - [#50.606] DF+7
^PS(51 - [#51] CHKNSY+22, CHKNSY+30, CHKNSY+36, CHKNSY+42, GETVAL+14, GETVAL+17, GETVAL+20, ISOMIDUP+10, ISOMIDUP+15, CHKOMI+44
, CHKOMI+50, ISNSYDUP+10, ISNSYDUP+15, OMILE+2, ENOMIX+6, ENOMIX+7, ENOMIX+8, ENOMIX+9
^PS(59.7 - [#59.7] ENMR+3, ENMI+2
^PSDRUG - [#50] DE+2

Label References

Name Line Occurrences
$$GETVAL CHKNSY+16, CHKOMI+28
$$ISNSYDUP CHKOMI+48
$$ISOMIDUP CHKNSY+33, CHKNSY+39, CHKOMI+41
$$OMILE CHKOMI+19, CHKOMI+23, SELOMI+2
DE ENDRG+2
DELOMI CHKOMI+21
DF ENMR+6
DONE ENAT+3, ENWG+3, ENDRG+3, ENOSE+3
ENMI ENMI+7
ENMIQ ENMI+3
ENOMI ENMI+5
ENOMIQ SELOMI+2
RBNP RBQ+3
SELOMI SELOMI+6

Naked Globals

Name Field # of Occurrence
^( ISOMIDUP+15, RBQ+3
^("I" DE+2
^(0 RBQ+2, RBQ+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENDRG+2, RBQ+2*
DA ENMR+5*, ENMR+7!, DELOMI+15~, DELOMI+17*, ENMI+1~, ENMI+5*, SELOMI+1~, SELOMI+4*, ENOMIX+11*, DE+4!
ENSYS+2*!, DF+5!, DF+7*, DF+8*, ENII+3*, ENII+4!
DA(1 DELOMI+17*, DELOMI+18, SELOMI+2*, SELOMI+4*, ENOMIX+11*, RBQ+2, RBQ+3
DA(2 RBCHK+3
DD ENMI+1~, SELOMI+1~
DFNO DF+5~, DF+6*, DF+7, DF+8
DIC ENMR+2!, ENMR+4*, ENMR+5!, ENMI+1~, ENMI+3*!, SELOMI+1~, SELOMI+2*!, ENOMIX+11*, ENDRG+2*!, DF+5!
DF+6*, DF+8!, ENII+1*!, ENII+4!
DIC("A" CHKOMI+23*, SELOMI+2*, ENDRG+2*
DIC(0 ENMR+4*, ENMI+3*, SELOMI+2*, ENOMIX+11*, ENDRG+2*, DF+6*, ENII+1*
DIE ENMR+2!, ENMR+5*, ENMR+7!, ENMI+1~, ENMI+5*, SELOMI+1~, SELOMI+4*, DE+4!, ENSYS+2*!, DF+5!
DF+7*, DF+8!*, ENII+3*, ENII+4!
DIK DELOMI+15~, DELOMI+18*
DIR DELOMI+4~
DIR("?" DF+3*
DIR("A" DELOMI+8*, DF+2*
DIR("B" DF+4*
DIR(0 DELOMI+9*, DF+4*
DLAYGO ENMR+4*, ENMR+5!, ENMI+1~, ENMI+3*, SELOMI+1~, ENII+1*, ENII+4!
DO ENMI+1~, SELOMI+1~, ENOMIX+11!
DR ENMR+2!, ENMR+5*, ENMR+7!, ENMI+1~, ENMI+5*, SELOMI+1~, SELOMI+4*, DE+4!, ENSYS+2*!, DF+5!
DF+7*, DF+8!*, ENII+3*, ENII+4!
MR ENMR+2~, ENMR+5*, ENMR+7!, DF+7, DF+8!
MRNO ENMR+2~, ENMR+5*, ENMR+7!, DF+7
>> PSGDT ENDRG+2*, DE+2
PSIUA ENDRG+3!, DE+4
PSIUDA ENDRG+3!
PSIUX ENDRG+3!, DE+4*
>> PSJSYSW0 ENCS+2
PSSADDF SELOMI+1~
PSSDA CHKOMI+23, ENOMI~, ENOMI+1, SELOMI+2, SELOMI+4, OMILE~, OMILE+2, ENOMIX~, ENOMIX+1, ENOMIX+6
, ENOMIX+7, ENOMIX+8, ENOMIX+11
PSSDUPF ISOMIDUP+4~, ISOMIDUP+8*, ISOMIDUP+10, ISOMIDUP+13*, ISOMIDUP+16, ISNSYDUP+4~, ISNSYDUP+8*, ISNSYDUP+10, ISNSYDUP+13*, ISNSYDUP+16
PSSFINF ENMI+1~, ENMI+4*, ENMI+5
PSSFLDVL GETVAL+6~, GETVAL+11*, GETVAL+13, GETVAL+14*, GETVAL+16, GETVAL+17*, GETVAL+19, GETVAL+20*, GETVAL+21
PSSLE OMILE+1~*, OMILE+2*, OMILE+3
PSSLR OMILE~, OMILE+2*
PSSMCHK ENOMIX+3~, ENOMIX+4*, ENOMIX+7*, ENOMIX+8
PSSMFL1 ENOMIX+3~, ENOMIX+4*, ENOMIX+6*, ENOMIX+11
PSSMFL2 ENOMIX+3~, ENOMIX+4*, ENOMIX+7, ENOMIX+8*, ENOMIX+11
PSSMFL3 ENOMIX+3~, ENOMIX+4*, ENOMIX+9, ENOMIX+10*, ENOMIX+11
PSSMI0 CHKOMI+8~, CHKOMI+50*
PSSMIACT CHKNSY+16, CHKNSY+22, CHKNSY+33, CHKNSY+43, CHKOMI+17, CHKOMI+28, CHKOMI+34, CHKOMI+44, CHKOMI+45, CHKOMI+54
ENMI+1~, ENMI+3*, ENMI+5*, SELOMI+1~, SELOMI+2*, SELOMI+4*
PSSMIDA CHKNSY+7~, CHKNSY+33, CHKNSY+36, CHKNSY+39, CHKNSY+42, ISOMIDUP~, ISOMIDUP+15*, CHKOMI+8~, CHKOMI+41, CHKOMI+44
, CHKOMI+48, CHKOMI+50, ISNSYDUP~, ISNSYDUP+15*
PSSMIDA(1 ISOMIDUP+15*
PSSMIEN CHKNSY+16, CHKNSY+30, CHKNSY+36, CHKNSY+42, GETVAL~, GETVAL+13, GETVAL+14, GETVAL+16, GETVAL+17, GETVAL+19
, GETVAL+20, CHKOMI+17, CHKOMI+19, CHKOMI+20, CHKOMI+21, CHKOMI+28, CHKOMI+44, DELOMI~, DELOMI+6, DELOMI+17
ENMI+1~, ENMI+4*, ENMI+5
PSSMIENO GETVAL~, GETVAL+19, GETVAL+20, CHKOMI+19, CHKOMI+20, CHKOMI+21, CHKOMI+28, DELOMI~, DELOMI+6, DELOMI+17
SELOMI+1~, SELOMI+3*, SELOMI+4
PSSMIFLD CHKNSY~, CHKNSY+10, CHKNSY+16, CHKNSY+30, GETVAL~, GETVAL+9, GETVAL+13, GETVAL+16, GETVAL+19, CHKOMI~
, CHKOMI+11, CHKOMI+28, CHKOMI+50*, CHKOMI+53
PSSMIMSG CHKNSY+19!, CHKNSY+23*, CHKNSY+26!, CHKNSY+34*, CHKNSY+40*, CHKNSY+43!, EXEHLP+4!, CHKOMI+31!, CHKOMI+35*, CHKOMI+38!
, CHKOMI+42*, CHKOMI+45!, CHKOMI+51*, CHKOMI+54!
PSSMIMSG(1 CHKNSY+24*, CHKNSY+35*, CHKNSY+41*, CHKOMI+36*, CHKOMI+43*, CHKOMI+52*
PSSMIMSG(2 CHKNSY+25*, CHKNSY+36*, CHKNSY+42*, CHKOMI+37*, CHKOMI+44*, CHKOMI+53*
PSSMINME ENMI+1~, ENMI+4*, ENMI+5
PSSNM ISNSYDUP+4~, ISNSYDUP+8*, ISNSYDUP+10*, ISNSYDUP+11, ISNSYDUP+15
PSSOMIDF CHKOMI+18~, CHKOMI+19*
PSSOMINM ISOMIDUP+4~, ISOMIDUP+8*, ISOMIDUP+10*, ISOMIDUP+11, ISOMIDUP+15
PSSOTH ENMR+3*, ENMR+7!, ENMI+1~, ENMI+2*
PSSPMI ENOMI~, ENOMI+1, ENOMIX~, ENOMIX+1, ENOMIX+6, ENOMIX+8, ENOMIX+10, ENOMIX+11
PSSRCHK ENOMIX+3~, ENOMIX+4*, ENOMIX+9*, ENOMIX+10
PSSYNEWF CHKNSY+7~, CHKNSY+29*, CHKNSY+30*, CHKNSY+33
U ENMR+5, ENMI+4, ENOMIX+6
X ENMR+7!, CHKNSY+13*, CHKNSY+16, CHKNSY+22!, CHKNSY+33!, CHKNSY+39!, ISOMIDUP~, ISOMIDUP+6, ISOMIDUP+11, CHKOMI+14*
, CHKOMI+17!, CHKOMI+28, CHKOMI+34!, CHKOMI+41!, CHKOMI+48!, CHKOMI+50, DELOMI+4~, DELOMI+15~, ISNSYDUP~, ISNSYDUP+6
, ISNSYDUP+11, ENOMIX+11*, RBCHK+3, RBCHK+4!
Y ENMR+2!, ENMR+5, ENMR+7!, DELOMI+4~, DELOMI+11, ENMI+1~, ENMI+3, ENMI+4, SELOMI+1~, SELOMI+2
SELOMI+3, ENDRG+2, DE+2, DF+4, DF+5~, DF+6, ENII+1, ENII+2, ENII+3, ENII+4!
Z0 RBCHK+3!, RBCHK+4!, RBQ+3*, RBQ+4!
Z1 RBQ+3*, RBQ+4!
Z2 RBQ+3*, RBQ+4!
Z3 RBQ+3*, RBQ+4!
Z4 RBQ+3*, RBQ+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All