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

Package: Patient Care Component

Routine: APCDSWM


Information

APCDSWM ; IHS/CMI/LAB - SWITCH TO V FILE ;

Source Information

Source file <APCDSWM.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
Patient Care Component 1 EIE^APCDBMI  

Entry Points

Name Comments DBIA/ICR reference
EN0COAG ;
SELECTM ;
EN ;
ENCOAG ;
MODQUAL ;
COAGERR(APCDSWDA) ;EP
SELECTC ;
EN0 ;
ENTINERR(APCDSWDA) ;EP
EPLKW ;EP
EPCOAG ;EP
EP ;EP

External References

Name Field # of Occurrence
EIE^APCDBMI ENTINERR+10
^DIE ENTINERR+8, MODQUAL+3, COAGERR+7
$$GET1^DIQ ENTINERR+9
^DIR SELECTM+10, SELECTM+19, SELECTC+11, SELECTC+20
$$VAL^XBDIQ1 EN0+10, SELECTM+6, SELECTM+7, SELECTM+18, EN0COAG+8, EN0COAG+9, SELECTC+6, SELECTC+7, SELECTC+19
EN^XBNEW EP+1, EPCOAG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please Note: You are NOT permitted to modify or delete a measurement."
  • Line Location: EN0+1
Function Call: WRITE
  • Prompt: !,"A measurement must be marked as 'entered in error' and then re-entered "
  • Line Location: EN0+2
Function Call: WRITE
  • Prompt: !,"through Add or Append mode of PCC data entry."
  • Line Location: EN0+3
Function Call: WRITE
  • Prompt: !!,"There are no ",$S($G(APCDSWMV)]"":APCDSWMV_" ",1:""),"measurements on this visit."
  • Line Location: EN0+15
Function Call: WRITE
  • Prompt: !,"Please choose which measurement you would like to mark 'Entered in Error',"
  • Line Location: SELECTM+2
Function Call: WRITE
  • Prompt: !,"if you do not wish to mark any in error, simply press 'enter' to bypass."
  • Line Location: SELECTM+3
Function Call: WRITE
  • Prompt: !,"Invalid response. Please enter a number from 1 to ",APCDSWT," or N."
  • Line Location: SELECTM+14
Function Call: WRITE
  • Prompt: !,"You have selected: ",$$VAL^XBDIQ1(9000010.01,APCDSWDA,.01)," Value: ",$$VAL^XBDIQ1(9000010.01,APCDSWDA,.04)
  • Line Location: SELECTM+18
Function Call: WRITE
  • Prompt: !!,"invalid v measurement...."
  • Line Location: ENTINERR+2
Function Call: WRITE
  • Prompt: !,"Please enter the reason the measurement was entered in error. Choices are:"
  • Line Location: ENTINERR+3
Function Call: WRITE
  • Prompt: !?10,"1 INCORRECT DATE/TIME"
  • Line Location: ENTINERR+4
Function Call: WRITE
  • Prompt: !?10,"2 INCORRECT READING"
  • Line Location: ENTINERR+5
Function Call: WRITE
  • Prompt: !?10,"3 INCORRECT PATIENT"
  • Line Location: ENTINERR+6
Function Call: WRITE
  • Prompt: !?10,"4 INVALID RECORD"
  • Line Location: ENTINERR+7
Function Call: WRITE
  • Prompt: !!,"invalid v measurement...."
  • Line Location: MODQUAL+2
Function Call: WRITE
  • Prompt: !!,"Please Note: You are NOT permitted to edit/delete an Anti-Coagulation entry."
  • Line Location: EN0COAG+1
Function Call: WRITE
  • Prompt: !,"It can only marked as 'entered in error'."
  • Line Location: EN0COAG+2
Function Call: WRITE
  • Prompt: !!,"There are no ",$S($G(APCDSWMV)]"":APCDSWMV_" ",1:""),"Anti-Coag entries on this visit."
  • Line Location: EN0COAG+13
Function Call: WRITE
  • Prompt: !,"Please choose which anti-coagulation entry you would like to mark 'Entered"
  • Line Location: SELECTC+2
Function Call: WRITE
  • Prompt: !,"in Error',if you do not wish to mark any in error, simply press 'enter' to ",!,"bypass."
  • Line Location: SELECTC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECTC+10
Function Call: WRITE
  • Prompt: !,"Invalid response. Please enter a number from 1 to ",APCDSWT," or N."
  • Line Location: SELECTC+15
Function Call: WRITE
  • Prompt: !,"You have selected: ",$$VAL^XBDIQ1(9000010.51,APCDSWDA,.01)," INR GOAL: ",$$VAL^XBDIQ1(9000010.51,APCDSWDA,.04)
  • Line Location: SELECTC+19
Function Call: WRITE
  • Prompt: !!,"invalid v anti-coagt...."
  • Line Location: COAGERR+2
Function Call: WRITE
  • Prompt: !,"Please enter the reason the entry was entered in error. Choices are:"
  • Line Location: COAGERR+3
Function Call: WRITE
  • Prompt: !?10,"D DUPLICATE"
  • Line Location: COAGERR+4
Function Call: WRITE
  • Prompt: !?10,"E ENTERED IN ERROR"
  • Line Location: COAGERR+5
Function Call: WRITE
  • Prompt: !?10,"O OTHER"
  • Line Location: COAGERR+6
Routine Call
  • DIE
  • Line Location:
    • ENTINERR+8
    • MODQUAL+3
    • COAGERR+7
Routine Call
  • DIR
  • Line Location:
    • SELECTM+10
    • SELECTM+19
    • SELECTC+11
    • SELECTC+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVMSR - [#9000010.01] Classic Fileman Calls,  GET1^DIQ
^AUPNVACG - [#9000010.51] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVACG - [#9000010.51] EN0COAG+7, COAGERR+2
^AUPNVACG("AD" EN0COAG+6
^AUPNVMSR - [#9000010.01] EN0+9, ENTINERR+2, MODQUAL+2
^AUPNVMSR("AD" EN0+8

Label References

Name Line Occurrences
COAGERR SELECTC+23
ENTINERR SELECTM+22
EP EPLKW+3
SELECTC EN0COAG+14
SELECTM EN0+16, SELECTM+14, SELECTC+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDSWA EN+1~, EN0+6!, EN0+15, ENCOAG+1~, EN0COAG+5!, EN0COAG+13
APCDSWA( EN0+14*, SELECTM+4, SELECTM+5, SELECTM+14, SELECTM+16, EN0COAG+12*, SELECTC+4, SELECTC+5, SELECTC+15, SELECTC+17
APCDSWAN EN+1~, ENCOAG+1~
APCDSWCT EN+1~, EN0+5*, EN0+13*, EN0+14, ENCOAG+1~, EN0COAG+4*, EN0COAG+11*, EN0COAG+12
APCDSWDA EN+1~, EN0+8*, EN0+9, EN0+10, EN0+14, SELECTM+5*, SELECTM+6, SELECTM+7, SELECTM+16*, SELECTM+18
, SELECTM+22, ENTINERR~, ENTINERR+1, ENTINERR+2, ENTINERR+8, ENTINERR+9, ENTINERR+10, MODQUAL+1, MODQUAL+2, MODQUAL+3
, ENCOAG+1~, EN0COAG+6*, EN0COAG+7, EN0COAG+8, EN0COAG+9, EN0COAG+12, SELECTC+5*, SELECTC+6, SELECTC+7, SELECTC+17*
, SELECTC+19, SELECTC+23, COAGERR~, COAGERR+1, COAGERR+2, COAGERR+7
APCDSWI EN+1~, SELECTM+15*, ENCOAG+1~, SELECTC+16*
APCDSWMT EPLKW+1~, EPLKW+2*, EN0+12, EN0COAG+10
APCDSWMV EPLKW+4!, EN+1~, EN0+15, ENCOAG+1~, EN0COAG+13
APCDSWT EN+1~, SELECTM+4*, SELECTM+5*, SELECTM+10, SELECTM+14, ENCOAG+1~, SELECTC+4*, SELECTC+5*, SELECTC+11, SELECTC+15
APCDSWX EN+1~, SELECTM+4*, SELECTM+5, SELECTM+8, ENCOAG+1~, SELECTC+4*, SELECTC+5, SELECTC+8
APCDVM01 EN+1~, EN0+10*, EN0+12, SELECTM+6*, SELECTM+8, ENCOAG+1~, EN0COAG+8*, EN0COAG+10, SELECTC+6*, SELECTC+8
APCDVM04 EN+1~, SELECTM+7*, SELECTM+8, ENCOAG+1~, EN0COAG+9*, SELECTC+7*, SELECTC+8
>> APCDVSIT EN0+8, EN0COAG+6
DA SELECTM+10!, SELECTM+19!, ENTINERR+8*!, MODQUAL+3*!, SELECTC+11!, SELECTC+20!, COAGERR+7*!
DIE ENTINERR+8*!, MODQUAL+3*!, COAGERR+7*!
DIE("NO^" ENTINERR+8*, COAGERR+7*
DIR EN+2~, SELECTM+9!, SELECTM+10!, SELECTM+17!, SELECTM+19!, ENCOAG+2~, SELECTC+9!, SELECTC+11!, SELECTC+18!, SELECTC+20!
DIR("?" SELECTM+10*, SELECTC+11*
DIR("A" SELECTM+10*, SELECTM+19*, SELECTC+11*, SELECTC+20*
DIR("B" SELECTM+19*, SELECTC+20*
DIR(0 SELECTM+10*, SELECTM+19*, SELECTC+11*, SELECTC+20*
>> DIRUT SELECTM+11, SELECTM+21, SELECTC+12, SELECTC+22
DR ENTINERR+8*!, MODQUAL+3*!, COAGERR+7*!
>> T ENTINERR+9*, ENTINERR+10
U EN0+9, EN0COAG+7
X EN+2~, SELECTM+12, SELECTM+14, SELECTM+16, ENCOAG+2~, SELECTC+13, SELECTC+15, SELECTC+17
Y EN+2~, SELECTM+13, SELECTM+15, SELECTM+20, ENCOAG+2~, SELECTC+14, SELECTC+16, SELECTC+21
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All