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

Package: PCE Patient Care Encounter

Routine: PXVDIS


Information

PXVDIS ;BPFO/LMT - Imm Disclosure Report ;06/22/16 17:04

Source Information

Source file <PXVDIS.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  EN^XUTMDEVQ  
Registration 1 (DEM,KVA)^VADPT  

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
Electronic Health Modernization 3 EHM-01150  EHM-01306  EHM-01596  
PCE Patient Care Encounter 1 PXV IMM DISCLOSURE REPORT  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
PROMPTDT(PXFROM,PXTO) ;
PROMPT(PXFILE,PXPROMPT,PXRESP) ;
MAIN2 ;
FIND(PXINDEX,PXSUB,PXFROM,PXTO,PXAG,PXPT) ;
FIND2(PXGBL,PXINDEX,PXSUB,PXFROM,PXTO,PXAG,PXPT) ;
PRINT ;
PRINTHDR(PXNOW,PXPAGE,PXLINE) ;
PAUSE ;
CLEAN ;
ASKDVC ;Prompts user for device of output (allows queuing)

External References

Name Field # of Occurrence
^%DT PROMPTDT+9, PROMPTDT+20
^DIC PROMPT+10
$$GET1^DIQ PRINTHDR+10
^DIR PAUSE+4
DEM^VADPT FIND2+17
KVA^VADPT FIND2+16, FIND2+20
$$FMTE^XLFDT PRINT+20, PRINT+21, PRINTHDR+7, PRINTHDR+8
$$NOW^XLFDT PRINT+5
$$REPEAT^XLFSTR PRINT+6
EN^XUTMDEVQ ASKDVC+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTDT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTDT+19
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single or multiple "_PXPROMPT(1)_","
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: !,?5,"or enter ^ALL to select all "_PXPROMPT(1)_".",!
  • Line Location: PROMPT+5
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(PXDISCDT,"2M"),?16,PXAGENCY,?53,PXPATNM,?85,$E($P($G(^AUTTIMM(+PXIMM,0)),U,1),1,30)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?117,$$FMTE^XLFDT($P(PXNODE,U,2),"2M")
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINTHDR+4
Function Call: WRITE
  • Prompt: ?13,"ACCOUNTING OF DISCLOSURES REPORT"
  • Line Location: PRINTHDR+6
Function Call: WRITE
  • Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(PXNOW),?88,"Page: ",PXPAGE
  • Line Location: PRINTHDR+7
Function Call: WRITE
  • Prompt: !,?13,"Date Range: "_$$FMTE^XLFDT(PXFROM,2)_" - "_$$FMTE^XLFDT($P(PXTO,".",1),2)
  • Line Location: PRINTHDR+8
Function Call: WRITE
  • Prompt: ?48,"Agency(ies): "_$S($G(PXAG)="ALL":"ALL",$O(PXAG($O(PXAG(0)))):"Multiple",1:$E($P($G(^PXV(920.71,+$O(PXAG(0)),0)),U,1),1,25))
  • Line Location: PRINTHDR+9
Function Call: WRITE
  • Prompt: ?88,"Patient(s): "_$S($G(PXPT)="ALL":"ALL",$O(PXPT($O(PXPT(0)))):"Multiple",1:$$GET1^DIQ(2,+$O(PXPT(0)),.01))
  • Line Location: PRINTHDR+10
Function Call: WRITE
  • Prompt: !!,"Info Disclosed: Name, DOB, Sex, Race, Ethnicity, Mother Maiden Name, Place of Birth, Address, Phone Number, NOK, Immunization Data"
  • Line Location: PRINTHDR+11
Function Call: WRITE
  • Prompt: !,"Purpose: Record and track a complete immunization history for the purpose of public health care coordination"
  • Line Location: PRINTHDR+12
Function Call: WRITE
  • Prompt: !!,"DT DISCLOSED",?16,"DISCLOSED TO",?53,"PATIENT",?85,"IMMUNIZATION",?117,"ADMIN DT"
  • Line Location: PRINTHDR+13
Function Call: WRITE
  • Prompt: !,PXLINE
  • Line Location: PRINTHDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !!!,"This report is designed for a 132 column format (compressed).",!
  • Line Location: ASKDVC+2
Routine Call
  • DIC
  • Line Location:
    • PROMPT+10
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPDVIMM - [#9000080.11] FIND+5, FIND+6
^AUPNVIMM - [#9000010.11] FIND+2, FIND+3
^AUPNVSIT - [#9000010] FIND2+25
^AUTTIMM - [#9999999.14] PRINT+20
^PXV(920.71 - [#920.71] FIND2+11, PRINTHDR+9
^TMP("PXVDIS" FIND2+26*, PRINT+12, CLEAN+1!

Label References

Name Line Occurrences
$$PROMPT MAIN+9, MAIN+16
$$PROMPTDT MAIN+3
ASKDVC MAIN+19
CLEAN MAIN2+4, MAIN2+20
FIND MAIN2+9, MAIN2+12, MAIN2+14, MAIN2+17
FIND2 FIND+4, FIND+7
PAUSE PRINT+23, PRINTHDR+2
PRINT MAIN2+19
PRINTHDR PRINT+10, PRINT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT PROMPTDT+2~, PROMPTDT+6*, PROMPTDT+14!, PROMPTDT+16*
%DT("A" PROMPTDT+7*, PROMPTDT+18*
%DT("B" PROMPTDT+17*
%DT(0 PROMPTDT+5*, PROMPTDT+15*
DFN FIND2+2~, FIND2+14*, FIND2+15
DIC PROMPT+2~, PROMPT+7*
DIC("A" PROMPT+9*, PROMPT+10*
DIC(0 PROMPT+8*
DIR PAUSE+1~
DIR(0 PAUSE+4*
DIRUT PAUSE+1~, PAUSE+5
DLAYGO PROMPT+2~
DT PROMPTDT+5
DTOUT PROMPTDT+2~, PROMPTDT+10, PROMPTDT+21, PROMPT+2~, PROMPT+12
DUOUT PROMPT+2~, PROMPT+12
IOF PRINTHDR+4
IOSL PRINT+22
IOST PRINT+8, PAUSE+2
PXADMINDT FIND2+2~, FIND2+22*, FIND2+23, FIND2+25*, FIND2+26
PXAG MAIN+1~, MAIN+9, MAIN2+9, MAIN2+12, MAIN2+14, MAIN2+17, FIND~, FIND+4, FIND+7, FIND2~
, FIND2+10, PRINTHDR+9
PXAG( MAIN2+11, FIND2+10, PRINTHDR+9
PXAG(0 PRINTHDR+9
PXAGENCY FIND2+2~, FIND2+9*, FIND2+10, FIND2+11*, FIND2+26, PRINT+2~, PRINT+15*, PRINT+20
PXDISCDT FIND2+2~, FIND2+6*, FIND2+26, PRINT+2~, PRINT+14*, PRINT+20
PXDISIEN FIND2+2~, FIND2+8*, FIND2+9
PXEND PRINT+2~, PRINT+4*, PRINT+13, PRINT+23, PRINTHDR+3, PAUSE+5*
PXEXIT MAIN+1~, MAIN+3*, MAIN+4, MAIN+9*, MAIN+10, MAIN+16*, MAIN+17
PXFILE PROMPT~, PROMPT+7
PXFROM MAIN+1~, MAIN+3, PROMPTDT~, PROMPTDT+11*, PROMPTDT+15, MAIN2+9, MAIN2+12, MAIN2+14, MAIN2+17, FIND~
, FIND+2, FIND+3, FIND+4, FIND+5, FIND+6, FIND+7, FIND2~, PRINTHDR+8
PXGBL FIND+1~, FIND+2*, FIND+3*, FIND+4, FIND+5*, FIND+6*, FIND+7, FIND2~, FIND2+4, FIND2+5*
, FIND2+6, FIND2+7, FIND2+8, PRINT+2~, PRINT+12*, PRINT+13*, PRINT+14, PRINT+15, PRINT+16, PRINT+17
, PRINT+18
PXGBLRT FIND2+2~, FIND2+4*, FIND2+9, FIND2+13, FIND2+22
PXI MAIN2+2~, MAIN2+10*, MAIN2+11*, MAIN2+12, MAIN2+15*, MAIN2+16*, MAIN2+17
PXIMM PRINT+2~, PRINT+19*, PRINT+20
PXIMMUN FIND2+2~, FIND2+21*, FIND2+26
PXINDEX MAIN2+2~, MAIN2+6*, MAIN2+7*, MAIN2+8, MAIN2+9, MAIN2+12, MAIN2+13, MAIN2+14, MAIN2+17, FIND~
, FIND+2, FIND+3, FIND+4, FIND+5, FIND+6, FIND+7, FIND2~, FIND2+5
PXLINE PRINT+2~, PRINT+6*, PRINT+10, PRINT+22, PRINTHDR~, PRINTHDR+14
PXNODE FIND2+2~, FIND2+13*, FIND2+14, FIND2+21, FIND2+24, PRINT+2~, PRINT+18*, PRINT+19, PRINT+21
PXNOW PRINT+2~, PRINT+5*, PRINT+10, PRINT+22, PRINTHDR~, PRINTHDR+7
PXNUMLN PRINT+2~, PRINT+8*, PRINT+22
PXPAGE PRINT+2~, PRINT+7*, PRINT+10, PRINT+22, PRINTHDR~, PRINTHDR+2, PRINTHDR+5*, PRINTHDR+7
PXPATNM FIND2+2~, FIND2+18*, FIND2+19*, FIND2+26, PRINT+2~, PRINT+16*, PRINT+20
PXPROMPT MAIN+1~, MAIN+9, MAIN+11!, MAIN+16, PROMPT~
PXPROMPT(1 MAIN+7*, MAIN+14*, PROMPT+4, PROMPT+5
PXPROMPT(2 MAIN+8*, MAIN+15*, PROMPT+9, PROMPT+10
PXPT MAIN+1~, MAIN+16, MAIN2+7, MAIN2+9, MAIN2+12, MAIN2+14, MAIN2+17, FIND~, FIND+4, FIND+7
, FIND2~, FIND2+15, PRINTHDR+10
PXPT( MAIN2+16, FIND2+15, PRINTHDR+10
PXPT(0 PRINTHDR+10
PXRESP PROMPT~, PROMPT+11*
PXRESP( PROMPT+10*
PXRESP(0 PROMPT+13
PXSUB FIND~, FIND+2, FIND+3, FIND+4, FIND+5, FIND+6, FIND+7, FIND2~, FIND2+5
PXTO MAIN+1~, MAIN+3, PROMPTDT~, PROMPTDT+22*, MAIN2+9, MAIN2+12, MAIN2+14, MAIN2+17, FIND~, FIND+4
, FIND+7, FIND2~, FIND2+5, PRINTHDR+8
PXVAR ASKDVC+1~, ASKDVC+7
PXVAR("PXAG(" ASKDVC+5*
PXVAR("PXFROM" ASKDVC+3*
PXVAR("PXPT(" ASKDVC+6*
PXVAR("PXTO" ASKDVC+4*
PXVIMM PRINT+2~, PRINT+17*
PXVIMMIEN FIND2+2~, FIND2+7*, FIND2+9, FIND2+13, FIND2+22, FIND2+26
PXVISIT FIND2+2~, FIND2+24*, FIND2+25
U FIND2+9, FIND2+11, FIND2+14, FIND2+19, FIND2+21, FIND2+22, FIND2+24, FIND2+25, FIND2+26, PRINT+19
, PRINT+20, PRINT+21, PRINTHDR+9
VADM FIND2+2~
VADM(1 FIND2+18
VADM(2 FIND2+19
X PROMPTDT+2~, PROMPTDT+14!, PROMPT+2~, PROMPT+11, PAUSE+1~
Y PROMPTDT+2~, PROMPTDT+10, PROMPTDT+11, PROMPTDT+14!, PROMPTDT+21, PROMPTDT+22, PROMPT+2~, PROMPT+10, PAUSE+1~
ZTSK ASKDVC+1~, ASKDVC+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 |  Local Variables  | All