Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call