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

Package: Inpatient Medications

Routine: PSGOER0


Information

PSGOER0 ;BIR/CML - EDIT FIELDS FOR RENEWAL ;Jul 26, 2017@18:04:02

Source Information

Source file <PSGOER0.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Inpatient Medications 15 ($$ENDL,ENGO)^PSGDL  $$ENDD^PSGMI  ($$ENSD,ENFD,ENWALL)^PSGNE3  $$DDOK^PSGOE2  $$GTNEDFD^PSGOE7  CLOZPRV^PSGOE82  ENDRG^PSGOEF1  ENHLP^PSGOEM  
NEWOC55^PSGOER  $$ENOSD^PSJDCU  ($$DURMIN,$$GETDUR)^PSJLIVMD  $$ACTIVE^PSJORREN  EFDNEW^PSJUTL  $$DATE2^PSJUTL2  $$ENNOO^PSJUTL5  
VA FileMan 3 ^%DT  ^DIC  $$GET1^DIQ  
Kernel 2 ($$FMADD,$$NOW)^XLFDT  $$SDEA^XUSER  
Pharmacy Data Management 1 $$OIDEA^PSSOPKI  

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 PSGOER  PSGOERS  PSGOESF  PSJCOMR  

Entry Points

Name Comments DBIA/ICR reference
DATE(PSGP,PSGORD,PSGDT) ;
10 ;
O25 ;
D25
25
W25
1 ; provider
A1 ;
A2
OC55 ;
CHKDD ;
106 ; nature of order
DONE ;
FF ; "^" to another field

External References

Name Field # of Occurrence
^%DT 25+5
^DIC A1+7, FF+1
$$GET1^DIQ DATE+9, CHKDD+7
$$ENDL^PSGDL 25+4
ENGO^PSGDL 25+4
$$ENDD^PSGMI DATE+13, D25+4, 25+5
$$ENSD^PSGNE3 DATE+12
ENFD^PSGNE3 O25+4
ENWALL^PSGNE3 O25+2
$$DDOK^PSGOE2 CHKDD+2
$$GTNEDFD^PSGOE7 DATE+5
CLOZPRV^PSGOE82 A2
ENDRG^PSGOEF1 CHKDD+7
ENHLP^PSGOEM 25+3, A1+3, A1+5
NEWOC55^PSGOER OC55+4
$$ENOSD^PSJDCU O25+5
$$DURMIN^PSJLIVMD D25+1, D25+3
$$GETDUR^PSJLIVMD D25
$$ACTIVE^PSJORREN DATE+3
EFDNEW^PSJUTL W25+4
$$DATE2^PSJUTL2 O25+3
$$ENNOO^PSJUTL5 106+1
$$OIDEA^PSSOPKI A1+14
$$FMADD^XLFDT D25+1, D25+3
$$NOW^XLFDT O25+3
$$SDEA^XUSER A1+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No active Orderable Item was found.",!
  • Line Location: DATE+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 25+0
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: 25+0
Function Call: WRITE
  • Prompt: " "_PSGFDN
  • Line Location: 25+1
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: 25+4
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+0
Function Call: WRITE
  • Prompt: $C(7),!!?3,"*** The STOP date must be AFTER the START date. ***"
  • Line Location: W25+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: !,"Provider not authorized to prescribe medications in Federal Schedule "_PSJDEA_".",!,"Please contact the provider.",!
  • Line Location: A1+16
Function Call: WRITE
  • Prompt: " "_$$PRDEA^XUSER(PSGPR)
  • Line Location: A1+17
Function Call: WRITE
  • Prompt: " ",$P(^VA(200,PSGPR,"PS"),"^",3)
  • Line Location: A1+17
Function Call: WRITE
  • Prompt: " "_PDEA
  • Line Location: A1+18
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!,"This order's dispense drug is invalid, a pharmacist must renew this order."
  • Line Location: CHKDD+4
Function Call: WRITE
  • Prompt: !!,"THE DISPENSE DRUG IS MISSING FROM THIS ORDER."
  • Line Location: CHKDD+6
Routine Call
  • DIC
  • Line Location:
    • A1+7
    • FF+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
55.06 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.45 - [#53.45] CHKDD+5!
^PS(55 - [#55] DATE+2

Label References

Name Line Occurrences
1 O25+5
106 CHKDD+1, CHKDD+2
25 25+2, 25+4, 25+5, W25+1
@( 25+2, A1+6
A1 A1+3, A1+6, A1+7, A1+12, A2+1
CHKDD 1+1, OC55+3
DONE DATE+4, 25, A1+2, OC55+5
FF 25+2, A1+6
W25 25+1

Naked Globals

Name Field # of Occurrence
^( DATE+2
^("PS" DATE+9
^(2 DATE+2, CHKDD+5!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT 25+5!*
ANQX A2+1, A2+2!
>> COMQUIT 25*, A1+2*, OC55+5*, CHKDD+8*, 106+1*
DIC A1+7!*, FF+1!*
DIC("S" A1+7*, FF+1*
DIC(0 A1+7*, FF+1*
>> DRG CHKDD+8
DT DATE+9
DTIME 25, A1+2
>> DUOUT CHKDD+8
DUR D25!*, D25+1, D25+3
DURMIN D25!, D25+1*, D25+3*
DUZ DATE+7
F DONE+1!
F0 DONE+1!
F1 DATE+2*, DONE+1!
F3 DONE+1!
>> ND DATE+8
ND2 25+4*, DONE+1!
PDEA A1+11!*, A1+12, A1+15*, A1+18
PKGFLG D25~*
PSGDL 25+4*, DONE+1!
PSGDLS 25+4!, DONE+1!
PSGDT DATE~, DATE+10, DATE+12, O25+1, O25+3*, O25+4, D25+3, W25
PSGF2 25+3*, 1+1*, DONE+1!
>> PSGFD O25+4*, O25+5*, D25+1*, D25+2, D25+4*, 25+5*, W25, W25+1
>> PSGFDN D25+4*, 25, 25+1, 25+5*
PSGFOK DATE+1!
PSGFOK(1 W25+5*, A1+8*
PSGFOK(10 O25+5*
PSGFOK(106 106+2*
PSGFOK(25 W25+2*
>> PSGLI DATE+10
PSGNEDFD DATE+1!, DATE+5*
PSGNEFD O25+1~, O25+4
PSGNESD O25+4~*
>> PSGODDD(1 W25+5
>> PSGOED CHKDD+7
PSGOEPR DATE+1!, DATE+7*, DATE+8
PSGOER0 DATE+1!, DATE+2*, DATE+6, DATE+7
PSGOER2 DATE+1!, DATE+2*, DATE+6, DATE+9, DATE+12, D25+2, 25+4
PSGOERDP DATE+1!, DATE+5*
PSGOFD DATE+1!, DATE+9*
>> PSGONF W25+5
PSGOPR DATE+1!, DATE+7*, DATE+9*
PSGORD DATE~, DATE+2, DATE+3, D25, D25+3, OC55+2, CHKDD+2
PSGOROE1 DONE+1!
>> PSGORQF OC55+5
PSGOSD DATE+1!, DATE+9*, DATE+11, DATE+12
PSGP DATE~, DATE+2, DATE+3, O25+2, O25+5, D25, CHKDD+2, CHKDD+7
PSGPDRG DATE+1!, DATE+2*, DATE+3*, DATE+5, A1+12, A1+14, CHKDD+2
>> PSGPR DATE+7*, DATE+8*, DATE+9*, A1+1, A1+2, A1+3, A1+4, A1+8*, A1+15, A2+1*
PSGPRI DATE+1!, DATE+9*
PSGPRN DATE+1!, DATE+9*, A1+1, A1+2, A1+4, A1+8*, A1+18, A2+1*
>> PSGRENEW CHKDD+1
PSGRNSD DATE+1!, DATE+10*, O25+5, D25+1, 25+4
PSGRO DATE+9*, 25*, A1+2*, DONE+1!
PSGS0XT DATE+1!, DATE+6*
PSGS0Y DATE+1!, DATE+6*, DATE+12
PSGSCH DATE+1!, DATE+6*, 25+4
PSGSD DATE+11*, DATE+12*, DATE+13, O25+1~*, O25+2, W25+1
PSGSDN DATE+1!, DATE+13*
PSGST DATE+1!, DATE+6*, DATE+12, O25+5
PSGWLL DATE+1!, DATE+2*
PSJDEA A1+11!, A1+14*, A1+15, A1+16
PSJNOO DATE+1!, 106+1*, 106+2
>> PSJOCFG OC55+3
>> PSJPROT A1+13
PSJREN DATE+12*!
>> PSJSPEED DATE+8, OC55+2
>> PSJSYSP CHKDD+5
>> PSJSYSP0 CHKDD+4
>> PSJSYSU DATE+7, DATE+9, 1+1, CHKDD+4
>> PSJSYSW0 O25+5, D25+4
PSPPKG A1+13~*, A1+14
PSTMPI A1+1*, A2+1!
PSTMPN A1+1*, A2+1!
SDT DONE+1!
U DATE+3, DATE+5, DATE+12, CHKDD+4
X O25+5*, D25+1*, D25+4, 25*, 25+1, 25+2, 25+3*, 25+4, A1+2*, A1+3*
, A1+4*, A1+5, A1+6, DONE+1!, FF+1*
XX DATE+3~*, DATE+4
Y O25+4*, O25+5*, D25+1*, D25+2*, D25+3*, D25+4*, 25+2, 25+5, A1+6, A1+7
, A1+8, DONE+1!, FF+2*
Y(0 A1+8
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