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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: OR628P

Package: Order Entry Results Reporting

Routine: OR628P


Information

OR628P ;NA/AJB - Patient Updater for PACT Act ;Nov 06, 2024@12:58:46

Source Information

Source file <OR628P.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 (,$$FIND1)^DIC  UPDATE^DIE  ^DIR  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$PROD^XUPROD  
Order Entry Results Reporting 1 $$LU^OR628P  

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

Package Total Caller Graph
Order Entry Results Reporting 1 OR628P  

Entry Points

Name Comments DBIA/ICR reference
PATIENT ; update patient data for PACT Act
; testing only/non-production accounts only
POST ; add option for test accounts only
FMR(DIR,PRM,DEF,HLP,SCR) ;
GPT() ; ask user for patient
LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;
SETSTR(S,V,X,L) ;

External References

Name Field # of Occurrence
^DIC GPT+2
$$FIND1^DIC LU+1
UPDATE^DIE POST+11
^DIR FMR+7
$$LU^OR628P POST+2
$$FMTE^XLFDT PATIENT+7, PATIENT+11
$$NOW^XLFDT PATIENT+8
$$PROD^XUPROD PATIENT+2, POST+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(DFN,U,2)
  • Line Location: PATIENT+6
Function Call: WRITE
  • Prompt: !!,"Old Value: ",$S(PGI="":"<no data>",1:PGI),?25,"Last Updated: ",$S(DLU="":"<no data>",1:$$FMTE^XLFDT(DLU))
  • Line Location: PATIENT+7
Function Call: WRITE
  • Prompt: !,"New Value: ",$S(PGI="":"<no data>",1:PGI),?25,"Last Updated: ",$S(DLU="":"<no data>",1:$$FMTE^XLFDT(DLU)),!
  • Line Location: PATIENT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: GPT+2
Routine Call
  • DIC
  • Line Location:
    • GPT+2
Routine Call
  • DIC
  • Line Location:
    • LU+1
Routine Call
  • DIE
  • Line Location:
    • POST+11
Routine Call
  • DIR
  • Line Location:
    • FMR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PATIENT+4, PATIENT+8*, PATIENT+9
^TMP( PATIENT+13!

Label References

Name Line Occurrences
$$FMR PATIENT+14
$$GPT PATIENT+3
$$SETSTR FMR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H GPT+1~
%I GPT+1~
DATA PATIENT+4~*, PATIENT+5, PATIENT+9*, PATIENT+10
DEF FMR~, FMR+3
DFN PATIENT+3~*, PATIENT+4, PATIENT+6, PATIENT+8, PATIENT+9, PATIENT+13
DIC GPT+1~, GPT+2*
DIC("A" GPT+2*
DIC(0 GPT+2*
DILN FMR+1~
DILOCKTM FMR+1~, GPT+1~
DIR FMR~, FMR+3, FMR+6*
DIR("?" FMR+5*
DIR("A" FMR+3*, FMR+4*
DIR("B" FMR+3*
DIR("S" FMR+3*
DIR(0 FMR+3*
DIROUT FMR+2~, FMR+8
DIRUT FMR+2~, FMR+8
DISYS FMR+1~, GPT+1~
DLU PATIENT+5~*, PATIENT+7, PATIENT+10*, PATIENT+11
DTOUT FMR+2~, FMR+8, GPT+1~
DUOUT FMR+2~, FMR+8, GPT+1~
DUZ POST+6
ERROR POST+3~, POST+11
FILE LU~, LU+1
FLAGS LU~, LU+1
HLP FMR~, FMR+5, FMR+6
INDEXES LU~, LU+1
JOB PATIENT+13~*
L SETSTR~, SETSTR+1
NAME LU~, LU+1
OPT POST+3~
OPT(19 POST+4*, POST+5*, POST+6*, POST+7*, POST+8*, POST+9*, POST+10*
PGI PATIENT+5~*, PATIENT+7, PATIENT+8, PATIENT+10*, PATIENT+11
PRM FMR~, FMR+3
S SETSTR~, SETSTR+1
SCR FMR~, FMR+3
SCREEN LU~, LU+1
U PATIENT+5, PATIENT+6, PATIENT+8, PATIENT+10, FMR+8
V SETSTR~, SETSTR+1
X FMR+2~, FMR+4*, FMR+8, GPT+1~, SETSTR~, SETSTR+1
Y FMR+2~, FMR+4*, FMR+8, GPT+1~, GPT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All