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

Package: Inpatient Medications

Routine: PSJCLNOC


Information

PSJCLNOC ;BIR/LE - Clinic Order Check Utilities ;26 FEB 12 / 12:42 PM

Source Information

Source file <PSJCLNOC.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Inpatient Medications 2 $$IV0^PSJBLDOC  (MYWRITE,PAUSE)^PSJMISC  
VA FileMan 2 (C,NOW)^%DTC  ($$GET1,GETS)^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: 4

Package Total Caller Graph
Inpatient Medications 4 PSJBLDOC  PSJOC  PSJOCDI  PSJOCDT  

Entry Points

Name Comments DBIA/ICR reference
CLINICS(PSJDFN) ;
D531 ;
SETTMP ;
GETCLINF ;
CANEXP(DFN,ON,PSJCLCOD) ;
CE ;check to see if Rx is outside the stop date + 90 days time frame
SETIN(PSJFLG,PSJPON,PSJNM,PSJCLCOD) ;
GET(PSJCON,PSJCDFN,ORDID,PSJCCODE,PSJNM,PSJCGET)
GETF55 ;get file 55 clinic info
GETF531 ;get file 53.1 clinic info
DISPCLN(PSJP,PSJCLINF) ;
DISP2 ;
EXIT ;
CLNDISP(PSJCLINF) ;
IVDISP ;
CLNORDDN(ORDINFO) ; Returns the Drug Name for a Clinic Order

External References

Name Field # of Occurrence
C^%DTC CLINICS+8, D531+1, D531+2, D531+10, GETCLINF+4, CE+9
NOW^%DTC CLINICS+5
$$GET1^DIQ D531+4, D531+7, D531+8, GETCLINF+2, CLNORDDN+9, CLNORDDN+10
GETS^DIQ CE+3, GETF55+1, GETF531+1
$$IV0^PSJBLDOC GETF55+13, GETF55+19, GETF531+15, GETF531+21
MYWRITE^PSJMISC IVDISP+11
PAUSE^PSJMISC DISP2+12, DISP2+23, IVDISP+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP2+12
Function Call: WRITE
  • Prompt: !,$J("Clinic Order: ",23)_$$CLNORDDN(.PSJP)_" ("_STATUS_")"
  • Line Location: DISP2+13
Function Call: WRITE
  • Prompt: !,$J("Schedule: ",23),SCHEDULE
  • Line Location: DISP2+15
Function Call: WRITE
  • Prompt: !,$J("Dosage: ",23),DOSAGE
  • Line Location: DISP2+16
Function Call: WRITE
  • Prompt: !,$J("Order Date: ",23),ORDDATE
  • Line Location: DISP2+17
Function Call: WRITE
  • Prompt: !,$J($S($G(STARTDTF):"Requested Start Date: ",1:"Start Date: "),23),STARTDT
  • Line Location: DISP2+18
Function Call: WRITE
  • Prompt: !,$J("Start Date: ",23),"********"
  • Line Location: DISP2+19
Function Call: WRITE
  • Prompt: !,$J($S($G(STOPDTF):"Requested Stop Date: ",1:"Stop Date: "),23),STOPDT
  • Line Location: DISP2+20
Function Call: WRITE
  • Prompt: !,$J("Stop Date: ",23),"********"
  • Line Location: DISP2+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP2+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP2+23
Function Call: WRITE
  • Prompt: !?23,SNAM_" "_INFUSE
  • Line Location: IVDISP+17
Function Call: WRITE
  • Prompt: !,$J("Order Date: ",23),ORDDATE
  • Line Location: IVDISP+20
Function Call: WRITE
  • Prompt: !,$J($S($G(STARTDTF):"Requested Start Date: ",1:"Start Date: "),23),STARTDT
  • Line Location: IVDISP+21
Function Call: WRITE
  • Prompt: !,$J("Start Date: ",23),"********"
  • Line Location: IVDISP+22
Function Call: WRITE
  • Prompt: !,$J($S($G(STOPDTF):"Requested Stop Date: ",1:"Stop Date: "),23),STOPDT
  • Line Location: IVDISP+23
Function Call: WRITE
  • Prompt: !,$J("Stop Date: ",23),"********"
  • Line Location: IVDISP+24
Function Call: WRITE
  • Prompt: !
  • Line Location: IVDISP+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IVDISP+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ,  GETS^DIQ
^PS(53.46 - [#53.46] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] D531+3, GETF531+14, GETF531+15, GETF531+19, GETF531+20, CLNORDDN+8
^PS(53.46 - [#53.46] D531+6, GETCLINF+1
^PS(55 - [#55] CLINICS+10, CLINICS+11, CLINICS+14, CLINICS+15, GETF55+12, GETF55+13, GETF55+17, GETF55+18
^TMP($J CLINICS+6!, D531+11*, SETTMP+1*, SETIN+4*

Label References

Name Line Occurrences
$$CLNORDDN DISP2+13
DISP2 CLNDISP+4
EXIT DISP2+14
GET DISP2+6
GETCLINF CLINICS+10, CLINICS+14
GETF531 GET+5, GET+6
GETF55 GET+3, GET+4
IVDISP DISP2+14
SETTMP CLINICS+12, CLINICS+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CLINICS+5
ADATA IVDISP+1~, IVDISP+3*, IVDISP+4, IVDISP+6
ADDITIVE GETF531+13~
ADDS IVDISP+1~, IVDISP+2*, IVDISP+7*, IVDISP+8*, IVDISP+11
AFLG IVDISP+1~, IVDISP+7, IVDISP+8, IVDISP+9, IVDISP+10*, IVDISP+11
>> BDT CE+10
BOTTLE IVDISP+1~, IVDISP+6*, IVDISP+7, IVDISP+8
CANEXPDT CE+1~, CE+2*, CE+6*, CE+7*, CE+8, CE+9
CLFILIEN CLINICS+4~, CLINICS+7*, D531+2*, D531+6*, D531+7, GETCLINF+1*, GETCLINF+2
CLNDAY CLINICS+3~, CLINICS+7*, CLINICS+8*, CLINICS+13, D531+1*, D531+2*, D531+6*, D531+10*, GETCLINF+1*, GETCLINF+4*
CLNDAYS CLINICS+3~, CLINICS+7*, D531+2*, D531+6*, D531+7*, D531+9*, D531+10, D531+11, SETTMP+1, GETCLINF+1*
, GETCLINF+2*, GETCLINF+3*, GETCLINF+4
CLNORDDN CLNORDDN+5~, CLNORDDN+6*, CLNORDDN+10*, CLNORDDN+11
DATA DISPCLN+1~, DISP2+7*, DISP2+8, DISP2+10, DISP2+11, CLNDISP+1~
DDRUG GETF55+11~, GETF55+14*, GETF55+15, GETF55+19*, GETF55+20*, GETF55+21, GETF531+13~, GETF531+16*, GETF531+17, GETF531+22*
, GETF531+23*, GETF531+24
DFN CANEXP~, CE+3, CE+4, CE+6, CE+7, DISP2+2
DNAM IVDISP+1~, IVDISP+4*, IVDISP+5, IVDISP+7, IVDISP+8
DOSAGE SETIN+1~, GET+2*, GETF55+6*, GETF55+8, GETF531+10*, GETF531+11, DISPCLN+1~, DISP2+9*, DISP2+10*, DISP2+16
, CLNDISP+1~
DRGNAME DISPCLN+1~, DISP2+5*, CLNDISP+1~, IVDISP+5
DURATION GETF531+5*, DISPCLN+1~
FILE CANEXP+1~, CANEXP+3*, CANEXP+4*, CANEXP+5*, CE+3, CE+4, CE+6, CE+7
FLD1 CANEXP+1~, CANEXP+3*, CANEXP+4*, CANEXP+5*, CE+6
FLD2 CANEXP+1~, CANEXP+3*, CANEXP+4*, CANEXP+5*, CE+7
FLD3 CANEXP+1~, CANEXP+3*, CANEXP+4*, CANEXP+5*, CE+4
FLDS CANEXP+1~, CANEXP+3*, CANEXP+4*, CANEXP+5*, CE+3
FLG SETIN+1~, GET+3*, GET+4*, GETF55+1, GETF55+2, GETF55+3, GETF55+4, GETF55+5, GETF55+6, GETF55+7
INFUSE SETIN+1~, GET+2*, GETF55+7*, GETF55+8, GETF55+21, GETF531+11, GETF531+24, DISPCLN+1~, CLNDISP+1~, IVDISP+12*
, IVDISP+15*, IVDISP+16, IVDISP+17
IOF DISP2+12, DISP2+23, IVDISP+26
IOSL DISP2+12, DISP2+23, IVDISP+26
LIST SETIN+4, GET+1~, GET+2*
OIIEN CLNORDDN+5~, CLNORDDN+9*, CLNORDDN+10
OLDEST CLINICS+3~, CLINICS+7*, D531+6*, GETCLINF+1*
ON CANEXP~, CE+3, CE+4, CE+6, CE+7
ON1 GETF55+11~, GETF55+12*, GETF55+13, GETF55+15, GETF55+17*, GETF55+18, GETF55+21, GETF531+13~, GETF531+14*, GETF531+15
, GETF531+17, GETF531+19*, GETF531+20, GETF531+24
ORDDATE GETF531+8*, GETF531+11, DISPCLN+1~, DISP2+11*, DISP2+17, CLNDISP+1~, IVDISP+20
ORDID CLINICS+3~, CLINICS+7*, CLINICS+11*, CLINICS+13*, CLINICS+15*, D531+2*, D531+3*, D531+4, D531+8, D531+11
, SETTMP+1, SETIN+1~, SETIN+2*, SETIN+4, GET~, GETF55+1, GETF55+2, GETF55+3, GETF55+4, GETF55+5
, GETF55+6, GETF55+7, GETF55+8, GETF55+12, GETF55+13, GETF55+15, GETF55+17, GETF55+18, GETF55+21, GETF531+1
, GETF531+2, GETF531+3, GETF531+4, GETF531+5, GETF531+6, GETF531+7, GETF531+8, GETF531+9, GETF531+10, GETF531+11
, GETF531+14, GETF531+15, GETF531+17, GETF531+19, GETF531+20, GETF531+24, DISPCLN+1~, DISP2+3*, DISP2+6, DISP2+7
, DISP2+14, CLNDISP+1~, IVDISP+2, IVDISP+3, IVDISP+13, IVDISP+14
ORDIEN CLNORDDN+5~, CLNORDDN+8*, CLNORDDN+9
ORDINFO CLNORDDN~
ORDINFO(2 CLNORDDN+6
ORDINFO(4 CLNORDDN+7, CLNORDDN+8
ORTYPE CANEXP+1~, CANEXP+2*, CANEXP+3, CANEXP+4, CANEXP+5
PIECE CANEXP+1~
PSJ0 GETF55+11~, GETF55+13*, GETF55+14, GETF55+19*, GETF55+20, GETF531+13~, GETF531+15*, GETF531+16, GETF531+21*, GETF531+22
, GETF531+23
PSJAPTDT CLINICS+3~
PSJCANEX CLINICS+3~
PSJCCODE GET~, GET+3, GET+4, GET+5, GET+6, GETF55+9, DISPCLN+1~, DISP2+4*, DISP2+6, CLNDISP+1~
PSJCDFN SETIN+1~, SETIN+2*, SETIN+4, GET~, GETF55+1, GETF55+2, GETF55+3, GETF55+4, GETF55+5, GETF55+6
, GETF55+7, GETF55+12, GETF55+13, GETF55+17, GETF55+18, GETF531+1, GETF531+2, GETF531+3, GETF531+4, GETF531+5
, GETF531+6, GETF531+7, GETF531+8, GETF531+9, GETF531+10, DISPCLN+1~, DISP2+2*, DISP2+6, CLNDISP+1~
PSJCGET GET~, DISPCLN+1~, DISP2+1*, DISP2+6, EXIT+1!, CLNDISP+1~
PSJCGET( GETF55+8*, GETF55+15*, GETF55+21*, GETF531+11*, GETF531+17*, GETF531+24*, DISP2+7, DISP2+14, IVDISP+2, IVDISP+3
, IVDISP+13, IVDISP+14
PSJCLCOD CLINICS+3~, CANEXP~, CANEXP+2, SETIN~, SETIN+2, SETIN+4
PSJCLIN CLINICS+3~, CLINICS+7*, CLINICS+10*, CLINICS+11, CLINICS+13*, CLINICS+14*, CLINICS+15, D531+2*, D531+3*, D531+6
, D531+11, SETTMP+1, GETCLINF+1
PSJCLINF CLINICS+3~, CLINICS+7*, D531+2*, DISPCLN~, DISP2+4, CLNDISP~
PSJCLINF(2 CLNDISP+3
PSJCLINF(3 CLNDISP+2
PSJCLNX CE+1~, CE+2*, CE+4*, CE+5*, CE+6, CE+7
PSJCON GET~, DISPCLN+1~, DISP2+1*, DISP2+3, DISP2+6, CLNDISP+1~
PSJDCEXD CE+1~, CE+2*, CE+9*, CE+10
PSJDFN CLINICS~, CLINICS+10, CLINICS+11, CLINICS+14, CLINICS+15, D531+3
PSJDNAM GETF55+11~, GETF55+14*, GETF55+15, GETF55+20*, GETF55+21, GETF531+13~, GETF531+16*, GETF531+17, GETF531+23*, GETF531+24
PSJDSPON DISPCLN+1~, CLNDISP+1~
PSJDSPON( DISPCLN+2*
PSJFLG SETIN~
PSJNM SETIN~, SETIN+4, GET~, GETF55+8, GETF531+11, DISP2+5*, DISP2+6
PSJP DISPCLN~, DISP2+13, CLNDISP+1~
PSJP(2 DISP2+5, CLNDISP+2*
PSJP(4 DISPCLN+2, DISP2+1, CLNDISP+3*
PSJPON SETIN~, SETIN+4
>> PSJSORT DISPCLN+2
PSJSTA CLINICS+3~
PSJSTAT CLINICS+4~, D531+4*, D531+5
PSJSTDT CLINICS+3~, CLINICS+7*, CLINICS+8*, CLINICS+11*, CLINICS+13*, CLINICS+15*, D531+1*, D531+2*, D531+10*, D531+11
, SETTMP+1, GETCLINF+4*
PSJSTOP CLINICS+3~
PSJSTPDT CLINICS+3~
PSJTODAY CLINICS+3~, CLINICS+5*, CLINICS+8, D531+1, D531+2, D531+10, GETCLINF+4
PSJTYP CLINICS+3~
PSJTYPE CLINICS+4~, D531+2*, D531+8*, D531+11
PSJUTMP CLINICS+3~, CE+1~
PSJUTMP( CE+4, CE+6, CE+7
PSJX GETF55+11~, GETF55+13*, GETF55+14, GETF55+15, GETF55+18*, GETF55+19, GETF55+20, GETF531+13~, GETF531+15*, GETF531+16
, GETF531+17, GETF531+20*, GETF531+21, GETF531+23
PSJXREF CLINICS+3~, CLINICS+9*, CLINICS+10, CLINICS+11, CLINICS+13*, CLINICS+14, CLINICS+15, SETTMP+1
PST CLINICS+3~
SCHEDULE SETIN+1~, GET+2*, GETF55+5*, GETF55+8, GETF531+9*, GETF531+11, DISPCLN+1~, DISP2+9*, DISP2+10*, DISP2+15
, CLNDISP+1~, IVDISP+19
SDATA IVDISP+1~, IVDISP+12*, IVDISP+14*, IVDISP+15
SEQ IVDISP+1~, IVDISP+2*, IVDISP+3
SFLG IVDISP+1~, IVDISP+12*, IVDISP+16, IVDISP+17, IVDISP+18*
SNAM IVDISP+1~, IVDISP+12*, IVDISP+15*, IVDISP+16, IVDISP+17
SOLUTION GETF531+13~
SSEQ IVDISP+1~, IVDISP+12*, IVDISP+13*, IVDISP+14
STARTDT SETIN+1~, GET+2*, GETF55+3*, GETF55+8, GETF531+3*, GETF531+4*, GETF531+11, DISPCLN+1~, DISP2+9*, DISP2+10*
, DISP2+17, DISP2+18, CLNDISP+1~, IVDISP+20, IVDISP+21
STARTDTF GET+2*, GETF531+4*, GETF531+11, DISPCLN+1~, DISP2+11*, DISP2+18, CLNDISP+1~, IVDISP+21
STATUS SETIN+1~, GET+2*, GETF55+2*, GETF55+8, GETF531+2*, GETF531+11, DISPCLN+1~, DISP2+9*, DISP2+10*, DISP2+13
, CLNDISP+1~
STOPDT SETIN+1~, GET+2*, GETF55+4*, GETF55+8, GETF531+6*, GETF531+7*, GETF531+11, DISPCLN+1~, DISP2+9*, DISP2+10*
, DISP2+20, CLNDISP+1~, IVDISP+23
STOPDTF GET+2*, GETF531+7*, GETF531+11, DISPCLN+1~, DISP2+11*, DISP2+20, CLNDISP+1~, IVDISP+23
TMP SETIN+1~
TMP( GETF55+2, GETF55+3, GETF55+4, GETF55+5, GETF55+6, GETF55+7, GETF531+2, GETF531+3, GETF531+4, GETF531+5
, GETF531+6, GETF531+7, GETF531+8, GETF531+9, GETF531+10
TYPE SETIN+1~, SETIN+3*, GET+1~, GET+2*
U GETF55+14, GETF55+19, GETF55+20, GETF531+16, GETF531+22, GETF531+23
X CLINICS+3~, CLINICS+8, D531+1, D531+2, D531+10, GETCLINF+4, CE+1~, CE+2*, CE+9
X1 CLINICS+3~, CLINICS+8*, D531+1*, D531+2*, D531+10*, GETCLINF+4*, CE+1~, CE+2*, CE+9*
X2 CLINICS+3~, CLINICS+8*, D531+1*, D531+2*, D531+10*, GETCLINF+4*, CE+1~, CE+2*, CE+9*
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