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 |  Local Variables  | All
Print Page as PDF
Routine: PSJIMO1

Package: Inpatient Medications

Routine: PSJIMO1


Information

PSJIMO1 ;BIR/LE - IMO UTILITIES AND XREFS ;16 Mar 99 / 10:22 AM

Source Information

Source file <PSJIMO1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 (C,NOW)^%DTC  ^DIC  ($$GET1,GETS)^DIQ  
Registration 1 ^DPTLK  

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

Package Total Caller Graph
Inpatient Medications 15 PSGFILD3  PSGFILED  PSGOEC  PSGOT  PSGOTR  PSGXR38  PSIVORA  PSIVORC2  
PSJCOMV  PSJHL10  PSJHL6  PSJHLV  PSJLIACT  PSJO1  PSJOEA2  
Pharmacy Data Management 2 PSSJXR22  PSSJXR28  

Entry Points

Name Comments DBIA/ICR reference
IMO(CLINICS) ;called from ENCD^PSGFILED WHICH IS CLINIC DEFINITION OPTION IN INPATIENT MEDS
IMOSET(PSJCLIN,PSJIMOF,CLINIC) ;
IMOKILL(CLINIC,PSCLINIC) ;
CIMOU(PSGP,PSJDA55,PSCLINIC,PSJDA531) ;IMO UNIT DOSE FILE 55 CROSS REFERENCE SET
CIMOI(DFN,PSJDA55,PSCLINIC,PSJDA531) ;IMO IV FILE 55 CROSS REFERENCE SET
KILL531(PSJCLPAT,PSCLINIC,PSJIVIEN) ;
GETCLN(PSGP,ORDER) ; Return Clinic IEN for a given patient/order combination
CHECK() ;SET CONDITION FOR CIMOU XREF IN FILE 55
CHECK2() ;SET CONDITION FOR CIMOI XREF IN FILE 55
IMOCHK(PSJIMOCL) ;determine if clinic is an IMO clinic; returns 1 if IMO or 0 not IMO
CHECK3() ;SET CONDITION FOR CIMO XREF IN FILE 53.1
; DA=IEN, X(1)=PATIENT, X(2)=CLINIC
TEST ;KILL ALL IMO CROSS REFERENCES FOR A PARTICULAR CLINIC AND PATIENT
TEST2 ;
DONE ;
CLEAN(DFN) ;Delete old entriers from clinic order xref; CALLED WHEN USER EXITS PATIENT IN IOE

External References

Name Field # of Occurrence
C^%DTC IMOSET+6, CLEAN+6
NOW^%DTC IMOSET+6, CLEAN+6
^DIC TEST2+1
$$GET1^DIQ IMO+4, IMOSET+4, IMOSET+10, IMOSET+11, CIMOU+4, CIMOU+6, CIMOU+12, CIMOI+3, CIMOI+5, CIMOI+11
, KILL531+1, CHECK+4, CHECK2+4, IMOCHK+3, CLEAN+5
GETS^DIQ IMOSET+17, CIMOU+8, CIMOI+7, CHECK3+4
^DPTLK TEST2+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Verifying IMO clinic cross references...",!
  • Line Location: IMO+1
Function Call: WRITE
  • Prompt: !,"IMO cross references have been updated.",!
  • Line Location: IMO+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TEST2+3
Function Call: WRITE
  • Prompt: !!,"Select "_$S($D(PSGDICA):PSGDICA_" ",1:"")_"PATIENT: "
  • Line Location: TEST2+3
Function Call: WRITE
  • Prompt: !,"DELETED",!
  • Line Location: TEST2+12
Routine Call
  • DIC
  • Line Location:
    • TEST2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ,  GETS^DIQ
^PS(53.46 - [#53.46] Classic Fileman Calls,  GET1^DIQ
55.01 GET1^DIQ,  GETS^DIQ
55.06 GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] IMOSET+16, IMOSET+23*, IMOKILL+7, IMOKILL+8!, CIMOU+14, KILL531+3!, GETCLN+2, GETCLN+4, GETCLN+6, TEST2+11!
^PS(55 - [#55] IMOSET+8, IMOSET+9, IMOSET+10*, IMOSET+11*, IMOKILL+2, IMOKILL+3!, IMOKILL+4, IMOKILL+5!, IMOKILL+6!, CIMOU+10*
, CIMOU+11*, CIMOI+9*, CIMOI+10*, GETCLN+2, GETCLN+5, GETCLN+6, TEST2+7!, TEST2+8!, TEST2+9!, TEST2+10!
, CLEAN+4, CLEAN+10!, CLEAN+11!, CLEAN+15!, CLEAN+16!

Label References

Name Line Occurrences
$$IMOCHK CHECK+3, CHECK2+3, CHECK3+3
DONE TEST2+1, TEST2+3
IMOKILL IMO+5
IMOSET IMO+6
KILL531 CIMOU+15, CIMOI+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IMOSET+6, CLEAN+6
ACX2 GETCLN+5~*
APPTDT IMOSET+3~, IMOSET+18*, IMOSET+19*, IMOSET+22
CLINFLG IMO+2~, IMO+3*, IMO+4*, IMO+5, IMO+6, IMOSET+22, CIMOU+1~, CIMOU+6*, CIMOU+7, CIMOU+9
, CIMOI+1~, CIMOI+5*, CIMOI+6
CLINIC IMO+3*, IMOSET~, IMOSET+4, IMOKILL~, IMOKILL+2, IMOKILL+3, IMOKILL+4, IMOKILL+5, IMOKILL+6, IMOKILL+7
, IMOKILL+8
CLINICS IMO~
CLINICS( IMO+4
CLN GETCLN+2~*, GETCLN+3, GETCLN+4*, GETCLN+5, GETCLN+6*, GETCLN+7
CLNARRY CLEAN+2~, CLEAN+3*
CLNARRY( CLEAN+6*
CLNARRY("U" CLEAN+8, CLEAN+9
CLNARRY("V" CLEAN+13, CLEAN+14
CLNDAYS IMOSET+3~, IMOSET+4*, IMOSET+5*, IMOSET+6, CLEAN+2~, CLEAN+3*, CLEAN+5*, CLEAN+6
>> DA CHECK+4, CHECK2+4, CHECK3+4, CHECK3+6, CHECK3+7
>> DA(1 CHECK2+4
DFN CIMOU+12, CIMOI~, CIMOI+3, CIMOI+7, CIMOI+8, CIMOI+9, CIMOI+10, CIMOI+11, CIMOI+14, CLEAN~
, CLEAN+10, CLEAN+11, CLEAN+15, CLEAN+16
DIC TEST2+1!*, TEST2+3!, TEST2+4!*
DIC("A" TEST2+1*
DIC("W" TEST2+4*
DIC(0 TEST2+1*, TEST2+4*
>> DLAYGO TEST2+1*
DTIME TEST2+3
ENDDATE CLEAN+2~, CLEAN+9*, CLEAN+10, CLEAN+14*, CLEAN+15
FLAG IMO+2~*, IMO+7, IMOSET+12*, IMOSET+23*
IMOCLIEN IMO+2~, IMO+3*, IMO+4*, IMO+6
>> ON55 CIMOI+11
ORDER GETCLN~, GETCLN+1, GETCLN+2, GETCLN+3, GETCLN+4, GETCLN+5, GETCLN+6
PATIENT IMOSET+3~, IMOSET+9*, IMOSET+10, IMOSET+11, IMOSET+15*, IMOSET+16*, IMOSET+23, IMOKILL+2*, IMOKILL+3, IMOKILL+4*
, IMOKILL+5, IMOKILL+7*, IMOKILL+8
PS531IEN IMOSET+3~, IMOSET+15*, IMOSET+16*, IMOSET+17, IMOSET+19, IMOSET+20, IMOSET+23
PS55IEN IMOSET+3~, IMOSET+9*, IMOSET+10, IMOSET+11
PSCLINIC IMOKILL~, IMOKILL+1*, CIMOU~, CIMOU+4*, CIMOU+5, CIMOU+6, CIMOU+10, CIMOU+11, CIMOU+14, CIMOU+15
, CIMOI~, CIMOI+3*, CIMOI+4, CIMOI+5, CIMOI+9, CIMOI+10, CIMOI+14, KILL531~, KILL531+1*, KILL531+2
, KILL531+3, CLEAN+2~, CLEAN+3*, CLEAN+4*, CLEAN+5, CLEAN+6, CLEAN+8*, CLEAN+9, CLEAN+10, CLEAN+11
, CLEAN+13*, CLEAN+14, CLEAN+15, CLEAN+16
>> PSGDICA TEST2+3
PSGP CIMOU~, CIMOU+4, CIMOU+8, CIMOU+9, CIMOU+10, CIMOU+11, CIMOU+14, CIMOU+15, GETCLN~, GETCLN+2
, GETCLN+6, TEST2+3!*
PSJAPPTD CHECK+2~, CHECK+4*, CHECK+5, CHECK2+2~, CHECK2+4*, CHECK2+5, CHECK3+2~, CHECK3+5*, CHECK3+6*, CHECK3+9
PSJAPTDT IMOSET+3~, IMOSET+10*, IMOSET+11*, IMOSET+12
PSJCFLAG IMOCHK+2~, IMOCHK+3*, IMOCHK+4, CHECK3+2~
PSJCLIN IMO+2~, IMOSET~, IMOSET+9, IMOSET+10, IMOSET+11, IMOSET+16, IMOSET+23
PSJCLINI CIMOU+1~, CIMOI+1~
PSJCLINI( CIMOU+9, CIMOU+10, CIMOI+8, CIMOI+9
PSJCLPAT KILL531~, KILL531+1, KILL531+3
PSJDA531 CIMOU~, CIMOU+2*, CIMOU+13, CIMOU+14, CIMOI~, CIMOI+12
PSJDA55 CIMOU~, CIMOU+4, CIMOU+8, CIMOU+9, CIMOU+10, CIMOU+11, CIMOU+12, CIMOI~, CIMOI+3, CIMOI+7
, CIMOI+8, CIMOI+9, CIMOI+10
PSJIEN CLEAN+2~, CLEAN+11*, CLEAN+16*
PSJIMOCL IMO+2~, IMO+3*, IMO+4*, IMO+5, IMO+6, IMOCHK~, IMOCHK+1, IMOCHK+3
PSJIMOF IMOSET~
PSJIVIEN CIMOU+1~, CIMOU+12*, CIMOU+13*, CIMOU+14*, CIMOU+15, CIMOI+1~, CIMOI+11*, CIMOI+12*, CIMOI+14, KILL531~
, KILL531+1, KILL531+3
PSJORD GETCLN+4~*, GETCLN+5~*, GETCLN+6
PSJSTART IMOSET+3~, IMOSET+6*, IMOSET+8
PSJSTAT CIMOU+1~, CIMOU+3*, CIMOI+1~, CIMOI+2*
PSJSTDT IMOSET+3~, IMOSET+8*, IMOSET+9, IMOSET+10, IMOSET+11
PSJTESCL TEST+1~, TEST2+2*, TEST2+7, TEST2+8, TEST2+9, TEST2+10, TEST2+11
PSJTESPA TEST+1~, TEST2+5*, TEST2+7, TEST2+9, TEST2+11
PSJTODAY IMOSET+3~, IMOSET+6*
PSJTYPE IMOSET+3~, IMOSET+18*, IMOSET+20*, IMOSET+21, CHECK3+2~, CHECK3+5*, CHECK3+7*, CHECK3+8
PSJUTMP IMOSET+3~, IMOSET+17!, CHECK3+2~
PSJUTMP( IMOSET+19, IMOSET+20, CHECK3+6, CHECK3+7
PSJXREF IMOSET+3~, IMOSET+8*, IMOSET+9, IMOSET+10, IMOSET+11
PSTYPE CLEAN+2~, CLEAN+3*, CLEAN+4*, CLEAN+6
>> QFLG TEST2+3*
RXDATE CLEAN+2~, CLEAN+9*, CLEAN+10*, CLEAN+11, CLEAN+14*, CLEAN+15*, CLEAN+16
X IMOSET+6, CHECK+2~*, CHECK+5*, CHECK+6, CHECK2+2~*, CHECK2+5*, CHECK2+6, CHECK3+2~*, CHECK3+5*, CHECK3+9*
, CHECK3+10, TEST2+3*, CLEAN+6
X1 IMOSET+3~, IMOSET+6*, CLEAN+6*
X2 IMOSET+3~, IMOSET+6*, CLEAN+6*
X2(1 CHECK+4, CHECK2+3
X2(2 CHECK+3, CHECK3+3
Y TEST2+1, TEST2+2, TEST2+3!*, TEST2+5
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 |  Local Variables  | All